]> git.donarmstrong.com Git - lilypond.git/blobdiff - mf/feta-timesig.mf
Run `make grand-replace'.
[lilypond.git] / mf / feta-timesig.mf
index 48e901228013acda90fd2b1710f8345774fa4ecd..116a6764a4ee6a3225ccae17c4f9d1dbe71a9762 100644 (file)
@@ -3,7 +3,7 @@
 %
 % source file of the Feta (not an abbreviation of Font-En-Tja) music font
 %
-% (c) 1998--2005 Mats Bengtsson <matsb@s3.kth.se>,
+% (c) 1998--2008 Mats Bengtsson <matsb@s3.kth.se>,
 %               Christian Mondrup <scancm@biobase.dk>
 
 fet_begingroup ("timesig");
@@ -18,7 +18,7 @@ fet_begingroup ("timesig");
 %  * The inside curve of the C is rather straight.
 %  * The outside curve of the C is rather round.
 %  * Right tips of the C point slightly outward.
-%  * Lower tip protudes to the right very slightly.
+%  * Lower tip protrudes to the right very slightly.
 %
 
 def draw_C =
@@ -89,11 +89,11 @@ fet_endchar;
 
 
 fet_beginchar ("2/2 meter", "C22");
-       save excentricity, top_stemlen, bottom_stemlen, thick, left_pos;
+       save eccentricity, top_stemlen, bottom_stemlen, thick, left_pos;
 
        draw_C;
 
-       excentricity = -1.75 stafflinethickness - 0.025 staff_space;
+       eccentricity = -1.75 stafflinethickness - 0.025 staff_space;
        top_stemlen# = bottom_stemlen# = 1.4 staff_space#;
        thick# = stafflinethickness# + 0.05 staff_space#;
        define_whole_pixels (top_stemlen, bottom_stemlen);
@@ -101,8 +101,8 @@ fet_beginchar ("2/2 meter", "C22");
 
        bottom_stemlen := bottom_stemlen - feta_shift;
 
-       draw_block ((x2 + excentricity, -bottom_stemlen),
-                   (x2 + excentricity + thick, top_stemlen));
+       draw_block ((x2 + eccentricity, -bottom_stemlen),
+                   (x2 + eccentricity + thick, top_stemlen));
 fet_endchar;
 
 fet_endgroup ("timesig");