From: fred <fred>
Date: Sun, 24 Mar 2002 20:01:36 +0000 (+0000)
Subject: lilypond-0.1.29
X-Git-Tag: release/1.5.59~3656
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=81ea44c70713e8884263bc76ad09dddf06f56bc2;p=lilypond.git

lilypond-0.1.29
---

diff --git a/mf/feta-macros.mf b/mf/feta-macros.mf
index 3e03a9cfee..d7708f7932 100644
--- a/mf/feta-macros.mf
+++ b/mf/feta-macros.mf
@@ -158,17 +158,17 @@ enddef;
 % center_factor: typically .5, the larger, the larger the radius of the bulb
 % radius factor: how much the bulb curves inward
 %
-def draw_bulb(expr turndir, zl, zr, center_factor, radius_factor)=
+def draw_bulb(expr turndir, zl, zr, bulb_rad, radius_factor)=
 	begingroup;
 	clearxy;
 	save rad, ang;
 
 	ang = angle(zr-zl);
-	z0 = center_factor [zr, zl];
-	rad =  length(zr - z0);
-	
+	z0 = zr + bulb_rad * (zl-zr)/length(zr -zl);
+	rad =  bulb_rad;
+
 	z1 = z0 + radius_factor* rad * dir(ang + turndir* 100);
-	z2 = z0 + rad * dir(ang  + turndir*270);
+	z2 = z0 + rad * dir(ang  + turndir*300);
 	labels(0,1,2);
 	fill zr{dir (ang + turndir* 90)} .. z1 .. z2 -- cycle;