latin: reformat tap codes to superimposed dots
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 3 Mar 2015 18:05:01 +0000 (19:05 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 9 Jun 2015 03:43:42 +0000 (05:43 +0200)
writing-latn.inc.pl

index f763d3591322f129eb271ae336ae8f1176d526e9..62ab2b2e50da26f1467ca769f056c3859b233790 100644 (file)
@@ -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))
        } @_
 }