;I will try to make the light look better.

Graphics3D 640,480, 16, 2 
AppTitle "The Test"

SetBuffer BackBuffer() 

Global spin = 0
Global spin2 = 0
Global cubez = 5
Global cubego = 1

; camera
camera=CreateCamera() 

; light
light=CreateLight() 
RotateEntity light,90,0,0 

; cube
cube=CreateCube() 
ScaleEntity cube,3,3,3
PositionEntity cube,0,0,5
redbrush = CreateBrush (255,50,0)
PaintEntity cube,redbrush

While Not KeyDown( 1 ) 

	RenderWorld 
	Flip
	 
	RotateEntity cube,spin,spin2,0
	PositionEntity cube,0,0,cubez
	
	spin = spin + 5
	spin2 = spin2 + 5
	
	If cubego = 1
		cubez = cubez + 1
	Else
		cubez = cubez - 1
	EndIf
	
	If cubez > 30
		cubego = 0
	EndIf
	
	If cubez < 10
		cubego = 1
	EndIf
	
	Delay 100
	
Wend 

End