flood fill ?

[madscijr]

Thanks for your reply!

Looks like only solid border colors work. here is my test:
...
I notice in Wiki bordercolor% is an integer or long, need unsigned long to handle alphas.

Yep, which is not what I'm looking for... Have you seen any good "flood fill" examples? 

Code: (Select All)

Screen _NewImage(800, 600, 32)
_ScreenMove 0, 0
Cls , _RGB32(0, 0, 0)

' clear screen and draw circles
Cls , _RGB32(0, 0, 0)
x = 0: y = 0
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(255, 0, 0) ' red
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(0, 255, 0) ' green
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(0, 0, 255) ' blue
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(0, 255, 255) ' cyan
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(255, 255, 0) ' yellow
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(255, 0, 255) ' magenta

Color _RGB32(0, 0, 0), _RGB32(255, 255, 255): Locate 10, 1
Input "press Enter to try fill with paint with border _RGB32(0, 0, 0, 100)"; in$

' How to fill in the background only, ie specify anything EXCEPT the background color as "border"?
x = 10: Paint (x, y), _RGB32(255, 255, 255), _RGB32(0, 0, 0, 100)

Color _RGB32(0, 0, 0), _RGB32(255, 255, 255): Locate 10, 1
Input "press Enter to continue"; in$

' clear screen and draw circles
Cls , _RGB32(0, 0, 0)
x = 0: y = 0
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(255, 0, 0) ' red
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(0, 255, 0) ' green
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(0, 0, 255) ' blue
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(0, 255, 255) ' cyan
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(255, 255, 0) ' yellow
x = x + 100: y = y + 75: Circle (x, y), 50, _RGB32(255, 0, 255) ' magenta

Color _RGB32(0, 0, 0), _RGB32(255, 255, 255): Locate 10, 1
Input "press Enter to try fill with paint with border _RGB32(0, 0, 255) "; in$

' Just fill in the background?
x = 10: Paint (x, y), _RGB32(255, 255, 255), _RGB32(0, 0, 255) ' to circle border

Color _RGB32(0, 0, 0), _RGB32(255, 255, 255): Locate 10, 1
Input "Done. Press Enter to exit"; in$
System