X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/3a93e44ec531ea7dcb5d7582d1f87e38d71932f8..bf58fc823d4d25c75c028a7ff225513721c4d824:/writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 7d0fb06..eebe155 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -148,4 +148,28 @@ sem => [
 		24 25 26 27 34  35 47 56 57 36  67
 	)
 ],
+code39 => [map { tr/012/ ❘❙/r } qw{
+	211012 121012 221011 112012 212011 122011 111022 211021 121021 112021
+	211102 121102 221101 112102 212101 122101 111202 211201 121201 112201
+	201112 102112 202111 101212 201211 102211
+}],
+rm4scc => [
+	map { sprintf
+		'<svg width="20" height="20" viewBox="0 0 8 6">'
+		. '<path stroke="black" d="M1%s"/></svg>',
+		join ' m2',
+		map { sprintf ',%dv%dm0,-%d',
+			($_ & 1 ? 0 : 2),  2 + ($_ & 2) + ($_ & 1) * 2,
+			($_ & 1 ? 0 : 2) + 2 + ($_ & 2) + ($_ & 1) * 2,
+		}
+		split //, $_
+	}
+	qw(
+		                    2121 2301
+		0132 0312 0330 2112 2130 2310
+		1023 1203 1221 3003 3021 3201
+		1032 1212 1230 3012 3030 3210
+		1122 1302 1320 3102 3120 3300
+	)
+],
 );