Dim Bitmap1 As B4XBitmap = Capture(0, 0, 50, 50)
Dim Bitmap2 As B4XBitmap = Capture(50, 0, 50, 50)
Dim bc1, bc2, bc3 As BitmapCreator
bc1.Initialize(50,50)
bc1.CopyPixelsFromBitmap(Bitmap1)
bc2.Initialize(50,50)
bc2.CopyPixelsFromBitmap(Bitmap2)
bc3.Initialize(100,50)
For x = 0 To 49
For y = 0 To 49
bc3.CopyPixel(bc1, x, y, x, y)
bc3.CopyPixel(bc2, x, y, x+50, y)
Next
Next
Dim out As OutputStream
out = File.OpenOutput(dirapp, "join.png", False)
bc3.Bitmap.WriteToStream(out, 100, "PNG")
out.Close