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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 6adf33b..ec1b5a0 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -8,6 +8,7 @@ my $U = 0;  # optional unicode alternatives
 sub disptap {
 	my $code = shift;
 	$code =~ m/\A(-?)(\d)(\d)/ or return $code;
+	return $1 . chr(0x1F031 + ($2 * 7) + $3) if $U;  # offset from domino tile horizontal-00-00
 	return $1 . join(' ', '·' x $2, '·' x $3);
 }
 
@@ -77,6 +78,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
@@ -284,12 +320,12 @@ sub dispbar {
 'Code 93' => [map { dispbar($_) } qw(
 	211113 211212 211311 221112 221211 231111 112113 112212 112311 122112
 	132111 111123 111222 111321 121122 131121 212112 212211 211122 211221
-	221121 222111 112122 112221 122121 123111        311211
+	221121 222111 112122 112221 122121 123111        311211 0 111141
 )],
 'Code 128' => [map { dispbar($_) } qw(
 	111323 131123 131321 112313 132113 132311 211313 231113 231311 112133
 	112331 132131 113123 113321 133121 313121 211331 231131 213113 213311
-	213131 311123 311321 331121 312113 312311        212222
+	213131 311123 311321 331121 312113 312311        212222 0 211412 2331112
 )],
 '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>' => [
 	map {