X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-puntje.mf;h=e518e4c225b248fd47ff6c90750de29eca33e42e;hb=6acb7bac6eb134be8905b77661b6e7205bfcf48c;hp=74544b4429385c29d18ba1a02f26f8a1700f1aae;hpb=2ef0f6a17cfe1fe8b5be70a1c53212c20f6e3f30;p=lilypond.git

diff --git a/mf/feta-puntje.mf b/mf/feta-puntje.mf
index 74544b4429..e518e4c225 100644
--- a/mf/feta-puntje.mf
+++ b/mf/feta-puntje.mf
@@ -1,13 +1,19 @@
-fet_begingroup("dots");
+fet_begingroup ("dots");
 
-save dot_radius;
-4 dot_radius# = staff_space# - stafflinethickness#;
-define_whole_blacker_pixels(dot_radius);
+save dot_diam;
 
-fet_beginchar("duration dot","dot", "dot")
-	pickup pencircle scaled 2 dot_radius;
-	drawdot (dot_radius,0);
-	set_char_box(0, 2*dot_radius#, dot_radius#, dot_radius#);
+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;
+
+	set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
 fet_endchar;
 
-fet_endgroup("dots");
+fet_endgroup ("dots");