From edbbb5e8918a267fec13c55ebe9dcc556058c020 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Tue, 2 May 2017 21:56:01 +0200 Subject: [PATCH] termcol: include and mark duplicate colours in ppu --- termcol.inc.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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{$_}++ ? "$_" : $_, map { $_ * 255 / 7 } split // ] } map { $rgb[$_] } $_*4 .. $_*4+3 ] } 0..13 -- 2.30.0