From c84dfb2d32d8e278576b2ed4f9be1b50404e6a4b Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 13 Apr 2017 01:31:00 +0200
Subject: [PATCH] latin: edgewrite svg row

Corner data from official <http://depts.washington.edu/ewrite/>.
---
 writing-latn.inc.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 60b24f9..640dd9b 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -175,6 +175,23 @@ unistrokes => {
 		'M3,4',
 	],
 },
+edgewrite => {
+	title => 'EdgeWrite',
+	style => 'svg path { stroke-linecap: round; stroke-linejoin: round }',
+	list => [
+		map { '<svg width="14" height="14" viewBox="-1 -1 10 10">'.$_.'</svg>' }
+		map {
+			my @coords = map { $_ % 2 << 3, $_ >> 1 << 3 } split //; # x,y,
+			sprintf('<circle cx="%s" cy="%s" r="1"/>', @coords[0, 1]) . # start point
+			sprintf('<path d="M%s"/>', "@coords")
+		}
+		# corners (0..3) clockwise from top-left in order
+		qw(
+			213 0232 1023 1323 01023 102 10132 0213 02 132 02123 023 20313 2031
+			10231 0102 10131 201 1032 013 0231 021 02131 0312 0313 0123  01
+		)
+	],
+},
 #graffiti => {
 #	title => 'Palm Graffiti',
 #},
-- 
2.30.0