aUCBLogo Demos and Tests / bullettest

to bullettest [singleshot false][FrameNr 0]
   if (not singleshot) or2 FrameNr==0
   [   ht
      setUpdateGraph false
      dt=10
      dx=dt
      y=0
      vy=1
      a=-0.03
      x0=-400
   ]
   for [x x0 400 dx]
   [   cs
      y=y+vy*dt
      vy=vy+a
      x0=x+dx
      pu setXY x y
      pd
      fillCircle 10
      if singleshot [break]
      updateGraph
   ]
end