; Md2view
; ----------------------------------------------

Graphics3D 640,480

SetBuffer BackBuffer()
;-----------------------------------------------      Camera and Light

camera=CreateCamera()

   PositionEntity camera,0,50,-20
   
   CameraClsColor camera,255,0,255


light=CreateLight()

   RotateEntity light,0,0,90

;----------------------------------------------   Stuff halt

Global Frame =0


Global Trooper = LoadMD2 ("testmd2.md2")

   ScaleEntity Trooper, 0.1,0.1,0.1

;====================================================== MAIN LOOP ===========
;============================================================================

While Not KeyDown( 1 )


   If KeyDown(31) Then TranslateEntity camera,0,0,-1   ; Key S

   If KeyDown(17) Then TranslateEntity camera,0,0,1   ; Key W


   If KeyHit(34) Then GetFrame()                   ; Key G

   If KeyHit(19) Then TurnEntity Trooper,0,45,0       ; Key R

PointEntity camera,Trooper



UpdateWorld
RenderWorld

Text 0,0, "FrameNr,"+Frame

Flip

Cls

Wend

End

;==============================================================================
Function GetFrame()
   
   Frame=Frame+1:If Frame=40 Then Frame=0
   
   AnimateMD2 Trooper,3,0.2,frame,Frame

End Function