AppTitle "Image Rotation Example by Eikon"
Graphics 320, 240, 16, 2
SetBuffer BackBuffer()

TFormFilter 1
AutoMidHandle 1

Img = LoadImage("arrow.png")
Dim AImg(35)    ; Image Array
For i = 0 To 35 ; Rotate 36 times at 10 degree intervals (full rotation)
	RotateImage Img, i * 10
	AImg(i) = CopyImage(Img)
	FreeImage Img: Img = LoadImage("arrow.png")
Next

Local Frame = 0, Frame_Time = MilliSecs()
While Not KeyDown(1)
	
DrawImage AImg(Frame), 160, 120

Text 1, 1, "Used VMem: " + (TotalVidMem() - AvailVidMem())/1024 + "kbs"

If MilliSecs() >= Frame_Time + 100 Then Frame = Frame + 1: Frame_Time = MilliSecs()
If Frame >= 36 Then Frame = 0

Flip: Cls
Wend: End