X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4f500183fcc899192d40ae2b5d55465d4718300e..040311428c70a1f0f9f166d921ca45ff0840f3fd:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 1d11c3c..8cace93 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -155,8 +155,8 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
!$_ ? '-' : sprintf(
join('',
'',
),
['6', '3v3', '9v-3']->[$pl],
@@ -175,10 +175,10 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
map { !$_ ? '-' : sprintf
join('',
'',
),
@@ -210,7 +210,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,
@@ -238,8 +238,8 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
s/(?:h|m[^0]).*?h\K/-/;
m/h/ or s/v/l3,/g;
m/v/ or s/h([^h]*)/l$1,3/g;
- my $dot = s/\.// && qq();
- qq($dot)
+ my $dot = s/\.// && qq();
+ qq($dot)
}
qw(
Hvh vhv vh hvh vhvh Hhvh hv Vvhv Hhv
@@ -253,7 +253,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
map { sprintf
'',
- ' stroke="currentColor" stroke-linecap="round" stroke-linejoin="round" fill="none"',
+ ' stroke-linecap="round" stroke-linejoin="round"',
'h.5v.5h-.5v-.5', # start anchor
map { ['M', 'h0M', 'L']->[$_] }
split //, $_