Graphics3D 640,480,16,2
SetBuffer BackBuffer()

cam = CreateCamera()
MoveEntity cam,0,0,-10


img = CreateTexture(100,100)
SetBuffer TextureBuffer(img)

ClsColor 255,255,255
Cls

Color 0,0,0
For n=0 To 100
	Plot Rand(0,100),Rand(0,100)
Next
Flip
SetBuffer BackBuffer()


cube = CreateCube()
EntityTexture cube,img

light = CreateLight(1)

While Not KeyHit(1)

TurnEntity cube,0,1,0

UpdateWorld
RenderWorld
Flip
Wend