aaages back, i posted a really really simple programme i made with which you could draw multicoloured lines on the screen. since then i havent done much programming until recently i looked at the programme and thought i might be able to add stuff to it.
I got working at it and have made a really really simple drawing programme. It's very easy to use and was not supposed to be the best programme ever made, just something for a bit of fun
So here it is
`******************************************************
`|Creating Color Pallette |START|
`******************************************************
red=(255):green=(0):blue=(0):ink RGB(red,green,blue),RGB(red,green,blue)
box 30,30,70,70
red=(255):green=(150):blue=(0):ink RGB(red,green,blue),RGB(red,green,blue)
box 30,80,70,120
red=(255):green=(255):blue=(0):ink RGB(red,green,blue),RGB(red,green,blue)
box 30,130,70,170
red=(0):green=(255):blue=(0):ink RGB(red,green,blue),RGB(red,green,blue)
box 30,180,70,220
red=(0):green=(150):blue=(255):ink RGB(red,green,blue),RGB(red,green,blue)
box 30,230,70,270
red=(0):green=(0):blue=(255):ink RGB(red,green,blue),RGB(red,green,blue)
box 30,280,70,320
red=(150):green=(0):blue=(150):ink RGB(red,green,blue),RGB(red,green,blue)
box 30,330,70,370
red=(255):green=(255):blue=(255):ink RGB(red,green,blue),RGB(red,green,blue)
box 30,380,70,420
line 90,0,90,480
text 30,450,"Colour"
text 92,450,"Left-Click to set the start point of your line. Right-Click to set the end point of the line."
`******************************************************
`|Creating Color Pallette |END|
`******************************************************
`******************************************************
`|Main Loop |START|
`******************************************************
do
sync
box 40,430,60,450
`***************************
`Memory |START|
`***************************
if x1#=<91 then x1#=mx1#:y1#=my1#
`***************************
`Memory |END|
`***************************
`***************************
`Setting Co-ordinates|START|
`***************************
if mouseclick()=1 then x1#=mouseX():y1#=mouseY()
if mouseclick()=1 and mouseX()=>90 then mx1#=mouseX():my1#=mouseY()
if mouseclick()=2 and mouseX()=>90 then x2#=mouseX():y2#=mouseY():line x1#,y1#,x2#,y2#
if mouseclick()=2 and mouseX()=<90 then y2#=mouseY():line x1#,y1#,91,y2#
`***************************
`Setting Co-ordinates |END|
`***************************
`***************************
`Color Pallette |START|
`***************************
if x1#=<70 and x1#=>30 and y1#=>30 and y1#=<70 then red=(255):green=(0):blue=(0):ink RGB(red,green,blue),RGB(red,green,blue)
if x1#=<70 and x1#=>30 and y1#=>80 and y1#=<120 then red=(255):green=(150):blue=(0):ink RGB(red,green,blue),RGB(red,green,blue)
if x1#=<70 and x1#=>30 and y1#=>130 and y1#=<170 then red=(255):green=(255):blue=(0):ink RGB(red,green,blue),RGB(red,green,blue)
if x1#=<70 and x1#=>30 and y1#=>180 and y1#=<220 then red=(0):green=(255):blue=(0):ink RGB(red,green,blue),RGB(red,green,blue)
if x1#=<70 and x1#=>30 and y1#=>230 and y1#=<270 then red=(0):green=(150):blue=(255):ink RGB(red,green,blue),RGB(red,green,blue)
if x1#=<70 and x1#=>30 and y1#=>280 and y1#=<320 then red=(0):green=(0):blue=(255):ink RGB(red,green,blue),RGB(red,green,blue)
if x1#=<70 and x1#=>30 and y1#=>330 and y1#=<370 then red=(150):green=(0):blue=(150):ink RGB(red,green,blue),RGB(red,green,blue)
if x1#=<70 and x1#=>30 and y1#=>380 and y1#=<420 then red=(255):green=(255):blue=(255):ink RGB(red,green,blue),RGB(red,green,blue)
`***************************
`Color Pallette |END|
`***************************
sync
loop
`******************************************************
`|Main Loop |END|
`******************************************************
Later to come i think ill add some kind of *paintbrush* type tool but i just wanted to share this with you guys to see what ya think.
