X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/aeb47e7600bf4e34a37f3ebfe0e6edc534d92147..88048e2c00e3e9a9c172e788722354017cd401ec:/latin.plp diff --git a/latin.plp b/latin.plp index 94b583c..a86f2ca 100644 --- a/latin.plp +++ b/latin.plp @@ -2,67 +2,118 @@ Html({ title => 'latin alphabet cheat sheet', - version => 'v1.1', + version => '1.6', description => [ ], keywords => [qw' latin roman alphabet script letter unicode font glyph abc - writing comparison character sample test language spelling - cursive fraktur blind deaf + code encoding spelling symbol writing comparison character + secret cursive fraktur blind braille morse deaf asl hand + barcode bar color semaphore flag '], - stylesheet => [qw'light dark red'], + stylesheet => [qw( light dark red mono )], data => ['writing-latn.inc.pl'], }); :>
Also see other alphabets -and common chars.
- -Variant encodings of the common ASCII (latin, roman, +or 'mercan) letters AâZ. +Also see related alphabets +and font comparison.
<: -use Shiar_Sheet::FormatChar; -my $glyphs = Shiar_Sheet::FormatChar->new; -unless (exists $get{v}) { - $glyphs->{unicode}--; - $glyphs->{anno} = []; - $glyphs->{style} = 0; -} - -my %scriptname = ( - latn => 'Latin', - latfsuet => 'Sütterlin', - ase => 'ASL shapes', - brai => 'Braille', - morse => 'Morse', - tap => 'Tap code', -); +use List::Util qw( pairs ); my @table = do 'writing-latn.inc.pl'; -if ($! or $@) { - printf "Table data not found: %s.
\n", $@ || $!; +if ($! or $@ or !@table) { + die ["Table data not found", $@ || $!]; } else { - print $glyphs->table([map { - ref $_ ne 'ARRAY' ? ".>$scriptname{$_}" - : exists $get{uc} ? map {uc} @$_ : @$_ - } @table]); + say '# ASCII â 64'; + print ' | ', $_ for 1 .. 26; + say ' |
---|---|
26) { + # special character for sample generation + print ' hidden'; # sample only + } + else { + print ' title=', chr($col + ord('A') - $colspan); + } + if ($colspan > 1) { + print " colspan=$colspan"; + $colspan = 1; + } + printf ' class="%s"', "@class" if @class; + print '>'; + say; + } + } + say " |