*** empty log message ***

[lilypond.git] / mf / feta-din-code.mf

diff --git a/mf/feta-din-code.mf b/mf/feta-din-code.mf
index 24f0e65747138bfd382ba1a815be7dc2867295ad..4f097510a08b6a1851ba03436cb217c0c257b6a2 100644 (file)
--- a/mf/feta-din-code.mf
+++ b/mf/feta-din-code.mf
@@ -1,11 +1,22 @@
+%%
+%
+% TODO: blot diameter should be fixed, not scalable.
+%
+%
+
 
 save serif_thick;
-serif_thick# = 1.1 stafflinethickness#;
+serif_thick# = 1.1 linethickness#;
 define_blacker_pixels (serif_thick);
-med_thick = round (1.5 stafflinethickness);
+med_thick = round (1.5 linethickness);
 bottom_blot = 1.3 serif_thick;
 
 
+code := 32;
+fet_beginchar("Space", "space", "space")
+       set_char_box(0, horizontal_space#,  0, ex#);
+fet_endchar;
+
 
 %
 % Couldn't find many z examples. This one is losely inspired 
@@ -13,7 +24,7 @@ bottom_blot = 1.3 serif_thick;
 %
 
 code := 121;
-fet_beginchar ("dynamic z", "z", "dynz");
+fet_beginchar ("dynamic z", "z", "z");
        set_char_box (0, .98 ex#, 0, 0.9 ex#);
 
        save thin_thick, top_narrow, over_shoot;
@@ -100,7 +111,7 @@ slant_angle = 20;
 
 
 code := 101;
-fet_beginchar("dynamic f", "f", "dynf");
+fet_beginchar("dynamic f", "f", "f");
        set_char_box (0, 1.1 ex#, descender#, ex# + ascender#);
 
        save left_angle, right_angle;
@@ -198,7 +209,7 @@ fet_endchar;
 
 
 code := 114;
-fet_beginchar("dynamic s", "s", "dyns");
+fet_beginchar("dynamic s", "s", "s");
        set_char_box (0, 17/24  ex#, 0, 1 ex#);
 
        save left_angle, right_angle;
@@ -304,7 +315,7 @@ currenttransform := currenttransform slanted slant;
 code := 111;
 
 
-fet_beginchar("dynamic p", "p", "dynp")
+fet_beginchar("dynamic p", "p", "p")
        %
        % TODO w really   is 13/12 ex
        % but should do kerning
@@ -456,7 +467,7 @@ fet_endchar;
 %
 code := 108;
 
-fet_beginchar("dynamic m", "m", "dynm");
+fet_beginchar("dynamic m", "m", "m");
        set_char_box (0, 1.5 ex#, 0, 1.0 ex#);
 
        % should share code with p for twiddle.
@@ -605,7 +616,7 @@ code := 113;
 
 
 currenttransform := identity slanted ypart(dir(15));
-fet_beginchar("dynamic r", "r", "dynr");
+fet_beginchar("dynamic r", "r", "r");
        set_char_box (0, .75 ex#, 0, 1ex#);
 
 
@@ -693,7 +704,7 @@ fet_endchar ;
 
 %%% KERNING
 
-ligtable "m" : "p" kern 0.15 ex#, "f" kern -0.1 ex#;
+ligtable "m" : "p" kern 0.2 ex#, "f" kern -0.1 ex#;
 ligtable "f" : "f" kern -0.13 ex#;
 ligtable "r" : "f" kern 0.1 ex#;