Adapting parmesan-timesig.mf to mf2pt1.

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

diff --git a/mf/feta-puntje.mf b/mf/feta-puntje.mf
index 70812b44a6df28885f66903ecefa3c851ae9efea..e518e4c225b248fd47ff6c90750de29eca33e42e 100644 (file)
--- a/mf/feta-puntje.mf
+++ b/mf/feta-puntje.mf
@@ -1,21 +1,19 @@
-fet_begingroup("dots");
+fet_begingroup ("dots");
 
 save dot_diam;
-2 dot_diam# = interline# - stafflinethickness#;
-define_pixels(dot_diam);
 
-fet_beginchar("duration dot","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;
+2 dot_diam# = staff_space# - stafflinethickness#;
+define_whole_blacker_pixels (dot_diam);
 
-fet_beginchar("repeat dots", "repeatcolon", "repeatcolon")
+fet_beginchar ("duration dot", "dot");
        pickup pencircle scaled dot_diam;
-       draw (dot_diam/2, interline/2);
-       addto currentpicture also currentpicture yscaled -1;
-       set_char_box(0, dot_diam#, interline#/2, interline#/2);
-fet_endchar;
 
+       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");