Bitmap/Flood fill: Difference between revisions

m
m (→‎{{header|Phix}}: minor tidy)
Line 2,043:
=={{header|Phix}}==
{{Trans|Go}}
Requires read_ppm() from [[Bitmap/Read_a_PPM_file#Phix|Read_a_PPM_fileRead a PPM file]], write_ppm() from [[Bitmap/Write_a_PPM_file#Phix|Write_a_PPM_fileWrite a PPM file]]. <br>
Uses the output of Bitmap_Circle.exw[[Bitmap/Midpoint_circle_algorithm#Phix|Midpoint circle algorithm]] (Circle.ppm), results may be verified with demo\rosetta\viewppm.exw
Working<lang program isPhix>-- demo\rosetta\Bitmap_FloodFill.exw, results may(runnable be verified with demo\rosetta\viewppm.exwversion)
include ppm.e -- blue, green, read_ppm(), write_ppm() (covers above requirements)
<lang Phix>function ff(sequence img, integer x, integer y, integer colour, integer target)
 
<lang Phix>function ff(sequence img, integer x, integer y, integer colour, integer target)
if x>=1 and x<=length(img)
and y>=1 and y<=length(img[x])
Line 2,060 ⟶ 2,062:
 
function FloodFill(sequence img, integer x, integer y, integer colour)
integer target = img[x][y]
return ff(img,x,y,colour,target)
end function
 
sequence img = read_ppm("Circle.ppm")
img = FloodFill(img, 200, 100, blue)
write_ppm("FloodIn.ppm",img)
img = FloodFill(img, 10, 10, green)
write_ppm("FloodOut.ppm",img)</lang>
 
=={{header|PicoLisp}}==
7,803

edits