3 accreg_dot_size# := .5staff_space#;
4 accreg_linethickness# := 1.3stafflinethickness#;
6 % This dimention is the same on all registersymbols.
7 % The different symbols should calculate their other
8 % dimensions from this and accreg_dot_size
9 accreg_lh# := 1.0staff_space#;
11 define_pixels(accreg_dot_size, accreg_linethickness, accreg_lh);
13 accreg_pen := pencircle xscaled accreg_linethickness yscaled 0.7accreg_linethickness;
15 fet_beginchar("accDiscant", "accDiscant", "accDiscant")
19 % set_char_box(r#, r#, 2r#, 0);
20 set_char_box(r#, r#, 0r#, 2r#); %% arg3 = under linjen, arg4 = over
22 draw fullcircle scaled 2r;
24 draw (-sx*r, r/3)--(sx*r, r/3);
25 draw (-sx*r, -r/3)--(sx*r, -r/3);
26 currentpicture := currentpicture shifted (0, r);
29 fet_beginchar("accDot", "accDot", "accDot")
30 set_char_box(accreg_dot_size#, accreg_dot_size#, 0, 0);
31 pickup pencircle scaled accreg_dot_size;
35 fet_beginchar("accFreebase", "accFreebase", "accFreebase")
39 set_char_box(r#, r#, 0, 2r#);
41 draw fullcircle scaled 2r;
43 currentpicture := currentpicture shifted (0, r);
46 fet_beginchar("accStdbase", "accStdbase", "accStdbase")
51 set_char_box(r#, r#, 0, 2r#);
53 draw fullcircle scaled 2r;
55 draw (-sx*r, r/2)--(sx*r, r/2);
56 draw (-sx*r, -r/2)--(sx*r, -r/2);
57 currentpicture := currentpicture shifted (0, r);
60 %%% strange turning path.
61 fet_beginchar("accBayanbase", "accBayanbase", "accBayanbase")
64 % set_char_box(accreg_lh#, accreg_lh#, 3accreg_lh#, 0);
65 set_char_box(accreg_lh#, accreg_lh#, 0, 3accreg_lh#);
66 pickup pencircle scaled accreg_linethickness;
67 %draw (0, 0)--(2w, 0)--(2w, 3accreg_lh)--(0, 3accreg_lh)--(0, 0);
68 draw (0, 0)--(2w, 0)--(2w, 3accreg_lh)--(0, 3accreg_lh)--cycle;
69 draw (0, accreg_lh)--(2w, accreg_lh);
70 draw (0, 2accreg_lh)--(2w, 2accreg_lh);
71 currentpicture := currentpicture shifted (-w, 0);% -3lh);
74 def def_B(expr w, h) =
76 % pickup pencircle scaled 0.1pt;
77 pickup pencircle scaled 0.15stafflinethickness;
94 z15 = (.94w, h-.5mt*h);
95 z16 = z13 + (0, mt*h);
101 def def_S(expr w, h) =
103 %pickup pencircle scaled 0.02pt;
104 pickup pencircle scaled 0.03stafflinethickness;
108 penpos4(.5thick, 90);
116 z3 = (w-.5thick, .5mb*h);
118 z5 = (.5thick, h-.5mt*h);
124 bue=z2{left}..z1{up};
126 t:=xpart(bue intersectiontimes(z8l--z7l));
128 bueoverst=z6{right}..z7{down};
132 save hs, mb, mt, thin, thick, height, width, cOne, cTwo;
134 height = 2.4staff_space;
135 % URG. smaller sizes should be wider and fatter
136 %thin = 0.05staff_space;
137 %thick = 0.2staff_space;
138 save bx,hx; 4hx+bx=1.15; 10hx+bx=1;
139 fatten:=designsize*hx+bx*1.2;
140 thick:= 0.2staff_space*fatten;
141 % urg: mustn't ever go thinner than blot!
142 thin#:= blot_diameter#;
143 define_pixels (thin);
152 def print_penpos (suffix $)=
153 message str $ &": ("&decimal x.$.l&", "&decimal y.$.l&"); ("&decimal x.$.r&", "&decimal y.$.r&");";
156 fet_beginchar("accSB", "accSB", "accSB")
157 set_char_box(.4staffsize#, .4staffsize#, 0, 2.4staff_space#);
159 def_B(.35width, .7height);
161 penstroke z10e--z11e{right}..z12e..z13e{left}--z14e;
162 penlabels(10, 11, 12, 13, 14);
164 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
165 penstroke z18e--z19e;
166 pickup pencircle scaled .5thick;
167 drawdot (.37width, .10thick);
168 currentpicture := currentpicture shifted(.40width, 0);
170 def_S(.35width, .7height);
171 penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9);
172 filldraw z1r--z8r--z8l--subpath(t, 1) of bue--cycle;
173 filldraw subpath(t, 1) of bueoverst--z7l--z9r--z9l--cycle;
174 penstroke z1e{down}..z2e{right}..z3e
176 ..z5e..z6e{right}...z7e{down};
177 pickup pencircle scaled .5thick;
178 drawdot (.37width, .10thick);
179 currentpicture := currentpicture shifted (-.40width, -.85height);
180 draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
181 --(-.5width, -height)--(-.5width, 0);
182 currentpicture := currentpicture shifted (0, 2.4staff_space);
185 fet_beginchar("accBB", "accBB", "accBB")
186 set_char_box(.4staffsize#, .4staffsize#, 0, 2.4staff_space#);
188 def_B(.35width, .7height);
190 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
192 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
193 penstroke z18e--z19e;
194 penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9);
195 pickup pencircle scaled .5thick;
196 drawdot(.37width, .10thick);
197 currentpicture := currentpicture shifted (.40width, 0);
198 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
199 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
200 penstroke z18e--z19e;
201 drawdot(.37width, .10thick);
202 currentpicture := currentpicture shifted(-.40width, -.85height);
203 draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
204 --(-.5width, -height)--(-.5width, 0);
205 penlabels(10, 11, 12, 13, 14, 15, 16, 17, 18, 19 );
206 currentpicture := currentpicture shifted (0, 2.4staff_space);
210 %%% strange turning path.
211 fet_beginchar("accOldEE", "accOldEE", "accOldEE")
212 set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
219 draw fullcircle scaled 2r;
221 filldraw fullcircle scaled lr;
223 z2 = (0, 0) + ir*(dir 45);
226 for pp := 0 step 45 until 360:
227 filldraw fullcircle scaled lr shifted (ir*(dir pp));
229 for pp := 0 step 45 until 360:
230 filldraw ((0, 0)--(.2lr, ir)--(-.2lr, ir)--cycle) rotated pp;
232 currentpicture := currentpicture shifted (0, r);
235 fet_beginchar("accOldEES", "accOldEES", "accOldEES")
236 set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
241 draw fullcircle scaled 2r;
242 currentpicture := currentpicture shifted (w/2, shy*h);
243 save thin, thick, sw, ch, cw, mb, mt;
246 % URG. smaller sizes should be wider and fatter
249 save bx,hx; 4hx+bx=1.15; 10hx+bx=1;
250 fatten:=designsize*hx+bx*1.2;
253 % urg: mustn't ever go thinner than blot!
254 %thin = 0.05staff_space;
256 thin#:= blot_diameter#;
257 define_pixels (thin);
264 z1 = (0, ch-.5thin); penpos1 (thin, -90);
265 z2 = (.7cw, y1); penpos2 (thin, -90);
266 z3 = (cw, (mb+.5mt)*ch); penpos3(thick, -180);
267 z4 = (.65cw, mb*ch); penpos4(thin, 90);
268 z5 = (sw+thick, mb*ch); penpos5(thin, 90);
269 z6 = (.9cw, .5mb*ch); penpos6(thick, 0);
270 z7 = (1.2cw, 0); penpos7(thin, 90);
271 z8 = (1.3cw, .2mb*ch); penpos8(thin, 180);
272 penlabels(1, 2, 3, 4, 5, 6, 7, 8);
275 pickup pencircle scaled 0.001pt;
276 filldraw (0, 0)--(0, thin)--(sw, thin)--(sw, ch-thin)
277 --(sw+thick, ch-thin)--(sw+thick, thin)
278 --(2sw+thick, thin)--(2sw+thick, 0)--cycle;
280 penstroke z1e--z2e{right}..z3e..z4e{left}--z5e;
282 penstroke z4e{right}..z6e{down}..z7e{right}..z8e{up};
283 currentpicture := currentpicture shifted (-w/2, -shy*h);
284 currentpicture := currentpicture shifted (0, r);