/usr/share/lilypond/2.14.2/fonts/source/feta-timesignatures.mf is in lilypond-data 2.14.2-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | % Feta (not the Font-En-Tja) music font -- implement Time Signatures
% This file is part of LilyPond, the GNU music typesetter.
%
% Copyright (C) 1998--2011 Mats Bengtsson <matsb@s3.kth.se>,
% Christian Mondrup <scancm@biobase.dk>
%
% LilyPond is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% LilyPond is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
fet_begingroup ("timesig");
%
% Originally by Mats B. nuked by Han-Wen, inspired by
% Baerenreiter BA320 (Bach Cello Suites, Suite III).
%
% Notes:
%
% * The inside curve of the C is rather straight.
% * The outside curve of the C is rather round.
% * Right tips of the C point slightly outward.
% * Lower tip protrudes to the right very slightly.
%
def draw_C =
save hair, bulb_rad, left_fatness;
save left_width, right_width;
save width, lower_offset;
width# := 1.8 staff_space# - stafflinethickness#;
left_width := 1.0 staff_space;
right_width := 0.8 staff_space;
hair := stafflinethickness;
bulb_rad := 0.40 staff_space - .6 stafflinethickness;
left_fatness := 0.55 * staff_space;
lower_offset := 0.3 stafflinethickness;
set_char_box (0, width#, staff_space#, staff_space#);
d := d - feta_shift;
x1r = w;
x3r = 0;
y1r = .45 h;
y2r = h + vround (.5 stafflinethickness_rounded);
y4r = -d - vround (.5 stafflinethickness_rounded);
x2 = x4;
x2 = x3r + h;
y3r = .5 (h - d);
x5r = x1r + lower_offset;
y5r = -0.37 h;
penpos1 (hair, 10);
penpos2 (stafflinethickness_rounded, 90);
penpos3 (left_fatness, 180);
penpos4 (stafflinethickness_rounded, -90);
penpos5 (hair, -13);
draw_bulb (-1, z1l, z1r, bulb_rad, .8);
save s;
s := 0.735;
fill z1l{dir (100)}
.. z2l{left}
..tension 0.8.. z3l{down}
..tension 0.8.. z4l{right}
.. simple_serif (z5l, z5r, -90)
.. z4r{left}
.. super_curvelet (z4r, z3r, s, -1)
.. z3r{up}
.. super_curvelet (z3r, z2r, s, 1)
.. z2r{right}
.. {dir (-80)}z1r
-- cycle;
penlabels (1, 2, 3, 4, 5);
draw_staff (-2, 2, 0);
enddef;
fet_beginchar ("4/4 meter", "C44");
draw_C;
fet_endchar;
fet_beginchar ("2/2 meter", "C22");
save eccentricity, top_stemlen, bottom_stemlen, thick, left_pos;
draw_C;
eccentricity = -1.75 stafflinethickness - 0.025 staff_space;
top_stemlen# = bottom_stemlen# = 1.4 staff_space#;
thick# = stafflinethickness# + 0.05 staff_space#;
define_whole_pixels (top_stemlen, bottom_stemlen);
define_whole_blacker_pixels (thick);
bottom_stemlen := bottom_stemlen - feta_shift;
draw_block ((x2 + eccentricity, -bottom_stemlen),
(x2 + eccentricity + thick, top_stemlen));
fet_endchar;
fet_endgroup ("timesig");
|