'Create an image
img= MakeImage(256, 256)
'Draw to it
DrawToImage img
'Draw 100 random colour circles
For i=1 To 100
Color Rand(255), Rand(255), Rand(255)
Box Rand(255),Rand(255),Rand(20,100),Rand(20,100)
Next i
DrawToScreen
'Put our master-piece onto screen
DrawImage img, 0, 0
Color cbwhite
Text 10,270,"Press any key to save this to 'C:\CBart.bmp'"
'Refresh screen
DrawScreen
WaitKey
'Save the image
SaveImage img, "C:\CBart.bmp"
|
|