+% feta-din-code.mf -- implement dynamic signs
+%
+% part of LilyPond's pretty-but-neat music font
+%
+% source file of the Feta (not the Font-En-Tja) music font
+%
+% (c) 1997--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+
ex# := (dynamic_design_size / 2.4) * pt#;
descender# := 0.5 ex#;
.. simple_serif (z3l, z3r, 90)
.. z2{left}
.. z1r{left}
- .. tension 1.2.. cycle;
+ ..tension 1.2.. cycle;
% draw
fill z3l
%
% NOTES:
%
-% * the bulbs are open.
+% * the bulbs are open
%
% * blotting around the serif
%
-%
-%
% TODO: insert blots around the serif
%
-%
-%
slant_angle = 20;
code := 101;
fet_beginchar ("dynamic f", "f");
save left_angle, right_angle;
- save serif_length, serif_excentricity;
+ save serif_length, serif_eccentricity;
save f_thick;
save bulb_thick, bulb_diam, fill_up;
save slant;
set_char_box (0, 1.1 ex#, descender#, ex# + ascender#);
bulb_diam = 7.5 / 40 ex;
- bulb_thick = 8.5/40 ex;
+ bulb_thick = 8.5 / 40 ex;
fill_up = 1.5 serif_thick;
left_angle = slant_angle - 6;
right_angle = slant_angle - 3;
f_thick = 7/16 ex;
serif_length = 0.96 ex;
- serif_excentricity = 0.01 ex;
+ serif_eccentricity = 0.01 ex;
% z1 is the `base point'
z1 = (0.2 ex, -serif_thick);
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];
.. z3r{left}
..tension 1.1.. z2r{z6 - z2r}
-- z6{z6 - z2r}
- ..tension 1.25 .. z7r{left}
+ ..tension 1.25.. z7r{left}
.. z8r{up}
.. z9r{right}
.. z9l{down}
x13 - x14 = serif_length;
y13 = y14;
y14 = y2;
- 0.5 [x13, x14] = x2 + serif_excentricity;
+ 0.5 [x13, x14] = x2 + serif_eccentricity;
draw_rounded_block (z14 - (0, 0.7 serif_thick),
z13 + (0, 0.7 serif_thick),
%
% * The slant is extreme: 20 degrees.
%
-% * The twiddle (what'sitcalled) is a slightly darker than the serif.
+% * The twiddle (what's-it-called) is a slightly darker than the serif.
%
% * The hole in the cheek has a straight right side.
%
code := 111;
-fet_beginchar("dynamic p", "p")
+fet_beginchar ("dynamic p", "p")
% TODO: w really is 13/12 ex
% but should do kerning
cheek_thick = 13/32 ex;
cheek_width = 0.72 ex;
left_serif_protude = 18/60 ex;
- right_serif_protude= 15/60 ex;
+ right_serif_protude = 15/60 ex;
currenttransform := currenttransform slanted slant;
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;