Unnamed

Strict
Import "ngl.bmx"

Local Gfx:NGraphics = NGraphics.Start(800,600)
Local Cam:NCamera = New NCamera
Cam.Move(0,0,-10)


Local Cube:NEntity = NEntity.CreateCube()
Cube.R = 0
Cube.B = 0

Local Cube2:NEntity = NEntity.CreateCube()
Cube2.Translate(0,0,-5)

Local Mesh:NEntity = NEntity.LoadMesh("md2/fish.md2")
Mesh.ScaleMesh(0.1,0.1,0.1)
Mesh.Move(3,0,0)
Mesh.Turn(-90,0,90)
Mesh.FrameTime = 40

Repeat
	'Camera control
	If KeyDown(KEY_LEFT) Then Cam.Move(-0.3,0,0)
	If KeyDown(KEY_RIGHT) Then Cam.Move(0.3,0,0)
	If KeyDown(KEY_UP) Then Cam.Move(0,0,0.3)
	If KeyDown(KEY_DOWN) Then Cam.Move(0,0,-0.3)
	If KeyDown(KEY_A) Then Cam.Move(0,0.3,0)
	If KeyDown(KEY_Z) Then Cam.Move(0,-0.3,0)
	
	Mesh.Animate()
	Mesh.Turn(0,1,0)

	Cube.Turn(3,3,3)
	Cube2.Turn(0,0.5,0)
	Gfx.Render()
        Print "FPS: "+Gfx.FPS
Until KeyHit(KEY_ESCAPE)