mf/feta-dots.mf

   1 % Feta (not the Font-En-Tja) music font -- a duration dot
   2 % This file is part of LilyPond, the GNU music typesetter.
   3 %
   4 % Copyright (C) 1997--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5 %
   6 % LilyPond is free software: you can redistribute it and/or modify
   7 % it under the terms of the GNU General Public License as published by
   8 % the Free Software Foundation, either version 3 of the License, or
   9 % (at your option) any later version.
  10 %
  11 % LilyPond is distributed in the hope that it will be useful,
  12 % but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 % GNU General Public License for more details.
  15 %
  16 % You should have received a copy of the GNU General Public License
  17 % along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 fet_begingroup ("dots");
  20
  21 save dot_diam;
  22
  23 2 dot_diam# = staff_space# - stafflinethickness#;
  24 define_whole_blacker_pixels (dot_diam);
  25
  26 fet_beginchar ("duration dot", "dot");
  27         pickup pencircle scaled dot_diam;
  28
  29         lft x0 = 0;
  30         top y0 = vround (.5 dot_diam);
  31
  32         drawdot z0;
  33
  34         set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
  35 fet_endchar;
  36
  37 fet_endgroup ("dots");