X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/98caa4d70a2ac467ce0786f2baf3dcae6ae667d4..140051e24ff5a74421e8b437cdc12ca8570995cd:/writing-latn.inc.pl diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl index e904ddc..a2dd4b4 100644 --- a/writing-latn.inc.pl +++ b/writing-latn.inc.pl @@ -15,10 +15,10 @@ my @wrapstyle = ( 'td { white-space: normal; word-spacing: 10em }', # force line break between words '.sample { word-spacing: 0 }', - '.sample span { margin-right: 1ex; white-space: nowrap; display: inline-block }', + '.sample svg { margin-right: 1ex; white-space: nowrap; display: inline-block }', # larger space between letters ); -my $spacestyle = '.sample span { margin-right: 0.5ex }'; # separate letters +my $spacestyle = '.sample svg { margin-right: 0.5ex }'; # separate letters my @tapstyle = ( @wrapstyle, '{ line-height: 1ex }', @@ -60,6 +60,58 @@ sub dispdomino { return $prefix . chr(0x1F031 + ($dots[0] * 7) + $dots[1]); } +sub dispdash { + my $code = shift; + my ($prefix, @dots) = $code =~ m/\A(-?)(\d)(\d)/ or return $code; + my ($w, $h) = (12, 9); + my @w = map { $w / ($_ || 1) } @dots; + return sprintf( + '' + . '', + $w + 1, $h + 1, join(' ', + "m0,$h l+$w[0],-$h" x $dots[0], # slashes + "m0,$h l-$w[1],-$h" x $dots[1], # backslashes + ) + ); +} + +sub dispblock { + my $code = shift; + my ($prefix, $shape, $rotate) = $code =~ m/\A(-?)(\w)(\d?)/ + or return $code; + my %path = ( + S => 'm0,1h1v-1h1', + Z => 'm0,0h1v1h1', + L => 'm0,0v2h1', + v => 'm0,0v1h1', + J => 'm1,0v2h-1', + T => 'm0,0h2.5h-1.5v1', + O => 'm0,0h1v1h-1', + I => 'm0,1h3', + i => 'm0,1h2', + o => 'm0,1h1', + ); + my %col = qw( + S 120 Z 0 J 240 L 30 T 300 O 60 I 180 + v 45,50% i 165,50% o 165,0% + ); + s/\z(?' + . '', + $code eq 'I' ? 4 : $code =~ /T3|[LJO]$|[Iio]1/ ? 2 : 3, + @gaps ? qq( class="@gaps") : '', + $path{$shape}, "hsl($col{$shape},50%)", join('', + $rotate && sprintf(' transform="rotate(%s 1 1)"', $rotate * 90), + $prefix && ' style="opacity:.5"', + ), + ); +} + sub dispbar { my $code = shift or return ''; @@ -114,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 }], }, @@ -121,7 +174,7 @@ roman => { name => 'Old Roman Cursive', style => [ 'svg path { stroke-linecap: round; stroke-linejoin: round }', - '.sample span { margin-right: -10px }', + '.sample svg { margin-right: -10px }', ], list => [ map { @@ -171,6 +224,17 @@ sutton => { 0 965aa6 }], }, +graffiti => { + name => 'Palm Graffiti', + style => [ + '@font-face { + font-family: Graffiti; + src: url("/graffiti.ttf"); + }', + 'td { font-family: Graffiti }', + ], + 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 * y z }], +}, unistrokes => { name => 'Unistrokes', url => 'https://www.google.com/patents/US5596656', # by Xerox @@ -178,8 +242,9 @@ unistrokes => { list => [ map { ''.$_.'' } map { - sprintf('', m/\AM(\d+),(\d+)(.?)/) . # start point - (!!$3 && qq()) + my ($x, $y, $next) = m/\AM(\d+),(\d+)(.)?/; + sprintf('', $x, $y) . # start point + (defined $next && qq()) } 'M3,8 V0', 'M0,0 6,4 0,8', @@ -235,9 +300,6 @@ edgewrite => { ) ], }, -#graffiti => { -# name => 'Palm Graffiti', -#}, ita2 => { name => 'ITA2', style => [@wrapstyle, 'td { font-size: 50% }'], @@ -322,18 +384,36 @@ shorttap => { 11 12 13 14 21 22 23 20 > 31 -13 32 33 30 41 42 -13 43 40 10 51 52 53 50 -31 -40 }], - altlist => [map { disptap($_) } qw{ + altlist => [map { dispdash($_) } qw{ 10 14 -13 12 20 23 22 21 30 -34 13 33 32 31 40 43 -13 42 41 11 50 -23 -50 -1341 -31 -41 }], }, 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 }], }, +tetromino => { + style => [ + 'svg path { stroke-linecap: square }', + '.sample .gapl1 + .gapr1 { margin-left: -6.3px }', + ], + name => 'Tetrominos', + list => [map { dispblock($_) } qw{ + T2 T1 I T3 + i L1 J L3 + o1 I1 L2 L -S1 Z1 + O J2 v2 -J3 S T + J1 v1 v v3 i1 Z + }], +}, cards => { style => 'td { font-family: Symbola, "DejaVu Sans", serif, sans }', list => [( @@ -598,7 +678,7 @@ dni => { name => "D'ni", style => [ 'svg { border: 1px solid currentColor }', - '.sample span + span svg { border-left: 0 }', + '.sample svg + svg { border-left: 0 }', ], list => [ map { @@ -681,7 +761,10 @@ nyctographs => { }, chromacons => { title => 'Colour Alphabet by Paul Green-Armytage (2010)', -# style => '.sample { word-break: break-all }', + style => [ + #'.sample { word-break: break-all }', + '.sample { background: white }', + ], list => [ map { sprintf('%s',