]> git.donarmstrong.com Git - lilypond.git/blobdiff - mf/feta-beugel.mf
patch::: 1.3.72.mb2: forwarded message from Mats Bengtsson
[lilypond.git] / mf / feta-beugel.mf
index c51128173ae1c4726c8b3c3b4d8475db288a9170..0deab25aab3ab490cb68cf0be46cf3003b3c843e 100644 (file)
@@ -40,5 +40,7 @@ enddef;
 
 
 for h :=  2 staffsize#  step 1 pt# until (7 * staffsize#):
-       draw_brace(h, staff_space# );
+       % 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