latin: resize d'ni to enlarge line width

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index babdb40f74f4f7b877a20d0231dc2ca69b197ad8..2fbdb4692fdf81b0fb63a33d8c8bfa5d86d5b578 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -328,24 +328,24 @@ my $U = 0;  # optional unicode alternatives
 ],
 "D'ni" => [
        map {
-               state $window = 'M-.5,-.5H12.5V12.5H-.5Z';
+               state $window = 'M-.5,-.5H8.5V8.5H-.5Z';
                state $v = [
                        '',
-                       'M0,6 12,6',
-                       'M0,12 Q6,6 12,12',
-                       'M0,6 6,12 12,6',
-                       'M3,0 3,6 12,6',
-                       'M0,0 12,12 M0,12 12,0', # cross
-                       'M5.5,6 h1', # dot
+                       'M0,4 8,4',
+                       'M0,8 Q4,4 8,8',
+                       'M0,4 4,8 8,4',
+                       'M2,0 2,4 8,4',
+                       'M0,0 8,8 M0,8 8,0', # cross
+                       'M3.5,4 h1', # dot
                ];
                state $h = [
                        '',
-                       'M6,0 6,12',
-                       'M0,0 Q6,6 0,12',
-                       'M6,-.5 0,6 6,12.5',
-                       'M6,12 6,3 12,3',
+                       'M4,0 4,8',
+                       'M0,0 Q4,4 0,8',
+                       'M4,-.5 0,4 4,8.5',
+                       'M4,8 4,2 8,2',
                ];
-               sprintf '<svg width="20" height="20" viewBox="-.5 -.5 13 13"><path d="%s"/></svg>',
+               sprintf '<svg width="16" height="16" viewBox="-.5 -.5 9 9"><path d="%s"/></svg>',
                        $window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
        } 0 .. 5*5
 ],