(common.inc.plp)><:
Html({
title => 'latin alphabet cheat sheet',
version => 'v1.1',
description => [
],
keywords => [qw'
latin roman alphabet script letter unicode font glyph abc
writing comparison character sample test language spelling
cursive fraktur blind deaf
'],
stylesheet => [qw'light dark red'],
data => ['writing-latn.inc.pl'],
});
:>
<:
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',
latnuc => 'Uppercase',
latnlc => 'Lowercase',
latfsuet => 'Sütterlin',
asl => '
ASL', # American manual alphabet
brai => 'Braille',
morse => 'Morse',
tap => 'Tap code',
taps => 'Tap simplified',
ics => 'Maritime flags', # International Code of Signals
sem => 'Flag semaphore',
pigpen => 'Pigpen',
wingdings=> 'Wingdings',
code39 => 'Code 39', # ISO/IEC 16388
rm4scc => '
RM4SCC',
colour => 'Chromacons', # Colour Alphabet by Paul Green-Armytage (2010)
);
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
printf "
Table data not found: %s.
\n", $@ || $!;
}
else {
print $glyphs->table([map {
ref $_ ne 'ARRAY' ? ".>$scriptname{$_}"
: exists $get{uc} ? map {uc} @$_ : @$_
} @table]);
}
print "
\n";