From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 2 Nov 2015 06:02:56 +0000 (+0100)
Subject: termcol: reindex option to replace colours
X-Git-Tag: v1.9~70
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/9c63114c622c6ef782de884c5788ef2bdd27c4db

termcol: reindex option to replace colours

Append exclamation mark to img name to compare incompatible palette( size)s.
---

diff --git a/termcol.plp b/termcol.plp
index 73bf0d2..7a51fbd 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -79,12 +79,24 @@ sub img_egapal {
 		require MIME::Base64;
 
 		my @imgpal = map { Imager::Color->new(ref $_ ? @$_ : $_) } @{$palette};
-		state $img = Imager->new(file => "data/$imgfile")
+		state $reindex = $imgfile =~ s/!$//;
+		state $img = Imager->new(file => "data/palimage/$imgfile")
 			or die Imager->errstr.$/;
-		@{[ $img->getcolors ]} == @imgpal
-			or die "incompatible palette size\n";
-		$img->setcolors(colors => \@imgpal);
-		$img->write(data => \my $imgdata, type => 'png');
+		do {
+			if ($reindex) {
+				$img->to_paletted({
+					make_colors => 'none',
+					colors => \@imgpal,
+					translate => 'closest',
+				});
+			}
+			else {
+				@{[ $img->getcolors ]} == @imgpal
+					or die "incompatible palette size\n";
+				$img->setcolors(colors => \@imgpal);
+				$img;
+			}
+		}->write(data => \my $imgdata, type => 'png');
 		return sprintf '<img src="data:image/png;base64,%s">',
 			MIME::Base64::encode_base64($imgdata);
 	} || $@;