From 81ea44c70713e8884263bc76ad09dddf06f56bc2 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Sun, 24 Mar 2002 20:01:36 +0000
Subject: [PATCH] lilypond-0.1.29

---
 mf/feta-macros.mf | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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;
 
-- 
2.39.5