latin: unistrokes circles matched separately

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 7ed03ed496620679e197d6edabaa98e8ba80059e..a2dd4b44d09972b0671fbdaa74958be720fa38d7 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -166,6 +166,7 @@ suetterlin => {
                        src: url("/suetterlin.ttf");
                }',
                'td { font-family: Suetterlin }',
+               'td:hover::first-letter { text-transform: uppercase }',
        ],
        list => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
 },
@@ -241,8 +242,9 @@ unistrokes => {
        list => [
                map { '<svg width="14" height="16" viewBox="-1 -1 8 10">'.$_.'</svg>' }
                map {
-                       sprintf('<circle cx="%s" cy="%s" r="1"/>', m/\AM(\d+),(\d+)(.?)/) . # start point
-                       (!!$3 && qq(<path d="$_"/>))
+                       my ($x, $y, $next) = m/\AM(\d+),(\d+)(.)?/;
+                       sprintf('<circle cx="%s" cy="%s" r="1"/>', $x, $y) . # start point
+                       (defined $next && qq(<path d="$_"/>))
                }
                'M3,8 V0',
                'M0,0 6,4 0,8',
@@ -389,6 +391,10 @@ shorttap => {
 },
 domino => {
        name => 'Domino tiles',
+       style => [
+               # enlarge single tile height to span full vertical combinations
+               'td { font-size: 200%; line-height: .6; padding: 0 0 .3ex }',
+       ],
        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