4 title => 'writing system inheritance sheet',
7 "Character comparison,",
8 "tracking letters as they evolve from Phoenician to modern scripts.",
9 "Good Unicode test sample.",
12 script glyph unicode writing comparison character alphabet letter
13 history phoenician latin sample test language multilingual
15 stylesheet => [qw'light circus dark red mono'],
16 data => [qw'writing-phnx.inc.pl'],
20 <h1>Writing systems</h1>
23 Comparison of Unicode letters in related alphabets.
24 Also see <a href="/charset">charsets</a>
25 and <a href="/unicode">common chars</a>.</p>
30 use Shiar_Sheet::FormatChar;
31 my $glyphs = Shiar_Sheet::FormatChar->new;
32 unless (exists $get{v}) {
35 $glyphs->{style} = 'univer';
38 my $scriptname = eval { Data('writing-script') }; # optional translations
39 $_ = showlink($_, "/latin") for $scriptname->{latn} || ();
42 [phnx => 'Phoenician'],
45 my ($source, $title) = @$_;
46 my @table = eval { Data("writing-$source") } or do {
47 say "<h2>$title</h2>";
48 printf "<p>%s: <em>%s</em>.</p>\n", @{$@};
51 $glyphs->print($title => [map {
52 my $lead = s/^(-)// && $1;
53 ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" }
54 $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
60 say for '<hr/>', $glyphs->legend;