Sub Globals
Dim tileheight As Int
Dim tilewidth As Double
Dim asf As AcceleratedSurface
Dim b As Bitmap
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Color=Colors.Blue
tilewidth=16*10
tileheight=21*10
b.InitializeMutable(16,21)
b=LoadBitmap(File.DirAssets,"bruce.png")
asf.Initialize("asf",True)
asf.StartRegularDraw(1000/1)
Activity.AddView(asf,0,0,100%x,100%y)
End Sub
Sub asf_Draw(AC As AS_Canvas)
AC.DrawBitmapAt(b,0,0)
Dim r As Rect
r.Initialize(0,0,tilewidth,tileheight)
AC.DrawBitmap(b,Null,r)
End Sub