latin: format tap code with multiline bullets

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 3db23c4d6c662cecaba265d590b78689f1fdb566..a185266484d32434a62fd115110d009cdef8f2c7 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -1,13 +1,13 @@
 use utf8;
 
 sub disptap {
-       map {
+       return map {
                m/\A(-?)(\d)(\d)/;
-               $1 . '\\'  # escape dot
-               . ('.̇' x ($2 < $3 ? $2 : $3))  # min($2,$3) without losing captures
-               . ('.' x ($3 - $2))
-               . (' ̇' x ($2 - $3))
-       } @_
+               sprintf('<small style="line-height:2ex">%s</small>&nbsp;',
+                       #TODO: prepend $1
+                       join "<br>\n", '•' x $2, '•' x $3,
+               );
+       } @_;
 }
 
 my %C = qw(red #EC1C24  blue #3953A3  yellow #F9EC31  black #231F20);