Implement breve with double vertical lines on each side

[lilypond.git] / mf / feta-bolletjes.mf

diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf
index fcda600978cc99541031ab051d7ed902cfdb48c2..ebc2fa7009d843c8d39bce899e52fd4317c5d460 100644 (file)
--- a/mf/feta-bolletjes.mf
+++ b/mf/feta-bolletjes.mf
@@ -221,7 +221,7 @@ fi;
 %
 % dimensions aren't entirely right.
 %
-def draw_brevis =
+def draw_brevis (expr linescount) =
        save stemthick, fudge;
 
        stemthick# = 2 stafflinethickness#;
@@ -244,13 +244,15 @@ def draw_brevis =
        y4 = y2;
        y3 = y1;
 
-       draw_gridline (z1, z2, stemthick);
-       draw_gridline (z3, z4, stemthick);
+       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);
+       endfor;
 enddef;
 
 
 fet_beginchar ("Brevis notehead", "sM1");
-       draw_brevis;
+       draw_brevis (1);
 
        draw_staff (-2, 2, 0);
 fet_endchar;
@@ -258,7 +260,21 @@ fet_endchar;
 
 if test > 0:
        fet_beginchar ("Brevis notehead", "sM1");
-               draw_brevis;
+               draw_brevis(1);
+
+               draw_staff (-2, 2, 0.5);
+       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);
 
                draw_staff (-2, 2, 0.5);
        fet_endchar;