From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 2 May 2017 19:56:01 +0000 (+0200)
Subject: termcol: include and mark duplicate colours in ppu
X-Git-Tag: v1.10~28
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/edbbb5e8918a267fec13c55ebe9dcc556058c020

termcol: include and mark duplicate colours in ppu
---

diff --git a/termcol.inc.pl b/termcol.inc.pl
index 6e3b6d6..3242775 100644
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -310,12 +310,13 @@ use Shiar_Sheet::Colour 1.05;
 					320 430 660 773
 					120 140 360 572
 					031 040 070 473
-					000 053 000 276
+					040 053 276 276
 					022 044 077 467
 					111 222 444 666
 				);
+				my %dup;
 				map { [
-					map { [ $_, map { $_ * 255 / 7 } split // ] }
+					map { [ $dup{$_}++ ? "<s>$_</s>" : $_, map { $_ * 255 / 7 } split // ] }
 					map { $rgb[$_] }
 					$_*4 .. $_*4+3
 				] } 0..13