X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5eb91cbedd5d8014061c5a78e4d205d5a782ebd0..54c3aaa2e77d7a750f5e2173ae2f56bbe17988a2:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index babdb40..2fbdb46 100644
--- 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 '',
+ sprintf '',
$window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
} 0 .. 5*5
],