From c544fb231402a1111fbc42dd7bae87aed6b0f4dc Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 12 Apr 2017 12:32:07 +0200
Subject: [PATCH] latin: xerox unistrokes svg row

Stroke data from <http://www.yorku.ca/mack/chi2008b.html>.
---
 latin.plp           |  4 ++++
 writing-latn.inc.pl | 35 +++++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+)

diff --git a/latin.plp b/latin.plp
index b79e33a..bbd256b 100644
--- a/latin.plp
+++ b/latin.plp
@@ -89,6 +89,10 @@ Html({
 		padding: 0.1em;
 		margin-right: 0.2em;
 	}
+	#unistrokes svg path {
+		stroke-linecap: round;
+		stroke-linejoin: round;
+	}
 
 	svg path:not([fill]) {
 		stroke: currentColor;
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 6adf33b..3a284b2 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -77,6 +77,41 @@ sub dispbar {
 	806a9c    89Aa9c    800a9c945aaa
 	0         965aa6
 }],
+'Unistrokes' => [
+	map { '<svg width="14" height="16" viewBox="-1 -1 8 10">'.$_.'</svg>' }
+	map {
+		sprintf('<circle cx="%s" cy="%s" r="1"/>', m/\AM(\d+),(\d+)(.?)/) . # start point
+		(!!$3 && qq(<path d="$_"/>))
+	}
+	'M3,8 V0',
+	'M0,0 6,4 0,8',
+	'M6,0 0,4 6,8',
+	'M6,0 0,4 6,8',
+	'M6,4 H0',
+	'M6,0 0,0 0,8',
+	'M0,8 6,8 6,0',
+	'M0,0 6,0 6,8',
+	'M3,0 V8',
+	'M6,0 6,8 0,8',
+	'M0,8 6,0',
+	'M0,0 0,8 6,8',
+	'M6,8 3,0 0,8',
+	'M0,8 3,0 6,8',
+	'M6,0 Q0,6 3,8 6,6 0,0',
+	'M0,0 Q4,8 6,4 4,0 0,8',
+	'M6,0 Q2,8 0,4 2,0 6,8',
+	'M0,0 6,8',
+	'M6,0 0,0 6,8 0,8',
+	'M0,4 H6',
+	'M6,0 3,8 0,0',
+	'M0,0 3,8 6,0',
+	'M0,0 0,8 6,0 6,8',
+	'M0,0 Q6,6 3,8 0,6 6,0',
+	'M6,0 0,8',
+	'M0,0 6,0 0,8 6,8',
+	'M3,4',
+],
+# 'Palm Graffiti' => [
 '<abbr title="International Telegraph Alphabet">ITA</abbr>2' => [
 	map { tr/01/○●/r =~ s/..\K/ /r } qw(
 	11000 10011 01110 10010 10000 10110 01011 00101 01100 11010 11110 01001 00111
-- 
2.30.0