latin: rename Tap simplified to Short Tap

[sheet.git] / writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 43b77b341f541bf442e1c793bdd958ff14696e67..4186f183721cd95fbd66c12d6dbfe61d95dfd754 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -87,7 +87,7 @@ my $U = 0;  # optional unicode alternatives
        11 12 13 14 15 21 22 23  > 24 25 31 32
        33 34 35 41 42 43 44 45 51 52 53 54 55
 })],
        11 12 13 14 15 21 22 23  > 24 25 31 32
        33 34 35 41 42 43 44 45 51 52 53 54 55
 })],

-'Tap simplified' => [disptap(qw{
+'Short Tap' => [disptap(qw{

        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
 })],
        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
 })],


@@ -256,10 +256,12 @@ my $U = 0;  # optional unicode alternatives
 ],
 'Code 39' => [
        # ISO/IEC 16388
 ],
 '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
                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' => [
        )
 ],
 'Code 93' => [