Dim Panel1 As Panel
Dim B1,B2 As Bitmap
Dim cv As Canvas
B1.InitializeMutable(Activity.Width/2,Activity.Width/2)
cv.Initialize2(B1)
Dim Rect1 As Rect
Rect1.Initialize(0,0,B1.Width-1,B1.Height-1)
cv.DrawBitmap(LoadBitmap(File.DirAssets,"a_512.png"),Null,Rect1)
B2.InitializeMutable(Activity.Width/2,Activity.Width/2)
cv.Initialize2(B2)
Dim Drawable1 As ColorDrawable
Drawable1.Initialize(Colors.White,30)
cv.DrawDrawable(Drawable1,Rect1)
For r=0 To B2.Height-1
For c=0 To B2.Width-1
If B2.GetPixel(c,r)=Colors.White Then
cv.DrawPoint(c,r,B1.GetPixel(c,r))
End If
Next
Next
Panel1.Initialize("")
Activity.Color=Colors.Blue
Activity.AddView(Panel1,(Activity.Width-B2.Width)/2,(Activity.Height-B2.Height)/2,B2.Width,B2.Height)
Panel1.SetBackgroundImage(B2)