4 title => 'character support sheet',
7 unicode font glyph char character support overview cover coverage
8 script block symbol sign mark reference table
10 stylesheet => [qw( light dark mono circus red )],
11 data => [qw( unicode-cover.inc.pl )],
15 <h1>Font coverage</h1>
18 Character support of Unicode
19 <a href="/charset">blocks</a> and <a href="/unicode">presets</a>.
26 use Shiar_Sheet::FormatChar;
27 my $glyphs = Shiar_Sheet::FormatChar->new;
30 win => [qw( arial ariuni lucidau verdana times courier )], # microsoft
31 mac => [qw( helvetica lucida times garamond palatino )], # apple
32 android => [qw( roboto noto )], # google
33 oss => [qw( dvsans c2k unifont opensans )],
35 my @ossel = qw( win mac oss android );
36 my @fontlist = map { @{ $oslist{$_} } } @ossel;
38 my $cover = do 'unicode-cover.inc.pl' or die $@ || $!;
41 'block/Latin-1 Supplement',
42 'block/Latin Extended-A',
43 'block/Latin Extended Additional',
44 'block/Latin Extended-B',
60 'table/arrows/single',
67 for my $group ($ENV{PATH_INFO} || ()) {
69 my $grouprows = $cover->{$group}
70 or die "Unknown character category $_\n";
71 @rows = map { "$group/$_" } sort keys %{$grouprows};
74 # output character list
76 print '<table class=mapped>';
78 print "<colgroup span=$_>" for map { scalar @{$oslist{$_}} } @ossel;
81 print '<th colspan=2>';
82 printf '<th colspan=%d>%s fonts', scalar @{ $oslist{$_} }, $_ for @ossel;
85 print '<th colspan=2>';
86 printf '<td>%s', $_ for @fontlist;
90 my ($group, $name) = split m{/}, $_, 2;
91 my $row = $cover->{$group}->{$name};
94 $name = sprintf '<a href="%s">%s</a>', EncodeURI("/chars/$group/$name"), EscapeHTML($name)
95 if $row->{-count} and $row->{-count} < 1280;
97 print '<td class=right>', $row->{-count};
99 my $count = $row->{$_};
100 if (not defined $count) {
101 print '<td class="l0">?';
105 print '<td class="l1">✘';
108 if ($count == $row->{-count}) {
109 print '<td class="l5">✔';
113 my $rel = $count / $row->{-count};
114 my $class = $rel < .5 ? 2 : $rel < .9 ? 3 : 4;
115 printf '<td class="%s">%d%%', "l$class", $rel*100;