From: Werner Lemberg Date: Thu, 27 Aug 2009 15:02:27 +0000 (+0200) Subject: Formatting. X-Git-Tag: release/2.13.4-1~130 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ad6a4515fb0908ca8e64aede4151004a6efaaaef;p=lilypond.git Formatting. --- 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);