]> git.donarmstrong.com Git - lilypond.git/blobdiff - mf/feta-clefs.mf
Merge remote branch 'origin/release/unstable' into HEAD
[lilypond.git] / mf / feta-clefs.mf
index 68589a34c500753a37e146b24b6254d910636111..e7dca3061ad705437a14c17a338b4d4c9f995ce4 100644 (file)
@@ -1,14 +1,14 @@
 % Feta (not the Font-En-Tja) music font --  implement Clefs -*-Fundamental-*-
 % This file is part of LilyPond, the GNU music typesetter.
 %
-% Copyright (C) 1997--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>,
+% Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>,
 % Jan Nieuwenhuizen <janneke@gnu.org>,
 % Juergen Reuter <reuter@ipd.uka.de>
 %
-% LilyPond is free software: you can redistribute it and/or modify
+% The LilyPond font is free software: you can redistribute it and/or modify
 % it under the terms of the GNU General Public License as published by
 % the Free Software Foundation, either version 3 of the License, or
-% (at your option) any later version.
+% (at your option) any later version, or under the SIL Open Font License.
 %
 % LilyPond is distributed in the hope that it will be useful,
 % but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -105,7 +105,7 @@ def draw_c_clef (expr reduction) =
 
        % ugh, should be bulb, not flare?
 
-       draw_staff (-2, 2, 0);
+       draw_staff_if_debugging (-2, 2);
 enddef;
 
 
@@ -270,7 +270,7 @@ def draw_bass_clef (expr exact_center, reduction) =
 
        penlabels (1, 2, 3, 4, 5, 6);
 
-       draw_staff (-3, 1, 0);
+       draw_staff_if_debugging (-3, 1);
 enddef;
 
 
@@ -305,17 +305,23 @@ def debugfill = fill enddef;
 def draw_gclef (expr reduction) =
        save reduced_ss, downstroke_dir, downstroke_angle, center;
        save breapth_factor, inner_thick_end, thinness, thickness, thinnib;
-       save start_angle, inner_start_angle, thinness;
+       save start_angle, inner_start_angle;
        save upward_swoosh_angle, bot_angle;
        save pat;
+       save corr_angle, corr, left_, right_, up_, down_, bot_angle_;
        path pat;
        pair downstroke_dir, center;
-       save corr_angle, corr;
        transform corr;
+       pair left_, right_, up_, down_;
 
        reduced_ss# = staff_space# * reduction;
        define_pixels (reduced_ss);
 
+       % G clef has now a smaller upper loop than it used to have.
+       % Too small loop in reduced clef (G_change) interacts badly
+       % with stafflines, so we make reduced clef's loop a bit bigger.
+       reduced_loop_correction := min (max (0.94, (0.6 + 0.46 * reduction)), 1);
+
        thinness = 0.095 staff_space + 0.75 linethickness;
        downstroke_dir = unitvector (14, -75);
        downstroke_angle = angle downstroke_dir;
@@ -327,12 +333,12 @@ def draw_gclef (expr reduction) =
        breapth_factor = 21/14;
        inner_thick_end = 45;
        inner_start_angle = downstroke_angle - 43;
