latin: domino tiles as alternative tap code

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 3a284b214d543ea857c0b2c8b791a877a5b4c39f..ec1b5a080cd44b9758ebe2bdc26ec2460a1c7710 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -8,6 +8,7 @@ my $U = 0;  # optional unicode alternatives
 sub disptap {
        my $code = shift;
        $code =~ m/\A(-?)(\d)(\d)/ or return $code;
+       return $1 . chr(0x1F031 + ($2 * 7) + $3) if $U;  # offset from domino tile horizontal-00-00
        return $1 . join(' ', '·' x $2, '·' x $3);
 }
 
@@ -319,12 +320,12 @@ sub dispbar {
 'Code 93' => [map { dispbar($_) } qw(
        211113 211212 211311 221112 221211 231111 112113 112212 112311 122112
        132111 111123 111222 111321 121122 131121 212112 212211 211122 211221
-       221121 222111 112122 112221 122121 123111        311211
+       221121 222111 112122 112221 122121 123111        311211 0 111141
 )],
 'Code 128' => [map { dispbar($_) } qw(
        111323 131123 131321 112313 132113 132311 211313 231113 231311 112133
        112331 132131 113123 113321 133121 313121 211331 231131 213113 213311
-       213131 311123 311321 331121 312113 312311        212222
+       213131 311123 311321 331121 312113 312311        212222 0 211412 2331112
 )],
 '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>' => [
        map {