Floodfill Function

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|544\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Misc

mike_g	Created : 11 January 2007 Language : Blitz Floodfill Function
Heres a little floodfill function I made in case anyone needs one. Its kind of slow and simple so if anyone has a better floodfill routine I would like to see it Type fill Field x, y End Type ;---------------------------------------; ;************ DEMO PROG **********; ;---------------------------------------; SeedRnd MilliSecs() SetBuffer BackBuffer() For i = 1 To 10 Oval Rand(0, 200), Rand(0, 200), Rand(10, 100), Rand(10, 100), 0 Next While Not KeyHit(1) If MouseHit(1) Then FLOODFILL(MouseX(), MouseY(), $ff00ff) Flip Wend ;---------------------------------------; ;*************************************; ;---------------------------------------; Function FLOODFILL(x_pos, y_pos, new_col) f.fill = New fill f\x = x_pos: f\y = y_pos old_col = ReadPixel(f\x, f\y) count = 1 LockBuffer While count > 0 count = 0 For f.fill = Each fill temp = ReadPixel(f\x, f\y) If temp = old_col WritePixelFast f\x, f\y, new_col x_pos = f\x: y_pos = f\y ;move point left If x_pos > 0 Then f\x = x_pos -1 ;new point to the right If x_pos < GraphicsWidth()-1 f.fill = New fill f\x = x_pos +1: f\y = y_pos EndIf ;new point above If y_pos > 0 f.fill = New fill f\x = x_pos: f\y = y_pos-1 EndIf ;new point below If y_pos < GraphicsHeight()-1 f.fill = New fill f\x = x_pos: f\y = y_pos+1 EndIf Else Delete f.fill EndIf count = count + 1 Next Wend UnlockBuffer End Function --v

Comments

Comments