From b47f14e3c96205cfdb23d54270596c700bcee58d Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 13 Apr 2017 01:34:18 +0200
Subject: [PATCH] latin: curve back to previous positions in edgewrite glyphs

Distinguish M/N, H/W, clarify stroke order.
---
 writing-latn.inc.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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(
-- 
2.30.0