Select Code to Download

mce_flow_s sub { draw_line($_) }, 0, $h - 1;

# synopsis: perl mandelbrot.pl 1024 > image.pbm
#
...
print "P4\n$w $h\n"; # PBM image header
print @picture;