From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 28 Mar 2006 14:53:48 +0000 (+0000)
Subject: (overdone_heads): add small style (ugly)
X-Git-Tag: release/2.9.0~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6e4fe16882ce24a867ec97a0a2ca79489d039af0;p=lilypond.git

(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 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;
-
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%