X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/c653ee1e246168ec0cae4541a06c836aecdbb190..9b34f6d9fa60d96025fe3835777f277b9cc002ad:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 0da2ab1..1be023d 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(
@@ -255,10 +256,12 @@ my $U = 0; # optional unicode alternatives
],
'Code 39' => [
# ISO/IEC 16388
- map { tr/012/âââ/r } qw(
+ map { !!$_ && tr/012/âââ/r }
+ # bar widths (1-2) followed by space of width 1 (implied) or 2 (0)
+ 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 102121
+ 201112 102112 202111 101212 201211 102211 102121 0 101221
)
],
'Code 93' => [