-       thickness = .32 reduced_ss + 1.1 linethickness;
+       thickness = .33 reduced_ss + 1.1 linethickness;
 
        thinnib = thinness;
 
        set_char_box (0, 1.71 * breapth_factor * reduced_ss#,
-                     2.6 * reduced_ss#, 5 * reduced_ss#);
+                     2.55 * reduced_ss#, 4.8 * reduced_ss# / reduced_loop_correction);
 
        center := (breapth_factor * reduced_ss, 0);
 
@@ -355,32 +361,32 @@ def draw_gclef (expr reduction) =
        y5r = .37 reduced_ss + ypart center;
        penpos5 (thickness, upward_swoosh_angle);
 
-       z6 = center + whatever * downstroke_dir;
-       y6 = ypart center + 2 reduced_ss;
+       z6 = center + whatever * downstroke_dir + (-0.02, 0) * reduced_ss;
+       y6 = ypart center + 1.95 reduced_ss / reduced_loop_correction;
        % penpos6 is computed later
 
-       z7l - z6 = whatever * (z5 - z6) ;
-       y7l = 3.5 reduced_ss;
+       z7l - z6 = whatever * (z5 - z6);
+       y7l = 3.38 reduced_ss / reduced_loop_correction;
        penpos7 (thickness, upward_swoosh_angle);
 
-       x9 = .7 [x10, x7r];
-       top y9l = 5 reduced_ss;
+       x9 = .75 [x10, x7r];
+       top y9l = 4.78 reduced_ss / reduced_loop_correction;
        penpos9 (1.45 thickness, -70);
 
-       x11 - x13r = 1.5 reduced_ss + 0.5 thinnib;
-       y11 = ypart center - 47/28 reduced_ss;
-       y12 = ypart center - 71/28 reduced_ss;
+       x11 - x13r = 1.44 * reduced_ss + 0.5 thinnib;
+       y11 = ypart center - 45/28 reduced_ss;
+       y12 = ypart center - 69/28 reduced_ss;
        y13 = .48 [y12, y4r];
        x12r = xpart (.45 [z13r, z11] + .75 reduced_ss * downstroke_dir);
 
 %      z10 = center + whatever * dir (downstroke_angle - 1.5);
-       x10 = x6 - 2 thinnib;
-       y10 = ypart center + 3.5 reduced_ss;
+       x10 = x6 - 1.85 thinnib * reduction / reduced_loop_correction;
+       y10 = ypart center + 3.32 reduced_ss / reduced_loop_correction;
        y10l - y10r = 1.0 thickness;
        z10r - z10l = .7 thinnib * dir (downstroke_angle + 90)
                      + whatever * downstroke_dir;
        z10 = .5 [z10l, z10r];
-       z11 = center + whatever * downstroke_dir + (-0.05 reduced_ss, 0);
+       z11 = center + whatever * downstroke_dir + (0.03 reduced_ss, 0);
 
        penpos11 (thinnib, start_angle + 90);
        penpos12 (thinnib, bot_angle + 90);
@@ -402,7 +408,7 @@ def draw_gclef (expr reduction) =
        z10' = point 0.3 of pat;
        penpos10' (1.3 thinnib, angle (direction 0.3 of pat) + 50);
 
-       z11' = point 1.5 of pat;
+       z11' = point 1.5 of pat + (0.033, -0.5) * reduced_ss;
        penpos11' (thinnib, angle (direction 1.5 of pat) + 90);
 
        z21l = z20l;
@@ -412,55 +418,63 @@ def draw_gclef (expr reduction) =
        % rotating the whole picture won't work due to the complexity
        % of the path and metafont's memory limitations, so we transform
        % each point and draw the clef thereafter
-       corr_angle = 1.5;
-       corr = identity rotatedabout (center, -corr_angle);
+       corr_angle := 1.5;
+       corr := identity rotatedabout (center, -corr_angle);
+
+       bot_angle_ := bot_angle + corr_angle;
+
+       left_ := left rotated corr_angle;
+       right_ := right rotated corr_angle;
+       up_ := up rotated corr_angle;
+       down_ := down rotated corr_angle;
 
        % transform points; we transform every point and save it
-       % to a shifted index range: z1 -> z101, z2 ->z102 etc.
-       for n=1 upto 21:
-           forsuffixes e=l,,r:
-              z[n+100]e = z[n]e  transformed corr;
-           endfor
+       % to a shifted index range: z1 -> z101, z2 -> z102, etc.
+       for n := 1 upto 21:
+               forsuffixes e := l,,r:
+                       z[n+100]e = z[n]e transformed corr;
+               endfor
        endfor
+
        % transform helper points
-       for n=10,11:
-               forsuffixes e=l,,r:
+       for n := 10, 11:
+               forsuffixes e := l,,r:
                        z[n+100]'e = z[n]'e transformed corr;
                endfor
        endfor
 
        pat := z121l
-              .. z110l{dir -90} % was {down}
+              .. z110l{down}
               .. z110'l;
 
-       fill z102l{dir 0} % {right}
+       fill z102l{right}
             .. z103l
-            .. z104l{dir (180 + corr_angle)} % {left}
-            ..tension 1.07.. z105l{dir (90 + corr_angle)}  % inside curve % was {up}
-            .. z107l{dir (90 + corr_angle)} % {up}
+            .. z104l{left_}
+            ..tension 1.07.. z105l{up_}% inside curve
+            .. z107l{up_}
             ..tension 1.2.. z120r{curl 1}
             .. {direction 0 of pat}z120l
             -- z108
             -- z109r                   % {dir (downstroke_angle + 0)}
-            ..tension 0.8.. z107r{dir (-90 + corr_angle)} %{down}
-            .. z105r{dir (-90 + corr_angle)} %{down}
-            .. z104r{dir corr_angle} %{right}
+            ..tension 0.8.. z107r{down_}
+            .. z105r{down_}
+            .. z104r{right_}
             .. z103r
-            .. z102r{dir (180 + corr_angle)} % {left}
+            .. z102r{left_}
             ..tension .95.. z101r
             -- simple_serif (z101r, z101l, 80)
             -- z101l
             ..tension 0.85.. cycle;
 
        penstroke z121e
-                 .. z110e{dir (-90 + corr_angle)} %{down}
+                 .. z110e{down_}
                  .. z110'e
                  .. z106e
                  .. z111'e
                  .. z111e{dir (-95 + corr_angle)}
-                 .. z112e{dir (bot_angle + corr_angle)};
+                 .. z112e{dir (bot_angle_)};
 
-       fill new_bulb (z112r, bot_angle + corr_angle, z113r, z112l, bot_angle + corr_angle + 180,
+       fill new_bulb (z112r, bot_angle_, z113r, z112l, bot_angle_ + 180,
                       0.45 reduced_ss, 0.38 reduced_ss,
                       thinnib + .05 staff_space, 1, -1)
             -- cycle;
@@ -468,7 +482,7 @@ def draw_gclef (expr reduction) =
        penlabels (range 101 thru 121);
        penlabels (110', 111');
 
-       draw_staff (-1, 3, 0);
+       draw_staff_if_debugging (-1, 3);
 enddef;
 
 
@@ -508,7 +522,7 @@ def draw_percussion_clef (expr reduction) =
        draw_block ((-b, -d), (-b + razt, h));
        draw_block ((w - razt, -d), (w, h));
 
-       draw_staff (-3, 1, 1);
+       draw_staff_if_debugging (-3, 1);
 enddef;
 
 
@@ -715,7 +729,7 @@ def draw_tab_clef (expr reduction) =
        draw_tab_B ((-b + .025 reduced_ss, -d),
                    (2.1 reduced_ss, letterheight), 0.25);
 
-       draw_staff (-3, 2, 0.5);
+       draw_staff_if_debugging (-3, 2);
 enddef;