1 % -*- Fundamental -*- (emacs-20 mf mode mucks
2 % feta-pendaal.mf -- piano pedal markings
4 % part of LilyPond's pretty-but-neat music font
6 % source file of the Feta (not the Font-En-Tja) music font
8 % (c) 2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
14 % Pe = -0.034 pedalh == -0.07 staff-space
15 % ed = -0.27 pedalh == -0.53 staff-space
18 fet_begingroup ("pedal");
23 penh# = 0.7 linethickness#;
24 penw# = 2 penh# + 0.14 staff_space#;
25 define_pixels (penh, penw);
27 pedalh# = 2 staff_space#;
28 pedalbh# = 4/7 pedalh#;
29 define_pixels (pedalh, pedalbh);
32 fet_beginchar ("Pedal asterisk", "*");
33 save bulb, p, radius, thin, inner_r;
36 set_char_box (0, 7/9 pedalh#, 0, pedalh#);
38 z0 = (1/2 w, h - 1/2 w);
40 thin = 0.8 linethickness;
43 0.9 thin + bulb = (radius * pi * 2) / 8;
45 pickup pencircle scaled penh;
51 z1 = z0 + (0, radius);
56 z4l = z0 + inner_r * dir (90 + 360/16);
57 z4r = z0 + inner_r * dir (90 - 360/16);
62 penlabels (0, 1, 2, 3, 4);
68 .. z4l{dir (180 + 360/16)};
75 .. z4l{dir (180 + 360/16)}) rotatedaround (z0,
83 pickup pencircle scaled (7/8 inner_r);
89 %% ugh. rounded corners!
91 fet_beginchar ("Pedal dash", "-");
94 dash_thickness# := penw#;
95 define_whole_vertical_blacker_pixels (dash_thickness);
97 set_char_box (0, 3 penw#, 0, pedalbh#);
99 penpos1 (dash_thickness, 60);
100 penpos2 (dash_thickness, 60);
102 z1l = (0, vround (2/3 h - 1/2 penw));
103 z2r = (w, vround (y1l + 1.2 penw));
107 penstroke z1e{dir 40}
108 ..tension 1.2.. z2e{dir 40};
112 fet_beginchar ("Pedal dot", ".");
113 set_char_box (0, penw#, 0, penw#);
115 pickup pencircle scaled penw;
117 drawdot (hround (1/2 penw), vround (1/2 penw));
121 def draw_pedal_P (expr show_labels) =
125 penpos1 (hround penh, 0);
127 penpos3 (penw, pedalpha);
128 penpos4 (1.2 penh, -pedalpha);
129 penpos5 (penh, -pedalpha);
130 penpos6 (penh, 180 - pedalpha);
131 penpos7 (2 penh, 180 - pedalpha);
133 penpos9 (4/3 penw, 50);
134 penpos10 (1.4 penw, 50);
135 penpos11 (penh, 90 + pedalpha);
137 z1r = (hround 0.6 w, h);
138 x2l = hround (x1l - penw) + xpart feta_offset;
139 y2 = vround (0.7 h) + ypart feta_offset;
140 x3r = hround (x2l + 2 penw);
142 z4l = z5r + 1/4 (z3r - z5r);
146 z7 = z6r + 1/3 (z8r - z6r);
147 z8r = z5r + 3/5 (z3r - z5r);
150 x10l = w - tand (90 - pedalpha) * y11l;
155 z1' = round (0.9 [z2, z1]) + (xpart feta_offset, 0);
159 penlabels (range 1 thru 11);
170 ..tension 1.5.. z8e{right}
171 ..tension 1.5.. z9e{dir - pedalpha}
173 ..tension 2.5.. z11e;
175 penpos12 (hround penh, 0);
176 penpos13 (penw, -90 - pedbeta);
177 penpos14 (vround penh, 90);
178 penpos15 (penw, -90 + pedbeta);
179 penpos16 (penh, 180 + pedbeta);
181 z12r = (hround (5/9 x1 + 1/2 hround penh), y2);
182 z13l = (1/2 x12r, y15r);
184 z15l = (1/2 [x16, w], y2l + 0.5 penw);
189 penlabels (range 12 thru 16);
192 soft_penstroke z12e{down}
193 ..tension 1.1.. z13e{dir (180 - pedbeta)}
194 ..tension 1.1.. z14e{right}
195 ..tension 1.1.. z15e{dir (180 + pedbeta)}
196 ..tension 1.1.. z16e{dir (90 + pedbeta)};
201 def draw_pedal_d (expr show_labels) =
205 penpos1 (vround penh, -10 - 90);
206 penpos2 (hround penw, 190);
207 penpos3 (vround (2 penh), 90);
208 penpos4 (hround (3/4 penw), 0);
213 z2 = (w - 1/2 hround penw, 1/2 pedalbh + penh);
214 z4l = (hround (1/3 w), 1/2 pedalbh);
215 z5l = (2/3 w, pedalbh);
216 z3l = (hround x5l, 0);
219 penlabels (1, 2, 3, 4, 5);
222 soft_penstroke z1e{dir (-10)}
223 ..tension 1.1.. z2e{dir (-90 + 10)}
224 ..tension 1.1.. z3e{left}
225 ..tension 1.1.. z4e{up}
226 ..tension 1.1.. z5e{dir (-70 + 90)};
231 def draw_pedal_e (expr show_labels) =
235 penpos1 (penh, pedalpha - 90);
236 penpos2 (penh, pedalpha - 90);
237 penpos3 (3/5 penw, pedalpha);
238 penpos4 (1.2 penh, 90 + pedalpha);
239 penpos5 (2/3 penw, 180);
240 penpos6 (penw, 180 + pedalpha);
241 penpos7 (2/3 penw, -90 - 20);
242 penpos8 (penh, pedalpha - 90);
244 z1l = (0, 1/5 pedalh);
245 % this helps to make the path go through z2 at low resolutions
246 z2 = round (z1 + dir pedalpha * penw) + feta_offset;
254 z7l = (x6l + penh, y6l);
263 ..tension 1.5.. z6e{dir - pedalpha}
268 penlabels (range 1 thru 8);
274 fet_beginchar ("Pedal P", "P");
275 set_char_box (0, 5/6 pedalh#, 0, pedalh#);
281 fet_beginchar ("Pedal d", "d");
282 set_char_box (0, 2/3 pedalh#, 0, 7/8 pedalh#);
288 fet_beginchar ("Pedal e", "e");
289 set_char_box (0, 2/5 pedalh#, 0, pedalbh#);
295 fet_beginchar ("Pedal Ped", "Ped");
296 P_width# = 5/6 pedalh#;
297 e_width# = 2/5 pedalh#;
298 d_width# = 2/3 pedalh#;
299 define_pixels (P_width, e_width, d_width);
302 d_height = 7/8 pedalh;
304 % Pe = -0.034 pedalh == -0.07 staff-space
305 % ed = -0.27 pedalh == -0.53 staff-space
306 Pe_kern# = -0.034 pedalh#;
307 ed_kern# = -0.27 pedalh#;
308 define_pixels (Pe_kern, ed_kern);
311 h := vround d_height;
313 currentpicture := currentpicture
314 shifted (hround (e_width + ed_kern), 0);
317 h := vround e_height;
319 currentpicture := currentpicture
320 shifted (hround (P_width + Pe_kern), 0);
326 set_char_box (0, P_width# + Pe_kern# + e_width# + ed_kern# + d_width#,
331 fet_endgroup ("pedal");