From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 12 Apr 2017 23:34:18 +0000 (+0200)
Subject: latin: curve back to previous positions in edgewrite glyphs
X-Git-Tag: v1.10~146
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/b47f14e3c96205cfdb23d54270596c700bcee58d

latin: curve back to previous positions in edgewrite glyphs

Distinguish M/N, H/W, clarify stroke order.
---

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 640dd9b..7f1ed38 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -181,9 +181,14 @@ edgewrite => {
 	list => [
 		map { '<svg width="14" height="14" viewBox="-1 -1 10 10">'.$_.'</svg>' }
 		map {
-			my @coords = map { $_ % 2 << 3, $_ >> 1 << 3 } split //; # x,y,
+			my @route = split //;
+			my @coords = map { $_ % 2 << 3, $_ >> 1 << 3 } @route; # x,y,
 			sprintf('<circle cx="%s" cy="%s" r="1"/>', @coords[0, 1]) . # start point
-			sprintf('<path d="M%s"/>', "@coords")
+			sprintf('<path d="M%s"/>', join ' ', map {
+				my $pos = join(',', @coords[$_*2, $_*2 + 1]);
+				$_ > 1 && $route[$_] == $route[$_ - 2] ? 'Q4,4 '.$pos.'L' : # curve back
+				$pos
+			} 0 .. $#route)
 		}
 		# corners (0..3) clockwise from top-left in order
 		qw(