X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/fa47b427173cfffa0080d4612e4e7819d5071a79..54c3aaa2e77d7a750f5e2173ae2f56bbe17988a2:/writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index f313a31..2fbdb46 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -1,3 +1,4 @@
+use 5.014;
 use utf8;
 use List::Util qw( pairs );
 
@@ -325,6 +326,29 @@ my $U = 0;  # optional unicode alternatives
 	), # 0 for space
 	'', 1, 3  # start/end
 ],
+"D'ni" => [
+	map {
+		state $window = 'M-.5,-.5H8.5V8.5H-.5Z';
+		state $v = [
+			'',
+			'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 = [
+			'',
+			'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="16" height="16" viewBox="-.5 -.5 9 9"><path d="%s"/></svg>',
+			$window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
+	} 0 .. 5*5
+],
 'Pigpen' => [
 	map {
 		qq(<svg width="12" height="12" viewBox="-.5 -.5 7 7">$_</svg>)