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