Merge branch 'master' of ssh+git://hanwen@git.sv.gnu.org/srv/git/lilypond

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

diff --git a/mf/feta-puntje.mf b/mf/feta-puntje.mf
index 5a038af02ac0d8c6532ab1220de843fa2c86eea7..5466c24668ad4e323fe34d6cbb5470eb1a486116 100644 (file)
--- a/mf/feta-puntje.mf
+++ b/mf/feta-puntje.mf
@@ -1,13 +1,26 @@
+%
+% feta-puntke.mf -- a duration dot
+%
+% source file of the GNU LilyPond music typesetter
+%
+% (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
 fet_begingroup ("dots");
 
-save dot_radius;
-4 dot_radius# = staff_space# - stafflinethickness#;
-define_whole_blacker_pixels (dot_radius);
+save dot_diam;
+
+2 dot_diam# = staff_space# - stafflinethickness#;
+define_whole_blacker_pixels (dot_diam);
+
+fet_beginchar ("duration dot", "dot");
+       pickup pencircle scaled dot_diam;
+
+       lft x0 = 0;
+       top y0 = vround (.5 dot_diam);
+
+       drawdot z0;
 
-fet_beginchar ("duration dot", "dot")
-       pickup pencircle scaled 2 dot_radius;
-       drawdot (dot_radius, 0);
-       set_char_box (0, 2*dot_radius#, dot_radius#, dot_radius#);
+       set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
 fet_endchar;
 
-fet_endgroup("dots");
+fet_endgroup ("dots");