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 setZ 1000 setY -1000 setZ -1000 pu
   
PolyEnd
   
PolyStart
   
setY -1000 pd setX 1000 setY setX -1000 setY -1000 pu
   
PolyEnd
   
setX 1000
   
PolyStart
   
pd setY 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