here what i had with B+
Global CELL_WIDTH = 30
Global CELL_HEIGHT = 20
Global bloc1 = CreateImage (CELL_WIDTH, CELL_HEIGHT)
SetBuffer ImageBuffer (bloc1)
Color 50,50,100:Oval 0,0,29,19,True
Color 50,50,150:Oval 2,2,24,14,True
Color 50,50,200:Oval 4,4,17,7,True
Color 50,50,250:Oval 6,6,10,3,True
here what i made for BMAX
Const CELL_WIDTH = 30
Const CELL_HEIGHT = 20
SetColor 50,50,100; DrawOval 0,0,29,19
SetColor 50,50,150; DrawOval 2,2,24,14
SetColor 50,50,200; DrawOval 4,4,17,7
SetColor 50,50,250; DrawOval 6,6,10,3
Global bloc1:TImage = CreateImage (CELL_WIDTH, CELL_HEIGHT)
GrabImage bloc1,0,0
not the same result, is there another way ?
|