AnimPos

AnimPos AnimIndex, Position

Parameters:     AnimIndex = The Index of the Animation you want to query     Position = The position index within this animations frame sheet

Returns: NONE

The AnimPos functions gets the current position index within an animation. The position index refers the index with the sets of frames held in the frame sheet this animation is using. So if the frame sheet has 10 frames. Then the position index will range from 0 to 10. FACTS:       * None

Example Source: Download This Example ; 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

Related Info:	GetAnimPos :

(c) Copyright 2002 - 2024 - Kevin Picone - PlayBASIC.com