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 fet_beginchar("accBayanbase", "accBayanbase", "accBayanbase")
68 % set_char_box(accreg_lh#, accreg_lh#, 3accreg_lh#, 0);
69 set_char_box(accreg_lh#, accreg_lh#, 0, 3accreg_lh#);
70 pickup pencircle scaled accreg_linethickness;
71 draw (0, 0)--(2w, 0)--(2w, 3accreg_lh)--(0, 3accreg_lh)--(0, 0);
72 draw (0, accreg_lh)--(2w, accreg_lh);
73 draw (0, 2accreg_lh)--(2w, 2accreg_lh);
74 currentpicture := currentpicture shifted (-w, 0);% -3lh);
77 def def_B(expr w, h) =
79 % pickup pencircle scaled 0.1pt;
80 pickup pencircle scaled 0.15stafflinethickness;
96 z15 = (.94w, h-.5mt*h);
97 z16 = z13 + (0, mt*h);
103 def def_S(expr w, h) =
105 %pickup pencircle scaled 0.02pt;
106 pickup pencircle scaled 0.03stafflinethickness;
110 penpos4(.5thick, 90);
118 z3 = (w-.5thick, .5mb*h);
120 z5 = (.5thick, h-.5mt*h);
126 bue=z2{left}..z1{up};
128 t:=xpart(bue intersectiontimes(z8l--z7l));
130 bueoverst=z6{right}..z7{down};
134 save hs, mb, mt, thin, thick, height, width, cOne, cTwo;
136 height = 2.4staff_space;
137 thin = 0.05staff_space;
138 thick = 0.2staff_space;
146 fet_beginchar("accSB", "accSB", "accSB")
147 set_char_box(.4staffsize#, .4staffsize#, 0, 2.4staff_space#);
149 def_B(.35width, .7height);
151 % FIXME -- strange turning path:
152 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
154 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
155 penstroke z18e--z19e;
156 pickup pencircle scaled .5thick;
157 drawdot (.37width, .10thick);
158 currentpicture := currentpicture shifted(.40width, 0);
160 def_S(.35width, .7height);
161 % penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9);
162 filldraw z1r--z8r--z8l--subpath(t, 1) of bue--cycle;
163 filldraw subpath(t, 1) of bueoverst--z7l--z9r--z9l--cycle;
164 penstroke z1e{down}..z2e{right}..z3e
166 ..z5e..z6e{right}...z7e{down};
167 pickup pencircle scaled .5thick;
168 drawdot (.37width, .10thick);
169 currentpicture := currentpicture shifted (-.40width, -.85height);
170 draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
171 --(-.5width, -height)--(-.5width, 0);
172 currentpicture := currentpicture shifted (0, 2.4staff_space);
175 fet_beginchar("accBB", "accBB", "accBB")
176 set_char_box(.4staffsize#, .4staffsize#, 0, 2.4staff_space#);
178 def_B(.35width, .7height);
180 % FIXME -- strange turning path:
181 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
183 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
184 penstroke z18e--z19e;
185 pickup pencircle scaled .5thick;
186 drawdot(.37width, .10thick);
187 currentpicture := currentpicture shifted (.40width, 0);
188 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
189 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
190 penstroke z18e--z19e;
191 drawdot(.37width, .10thick);
192 currentpicture := currentpicture shifted(-.40width, -.85height);
193 draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
194 --(-.5width, -height)--(-.5width, 0);
195 currentpicture := currentpicture shifted (0, 2.4staff_space);
199 fet_beginchar("accOldEE", "accOldEE", "accOldEE")
200 set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
207 draw fullcircle scaled 2r;
209 filldraw fullcircle scaled lr;
211 z2 = (0, 0) + ir*(dir 45);
214 for pp := 0 step 45 until 360:
215 filldraw fullcircle scaled lr shifted (ir*(dir pp));
217 for pp := 0 step 45 until 360:
218 filldraw ((0, 0)--(.2lr, ir)--(-.2lr, ir)--cycle) rotated pp;
220 currentpicture := currentpicture shifted (0, r);
223 fet_beginchar("accOldEES", "accOldEES", "accOldEES")
224 set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
229 draw fullcircle scaled 2r;
230 currentpicture := currentpicture shifted (w/2, shy*h);
231 save thin, thick, sw, ch, cw, mb, mt;
238 z1 = (0, ch-.5thin); penpos1 (thin, -90);
239 z2 = (.7cw, y1); penpos2 (thin, -90);
240 z3 = (cw, (mb+.5mt)*ch); penpos3(thick, -180);
241 z4 = (.65cw, mb*ch); penpos4(thin, 90);
242 z5 = (sw+thick, mb*ch); penpos5(thin, 90);
243 z6 = (.9cw, .5mb*ch); penpos6(thick, 0);
244 z7 = (1.2cw, 0); penpos7(thin, 90);
245 z8 = (1.3cw, .2mb*ch); penpos8(thin, 180);
246 penlabels(1, 2, 3, 4, 5, 6, 7, 8);
247 pickup pencircle scaled 0.001pt;
248 filldraw (0, 0)--(0, thin)--(sw, thin)--(sw, ch-thin)
249 --(sw+thick, ch-thin)--(sw+thick, thin)
250 --(2sw+thick, thin)--(2sw+thick, 0)--cycle;
252 % FIXME -- strange turning path:
253 penstroke z1e--z2e{right}..z3e..z4e{left}--z5e;
255 penstroke z4e{right}..z6e{down}..z7e{right}..z8e{up};
256 currentpicture := currentpicture shifted (-w/2, -shy*h);
257 currentpicture := currentpicture shifted (0, r);