<(common.inc.plp)><:
Html({
title => 'latin alphabet cheat sheet',
version => 'v1.0',
description => [
],
keywords => [qw'
latin roman alphabet script letter unicode font glyph abc
writing comparison character sample test language
'],
stylesheet => [qw'light dark red'],
});
:>
Latin alphabet
Also see other alphabets
and common chars.
<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
unless (exists $get{v}) {
$glyphs->{unicode}--;
$glyphs->{digraph}--;
}
my @t = (qw{
.>Latin a b c d e f g h i j k l m n o p q r s t u v w x y z
.>Braille ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵
.>Morse ‧‑ ‑‧‧‧ ‑‧‑‧ ‑‧‧ ‧ ‧‧‐‧ ‐‐‧ ‧‧‧‧ ‧‧ ‧‐‐‐ ‐‧‐ ‧‐‧‧ ‐‐
‐‧ ‐‐‐ ‧‐‐‧ ‐‐‧‐ ‧‐‧ ‧‧‧ ‐ ‧‧‐ ‧‧‧‐ ‧‐‐ ‐‧‧‐ ‐‧‐‐ ‐‐‧‧
});
print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @t] : \@t);
print "
\n";