Computer Science Canada Paint Please Help (NVM) but use the codes |
| Author: | stajanleafs [ Thu Jan 18, 2007 6:32 pm ] |
| Post subject: | 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 Quote: % 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[/list] |
|