1 % feta-eindelijk.mf -- implement rest symbols -*-Fundamental-*-
3 % part of LilyPond's pretty-but-neat music font
5 % source file of the Feta (not the Font-En-Tja) music font
7 % (c) 1997--2002 Jan Nieuwenhuizen <janneke@gnu.org>
9 fet_begingroup("rests");
13 thick#:=1/16designsize;
14 define_blacker_pixels(thick);
16 rthin:=1/8*staff_space;
20 def shift_pic (expr pone, ptwo) =
21 currentpicture:=currentpicture shifted (round(pone),round(ptwo))
24 % stuff for 8th,16th etc rests
26 save stem, ball_crook_stem, ball_crook_balldiam, flare;
28 % stem#:=1/8*staff_space#;
29 stem# = 1/5staff_space#;
30 % flare# = 2/3staff_space#;
31 flare# = 2/3staff_space# - 1/8stafflinethickness#;
33 define_pixels(stem,flare);
35 ball_crook_stem = stem;
36 ball_crook_balldiam =flare;
39 save block_rest_y, block_rest_x;
41 block_rest_y# = 5/8 staff_space#;
42 block_rest_x# = 3/2 staff_space#;
44 define_pixels(block_rest_y, block_rest_x);
47 draw_block ((0,0), (block_rest_x, block_rest_y));
50 fet_beginchar( "whole rest", "0", "wholerest");
51 set_char_box(0, block_rest_x#,
54 currentpicture := currentpicture shifted (0,- block_rest_y);
57 fet_beginchar("half rest", "1", "halfrest");
58 set_char_box(0, block_rest_x#, 0, block_rest_y#);
64 % should use ledgerline thickness?
66 fet_beginchar( "whole rest (outside staff)", "0o", "outsidewholerest");
67 set_char_box(0, block_rest_x#,
68 block_rest_y#, ledgerlinethickness#/2);
70 currentpicture := currentpicture shifted (0, - block_rest_y);
71 pickup pencircle scaled ledgerlinethickness;
74 lft x5 = - b - block_rest_y;
75 rt x6 = w + block_rest_y;
76 draw_gridline(z5,z6,ledgerlinethickness);
79 fet_beginchar("half rest (outside staff)", "1o", "outsidehalfrest");
80 set_char_box(0, block_rest_x#,
81 ledgerlinethickness#/2, block_rest_y#);
83 pickup pencircle scaled ledgerlinethickness;
85 lft x5 = - b - block_rest_y ;
86 rt x6 = w + block_rest_y;
87 draw_gridline (z5,z6,ledgerlinethickness);
91 save breve_rest_y, breve_rest_x;
93 breve_rest_y# = staff_space#;
94 breve_rest_x# = 3/5 staff_space#;
96 define_pixels(breve_rest_y, breve_rest_x, multi_rest_x, multi_beam_height);
98 fet_beginchar("breve rest", "-1", "breverest");
99 set_char_box(0, breve_rest_x#, 0, breve_rest_y#);
100 draw_block ((0,0), (breve_rest_x, breve_rest_y));
103 fet_beginchar("longa rest", "-2", "longarest");
104 set_char_box(0, breve_rest_x#, breve_rest_y#, breve_rest_y#);
105 draw_block ((0,-breve_rest_y), (breve_rest_x, breve_rest_y));
108 tracingvariables := 1;
110 fet_beginchar("Quarter rest","2","quartrest");
111 % draw_staff (-2, 2, 0.0);
112 save alpha, yshift, height;
114 yshift# = -1.25 staff_space#;
115 height# = 2.8125 staff_space#;
116 define_pixels (yshift, height);
119 set_char_box(0, 27/25staff_space#,
123 save ne,nw,se,sw; pair ne,nw,se,sw;
125 se=dir alpha; nw=dir (alpha+180);
126 ne=dir (alpha+90); sw=dir (alpha-90);
127 penpos1(rthin,alpha+90);
128 penpos2(5/4rthick,alpha);
129 penpos4(5/4rthick,alpha);
130 penpos5(rthin,alpha+90);
131 penpos3(3/4rthick,alpha);
132 % penpos6(5/8rthick,alpha);
133 penpos6(2/3rthick,alpha);
134 penpos7(1/2rthin,alpha+90);
137 % z11=z4l+1/2rthin*sw;
138 z11=z4l+1/2rthin*sw+1/2rthin*se;
140 % z13=z2r+1/2rthin*ne;
141 z13=z2r+1/2rthin*ne+1/2rthin*nw;
145 z2r=z1+staff_space*se;
149 z5=z4l+1.3staff_space*se;
155 fill z1l{se}..{se}z10..z3l..z11{se}..{se}z5l..z5r{nw}..{nw}z12..z3r..z13{nw}..{nw}z1r.. cycle;
156 fill z5r{nw}..tension1.4..z6l..tension1.4..{se}z7l..z7r{nw}..tension1.4..z6r..tension1.4..{se}z5l..cycle;
157 penlabels(1,2,3,4,5,6,7);
158 penlabels(10,11,12,13);
160 % 3/4 staff_space# + yshift#,
161 % 18/5staff_space# + yshift#)
165 def rest_crook(expr a, w) =
166 balled_crook(a, w, ball_crook_balldiam, ball_crook_stem)
170 % Notes about 8th rest:
172 % * 8th rest should be no wider than the black note head
174 % * The inside corner of the horizontal portion is usually a little blotted.
176 % * The top of the crook chops off the vertical brush
178 % * The crook widens a little
180 % * The bottom of the brush is slightly flat, as it has to align with
181 % stafflines if it is inside the staff.
183 % * The top of the brush usually is a little lower than the top of bulb.
185 % * The bulb can vary. Sometimes it is open (like in the clefs). Sometimes
186 % it is closed, or even a flare.
189 def normalize (expr p) =
193 def draw_eighth_rest =
194 save width, bulb_diam, thin, thick;
195 save ycenter, crook_thick, crook_thin;
196 save crook_dir, lower_brush;
200 width# := 1.0 staff_space#;
201 bulb_diam# := 0.64 staff_space#;
202 thin# := 1.1 stafflinethickness#;
203 thick# := 2.2 stafflinethickness#;
204 crook_thick# := 1.8 stafflinethickness#;
205 crook_thin := 1.3 stafflinethickness;
207 lower_brush = 1.5 stafflinethickness;
208 ycenter := 0.5 staff_space;
210 define_pixels (width, bulb_diam, thin, thick, crook_thick);
211 set_char_box (0, width#,
212 1.0 staff_space# + 0.5 stafflinethickness#, 0.5 staff_space# + bulb_diam#/2);
217 y1 = ycenter + - 1.5 staff_space ;
218 % y9 = y5 - lower_brush;
219 y2 = y5 - lower_brush;
223 y3 - y2l = 0.25 staff_space;
224 x2r - x1 = 0.5 staff_space;
229 x4 = 1.02 bulb_diam ;
230 y4 := ceiling (ycenter - 2 stafflinethickness + crook_thin);
232 x5 = 0.5 bulb_diam - 0.25 stafflinethickness;
233 y5 = ycenter +bulb_diam/2;
235 z9 = z2 + 0.46 stafflinethickness * dir (angle(z2 - z1)- 10);
237 % z7 = %(bulb_diam/2,ycenter) + 0.23 staff_space * dir ( 35);
238 z7 = 0.5 [z4, z5] + (0.45 stafflinethickness,0.4 stafflinethickness);
239 z8 = (0, ycenter + 0.5 stafflinethickness);
241 z6 = whatever [z1l, z2l];
242 z6 = whatever [z2l, z4] + crook_thick * (crook_dir rotated -90);
243 crook_dir = normalize(z2l - z4);
245 y3 := ycenter +floor (- bulb_diam/2);
249 labels(3, 4, 5, 6, 7, 8, 9);
251 fill z2r -- z2l -- simple_serif (z1l, z1r, 40) -- cycle;
252 fill z2r{z2r-z1r} .. z9 .. z2l{dir(232)} .. tension 2
253 .. z4{left} .. tension 0.9 .. z7 %{dir(90 + 25)}
254 .. z5{left} .. z8 .. z3{right}
255 .. {curl 0.2}z6 -- cycle;
260 fet_beginchar("8th rest","3","eighthrest");
264 fet_beginchar("Classical quarter rest","2classical","clasquartrest");
266 currentpicture := currentpicture xscaled -1 shifted (w,0);
270 fet_beginchar("16th rest","4","sixteenthrest");
271 % draw_staff (-2, 2, 0.0);
272 save yshift, ballcorrection;
273 ballcorrection = 0.005 staff_space;
275 yshift# := - 2 staff_space#;
276 define_pixels(yshift);
278 save alpha,cw,h,w, height;
281 height# = 5/3staff_space#+staff_space#+7/4stafflinethickness#;
282 set_char_box(0, cw#+(height#-3/2staff_space#)/tand(alpha),
283 -yshift#, height# + yshift#);
288 y1 = yshift + 2.5 staff_space + flare/4 + ballcorrection;
290 z2-z1=whatever*dir alpha;
292 brush(z1,2/3stem,z2,stem);
294 z3-z1=whatever*dir alpha;
300 fet_beginchar("32th rest","5","thirtysecondrest");
301 % draw_staff (-2, 2, 0.0);
302 save yshift, ballcorrection;
303 ballcorrection = 0.005 staff_space;
305 yshift# := -2 staff_space#;
306 define_pixels(yshift);
311 h#=5/3staff_space#+2staff_space#+7/4stafflinethickness#;
313 set_char_box(0, cw#+(h#-3/2staff_space#)/tand(alpha),
314 -yshift#,yshift# +h#);
318 y1 = yshift + 3.5 staff_space + flare/4 + ballcorrection;
320 z2-z1=whatever*dir alpha;
322 brush(z1,2/3stem,z2,stem);
324 z3-z1=whatever*dir alpha;
327 z4-z1=whatever*dir alpha;
332 fet_beginchar("64th rest","6","sixtyfourthrest");
333 % draw_staff (-2, 2, 0.0);
334 save yshift, ballcorrection;
335 ballcorrection = 0.005 staff_space;
337 yshift# := -3 staff_space#;
338 define_pixels(yshift);
343 h#=5/3staff_space#+3staff_space#+7/4stafflinethickness#;
344 w#=cw#+(h#-3/2staff_space#)/tand(alpha);
345 set_char_box(0,w#,-yshift# ,yshift# + h#);
351 y1 = yshift + 4.5 staff_space + flare/4 + ballcorrection;
353 z2-z1=whatever*dir alpha;
355 brush (z1,2/3stem,z2,stem);
357 z3-z1=whatever*dir alpha;
360 z4-z1=whatever*dir alpha;
363 z5-z1=whatever*dir alpha;
369 fet_beginchar("128th rest","7","hundredtwentyeighthrest");
370 % draw_staff (-2, 2, 0.0);
371 save yshift, ballcorrection;
372 ballcorrection = 0.005 staff_space;
374 yshift# := -3 staff_space#;
375 define_pixels(yshift);
379 h#=5/3staff_space#+4staff_space#+7/4stafflinethickness#;
380 w#=cw#+(h#-3/2staff_space#)/tand(alpha);
381 set_char_box(0,w#, -yshift#,yshift# + h#);
385 y1 = yshift + 5.5 staff_space + flare/4 + ballcorrection;
387 z2-z1=whatever*dir alpha;
389 brush (z1,2/3stem,z2,stem);
391 z3-z1=whatever*dir alpha;
394 z4-z1=whatever*dir alpha;
397 z5-z1=whatever*dir alpha;
400 z6-z1=whatever*dir alpha;
419 % Neo-mensural longa and breve are identical with default longa and breve.
421 neomens_block_rest_x# = 2/5 staff_space#;
422 neomens_block_rest_y# = 1/1 staff_space#;
423 neomens_half_block_rest_y# = 5/8 staff_space#;
425 define_pixels(neomens_block_rest_x,
426 neomens_block_rest_y, neomens_half_block_rest_y);
428 def neomens_half_block_rest =
429 draw_block ((0,0), (neomens_block_rest_x, neomens_half_block_rest_y));
432 fet_beginchar("Neo-mensural maxima rest", "-3neo_mensural", "neomensmaximarest");
433 set_char_box(0, neomens_block_rest_x#,
434 neomens_block_rest_y#, 2 neomens_block_rest_y#);
435 draw_block ((0,-neomens_block_rest_y),
436 (neomens_block_rest_x, 2 neomens_block_rest_y));
439 fet_beginchar("Neo-mensural longa rest", "-2neo_mensural", "neomenslongarest");
440 set_char_box(0, neomens_block_rest_x#,
441 neomens_block_rest_y#, neomens_block_rest_y#);
442 draw_block ((0,-neomens_block_rest_y),
443 (neomens_block_rest_x, neomens_block_rest_y));
446 fet_beginchar("Neo-mensural breve rest", "-1neo_mensural", "neomensbreverest");
447 set_char_box(0, neomens_block_rest_x#,
448 0, neomens_block_rest_y#);
449 draw_block ((0,0), (neomens_block_rest_x, neomens_block_rest_y));
452 fet_beginchar("Neo-mensural whole rest", "0neo_mensural", "neomenssemibrevisrest");
453 set_char_box(0, neomens_block_rest_x#,
454 neomens_half_block_rest_y#, 0);
455 neomens_half_block_rest;
457 currentpicture shifted (0,- neomens_half_block_rest_y);
460 fet_beginchar("Neo-mensural half rest", "1neo_mensural", "neomensminimahalfrest");
461 set_char_box(0, neomens_block_rest_x#,
462 0, neomens_half_block_rest_y#);
463 neomens_half_block_rest;
466 neomensrestsize# = .8staff_space#;
468 fet_beginchar("Neo-mensural 4th rest","2neo_mensural","neomenssemiminimarest")
469 set_char_box(0,neomensrestsize#,0,neomensrestsize#);
470 pickup pencircle scaled 2 stafflinethickness;
481 fet_beginchar("Neo-mensural 8th rest","3neo_mensural","neomensfusarest")
482 set_char_box(0,neomensrestsize#,0,neomensrestsize#);
483 pickup pencircle scaled 2 stafflinethickness;
494 fet_beginchar("Neo-mensural 16th rest","4neo_mensural","neomenssemifusarest")
495 set_char_box(0,neomensrestsize#,0,staff_space#);
496 pickup pencircle scaled 2 stafflinethickness;
504 pickup pencircle scaled 2 stafflinethickness;
519 fet_endgroup("rests")