1 % feta-eindelijk.mf -- implement rest symbols
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, 1998 Jan Nieuwenhuizen <janneke@gnu.org>
9 fet_begingroup("rests");
13 thick#:=1/16designsize;
14 define_blacker_pixels(thick);
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*interline#;
29 stem# = 1/5interline#;
30 % flare# = 2/3interline#;
31 flare# = 2/3interline# - 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 interline#;
42 block_rest_x# = 3/2 interline#;
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(block_rest_y#, block_rest_x# + block_rest_y#,
68 block_rest_y#, ledgerlinethickness#/2);
70 currentpicture := currentpicture shifted (0, - block_rest_y);
71 pickup pencircle scaled ledgerlinethickness;
79 fet_beginchar("half rest (outside staff)", "1o", "outsidehalfrest");
80 set_char_box(block_rest_y#, block_rest_x#+ block_rest_y#,
81 ledgerlinethickness#/2, block_rest_y#);
83 pickup pencircle scaled ledgerlinethickness;
91 save breve_rest_y, breve_rest_x;
93 breve_rest_y# = interline#;
94 breve_rest_x# = 3/5 interline#;
95 multi_rest_x# = 2 interline#;
96 multi_rest_y# = 1/3 interline#;
98 define_pixels(breve_rest_y, breve_rest_x, multi_rest_x, multi_rest_y);
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 fet_beginchar("multi rest", "-4", "multirest");
111 set_char_box(multi_rest_x#, multi_rest_x#,
112 breve_rest_y#, breve_rest_y#);
113 draw_block ((-multi_rest_x, -multi_rest_y),
114 (multi_rest_x, multi_rest_y));
115 draw_block ((-multi_rest_x,-breve_rest_y),
116 (rthin-multi_rest_x, breve_rest_y));
117 draw_block ((multi_rest_x-rthin,-breve_rest_y),
118 (multi_rest_x, breve_rest_y));
121 fet_beginchar("Quarter rest","2","quartrest");
124 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;
143 y1l=7/2interline; x1l=1/3interline;
146 x4=3/8interline; y4=2interline;
147 z5=z4l+1.3interline*se;
149 x7=2/5interline; y7=3/4interline;
150 fill z1l{se}..{se}z10..z3l..z11{se}..{se}z5l..z5r{nw}..{nw}z12..z3r..z13{nw}..{nw}z1r.. cycle;
151 fill z5r{nw}..tension1.4..z6l..tension1.4..{se}z7l..z7r{nw}..tension1.4..z6r..tension1.4..{se}z5l..cycle;
152 penlabels(1,2,3,4,5,6,7);
153 penlabels(10,11,12,13);
154 set_char_box(0, 27/25interline#, -3/4 interline#, 18/5interline#);
157 def rest_crook(expr a, w) =
158 balled_crook(a, w, ball_crook_balldiam, ball_crook_stem)
161 fet_beginchar("8th rest","3","eighthrest");
162 set_char_box(0, 4/3interline#,-interline#, 8/3interline#+7/4stafflinethickness#);
165 x1=w-stem/6; y1=ht-flare/4;
166 rest_crook (z1,w-stem/6);
167 z2-z1=whatever*dir70;
169 brush(z1,2/3stem,z2,stem);
171 currentpicture:=currentpicture shifted (0,interline);
174 fet_beginchar("16th rest","4","sixteenthrest");
178 % h#=5/3interline#+interline#+2stafflinethickness#;
179 h#=5/3interline#+interline#+7/4stafflinethickness#;
180 w#=cw#+(h#-3/2interline#)/tand(alpha);
181 set_char_box(0,w#,0,h#);
184 x1=w-stem/6; y1=h-flare/4;
185 z2-z1=whatever*dir alpha;
187 brush(z1,2/3stem,z2,stem);
189 z3-z1=whatever*dir alpha;
195 fet_beginchar("32th rest","5","thirtysecondrest");
199 h#=5/3interline#+2interline#+7/4stafflinethickness#;
200 w#=cw#+(h#-3/2interline#)/tand(alpha);
201 set_char_box(0,w#,0,h#);
204 x1=w-stem/6; y1=h-flare/4;
205 z2-z1=whatever*dir alpha;
207 brush(z1,2/3stem,z2,stem);
209 z3-z1=whatever*dir alpha;
212 z4-z1=whatever*dir alpha;
217 fet_beginchar("64th rest","6","sixtyfourthrest");
221 h#=5/3interline#+3interline#+7/4stafflinethickness#;
222 w#=cw#+(h#-3/2interline#)/tand(alpha);
223 set_char_box(0,w#,0,h#);
226 x1=w-stem/6; y1=h-flare/4;
227 z2-z1=whatever*dir alpha;
229 brush (z1,2/3stem,z2,stem);
231 z3-z1=whatever*dir alpha;
234 z4-z1=whatever*dir alpha;
237 z5-z1=whatever*dir alpha;
241 currentpicture:=currentpicture shifted (0,-interline);
244 fet_beginchar("128th rest","7","hundredtwentyeighthrest");
248 h#=5/3interline#+4interline#+7/4stafflinethickness#;
249 w#=cw#+(h#-3/2interline#)/tand(alpha);
250 set_char_box(0,w#,0,h#);
253 x1=w-stem/6; y1=h-flare/4;
254 z2-z1=whatever*dir alpha;
256 brush (z1,2/3stem,z2,stem);
258 z3-z1=whatever*dir alpha;
261 z4-z1=whatever*dir alpha;
264 z5-z1=whatever*dir alpha;
267 z6-z1=whatever*dir alpha;
271 currentpicture:=currentpicture shifted (0,-interline);
275 fet_endgroup("rests");