From 5eb91cbedd5d8014061c5a78e4d205d5a782ebd0 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 11 Apr 2017 03:38:59 +0200
Subject: [PATCH] latin: d'ni numerals svg row

Remarkable for being a regular base5 counting system exactly matching all
26 letters.

SVG constructed from shapes inspired by:
<http://linguists.riedl.org/old/more-numbers.htm> and
<http://www.omniglot.com/conscripts/dni.htm>.
---
 writing-latn.inc.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index f313a31..babdb40 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,-.5H12.5V12.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
+		];
+		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',
+		];
+		sprintf '<svg width="20" height="20" viewBox="-.5 -.5 13 13"><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>)
-- 
2.30.0