Run `make grand-replace'.

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

diff --git a/mf/feta-din-code.mf b/mf/feta-din-code.mf
index 6df1b289252ba30e4d59d9060bd88d62d4d162a6..ea6569acda54847eddb99fff4883a5e57d5c0a83 100644 (file)
--- a/mf/feta-din-code.mf
+++ b/mf/feta-din-code.mf
@@ -1,3 +1,11 @@
+% feta-din-code.mf -- implement dynamic signs
+%
+% part of LilyPond's pretty-but-neat music font
+%
+% source file of the Feta (not the Font-En-Tja) music font
+%
+% (c) 1997--2008 Jan Nieuwenhuizen <janneke@gnu.org>
+
 
 ex# := (dynamic_design_size / 2.4) * pt#;
 descender# := 0.5 ex#;
@@ -94,7 +102,7 @@ fet_beginchar ("dynamic z", "z");
             .. simple_serif (z3l, z3r, 90)
             .. z2{left}
             .. z1r{left}
-            .. tension 1.2.. cycle;
+            ..tension 1.2.. cycle;
 
 %      draw
        fill z3l
@@ -119,23 +127,19 @@ fet_endchar;
 %
 % NOTES:
 %
-% * the bulbs are open.
+% * the bulbs are open
 %
 % * blotting around the serif
 %
-%
-%
 % TODO: insert blots around the serif
 %
-%
-%
 
 slant_angle = 20;
 code := 101;
 
 fet_beginchar ("dynamic f", "f");
        save left_angle, right_angle;
-       save serif_length, serif_excentricity;
+       save serif_length, serif_eccentricity;
        save f_thick;
        save bulb_thick, bulb_diam, fill_up;
        save slant;
@@ -145,13 +149,13 @@ fet_beginchar ("dynamic f", "f");
        set_char_box (0, 1.1 ex#, descender#, ex# + ascender#);
 
        bulb_diam = 7.5 / 40 ex;
-       bulb_thick = 8.5/40 ex;
+       bulb_thick = 8.5 / 40 ex;
        fill_up = 1.5 serif_thick;
        left_angle = slant_angle - 6;
        right_angle = slant_angle - 3;
        f_thick = 7/16 ex;
        serif_length = 0.96 ex;
-       serif_excentricity = 0.01 ex;
+       serif_eccentricity = 0.01 ex;
 
        % z1 is the `base point'
        z1 = (0.2 ex, -serif_thick);
@@ -183,7 +187,7 @@ fet_beginchar ("dynamic f", "f");
        penpos8 (bulb_thick, 160);
        x8l = x7l - 1/10 ex;
 
-       z7l = whatever [z8r,z8l];
+       z7l = whatever [z8r, z8l];
 
        penpos9 (bulb_thick, 135);
        x9r = 0.1 [x8l, x8r];
@@ -205,7 +209,7 @@ fet_beginchar ("dynamic f", "f");
             .. z3r{left}
             ..tension 1.1.. z2r{z6 - z2r}
             -- z6{z6 - z2r}
-            ..tension 1.25 .. z7r{left}
+            ..tension 1.25.. z7r{left}
             .. z8r{up}
             .. z9r{right}
             .. z9l{down}
@@ -216,7 +220,7 @@ fet_beginchar ("dynamic f", "f");
        x13 - x14 = serif_length;
        y13 = y14;
        y14 = y2;
-       0.5 [x13, x14] = x2 + serif_excentricity;
+       0.5 [x13, x14] = x2 + serif_eccentricity;
 
        draw_rounded_block (z14 - (0, 0.7 serif_thick),
                            z13 + (0, 0.7 serif_thick),
@@ -336,7 +340,7 @@ slant := ypart (dir (slant_angle));
 %
 % * The slant is extreme: 20 degrees.
 %
-% * The twiddle (what'sitcalled) is a slightly darker than the serif.
+% * The twiddle (what's-it-called) is a slightly darker than the serif.
 %
 % * The hole in the cheek has a straight right side.
 %
@@ -345,14 +349,14 @@ slant := ypart (dir (slant_angle));
 
 code := 111;
 
-fet_beginchar("dynamic p", "p")
+fet_beginchar ("dynamic p", "p")
        % TODO: w really is 13/12 ex
        %       but should do kerning
 
        save twiddle_thick, stem_thick, cheek_thick, cheek_width;
        save fill_up, straigh_len;
        save serif, dishing_angle, p, tmp;
-       save cheek_medium, left_serif_protude, right_serif_protude;
+       save cheek_medium, left_serif_protrude, right_serif_protrude;
        save lower_overshoot;
        save blot_t, corner_t;
        path serif, p;
@@ -371,8 +375,8 @@ fet_beginchar("dynamic p", "p")
        stem_thick = 2/6 ex;
        cheek_thick = 13/32 ex;
        cheek_width = 0.72 ex;
-       left_serif_protude = 18/60 ex;
-       right_serif_protude= 15/60 ex;
+       left_serif_protrude = 18/60 ex;
+       right_serif_protrude = 15/60 ex;
 
        currenttransform := currenttransform slanted slant;
 
@@ -449,8 +453,8 @@ fet_beginchar("dynamic p", "p")
 
        pickup pencircle scaled serif_thick;
 
-       lft x11 = -left_serif_protude;
-       rt x10 = stem_thick + right_serif_protude;
+       lft x11 = -left_serif_protrude;
+       rt x10 = stem_thick + right_serif_protrude;
        bot y10 = bot y11 = -descender;
 
        z15 = z6l + up * fill_up;
@@ -653,7 +657,7 @@ fet_beginchar ("dynamic m", "m");
        y6l = 23/80 ex + ypart center;
        z6l = 1.6 [z3l, z3r] + whatever * idir;
 
-       penpos7 (i_thick ,0);
+       penpos7 (i_thick, 0);
        y7 = 0;
        z7l = z5l + whatever * idir;
 
@@ -681,11 +685,11 @@ fet_beginchar ("dynamic r", "r");
        save twiddle_thick, attach_len, overshoot, taille;
        pair base_point;
 
-       set_char_box (0, .75 ex#, 0, 1ex#);
+       set_char_box (0, .75 ex#, 0, ex#);
 
        stem_thick =.26 ex;
        bulb_diam = .30 ex;
-       twiddle_thick= 1.1 serif_thick;
+       twiddle_thick = 1.1 serif_thick;
        overshoot = .5 serif_thick;
        taille = -0.3 serif_thick;
        attach_len + bulb_diam / 2 + stem_thick = w;