git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
ebcb46b
)
termcol: include and mark duplicate colours in ppu
author
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 2 May 2017 19:56:01 +0000
(21:56 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 29 May 2017 17:23:11 +0000
(19:23 +0200)
termcol.inc.pl
patch
|
blob
|
history
diff --git
a/termcol.inc.pl
b/termcol.inc.pl
index 6e3b6d697e106b3470fdbdb8e3df661465cdf790..32427759de296675b374ed873e12c62ac6db441d 100644
(file)
--- 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
- 0
00 053 000
276
+ 0
40 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