; RotateEntity Example
; --------------------

Graphics3D 640,480,0,2
SetBuffer BackBuffer()

camera=CreateCamera()
PositionEntity camera,0,0,-5

light=CreateLight()
RotateEntity light,45,45,0

; A dart to steer
dart=CreateCone(16)
EntityColor dart,255,100,0

pitch#=0
yaw#=0
roll#=0

While Not KeyDown(1)

    ; Cursor keys and Z/X adjust the stored angles
    If KeyDown(208) Then pitch=pitch-1
    If KeyDown(200) Then pitch=pitch+1
    If KeyDown(203) Then yaw=yaw-1
    If KeyDown(205) Then yaw=yaw+1
    If KeyDown(44) Then roll=roll-1
    If KeyDown(45) Then roll=roll+1

    ; RotateEntity sets an ABSOLUTE orientation - the same angles always give
    ; the same pose. Compare TurnEntity, which rotates relative to the
    ; current orientation.
    RotateEntity dart,pitch,yaw,roll

    RenderWorld

    Text 0,0,"Cursors: pitch/yaw   Z/X: roll   Esc: exit"
    Text 0,20,"RotateEntity dart,"+pitch+","+yaw+","+roll

    Flip

Wend

End