I see there is no Images Frames example in the distribution (the english one, at least).
Maybe that simple one is good enough for that purpose.
Code: Select all
;
; ------------------------------------------------------------
;
; PureBasic - Image Frames example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;
w = 320
h = 240
; Create an image with some frames
If CreateImage(0, w, h)
For i = 0 To 50
If AddImageFrame(0)
If StartDrawing(ImageOutput(0))
Circle(w / 2, h / 2, 2 * (i + 1), #Red)
Circle(w / 2, h / 2, 1 * (i + 1), #Black)
StopDrawing()
EndIf
EndIf
Next
SetImageFrame(0, 1)
SetImageFrameDelay(0, 25)
EndIf
; Create a window and an image gadget
If OpenWindow(0, 0, 0, w, h, "Image Frames", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ImageGadget(0, 0, 0, w, h, 0)
AddWindowTimer(0, 0, GetImageFrameDelay(0))
Repeat
Select WaitWindowEvent()
Case #PB_Event_Timer
If GetImageFrame(0) < ImageFrameCount(0) - 1
SetImageFrame(0, GetImageFrame(0) + 1)
Else
SetImageFrame(0, 1)
EndIf
SetGadgetState(0, ImageID(0))
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
RemoveWindowTimer(0, 0)
EndIf