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 (parent:
b5b83b3
)
latin: extend colour svg to mix specified hues
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 12 Apr 2017 20:41:00 +0000
(22:41 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 22 May 2017 15:55:29 +0000
(17:55 +0200)
Replace hardcoded #rgb by generic hsl() values.
writing-latn.inc.pl
patch
|
blob
|
history
diff --git
a/writing-latn.inc.pl
b/writing-latn.inc.pl
index 0d6ecb4d6305a0777b138481c7111ae7a25102c0..fd9faa2cffb6890a836339ab11911c607ac42851 100644
(file)
--- a/
writing-latn.inc.pl
+++ b/
writing-latn.inc.pl
@@
-49,15
+49,18
@@
sub dispbar {
);
}
);
}
-sub disprgb {
- my ($index) = @_;
- my $circle = '<circle cx="%s" cy="%s" r="8" fill="#%X%X%X"/>';
+sub disphues {
+ my ($index, $hues) = @_;
+ my @lum = ($index % 3, $index / 3 % 3, $index / 9); # hue opacities (0..2)x3
+ my @lumf = ('hsl(%s,100%%,50%%)', 'hsl(%s,100%%,25%%)');
return sprintf(
'<svg width="16" height="16" viewBox="0 0 22 22">%s</svg>',
return sprintf(
'<svg width="16" height="16" viewBox="0 0 22 22">%s</svg>',
- join '',
- sprintf($circle, 10, 10, [0, 8, 15]->[$index % 3], 0, 0),
- sprintf($circle, 11, 12, 0, [0, 8, 15]->[$index / 3 % 3], 0),
- sprintf($circle, 12, 10, 0, 0, [0, 8, 15]->[$index / 9]),
+ join '', map {
+ my $colf = $lumf[ $lum[$_] ];
+ !$colf ? () : sprintf('<circle cx="%d" cy="%d" r="%d" fill="%s"/>',
+ 10 + $_, $_ == 1 ? 12 : 10, 10, sprintf($colf, $hues->[$_])
+ );
+ } 0 .. 2
);
}
);
}
@@
-466,7
+469,7
@@
rgbmap => {
'svg { isolation: isolate }',
'svg circle { mix-blend-mode: screen }',
],
'svg { isolation: isolate }',
'svg circle { mix-blend-mode: screen }',
],
- list => [ map { disp
rgb($_) } 0 .. 3*3*3 ],
+ list => [ map { disp
hues($_, [0, 240, 120]) } 0 .. 3*3*3 ], # Red, Blue, Green
},
dni => {
title => "D'ni",
},
dni => {
title => "D'ni",