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

Asian Brian

Thu Mar 03, 2005 7:29 pm


Fixing the paint bucket in paint program

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

Hey all, its me who created the program betaPAINTER ++...
I have listen to some suggestions and had created a better version of my program. The only thing that still bothers me is my paint bucket. as of right now i only have a simple drawfill command. Can somebody help me?

4 tools to go... all will be based with the paint bucket.


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

Andy

Thu Mar 03, 2005 8:07 pm



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

its actually quite a simple program... all you need is a simple recursion around the points... here is the code


setscreen ("graphics:300;300,nobuttonbar")
drawstar (0, 0, 300, 300, blue)

var mx, my, mb : int

proc fill2 (x, y, clr, oclr : int)
    if x >= 0 and y >= 0 and x