% (c) 2001--2006 Juergen Reuter <reuter@ipd.uka.de>
%
-fet_begingroup ("clefs")
+fet_begingroup ("clefs");
%
% character aligment:
% `f', etc. The shape of each clef character defines a vertical
% position that is assumed to represent this pitch. For the treble
% clef, it is the vertical position of the center of the spiral
-% ending that represents the 'g' pitch. For the bass clef, it is
+% ending that represents the `g' pitch. For the bass clef, it is
% the center between the two fat dots that define the vertical
-% position of the 'f' pitch. For the alto clef, it is the vertical
-% center of the clef that is aligned with the 'c' pitch. For each
+% position of the `f' pitch. For the alto clef, it is the vertical
+% center of the clef that is aligned with the `c' pitch. For each
% clef character, this center should be vertically aligned with the
% point (0, 0). The horizontal alignment of each clef character
% should be such that the vertical line through the point (0, 0)
fet_beginchar ("petrucci f clef", "petrucci.f");
if test = 1:
- draw_staff (-1,3, 0.0);
+ draw_staff (-1, 3, 0.0);
fi;
- draw_petrucci_f_clef ((0,0), 1.0);
+ draw_petrucci_f_clef ((0, 0), 1.0);
fet_endchar;
fet_beginchar ("petrucci f clef", "petrucci.f_change");
- draw_petrucci_f_clef ((0,0), .8);
+ draw_petrucci_f_clef ((0, 0), .8);
fet_endchar;
if test = 1:
draw_staff (-1, 3, 0.0);
fi;
- draw_mensural_f_clef ((0,0), 1.0);
+ draw_mensural_f_clef ((0, 0), 1.0);
fet_endchar;
fet_endchar;
-fet_endgroup ("clefs")
+fet_endgroup ("clefs");
save black_notehead_width;
numeric black_notehead_width;
-fet_begingroup ("noteheads")
+fet_begingroup ("noteheads");
%
% character aligment:
def inclinatum_char (expr verbose_name, internal_name,
small, stropha, auctum) =
- fet_beginchar (verbose_name, "s" & internal_name)
+ fet_beginchar (verbose_name, "s" & internal_name);
save ht, alpha;
alpha := 35;
% quilisma
-fet_beginchar ("Ed. Vat. quilisma", "svaticana.quilisma")
+fet_beginchar ("Ed. Vat. quilisma", "svaticana.quilisma");
save a_b, b_h, a_w;
a_b := 1.54; % b_h * a_b / a_w = wd / ht
% solesmes oriscus
-fet_beginchar ("Solesmes oriscus", "ssolesmes.oriscus")
+fet_beginchar ("Solesmes oriscus", "ssolesmes.oriscus");
save a_b, b_h, a_w;
a_b := 1.54; % b_h * a_b / a_w = wd / ht
%
% inclinatum
-fet_beginchar ("Ed. Med. inclinatum", "smedicaea.inclinatum")
+fet_beginchar ("Ed. Med. inclinatum", "smedicaea.inclinatum");
draw_diamond_head (1.2 staff_space#, 0, 0, 35, false);
fet_endchar;
fet_endchar;
-fet_endgroup ("noteheads")
+fet_endgroup ("noteheads");