* mf/feta-bolletjes.mf (overdone_heads): add small style (ugly)

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

diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf
index 8a1bd2883bb5208dea16ef68cd576365a649f863..98107ff8a4d3c3d780af4d34179fd315c6e79383 100644 (file)
--- a/mf/feta-bolletjes.mf
+++ b/mf/feta-bolletjes.mf
@@ -207,6 +207,8 @@ if test > 0:
 fi;
 
 
+
+
 fet_beginchar ("Half notehead", "s1");
        draw_outside_ellipse (1.53 - puff_up_factor / 3.0, 34, 0.66, 0.17);
        undraw_inside_ellipse (3.25, 33, 0.81, 2.5 stafflinethickness#);
@@ -235,7 +237,6 @@ fet_beginchar ("Quart notehead", "s2");
        draw_staff (-2, 2, 0);
 fet_endchar;
 
-
 if test > 0:
        fet_beginchar ("Quart notehead", "s2");
                draw_outside_ellipse (1.49 - puff_up_factor / 3.0, 31,
@@ -245,6 +246,38 @@ if test > 0:
        fet_endchar;
 fi;
 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%
+%% fonts for "small style"
+%% 
+
+fet_beginchar ("Half notehead (quarter size)", "s1small");
+       draw_outside_ellipse (1.49 - puff_up_factor / 3.0, 31, 0.707, 0.0);
+       undraw_inside_ellipse (3.25, 33, 0.81, 2.8 stafflinethickness#);
+
+       draw_staff (-2, 2, 0);
+fet_endchar;
+
+
+%% copy of normal.
+fet_beginchar ("Quart notehead (quarter size)", "s2small");
+       % used to have 32. With 31, they are slightly bolder.
+       draw_outside_ellipse (1.49 - puff_up_factor / 3.0, 31, 0.707, 0);
+       black_notehead_width# := charwd;
+
+       draw_staff (-2, 2, 0);
+fet_endchar;
+
+%% smaller.
+fet_beginchar ("Whole notehead (quarter size)", "s0small");
+       draw_outside_ellipse (1.60 - puff_up_factor / 3.0, 0, 0.707, 0);
+       undraw_inside_ellipse (1.30, 125 - puff_up_factor * 10,
+                              0.68, 2 stafflinethickness#);
+
+       draw_staff (-2, 2, 0);
+fet_endchar;
+
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%