-% feta-klef.mf -- implement Clefs -*-Fundamental-*-
+% Feta (not the Font-En-Tja) music font -- implement Clefs -*-Fundamental-*-
+% This file is part of LilyPond, the GNU music typesetter.
%
-% part of LilyPond's pretty-but-neat music font
-%
-% source file of the Feta (not the Font-En-Tja) music font
-%
-% (c) 1997--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>,
+% Copyright (C) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>,
% Jan Nieuwenhuizen <janneke@gnu.org>,
% Juergen Reuter <reuter@ipd.uka.de>
+%
+% 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 ("clefs");
labels (1', 2', 3', 4', 5');
before := z3'{dir (turning_dir * 90)}
- .. z4'{-dir(0)}
+ .. z4'{-dir (0)}
..tension 1.1.. z1'{-dir (turning_dir* 90)};
after := z2'{dir (turning_dir * 90)}
.. end_point{dir (end_angle)};
pat := start_point{dir (start_angle)}
.. outer_tangent_point{dir (-turning_dir * 90)}
- ..tension 1.02.. z5'{dir(0)}
+ ..tension 1.02.. z5'{dir (0)}
.. subpath (0, u) of before
.. subpath (v, infinity) of after;
def draw_bass_clef (expr exact_center, reduction) =
save reduced_ss, swoosh_width;
- save right_thickness, right_offset, tip_protude;
+ save right_thickness, right_offset, tip_protrude;
save dot_diam, bulb_y_offset, bulb_flare;
- pair tip_protude;
+ pair tip_protrude;
reduced_ss# = staff_space# * reduction;
2.2 dot_diam# = reduction * (staff_space# - stafflinethickness#);
right_offset = 0.05 staff_space;
bulb_y_offset := 0.075 staff_space;
bulb_flare := 2.5 linethickness;
-% tip_protude := (-linethickness, -.2 staff_space);
- tip_protude := (0, 0);
+% tip_protrude := (-linethickness, -.2 staff_space);
+ tip_protrude := (0, 0);
set_char_box (-xpart exact_center,
xpart exact_center + swoosh_width# + 7/12 reduced_ss#,
% optical correction: the top dot seems farther away if y3l = 0.
y3l = right_offset;
- z4 = -(0, 2.0 reduced_ss) + tip_protude;
+ z4 = -(0, 2.0 reduced_ss) + tip_protrude;
penpos3 (whatever, 185);
penpos4 (linethickness, 135);
upward_swoosh_angle = 132;
start_angle = -97;
- breapth_factor = 21.0 /14;
+ breapth_factor = 21/14;
inner_thick_end = 45;
inner_start_angle = downstroke_angle - 43;
thickness = .32 reduced_ss + 1.1 linethickness;
penpos10 (.75 [penh, penw], 170);
z10 = pos + .375 vx + vy;
- penpos 11 (.8 [penh, penw], 150);
+ penpos11 (.8 [penh, penw], 150);
z11 = z10 - .5 vy + .04 vx;
penpos12 (penh, 100);
z12l = (xpart .5 [z13, z11], ypart pos);