X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-macros.mf;h=2fd3e72ae89a192ace18396272d1be40de0bbdef;hb=317e73ce7c33e89312d32b609cacb1f71ccb394f;hp=ae413e6a516b647fc7ef2cbabee9462c921d47b3;hpb=fd58a98a46a3def26b80a895f1f7b81c92590fc3;p=lilypond.git

diff --git a/mf/feta-macros.mf b/mf/feta-macros.mf
index ae413e6a51..2fd3e72ae8 100644
--- a/mf/feta-macros.mf
+++ b/mf/feta-macros.mf
@@ -27,6 +27,21 @@ fi;
 
 enddef;
 
+% draw the outline of the stafflines. For fine tuning. 
+def draw_staff_outline(expr first, last, offset)=
+if test <> 0:
+	save p;
+	path p;
+	pickup pencircle scaled 2;
+	for i:= first step 1 until last:
+		p := (- staff_space,  (i + offset) * staff_space) .. (4 staff_space,( i+ offset)* staff_space);
+
+		draw p shifted (0, .5 stafflinethickness);
+		draw p shifted (0, -.5 stafflinethickness);
+	endfor
+fi;
+
+enddef;
 
 %
 % Transforms
@@ -305,3 +320,5 @@ def draw_bulb(expr turndir, zl, zr, bulb_rad, radius_factor)=
 
 	endgroup
 enddef;
+
+pi:=3.14159;