Revert "change longas similarly to how breves were changed"

This reverts commit 72b2acb98422cde09729517d2a62d382f7b73814.

diff --git a/mf/feta-noteheads.mf b/mf/feta-noteheads.mf
index 8fee28083196dc04663c78dd38afb1697742b8e0..87d9034713359aeb5e9cd0d4266334c8cbbf23ae 100644 (file)
--- a/mf/feta-noteheads.mf
+++ b/mf/feta-noteheads.mf
@@ -82,62 +82,42 @@ endgroup;
 enddef;
 
 
+%
+% dimensions aren't entirely right.
+%
 def draw_longa (expr up) =
        save stemthick, fudge;
 
        stemthick# = 2 stafflinethickness#;
        define_whole_blacker_pixels (stemthick);
 
-       % Longas of smaller design sizes should have their lines farther
-       % apart (the overlap with notehead ellipsoid should be smaller).
-       fudge = hround (blot_diameter
-                       * min (max (-0.15,
-                                   (0.9
-                                    - (20 / (design_size + 4)))),
-                              0.3));
+       fudge = hround (blot_diameter / 2);
 
        draw_outside_ellipse (1.80, 0, 0.707, 0);
        undraw_inside_ellipse (1.30, 125, 0.68, 2 stafflinethickness#);
 
-       set_char_box (stemthick#,
-                     width# + stemthick#,
-                     noteheight# / 2,
-                     noteheight# / 2);
-
        pickup pencircle scaled stemthick;
 
-       % Longas of smaller design sizes should have their lines longer.
-       line_length := min (max (0.7, (64/60 - (design_size / 60))), 0.85);
-
-       % Line lengths between 0.72 and 0.77 are not nice
-       % because they are neither separate nor connected
-       % when there is an interval of fourth.
-       if line_length < 0.75:
-               quanted_line_length := min (0.72, line_length);
-       else:
-               quanted_line_length := max (0.77, line_length);
-       fi;
-
        if up:
-               bot y1 = -quanted_line_length * staff_space;
-               top y2 = quanted_line_length * staff_space;
+               bot y1 = -d;
+               top y2 = h;
                rt x1 - fudge = 0;
                x1 = x2;
 
-               fudge + lft x3 = width;
+               fudge + lft x3 = w;
                x4 = x3;
                top y4 = h + 3.0 staff_space;
                y3 = y1;
        else:
                bot y1 = -d - 3.0 staff_space;
-               top y2 = quanted_line_length * staff_space;
+               top y2 = h;
                rt x1 - fudge = 0;
                x1 = x2;
 
-               fudge + lft x3 = width;
+               fudge + lft x3 = w;
                x4 = x3;
                y4 = y2;
-               bot y3 = -quanted_line_length * staff_space;
+               bot y3 = -d;
        fi;
 
        draw_gridline (z1, z2, stemthick);