Graphics3D 640,480,16,2
SetBuffer BackBuffer()
cam = CreateCamera()
PositionEntity cam,0,2,-1
cub = CreateCube()
PositionEntity cub,0,0,5
tex = LoadTexture("c:celling.bmp")
ScaleTexture tex,10,10
EntityTexture cub,tex
x = CreateCube()
ScaleEntity x,1,.5,3
PositionEntity x,3,-1,3
pln = CreatePlane()
PositionEntity pln,-3,0,0
lit = CreateLight()
PositionEntity lit,0,1,7
TurnEntity lit,10,.45,62
Repeat
TurnEntity cub,.1,.2,.3
MoveEntity cub,.3,0,0
UpdateWorld
RenderWorld
Flip
TurnEntity cub,0,.1,1
If KeyDown(200) MoveEntity x,0,0,.1
If KeyDown(208) MoveEntity x,0,0,-.1
If KeyDown(203) TurnEntity x,0,1,0
If KeyDown(205) TurnEntity x,0,-1,0
PointEntity cam,x
Until KeyHit(1)
End