Graphics3D 800,600,32,2
SetBuffer BackBuffer()

AppTitle "Modell-Anschauer"

cam=CreateCamera()
RotateEntity cam, 0,180,0

Global HidePointer
Global MouseCursor=LoadImage ("MouseCursor.png")
Global X=MouseX
Global Y=MouseY

path$=Input ("Modellnamen/Pfad eingeben: ")


Modell=LoadMesh (""+path$)
If Modell=0 Then Text 0,12,"Modell-Laden fehlgeschlagen. Es werden nur .3ds und .x Dateien akzeptiert."
PositionEntity Modell, 0,0,0
If Modell >0 Then Text 0,12,"Modell erfolgreich geladen! Bitte beliebige Taste drücken!"
WaitKey
Cls

Zoom#=-5
While Not KeyHit(1)
   If KeyDown (203) Then Yaw#=Yaw#+1 ;RotateEntity Modell, 0,1,0
   If KeyDown (205) Then Yaw#=Yaw#-1 ;RotateEntity Modell, 0,-1,0
   If KeyDown (200) Then Pitch#=Pitch#+1 ;Modell, 1,0,0
   If KeyDown (208) Then Pitch#=Pitch#-1 ;Modell, -1,0,0
   If MouseDown(1) Then Zoom#=Zoom#+0.1
   If MouseDown(2) Then Zoom#=Zoom#-0.1
   If MouseDown(3) Then PositionEntity cam, 0,0,-0.2
   RotateEntity Modell, Pitch#,Yaw#,0
   MoveEntity cam,0,0,Zoom#
   Zoom#=0
   Text 0,0, EntityYaw(Modell)
   UpdateMouse
   Flip
   UpdateWorld
   RenderWorld
Wend


End

Function UpdateMouse()
   DrawImage MouseCursor, X,Y
End Function