Graphics3D 640,480,16,2

camera=CreateCamera()
;CameraFogMode camera,1
;CameraFogRange camera,0,10
light=CreateLight()
RotateEntity light,0,0,0

fret=CreateMesh()

fretsurface=CreateSurface(fret)

v0=AddVertex(fretsurface,-128,0,0) ;[.-]
v1=AddVertex(fretsurface,128,0,0) ;[-.]
v2=AddVertex(fretsurface,-128,384,768) ;[*-]
v3=AddVertex(fretsurface,128,384,768) ;[-*]

t0=AddTriangle(fretsurface,v3,v1,v0)
t1=AddTriangle(fretsurface,v2,v3,v0)


frettexture=LoadTexture( "fret.bmp" )


ScaleTexture frettexture,100,100
EntityTexture fret,frettexture

PositionEntity fret,0,-128,128
mxs#=0
mys#=0
move#=5.0
MouseXSpeed() ;' flush
MouseYSpeed() ;' flush
While Not KeyDown(1)
If KeyDown(57)=True
		mxs#=mxs#+(MouseXSpeed()/5.0)
		mys#=mys#+(MouseYSpeed()/5.0)
		RotateEntity camera,mys#,-mxs#,0
			MoveMouse 320,240
	
	EndIf
	MouseXSpeed() ;' flush
	MouseYSpeed() ;' flush

	;' move camera forwards/backwards/left/right with cursor keys
	
	If KeyDown(17)=True Then MoveEntity camera,0,0,move# ;' move camera forward
	If KeyDown(31)=True Then MoveEntity camera,0,0,-move# ;' move camera back

	If KeyDown(30)=True Then MoveEntity camera,-move#,0,0 ;' move camera left
	If KeyDown(32)=True Then MoveEntity camera,move#,0,0 ;' move camera right
RenderWorld
Flip

Wend

End