* scripts/lilypond-book.py (process_snippets): Argument fix.

[lilypond.git] / mf / feta-klef.mf

diff --git a/mf/feta-klef.mf b/mf/feta-klef.mf
index c9e56a8c9266d9a451bcd6e9da804c445ac9f45e..eaff040c9e3a4c9395e23c90964e3ddb72a82689 100644 (file)
--- a/mf/feta-klef.mf
+++ b/mf/feta-klef.mf
@@ -4,7 +4,7 @@
 %
 % source file of the Feta (not the Font-En-Tja) music font
 %
-% (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>,
+% (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>,
 % Jan Nieuwenhuizen <janneke@gnu.org>,
 % Juergen Reuter <reuter@ipd.uka.de>
 
@@ -146,7 +146,7 @@ begingroup;
        labels (1', 2', 3', 4', 5');
 
        before := z3'{dir (turning_dir * 90)}
-                 .. z4'{-dir(0)}
+                 .. z4'{-dir (0)}
                  ..tension 1.1.. z1'{-dir (turning_dir* 90)};
        after := z2'{dir (turning_dir * 90)}
                 .. end_point{dir (end_angle)};
@@ -154,7 +154,7 @@ begingroup;
 
        pat := start_point{dir (start_angle)}
               .. outer_tangent_point{dir (-turning_dir * 90)}
-              ..tension 1.02.. z5'{dir(0)}
+              ..tension 1.02.. z5'{dir (0)}
               .. subpath (0, u) of before
               .. subpath (v, infinity) of after;
 
@@ -312,7 +312,7 @@ def draw_gclef (expr reduction) =
        upward_swoosh_angle = 132;
        start_angle = -97;
 
-       breapth_factor = 21.0 /14;
+       breapth_factor = 21/14;
        inner_thick_end = 45;
        inner_start_angle = downstroke_angle - 43;
        thickness = .32 reduced_ss + 1.1 linethickness;
@@ -387,8 +387,8 @@ def draw_gclef (expr reduction) =
        penpos6 (thinnib, angle (direction 1 of pat) + 90);
 
        % two auxiliary points to simulate `draw' with `penstroke'
-       z10' = point 0.5 of pat;
-       penpos10' (thinnib, angle (direction 0.5 of pat) + 90);
+       z10' = point 0.3 of pat;
+       penpos10' (1.3 thinnib, angle (direction 0.3 of pat) + 50);
 
        z11' = point 1.5 of pat;
        penpos11' (thinnib, angle (direction 1.5 of pat) + 90);
@@ -632,7 +632,7 @@ begingroup;
 
        penpos10 (.75 [penh, penw], 170);
        z10 = pos + .375 vx + vy;
-       penpos 11 (.8 [penh, penw], 150);
+       penpos11 (.8 [penh, penw], 150);
        z11 = z10 - .5 vy + .04 vx;
        penpos12 (penh, 100);
        z12l = (xpart .5 [z13, z11], ypart pos);