%
% dimensions aren't entirely right.
%
-def draw_brevis (expr linescount) =
+def draw_brevis (expr linecount) =
save stemthick, fudge;
stemthick# = 2 stafflinethickness#;
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;
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);