From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 12 Apr 2017 23:31:00 +0000 (+0200)
Subject: latin: edgewrite svg row
X-Git-Tag: v1.10~147
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/c84dfb2d32d8e278576b2ed4f9be1b50404e6a4b

latin: edgewrite svg row

Corner data from official <http://depts.washington.edu/ewrite/>.
---

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',
 #},