# animation file for 2D roller coaster
# speed 75
dimension -3.25;-3.25;3.25;3.25
PERMANENT
settext 3;rom;$PURPLE
vtext -1.0;1.0;g=;g
line xm([0..50]*.04*pi);zm([j]*.04*pi);xm([j+1]*.04*pi);zm([j+1]*.04*pi);$GREEN
TRANSIENT
comet X;Z;-5;5;Lalt
fcirc X;Z;0.05;$RED
grab xm(M);Zm(M);.1
{M=(mouse_x+3.25)*2*pi/6.5;x=xm(m);z=zm(m)}
{M=(mouse_x+3.25)*2*pi/6.5;x=xm(m);z=zm(m);Lalt=sv*sign(mouse_vx)*sqrt(mouse_vx^2+mouse_vy^2);runnow=1} 
end


