'THIS PROGRAM WILL CHALLENGE MS PAINT
FrameLimit 40
'load palette
palette= LoadImage("Media\palette.bmp")
'Make canvas
canvas= MakeImage(300,300)
ClsColor cbwhite
DrawToImage canvas
Cls
DrawToScreen
ClsColor cbwhite
Color cbblack
'add info
Locate 110,10
AddText "Pick a color via palette right click"
AddText "Draw using the mouse"
ClsColor cbwhite
Repeat
'draw palette
DrawImage palette,0,0,0,OFF
'draw preview
Box 20,220,20,20
Text 20,260,GetRGB(RED)
Text 20,270,GetRGB(GREEN)
Text 20,280,GetRGB(BLUE)
'pick colour
If MouseDown(2)
If MouseX()<100 And MouseY()<200 Then
PickColor MouseX(),MouseY()
EndIf
EndIf
'draw
If MouseDown(1)
If MouseX()>100 Then
DrawToImage canvas
Line oldx-100,oldy,MouseX() -100,MouseY()
oldx=MouseX()
oldy=MouseY()
DrawToScreen
EndIf
EndIf
'draw canvas
DrawImage canvas,100,0,0,OFF
DrawScreen
Until EscapeKey()
|
|