git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
termcol: include and mark duplicate colours in ppu
[sheet.git]
/
termcol.inc.pl
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
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
);
022 044 077 467
111 222 444 666
);
+ my %dup;
map { [
map { [
- map { [ $_, map { $_ * 255 / 7 } split // ] }
+ map { [ $
dup{$_}++ ? "<s>$_</s>" : $
_, map { $_ * 255 / 7 } split // ] }
map { $rgb[$_] }
$_*4 .. $_*4+3
] } 0..13
map { $rgb[$_] }
$_*4 .. $_*4+3
] } 0..13