X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/946a46c18e8ef11d5f06ca30901e82d3bf6fd275..8ed454fdd94aae38d04fcd96cab15ef3b86b9cc5:/writing.plp
diff --git a/writing.plp b/writing.plp
index 8161389..30080ec 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,20 +59,10 @@ 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 ð > ð > ð ð > ð ð
> > ð ð ð ð ð ð ð ð ð ð > ð ð ð > ð ð ð > ð ð
+ .>Old_Italic ð > ð > ð ð > ð ð
ð > > ð ð ð ð ð ð ð ð ð ð > ð ð ð > ð ð ð > ð ð
.>Cyrillic Ð Ð Ð > Ð Ð Ð Ð > -Ñ´ > У РРѲ > РРРРРХ -Ñ® РРЦ Ч -Ò Ð Ð¨ С Т
.>Gothic ð° > ð± > ð² ð³ > ð´ ð > > ð
ð¶ ð· ð¸ > ð¹ ðº ð» ð¼ ð½ > ð ð¿ ð > - - ð > ð ð
.>Coptic Ⲡ> Ⲡ> ⲠⲠ> Ⲡ> > > Ⲩ ⲠⲠⲠ> ⲠⲠⲠⲠⲠⲬ ⲠⲠⲠ> Ⲡ- Ⲣ > Ⲥ Ⲧ
@@ -78,6 +72,7 @@ Western => [qw{
.>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