script: page to compare alphabets derived from phoenician

diff --git a/script.plp b/script.plp
new file mode 100644 (file)
index 0000000..c09d933
--- /dev/null
+++ b/script.plp
@@ -0,0 +1,63 @@
+<(common.inc.plp)><:
+
+Html({
+       title => 'script inheritance cheat sheet',
+       version => 'v1.0',
+       description => [
+               "Character comparison,",
+               "tracking letters as they evolve from Phoenician to modern scripts.",
+               "Good Unicode test sample.",
+       ],
+       keywords => [qw'
+               script glyph unicode writing comparison character alphabet letter
+               history phoenician latin sample test language multilingual
+       '],
+       stylesheet => [qw'light dark red'],
+});
+
+:>
+<h1>Scripts</h1>
+
+<p>Also see <a href="/charset">charsets</a>
+and <a href="/unicode">common chars</a>.</p>
+
+<div class="diinfo">
+
+<:
+use Shiar_Sheet::FormatChar;
+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  𐌕 Т  𐍄 Ⲧ Τ  𐤕 ת تث
+}]);
+
+:></div>
+