Graphics3D 800,600,0,2
SetBuffer BackBuffer()

Local Timer=CreateTimer(58)
Local Camera=CreateCamera()
Local Mesh=CreateMesh()
Local Face=CreateSurface(Mesh)
Local Cube=CreateCube()
Local Light=CreateLight()
EntityFX Mesh,19

Local Gitter,Q
Local V0,V1,V2,V3

CameraClsColor Camera,96,96,96
PositionEntity Camera,-4,4,0
PositionEntity Cube,0,0,10
RotateEntity Light,20,-20,0

Const Size=40


For Q=-Size To Size
   V0=AddVertex(Face,Q,0,-Size)
   V1=AddVertex(Face,Q,0,+Size)
   V2=AddVertex(Face,-Size,0,Q)
   V3=AddVertex(Face,+Size,0,Q)
   VertexColor Face,V0,0,0,0
   VertexColor Face,V1,0,0,0
   VertexColor Face,V2,0,0,0
   VertexColor Face,V3,0,0,0
   AddTriangle Face,V0,V1,V0
   AddTriangle Face,V2,V3,V2
Next


MoveMouse 400,300


While Not KeyHit(1)
   
   RotateEntity Camera,MouseY()*0.2-20,-MouseX()*0.2,0
   
   CameraClsMode(Camera,1,1)
   WireFrame(0)
   RenderWorld()
   
   CameraClsMode(Camera,0,0)
   WireFrame(1)
   RenderWorld()
   
   WaitTimer(Timer)
   Flip 0
Wend
End