Anonymous user
Bitmap/Flood fill: Difference between revisions
m
→{{header|REXX}}: added whitespace.
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
m (→{{header|REXX}}: added whitespace.) |
||
Line 2,280:
white= '111111111111111111111111'b /* " " white " " " */
/*image is defined to the test image. */
hx= 125;
area= white; call fill 125, 25, red
area= black; call fill 125, 125, green
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
fill: procedure expose image. hx hy area; parse arg x,y,fill_color /*obtain the args.*/
if x<1 | x>hx | y<1 | y>hy then return /*X or Y are outside of the image area*/
pixel= image.x.y
if pixel \== area then return
/*with the fill_color, or we are not */
/*within the area to be filled. */
image.x.y=
pixel= @(x , y-1);
pixel= @(x-1, y );
pixel= @(x+1, y );
pixel= @(x , y+1);
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
| |||