mf/feta-ties.mf

   1 % Feta (not the Font-En-Tja) music font -- small ties
   2 % This file is part of LilyPond, the GNU music typesetter.
   3 %
   4 % Copyright (C) 2011 Bertrand Bordage <bordage.bertrand@gmail.com>
   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 ("ties");
  20
  21 fet_beginchar ("lyric tie", "lyric");
  22         save padding;
  23
  24         padding := .4 staff_space;
  25
  26         set_char_box (0, 0,
  27                 .7 staff_space#, 0);
  28
  29         z1 = (-staff_space, -padding);
  30         z2 = (0, -d);
  31         z3 = (staff_space, -padding);
  32
  33         penpos1 (1.2 linethickness, 50);
  34         penpos2 (2 linethickness, 90);
  35         penpos3 (1.2 linethickness, 130);
  36
  37         fill z2l
  38                 .. simple_serif (z3l, z3r, 90)
  39                 .. z2r
  40                 .. simple_serif (z1r, z1l, 90)
  41                 .. cycle;
  42
  43         penlabels (1, 2, 3);
  44 fet_endchar;
  45
  46 fet_endgroup ("ties");