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

stajanleafs

Thu Jan 18, 2007 6:32 pm


Paint Please Help (NVM) but use the codes

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

yah this is long i've still gotta clean it up as it has alot of useless stuff in it......

BUT
how can i chose multiple colours to paint with and switch back and forth?

it works fine with the rainbow colour i have but i would love to be able to change and not have to quit the program

NVM I GOT IT A DIFFERNT WAY BUT ANY ONE CAN USE THIS PAINT CODE






% The "MouseTrails" program.

var x, y, oldx, oldy, b : int := - 1
var c : int := 0
loop
    % Get the current location of the mouse
    mousewhere (x, y, b)
    % if the mouse has moved and the button is pressed.
    if x>183 and y>157 and (x not= oldx or y not= oldy) and b = 1 then
        % Draw a circle around the mouse location
        drawfilloval (x, y, 20, 20, c)%changes size
        % Change the color
        
        c := (c + 1) mod 16
        oldx := x
        oldy := y
    end if
    end loop