3 accreg_dot_size# := .5staff_space#;
6 % 'strange turning path' in accSB and others:
7 % mf '\mode=laserjet; input feta11'
8 % mf '\mode=laserjet; input feta13'
9 accreg_linethickness# := 1.3stafflinethickness#;
11 % This dimention is the same on all registersymbols.
12 % The different symbols should calculate their other
13 % dimensions from this and accreg_dot_size
14 accreg_lh# := 1.0staff_space#;
16 define_pixels(accreg_dot_size, accreg_linethickness, accreg_lh);
18 accreg_pen := pencircle xscaled accreg_linethickness yscaled 0.7accreg_linethickness;
20 fet_beginchar("accDiscant", "accDiscant", "accDiscant")
24 % set_char_box(r#, r#, 2r#, 0);
25 set_char_box(r#, r#, 0r#, 2r#); %% arg3 = under linjen, arg4 = over
27 draw fullcircle scaled 2r;
29 draw (-sx*r, r/3)--(sx*r, r/3);
30 draw (-sx*r, -r/3)--(sx*r, -r/3);
31 currentpicture := currentpicture shifted (0, r);
34 fet_beginchar("accDot", "accDot", "accDot")
35 set_char_box(accreg_dot_size#, accreg_dot_size#, 0, 0);
36 pickup pencircle scaled accreg_dot_size;
40 fet_beginchar("accFreebase", "accFreebase", "accFreebase")
44 set_char_box(r#, r#, 0, 2r#);
46 draw fullcircle scaled 2r;
48 currentpicture := currentpicture shifted (0, r);
51 fet_beginchar("accStdbase", "accStdbase", "accStdbase")
56 set_char_box(r#, r#, 0, 2r#);
58 draw fullcircle scaled 2r;
60 draw (-sx*r, r/2)--(sx*r, r/2);
61 draw (-sx*r, -r/2)--(sx*r, -r/2);
62 currentpicture := currentpicture shifted (0, r);
65 %%% strange turning path.
66 fet_beginchar("accBayanbase", "accBayanbase", "accBayanbase")
69 % set_char_box(accreg_lh#, accreg_lh#, 3accreg_lh#, 0);
70 set_char_box(accreg_lh#, accreg_lh#, 0, 3accreg_lh#);
71 pickup pencircle scaled accreg_linethickness;
72 draw (0, 0)--(2w, 0)--(2w, 3accreg_lh)--(0, 3accreg_lh)--(0, 0);
73 draw (0, accreg_lh)--(2w, accreg_lh);
74 draw (0, 2accreg_lh)--(2w, 2accreg_lh);
75 currentpicture := currentpicture shifted (-w, 0);% -3lh);
78 def def_B(expr w, h) =
80 % pickup pencircle scaled 0.1pt;
81 pickup pencircle scaled 0.15stafflinethickness;
97 z15 = (.94w, h-.5mt*h);
98 z16 = z13 + (0, mt*h);
104 def def_S(expr w, h) =
106 %pickup pencircle scaled 0.02pt;
107 pickup pencircle scaled 0.03stafflinethickness;
111 penpos4(.5thick, 90);
119 z3 = (w-.5thick, .5mb*h);
121 z5 = (.5thick, h-.5mt*h);
127 bue=z2{left}..z1{up};
129 t:=xpart(bue intersectiontimes(z8l--z7l));
131 bueoverst=z6{right}..z7{down};
135 save hs, mb, mt, thin, thick, height, width, cOne, cTwo;
137 height = 2.4staff_space;
138 thin = 0.05staff_space;
139 thick = 0.2staff_space;
147 %%% strange turning path.
148 fet_beginchar("accSB", "accSB", "accSB")
149 set_char_box(.4staffsize#, .4staffsize#, 0, 2.4staff_space#);
151 def_B(.35width, .7height);
153 % FIXME -- strange turning path:
154 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
156 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
157 penstroke z18e--z19e;
158 pickup pencircle scaled .5thick;
159 drawdot (.37width, .10thick);
160 currentpicture := currentpicture shifted(.40width, 0);
162 def_S(.35width, .7height);
163 % penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9);
164 filldraw z1r--z8r--z8l--subpath(t, 1) of bue--cycle;
165 filldraw subpath(t, 1) of bueoverst--z7l--z9r--z9l--cycle;
166 penstroke z1e{down}..z2e{right}..z3e
168 ..z5e..z6e{right}...z7e{down};
169 pickup pencircle scaled .5thick;
170 drawdot (.37width, .10thick);
171 currentpicture := currentpicture shifted (-.40width, -.85height);
172 draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
173 --(-.5width, -height)--(-.5width, 0);
174 currentpicture := currentpicture shifted (0, 2.4staff_space);
177 %%% strange turning path.
178 fet_beginchar("accBB", "accBB", "accBB")
179 set_char_box(.4staffsize#, .4staffsize#, 0, 2.4staff_space#);
181 def_B(.35width, .7height);
183 % FIXME -- strange turning path:
184 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
186 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
187 penstroke z18e--z19e;
188 pickup pencircle scaled .5thick;
189 drawdot(.37width, .10thick);
190 currentpicture := currentpicture shifted (.40width, 0);
191 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
192 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
193 penstroke z18e--z19e;
194 drawdot(.37width, .10thick);
195 currentpicture := currentpicture shifted(-.40width, -.85height);
196 draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
197 --(-.5width, -height)--(-.5width, 0);
198 currentpicture := currentpicture shifted (0, 2.4staff_space);
202 %%% strange turning path.
203 fet_beginchar("accOldEE", "accOldEE", "accOldEE")
204 set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
211 draw fullcircle scaled 2r;
213 filldraw fullcircle scaled lr;
215 z2 = (0, 0) + ir*(dir 45);
218 for pp := 0 step 45 until 360:
219 filldraw fullcircle scaled lr shifted (ir*(dir pp));
221 for pp := 0 step 45 until 360:
222 filldraw ((0, 0)--(.2lr, ir)--(-.2lr, ir)--cycle) rotated pp;
224 currentpicture := currentpicture shifted (0, r);
227 fet_beginchar("accOldEES", "accOldEES", "accOldEES")
228 set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
233 draw fullcircle scaled 2r;
234 currentpicture := currentpicture shifted (w/2, shy*h);
235 save thin, thick, sw, ch, cw, mb, mt;
242 z1 = (0, ch-.5thin); penpos1 (thin, -90);
243 z2 = (.7cw, y1); penpos2 (thin, -90);
244 z3 = (cw, (mb+.5mt)*ch); penpos3(thick, -180);
245 z4 = (.65cw, mb*ch); penpos4(thin, 90);
246 z5 = (sw+thick, mb*ch); penpos5(thin, 90);
247 z6 = (.9cw, .5mb*ch); penpos6(thick, 0);
248 z7 = (1.2cw, 0); penpos7(thin, 90);
249 z8 = (1.3cw, .2mb*ch); penpos8(thin, 180);
250 penlabels(1, 2, 3, 4, 5, 6, 7, 8);
251 pickup pencircle scaled 0.001pt;
252 filldraw (0, 0)--(0, thin)--(sw, thin)--(sw, ch-thin)
253 --(sw+thick, ch-thin)--(sw+thick, thin)
254 --(2sw+thick, thin)--(2sw+thick, 0)--cycle;
256 % FIXME -- strange turning path:
257 penstroke z1e--z2e{right}..z3e..z4e{left}--z5e;
259 penstroke z4e{right}..z6e{down}..z7e{right}..z8e{up};
260 currentpicture := currentpicture shifted (-w/2, -shy*h);
261 currentpicture := currentpicture shifted (0, r);