X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/01d61f72fed7ac041786ea69d1b080f45a4c49d1..5629239957347a7ee23955ca39ba1f021db6d2bc:/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('', '', - '', + '', (map {( - qq(), - qq(), + qq(), + qq(), )} 3, 7, 14), '', ), @@ -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 //, $_