From ad6a4515fb0908ca8e64aede4151004a6efaaaef Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Thu, 27 Aug 2009 17:02:27 +0200 Subject: [PATCH] Formatting. --- mf/feta-bolletjes.mf | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf index ebc2fa7009..e8d8ff0fa3 100644 --- a/mf/feta-bolletjes.mf +++ b/mf/feta-bolletjes.mf @@ -221,7 +221,7 @@ fi; % % dimensions aren't entirely right. % -def draw_brevis (expr linescount) = +def draw_brevis (expr linecount) = save stemthick, fudge; stemthick# = 2 stafflinethickness#; @@ -244,9 +244,11 @@ def draw_brevis (expr linescount) = y4 = y2; y3 = y1; - for i := 0 step 1 until linescount-1: - draw_gridline (z1-(1.5*i*stemthick,0), z2-(1.5*i*stemthick,0), stemthick); - draw_gridline (z3+(1.5*i*stemthick,0), z4+(1.5*i*stemthick,0), stemthick); + for i := 0 step 1 until linecount - 1: + draw_gridline (z1 - (1.5 * i * stemthick, 0), + z2 - (1.5 * i * stemthick, 0), stemthick); + draw_gridline (z3 + (1.5 * i * stemthick, 0), + z4 + (1.5 * i * stemthick, 0), stemthick); endfor; enddef; @@ -266,12 +268,14 @@ if test > 0: fet_endchar; fi; + fet_beginchar ("Double-lined brevis notehead", "sM1double"); draw_brevis (2); draw_staff (-2, 2, 0); fet_endchar; + if test > 0: fet_beginchar ("Double-lined brevis notehead", "sM1double"); draw_brevis (2); -- 2.39.5