X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5464db21077f6af072bd770f6cb6e907eb48b73d..133e96335267b12bb7e97d9bbe551a3a043bd32a:/latin.plp?ds=inline diff --git a/latin.plp b/latin.plp index 24c74c6..578d858 100644 --- a/latin.plp +++ b/latin.plp @@ -2,40 +2,121 @@ Html({ title => 'latin alphabet cheat sheet', - version => 'v1.0', + version => '1.7', description => [ ], keywords => [qw' latin roman alphabet script letter unicode font glyph abc - writing comparison character sample test language + 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->{digraph}--; +my $table = Data('writing-latn'); +{ + say 'Table data not found: %s.
\n", $! || $@; -} -else { - my @az = map { @$_ } grep { ref $_ eq 'ARRAY' } @table; - print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @az] : \@az); +my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24); +say '