; dxLoadAnimTexture Example
; -----------------------

dxGraphics3D 640,480
dxSetBuffer dxBackBuffer()

camera=dxCreateCamera()

light=dxCreateLight()
dxRotateEntity light,90,0,0

cube=dxCreateCube()
dxPositionEntity cube,0,0,5

; Load anim texture
anim_tex=dxLoadAnimTexture( "media/boomstrip.bmp",49,64,64,0,39 )

While Not dxKeyDown( 1 )

; Cycle through anim frame values. 100 represents delay, 39 represents no. of  anim frames
frame=MilliSecs()/100 Mod 39

; Texture cube with anim texture frame
dxEntityTexture cube,anim_tex,frame

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

If dxKeyDown( 208 )=True Then pitch#=-1
If dxKeyDown( 200 )=True Then pitch#=1
If dxKeyDown( 203 )=True Then yaw#=-1
If dxKeyDown( 205 )=True Then yaw#=1
If dxKeyDown( 45 )=True Then roll#=-1
If dxKeyDown( 44 )=True Then roll#=1

dxTurnEntity cube,pitch#,yaw#,roll#

dxRenderWorld
dxFlip

Wend

End