%
% source file of the Feta (not the Font-En-Tja) music font
%
-% (c) 1997--2005 Jan Nieuwenhuizen <janneke@gnu.org>
+% (c) 1997--2009 Jan Nieuwenhuizen <janneke@gnu.org>
ex# := (dynamic_design_size / 2.4) * pt#;
penpos8 (bulb_thick, 160);
x8l = x7l - 1/10 ex;
- z7l = whatever [z8r,z8l];
+ z7l = whatever [z8r, z8l];
penpos9 (bulb_thick, 135);
x9r = 0.1 [x8l, x8r];
code := 111;
-fet_beginchar("dynamic p", "p")
+fet_beginchar ("dynamic p", "p")
% TODO: w really is 13/12 ex
% but should do kerning
save twiddle_thick, stem_thick, cheek_thick, cheek_width;
save fill_up, straigh_len;
save serif, dishing_angle, p, tmp;
- save cheek_medium, left_serif_protude, right_serif_protude;
+ save cheek_medium, left_serif_protrude, right_serif_protrude;
save lower_overshoot;
save blot_t, corner_t;
path serif, p;
stem_thick = 2/6 ex;
cheek_thick = 13/32 ex;
cheek_width = 0.72 ex;
- left_serif_protude = 18/60 ex;
- right_serif_protude= 15/60 ex;
+ left_serif_protrude = 18/60 ex;
+ right_serif_protrude = 15/60 ex;
currenttransform := currenttransform slanted slant;
pickup pencircle scaled serif_thick;
- lft x11 = -left_serif_protude;
- rt x10 = stem_thick + right_serif_protude;
+ lft x11 = -left_serif_protrude;
+ rt x10 = stem_thick + right_serif_protrude;
bot y10 = bot y11 = -descender;
z15 = z6l + up * fill_up;
y6l = 23/80 ex + ypart center;
z6l = 1.6 [z3l, z3r] + whatever * idir;
- penpos7 (i_thick ,0);
+ penpos7 (i_thick, 0);
y7 = 0;
z7l = z5l + whatever * idir;
save twiddle_thick, attach_len, overshoot, taille;
pair base_point;
- set_char_box (0, .75 ex#, 0, 1ex#);
+ set_char_box (0, .75 ex#, 0, ex#);
stem_thick =.26 ex;
bulb_diam = .30 ex;
- twiddle_thick= 1.1 serif_thick;
+ twiddle_thick = 1.1 serif_thick;
overshoot = .5 serif_thick;
taille = -0.3 serif_thick;
attach_len + bulb_diam / 2 + stem_thick = w;