mf/feta-puntje.mf

   1 %
   2 % feta-puntje.mf -- a duration dot
   3 %
   4 % source file of the GNU LilyPond music typesetter
   5 %
   6 % (c) 1997--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 fet_begingroup ("dots");
   9
  10 save dot_diam;
  11
  12 2 dot_diam# = staff_space# - stafflinethickness#;
  13 define_whole_blacker_pixels (dot_diam);
  14
  15 fet_beginchar ("duration dot", "dot");
  16         pickup pencircle scaled dot_diam;
  17
  18         lft x0 = 0;
  19         top y0 = vround (.5 dot_diam);
  20
  21         drawdot z0;
  22
  23         set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
  24 fet_endchar;
  25
  26 fet_endgroup ("dots");