-----------------------------------

Hasassin

Mon May 25, 2009 9:44 pm


Paint Program Issue.

-----------------------------------

Hello everyone. 

I'm having an issue with my paint program i'm doing for a class assignment. I'm trying to get the pencil or freedraw tool to work, however, it only draws dots, and if I hold the mouse down, it doesn't draw lines, freely.

Can anyone help me out? Thanks

And here is the code:


%screen size
setscreen ("graphics:800;600")


%procedure drawbutton down
procedure buttonDraw (coordx, coordy, coordx2, coordy2, black : int)
    drawbox (coordx, coordy, coordx2, coordy2, black)
    drawfill (coordx + 1, coordy + 1, 8, black)
end buttonDraw


%procedure colour button
procedure colourbutton (coordone, coordtwo, cordx2, cordy2, clr : int)
    drawbox (coordone, coordtwo, cordx2, cordy2, black)
    drawfill (coordone + 1, coordtwo + 1, 8, black)
end colourbutton


% declare variables
var colournum, buttonnumber, buttonupdown : int
var objectype, mousego : int
var button : int
var x, y, y2, x2 : int
% Draw the main screen
drawfillbox (0, 0, maxx, maxy, 100) % grey background
drawfillbox (150, 80, maxx, 575, white) % white canvas
% drawbox (150, 80, maxx, 50, black) % under the canvas


%draw the buttons up, drawing a line function
buttonDraw (0, 535, 130, 575, black)
drawline (5, 540, 125, 570, black)
buttonDraw (0, 490, 130, 530, black)
drawoval (65, 510, 15, 15, black)
buttonDraw (0, 445, 130, 485, black)
drawbox (15, 450, 115, 480, black)
buttonDraw (0, 400, 130, 440, black)
drawmapleleaf (40, 405, 90, 435, black)
buttonDraw (0, 355, 130, 395, black)
Draw.Text ("Fill", 45, 360, Font.New ("serif:20:bold"), black)
buttonDraw (0, 305, 130, 350, black)
Draw.Text ("Pencil", 30, 315, Font.New ("serif:20:bold"), black)
buttonDraw (0, 255, 130, 300, black)
Draw.Text ("Erase", 30, 259, Font.New ("serif:20:bold"), black)
buttonDraw (0, 205, 130, 250, black)
Draw.Text ("Close", 30, 215, Font.New ("serif:20:bold"), black)


% the colour buttons
colourbutton (150, 50, 190, 80, black)
drawfill (152, 52, red, black)
colourbutton (195, 50, 240, 80, black)
drawfill (202, 52, blue, black)
colourbutton (245, 50, 285, 80, black)
drawfill (257, 52, white, black)
colourbutton (290, 50, 340, 80, black)
drawfill (292, 52, grey, black)
colourbutton (345, 50, 395, 80, black)
drawfill (357, 52, purple, black)
colourbutton (400, 50, 450, 80, black)
drawfill (402, 52, yellow, black)
colourbutton (455, 50, 505, 80, black)
drawfill (457, 52, green, black)
colourbutton (510, 50, 560, 80, black)
drawfill (512, 52, 43, black)


% LOOP

View.Update
loop
    % IF user clicks on one of the drawing tools THEN
    if Mouse.ButtonMoved ("down") then
        Mouse.ButtonChoose ("singlebutton")
        Mouse.ButtonWait ("down", x, y, x2, y2)
        if (x > 1 and x2 < 574) and (y > 536 and y2 < 574) then
            drawline (0, 575, 130, 575, black)
            drawline (0, 535, 0, 575, black)
            drawline (130, 535, 130, 575, white)
            drawline (0, 535, 130, 535, white)
            objectype := 1
        elsif (x > 150 and x2 < maxx) and (y > 80 and y2 < 575) then
            View.ClipSet (150, 80, maxx, 575)
            mousewhere (x, y, button)
            Draw.Dot (x, y, black)
        end if
    end if
end loop


-----------------------------------

DemonWasp

Mon May 25, 2009 11:57 pm


RE:Paint Program Issue.

-----------------------------------

The problem is that your mouse can move multiple pixels before you're able to get its location again. What you should do to fix this is make the simple interpolation that the mouse travelled along a straight line between the current position and the last position.

Save the last position and just draw a line to it instead of Draw.Dot().