Sub CreateBitmap As Canvas
Dim bmp As Bitmap
bmp.InitializeMutable(100%x, 100%y) ' !!!
Dim cvs As Canvas
cvs.Initialize2(bmp)
Dim r As Rect
r.Initialize(0, 0, bmp.Width, bmp.Height)
cvs.DrawRect(r, Colors.Transparent, True, 0)
Dim p As Path
p.Initialize(0, 0)
Dim jo As JavaObject = p
Dim radius = 50dip, x, y As Float
x = CurX
y = CurY
jo.RunMethod("addCircle", Array As Object(x, y, radius, "CW"))
cvs.ClipPath(p)
Return cvs
End Sub
Sub pnl_Touch (Action As Int, X As Float, Y As Float)
CurX = X
CurY = Y
Draw
End Sub