mf/feta-accidentals.mf

   1 % Feta (not the Font-En-Tja) music font --  Accidentals
   2 % This file is part of LilyPond, the GNU music typesetter.
   3 %
   4 % Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5 %
   6 % The LilyPond font 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, or you can redistribute it under
  10 % the SIL Open Font License.
  11 %
  12 % LilyPond is distributed in the hope that it will be useful,
  13 % but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 % GNU General Public License for more details.
  16 %
  17 % You should have received a copy of the GNU General Public License
  18 % along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  19
  20
  21 %
  22 % also show in other configuration wrt staff lines.
  23 %
  24 def draw_shifted_too =
  25 if test > 0:
  26         fet_beginchar ("shifted too", "");
  27                 set_char_box (0, 0, 0, 0);
  28                 currentpicture := remember_pic;
  29
  30                 draw_staff (-2, 2, 0.5);
  31         fet_endchar;
  32 fi;
  33 enddef;
  34
  35
  36 %
  37 % Accidentals from various sources, notably
  38 %
  39 %   Baerenreiter edition of Schuberts `Auf dem Strom' (sharp, natural)
  40 %   F Hofmeister edition of Muellers `Etueden fuer Horn' (double sharp, flat)
  41 %
  42
  43
  44 %
  45 % Naming for accidentals (including microtonal variants):
  46 %
  47 %   SHARPBASE[.SLASHES.STEMS]
  48 %   FLATBASE[.MODIFIER]
  49 %
  50 % Examples:
  51 %
  52 %   sharp.slashslash.stem
  53 %   mirroredflat.flat
  54 %
  55 %
  56
  57
  58 fet_begingroup ("accidentals");
  59
  60 save remember_pic;
  61 picture remember_pic;
  62
  63 input feta-arrow;
  64
  65 input feta-sharps;
  66
  67 input feta-naturals;
  68
  69 input feta-flats;
  70
  71 input feta-parenthesis;
  72
  73 fet_endgroup ("accidentals");