Dim bmc As BitmapCreator
Dim i As Int
Dim linePixels(128) As Int
Dim bc As ByteConverter
bmc.Initialize(128,1)
For i = 0 To 127
linePixels(i) = Colors.Red
Next
bc.LittleEndian = True
Bit.ArrayCopy(bc.IntsToBytes(linePixels),0,bmc.buffer,0,4*128)
XUIViewsUtils.SetBitmapAndFill(imgTest,bmc.Bitmap)