%
% source file of LilyPond's pretty-but-neat music font
%
-% (c) 2001--2002 Juergen Reuter <reuter@ipd.uka.de>
+% (c) 2001--2003 Juergen Reuter <reuter@ipd.uka.de>
%
% Neo-mensural heads originally by
% Christian Mondrup and Mats Bengtsson
%
% parameterized punctum
-def punctum_char (expr verbose_name, internal_name, mudela_name,
+def punctum_char (expr verbose_name, internal_name, ly_name,
left_stem, right_stem, linea, cavum,
straight, auctum, direction_up, excentric, up_shift, mag) =
- fet_beginchar(verbose_name, internal_name, mudela_name)
+ fet_beginchar(verbose_name, internal_name, ly_name)
save b_h, a_w;
a_b := 1.54; % b_h*a_b/a_w = wd/ht
b_h := 0.85;
enddef;
% parameterized punctum inclinatum
-def inclinatum_char(expr verbose_name, internal_name, mudela_name,
+def inclinatum_char(expr verbose_name, internal_name, ly_name,
small, stropha, auctum) =
- fet_beginchar(verbose_name, internal_name, mudela_name)
+ fet_beginchar(verbose_name, internal_name, ly_name)
save ht, alpha;
alpha# = 35;
if small:
fet_endchar;
% parametrized punctum
-def punctum_char (expr verbose_name, internal_name, mudela_name,
+def punctum_char (expr verbose_name, internal_name, ly_name,
left_up_stem, left_down_stem) =
- fet_beginchar(verbose_name, internal_name, mudela_name)
+ fet_beginchar(verbose_name, internal_name, ly_name)
save a, beta, ht, wd;
ht# = 2 staff_space#;
% punctum
% parametrized punctum
-def punctum_char (expr verbose_name, internal_name, mudela_name,
+def punctum_char (expr verbose_name, internal_name, ly_name,
down_stem) =
- fet_beginchar(verbose_name, internal_name, mudela_name)
+ fet_beginchar(verbose_name, internal_name, ly_name)
save alpha;
alpha# = 55;
draw_diamond_head (staff_space#, 0, 0, alpha#, false);