From 6e4fe16882ce24a867ec97a0a2ca79489d039af0 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 28 Mar 2006 14:53:48 +0000
Subject: [PATCH] (overdone_heads): add small style (ugly) note heads, for
 uniform widths in shape note output. (overdone_heads): hmm. remove them
 again.

---
 ChangeLog            |  1 +
 mf/feta-bolletjes.mf | 32 --------------------------------
 2 files changed, 1 insertion(+), 32 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6d302b4d3b..fb79d103fd 100644
--- 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 98107ff8a4..dd83129a6a 100644
--- 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;
-
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
-- 
2.39.5