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;
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;
91 save breve_rest_y, breve_rest_x;
93 breve_rest_y# = staff_space#;
94 breve_rest_x# = 3/5 staff_space#;
95 multi_rest_x# = 4 staff_space#;
96 multi_beam_height# = 1/3 staff_space#;
98 define_pixels(breve_rest_y, breve_rest_x, multi_rest_x, multi_beam_height);
100 fet_beginchar("breve rest", "-1", "breverest");
101 set_char_box(0, breve_rest_x#, 0, breve_rest_y#);
102 draw_block ((0,0), (breve_rest_x, breve_rest_y));
105 fet_beginchar("longa rest", "-2", "longarest");
106 set_char_box(0, breve_rest_x#, breve_rest_y#, breve_rest_y#);
107 draw_block ((0,-breve_rest_y), (breve_rest_x, breve_rest_y));
110 tracingvariables := 1;
112 fet_beginchar("multi rest", "-4", "multirest");
113 set_char_box(multi_rest_x#, multi_rest_x#,
114 breve_rest_y#, breve_rest_y#);
115 draw_block ((- b, - multi_beam_height),
116 (w, multi_beam_height));
117 draw_block ((- b,-breve_rest_y),
118 (rthin - b, breve_rest_y));
119 draw_block ((w - rthin,-breve_rest_y),
123 fet_beginchar("Quarter rest","2","quartrest");
124 % draw_staff (-2, 2, 0.0);
125 save alpha, yshift, height;
127 yshift# = -1.25 staff_space#;
128 height# = 2.8125 staff_space#;
129 define_pixels (yshift, height);
132 set_char_box(0, 27/25staff_space#,
136 save ne,nw,se,sw; pair ne,nw,se,sw;
138 se=dir alpha; nw=dir (alpha+180);
139 ne=dir (alpha+90); sw=dir (alpha-90);
140 penpos1(rthin,alpha+90);
141 penpos2(5/4rthick,alpha);
142 penpos4(5/4rthick,alpha);
143 penpos5(rthin,alpha+90);
144 penpos3(3/4rthick,alpha);
145 % penpos6(5/8rthick,alpha);
146 penpos6(2/3rthick,alpha);
147 penpos7(1/2rthin,alpha+90);
150 % z11=z4l+1/2rthin*sw;
151 z11=z4l+1/2rthin*sw+1/2rthin*se;
153 % z13=z2r+1/2rthin*ne;
154 z13=z2r+1/2rthin*ne+1/2rthin*nw;
158 z2r=z1+staff_space*se;
162 z5=z4l+1.3staff_space*se;
168 fill z1l{se}..{se}z10..z3l..z11{se}..{se}z5l..z5r{nw}..{nw}z12..z3r..z13{nw}..{nw}z1r.. cycle;
169 fill z5r{nw}..tension1.4..z6l..tension1.4..{se}z7l..z7r{nw}..tension1.4..z6r..tension1.4..{se}z5l..cycle;
170 penlabels(1,2,3,4,5,6,7);
171 penlabels(10,11,12,13);
173 % 3/4 staff_space# + yshift#,
174 % 18/5staff_space# + yshift#)
178 def rest_crook(expr a, w) =
179 balled_crook(a, w, ball_crook_balldiam, ball_crook_stem)
182 def draw_eighth_rest =
183 % draw_staff (-2, 2, 0.0);
184 save yshift, ballcorrection;
185 ballcorrection = 0.005 staff_space;
187 yshift# := -1.0 staff_space#;
188 define_pixels(yshift);
191 set_char_box(0, 4/3staff_space#, -yshift#, yshift# +
192 5/3staff_space#+7/4stafflinethickness#);
195 % The curve is like a valley causing less space between
196 % the curve and the lower staff line. Correct for this.
202 y1 = yshift + 1.5 staff_space + flare/4 + ballcorrection;
203 rest_crook (z1,w-stem/6);
204 z2-z1=whatever*dir70;
206 brush(z1,2/3stem,z2,stem);
209 fet_beginchar("8th rest","3","eighthrest");
214 fet_beginchar("16th rest","4","sixteenthrest");
215 % draw_staff (-2, 2, 0.0);
216 save yshift, ballcorrection;
217 ballcorrection = 0.005 staff_space;
219 yshift# := - 2 staff_space#;
220 define_pixels(yshift);
222 save alpha,cw,h,w, height;
225 height# = 5/3staff_space#+staff_space#+7/4stafflinethickness#;
226 set_char_box(0, cw#+(height#-3/2staff_space#)/tand(alpha),
227 -yshift#, height# + yshift#);
232 y1 = yshift + 2.5 staff_space + flare/4 + ballcorrection;
234 z2-z1=whatever*dir alpha;
236 brush(z1,2/3stem,z2,stem);
238 z3-z1=whatever*dir alpha;
244 fet_beginchar("32th rest","5","thirtysecondrest");
245 % draw_staff (-2, 2, 0.0);
246 save yshift, ballcorrection;
247 ballcorrection = 0.005 staff_space;
249 yshift# := -2 staff_space#;
250 define_pixels(yshift);
255 h#=5/3staff_space#+2staff_space#+7/4stafflinethickness#;
257 set_char_box(0, cw#+(h#-3/2staff_space#)/tand(alpha),
258 -yshift#,yshift# +h#);
262 y1 = yshift + 3.5 staff_space + flare/4 + ballcorrection;
264 z2-z1=whatever*dir alpha;
266 brush(z1,2/3stem,z2,stem);
268 z3-z1=whatever*dir alpha;
271 z4-z1=whatever*dir alpha;
276 fet_beginchar("64th rest","6","sixtyfourthrest");
277 % draw_staff (-2, 2, 0.0);
278 save yshift, ballcorrection;
279 ballcorrection = 0.005 staff_space;
281 yshift# := -3 staff_space#;
282 define_pixels(yshift);
287 h#=5/3staff_space#+3staff_space#+7/4stafflinethickness#;
288 w#=cw#+(h#-3/2staff_space#)/tand(alpha);
289 set_char_box(0,w#,-yshift# ,yshift# + h#);
295 y1 = yshift + 4.5 staff_space + flare/4 + ballcorrection;
297 z2-z1=whatever*dir alpha;
299 brush (z1,2/3stem,z2,stem);
301 z3-z1=whatever*dir alpha;
304 z4-z1=whatever*dir alpha;
307 z5-z1=whatever*dir alpha;
313 fet_beginchar("128th rest","7","hundredtwentyeighthrest");
314 % draw_staff (-2, 2, 0.0);
315 save yshift, ballcorrection;
316 ballcorrection = 0.005 staff_space;
318 yshift# := -3 staff_space#;
319 define_pixels(yshift);
323 h#=5/3staff_space#+4staff_space#+7/4stafflinethickness#;
324 w#=cw#+(h#-3/2staff_space#)/tand(alpha);
325 set_char_box(0,w#, -yshift#,yshift# + h#);
329 y1 = yshift + 5.5 staff_space + flare/4 + ballcorrection;
331 z2-z1=whatever*dir alpha;
333 brush (z1,2/3stem,z2,stem);
335 z3-z1=whatever*dir alpha;
338 z4-z1=whatever*dir alpha;
341 z5-z1=whatever*dir alpha;
344 z6-z1=whatever*dir alpha;
350 fet_beginchar("Classical quarter rest","2classical","clasquartrest");
352 currentpicture := currentpicture xscaled -1 shifted (w,0);
367 % Neo-mensural longa and breve are identical with default longa and breve.
369 neomens_block_rest_x# = 2/5 staff_space#;
370 neomens_block_rest_y# = 1/1 staff_space#;
371 neomens_half_block_rest_y# = 5/8 staff_space#;
373 define_pixels(neomens_block_rest_x,
374 neomens_block_rest_y, neomens_half_block_rest_y);
376 def neomens_half_block_rest =
377 draw_block ((0,0), (neomens_block_rest_x, neomens_half_block_rest_y));
380 fet_beginchar("Neo-mensural longa rest", "-2neo_mensural", "neomenslongarest");
381 set_char_box(0, neomens_block_rest_x#,
382 neomens_block_rest_y#, neomens_block_rest_y#);
383 draw_block ((0,-neomens_block_rest_y),
384 (neomens_block_rest_x, neomens_block_rest_y));
387 fet_beginchar("Neo-mensural breve rest", "-1neo_mensural", "neomensbreverest");
388 set_char_box(0, neomens_block_rest_x#,
389 0, neomens_block_rest_y#);
390 draw_block ((0,0), (neomens_block_rest_x, neomens_block_rest_y));
393 fet_beginchar("Neo-mensural whole rest", "0neo_mensural", "neomenssemibrevisrest");
394 set_char_box(0, neomens_block_rest_x#,
395 neomens_half_block_rest_y#, 0);
396 neomens_half_block_rest;
398 currentpicture shifted (0,- neomens_half_block_rest_y);
401 fet_beginchar("Neo-mensural half rest", "1neo_mensural", "neomensminimahalfrest");
402 set_char_box(0, neomens_block_rest_x#,
403 0, neomens_half_block_rest_y#);
404 neomens_half_block_rest;
408 fet_endgroup("rests")