From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 13 Mar 2010 00:51:19 +0000 (+0000)
Subject: latin: add sütterlin glyphs (includes ttf font)
X-Git-Tag: v1.3~22
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/bf86f324c9c3bee6d5299307688c79e4fb32dabd?hp=0afa5f70a0d6ca06d8ebe1724d1032b157057049

latin: add sütterlin glyphs (includes ttf font)
---

diff --git a/latin.plp b/latin.plp
index 162a0b6..85cabe4 100644
--- a/latin.plp
+++ b/latin.plp
@@ -8,11 +8,20 @@ Html({
 	keywords => [qw'
 		latin roman alphabet script letter unicode font glyph abc
 		writing comparison character sample test language
+		cursive fraktur
 	'],
 	stylesheet => [qw'light dark red'],
 });
 
 :>
+<style>
+	@font-face {
+		font-family: Suetterlin; /* R. G. Arens */
+		src: url("/suetterlin.ttf");
+	}
+	.glyphs tr:first-child+tr td.di-a { font-family: Suetterlin }
+</style>
+
 <h1>Latin alphabet</h1>
 
 <p>Also see <a href="/writing">other alphabets</a>
@@ -30,6 +39,7 @@ unless (exists $get{v}) {
 
 my %scriptname = (
 	latn     => 'Latin',
+	latfsuet => 'Sütterlin',
 	brai     => 'Braille',
 	morse    => 'Morse',
 );
diff --git a/suetterlin.ttf b/suetterlin.ttf
new file mode 100644
index 0000000..8a434d6
Binary files /dev/null and b/suetterlin.ttf differ
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 78e36b69..d4fd375 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -1,4 +1,5 @@
 latn     => [qw{ a b c d e f g h i j k l m n o p q r s t u v w x y z }],
+latfsuet => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
 brai     => [qw{ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }],
 morse    => [qw{ ‧‑ ‑‧‧‧ ‑‧‑‧ ‑‧‧ ‧ ‧‧‐‧ ‐‐‧ ‧‧‧‧ ‧‧ ‧‐‐‐ ‐‧‐ ‧‐‧‧ ‐‐
                  ‐‧ ‐‐‐ ‧‐‐‧ ‐‐‧‐ ‧‐‧ ‧‧‧ ‐ ‧‧‐ ‧‧‧‐ ‧‐‐ ‐‧‧‐ ‐‧‐‐ ‐‐‧‧ }],