Sub drawdiamond2(percent As Int, width As Float, height As Float, R As Int, G As Int, B As Int) As B4XBitmap 'ignore
Dim cnv As B4XCanvas
Dim myimage As B4XView = xui.CreatePanel("")
myimage.SetLayoutAnimated(0,0,0,width,height)
cnv.Initialize(myimage)