Private Sub CreateBC(bmp As B4XBitmap) As BitmapCreator
Dim bc As BitmapCreator
bc.Initialize(bmp.Width / bmp.Scale, bmp.Height / bmp.Scale)
bc.CopyPixelsFromBitmap(bmp)
Return bc
End Sub
Public Sub BinColors (bmp As B4XBitmap) As B4XBitmap
Dim bc As BitmapCreator = CreateBC(bmp)
Dim argb As ARGBColor
For x = 0 To bc.mWidth - 1
For y = 0 To bc.mHeight - 1
bc.GetARGB(x, y, argb)
argb.r = argb.r - (argb.r Mod 64)
argb.g = argb.g - (argb.g Mod 64)
argb.b = argb.b - (argb.b Mod 64)
Log(argb)
bc.SetARGB(x, y, argb)
Next
Next
Return bc.Bitmap
End Sub