latin: xerox unistrokes svg row

[sheet.git] / writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 6adf33b8f5713a4740bd584974aaabd0c40eb310..3a284b214d543ea857c0b2c8b791a877a5b4c39f 100644 (file)
--- 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