aUCBLogo Demos and Tests / spheretest

to spheretest
   cs
   perspective
   local [nphi phi c eye]
   nphi=400
   eye=array 3
   eye.2=400
   sph
   tfps=timefine
   forever
   [   phi=360*repcount/nphi
      eye.1= -500*sin phi
      eye.3=500*cos phi
      setEye eye {0 0 0}{0 1 0}
      setLightPos {100 100 0}
      redraw
      if key?
      [   c=rc
         if c==char 27 [stop]
         cs
         pu setpos [0 -290]  seth 90 setpc 0
         label list "fps repcount/(timefine-tfps)
         home pd
         sph
      ]
      gc
   ]
end

to sph
   setpc 4
   rt 90
   fd 100
   sphere 100
end