perm
# draw the track
line xx([0..35]/35)*.0001;yy([j]/35)/4500;xx([j+1]/35)*.0001;yy([j+1]/35)/4500
trans
# here is the car
fcircle xx(s)*.0001;yy(s)/4500;.02;$RED
end