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

lilypond-0.1.26
---

diff --git a/mf/feta-macros.mf b/mf/feta-macros.mf
index 01a314f985..3e03a9cfee 100644
--- a/mf/feta-macros.mf
+++ b/mf/feta-macros.mf
@@ -120,14 +120,6 @@ def brush(expr a,w,b,v) =
 	endgroup;
 enddef;
 
-def draw_rounded_path(expr p, thick) =
-	push_pen(currentpen);
-	fill p;
-	pickup pencircle scaled thick;
-	draw p;
-	currentpen := pop_pen;
-enddef;
-
 %
 %
 %
@@ -160,3 +152,25 @@ def xy_mirror_char =
 	currentpicture := currentpicture scaled -1;
 	set_char_box(charwd, charbp, charht, chardp);
 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)=
+	begingroup;
+	clearxy;
+	save rad, ang;
+
+	ang = angle(zr-zl);
+	z0 = center_factor [zr, zl];
+	rad =  length(zr - z0);
+	
+	z1 = z0 + radius_factor* rad * dir(ang + turndir* 100);
+	z2 = z0 + rad * dir(ang  + turndir*270);
+	labels(0,1,2);
+	fill zr{dir (ang + turndir* 90)} .. z1 .. z2 -- cycle;
+
+	endgroup
+enddef;