X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4222fe2b6b5f358e639c9f86e01ac048bc04d824..600213e037653528a856e9a5d9a23a99b8c50724:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 70a479a..43728c4 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -148,6 +148,53 @@ sem => [
24 25 26 27 34 35 47 56 57 36 67
)
],
+semc => [
+ map {
+ my ($r, $pr, $pl) = split //, $_;
+ !$_ ? '-' : sprintf(
+ join('',
+ '',
+ ),
+ ['6', '3v3', '9v-3']->[$pl],
+ [ '', 'v3', 'v-3']->[$pr],
+ $r * 45,
+ );
+ }
+ # 360° rotation (0-7) and position state (0-2) of left and right bars
+ qw(
+ 021 121 221 321 421 521 621 721
+ 022 022 122 222 322 011 111 211 311
+ 001 101 201 301 401 501 601 701 020
+ )
+],
+semp => [
+ map { !$_ ? '-' : sprintf
+ join('',
+ '',
+ ),
+ map { ($_ - 2) * 45 % 360 } split //, $_
+ }
+ # rotation state (0-3) for left and right bar of 3 rows
+ qw(
+ 003000 000200 203300 000030 033030 000130 000330 032330 031330 031330
+ 022020 130120 001320 233010 030210 022310 203001 233001
+ 131001 231301 000202 023302 230003 032003 201003 101003
+ )
+],
+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
'