script: add table to compare digits 0-9

[sheet.git] / script.plp

diff --git a/script.plp b/script.plp
index c09d933ee4775ea1fa4051ec3f5060c011014d24..0f40c682492757fa171a71506f9bf49bdae74c2c 100644 (file)
--- a/script.plp
+++ b/script.plp
@@ -28,35 +28,55 @@ use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 print $glyphs->table([qw{
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 print $glyphs->table([qw{

-       . A  𐌀 А  𐌰 Ⲁ Α  𐤀 א ﺍ
-       . B  𐌁 БВ 𐌱 Ⲃ Β  𐤁 ב ﺏ
-       . GC 𐌂 Г  𐌲 Ⲅ Γ  𐤂 ג ﺝ
-       . D  𐌃 Д  𐌳 Ⲇ Δ  𐤃 ד دذ
-       . E  𐌄 ЕЭ 𐌴 Ⲉ Ε  𐤄 ה هـ
-       . F  𐌅 -  𐍆 - -Ϝ 𐤅 ו ﻭ
-       . Y  - -Ѵ 𐍅 Ⲩ Υ  - - -
-       . VU 𐌖 У  - - -  - - -
-       . W  - -  - - -  - װ -
-       . Z  𐌆 З  𐌶 Ⲍ Ζ  𐤆 ז ﺯ
-       . H  𐌇 И  𐌷 Ⲏ Η  𐤇 ח حخ
-       . -  𐌈 Ѳ  𐌸 Ⲑ Θ  𐤈 ט طظ
-       . I  𐌉 І  𐌹 Ⲓ Ι  𐤉 י ي
-       . J  𐌝 -  - - Ј  - ײ -
-       . K  𐌊 К  𐌺 Ⲕ Κ  𐤊 כ ﻙ
-       . L  𐌋 Л  𐌻 Ⲗ Λ  𐤋 ל ﻝ
-       . M  𐌌 М  𐌼 Ⲙ Μ  𐤌 מ ﻡ
-       . N  𐌍 Н  𐌽 Ⲛ Ν  𐤍 נ ﻥ
-       . X  𐌎 Х  𐍇 Ⲭ Χ  𐤎 ס س
-       . -  - -Ѯ - Ⲝ Ξ  - - -
-       . O  𐌏 О  - Ⲟ Ο  𐤏 ע عغ
-       . P  𐌐 П  𐍀 Ⲡ Π  𐤐 פ ﻑ
-       . -  𐌑 Ц  - Ⲋ -Ϻ 𐤑 צ ص
-       . -  - Ч  - - -  - ץ ض
-       . Q  𐌒 -Ҁ - - -Ϙ 𐤒 ק ﻕ
-       . R  𐌓 Р  𐍂 Ⲣ Ρ  𐤓 ר ﺭ
-       . -  - Ш  - - Σ  𐤔 ש ش
-       . S  𐌔 С  𐍃 Ⲥ -Ϲ - - -
-       . T  𐌕 Т  𐍄 Ⲧ Τ  𐤕 ת تث
+       .>Chinese              壹 貳 參 肆 伍 陸 柒 捌 玖 零
+       .>Chinese              一 二 三 四 五 六 七 八 九 〇
+       .>Hangzhou             〡 〢 〣 〤 〥 〦 〧 〨 〩  
+       .>Ethiopic             ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱  
+       .>Khmer                ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ ០
+       .>Arabic_-_Indic       ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ ٠
+       .>Arabic_-_Indic_(Alt) ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۰
+       .>Lao                  ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ ໐
+       .>Malayalam_-_മലയാളം   ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ ൦
+       .>Tamil_-_தமிழ்         ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯  
+       .>Myanmar              ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ ၀
+       .>Thai_-_ไทย           ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐
+       .>Kannada              ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ ೦
+       .>Telugu               ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ ౦
+       .>Tibetan              ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༠
+       .>Bengali              ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ ০
+       .>Oriya_-_ଓଡ଼ିଆ          ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ ୦
+       .>Gurmukhi_-_ਪੰਜਾਬੀ     ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ ੦
+       .>Gujarati             ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ ૦
+       .>Devanagari           १ २ ३ ४ ५ ६ ७ ८ ९ ०
+       .>Arabic_(Western)     1 2 3 4 5 6 7 8 9 0
+       .>Roman                Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ  
+       .>Tengwar                       
+       .>Klingon                        
+}]);
+
+sub print_glyph_tables {
+       while (@_) {
+               printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
+               while (ref $_[0] and $_ = shift) {
+                       print $glyphs->table($_);
+               }
+               print '</div>';
+       }
+}
+
+print_glyph_tables(
+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     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ
+       .>Greek      Α > Β  > Γ  Δ  > Ε  -Ϝ >  >  Υ Ζ Η  Θ  Ι Ј Κ Λ Μ Ν Χ Ξ  Ο  Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ
+       .>Phoenician 𐤀 > 𐤁  > 𐤂  𐤃  > 𐤄  >  >  >  𐤅 𐤆 𐤇  𐤈  > 𐤉 𐤊 𐤋 𐤌 𐤍 > 𐤎  𐤏  𐤐 >  𐤑 𐤒  𐤓 > 𐤔  𐤕
+       .>Samaritan  ࠀ > ࠁ  > ࠂ  ࠃ  > ࠄ  >  >  >  ࠅ ࠆ ࠇ  ࠈ  > ࠉ ࠊ ࠋ ࠌ ࠍ > ࠎ  ࠏ  ࠐ >  ࠑ ࠒ  ࠓ > ࠔ  ࠕ
+       .>Hebrew     א > ב  > ג  ד  > ה  >  >  ו  װ ז ח  ט  י ײ כ ל מ נ > ס  ע  פ צ  ץ ק  ר > ש  ת
+       .>Syriac     ܐ > ܒ  > ܓ  ܕ  > ܗ  >  >  >  ܘ ܙ ܚ  ܛ  ܝ ҩ ܟ ܠ ܡ ܢ > ܣ  ܥ  ܦ >  ܨ ܩ  ܪ > ܫ  ܬ
+       .>Arabic     ﺍ > ﺏ  > ﺝ  دذ ه ـ  >  >  >  ﻭ ﺯ حخ طظ > ي ﻙ ﻝ ﻡ ﻥ > س  عغ ﻑ ص  ض ﻕ  ﺭ > ش  تث

 }]);
 
 :></div>
 }]);
 
 :></div>