# roller coaster animation
perm
# draw the track
line [0..49]/50;(63-y([j]))/48;[j+1]/50;(63-y([j+1]))/48;$BLACK
trans
# here is the car
fcircle xx;yy;.02;$RED
end