aUCBLogo Demos and Tests / shadowtest

to shadowtest
   setScreenColor 0
   cs perspective
   clearShadows
   enableShadows
;   setLightPos {1000 1000 1000}
;   setEye {1000 1000 2000}{0 0 0}{0 1 0}
   r=200
   setLightSpecular "white
   setMaterialSpecular "white
   setMaterialShininess 5
;   ht
   setPC "green
   pu setY -1000
   PolyStart
   setX -1000 pd setZ 1000 setX 1000 setZ -1000 setX -1000 pu
   PolyEnd
   PolyStart
   pd setY 0 setZ 1000 setY -1000 setZ -1000 pu
   PolyEnd
   PolyStart
   setY -1000 pd setX 1000 setY 0 setX -1000 setY -1000 pu
   PolyEnd
   setX 1000
   PolyStart
   pd setY 0 setZ 1000 setY -1000 setZ -1000 pu
   PolyEnd
   home
   setpc "red
comment
[   SurfaceStart
   for [z -1 1 0.2]
   [   pu
      setPosXYZ (list -1 (cos 90*-1)*cos 90*z z)*r
      pd
      for [x -1 1 0.2]
      [   setPosXYZ (list x (cos 90*x)*cos 90*z z)*r
      ]
      SurfaceColumn
   ]
   SurfaceEnd
]   setXYZ 400 0 -400
   rr 90
   partialEllipsoid 100 200 300  0 180 10  0 90 10
   setXYZ 0 0 0
   sphere 200
   castShadows
   (rotatescene2 1 0 5 2000)
end