[ale] OO Perl

Fri Apr 16 16:39:48 EDT 2004

>>>>> "Michael" == Michael D Hirsch <mhirsch at nubridges.com> writes:

[...]

    Michael> Wow.  I've never seen pretty-printed line noise before!
    Michael> :-)

<Austrailian accent>
That's not line noise . . .

use GD;$f='#ffffff';$T=table;sub p{print at _}p"<body bgcolor=$f>";for(@ARGV){
open*G,$_ or(warn("$_: $!")&&next);$g=GD::Image->newFromGif(G)||(warn$_,
": GD error"and next);@c=map{$_!=$g->transparent?sprintf'#'.('%.2x'x3),$g->
rgb($_):$f}0..$g->colorsTotal;p"<$T border=0 cellpadding=0 cellspacing=0>";(
$x,$y)=$g->getBounds;for$j(0..$y){p"<tr>";for($i=0;$i<$x;$i++){$s=1;$s++&&
$i++while($i+1<$x&&$g->getPixel($i+1,$j)==$g->getPixel($i,$j));p"
<td bgcolor=",$c[$g->getPixel($i,$j)]," colspan=$s>&nbsp"}}p"</$T>"}

*That's* line noise.
</mildly obscure 80's movie reference>

-- 
Fletch                | "If you find my answers frightening,       __`'/|
fletch at phydeaux.org   |  Vincent, you should cease askin'          \ o.O'
                      |  scary questions." -- Jules                =(___)=
                      |                                               U