Sub Globals
Dim cvsActivity As Canvas
End Sub
Sub Activity_Create(FirstTime As Boolean)
cvsActivity.Initialize(Activity)
End Sub
Sub Activity_Resume
Dim i As Int
Dim r As Rect
Dim imgW, imgH, x, y As Int
imgW = 50%x
imgH = imgW / 3 * 2 ' image ratio W/H = 3/2
For i = 0 To 3
x = (i Mod 2) * imgW
y = Floor(i / 2) * imgH
r.Initialize(x, y, x + imgW, y + imgH)
cvsActivity.DrawBitmap(LoadBitmap(File.DirAssets, "image" & i & ".jpg"), Null, r)
Next
End Sub