# animation file for 2D roller coaster
# speed 75
dimension -6.25;-1.25;4.25;6.25
PERMANENT
settext 3;rom;$PURPLE
vtext -6.0;1.0;g=;g
line xm([-80..60]*.06);zm([j]*.06);xm([j+1]*.06);zm([j+1]*.06);$GREEN
TRANSIENT
comet X;Z;-5;5;Lalt
fcirc X;Z;0.08;$RED
grab xm(M);Zm(M);0.1
{M=(mouse_x+1.25)*2*pi/2.5;x=xm(m);z=zm(m)}
{M=(mouse_x+1.25)*2*pi/2.5;x=xm(m);z=zm(m);Lalt=sv*sign(mouse_vx)*sqrt(mouse_vx^2+mouse_vy^2);runnow=1} 
end


