Paint program project. Anybody extends this start snippet?
Posted: Tue May 14, 2013 10:45 am
graphics
graphics clear .8,.8,.8
draw size 3 ! draw color 0,0,0
button "cls" title "clear" at 310,900 size 70,50
button "pen1" title "thin" at 10,920 size 90,30
button "pen2" title "medium" at 110,920 size 90,30
button "pen3" title "thick" at 210,920 size 90,30
button "black" title "black" at 390,920 size 90,30
button "red" title "red" at 490,920 size 90,30
button "green" title "green" at 590,920 size 90,30
button "blue" title "blue" at 690,920 size 70,30
loop1:
if button_pressed("cls") then graphics clear .8,.8,.8
if button_pressed("pen1") then draw size 1
if button_pressed("pen2") then draw size 3
if button_pressed("pen3") then draw size 6
if button_pressed("black") then draw color 0,0,0
if button_pressed("red") then draw color 1,0,0
if button_pressed("green") then draw color 0,1,0
if button_pressed("blue") then draw color 0,0,1
x=touch_x(0)
if x=-1 then
up=0 ! goto loop1
end if
y=touch_y(0) ! if y=-1 then loop1
if up=0 then
up=1 ! draw to x,y ! goto loop1
end if
draw line to x,y
goto loop1
graphics clear .8,.8,.8
draw size 3 ! draw color 0,0,0
button "cls" title "clear" at 310,900 size 70,50
button "pen1" title "thin" at 10,920 size 90,30
button "pen2" title "medium" at 110,920 size 90,30
button "pen3" title "thick" at 210,920 size 90,30
button "black" title "black" at 390,920 size 90,30
button "red" title "red" at 490,920 size 90,30
button "green" title "green" at 590,920 size 90,30
button "blue" title "blue" at 690,920 size 70,30
loop1:
if button_pressed("cls") then graphics clear .8,.8,.8
if button_pressed("pen1") then draw size 1
if button_pressed("pen2") then draw size 3
if button_pressed("pen3") then draw size 6
if button_pressed("black") then draw color 0,0,0
if button_pressed("red") then draw color 1,0,0
if button_pressed("green") then draw color 0,1,0
if button_pressed("blue") then draw color 0,0,1
x=touch_x(0)
if x=-1 then
up=0 ! goto loop1
end if
y=touch_y(0) ! if y=-1 then loop1
if up=0 then
up=1 ! draw to x,y ! goto loop1
end if
draw line to x,y
goto loop1