X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/76de9b7e588839cbae32bf0cb21f529963363450..0f1bf743dcb721880bbcdaebfc182090ac5f6afa:/writing-latn.inc.pl?ds=sidebyside

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 60b24f9..83660bf 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -175,6 +175,28 @@ 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 @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"/>', 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(
+			213 0232 1023 1323 103 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',
 #},