Gdip7.ahk

#Include <GDIp>
#Include <GDIpHelper>

SetUpGDIP()

AllW := 512
AllH := 512
SpW := AllW / 9
SpH := AllH / 5
SpA := [[1, 1, 1, 1, 1, 1, 1, 1, 1]
, [1, 1, 1, 1, 1, 1, 1, 1, 1]
, [1, 1, 1, 1, 1, 1, 1]
, [1, 1, 1, 1, 1, 1]]

C := 1
R := 1

WMod := 3
HMod := 3

SetTimer, update, 250

update:
StartDrawGDIP()
Gdip_ResetClip(pGraphics)
ClearDrawGDIP()

if (!SpA[R, C])
	R += 1, C := 1
if (!SpA[R, C])
	C := 1, R := 1

X := 0, Y := 0

Gdip_SetClipRect(G, X, Y, SpW * WMod, SpH * HMod)
pBitmap := Gdip_CreateBitmapFromFile("sprite.png")

Gdip_DrawImage(G, pBitmap
, (X - SpW * (C-1)) * WMod
, (Y - SpH * (R-1)) * HMod
, AllW * WMod, AllH * HMod)

Gdip_DisposeImage(pBitmap)

EndDrawGDIP()

C += 1
return