digits.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'digit characters sheet',
   5         version => 'v1.0',
   6         description => [
   7                 "Character comparison,",
   8                 "tracking letters as they evolve from Phoenician to modern scripts.",
   9                 "Good Unicode test sample.",
  10         ],
  11         keywords => [qw'
  12                 script glyph unicode writing comparison character alphabet letter
  13                 history phoenician latin sample test language multilingual
  14         '],
  15         stylesheet => [qw'light dark red'],
  16         data => [qw'writing-digits.inc.pl'],
  17 });
  18
  19 :>
  20 <h1>Writing systems</h1>
  21
  22 <p>Also see comparison of <a href="/writing">writing systems</a>.</p>
  23
  24 <div class="section">
  25
  26 <:
  27 use Shiar_Sheet::FormatChar;
  28 my $glyphs = Shiar_Sheet::FormatChar->new;
  29 unless (exists $get{v}) {
  30         $glyphs->{unicode}--;
  31         $glyphs->{anno}  = [];
  32         $glyphs->{style} = 'univer';
  33 }
  34
  35 my $scriptname = do 'writing-script.inc.pl';
  36 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
  37
  38 my @table = do "writing-digits.inc.pl";
  39 die "Table data not found: $_\n" for $@ || $! || ();
  40
  41 $glyphs->print([map {
  42         ref $_ eq 'ARRAY' ? @{$_} : map { ".>$_" }
  43                 $scriptname->{"digits_$_"} || $scriptname->{$_} || $_
  44 } @table]);
  45
  46 :></div>
  47
  48 <hr>
  49