latin: common styling for pigpen and nyctograph svg

[sheet.git] / writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 7fabb6ed1520eb3407706358d894a5cca93565cb..f178be95c879c56792cc7eb0b8badc57355cb3ec 100644 (file)
--- 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(<circle cx="3" cy="3" r="1"/>);
-               qq(<path stroke-linecap="square" d="$_"/>$dot)
+               qq(<path d="$_"/>$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
                '<svg width="14" height="14" viewBox="-.5 -.5 5 5">'
-               . '<path%s d="M0,0%s %s4,0 %s4,4 %s0,4 %s0,0"/></svg>',
-               ' stroke-linecap="round" stroke-linejoin="round"',
+               . '<path d="M0,0%s %s4,0 %s4,4 %s0,4 %s0,0"/></svg>',
                'h.5v.5h-.5v-.5',  # start anchor
                map { ['M', 'h0M', 'L']->[$_] }
                split //, $_