X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ebb49d950182907b1a785bfc3a1c4fa9b1bf5999..c7afc8e7b0d1733b6ac5f826c5242e4aa8fe2f16:/writing.plp
diff --git a/writing.plp b/writing.plp
index e57ceec..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,30 +59,21 @@ 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 × > × > × × > × > > × ×° × × × × ×² × × × × > ס ×¢ פ צ ×¥ ק ר > ש ת
.>Syriac Ü > Ü > Ü Ü > Ü > > > Ü Ü Ü Ü Ü Ò© Ü Ü Ü¡ Ü¢ > Ü£ Ü¥ ܦ > ܨ Ü© ܪ > Ü« ܬ
.>Arabic ïº > ïº > ïº Ø¯Ø° Ù Ù > > > ï» ïº¯ ØØ® طظ > Ù ï» ï» ï»¡ ﻥ > س عغ ï» Øµ ض ï» ïº > Ø´ تث
- .>Lydian ð¤ > 𤡠> 𤢠𤣠> 𤤠ð¤¥- 𤧠> 𤰠- - - > 𤦠𤨠𤩠𤪠𤫠> - 𤬠- > 𤳠𤲠ð¤ > 𤮠ð¤¯
}],
Brahmic => [qw{
.>ISO k kh g gh á¹
c ch j jh > ñ á¹ á¹h Ḡá¸h á¹ t th d dh n á¹ p ph b bh m y r á¹ l ḷ ḻ v Å á¹£ s h