#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notrunningundersomeshell#pcg@goof.comuseGimp;useGimp::Fu;useGimp::UI;useFcntl;my%replace=("&"=>"&","
<"=>"<",">"=>">",);#readsomefile,maketextoutofitsubread_text{my$fh=shift;local$/;my$data=<$fh>;$data;}register"file_colorhtml_save","Savestheimageascolour
edhtmltext","=pod","MarcLehmann","MarcLehmann<pcg\@goof.com>","1999-11-22","<Save>/COLORHTML","*",[[PF_RADIO,"character_source","wheretotakethecharactersfrom",0
,[sourcecode=>0,textfile=>1,filename=>2]],[PF_FILE,"characters","thefilenametoreadorthecharacterstouse",""],[PF_STRING,"font_size","thehtmlfontsize(1..7or-7..+7
)",2],[PF_BOOL,"compatible","html-4.0compliancy?",1],[PF_BOOL,"closetag","addclosingtag?",1],],sub{my($img,$drawable,$filename,$filename2,$source,$text,$size,$h
tml40,$closetag)=@_;my($new_img,$new_drawable);my$max;my$export=Gimp::UI::export_image($new_img=$img,$new_drawable=$drawable,"COLORHTML",CAN_HANDLE_RGB);die__"e
xportfailed"if$export==EXPORT_CANCEL;my($w,$h)=($new_drawable->width,$new_drawable->height);Gimp->tile_cache_ntiles($w/Gimp->tile_width+1);sysopenFILE,$filename
,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoopen'$filename'forwriting:$!\n";my$data;if($source==0){seekDATA,0,0;$data=read_text*DATA;}elsif($source==1){local*FILE;
openFILE,"<$text"ordie"$text:$!\n";$data=read_text*FILE;}elsif($source==2){$data=$text;}my@data;$data=~y/\x21-\x7f//cd;@data=split//,$data;for(@data){s/([&<>])/
$replace{$1}/e;}@data=("X")x80unless@data;my@chars;my$region=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Saving'$filename'asCOLORHTML...";$closetag=$
closetag?"</font>":"";printFILE"<html><bodybgcolor=black>\n<fontsize=\"$size\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=$region->get_row2(0,$y,$w);push@chars,@dat
awhile@chars<$w;if($html40){$pel=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1)."\">".shift(@chars).$closetag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".unpack("H*",$1
).">".shift(@chars).$closetag;}ges;}printFILE$pel,"\n";updateProgress$y/$h;}printFILE"</pre>\n</html>\n";$new_img->deleteif$export==EXPORT_EXPORT;();};Gimp::on_
query{Gimp->register_save_handler("file_colorhtml_save","colorhtml","");};exitmain;=head1COLORHTMLFILEFORMATThisfilesavefilterwritesalargeregulargridfilledwithc
olouredcharacters.Thecharacterscanbestoredinfileanddon'thaveanythingtodowiththeimage.Thecolourofeachcharacter,though,istakenfromtheimagetosave.Thiscreatessomeki
ndofmosaiceffectwithcharacters.Thepicturesshouldbelimitedtoabout120x120pixels,sincemostbrowsersdonotviewlargerimages.Theaspectratiodependsonthefixed-widthfontth
ebrowserisusing,andisusuallyaround2:1(soyoushouldsquashyourimageaccordingly).TheFONTtagscanbesavedeitherHTML-4.0compliant(C<fontcolor="#rrggbb">)orinaproprietar
yformatmostbrowserssupport(C<fontcolor=rrggbb>).Tosaveevenmorespaceyoucanleaveouttheclosingtag(C</font>),butthiswillpotentiallyleavethousandsoffontelementsopeni
nthebrowser,andwilldisturbthecurrentfontcolour.=cut__END__#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notrunningundersomeshell#pcg@goof.comuseGimp;u
seGimp::Fu;useGimp::UI;useFcntl;my%replace=("&"=>"&","<"=>"<",">"=>">",);#readsomefile,maketextoutofitsubread_text{my$fh=shift;local$/;my$data=<$fh>;$
data;}register"file_colorhtml_save","Savestheimageascolouredhtmltext","=pod","MarcLehmann","MarcLehmann<pcg\@goof.com>","1999-11-22","<Save>/COLORHTML","*",[[PF
_RADIO,"character_source","wheretotakethecharactersfrom",0,[sourcecode=>0,textfile=>1,filename=>2]],[PF_FILE,"characters","thefilenametoreadorthecharacterstouse
",""],[PF_STRING,"font_size","thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"compatible","html-4.0compliancy?",1],[PF_BOOL,"closetag","addclosingtag?",1],],sub{my(
$img,$drawable,$filename,$filename2,$source,$text,$size,$html40,$closetag)=@_;my($new_img,$new_drawable);my$max;my$export=Gimp::UI::export_image($new_img=$img,$
new_drawable=$drawable,"COLORHTML",CAN_HANDLE_RGB);die__"exportfailed"if$export==EXPORT_CANCEL;my($w,$h)=($new_drawable->width,$new_drawable->height);Gimp->tile
_cache_ntiles($w/Gimp->tile_width+1);sysopenFILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoopen'$filename'forwriting:$!\n";my$data;if($source==0){seekDA
TA,0,0;$data=read_text*DATA;}elsif($source==1){local*FILE;openFILE,"<$text"ordie"$text:$!\n";$data=read_text*FILE;}elsif($source==2){$data=$text;}my@data;$data=
~y/\x21-\x7f//cd;@data=split//,$data;for(@data){s/([&<>])/$replace{$1}/e;}@data=("X")x80unless@data;my@chars;my$region=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);i
nitProgress__"Saving'$filename'asCOLORHTML...";$closetag=$closetag?"</font>":"";printFILE"<html><bodybgcolor=black>\n<fontsize=\"$size\"><pre>\n";for(my$y=0;$y<
$h;$y++){my$pel=$region->get_row2(0,$y,$w);push@chars,@datawhile@chars<$w;if($html40){$pel=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1)."\">".shift(@chars).$close
tag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".unpack("H*",$1).">".shift(@chars).$closetag;}ges;}printFILE$pel,"\n";updateProgress$y/$h;}printFILE"</pre>\n</html>\
n";$new_img->deleteif$export==EXPORT_EXPORT;();};Gimp::on_query{Gimp->register_save_handler("file_colorhtml_save","colorhtml","");};exitmain;=head1COLORHTMLFILE
FORMATThisfilesavefilterwritesalargeregulargridfilledwithcolouredcharacters.Thecharacterscanbestoredinfileanddon'thaveanythingtodowiththeimage.Thecolourofeachch
aracter,though,istakenfromtheimagetosave.Thiscreatessomekindofmosaiceffectwithcharacters.Thepicturesshouldbelimitedtoabout120x120pixels,sincemostbrowsersdonotvi
ewlargerimages.Theaspectratiodependsonthefixed-widthfontthebrowserisusing,andisusuallyaround2:1(soyoushouldsquashyourimageaccordingly).TheFONTtagscanbesavedeith
erHTML-4.0compliant(C<fontcolor="#rrggbb">)orinaproprietaryformatmostbrowserssupport(C<fontcolor=rrggbb>).Tosaveevenmorespaceyoucanleaveouttheclosingtag(C</font
>),butthiswillpotentiallyleavethousandsoffontelementsopeninthebrowser,andwilldisturbthecurrentfontcolour.=cut__END__#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1
+"$@"}'if0;#notrunningundersomeshell#pcg@goof.comuseGimp;useGimp::Fu;useGimp::UI;useFcntl;my%replace=("&"=>"&","<"=>"<",">"=>">",);#readsomefile,maket
extoutofitsubread_text{my$fh=shift;local$/;my$data=<$fh>;$data;}register"file_colorhtml_save","Savestheimageascolouredhtmltext","=pod","MarcLehmann","MarcLehman
n<pcg\@goof.com>","1999-11-22","<Save>/COLORHTML","*",[[PF_RADIO,"character_source","wheretotakethecharactersfrom",0,[sourcecode=>0,textfile=>1,filename=>2]],[P
F_FILE,"characters","thefilenametoreadorthecharacterstouse",""],[PF_STRING,"font_size","thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"compatible","html-4.0complia
ncy?",1],[PF_BOOL,"closetag","addclosingtag?",1],],sub{my($img,$drawable,$filename,$filename2,$source,$text,$size,$html40,$closetag)=@_;my($new_img,$new_drawabl
e);my$max;my$export=Gimp::UI::export_image($new_img=$img,$new_drawable=$drawable,"COLORHTML",CAN_HANDLE_RGB);die__"exportfailed"if$export==EXPORT_CANCEL;my($w,$
h)=($new_drawable->width,$new_drawable->height);Gimp->tile_cache_ntiles($w/Gimp->tile_width+1);sysopenFILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoope
n'$filename'forwriting:$!\n";my$data;if($source==0){seekDATA,0,0;$data=read_text*DATA;}elsif($source==1){local*FILE;openFILE,"<$text"ordie"$text:$!\n";$data=rea
d_text*FILE;}elsif($source==2){$data=$text;}my@data;$data=~y/\x21-\x7f//cd;@data=split//,$data;for(@data){s/([&<>])/$replace{$1}/e;}@data=("X")x80unless@data;my
@chars;my$region=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Saving'$filename'asCOLORHTML...";$closetag=$closetag?"</font>":"";printFILE"<html><bodyb
gcolor=black>\n<fontsize=\"$size\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=$region->get_row2(0,$y,$w);push@chars,@datawhile@chars<$w;if($html40){$pel=~s{(...)}{"
<fontcolor=\"#".unpack("H*",$1)."\">".shift(@chars).$closetag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".unpack("H*",$1).">".shift(@chars).$closetag;}ges;}printFIL
E$pel,"\n";updateProgress$y/$h;}printFILE"</pre>\n</html>\n";$new_img->deleteif$export==EXPORT_EXPORT;();};Gimp::on_query{Gimp->register_save_handler("file_colo
rhtml_save","colorhtml","");};exitmain;=head1COLORHTMLFILEFORMATThisfilesavefilterwritesalargeregulargridfilledwithcolouredcharacters.Thecharacterscanbestoredin
fileanddon'thaveanythingtodowiththeimage.Thecolourofeachcharacter,though,istakenfromtheimagetosave.Thiscreatessomekindofmosaiceffectwithcharacters.Thepicturessh
ouldbelimitedtoabout120x120pixels,sincemostbrowsersdonotviewlargerimages.Theaspectratiodependsonthefixed-widthfontthebrowserisusing,andisusuallyaround2:1(soyous
houldsquashyourimageaccordingly).TheFONTtagscanbesavedeitherHTML-4.0compliant(C<fontcolor="#rrggbb">)orinaproprietaryformatmostbrowserssupport(C<fontcolor=rrggb
b>).Tosaveevenmorespaceyoucanleaveouttheclosingtag(C</font>),butthiswillpotentiallyleavethousandsoffontelementsopeninthebrowser,andwilldisturbthecurrentfontcolo
ur.=cut__END__#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notrunningundersomeshell#pcg@goof.comuseGimp;useGimp::Fu;useGimp::UI;useFcntl;my%replace=(
"&"=>"&","<"=>"<",">"=>">",);#readsomefile,maketextoutofitsubread_text{my$fh=shift;local$/;my$data=<$fh>;$data;}register"file_colorhtml_save","Savesth
eimageascolouredhtmltext","=pod","MarcLehmann","MarcLehmann<pcg\@goof.com>","1999-11-22","<Save>/COLORHTML","*",[[PF_RADIO,"character_source","wheretotakethecha
ractersfrom",0,[sourcecode=>0,textfile=>1,filename=>2]],[PF_FILE,"characters","thefilenametoreadorthecharacterstouse",""],[PF_STRING,"font_size","thehtmlfontsiz
e(1..7or-7..+7)",2],[PF_BOOL,"compatible","html-4.0compliancy?",1],[PF_BOOL,"closetag","addclosingtag?",1],],sub{my($img,$drawable,$filename,$filename2,$source,
$text,$size,$html40,$closetag)=@_;my($new_img,$new_drawable);my$max;my$export=Gimp::UI::export_image($new_img=$img,$new_drawable=$drawable,"COLORHTML",CAN_HANDL
E_RGB);die__"exportfailed"if$export==EXPORT_CANCEL;my($w,$h)=($new_drawable->width,$new_drawable->height);Gimp->tile_cache_ntiles($w/Gimp->tile_width+1);sysopen
FILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoopen'$filename'forwriting:$!\n";my$data;if($source==0){seekDATA,0,0;$data=read_text*DATA;}elsif($source==
1){local*FILE;openFILE,"<$text"ordie"$text:$!\n";$data=read_text*FILE;}elsif($source==2){$data=$text;}my@data;$data=~y/\x21-\x7f//cd;@data=split//,$data;for(@da
ta){s/([&<>])/$replace{$1}/e;}@data=("X")x80unless@data;my@chars;my$region=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Saving'$filename'asCOLORHTML..
.";$closetag=$closetag?"</font>":"";printFILE"<html><bodybgcolor=black>\n<fontsize=\"$size\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=$region->get_row2(0,$y,$w);p
ush@chars,@datawhile@chars<$w;if($html40){$pel=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1)."\">".shift(@chars).$closetag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".
unpack("H*",$1).">".shift(@chars).$closetag;}ges;}printFILE$pel,"\n";updateProgress$y/$h;}printFILE"</pre>\n</html>\n";$new_img->deleteif$export==EXPORT_EXPORT;
();};Gimp::on_query{Gimp->register_save_handler("file_colorhtml_save","colorhtml","");};exitmain;=head1COLORHTMLFILEFORMATThisfilesavefilterwritesalargeregularg
ridfilledwithcolouredcharacters.Thecharacterscanbestoredinfileanddon'thaveanythingtodowiththeimage.Thecolourofeachcharacter,though,istakenfromtheimagetosave.Thi
screatessomekindofmosaiceffectwithcharacters.Thepicturesshouldbelimitedtoabout120x120pixels,sincemostbrowsersdonotviewlargerimages.Theaspectratiodependsonthefix
ed-widthfontthebrowserisusing,andisusuallyaround2:1(soyoushouldsquashyourimageaccordingly).TheFONTtagscanbesavedeitherHTML-4.0compliant(C<fontcolor="#rrggbb">)o
rinaproprietaryformatmostbrowserssupport(C<fontcolor=rrggbb>).Tosaveevenmorespaceyoucanleaveouttheclosingtag(C</font>),butthiswillpotentiallyleavethousandsoffon
telementsopeninthebrowser,andwilldisturbthecurrentfontcolour.=cut__END__#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notrunningundersomeshell#pcg@goo
f.comuseGimp;useGimp::Fu;useGimp::UI;useFcntl;my%replace=("&"=>"&","<"=>"<",">"=>">",);#readsomefile,maketextoutofitsubread_text{my$fh=shift;local$/;m
y$data=<$fh>;$data;}register"file_colorhtml_save","Savestheimageascolouredhtmltext","=pod","MarcLehmann","MarcLehmann<pcg\@goof.com>","1999-11-22","<Save>/COLOR
HTML","*",[[PF_RADIO,"character_source","wheretotakethecharactersfrom",0,[sourcecode=>0,textfile=>1,filename=>2]],[PF_FILE,"characters","thefilenametoreadorthec
haracterstouse",""],[PF_STRING,"font_size","thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"compatible","html-4.0compliancy?",1],[PF_BOOL,"closetag","addclosingtag?
",1],],sub{my($img,$drawable,$filename,$filename2,$source,$text,$size,$html40,$closetag)=@_;my($new_img,$new_drawable);my$max;my$export=Gimp::UI::export_image($
new_img=$img,$new_drawable=$drawable,"COLORHTML",CAN_HANDLE_RGB);die__"exportfailed"if$export==EXPORT_CANCEL;my($w,$h)=($new_drawable->width,$new_drawable->heig
ht);Gimp->tile_cache_ntiles($w/Gimp->tile_width+1);sysopenFILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoopen'$filename'forwriting:$!\n";my$data;if($sou
rce==0){seekDATA,0,0;$data=read_text*DATA;}elsif($source==1){local*FILE;openFILE,"<$text"ordie"$text:$!\n";$data=read_text*FILE;}elsif($source==2){$data=$text;}
my@data;$data=~y/\x21-\x7f//cd;@data=split//,$data;for(@data){s/([&<>])/$replace{$1}/e;}@data=("X")x80unless@data;my@chars;my$region=$new_drawable->pixel_rgn(0,
0,$w,$h,0,0);initProgress__"Saving'$filename'asCOLORHTML...";$closetag=$closetag?"</font>":"";printFILE"<html><bodybgcolor=black>\n<fontsize=\"$size\"><pre>\n";
for(my$y=0;$y<$h;$y++){my$pel=$region->get_row2(0,$y,$w);push@chars,@datawhile@chars<$w;if($html40){$pel=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1)."\">".shift(
@chars).$closetag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".unpack("H*",$1).">".shift(@chars).$closetag;}ges;}printFILE$pel,"\n";updateProgress$y/$h;}printFILE"</
pre>\n</html>\n";$new_img->deleteif$export==EXPORT_EXPORT;();};Gimp::on_query{Gimp->register_save_handler("file_colorhtml_save","colorhtml","");};exitmain;=head
1COLORHTMLFILEFORMATThisfilesavefilterwritesalargeregulargridfilledwithcolouredcharacters.Thecharacterscanbestoredinfileanddon'thaveanythingtodowiththeimage.The
colourofeachcharacter,though,istakenfromtheimagetosave.Thiscreatessomekindofmosaiceffectwithcharacters.Thepicturesshouldbelimitedtoabout120x120pixels,sincemostb
rowsersdonotviewlargerimages.Theaspectratiodependsonthefixed-widthfontthebrowserisusing,andisusuallyaround2:1(soyoushouldsquashyourimageaccordingly).TheFONTtags
canbesavedeitherHTML-4.0compliant(C<fontcolor="#rrggbb">)orinaproprietaryformatmostbrowserssupport(C<fontcolor=rrggbb>).Tosaveevenmorespaceyoucanleaveouttheclos
ingtag(C</font>),butthiswillpotentiallyleavethousandsoffontelementsopeninthebrowser,andwilldisturbthecurrentfontcolour.=cut__END__#!/usr/bin/perleval'exec/usr/b
in/perl-S$0${1+"$@"}'if0;#notrunningundersomeshell#pcg@goof.comuseGimp;useGimp::Fu;useGimp::UI;useFcntl;my%replace=("&"=>"&","<"=>"<",">"=>">",);#read
somefile,maketextoutofitsubread_text{my$fh=shift;local$/;my$data=<$fh>;$data;}register"file_colorhtml_save","Savestheimageascolouredhtmltext","=pod","MarcLehman
n","MarcLehmann<pcg\@goof.com>","1999-11-22","<Save>/COLORHTML","*",[[PF_RADIO,"character_source","wheretotakethecharactersfrom",0,[sourcecode=>0,textfile=>1,fi
lename=>2]],[PF_FILE,"characters","thefilenametoreadorthecharacterstouse",""],[PF_STRING,"font_size","thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"compatible","h
tml-4.0compliancy?",1],[PF_BOOL,"closetag","addclosingtag?",1],],sub{my($img,$drawable,$filename,$filename2,$source,$text,$size,$html40,$closetag)=@_;my($new_im
g,$new_drawable);my$max;my$export=Gimp::UI::export_image($new_img=$img,$new_drawable=$drawable,"COLORHTML",CAN_HANDLE_RGB);die__"exportfailed"if$export==EXPORT_
CANCEL;my($w,$h)=($new_drawable->width,$new_drawable->height);Gimp->tile_cache_ntiles($w/Gimp->tile_width+1);sysopenFILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie
__"Unabletoopen'$filename'forwriting:$!\n";my$data;if($source==0){seekDATA,0,0;$data=read_text*DATA;}elsif($source==1){local*FILE;openFILE,"<$text"ordie"$text:$
!\n";$data=read_text*FILE;}elsif($source==2){$data=$text;}my@data;$data=~y/\x21-\x7f//cd;@data=split//,$data;for(@data){s/([&<>])/$replace{$1}/e;}@data=("X")x80
unless@data;my@chars;my$region=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Saving'$filename'asCOLORHTML...";$closetag=$closetag?"</font>":"";printFIL
E"<html><bodybgcolor=black>\n<fontsize=\"$size\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=$region->get_row2(0,$y,$w);push@chars,@datawhile@chars<$w;if($html40){$p
el=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1)."\">".shift(@chars).$closetag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".unpack("H*",$1).">".shift(@chars).$closetag;
}ges;}printFILE$pel,"\n";updateProgress$y/$h;}printFILE"</pre>\n</html>\n";$new_img->deleteif$export==EXPORT_EXPORT;();};Gimp::on_query{Gimp->register_save_hand
ler("file_colorhtml_save","colorhtml","");};exitmain;=head1COLORHTMLFILEFORMATThisfilesavefilterwritesalargeregulargridfilledwithcolouredcharacters.Thecharacter
scanbestoredinfileanddon'thaveanythingtodowiththeimage.Thecolourofeachcharacter,though,istakenfromtheimagetosave.Thiscreatessomekindofmosaiceffectwithcharacters
.Thepicturesshouldbelimitedtoabout120x120pixels,sincemostbrowsersdonotviewlargerimages.Theaspectratiodependsonthefixed-widthfontthebrowserisusing,andisusuallyar
ound2:1(soyoushouldsquashyourimageaccordingly).TheFONTtagscanbesavedeitherHTML-4.0compliant(C<fontcolor="#rrggbb">)orinaproprietaryformatmostbrowserssupport(C<f
ontcolor=rrggbb>).Tosaveevenmorespaceyoucanleaveouttheclosingtag(C</font>),butthiswillpotentiallyleavethousandsoffontelementsopeninthebrowser,andwilldisturbthec
urrentfontcolour.=cut__END__#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notrunningundersomeshell#pcg@goof.comuseGimp;useGimp::Fu;useGimp::UI;useFcnt
l;my%replace=("&"=>"&","<"=>"<",">"=>">",);#readsomefile,maketextoutofitsubread_text{my$fh=shift;local$/;my$data=<$fh>;$data;}register"file_colorhtml_
save","Savestheimageascolouredhtmltext","=pod","MarcLehmann","MarcLehmann<pcg\@goof.com>","1999-11-22","<Save>/COLORHTML","*",[[PF_RADIO,"character_source","whe
retotakethecharactersfrom",0,[sourcecode=>0,textfile=>1,filename=>2]],[PF_FILE,"characters","thefilenametoreadorthecharacterstouse",""],[PF_STRING,"font_size","
thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"compatible","html-4.0compliancy?",1],[PF_BOOL,"closetag","addclosingtag?",1],],sub{my($img,$drawable,$filename,$file
name2,$source,$text,$size,$html40,$closetag)=@_;my($new_img,$new_drawable);my$max;my$export=Gimp::UI::export_image($new_img=$img,$new_drawable=$drawable,"COLORH
TML",CAN_HANDLE_RGB);die__"exportfailed"if$export==EXPORT_CANCEL;my($w,$h)=($new_drawable->width,$new_drawable->height);Gimp->tile_cache_ntiles($w/Gimp->tile_wi
dth+1);sysopenFILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoopen'$filename'forwriting:$!\n";my$data;if($source==0){seekDATA,0,0;$data=read_text*DATA;}e
lsif($source==1){local*FILE;openFILE,"<$text"ordie"$text:$!\n";$data=read_text*FILE;}elsif($source==2){$data=$text;}my@data;$data=~y/\x21-\x7f//cd;@data=split//
,$data;for(@data){s/([&<>])/$replace{$1}/e;}@data=("X")x80unless@data;my@chars;my$region=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Saving'$filename
'asCOLORHTML...";$closetag=$closetag?"</font>":"";printFILE"<html><bodybgcolor=black>\n<fontsize=\"$size\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=$region->get_r
ow2(0,$y,$w);push@chars,@datawhile@chars<$w;if($html40){$pel=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1)."\">".shift(@chars).$closetag;}ges;}else{$pel=~s{(...)}{
"<fontcolor=".unpack("H*",$1).">".shift(@chars).$closetag;}ges;}printFILE$pel,"\n";updateProgress$y/$h;}printFILE"</pre>\n</html>\n";$new_img->deleteif$export==
EXPORT_EXPORT;();};Gimp::on_query{Gimp->register_save_handler("file_colorhtml_save","colorhtml","");};exitmain;=head1COLORHTMLFILEFORMATThisfilesavefilterwrites
alargeregulargridfilledwithcolouredcharacters.Thecharacterscanbestoredinfileanddon'thaveanythingtodowiththeimage.Thecolourofeachcharacter,though,istakenfromthei
magetosave.Thiscreatessomekindofmosaiceffectwithcharacters.Thepicturesshouldbelimitedtoabout120x120pixels,sincemostbrowsersdonotviewlargerimages.Theaspectratiod
ependsonthefixed-widthfontthebrowserisusing,andisusuallyaround2:1(soyoushouldsquashyourimageaccordingly).TheFONTtagscanbesavedeitherHTML-4.0compliant(C<fontcolo
r="#rrggbb">)orinaproprietaryformatmostbrowserssupport(C<fontcolor=rrggbb>).Tosaveevenmorespaceyoucanleaveouttheclosingtag(C</font>),butthiswillpotentiallyleave
thousandsoffontelementsopeninthebrowser,andwilldisturbthecurrentfontcolour.=cut__END__#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notrunningundersom
eshell#pcg@goof.comuseGimp;useGimp::Fu;useGimp::UI;useFcntl;my%replace=("&"=>"&","<"=>"<",">"=>">",);#readsomefile,maketextoutofitsubread_text{my$fh=s
hift;local$/;my$data=<$fh>;$data;}register"file_colorhtml_save","Savestheimageascolouredhtmltext","=pod","MarcLehmann","MarcLehmann<pcg\@goof.com>","1999-11-22"
,"<Save>/COLORHTML","*",[[PF_RADIO,"character_source","wheretotakethecharactersfrom",0,[sourcecode=>0,textfile=>1,filename=>2]],[PF_FILE,"characters","thefilena
metoreadorthecharacterstouse",""],[PF_STRING,"font_size","thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"compatible","html-4.0compliancy?",1],[PF_BOOL,"closetag","
addclosingtag?",1],],sub{my($img,$drawable,$filename,$filename2,$source,$text,$size,$html40,$closetag)=@_;my($new_img,$new_drawable);my$max;my$export=Gimp::UI::
export_image($new_img=$img,$new_drawable=$drawable,"COLORHTML",CAN_HANDLE_RGB);die__"exportfailed"if$export==EXPORT_CANCEL;my($w,$h)=($new_drawable->width,$new_
drawable->height);Gimp->tile_cache_ntiles($w/Gimp->tile_width+1);sysopenFILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoopen'$filename'forwriting:$!\n";m
y$data;if($source==0){seekDATA,0,0;$data=read_text*DATA;}elsif($source==1){local*FILE;openFILE,"<$text"ordie"$text:$!\n";$data=read_text*FILE;}elsif($source==2)
{$data=$text;}my@data;$data=~y/\x21-\x7f//cd;@data=split//,$data;for(@data){s/([&<>])/$replace{$1}/e;}@data=("X")x80unless@data;my@chars;my$region=$new_drawable
->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Saving'$filename'asCOLORHTML...";$closetag=$closetag?"</font>":"";printFILE"<html><bodybgcolor=black>\n<fontsize=\"$si
ze\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=$region->get_row2(0,$y,$w);push@chars,@datawhile@chars<$w;if($html40){$pel=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1
)."\">".shift(@chars).$closetag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".unpack("H*",$1).">".shift(@chars).$closetag;}ges;}printFILE$pel,"\n";updateProgress$y/$h
;}printFILE"</pre>\n</html>\n";$new_img->deleteif$export==EXPORT_EXPORT;();};Gimp::on_query{Gimp->register_save_handler("file_colorhtml_save","colorhtml","");};
exitmain;=head1COLORHTMLFILEFORMATThisfilesavefilterwritesalargeregulargridfilledwithcolouredcharacters.Thecharacterscanbestoredinfileanddon'thaveanythingtodowi
ththeimage.Thecolourofeachcharacter,though,istakenfromtheimagetosave.Thiscreatessomekindofmosaiceffectwithcharacters.Thepicturesshouldbelimitedtoabout120x120pix
els,sincemostbrowsersdonotviewlargerimages.Theaspectratiodependsonthefixed-widthfontthebrowserisusing,andisusuallyaround2:1(soyoushouldsquashyourimageaccordingl
y).TheFONTtagscanbesavedeitherHTML-4.0compliant(C<fontcolor="#rrggbb">)orinaproprietaryformatmostbrowserssupport(C<fontcolor=rrggbb>).Tosaveevenmorespaceyoucanl
eaveouttheclosingtag(C</font>),butthiswillpotentiallyleavethousandsoffontelementsopeninthebrowser,andwilldisturbthecurrentfontcolour.=cut__END__#!/usr/bin/perle
val'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notrunningundersomeshell#pcg@goof.comuseGimp;useGimp::Fu;useGimp::UI;useFcntl;my%replace=("&"=>"&","<"=>"<",">"=>
">",);#readsomefile,maketextoutofitsubread_text{my$fh=shift;local$/;my$data=<$fh>;$data;}register"file_colorhtml_save","Savestheimageascolouredhtmltext","=po
d","MarcLehmann","MarcLehmann<pcg\@goof.com>","1999-11-22","<Save>/COLORHTML","*",[[PF_RADIO,"character_source","wheretotakethecharactersfrom",0,[sourcecode=>0,
textfile=>1,filename=>2]],[PF_FILE,"characters","thefilenametoreadorthecharacterstouse",""],[PF_STRING,"font_size","thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"
compatible","html-4.0compliancy?",1],[PF_BOOL,"closetag","addclosingtag?",1],],sub{my($img,$drawable,$filename,$filename2,$source,$text,$size,$html40,$closetag)
=@_;my($new_img,$new_drawable);my$max;my$export=Gimp::UI::export_image($new_img=$img,$new_drawable=$drawable,"COLORHTML",CAN_HANDLE_RGB);die__"exportfailed"if$e
xport==EXPORT_CANCEL;my($w,$h)=($new_drawable->width,$new_drawable->height);Gimp->tile_cache_ntiles($w/Gimp->tile_width+1);sysopenFILE,$filename,O_CREAT|O_TRUNC
|O_WRONLYordie__"Unabletoopen'$filename'forwriting:$!\n";my$data;if($source==0){seekDATA,0,0;$data=read_text*DATA;}elsif($source==1){local*FILE;openFILE,"<$text
"ordie"$text:$!\n";$data=read_text*FILE;}elsif($source==2){$data=$text;}my@data;$data=~y/\x21-\x7f//cd;@data=split//,$data;for(@data){s/([&<>])/$replace{$1}/e;}
@data=("X")x80unless@data;my@chars;my$region=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Saving'$filename'asCOLORHTML...";$closetag=$closetag?"</font
>":"";printFILE"<html><bodybgcolor=black>\n<fontsize=\"$size\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=$region->get_row2(0,$y,$w);push@chars,@datawhile@chars<$w;
if($html40){$pel=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1)."\">".shift(@chars).$closetag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".unpack("H*",$1).">".shift(@cha
rs).$closetag;}ges;}printFILE$pel,"\n";updateProgress$y/$h;}printFILE"</pre>\n</html>\n";$new_img->deleteif$export==EXPORT_EXPORT;();};Gimp::on_query{Gimp->regi
ster_save_handler("file_colorhtml_save","colorhtml","");};exitmain;=head1COLORHTMLFILEFORMATThisfilesavefilterwritesalargeregulargridfilledwithcolouredcharacter
s.Thecharacterscanbestoredinfileanddon'thaveanythingtodowiththeimage.Thecolourofeachcharacter,though,istakenfromtheimagetosave.Thiscreatessomekindofmosaiceffect
withcharacters.Thepicturesshouldbelimitedtoabout120x120pixels,sincemostbrowsersdonotviewlargerimages.Theaspectratiodependsonthefixed-widthfontthebrowserisusing,
andisusuallyaround2:1(soyoushouldsquashyourimageaccordingly).TheFONTtagscanbesavedeitherHTML-4.0compliant(C<fontcolor="#rrggbb">)orinaproprietaryformatmostbrows
erssupport(C<fontcolor=rrggbb>).Tosaveevenmorespaceyoucanleaveouttheclosingtag(C</font>),butthiswillpotentiallyleavethousandsoffontelementsopeninthebrowser,andw
illdisturbthecurrentfontcolour.=cut__END__#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notrunningundersomeshell#pcg@goof.comuseGimp;useGimp::Fu;useGi
mp::UI;useFcntl;my%replace=("&"=>"&","<"=>"<",">"=>">",);#readsomefile,maketextoutofitsubread_text{my$fh=shift;local$/;my$data=<$fh>;$data;}register"f
ile_colorhtml_save","Savestheimageascolouredhtmltext","=pod","MarcLehmann","MarcLehmann<pcg\@goof.com>","1999-11-22","<Save>/COLORHTML","*",[[PF_RADIO,"characte
r_source","wheretotakethecharactersfrom",0,[sourcecode=>0,textfile=>1,filename=>2]],[PF_FILE,"characters","thefilenametoreadorthecharacterstouse",""],[PF_STRING
,"font_size","thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"compatible","html-4.0compliancy?",1],[PF_BOOL,"closetag","addclosingtag?",1],],sub{my($img,$drawable,$
filename,$filename2,$source,$text,$size,$html40,$closetag)=@_;my($new_img,$new_drawable);my$max;my$export=Gimp::UI::export_image($new_img=$img,$new_drawable=$dr
awable,"COLORHTML",CAN_HANDLE_RGB);die__"exportfailed"if$export==EXPORT_CANCEL;my($w,$h)=($new_drawable->width,$new_drawable->height);Gimp->tile_cache_ntiles($w
/Gimp->tile_width+1);sysopenFILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoopen'$filename'forwriting:$!\n";my$data;if($source==0){seekDATA,0,0;$data=rea
d_text*DATA;}elsif($source==1){local*FILE;openFILE,"<$text"ordie"$text:$!\n";$data=read_text*FILE;}elsif($source==2){$data=$text;}my@data;$data=~y/\x21-\x7f//cd
;@data=split//,$data;for(@data){s/([&<>])/$replace{$1}/e;}@data=("X")x80unless@data;my@chars;my$region=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Sa
ving'$filename'asCOLORHTML...";$closetag=$closetag?"</font>":"";printFILE"<html><bodybgcolor=black>\n<fontsize=\"$size\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=
$region->get_row2(0,$y,$w);push@chars,@datawhile@chars<$w;if($html40){$pel=~s{(...)}{"<fontcolor=\"#".unpack("H*",$1)."\">".shift(@chars).$closetag;}ges;}else{$
pel=~s{(...)}{"<fontcolor=".unpack("H*",$1).">".shift(@chars).$closetag;}ges;}printFILE$pel,"\n";updateProgress$y/$h;}printFILE"</pre>\n</html>\n";$new_img->del
eteif$export==EXPORT_EXPORT;();};Gimp::on_query{Gimp->register_save_handler("file_colorhtml_save","colorhtml","");};exitmain;=head1COLORHTMLFILEFORMATThisfilesa
vefilterwritesalargeregulargridfilledwithcolouredcharacters.Thecharacterscanbestoredinfileanddon'thaveanythingtodowiththeimage.Thecolourofeachcharacter,though,i
stakenfromtheimagetosave.Thiscreatessomekindofmosaiceffectwithcharacters.Thepicturesshouldbelimitedtoabout120x120pixels,sincemostbrowsersdonotviewlargerimages.T
heaspectratiodependsonthefixed-widthfontthebrowserisusing,andisusuallyaround2:1(soyoushouldsquashyourimageaccordingly).TheFONTtagscanbesavedeitherHTML-4.0compli
ant(C<fontcolor="#rrggbb">)orinaproprietaryformatmostbrowserssupport(C<fontcolor=rrggbb>).Tosaveevenmorespaceyoucanleaveouttheclosingtag(C</font>),butthiswillpo
tentiallyleavethousandsoffontelementsopeninthebrowser,andwilldisturbthecurrentfontcolour.=cut__END__#!/usr/bin/perleval'exec/usr/bin/perl-S$0${1+"$@"}'if0;#notr
unningundersomeshell#pcg@goof.comuseGimp;useGimp::Fu;useGimp::UI;useFcntl;my%replace=("&"=>"&","<"=>"<",">"=>">",);#readsomefile,maketextoutofitsubrea
d_text{my$fh=shift;local$/;my$data=<$fh>;$data;}register"file_colorhtml_save","Savestheimageascolouredhtmltext","=pod","MarcLehmann","MarcLehmann<pcg\@goof.com>
","1999-11-22","<Save>/COLORHTML","*",[[PF_RADIO,"character_source","wheretotakethecharactersfrom",0,[sourcecode=>0,textfile=>1,filename=>2]],[PF_FILE,"characte
rs","thefilenametoreadorthecharacterstouse",""],[PF_STRING,"font_size","thehtmlfontsize(1..7or-7..+7)",2],[PF_BOOL,"compatible","html-4.0compliancy?",1],[PF_BOO
L,"closetag","addclosingtag?",1],],sub{my($img,$drawable,$filename,$filename2,$source,$text,$size,$html40,$closetag)=@_;my($new_img,$new_drawable);my$max;my$exp
ort=Gimp::UI::export_image($new_img=$img,$new_drawable=$drawable,"COLORHTML",CAN_HANDLE_RGB);die__"exportfailed"if$export==EXPORT_CANCEL;my($w,$h)=($new_drawabl
e->width,$new_drawable->height);Gimp->tile_cache_ntiles($w/Gimp->tile_width+1);sysopenFILE,$filename,O_CREAT|O_TRUNC|O_WRONLYordie__"Unabletoopen'$filename'forw
riting:$!\n";my$data;if($source==0){seekDATA,0,0;$data=read_text*DATA;}elsif($source==1){local*FILE;openFILE,"<$text"ordie"$text:$!\n";$data=read_text*FILE;}els
if($source==2){$data=$text;}my@data;$data=~y/\x21-\x7f//cd;@data=split//,$data;for(@data){s/([&<>])/$replace{$1}/e;}@data=("X")x80unless@data;my@chars;my$region
=$new_drawable->pixel_rgn(0,0,$w,$h,0,0);initProgress__"Saving'$filename'asCOLORHTML...";$closetag=$closetag?"</font>":"";printFILE"<html><bodybgcolor=black>\n<
fontsize=\"$size\"><pre>\n";for(my$y=0;$y<$h;$y++){my$pel=$region->get_row2(0,$y,$w);push@chars,@datawhile@chars<$w;if($html40){$pel=~s{(...)}{"<fontcolor=\"#".
unpack("H*",$1)."\">".shift(@chars).$closetag;}ges;}else{$pel=~s{(...)}{"<fontcolor=".unpack("H*",$1).">".shift(@chars).$closetag;}ges;}printFILE$pel,"\n";updat
eProgress$y/$h;}printFILE"</pre>\n</html>\n";$new_img->deleteif$export==EXPORT_EXPORT;();};Gimp::on_query{Gimp->register_save_handler("file_colorhtml_save","col
orhtml","");};exitmain;=head1COLORHTMLFILEFORMATThisfilesavefilterwritesalargeregulargridfilledwithcolouredcharacters.Thecharacterscanbestoredinfileanddon'thave
anythingtodowiththeimage.Thecolourofeachcharacter,though,istakenfromtheimagetosave.Thiscreatessomekindofmosaiceffectwithcharacters.Thepicturesshouldbelimitedtoa
bout120x120pixels,sincemostbrowsersdonotviewlargerimages.Theaspectratiodependsonthefixed-widthfontthebrowserisusing,andisusuallyaround2:1(soyoushouldsquashyouri