X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0b7209ca5f81607c62ca764925735b7d934e94ba..146e4b5a7f0dd6f66e54d6d97cefe84ca053791a:/writing.plp?ds=sidebyside
diff --git a/writing.plp b/writing.plp
index 41bcdcb..5c7c982 100644
--- a/writing.plp
+++ b/writing.plp
@@ -2,7 +2,7 @@
Html({
title => 'writing system inheritance sheet',
- version => 'v1.0',
+ version => 'v1.1',
description => [
"Character comparison,",
"tracking letters as they evolve from Phoenician to modern scripts.",
@@ -12,104 +12,62 @@ Html({
script glyph unicode writing comparison character alphabet letter
history phoenician latin sample test language multilingual
'],
- stylesheet => [qw'light dark red'],
+ stylesheet => [qw'light circus dark red'],
+ data => [qw'writing-phnx.inc.pl'],
});
:>
Writing systems
-Also see charsets
+
+Comparison of Unicode letters in related alphabets.
+Also see charsets
and common chars.
-
+
<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
unless (exists $get{v}) {
$glyphs->{unicode}--;
- $glyphs->{digraph}--;
+ $glyphs->{anno} = [];
+ $glyphs->{style} = 'univer';
}
-print $glyphs->table([qw{
- .>Chinese 壹 è²³ å è ä¼ é¸ æ æ ç é¶
- .>Chinese ä¸ äº ä¸ å äº å
ä¸ å
« ä¹ ã
- .>Hangzhou 㡠㢠㣠㤠㥠㦠㧠㨠ã©
- .>Ethiopic ᩠᪠᫠ᬠá ᮠᯠᰠá±
- .>Khmer ᡠᢠᣠᤠᥠᦠ᧠ᨠ᩠á
- .>Arabic_-_Indic Ù¡ Ù¢ Ù£ Ù¤ Ù¥ Ù¦ Ù§ Ù¨ Ù© Ù
- .>Arabic_-_Indic_(Alt) Û± Û² Û³ Û´ Ûµ Û¶ Û· Û¸ Û¹ Û°
- .>Javanese ê§ ê§ ê§ ê§ ê§ ê§ ê§ ê§ ê§ ê§
- .>Balinese á á á á á á á á á á
- .>Sundanese ᮱ ᮲ ᮳ ᮴ ᮵ ᮶ ᮷ ᮸ ᮹ ᮰
- .>New_Tai_Lue ᧠᧠᧠᧠᧠᧠᧠᧠᧠á§
- .>Tai_Tham ᪠᪠᪠᪠᪠᪠᪠᪠᪠áª
- .>Tai_Tham_Hora ᪠᪠᪠᪠áª
᪠᪠᪠᪠áª
- .>Lao à» à» à» à» à» à» à» à» à» à»
- .>Malayalam_-_മലയാളഠ൧ ൨ ൩ ൪ ൫ ൬ ൠ൮ ൯ ൦
- .>Tamil_-_தமிழ௠௧ ௨ ௩ ௪ ௫ ௬ ௠௮ ௯
- .>Cham ê© ê© ê© ê© ê© ê© ê© ê© ê© ê©
- .>Kayah_Li ê¤ ê¤ ê¤ ê¤ ê¤
ê¤ ê¤ ê¤ ê¤ ê¤
- .>Myanmar á á á á á
á á á á á
- .>Thai_-_à¹à¸à¸¢ ๠๠๠๠๠๠๠๠๠à¹
- .>Kannada ೧ ೨ ೩ ೪ ೫ ೬ ೠ೮ ೯ ೦
- .>Telugu ౧ ౨ ౩ ౪ ౫ ౬ ౠ౮ ౯ ౦
- .>Tibetan ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ à¼
- .>Lepcha á± á± á± á± á±
á± á± á± á± á±
- .>Bengali ১ ২ ৩ ৪ ৫ ৬ ৠ৮ ৯ ০
- .>Ol_Chiki á± á± á± á± á± á± á± á± á± á±
- .>Saurashtra ê£ ê£ ê£ ê£ ê£ ê£ ê£ ê£ ê£ ê£
- .>Oriya_-_à¬àିଠৠਠ੠ઠૠଠà ஠௠à¦
- .>Gurmukhi_-_ਪੰà¨à¨¾à¨¬à© ੧ ੨ à©© ੪ à©« ੬ à© à©® ੯ ੦
- .>Gujarati ૧ ૨ ૩ ૪ ૫ ૬ ૠ૮ ૯ ૦
- .>Devanagari १ २ ३ ४ ५ ६ ॠ८ ९ ०
- .>Brahmi ð ð ð ð ð ð ð ð ð -
- .>Brahmi ð§ ð¨ ð© ðª ð« ð¬ ð ð® ð¯ ð¦
- .>Arabic_(Western) 1 2 3 4 5 6 7 8 9 0
- .>Roman â
â
¡ â
¢ â
£ â
¤ â
¥ â
¦ â
§ â
¨
- .>Tengwar î³ î¢ î£ î¤ î¥ î¦ î§ î¨ î© î°
- .>Klingon          
- .>Osmanya ð¡ ð¢ ð£ ð¤ ð¥ ð¦ ð§ ð¨ ð© ð
- .>Braille_[â ¼+] â â â â â â â â â â
-}]);
+my $scriptname = do 'writing-script.inc.pl';
+$_ = qq{
$_} for $scriptname->{latn} || ();
-$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 ð > ð > ð ð > ð ð
ð > > ð ð ð ð ð ð ð ð ð ð > ð ð ð > ð ð ð > ð ð
- .>Gothic ð° > ð± > ð² ð³ > ð´ ð > > ð
ð¶ ð· ð¸ > ð¹ ðº ð» ð¼ ð½ > ð ð¿ ð > - - ð > ð ð
- .>Coptic Ⲡ> Ⲡ> ⲠⲠ> Ⲡ> > > Ⲩ ⲠⲠⲠ> ⲠⲠⲠⲠⲠⲬ ⲠⲠⲠ> Ⲡ- Ⲣ > Ⲥ Ⲧ
- .>Cyrillic Ð Ð Ð > Ð Ð Ð Ð > -Ñ´ > У Ð Ð -Ѳ РРРРРРХ -Ñ® РРЦ Ч -Ò Ð Ð¨ С Т
- .>Lycian ð ð ð > ð ð
> ð > > > ð ð - ð > ð ð ð ð ð ð ð ð ð > - ð ð > ð ð
- .>Greek Î > Î > Î Î > Î -Ï > > Î¥ ΠΠΠΠРΠΠΠΠΧ Î Î Î > -Ϻ -Ï Î¡ Σ -Ϲ Τ
- .>Lydian ð¤ > 𤡠𤢠𤹠𤣠> 𤤠𤥠𤧠> 𤰠- - 𤱠> 𤦠𤨠𤩠𤪠𤫠> - 𤬠- > 𤳠𤲠ð¤ > 𤮠ð¤¯
- .>Phoenician ð¤ > ð¤ > ð¤ ð¤ > ð¤ > > > ð¤
ð¤ ð¤ ð¤ > ð¤ ð¤ ð¤ ð¤ ð¤ > ð¤ ð¤ ð¤ > ð¤ ð¤ ð¤ > ð¤ ð¤
- .>Samaritan à > à > à à > à > > > à
à à à > à à à à à > à à à > à à à > à à
- .>Hebrew × > × > × × > × > > × ×° × × × × ×² × × × × > ס ×¢ פ צ ×¥ ק ר > ש ת
- .>Syriac Ü > Ü > Ü Ü > Ü > > > Ü Ü Ü Ü Ü Ò© Ü Ü Ü¡ Ü¢ > Ü£ Ü¥ ܦ > ܨ Ü© ܪ > Ü« ܬ
- .>Arabic ïº > ïº > ïº Ø¯Ø° Ù Ù > > > ï» ïº¯ ØØ® طظ > Ù ï» ï» ï»¡ ﻥ > س عغ ï» Øµ ض ï» ïº > Ø´ تث
-}],
-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
- .>IPA k kÊ° É¡ ɡʱ Å c cÊ° É Éʱ > ɲ Ê ÊÊ° É Éʱ ɳ t̪ t̪ʰ d̪ d̪ʱ n̪ n p pÊ° b bʱ m j r ɾ l É É» Ê Ê Ê s ɦ
- .>Oriya ଠଠଠଠଠଠଠଠଠ> ଠଠଠଡ ଢ ଣ ତ ଥ ଦ ଧ > ନ ପ ଫ ବ ଠମ ଯ > ର ଲ > ଳ ଵ ଶ ଷ ସ ହ
- .>E._Nagari ঠঠঠঠঠঠঠঠঠ> ঠঠঠড ঢ ণ ত থ দ ধ > ন প ফ ব ঠম য > র/ৰ ল > - ৱ শ ষ স হ
- .>Devanagari ठठठठठठठठठ> ठठठड ढ ण त थ द ध न ऩ प फ ब ठम य र ऱ ल ळ ऴ व श ष स ह
- .>Gujarati ઠઠઠઠઠઠઠઠઠ> ઠઠઠડ ઢ ણ ત થ દ ધ > ન પ ફ બ ઠમ ય > ર લ > ળ વ શ ષ સ હ
- .>Gurmukhi ਠਠਠਠਠਠਠਠਠ> ਠਠਠਡ ਢ ਣ ਤ ਥ ਦ ਧ > ਨ ਪ ਫ ਬ ਠਮ ਯ > ਰ ਲ > ਲ਼ ਵ ਸ਼ - ਸ ਹ
- .>Tibetan འའའ- འà½
འའ- > འའའའ- འའའའ- > འའའའ- འཡ > ར ལ > - འཤ ཥ ས ཧ
- .>Brahmi ð ð ð ð ð ð ð ð ð > ð ð ð ð ð ð¡ ð¢ ð£ ð¤ ð¥ ð¦ -ð· ð§ ð¨ ð© ðª ð« ð¬ ð -ð¶ ð® ð´ -ðµ ð¯ ð° ð± ð² ð³
- .>Telugu à° à° à° à° à° à° à° à° à° > à° à° à° à°¡ à°¢ à°£ à°¤ à°¥ à°¦ à°§ > à°¨ à°ª à°« à°¬ à° à°® à°¯ à°° à°± à°² > à°³ à°µ à°¶ à°· à°¸ à°¹
- .>Kannada ಠಠಠಠಠಠಠಠಠ> ಠಠಠಡ ಢ ಣ ತ ಥ ದ ಧ > ನ ಪ ಫ ಬ ಠಮ ಯ ರ ಱ ಲ ಳ ೠವ ಶ ಷ ಸ ಹ
- .>Sinhala චචචචචචඡ ජ ඣ > ඤ ට ඨ ඩ ඪ ණ චථ ද ධ > න ප ඵ බ භ ම ය > ර ල > à·
à· à· à· à· à·
- .>Malayalam à´ à´ à´ à´ à´ à´ à´ à´ à´ > à´ à´ à´ à´¡ à´¢ à´£ à´¤ à´¥ à´¦ à´§ à´¨ -à´© à´ª à´« à´¬ à´ à´® à´¯ à´° à´± à´² à´³ à´´ à´µ à´¶ à´· à´¸ à´¹
- .>Tamil ஠- - - ஠஠- ஠- > ஠஠- - - ண த - - - ந ன ப - - - ம ய ர ற ல ள ழ வ ஶ ஷ ஸ ஹ
- .>Burmese á á á á á á
á á á á á á á á á á á á á á > á á á á á á á > á á á á á á á á á
- .>Khmer á á á á á á
á á á > á á á á á á á á á á > á á á á á á á > á á > - á á á á á
- .>Thai ภภภภภภภภภ> ภภภภภภภภภภ> ภภภภภม ย > ร ล > - ว ศ ษ ส ห
- .>Lao ຠຠ- ຠຠຠສ ຠ- > ຠ- - - - - ຠຠຠ- > ຠຠຠຠຠມ ຢ > ຣ ລ > - ວ - - - ຫ
- .>Baybayin á - á - á
- - - - > - - - - - - á - á - > á á - á - á á > á á > - - - - á á
-}]);
+for (
+ [phnx => 'Phoenician'],
+ [brah => 'Brahmi'],
+) {
+ my ($source, $title) = @$_;
+ my @table = do "writing-$source.inc.pl";
+ if ($! or $@) {
+ print "
$title
\n";
+ printf "
Table data not found: %s.
\n", $@ || $!;
+ next;
+ }
+ $glyphs->print($title => [map {
+ my $lead = s/^(-)// && $1;
+ ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" }
+ $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
+ } @table]);
+}
:>
+
+
+
+
+ unicode 1.1
+ | 20th century
+ | in 6.0 (2010)
+ | recent assignments
+ | proposed
+ | irregular
+ |
+
+