%
% source file of LilyPond's pretty-but-neat music font
%
-% (c) 1997--2003 Jan Nieuwenhuizen <janneke@gnu.org>
+% (c) 1997--2004 Jan Nieuwenhuizen <janneke@gnu.org>
% & Han-Wen Nienhuys <hanwen@cs.uu.nl>
% & Juergen Reuter <reuter@ipd.uka.de>
%
fet_endchar;
fet_beginchar("Quart notehead", "2", "quarthead")
- draw_outside_ellipse (1.54 - puff_up_factor / 2.0, 32, 0.707, 0);
+
+ % used to have 32. With 30, they are slightly bolder.
+ draw_outside_ellipse (1.42 - puff_up_factor / 3.0, 30, 0.707, 0);
black_notehead_width# := charwd;
fet_endchar;
-fet_beginchar("Quart notehead", "2AA", "quarthead")
+%%%%%%%%%%%%%%%%
+
+%% testing shapes.
+
+if 0 = 1 :
+
+
+fet_beginchar("Quart noteheadPQ", "2PQ", "quartheadPQ")
+ draw_outside_ellipse (1.0 - puff_up_factor / 2.0, 32, 0.707, 0);
+fet_endchar;
+
+fet_beginchar("Quart noteheadAA", "2AA", "quartheadAA")
+ draw_outside_ellipse (1.35 - puff_up_factor / 2.0, 32, 0.707, 0);
+fet_endchar;
+
+fet_beginchar("Quart noteheadAB", "2AB", "quartheadAB")
+ draw_outside_ellipse (1.4 - puff_up_factor / 2.0, 32, 0.707, 0);
+
+fet_endchar;
+fet_beginchar("Quart noteheadAC", "2AC", "quartheadAC")
+ draw_outside_ellipse (1.45 - puff_up_factor / 2.0, 32, 0.707, 0);
+fet_endchar;
+
+fet_beginchar("Quart noteheadAD", "2AD", "quartheadAD")
+ draw_outside_ellipse (1.5 - puff_up_factor / 2.0, 32, 0.707, 0);
+fet_endchar;
+
+fet_beginchar("Quart noteheadAD", "2AE", "quartheadAD")
+ draw_outside_ellipse (1.55 - puff_up_factor / 2.0, 32, 0.707, 0);
+fet_endchar;
+
+fet_beginchar("Quart noteheadAD", "2AF", "quartheadAD")
draw_outside_ellipse (1.6 - puff_up_factor / 2.0, 32, 0.707, 0);
- black_notehead_width# := charwd;
fet_endchar;
-fet_beginchar("Quart notehead", "2AB", "quarthead")
+fet_beginchar("Quart noteheadAD", "2AG", "quartheadAD")
draw_outside_ellipse (1.65 - puff_up_factor / 2.0, 32, 0.707, 0);
- black_notehead_width# := charwd;
fet_endchar;
-fet_beginchar("Quart notehead", "2AC", "quarthead")
- draw_outside_ellipse (1.7 - puff_up_factor / 2.0, 32, 0.707, 0);
- black_notehead_width# := charwd;
+
+
+fet_beginchar("Quart noteheadBA", "2BA", "quartheadBA")
+ draw_outside_ellipse (1.35 - puff_up_factor / 2.0, 35, 0.707, 0);
fet_endchar;
-fet_beginchar("Quart notehead", "2AD", "quarthead")
- draw_outside_ellipse (1.75 - puff_up_factor / 2.0, 32, 0.707, 0);
- black_notehead_width# := charwd;
+fet_beginchar("Quart noteheadBB", "2BB", "quartheadBB")
+ draw_outside_ellipse (1.4 - puff_up_factor / 2.0, 35, 0.707, 0);
+
+fet_endchar;
+fet_beginchar("Quart noteheadBC", "2BC", "quartheadBC")
+ draw_outside_ellipse (1.45 - puff_up_factor / 2.0, 35, 0.707, 0);
fet_endchar;
-fet_beginchar("Quart notehead", "2BA", "quarthead")
+fet_beginchar("Quart noteheadBD", "2BD", "quartheadBD")
+ draw_outside_ellipse (1.5 - puff_up_factor / 2.0, 35, 0.707, 0);
+fet_endchar;
+fet_beginchar("Quart noteheadBD", "2BE", "quartheadBD")
+ draw_outside_ellipse (1.55 - puff_up_factor / 2.0, 35, 0.707, 0);
+fet_endchar;
+fet_beginchar("Quart noteheadBD", "2BF", "quartheadBD")
draw_outside_ellipse (1.6 - puff_up_factor / 2.0, 35, 0.707, 0);
- black_notehead_width# := charwd;
fet_endchar;
-fet_beginchar("Quart notehead", "2BB", "quarthead")
+fet_beginchar("Quart noteheadBD", "2BG", "quartheadBD")
draw_outside_ellipse (1.65 - puff_up_factor / 2.0, 35, 0.707, 0);
- black_notehead_width# := charwd;
fet_endchar;
-fet_beginchar("Quart notehead", "2BC", "quarthead")
- draw_outside_ellipse (1.7 - puff_up_factor / 2.0, 35, 0.707, 0);
- black_notehead_width# := charwd;
+
+
+
+fet_beginchar("Quart noteheadCA", "2CA", "quartheadCA")
+ draw_outside_ellipse (1.35 - puff_up_factor / 2.0, 40, 0.707, 0);
fet_endchar;
-fet_beginchar("Quart notehead", "2BD", "quarthead")
- draw_outside_ellipse (1.75 - puff_up_factor / 2.0, 35, 0.707, 0);
- black_notehead_width# := charwd;
+fet_beginchar("Quart noteheadCB", "2CB", "quartheadCB")
+ draw_outside_ellipse (1.4 - puff_up_factor / 2.0, 40, 0.707, 0);
fet_endchar;
-fet_beginchar("Quart notehead", "2CA", "quarthead")
- draw_outside_ellipse (1.6 - puff_up_factor / 2.0, 38, 0.707, 0);
- black_notehead_width# := charwd;
+fet_beginchar("Quart noteheadCC", "2CC", "quartheadCC")
+ draw_outside_ellipse (1.45 - puff_up_factor / 2.0, 40, 0.707, 0);
fet_endchar;
-fet_beginchar("Quart notehead", "2CB", "quarthead")
- draw_outside_ellipse (1.65 - puff_up_factor / 2.0, 38, 0.707, 0);
- black_notehead_width# := charwd;
+fet_beginchar("Quart noteheadCD", "2CD", "quartheadCD")
+ draw_outside_ellipse (1.5 - puff_up_factor / 2.0, 40, 0.707, 0);
fet_endchar;
-fet_beginchar("Quart notehead", "2CC", "quarthead")
- draw_outside_ellipse (1.7 - puff_up_factor / 2.0, 38, 0.707, 0);
- black_notehead_width# := charwd;
+fet_beginchar("Quart noteheadCD", "2CE", "quartheadCD")
+ draw_outside_ellipse (1.55 - puff_up_factor / 2.0, 40, 0.707, 0);
fet_endchar;
-fet_beginchar("Quart notehead", "2CD", "quarthead")
- draw_outside_ellipse (1.75 - puff_up_factor / 2.0, 38, 0.707, 0);
- black_notehead_width# := charwd;
+fet_beginchar("Quart noteheadCD", "2CF", "quartheadCD")
+ draw_outside_ellipse (1.6 - puff_up_factor / 2.0, 40, 0.707, 0);
fet_endchar;
+fet_beginchar("Quart noteheadCD", "2CG", "quartheadCD")
+ draw_outside_ellipse (1.65 - puff_up_factor / 2.0, 40, 0.707, 0);
+fet_endchar;
+
+fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
fet_endchar;
-fet_beginchar("Quart diamondheadh", "2diamondh", "diamondheadh")
+fet_beginchar("Quart diamondhead", "2diamond", "diamondhead")
draw_outside_ellipse (1.80, 35, 0.495, -0.25);
fet_endchar;