3 accreg_dot_size# := .5interline#;
5 % 'strange turning path' in accBayanbase:
6 % mf '\mode=laserjet; input feta11'
7 % accreg_linethickness# := 1.3stafflinethickness#;
9 % so, do thinner lines, for now
10 accreg_linethickness# := 1.2stafflinethickness#;
12 % This dimention is the same on all registersymbols.
13 % The different symbols should calculate their other
14 % dimensions from this and accreg_dot_size
15 accreg_lh# := 1.0interline#;
17 define_pixels(accreg_dot_size, accreg_linethickness, accreg_lh);
19 accreg_pen := pencircle xscaled accreg_linethickness yscaled 0.7accreg_linethickness;
21 fet_beginchar("accDiscant", "accDiscant", "accDiscant")
25 % set_char_box(r#, r#, 2r#, 0);
26 set_char_box(r#, r#, 0r#, 2r#); %% arg3 = under linjen, arg4 = over
28 draw fullcircle scaled 2r;
30 draw (-sx*r, r/3)--(sx*r, r/3);
31 draw (-sx*r, -r/3)--(sx*r, -r/3);
32 currentpicture := currentpicture shifted (0, r);
35 fet_beginchar("accDot", "accDot", "accDot")
36 set_char_box(accreg_dot_size#, accreg_dot_size#, 0, 0);
37 pickup pencircle scaled accreg_dot_size;
41 fet_beginchar("accFreebase", "accFreebase", "accFreebase")
45 set_char_box(r#, r#, 0, 2r#);
47 draw fullcircle scaled 2r;
49 currentpicture := currentpicture shifted (0, r);
52 fet_beginchar("accStdbase", "accStdbase", "accStdbase")
57 set_char_box(r#, r#, 0, 2r#);
59 draw fullcircle scaled 2r;
61 draw (-sx*r, r/2)--(sx*r, r/2);
62 draw (-sx*r, -r/2)--(sx*r, -r/2);
63 currentpicture := currentpicture shifted (0, r);
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) =
79 pickup pencircle scaled 0.1pt;
95 z15 = (.94w, h-.5mt*h);
96 z16 = z13 + (0, mt*h);
102 def def_S(expr w, h) =
103 pickup pencircle scaled 0.02pt;
107 penpos4(.5thick, 90);
115 z3 = (w-.5thick, .5mb*h);
117 z5 = (.5thick, h-.5mt*h);
123 bue=z2{left}..z1{up};
125 t:=xpart(bue intersectiontimes(z8l--z7l));
127 bueoverst=z6{right}..z7{down};
131 save hs, mb, mt, thin, thick, height, width, cOne, cTwo;
133 height = 2.4interline;
134 thin = 0.05interline;
135 thick = 0.2interline;
143 fet_beginchar("accSB", "accSB", "accSB")
144 set_char_box(.4staffsize#, .4staffsize#, 0, 2.4interline#);
146 def_B(.35width, .7height);
147 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
148 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
149 penstroke z18e--z19e;
150 pickup pencircle scaled .5thick;
151 drawdot (.37width, .10thick);
152 currentpicture := currentpicture shifted(.40width, 0);
154 def_S(.35width, .7height);
155 % penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9);
156 filldraw z1r--z8r--z8l--subpath(t, 1) of bue--cycle;
157 filldraw subpath(t, 1) of bueoverst--z7l--z9r--z9l--cycle;
158 penstroke z1e{down}..z2e{right}..z3e
160 ..z5e..z6e{right}...z7e{down};
161 pickup pencircle scaled .5thick;
162 drawdot (.37width, .10thick);
163 currentpicture := currentpicture shifted (-.40width, -.85height);
164 draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
165 --(-.5width, -height)--(-.5width, 0);
166 currentpicture := currentpicture shifted (0, 2.4interline);
169 fet_beginchar("accBB", "accBB", "accBB")
170 set_char_box(.4staffsize#, .4staffsize#, 0, 2.4interline#);
172 def_B(.35width, .7height);
173 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
174 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
175 penstroke z18e--z19e;
176 pickup pencircle scaled .5thick;
177 drawdot(.37width, .10thick);
178 currentpicture := currentpicture shifted (.40width, 0);
179 penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
180 penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
181 penstroke z18e--z19e;
182 drawdot(.37width, .10thick);
183 currentpicture := currentpicture shifted(-.40width, -.85height);
184 draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
185 --(-.5width, -height)--(-.5width, 0);
186 currentpicture := currentpicture shifted (0, 2.4interline);
190 fet_beginchar("accOldEE", "accOldEE", "accOldEE")
191 set_char_box(interline#, interline#, 0, 2interline#);
198 draw fullcircle scaled 2r;
200 filldraw fullcircle scaled lr;
202 z2 = (0, 0) + ir*(dir 45);
205 for pp := 0 step 45 until 360:
206 filldraw fullcircle scaled lr shifted (ir*(dir pp));
208 for pp := 0 step 45 until 360:
209 filldraw ((0, 0)--(.2lr, ir)--(-.2lr, ir)--cycle) rotated pp;
211 currentpicture := currentpicture shifted (0, r);
214 fet_beginchar("accOldEES", "accOldEES", "accOldEES")
215 set_char_box(interline#, interline#, 0, 2interline#);
220 draw fullcircle scaled 2r;
221 currentpicture := currentpicture shifted (w/2, shy*h);
222 save thin, thick, sw, ch, cw, mb, mt;
229 z1 = (0, ch-.5thin); penpos1 (thin, -90);
230 z2 = (.7cw, y1); penpos2 (thin, -90);
231 z3 = (cw, (mb+.5mt)*ch); penpos3(thick, -180);
232 z4 = (.65cw, mb*ch); penpos4(thin, 90);
233 z5 = (sw+thick, mb*ch); penpos5(thin, 90);
234 z6 = (.9cw, .5mb*ch); penpos6(thick, 0);
235 z7 = (1.2cw, 0); penpos7(thin, 90);
236 z8 = (1.3cw, .2mb*ch); penpos8(thin, 180);
237 penlabels(1, 2, 3, 4, 5, 6, 7, 8);
238 pickup pencircle scaled 0.001pt;
239 filldraw (0, 0)--(0, thin)--(sw, thin)--(sw, ch-thin)
240 --(sw+thick, ch-thin)--(sw+thick, thin)
241 --(2sw+thick, thin)--(2sw+thick, 0)--cycle;
242 penstroke z1e--z2e{right}..z3e..z4e{left}--z5e;
243 penstroke z4e{right}..z6e{down}..z7e{right}..z8e{up};
244 currentpicture := currentpicture shifted (-w/2, -shy*h);
245 currentpicture := currentpicture shifted (0, r);