Re: Printing an Image directly to HTML

Not exactly what you're trying to do, but it works with most anything that can display a <table> :)

use GD;$f='#ffffff';$T=table;sub p{print@_}p"<body bgcolor=$f>";for(@A
+RGV){
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>"}
[download]

Comment on Re: Printing an Image directly to HTML Download Code