Graphics3D 640,480,32,2
SeedRnd MilliSecs()

pivot=CreatePivot()
cam=CreateCamera(pivot)
	PositionEntity cam,0,20,-20
	RotateEntity cam,25,0,0

Dim cubes(29)
	For i=0 To 29
		If Rand(0,1)=0
			cubes(i)=CreateCube()
			EntityPickMode cubes(i),3
		Else
			cubes(i)=CreateSphere()
			EntityPickMode cubes(i),1
		EndIf
		PositionEntity cubes(i),Rnd(-10,10),Rnd(1,20),Rnd(-10,10)
	Next

plane=CreatePlane()
	EntityColor plane,100,255,100
	EntityPickMode plane,2

light=CreateLight()
	RotateEntity light,45,-135,0
	LightColor light,200,200,200
	
AmbientLight 100,100,100

frame=1
SetBuffer BackBuffer()
Text 0,0,frame
Flip 0

Repeat
	
	TurnEntity pivot,0,5,0
	
	UpdateWorld
	RenderWorld

	LockBuffer BackBuffer()
	For x=0 To 639 Step 2
		For y=0 To 479 Step 2
			picked1=CameraPick(cam,x,y)
			If picked1
				picked2=LinePick(PickedX(),PickedY(),PickedZ(),-999,999,999)
				If picked2
					If picked1<>picked2 WritePixelFast x,y,$333333
				EndIf
			EndIf
		Next
		If KeyHit(1) End
	Next
	UnlockBuffer BackBuffer()
	
	frame=frame+1
	Text 0,0,frame
		
	Flip 0	
	Cls
Until KeyHit(1)

End