; include the frame sheet animation library
#Include "FrameSheetAnims"
; The file name of the example frame sheet we're going
; to load
Filename$=ProgramDir$()+"Help/Commands/Media/Animations/explosions.png"
; Load the Frame sheet
FrameSheet=LoadFrameSheet(Filename$,64,64,RGB(0,0,0))
; Let's create two Animations using our loaded frame sheet
; create anim#1, this anim will
Anim1=NewAnim(FrameSheet,1)
; create Anim#2, this anim will use a slower frame rate
Anim2=NewAnim(FrameSheet,5)
; Limit the programs speed to 60 fps (or there abouts)
SetFPS 60
; Run This section of code, untila key is pressed
Repeat
; Clear The Screen
Cls RGB(0,0,0)
; Display the current frame this animation is at
Ypos=100
DrawAnim Anim1,400,Ypos,true
ShowAnimInfo(Anim1,100,Ypos)
; Display the current frame this animation is at
Ypos=400
DrawAnim Anim2,400,Ypos,true
ShowAnimInfo(Anim2,100,Ypos)
; show the screen to the user and wait for a key press
Sync
; If no key is pressed, jump back to the repeat
; run this section of code again.
Until ScanCode()<>0
; Delete the Animations
DeleteAnim Anim1
DeleteAnim Anim2
; Delete the Frame Sheet
DeleteFrameSheet FrameSheet
; End This program
End
; This Sub displays some basic info about the anim
Psub ShowAnimInfo(ThisANim,Xpos,Ypos)
If GetAnimStatus(ThisANim)
th=20
Text Xpos,ypos," Frame:"+Str$(GetAnimPos(ThisAnim))
Ypos+=th
Text Xpos,ypos,"Frame Rate:"+Str$(GetAnimFrameRate(ThisAnim))
Ypos+=th
Text Xpos,ypos,"Anim Method:"+Str$(GetAnimMethod(ThisAnim))
Ypos+=th
Text Xpos,ypos," Anim Image:"+Str$(GetAnimImage(ThisAnim))
Ypos+=th
Text Xpos,ypos,"Frame Sheet:"+Str$(GetAnimFrameSheet(ThisAnim))
Ypos+=th
EndIf
EndPsub
|
