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#;
96 define_pixels(breve_rest_y, breve_rest_x);
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));
109 fet_beginchar("Quarter rest","2","quartrest");
112 save ne,nw,se,sw; pair ne,nw,se,sw;
113 se=dir alpha; nw=dir (alpha+180);
114 ne=dir (alpha+90); sw=dir (alpha-90);
115 penpos1(rthin,alpha+90);
116 penpos2(5/4rthick,alpha);
117 penpos4(5/4rthick,alpha);
118 penpos5(rthin,alpha+90);
119 penpos3(3/4rthick,alpha);
120 % penpos6(5/8rthick,alpha);
121 penpos6(2/3rthick,alpha);
122 penpos7(1/2rthin,alpha+90);
125 % z11=z4l+1/2rthin*sw;
126 z11=z4l+1/2rthin*sw+1/2rthin*se;
128 % z13=z2r+1/2rthin*ne;
129 z13=z2r+1/2rthin*ne+1/2rthin*nw;
131 y1l=7/2interline; x1l=1/3interline;
134 x4=3/8interline; y4=2interline;
135 z5=z4l+1.3interline*se;
137 x7=2/5interline; y7=3/4interline;
138 fill z1l{se}..{se}z10..z3l..z11{se}..{se}z5l..z5r{nw}..{nw}z12..z3r..z13{nw}..{nw}z1r.. cycle;
139 fill z5r{nw}..tension1.4..z6l..tension1.4..{se}z7l..z7r{nw}..tension1.4..z6r..tension1.4..{se}z5l..cycle;
140 penlabels(1,2,3,4,5,6,7);
141 penlabels(10,11,12,13);
142 set_char_box(0, 27/25interline#, -3/4 interline#, 18/5interline#);
145 def rest_crook(expr a, w) =
146 balled_crook(a, w, ball_crook_balldiam, ball_crook_stem)
149 fet_beginchar("8th rest","3","eighthrest");
150 set_char_box(0, 4/3interline#,-interline#, 8/3interline#+7/4stafflinethickness#);
153 x1=w-stem/6; y1=ht-flare/4;
154 rest_crook (z1,w-stem/6);
155 z2-z1=whatever*dir70;
157 brush(z1,2/3stem,z2,stem);
159 currentpicture:=currentpicture shifted (0,interline);
162 fet_beginchar("16th rest","4","sixteenthrest");
166 % h#=5/3interline#+interline#+2stafflinethickness#;
167 h#=5/3interline#+interline#+7/4stafflinethickness#;
168 w#=cw#+(h#-3/2interline#)/tand(alpha);
169 set_char_box(0,w#,0,h#);
172 x1=w-stem/6; y1=h-flare/4;
173 z2-z1=whatever*dir alpha;
175 brush(z1,2/3stem,z2,stem);
177 z3-z1=whatever*dir alpha;
183 fet_beginchar("32th rest","5","thirtysecondrest");
187 h#=5/3interline#+2interline#+7/4stafflinethickness#;
188 w#=cw#+(h#-3/2interline#)/tand(alpha);
189 set_char_box(0,w#,0,h#);
192 x1=w-stem/6; y1=h-flare/4;
193 z2-z1=whatever*dir alpha;
195 brush(z1,2/3stem,z2,stem);
197 z3-z1=whatever*dir alpha;
200 z4-z1=whatever*dir alpha;
205 fet_beginchar("64th rest","6","sixtyfourthrest");
209 h#=5/3interline#+3interline#+7/4stafflinethickness#;
210 w#=cw#+(h#-3/2interline#)/tand(alpha);
211 set_char_box(0,w#,0,h#);
214 x1=w-stem/6; y1=h-flare/4;
215 z2-z1=whatever*dir alpha;
217 brush (z1,2/3stem,z2,stem);
219 z3-z1=whatever*dir alpha;
222 z4-z1=whatever*dir alpha;
225 z5-z1=whatever*dir alpha;
229 currentpicture:=currentpicture shifted (0,-interline);
232 fet_beginchar("128th rest","7","hundredtwentyeighthrest");
236 h#=5/3interline#+4interline#+7/4stafflinethickness#;
237 w#=cw#+(h#-3/2interline#)/tand(alpha);
238 set_char_box(0,w#,0,h#);
241 x1=w-stem/6; y1=h-flare/4;
242 z2-z1=whatever*dir alpha;
244 brush (z1,2/3stem,z2,stem);
246 z3-z1=whatever*dir alpha;
249 z4-z1=whatever*dir alpha;
252 z5-z1=whatever*dir alpha;
255 z6-z1=whatever*dir alpha;
259 currentpicture:=currentpicture shifted (0,-interline);
263 fet_endgroup("rests");