%wid# := 1mm#; hei# := 1mm#; dep# := 1mm#;
wid# := pt#; hei# := pt#; dep# := pt#;
define_pixels(wid,hei,dep);
save c_s, b, Diam;
c_s = 2wid;
b := wid;

%%%%%%%%%%%%%%% UNPENSTROKE DEFF %%%%%%%%%%%%%%%%%%%%%%%%%%%%
def unpenstroke text t =
 forsuffixes e = l,r: path_.e:=t; endfor
 if cycle path_.l: cyclestroke_
 else: unfill path_.l -- reverse path_.r -- cycle fi enddef;
def cyclestroke_ =
 begingroup interim turningcheck:=0;
 addto pic_ contour path_.l.t_ withweight 1;
 addto pic_ contour path_.r.t_ withweight _;
 cull pic_ dropping origin withweight default_wt_;
 addto_currentpicture also pic_;
 pic_:=nullpicture endgroup enddef;
path path_.l,path_.r;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


beginchar(oct"200",12wid#,12hei#,0); "XPICTOC";
path p[];
numeric ang[];
 x1 = x4 = w - x2 = c_s;
 x2 = x3;
 y1 = y2 = h/4;
 y3 = y4 = h - y1; 
 p0 = z2..z4;
 p1 = z1..z3;
 z10 = z11 = z0 = point .5 of p0;
 x5 = x6 = x0;
 y5 = h - y6 = h/12;
 x7 = x8 = .5[x6,x3];
 y7 = .5[y4,y6];
 y8 = h;
 z9 = (x3,y6);
 z13 = z12 = z6;

 penpos6(.7b,0);
 penpos0(.4b,0);
 penpos5(b,0);
 ang0 = angle(z4-z2)+90;
 penpos4(b,ang0);
 penpos10(.4b,ang0);
 penpos2(b,ang0);
 ang1 = angle(z3-z1)+90;
 penpos3(b,ang1);
 penpos11(.4b,ang1);
 penpos1(b,ang1);
 penpos12(.7b,0);
 penpos8(.7b,-90);
 penpos9(.7b,180);
 penpos7(.7b,90);
 penpos13(.7b,360);

 pickup pencircle scaled .2pt;
 Diam = w++h;
 fill fullcircle scaled Diam shifted (z0);
 unpenstroke z6e..z0e..z5e;
 unpenstroke z4e..z10e..z2e;
 unpenstroke z3e..z11e..z1e;
 unpenstroke z12e{up}..z8e{right}..z9e{down}..z7e{left}..{up}z13e;

 endchar;