latin: domino tile formatting and encoding

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 57193c8c8376d96f14be33b60a24b625537d5404..e904ddcb614ffd23d3df594bf3ae84d0568c9ab9 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -53,6 +53,13 @@ sub disptap {
        return $prefix . join(' ', map { '·' x $_ } @dots);
 }
 
+sub dispdomino {
+       my $code = shift;
+       my ($prefix, @dots) = $code =~ m/\A(-?)(\d)(\d)/ or return $code;
+       # unicode glyph alternative as DOMINO TILE HORIZONTAL-0a-0b
+       return $prefix . chr(0x1F031 + ($dots[0] * 7) + $dots[1]);
+}
+
 sub dispbar {
        my $code = shift or return '';
 
@@ -315,6 +322,17 @@ shorttap => {
                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
        }],
+       altlist => [map { disptap($_) } qw{
+               10 14 -13 12 20 23 22 21 30 -34 13 33 32
+               31 40 43 -13 42 41 11 50 -23 -50 -1341 -31 -41
+       }],
+},
+domino => {
+       name => 'Domino tiles',
+       list => [map { dispdomino($_) } qw{
+               10 11 20 21 22 30 31 32 33 40 41 42 43
+               44 50 51 52 53 54 55 60 61 62 63 64 65
+       }],
 },
 cards => {
        style => 'td { font-family: Symbola, "DejaVu Sans", serif, sans }',