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