mf/parmesan-dots.mf

   1 % -%-Fundamental-%- -*-Metafont-*-
   2 % parmesan-dots.mf -- dot vaticana
   3 %
   4 % source file of LilyPond's pretty-but-neat music font
   5 %
   6 % (c) 2006--2007 Juergen Reuter <reuter@ipd.uka.de>
   7 %
   8
   9 fet_begingroup ("dots");
  10
  11 save dot_diam;
  12
  13 3 dot_diam# = staff_space# - stafflinethickness#;
  14 define_whole_blacker_pixels (dot_diam);
  15
  16 fet_beginchar ("duration dot", "dotvaticana");
  17         pickup pencircle scaled dot_diam;
  18
  19         lft x0 = 0;
  20         top y0 = vround (.5 dot_diam);
  21
  22         drawdot z0;
  23
  24         set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
  25 fet_endchar;
  26
  27 fet_endgroup ("dots");