X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0b7764e1b1522077da79a24b5fb4605803092d43..c7afc8e7b0d1733b6ac5f826c5242e4aa8fe2f16:/writing.plp
diff --git a/writing.plp b/writing.plp
index a3f3b69..d4204f9 100644
--- a/writing.plp
+++ b/writing.plp
@@ -26,6 +26,10 @@ and common chars.
<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
+unless (exists $get{v}) {
+ $glyphs->{unicode}--;
+ $glyphs->{digraph}--;
+}
print $glyphs->table([qw{
.>Chinese 壹 è²³ å è ä¼ é¸ æ æ ç é¶
@@ -55,24 +59,16 @@ print $glyphs->table([qw{
.>Osmanya ð¡ ð¢ ð£ ð¤ ð¥ ð¦ ð§ ð¨ ð© ð
}]);
-sub print_glyph_tables {
- while (@_) {
- printf '%s
'."\n\n", shift;
- while (ref $_[0] and $_ = shift) {
- print $glyphs->table($_);
- }
- print '';
- }
-}
-
-print_glyph_tables(
+$glyphs->print(
Western => [qw{
.>Latin A > B C G D > E F Y VU W Z H - I J K L M N > X O P > - Q R > S T
.>Old_Italic ð > ð > ð ð > ð ð
ð > > ð ð ð ð ð ð ð ð ð ð > ð ð ð > ð ð ð > ð ð
.>Cyrillic Ð Ð Ð > Ð Ð Ð Ð > -Ñ´ > У РРѲ > РРРРРХ -Ñ® РРЦ Ч -Ò Ð Ð¨ С Т
.>Gothic ð° > ð± > ð² ð³ > ð´ ð > > ð
ð¶ ð· ð¸ > ð¹ ðº ð» ð¼ ð½ > ð ð¿ ð > - - ð > ð ð
.>Coptic Ⲡ> Ⲡ> ⲠⲠ> Ⲡ> > > Ⲩ ⲠⲠⲠ> ⲠⲠⲠⲠⲠⲬ ⲠⲠⲠ> Ⲡ- Ⲣ > Ⲥ Ⲧ
+ .>Lycian ð ð ð > ð ð
> ð > > > ð ð - ð > ð ð ð ð ð ð ð ð ð > - ð ð > ð ð
.>Greek Î > Î > Î Î > Î -Ï > > Î¥ ΠΠΠΠРΠΠΠΠΧ Î Î Î > -Ϻ -Ï Î¡ Σ -Ϲ Τ
+ .>Lydian ð¤ > 𤡠𤢠𤹠𤣠> 𤤠𤥠𤧠> 𤰠- - 𤱠> 𤦠𤨠𤩠𤪠𤫠> - 𤬠- > 𤳠𤲠ð¤ > 𤮠ð¤¯
.>Phoenician ð¤ > ð¤ > ð¤ ð¤ > ð¤ > > > ð¤
ð¤ ð¤ ð¤ > ð¤ ð¤ ð¤ ð¤ ð¤ > ð¤ ð¤ ð¤ > ð¤ ð¤ ð¤ > ð¤ ð¤
.>Samaritan à > à > à à > à > > > à
à à à > à à à à à > à à à > à à à > à à
.>Hebrew × > × > × × > × > > × ×° × × × × ×² × × × × > ס ×¢ פ צ ×¥ ק ר > ש ת