(overdone_heads): add small style (ugly)

note heads, for uniform widths in shape note output.
(overdone_heads): hmm. remove them again.

diff --git a/ChangeLog b/ChangeLog
index 6d302b4d3b1aefb35f42676cd488d5ce5e31e813..fb79d103fd38b8df638fbc05df386499dc9ea8a0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 
        * mf/feta-bolletjes.mf (overdone_heads): add small style (ugly)
        note heads, for uniform widths in shape note output.
+       (overdone_heads): hmm. remove them again.
 
        * scripts/lilypond-book.py (output): add links to filenames.
 

diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf
index 98107ff8a4d3c3d780af4d34179fd315c6e79383..dd83129a6a44f6ff3e43e2e860b0a1f3fb5147e7 100644 (file)
--- a/mf/feta-bolletjes.mf
+++ b/mf/feta-bolletjes.mf
@@ -246,38 +246,6 @@ 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;
-
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%