[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]

[...]

    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


</pre>
<!--X-Body-of-Message-End-->
<!--X-MsgBody-End-->
<!--X-Follow-Ups-->
<hr>
<ul><li><strong>Follow-Ups</strong>:
<ul>
<li><strong><a name="00714" href="msg00714.html">[ale] OO Perl</a></strong>
<ul><li><em>From:</em> jknapka at kneuro.net (Joe Knapka)</li></ul></li>
</ul></li></ul>
<!--X-Follow-Ups-End-->
<!--X-References-->
<ul><li><strong>References</strong>:
<ul>
<li><strong><a name="00538" href="msg00538.html">[ale] OO Perl</a></strong>
<ul><li><em>From:</em> cfowler at outpostsentinel.com (Christopher Fowler)</li></ul></li>
<li><strong><a name="00576" href="msg00576.html">[ale] OO Perl</a></strong>
<ul><li><em>From:</em> esoteric at 3times25.net (Geoffrey)</li></ul></li>
<li><strong><a name="00591" href="msg00591.html">[ale] OO Perl</a></strong>
<ul><li><em>From:</em> cfowler at outpostsentinel.com (Christopher Fowler)</li></ul></li>
<li><strong><a name="00608" href="msg00608.html">[ale] OO Perl</a></strong>
<ul><li><em>From:</em> mhirsch at nubridges.com (Michael D. Hirsch)</li></ul></li>
</ul></li></ul>
<!--X-References-End-->
<!--X-BotPNI-->
<ul>
<li>Prev by Date:
<strong><a href="msg00612.html">[ale] Woof</a></strong>
</li>
<li>Next by Date:
<strong><a href="msg00614.html">[ale] OO Perl</a></strong>
</li>
<li>Previous by thread:
<strong><a href="msg00608.html">[ale] OO Perl</a></strong>
</li>
<li>Next by thread:
<strong><a href="msg00714.html">[ale] OO Perl</a></strong>
</li>
<li>Index(es):
<ul>
<li><a href="maillist.html#00613"><strong>Date</strong></a></li>
<li><a href="threads.html#00613"><strong>Thread</strong></a></li>
</ul>
</li>
</ul>

<!--X-BotPNI-End-->
<!--X-User-Footer-->
<!--X-User-Footer-End-->
</body>
</html>