X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/a8ce474d15b7d6013a60760eed50e5fa16983d24..ff2d4344d5b0adc00b1a9184afc02dda63165a24:/writing-latn.inc.pl diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl index 7fabb6e..f178be9 100644 --- a/writing-latn.inc.pl +++ b/writing-latn.inc.pl @@ -291,7 +291,7 @@ my $U = 0; # optional unicode alternatives 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 @@ -304,8 +304,7 @@ my $U = 0; # optional unicode alternatives map { s/M[\d,\hM]+(?=[M"])//gr } # clean up superfluous moves map { sprintf '' - . '', - ' stroke-linecap="round" stroke-linejoin="round"', + . '', 'h.5v.5h-.5v-.5', # start anchor map { ['M', 'h0M', 'L']->[$_] } split //, $_