ni=25;f=.1,-.05,0;rt=.25*PI;ra=.75*PI;

f,=f;rem traj vol(Body);INI(1);
traj(ni)force(f)rota(-rt,rt)vol(Thorax)period(-1)abs;
traj(ni)force(f)rota(-ra,ra)vol(Left_Arm)period(-1)abs;
traj(ni)force(f)rota(ra,-ra)vol(Right_Arm)period(-1)abs;

traj(50)rotz(-.1*PI,.1*PI)vol(Right_Leg)period(-1);
traj(50)roty(-.5*PI,.5*PI)vol(Left_Leg)period(-1);

traj(100)tran(-300,0,0, 0,-200,0, 300,0,0)vol(Lead)period(-1)ext(3,1,0)abs;


