X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/39cc5f2acc8588b05b8b4bc62b8c456e7c5c31f6..c30cede8817ee92f1e2dd31e6d8b0c3aa4c44ee8:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index b2d436f..43b77b3 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -48,13 +48,14 @@ my $U = 0; # optional unicode alternatives
],
'Sutton ASL' => [
# American manual alphabet in Sutton (U+1D800+) notation
- map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
+ map { !!$_ && pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
8F7a9c 847a9c 86Da9c 801a9c 84Aa9c
8CEa9c 8F0 815aa2 892a9c 892a9c9A2aac
840a9c 8DCa9c 88Da9c
819a9c 876a9c 840a9caA1 8F0a9caA1 81Aa9c
903a9c 8FBa9c 815a9c 80Ea9c 887a9c
806a9c 89Aa9c 800a9c945aaa
+ 0 965aa6
}],
'ITA2' => [
map { tr/01/ââ/r =~ s/..\K/ /r } qw(
@@ -90,13 +91,13 @@ my $U = 0; # optional unicode alternatives
11 12 13 14 21 22 23 20 > 31 -13 32 33
30 41 42 -13 43 40 10 51 52 53 50 -31 -40
})],
-'Cards' => [
- map { chr(0x1F0A0 + $_), sprintf('%s', chr(0x1F0B0 + $_)) } # spades, hearts
+'Cards' => [(
+ map { chr(0x1F0A0 + $_), sprintf('%s', chr(0x1F0B0 + $_)) } # spades, hearts
1 .. 11, 13, 14 # A 2-10 J Q K
-],
+), '', chr(0x1F0CF), chr(0x1F0DF) ],
'Maritime flags' => [
# International Code of Signals, SVG fills
- map { '' }
+ map { !!$_ && '' }
split /\n\n/, qq{
@@ -188,6 +189,14 @@ my $U = 0; # optional unicode alternatives
+
+
+
+
+
+
+
+
},
],
'Flag semaphore' => [