latin: reformat tap codes to superimposed dots

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index f763d3591322f129eb271ae336ae8f1176d526e9..62ab2b2e50da26f1467ca769f056c3859b233790 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -4,8 +4,9 @@ sub disptap {
        map {
                m/\A(-?)(\d)(\d)/;
                $1 . '\\'  # escape dot
-               . chr($2 > 3 ? 0x2070 + $2 : $2 == 1 ? 0xB9 : 0xB0 + $2) # superscript
-               . chr(0x2080 + $3) # subscript digit
+               . ('.̇' x ($2 < $3 ? $2 : $3))  # min($2,$3) without losing captures
+               . ('.' x ($3 - $2))
+               . (' ̇' x ($2 - $3))
        } @_
 }