Code archives/Miscellaneous/Paint program

This code has been declared by its author to be Public Domain code.

Download source code

Paint program by blitz monkey
(Posted 19 years ago)
This is a short basic paint program that involves pixil ploting and short simple functions. Im 13 WOO! 
Graphics 1280,960
Global sx=50
Global sy=50
Global r=255
Global g=255
Global b=255
Global save=0
Global load=0
Global width=GraphicsWidth():height=GraphicsHeight()

Function size()
Locate 0,60
sx=Input("size x ")
sy=Input("size y ")
End Function

Function colorsel()
Locate 0,60
r=Input("red " )
g=Input("green " )
b=Input("blue " )
End Function 

Function Inser()
Color r,b,g
Locate MouseX(),MouseY()
d1$=Input$("")
End Function




While Not KeyDown(1)
If KeyDown(46) Colorsel
If KeyDown(56) Then r=0:g=0:b=0
If KeyDown(59) Then 
Color r,g,b
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
Plot Rnd(width),Rnd(height)
EndIf
If KeyHit(29) size
If KeyHit(19)r=255:g=0:b=0
If KeyHit(34)r=0:g=255:b=0
If KeyHit(48)r=0:g=0:b=255
If KeyHit(17)r=255:g=255:b=255
If KeyHit(25)r=111:g=0:b=111
If KeyHit(21)r=255:g=255:b=0
If KeyHit(20)r=0:g=255:b=255
If KeyHit(24)r=249:g=81:b=0
If KeyHit(31)r=98:g=98:b=0
If KeyHit(210) Inser
If MouseDown(1)
Color r,g,b
Plot MouseX(),MouseY()
Plot MouseX()+1,MouseY()
Plot MouseX(),MouseY()+1
Plot MouseX()-1,MouseY()
Plot MouseX(),MouseY()-1
Plot MouseX(),MouseY()
Plot MouseX()+1,MouseY()
Plot MouseX(),MouseY()+1
Plot MouseX()-1,MouseY()
Plot MouseX(),MouseY()-1
EndIf
If MouseDown(2)
Color 0,0,0
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
EndIf
If KeyHit(211)
Cls
EndIf
If MouseDown(3)
Color r,g,b
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy)
EndIf
Color 0,0,0
Plot -1+Rnd(100),35+Rnd(100)
Plot -1+Rnd(100),35+Rnd(100)
Plot -1+Rnd(100),35+Rnd(100)
Plot -1+Rnd(100),35+Rnd(100)
Plot -1+Rnd(100),35+Rnd(100)
Plot -1+Rnd(100),35+Rnd(100)
Plot -1+Rnd(100),35+Rnd(100)
Plot -1+Rnd(100),35+Rnd(100)
Color 255,255,255
Text 0,20,"Keys are S,R,G,B,T,Y,O,P,END,INSERT,F1,F5,DELETE,Left CONTROL,left ALT,C"
Wend