X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/bf58fc823d4d25c75c028a7ff225513721c4d824..600213e037653528a856e9a5d9a23a99b8c50724:/writing-latn.inc.pl?ds=sidebyside
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index eebe155..43728c4 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -148,6 +148,48 @@ 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
@@ -172,4 +214,17 @@ rm4scc => [
1122 1302 1320 3102 3120 3300
)
],
+pigpen => [qw( ᧠á ᪠á â¡ á ᣠá ᥠᲠ᫠ᷠá ð ᮠᬠᬠᯠᯠ᳠Ḡᱠá á
á á )],
+wingdings => [qw{ â ð ð ð â â â â â ⺠ð â¹ ð£ â â ð± â â¼ ð§ â ð â ð â ⡠⪠}],
+colour => [
+ map { sprintf '%s', split(/:/, $_), chr(8195) }
+ qw{
+ F0A3FF:Amethyst 0075DC:Blue 993F00:Caramel 4C005C:Damson 191919:Ebony
+ 005C31:Forest 2BCE48:Green FFCC99:Honeydew 808080:Iron 94FFB5:Jade
+ 8F7C00:Khaki 9DCC00:Lime C20088:Mallow
+ 003380:Navy FFA405:Orpiment FFA8BB:Pink 426600:Quagmire FF0010:Red
+ 5EF1F2:Sky 00998F:Turquoise E0FF66:Uranium 740AFF:Violet 990000:Wine
+ FFFF80:Xanthin FFFF00:Yellow FF5005:Zinnia
+ },
+],
);