X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/afa53ab113bf964118ca288ad4dc28784b00cc4b..a337e0adc7d8b1cfab4cb85d4620f6fd223c1aa4:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index b5c98c0..0b08ae4 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -134,4 +134,43 @@ ics => [
},
],
+sem => [
+ map {
+ local $_ = $_;
+ s/[1-4]\K(?=[4-9])/Â /;
+ tr/1-9/ââââââââ/;
+ s{(.)(?=.)}{$1}
+ or s/^// and $_ .= '';
+ $_
+ }
+ qw(
+ 1 2 3 4 5 6 7 21 31 46 14 15 16 17 23
+ 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
+ '',
+ 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
+ )
+],
+wingdings => [qw{ â ð ð ð â â â â â ⺠ð â¹ ð£ â â ð± â â¼ ð§ â ð â ð â ⡠⪠}],
);