X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e3166e0c204e3911b27305d180db6f8c4da349b7..c544fb231402a1111fbc42dd7bae87aed6b0f4dc:/writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 6adf33b..3a284b2 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -77,6 +77,41 @@ sub dispbar {
 	806a9c    89Aa9c    800a9c945aaa
 	0         965aa6
 }],
+'Unistrokes' => [
+	map { '<svg width="14" height="16" viewBox="-1 -1 8 10">'.$_.'</svg>' }
+	map {
+		sprintf('<circle cx="%s" cy="%s" r="1"/>', m/\AM(\d+),(\d+)(.?)/) . # start point
+		(!!$3 && qq(<path d="$_"/>))
+	}
+	'M3,8 V0',
+	'M0,0 6,4 0,8',
+	'M6,0 0,4 6,8',
+	'M6,0 0,4 6,8',
+	'M6,4 H0',
+	'M6,0 0,0 0,8',
+	'M0,8 6,8 6,0',
+	'M0,0 6,0 6,8',
+	'M3,0 V8',
+	'M6,0 6,8 0,8',
+	'M0,8 6,0',
+	'M0,0 0,8 6,8',
+	'M6,8 3,0 0,8',
+	'M0,8 3,0 6,8',
+	'M6,0 Q0,6 3,8 6,6 0,0',
+	'M0,0 Q4,8 6,4 4,0 0,8',
+	'M6,0 Q2,8 0,4 2,0 6,8',
+	'M0,0 6,8',
+	'M6,0 0,0 6,8 0,8',
+	'M0,4 H6',
+	'M6,0 3,8 0,0',
+	'M0,0 3,8 6,0',
+	'M0,0 0,8 6,0 6,8',
+	'M0,0 Q6,6 3,8 0,6 6,0',
+	'M6,0 0,8',
+	'M0,0 6,0 0,8 6,8',
+	'M3,4',
+],
+# 'Palm Graffiti' => [
 '<abbr title="International Telegraph Alphabet">ITA</abbr>2' => [
 	map { tr/01/○●/r =~ s/..\K/ /r } qw(
 	11000 10011 01110 10010 10000 10110 01011 00101 01100 11010 11110 01001 00111