fet_begingroup ("dots");
-save dot_radius;
-4 dot_radius# = staff_space# - stafflinethickness#;
-define_whole_blacker_pixels (dot_radius);
-
-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#);
+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;
+
+ set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
fet_endchar;
-fet_endgroup("dots");
+fet_endgroup ("dots");