X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-puntje.mf;h=5466c24668ad4e323fe34d6cbb5470eb1a486116;hb=043f933507468034819c0a5810c21121089edfac;hp=67199364fb9538186efe257448cdf020e7525742;hpb=fc3e875d6bf06f0680e897faffdcab36ad975a03;p=lilypond.git

diff --git a/mf/feta-puntje.mf b/mf/feta-puntje.mf
index 67199364fb..5466c24668 100644
--- a/mf/feta-puntje.mf
+++ b/mf/feta-puntje.mf
@@ -1,27 +1,26 @@
-fet_begingroup("dots");
+%
+% 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_diam;
+
 2 dot_diam# = staff_space# - stafflinethickness#;
-define_pixels(dot_diam);
+define_whole_blacker_pixels (dot_diam);
 
-fet_beginchar("duration dot","dot", "dot")
+fet_beginchar ("duration dot", "dot");
 	pickup pencircle scaled dot_diam;
-	draw (dot_diam/2,0);
-	set_char_box(0, dot_diam#, dot_diam#/2, dot_diam#/2);
-fet_endchar;
 
-fet_beginchar("repeat dots", "repeatcolon", "repeatcolon")
-	pickup pencircle scaled dot_diam;
-	draw (dot_diam/2, staff_space/2);
-	addto currentpicture also currentpicture yscaled -1;
-	set_char_box(0, dot_diam#, staff_space#/2, staff_space#/2);
-fet_endchar;
+	lft x0 = 0;
+	top y0 = vround (.5 dot_diam);
 
-fet_beginchar("even repeat dots", "evenrepeatcolon", "evenrepeatcolon")
-	pickup pencircle scaled dot_diam;
-	draw (dot_diam/2, staff_space);
-	addto currentpicture also currentpicture yscaled -1;
-	set_char_box(0, dot_diam#, staff_space#, staff_space#);
+	drawdot z0;
+
+	set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
 fet_endchar;
 
-fet_endgroup("dots");
+fet_endgroup ("dots");