my @rgb = $img->rgb( $img->getPixel($x, $y) ); if ( 3 == grep !$_, @rgb ) { print "*"; } else { print " "; }
In reply to (ar0n) Re: Perl BMP -- Text
by ar0n
in thread Perl BMP -- Text
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |