-fet_beginchar("accOldEE", "accOldEE", "accOldEE")
- set_char_box(interline#, interline#, 0, 2interline#);
- show w;
- show h;
- r = interline;
- lr = .3interline;
- ir = .6interline;
- 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;
-
-fet_beginchar("accOldEES", "accOldEES", "accOldEES")
- set_char_box(interline#, interline#, 0, 2interline#);
- save r, shy;
- r = interline;
- shy = .3;
- pickup accreg_pen;
- draw fullcircle scaled 2r;
- currentpicture := currentpicture shifted (w/2, shy*h);
- save thin, thick, sw, ch, cw, mb, mt;
- ch = .6h;
- cw = .8w;
- thin = .05cw;
- thick = .17w;
- mb = .53; mt = .47;
- sw = .8thick;
- z1 = (0, ch-.5thin); penpos1 (thin, -90);
- z2 = (.7cw, y1); penpos2 (thin, -90);
- z3 = (cw, (mb+.5mt)*ch); penpos3(thick, -180);
- z4 = (.65cw, mb*ch); penpos4(thin, 90);
- z5 = (sw+thick, mb*ch); penpos5(thin, 90);
- z6 = (.9cw, .5mb*ch); penpos6(thick, 0);
- z7 = (1.2cw, 0); penpos7(thin, 90);
- z8 = (1.3cw, .2mb*ch); penpos8(thin, 180);
- penlabels(1, 2, 3, 4, 5, 6, 7, 8);
- pickup pencircle scaled 0.001pt;
- filldraw (0, 0)--(0, thin)--(sw, thin)--(sw, ch-thin)
- --(sw+thick, ch-thin)--(sw+thick, thin)
- --(2sw+thick, thin)--(2sw+thick, 0)--cycle;
- penstroke z1e--z2e{right}..z3e..z4e{left}--z5e;
- penstroke z4e{right}..z6e{down}..z7e{right}..z8e{up};
- currentpicture := currentpicture shifted (-w/2, -shy*h);
- currentpicture := currentpicture shifted (0, r);
-fet_endchar;