pichax by gorlist

#!/usr/bin/perlusewarnings;usestrict;useImage::Magick;my$ilevel=5;my$jlevel
=9;my$char='0';my$program=$0;if(@ARGV<2){usage();exit;}my$IMAGE=shift;my$HT
ML=shift;my$TEXT=shift;my$txt;undef$/;if(defined$TEXT){if(-e$TEXT){openIN,'
<',$TEXT;$txt=<IN>;closeIN;}else{$txt=$TEXT;}}my$im=Image::Magick->newordie
"Couldnotcreateimage";$im->Read($IMAGE);my$file=$HTML;openOUT,'>',$fileordi
e"Cannotopen$file";my($height,$width)=$im->Get('height','width');my($i,$j,$
r,$g,$b,$color,$code);my$z=0;my@special;if(defined$txt){@special=map{split/
/}split"",$txt;}<head><title>pichaxbygorlist</title><styletype="text/css">b
ody{background-color:#000000;font-family:sans-serif;font-size:8px;line-heig
ht:8px;}</style></head><body>';for($j=0;$j<$height;$j+=$jlevel){for($i=0;$i
<$width;$i+=$ilevel){$color=$im->Get("pixel[$i,$j]");($r,$g,$b,undef)=split
(/,/,$color);$code=sprintf("#%02x%02x%02x",$r>>8,$g>>8,$b>>8);if(defined$tx
t){printOUT'<spanstyle="color:'.$code.';">'.$special[$z%@special].'</span>'
;$z++;}else{printOUT'<spanstyle="color:'.$code.';">'.$char.'</span>';}}prin
tOUT'<br>';}</html>';subusage{print"\n\n";print"pichax-picturetocoloredasci
iconverter\n";print"byFivosKefallonitisakagorlist\n\n";print"Usage:$program
[image][.htmloutputfile][fileortext]\n";print"Ifyoudonotspecifythethirdargu
ment,'$char'willbeused\n";print"\n\n";}#!/usr/bin/perlusewarnings;usestrict
;useImage::Magick;my$ilevel=5;my$jlevel=9;my$char='0';my$program=$0;if(@ARG
V<2){usage();exit;}my$IMAGE=shift;my$HTML=shift;my$TEXT=shift;my$txt;undef$
/;if(defined$TEXT){if(-e$TEXT){openIN,'<',$TEXT;$txt=<IN>;closeIN;}else{$tx
t=$TEXT;}}my$im=Image::Magick->newordie"Couldnotcreateimage";$im->Read($IMA
GE);my$file=$HTML;openOUT,'>',$fileordie"Cannotopen$file";my($height,$width
)=$im->Get('height','width');my($i,$j,$r,$g,$b,$color,$code);my$z=0;my@spec
ial;if(defined$txt){@special=map{split//}split"",$txt;}<head><title>pichaxb
ygorlist</title><styletype="text/css">body{background-color:#000000;font-fa
mily:sans-serif;font-size:8px;line-height:8px;}</style></head><body>';for($
j=0;$j<$height;$j+=$jlevel){for($i=0;$i<$width;$i+=$ilevel){$color=$im->Get
("pixel[$i,$j]");($r,$g,$b,undef)=split(/,/,$color);$code=sprintf("#%02x%02
x%02x",$r>>8,$g>>8,$b>>8);if(defined$txt){printOUT'<spanstyle="color:'.$cod
e.';">'.$special[$z%@special].'</span>';$z++;}else{printOUT'<spanstyle="col
or:'.$code.';">'.$char.'</span>';}}printOUT'<br>';}</html>';subusage{print"
\n\n";print"pichax-picturetocoloredasciiconverter\n";print"byFivosKefalloni
tisakagorlist\n\n";print"Usage:$program[image][.htmloutputfile][fileortext]
\n";print"Ifyoudonotspecifythethirdargument,'$char'willbeused\n";print"\n\n
";}#!/usr/bin/perlusewarnings;usestrict;useImage::Magick;my$ilevel=5;my$jle
vel=9;my$char='0';my$program=$0;if(@ARGV<2){usage();exit;}my$IMAGE=shift;my
$HTML=shift;my$TEXT=shift;my$txt;undef$/;if(defined$TEXT){if(-e$TEXT){openI
N,'<',$TEXT;$txt=<IN>;closeIN;}else{$txt=$TEXT;}}my$im=Image::Magick->newor
die"Couldnotcreateimage";$im->Read($IMAGE);my$file=$HTML;openOUT,'>',$fileo
rdie"Cannotopen$file";my($height,$width)=$im->Get('height','width');my($i,$
j,$r,$g,$b,$color,$code);my$z=0;my@special;if(defined$txt){@special=map{spl