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 3ce4889739867a2fa2e43b75ce24a28d63d9e77f..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);
 }