X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b7eb5417cf938807539280d21325692df3e4cb1f..52b2d01baa052b2a2283adee52008e756442a185:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 28626b0..917ae11 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -70,7 +70,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
-
+
@@ -156,8 +156,8 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
!$_ ? '-' : sprintf(
join('',
'',
),
['6', '3v3', '9v-3']->[$pl],
@@ -176,10 +176,10 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
map { !$_ ? '-' : sprintf
join('',
'',
),
@@ -203,7 +203,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
'RM4SCC' => [
map { sprintf
'',
+ . '',
join ' m2',
map { sprintf ',%dv%dm0,-%d',
($_ & 1 ? 0 : 2), 2 + ($_ & 2) + ($_ & 1) * 2,
@@ -232,7 +232,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
m/h/ or s/v/l3,/g;
m/v/ or s/h([^h]*)/l$1,3/g;
my $dot = s/\.// && qq();
- qq($dot)
+ qq($dot)
}
qw(
Hvh vhv vh hvh vhvh Hhvh hv Vvhv Hhv
@@ -246,7 +246,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
map { sprintf
'',
- ' stroke="black" stroke-linecap="round" stroke-linejoin="round" fill="none"',
+ ' stroke="currentColor" stroke-linecap="round" stroke-linejoin="round" fill="none"',
'h.5v.5h-.5v-.5', # start anchor
map { ['M', 'h0M', 'L']->[$_] }
split //, $_