]> git.donarmstrong.com Git - lilypond.git/blobdiff - mf/feta-macros.mf
* lily/parser.yy <score_body>: Fix typo.
[lilypond.git] / mf / feta-macros.mf
index 6f07c7d2c381a400810b3052a53d845402efe39c..2fd3e72ae89a192ace18396272d1be40de0bbdef 100644 (file)
@@ -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