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

diff --git a/latin.plp b/latin.plp
index 162a0b6d69e14cec796da85b9772a4b53af5b1f4..85cabe4d0a110d9c13e0a79c1e3a3259119b72d7 100644 (file)
--- 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 (file)
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 78e36b690ed565e0d68587a21c68a3721b372b63..d4fd375d4f0363679285663ed24530c6167952d9 100644 (file)
--- 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{ ‧‑ ‑‧‧‧ ‑‧‑‧ ‑‧‧ ‧ ‧‧‐‧ ‐‐‧ ‧‧‧‧ ‧‧ ‧‐‐‐ ‐‧‐ ‧‐‧‧ ‐‐
                  ‐‧ ‐‐‐ ‧‐‐‧ ‐‐‧‐ ‧‐‧ ‧‧‧ ‐ ‧‧‐ ‧‧‧‐ ‧‐‐ ‐‧‧‐ ‐‧‐‐ ‐‐‧‧ }],