latin: common styling for pigpen and nyctograph svg

diff --git a/latin.plp b/latin.plp
index 6de3fa5ce9e5eccf12a1686e2af2a4807cf51ec6..70c96351809ca036907fdcfd4d98bbf510e0510a 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -26,6 +26,10 @@ Html({
        #tap-simplified td {
                line-height: 1ex;
        }
        #tap-simplified td {
                line-height: 1ex;
        }

+       #pigpen {
+               stroke-linecap: square;
+       }
+       #nyctographs,

        #old-roman-cursive {
                stroke-linecap: round;
                stroke-linejoin: round;
        #old-roman-cursive {
                stroke-linecap: round;
                stroke-linejoin: round;

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"/>);
                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
        }
        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">'
        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 //, $_
                'h.5v.5h-.5v-.5',  # start anchor
                map { ['M', 'h0M', 'L']->[$_] }
                split //, $_