Strict

Framework Openb3dmax.B3dglgraphics

Graphics3D 640,480,0,2

Local camera:TCamera=CreateCamera()
CameraClsColor camera,100,150,200
CameraRange camera,1,5000
Local light:TLight=CreateLight()
RotateEntity light,90,0,0

Local model:TMesh=LoadMesh("../media/bath/RomanBath.b3d")

Local t:TTexture=LoadTexture("../media/bath/Default Lightmap.bmp")

TextureBlend t,5

EntityTexture model,t,0,3

PositionEntity model,0,-5,10

While Not KeyDown( KEY_ESCAPE )

If KeyDown(KEY_W) Then MoveEntity camera,0,0,1
If KeyDown(KEY_A) Then TurnEntity camera,0,4,0
If KeyDown(KEY_S) Then MoveEntity camera,0,0,-1
If KeyDown(KEY_D) Then TurnEntity camera,0,-4,0


RenderWorld
Flip
Wend

End