simple paint

[viperfan7]

heres my first paint program, the midde/ mouse wheel mouse button changes the colour randomly, old down the right mouse button the erase, and left to draw, it shows the colour number in the current colour at the top left corner

code:

/*By :viperfan7  made it in one day the left mouse button is to draw, the right mouse button is to erase, and the middle/mouse wheel is to change the colour randomly  */ View.Set ("graphics:max;max,offscreenonly") Mouse.ButtonChoose ("multibutton") var x, y, button, c : int %procedure for painting proc paint     c := Rand.Int (1, maxcolour)     colour (c)     put c     loop         Mouse.Where (x, y, button)         if button = 1 then             Draw.Dot (x, y, c)             drawdot (x + 1, y + 1, c)             drawdot (x - 1, y - 1, c)             drawdot (x + 1, y - 1, c)             drawdot (x - 1, y + 1, c)             drawdot (x, y + 1, c)             drawdot (x, y - 1, c)             drawdot (x + 1, y, c)             drawdot (x - 1, y, c)         elsif button = 100 then             Draw.Dot (x, y, 0)             drawdot (x + 1, y + 1, 0)             drawdot (x - 1, y - 1, 0)             drawdot (x + 1, y - 1, 0)             drawdot (x - 1, y + 1, 0)             drawdot (x, y + 1, 0)             drawdot (x, y - 1, 0)             drawdot (x + 1, y, 0)             drawdot (x - 1, y, 0)         elsif button = 10 then             delay (500)             c := Rand.Int (1, maxcolour)             drawfillbox (0, maxy - 20, 50, maxy, 0)             locate (1, 1)             colour (c)             put c ..         end if         View.Update     end loop end paint %main program, short I know :P paint

[Voltage128]

ok SO. good for your first paint program. The wheel mouse button doesnt work for my computer, but that could just be my computer. When u go to draw in the program it also skips. You could improve this by making the it draw a constant line. You can get ideas from other peoples paint programs on this forum.

[viperfan7]

I have tried to get it to draw a constant line, I am looking for how to do it and thx for the pointers, I'll also make it so you can also change the colour with the keyboard

[uberwalla]

ok i agree with voltage it is good for ur first paint program.

although i get how he was probably confused. i thought at first that when u scrolled up and down with the mouse it changed colors but u had to click the scroll

my pointers would be to make it that since ur not using the scroll to make it so that when u hit the scroll button it goes up ONE color (not change to a random color ) and use the right click to go down or somthing. (because the right click isnt used anyway )

good job

[Clayton]

If you are having troubles with getting a solid line, fool around with this, and see if you can get it to work:

Turing:

var x, y, b : int := 0 var oldx, oldy : int := 0 loop     Mouse.Where (x, y, b)     if b >= 1 then         Draw.Dot (oldx, oldy, black)         Draw.Line (oldx, oldy, x, y, black)     end if     oldx := x     oldy := y end loop

[viperfan7]

thx I will