patch::: 1.3.72.mb2: forwarded message from Mats Bengtsson

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

diff --git a/mf/feta-beugel.mf b/mf/feta-beugel.mf
index 7f8558f69b835407d55aabf2ae3a74b4cf993430..0deab25aab3ab490cb68cf0be46cf3003b3c843e 100644 (file)
--- a/mf/feta-beugel.mf
+++ b/mf/feta-beugel.mf
@@ -15,7 +15,7 @@ def draw_brace( expr height_sharp, width_sharp) =
  
        define_pixels (height, width);
        thin = 2 stafflinethickness;
-       thick = .5 interline;
+       thick = .5 staff_space;
        
        z2 = .5 [z1, z3];
        y3 = y1 + height/2;
@@ -40,5 +40,7 @@ enddef;
 
 
 for h :=  2 staffsize#  step 1 pt# until (7 * staffsize#):
-       draw_brace(h, interline# );
+       % note: define_pixels (x) multiplies x by hppp,
+       %       we must never get bigger than infinity
+       draw_brace (min (h, infinity/hppp - 1), staff_space#);
 endfor