charset: omit unassigned half of ascii table

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 02fdda7907e56e0f8d5c371927e8af2f70dff915..b9c88f065c5d3b5dff831dbc7796009d43764fc0 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -20,6 +20,7 @@ my $spacestyle = '.sample span { margin-right: 0.5ex }';  # separate multiple le
 my @tapstyle = (
        @wrapstyle,
        '{ line-height: 1ex }',
+       'td:not(.sample) { vertical-align: top }',
        '.sample { font-size: 80% }',
 );
 
@@ -79,11 +80,11 @@ sub disphues {
        my @lumf = $opaque ? ('hsl(%s,100%%,50%%)', 'hsl(%s,100%%,25%%)') :
                ('hsl(%s,100%%,50%%)', 'hsla(%s,100%%,50%%,.5)');
        return sprintf(
-               '<svg width="16" height="16" viewBox="0 0 22 22">%s</svg>',
+               '<svg width="16" height="16" viewBox="0 0 12 12">%s</svg>',
                join '', map {
                        my $colf = $lumf[ $lum[$_] ];
                        !$colf ? () : sprintf('<circle cx="%d" cy="%d" r="%d" fill="%s"/>',
-                               10 + $_, $_ == 1 ? 12 : 10, 10, sprintf($colf, $hues->[$_])
+                               5 + $_, $_ == 1 ? 7 : 5, 5, sprintf($colf, $hues->[$_])
                        );
                } 0 .. 2
        );
@@ -539,9 +540,12 @@ cmymap => {
 },
 dni => {
        title => "D'ni",
+       style => [
+               'svg { border: 1px solid #000 }',
+               '.sample span + span svg { border-left: 0 }',
+       ],
        list => [
                map {
-                       state $window = 'M-.5,-.5H8.5V8.5H-.5Z';
                        state $v = [
                                '',
                                'M0,4 8,4',
@@ -558,8 +562,8 @@ dni => {
                                'M4,-.5 0,4 4,8.5',
                                'M4,8 4,2 8,2',
                        ];
-                       sprintf '<svg width="16" height="16" viewBox="-.5 -.5 9 9"><path d="%s"/></svg>',
-                               $window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
+                       sprintf '<svg width="16" height="16" viewBox="0 0 8 8"><path d="%s"/></svg>',
+                               $h->[$_ % 5] . $v->[$_ / 5] || $v->[6];
                } 0 .. 5*5
        ],
 },