X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b5b3537710ed9f73e1c867e0cc27d50439eaf4cd..ca7123f5e6439a6726d2c603d5f51bc390916d8f:/digits.plp

diff --git a/digits.plp b/digits.plp
new file mode 100644
index 0000000..f688d05
--- /dev/null
+++ b/digits.plp
@@ -0,0 +1,49 @@
+<(common.inc.plp)><:
+
+Html({
+	title => 'digit characters 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'],
+	data => [qw'writing-digits.inc.pl'],
+});
+
+:>
+<h1>Writing systems</h1>
+
+<p>Also see comparison of <a href="/writing">writing systems</a>.</p>
+
+<div class="section">
+
+<:
+use Shiar_Sheet::FormatChar;
+my $glyphs = Shiar_Sheet::FormatChar->new;
+unless (exists $get{v}) {
+	$glyphs->{unicode}--;
+	$glyphs->{anno}  = [];
+	$glyphs->{style} = 0;
+}
+
+my $scriptname = do 'writing-script.inc.pl';
+$_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
+
+my @table = do "writing-digits.inc.pl";
+die "Table data not found: <em>$_</em>.\n" for $! || $@ || ();
+
+$glyphs->print([map {
+	ref $_ eq 'ARRAY' ? @{$_} : map { ".>$_" }
+		$scriptname->{"digits_$_"} || $scriptname->{$_} || $_
+} @table]);
+
+:></div>
+
+<hr>
+