-fet_beginchar("accBB", "accBB", "accBB")
- set_char_box(.4staffsize#, .4staffsize#, 0, 2.4staff_space#);
- def_some_vars;
- def_B(.35width, .7height);
-
- penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
-
- penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
- penstroke z18e--z19e;
- penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9);
- pickup pencircle scaled .5thick;
- drawdot(.37width, .10thick);
- currentpicture := currentpicture shifted (.40width, 0);
- penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
- penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
- penstroke z18e--z19e;
- drawdot(.37width, .10thick);
- currentpicture := currentpicture shifted(-.40width, -.85height);
- draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
- --(-.5width, -height)--(-.5width, 0);
- penlabels(10, 11, 12, 13, 14, 15, 16, 17, 18, 19 );
- currentpicture := currentpicture shifted (0, 2.4staff_space);
-fet_endchar;
-
-
-%%% strange turning path.
-fet_beginchar("accOldEE", "accOldEE", "accOldEE")
- set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
- show w;
- show h;
- r = staff_space;
- lr = .3staff_space;
- ir = .6staff_space;
- pickup accreg_pen;
- draw fullcircle scaled 2r;
- pickup penrazor;
- filldraw fullcircle scaled lr;
- z1 = (ir, 0);
- z2 = (0, 0) + ir*(dir 45);
- z3 = (0, ir);
- numeric pp;
- for pp := 0 step 45 until 360:
- filldraw fullcircle scaled lr shifted (ir*(dir pp));
- endfor;
- for pp := 0 step 45 until 360:
- filldraw ((0, 0)--(.2lr, ir)--(-.2lr, ir)--cycle) rotated pp;
- endfor
- currentpicture := currentpicture shifted (0, r);
-fet_endchar;