mag:=1000/1000;
%%%
%%%  File: graphbase.mf
%%%

mode_setup;
message "mfpic version 0.1.13.1 9/7/92";

%set up local environment

def mfpicenv =
begingroup

% miscellaneous utilities

save floorpair;

vardef floorpair(expr p) =
 (floor (xpart p), floor (ypart p))
enddef;

save ceilingpair;

vardef ceilingpair(expr p) =
 (ceiling (xpart p), ceiling (ypart p))
enddef;

save minpair, p,x,y;

vardef minpair(expr u)(text t) =
 pair p;  numeric x, y;
 p:=u;
 for q=t:
  x:=min(xpart p, xpart q);
  y:=min(ypart p, ypart q);
  p:=(x,y);
 endfor;
 p
enddef;

save maxpair, p,x,y;

vardef maxpair(expr u)(text t) =
 pair p;  numeric x, y;
 p:=u;
 for q=t:
  x:=max(xpart p, xpart q);
  y:=max(ypart p, ypart q);
  p:=(x,y);
 endfor;
 p
enddef;

% setup

save bounds,
  xneg,xpos,yneg,ypos;

def bounds(expr a,b,c,d) = 
 xneg:=a; 
 xpos:=b; 
 yneg:=c; 
 ypos:=d; 
enddef;

% conversion

save xconv;

def xconv(expr xvalue) = 
 ((xvalue-xneg)/(xpos-xneg))*w 
enddef;

save unxconv;

def unxconv(expr pvalue) = 
 ((pvalue/w)*(xpos-xneg)+xneg) 
enddef;

save yconv;

def yconv(expr yvalue) = 
 ((yvalue-yneg)/(ypos-yneg))*h 
enddef;

save ztr;

transform ztr;

save setztr;

def setztr =
 ztr:=identity
 shifted -(xneg,yneg) 
 xscaled (w/(xpos-xneg))
 yscaled (h/(ypos-yneg));
enddef;

% pen width
% in pixel coordinates

save penwd;

newinternal penwd;

% arrowheads
% in pixel coordinates

save hdwdr, hdten;

newinternal hdwdr, hdten;

save head, p,side;

def head(expr front, back, width, t) =
 pair p[], side;
 side := (width/2) * 
   ((front-back) rotated 90);
 p1 := back + side;
 p2 := back - side;
 draw front{back-front}..tension t..p1;
 draw front{back-front}..tension t..p2;
enddef;

save headpath, p;

def headpath(expr f,hlen)=
 pair p[];
 p2:=point infinity of f; 
 p1:=direction infinity of f;
 if p1<>(0,0):
  head(p2,p2-(hlen*unitvector(p1)),
    hdwdr,hdten);
 fi;
enddef;

% shading routine
% in pixel coordinates

save onedot;

def onedot(expr p)(suffix v) =
 addto v doublepath p
   withpen currentpen; 
enddef;

save clip;

vardef clip(expr f)(suffix v) =
 save vt;
 picture vt;
 vt:=v;
 cull vt keeping (1,infinity);
 addto vt contour f;
 cull vt keeping (2,infinity);
 vt
enddef;

save shadepath, v,p,ll,ur,
  mn,m,n,twosp;

def shadepath(expr sp,f) =
 picture v;
 pair p[], ll, ur, mn;
 if not cycle f: ;
 elseif sp<=0: fill f; 
 else: 
  ur:=ll:=point 0 of f; 
  for i:=0 upto length f:
   p0:=point i of f; 
   p1:=precontrol i of f; 
   p2:=postcontrol i of f;
   ll:=minpair(ll, p0, p1, p2);
   ur:=maxpair(ur, p0, p1, p2);
  endfor; 
  ll:=sp*(ceilingpair(ll/sp));
  mn:=floorpair((ur-ll)/sp);
  m:=xpart mn;
  n:=ypart mn;
  twosp:=2*sp;
  v:=nullpicture;
  p2:=ll;
  for i:=0 upto m: 
   p3:=p2 if odd i: +(0,sp) fi;
   for j:=0 upto n:
    if (not odd (i+j)):
     onedot(p3,v);
     p3:=p3+(0,twosp);
    fi;
   endfor;
   p2:=p2+(sp,0);
  endfor; 
  addto currentpicture 
    also clip(f,v);
 fi;
enddef;

% * rest of macros start in graphing 
% coordinates but convert to pixel 
% to draw
% * variables ending in ".px" 
% converted to pixel
% * exceptions are the TeX dimensions
% here called:
% ptwd, hlen, dlen, slen, len, sp
% all of which are in pixel coordinates
% * macros beginning with "mk" operate
% entirely in graphing coordinates

% general path construction

save mkpath;

def mkpath(expr smooth, cyclic, n)
  (suffix pts) =
 if smooth:
  if cyclic:
   pts[1]{pts[2]-pts[n]}
  else:
   pts[1]
  fi
  for i:=2 upto n-1:
   ..pts[i]{pts[i+1]-pts[i-1]}
  endfor
  if cyclic:
   ..pts[n]{pts[1]-pts[n-1]}..cycle
  else:
   ..pts[n]
  fi
 else:
  for i:=1 upto n-1:
    pts[i] --
  endfor
  pts[n]
  if cyclic:
   -- cycle
  fi
 fi
enddef;

% points, lines, and arrows

save pointd, p;

def pointd(expr a,ptwd) = 
 pair p.px;
 p.px:=a transformed ztr;
 fill fullcircle scaled ptwd shifted p.px; 
enddef;

save line;

def line(expr a,b) = 
 draw (a..b) transformed ztr; 
enddef;

save arrow, f;

def arrow(expr tl,hd,hlen) =
 path f.px;
 f.px:= (tl..hd) transformed ztr; 
 draw f.px;
 headpath(f.px,hlen);
enddef;

save dottedline, p,
  v,l,delta,n;

def dottedline(expr a,b,dlen,slen) =
 pair p.px[];
 pair v.px;
 p.px1:=a transformed ztr;
 p.px3:=b transformed ztr;
 l.px:=length(p.px3-p.px1); 
 if (l.px<=2*dlen) or 
   (dlen<0) or (slen<0): 
  draw p.px1..p.px3; 
 else: 
  v.px:=unitvector(p.px3-p.px1);
  n:=floor((l.px+slen-dlen)/(dlen+slen));
  delta:=((l.px-dlen)/n)-(dlen+slen);
  for i:=1 upto n:
   p.px2:=p.px1+(dlen*v.px); 
   draw p.px1..p.px2; 
   p.px1:=p.px2+((slen+delta)*v.px);
  endfor; 
  draw p.px1..p.px3;
 fi;
enddef;

save dottedarrow;

def dottedarrow(expr tl,hd,dlen,
  slen,hlen) =
 dottedline(tl,hd,dlen,slen); 
 headpath((tl..hd) transformed ztr,hlen);
enddef;

% axes and axis marks

save axes;

def axes(expr hlen) =
 arrow((0,yneg),(0,ypos),hlen); 
 arrow((xneg,0),(xpos,0),hlen);
enddef;

save xmarks;

def xmarks(expr len)(text t) =
 for a=t: 
  draw (xconv(a),yconv(0)-(len/2))..
    (xconv(a),yconv(0)+(len/2)); 
 endfor; 
enddef;

save ymarks;

def ymarks(expr len)(text t) =
 for a=t: 
  draw (xconv(0)-(len/2),yconv(a))..
    (xconv(0)+(len/2),yconv(a)); 
 endfor; 
enddef;

% polygons

save mkrect;

def mkrect(expr ll,ur) =
 ll--(xpart ll,ypart ur)--
   ur--(xpart ur,ypart ll)--cycle
enddef;

save rect;

def rect(expr ll,ur) =
 draw (mkrect(ll,ur)) transformed ztr;
enddef;

save dottedrect;

def dottedrect(expr ll,ur,dlen,slen) =
 dottedline(ll,(xpart ll,ypart ur),
   dlen,slen);
 dottedline((xpart ll,ypart ur),ur,
   dlen,slen);
 dottedline(ur,(xpart ur,ypart ll),
   dlen,slen);
 dottedline((xpart ur,ypart ll),ll,
   dlen,slen);
enddef;

save block;

def block(expr ll,ur) =
 fill (mkrect(ll,ur)) transformed ztr;
enddef;

save rectshade;

def rectshade(expr sp,ll,ur) =
 path f.px; 
 f.px:=(mkrect(ll,ur)) transformed ztr;
 shadepath(sp,f.px);
enddef;

% circles and ellipses

save mkellipse;

vardef mkellipse(expr center,radx,rady,
  angle) =
 save t;
 transform t; 
 t:=identity xscaled (2*radx) 
   yscaled (2*rady) rotated angle 
   shifted center;
 fullcircle transformed t
enddef;

save ellipse;

def ellipse(expr center,radx,rady,
  angle) =
 draw 
   (mkellipse(center,radx,rady,angle))
   transformed ztr;
enddef;

save circle;

def circle(expr center,rad) =
 ellipse(center,rad,rad,0);
enddef;

save ellshade ,f;

def ellshade (expr sp, center, 
  radx, rady, angle) =
 path f.px;
 f.px:=
   (mkellipse(center,radx,rady,angle))
   transformed ztr;
 shadepath(sp,f.px);
enddef;

save circshade;

def circshade(expr sp, center,rad) =
 ellshade(sp,center,rad,rad,0);
enddef;

% circular arcs

save mkarc;

vardef mkarc(expr center,from,sweep)=
 save p,f,n,i;
 pair p[];
 path f;
 if sweep=0: f:=from;
 else:
  n:=floor(abs(sweep)/45)+1;
  if n<3: n:=3; fi;
  theta:=sweep/(n-1);
  p1:=from; 
  for i:=2 upto n:
   p[i]:=p[i-1] 
     rotatedabout (center,theta);
  endfor;
  f:=mkpath(true,false,n,p)
 fi;
 f
enddef;

save arccenter;

vardef arccenter(expr from,to,sweep)=
 save midpt, disp;
 pair midpt;
 midpt:=(0.5)[from,to];
 disp:=
   if ((sweep mod 360)=0):
    0
   else:
    cosd(sweep/2)/sind(sweep/2)
   fi;
 midpt+(disp*((to-from) rotated 90)/2)
enddef;

save arc, center;

def arc(expr from,to,sweep) =
 pair center;
 center:=arccenter(from,to,sweep);
 draw (mkarc(center, from, sweep)) 
    transformed ztr;
enddef;

save arcarrow, center,f;

def arcarrow(expr hlen,from,to,sweep) =
 pair center;
 path f.px; 
 center:=arccenter(from,to,sweep);
 f.px:=(mkarc(center, from, sweep))
   transformed ztr; 
 draw f.px;
 headpath(f.px,hlen);
enddef;

save arcshade, center,f;

def arcshade(expr sp,from,to,sweep) =
 pair center;
 path f.px; 
 center:=arccenter(from,to,sweep);
 f.px:=(mkarc(center,from,sweep)--cycle)
   transformed ztr;
 shadepath(sp,f.px);
enddef;

% modified polar coordinates

save linedir, p;

def linedir(expr a,theta,len) =
 pair p;
 p:=a+len*(dir theta);
 draw (a..p) transformed ztr;
enddef;

save arrowdir, p,f;

def arrowdir(expr hlen,a,theta,len) =
 pair p;
 path f.px;
 p:=a+len*(dir theta);
 f.px:= (a..p) transformed ztr;
 draw f.px;
 headpath(f.px,hlen);
enddef;

save arcth, from;

def arcth(expr center,
  frtheta,totheta,rad) =
 pair from;
 from:=center+rad*(dir frtheta);
 draw (mkarc(center,from,
   totheta-frtheta))
   transformed ztr;
enddef;

save arctharrow, from,f;

def arctharrow(expr hlen,center, 
  frtheta,totheta,rad) =
 pair from;
 path f.px;
 from:=center+rad*(dir frtheta);
 f.px:= (mkarc(center,from,
   totheta-frtheta))
   transformed ztr;
 draw f.px;
 headpath(f.px,hlen);
enddef;

save wedgeshade, from,f;

def wedgeshade(expr sp,center, 
  frtheta,totheta,rad) =
 pair from;
 path f.px;
 from:=center+rad*(dir frtheta);
 f.px:=(center--
   mkarc(center,from,totheta-frtheta)
   --cycle) transformed ztr;
 shadepath(sp, f.px);
enddef;

% curves

save mkcurve;

vardef mkcurve(expr smooth,cyclic)
  (text t)=
 save i,p,a;
 i:=0; 
 pair p[];
 for a=t: 
  p[incr i]:=a; 
 endfor; 
 mkpath(smooth,cyclic,i,p)
enddef;

save curve;

def curve(expr smooth,cyclic)
  (text t) =
 draw (mkcurve(smooth,cyclic,t))
   transformed ztr; 
enddef;

save curvedarrow, f;

def curvedarrow(expr smooth,hlen)
  (text t) =
 path f.px;
 f.px:=(mkcurve(smooth,false,t))
   transformed ztr; 
 draw f.px;
 headpath(f.px,hlen);
enddef;

% cyclic curves

save cycleshade, f;

def cycleshade(expr sp,smooth)(text t) =
 path f.px;
 f.px:=mkcurve(smooth,true,t)
   transformed ztr;
 shadepath(sp,f.px);
enddef;

% functions

save mkfcn;

vardef mkfcn(expr smooth,bmin,bmax,bst)
  (suffix bv)(text fcnpr)=
 save p,i;
 pair p[];
 i:=0;
 for bv:=bmin step bst 
   until bmax+(bst/2):
  p[incr i]:=fcnpr; 
 endfor;
 mkpath(smooth,false,i,p)
enddef;

save function;

def function(expr smooth,xmin,xmax,st)
  (text fx) =
 draw (mkfcn(smooth,xmin,xmax,st,
   x,(x,fx)))
   transformed ztr; 
enddef;

save parafcn;

def parafcn(expr smooth,tmin,tmax,st)
  (text ft) =
 draw (mkfcn(smooth,tmin,tmax,st,
   t,ft))
   transformed ztr; 
enddef;

save shadefcn, f,st;

def shadefcn(expr sp, xmin, xmax)
  (text fcni)(text fcnii) =
 path f.px; 
 st:=unxconv(sp);
 f.px:=(mkfcn(false,xmin,xmax,st,
   x,(x,fcni))
   --reverse
   mkfcn(false,xmin,xmax,st,
   x,(x,fcnii))
   --cycle) transformed ztr;
 shadepath(sp,f.px);
enddef;

enddef;  % mfpicenv

def endmfpicenv =
 endgroup;
enddef;


code:=00;
mfpicenv;
interim hdwdr:=1; interim hdten:=1;
interim penwd:=0.5pt;
pickup pencircle scaled penwd;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.083333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.041667), (0.041667,0.041667));
line((0.041667,0.041667), (0.0625,0.083333));
line((0.0625,0.083333), (0.104167,0));
line((0.104167,0), (0.145833,0.083333));
line((0.145833,0.083333), (0.1875,0));
line((0.1875,0), (0.229167,0.083333));
line((0.229167,0.083333), (0.270833,0));
line((0.270833,0), (0.291667,0.041667));
line((0.291667,0.041667), (0.333333,0.041667));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.083333,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.041667,0), (0.041667,0.041667));
line((0.041667,0.041667), (0,0.0625));
line((0,0.0625), (0.083333,0.104167));
line((0.083333,0.104167), (0,0.145833));
line((0,0.145833), (0.083333,0.1875));
line((0.083333,0.1875), (0,0.229167));
line((0,0.229167), (0.083333,0.270833));
line((0.083333,0.270833), (0.041667,0.291667));
line((0.041667,0.291667), (0.041667,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.088302);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.017171), (0.024933,0.017171));
arcth((0.070249,0.038302), -155, -410, 0.05);
arcth((0.134527,0.038302), -130, -410, 0.05);
arcth((0.198806,0.038302), -130, -410, 0.05);
arcth((0.263085,0.038302), -130, -385, 0.05);
line((0.3084,0.017171), (0.333333,0.017171));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.088302,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.017171,0.333333), (0.017171,0.3084));
arcth((0.038302,0.263085), 115, -140, 0.05);
arcth((0.038302,0.198806), 140, -140, 0.05);
arcth((0.038302,0.134527), 140, -140, 0.05);
arcth((0.038302,0.070249), 140, -115, 0.05);
line((0.017171,0.024933), (0.017171,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.088302);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.071131), (0.3084,0.071131));
arcth((0.263085,0.05), 25, -230, 0.05);
arcth((0.198806,0.05), 50, -230, 0.05);
arcth((0.134527,0.05), 50, -230, 0.05);
arcth((0.070249,0.05), 50, -205, 0.05);
line((0.024933,0.071131), (0,0.071131));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.088302,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.071131,0), (0.071131,0.024933));
arcth((0.05,0.070249), -65, -320, 0.05);
arcth((0.05,0.134527), -40, -320, 0.05);
arcth((0.05,0.198806), -40, -320, 0.05);
arcth((0.05,0.263085), -40, -295, 0.05);
line((0.071131,0.3084), (0.071131,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.479751,0,0.11627);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.08502), (0.292836,0.08502));
line((0,0.11627), (0.292836,0.11627));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.11627,0,0.479751);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.03125,0), (0.03125,0.292836));
line((0,0), (0,0.292836));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.03125);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0), (0.041667,0));
arcth((0.072917,0), 180, 0, 0.03125);
arcth((0.135417,0), 180, 0, 0.03125);
arcth((0.197917,0), 180, 0, 0.03125);
arcth((0.260417,0), 180, 0, 0.03125);
line((0.291667,0), (0.333333,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.03125,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.333333), (0,0.291667));
arcth((0,0.260417), 90, -90, 0.03125);
arcth((0,0.197917), 90, -90, 0.03125);
arcth((0,0.135417), 90, -90, 0.03125);
arcth((0,0.072917), 90, -90, 0.03125);
line((0,0.041667), (0,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.03125);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.03125), (0.291667,0.03125));
arcth((0.260417,0.03125), 0, -180, 0.03125);
arcth((0.197917,0.03125), 0, -180, 0.03125);
arcth((0.135417,0.03125), 0, -180, 0.03125);
arcth((0.072917,0.03125), 0, -180, 0.03125);
line((0.041667,0.03125), (0,0.03125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.03125,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.03125,0), (0.03125,0.041667));
arcth((0.03125,0.072917), -90, -270, 0.03125);
arcth((0.03125,0.135417), -90, -270, 0.03125);
arcth((0.03125,0.197917), -90, -270, 0.03125);
arcth((0.03125,0.260417), -90, -270, 0.03125);
line((0.03125,0.291667), (0.03125,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.03125,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.03125,0), (0.03125,0.041667));
arcth((0.03125,0.072917), -90, -270, 0.03125);
arcth((0.03125,0.135417), -90, -270, 0.03125);
arcth((0.03125,0.197917), -90, -270, 0.03125);
arcth((0.03125,0.260417), -90, -270, 0.03125);
line((0.03125,0.291667), (0.03125,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.458333,0,0.076389);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.045139), (0.25,0.045139));
line((0,0.076389), (0.25,0.076389));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.076389,0,0.458333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.03125,0), (0.03125,0.25));
line((0,0), (0,0.25));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.125);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.0625), (0.141667,0.0625));
line((0.141667,0), (0.141667,0.125));
arcth((0.29992,0.0625), -150, -210, 0.125);
line((0.17492,0.0625), (0.333333,0.0625));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.125,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.0625,0.333333), (0.0625,0.191667));
line((0,0.191667), (0.125,0.191667));
arcth((0.0625,0.033413), 120, 60, 0.125);
line((0.0625,0.158413), (0.0625,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.125);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.0625), (0.191667,0.0625));
line((0.191667,0.125), (0.191667,0));
arcth((0.033413,0.0625), 30, -30, 0.125);
line((0.158413,0.0625), (0,0.0625));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.125,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.0625,0), (0.0625,0.141667));
line((0.125,0.141667), (0,0.141667));
arcth((0.0625,0.29992), -60, -120, 0.125);
line((0.0625,0.17492), (0.0625,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.166667);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.083333), (0.141667,0.083333));
line((0.141667,0), (0.141667,0.166667));
line((0.191667,0), (0.191667,0.166667));
line((0.191667,0.083333), (0.333333,0.083333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.166667,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.083333,0), (0.083333,0.141667));
line((0.166667,0.141667), (0,0.141667));
line((0.166667,0.191667), (0,0.191667));
line((0.083333,0.191667), (0.083333,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.1);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.05), (0.123365,0.05));
line((0.209968,0.05), (0.123365,0));
line((0.123365,0), (0.123365,0.1));
line((0.123365,0.1), (0.209968,0.05));
line((0.209968,0), (0.209968,0.1));
line((0.209968,0.05), (0.333333,0.05));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.1,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.05,0.333333), (0.05,0.209968));
line((0.05,0.123365), (0,0.209968));
line((0,0.209968), (0.1,0.209968));
line((0.1,0.209968), (0.05,0.123365));
line((0,0.123365), (0.1,0.123365));
line((0.05,0.123365), (0.05,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.1);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.05), (0.209968,0.05));
line((0.123365,0.05), (0.209968,0.1));
line((0.209968,0.1), (0.209968,0));
line((0.209968,0), (0.123365,0.05));
line((0.123365,0.1), (0.123365,0));
line((0.123365,0.05), (0,0.05));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.1,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.05,0), (0.05,0.123365));
line((0.05,0.209968), (0.1,0.123365));
line((0.1,0.123365), (0,0.123365));
line((0,0.123365), (0.05,0.209968));
line((0.1,0.209968), (0,0.209968));
line((0.05,0.209968), (0.05,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.1);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.05), (0.123365,0.05));
line((0.209968,0.05), (0.123365,0));
line((0.123365,0), (0.123365,0.1));
line((0.123365,0.1), (0.209968,0.05));
line((0.184968,0), (0.209968,0));
line((0.209968,0), (0.209968,0.1));
line((0.209968,0.1), (0.234968,0.1));
line((0.209968,0.05), (0.333333,0.05));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.1,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.05,0.333333), (0.05,0.209968));
line((0.05,0.123365), (0,0.209968));
line((0,0.209968), (0.1,0.209968));
line((0.1,0.209968), (0.05,0.123365));
line((0,0.148365), (0,0.123365));
line((0,0.123365), (0.1,0.123365));
line((0.1,0.123365), (0.1,0.098365));
line((0.05,0.123365), (0.05,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.1);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.05), (0.209968,0.05));
line((0.123365,0.05), (0.209968,0.1));
line((0.209968,0.1), (0.209968,0));
line((0.209968,0), (0.123365,0.05));
line((0.148365,0.1), (0.123365,0.1));
line((0.123365,0.1), (0.123365,0));
line((0.123365,0), (0.098365,0));
line((0.123365,0.05), (0,0.05));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.1,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.05,0), (0.05,0.123365));
line((0.05,0.209968), (0.1,0.123365));
line((0.1,0.123365), (0,0.123365));
line((0,0.123365), (0.05,0.209968));
line((0.1,0.184968), (0.1,0.209968));
line((0.1,0.209968), (0,0.209968));
line((0,0.209968), (0,0.234968));
line((0.05,0.209968), (0.05,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.1);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.05), (0.080064,0.05));
line((0.166667,0.05), (0.080064,0));
line((0.080064,0), (0.080064,0.1));
line((0.080064,0.1), (0.166667,0.05));
line((0.166667,0.05), (0.253269,0.1));
line((0.253269,0.1), (0.253269,0));
line((0.253269,0), (0.166667,0.05));
line((0.141667,0), (0.166667,0));
line((0.166667,0), (0.166667,0.1));
line((0.166667,0.1), (0.191667,0.1));
line((0.253269,0.05), (0.333333,0.05));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.1,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.05,0.333333), (0.05,0.253269));
line((0.05,0.166667), (0,0.253269));
line((0,0.253269), (0.1,0.253269));
line((0.1,0.253269), (0.05,0.166667));
line((0.05,0.166667), (0.1,0.080064));
line((0.1,0.080064), (0,0.080064));
line((0,0.080064), (0.05,0.166667));
line((0,0.191667), (0,0.166667));
line((0,0.166667), (0.1,0.166667));
line((0.1,0.166667), (0.1,0.141667));
line((0.05,0.080064), (0.05,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.125);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.0625), (0.127604,0.0625));
line((0.127604,0.020833), (0.127604,0.104167));
line((0.145833,0.0625), (0.145833,0.125));
line((0.145833,0.125), (0.1875,0.125));
line((0.1875,0.125), (0.1875,0));
line((0.1875,0), (0.145833,0));
line((0.145833,0), (0.145833,0.0625));
line((0.205729,0.020833), (0.205729,0.104167));
line((0.205729,0.0625), (0.333333,0.0625));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.125,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.0625,0.333333), (0.0625,0.205729));
line((0.020833,0.205729), (0.104167,0.205729));
line((0.0625,0.1875), (0.125,0.1875));
line((0.125,0.1875), (0.125,0.145833));
line((0.125,0.145833), (0,0.145833));
line((0,0.145833), (0,0.1875));
line((0,0.1875), (0.0625,0.1875));
line((0.020833,0.127604), (0.104167,0.127604));
line((0.0625,0.127604), (0.0625,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.125), (0.041667,0.125));
circle((0.166667,0.125), 0.125);
line((0.291667,0.125), (0.333333,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.25,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.125,0), (0.125,0.041667));
circle((0.125,0.166667), 0.125);
line((0.125,0.291667), (0.125,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.166667,0,0.083333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arcth((0.041667,0.041667), 180, 0, 0.041667);
arcth((0.125,0.041667), 180, 360, 0.041667);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.15), (0.016667,0.15));
line((0.016667,0.15), (0.166667,0.3));
line((0.166667,0.3), (0.316667,0.15));
line((0.016667,0.15), (0.166667,0));
line((0.166667,0), (0.316667,0.15));
line((0.316667,0.15), (0.333333,0.15));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.15,0), (0.15,0.016667));
line((0.15,0.016667), (0,0.166667));
line((0,0.166667), (0.15,0.316667));
line((0.15,0.016667), (0.3,0.166667));
line((0.3,0.166667), (0.15,0.316667));
line((0.15,0.316667), (0.15,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.1875,0,0.027778);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arrow((0,0.013889), (0.1875,0.013889),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.027778,0,0.1875);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arrow((0.013889,0.1875), (0.013889,0),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.1875,0,0.027778);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arrow((0.1875,0.013889), (0,0.013889),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.027778,0,0.1875);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arrow((0.013889,0), (0.013889,0.1875),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.132583,0,0.132583);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arrow((0,0), (0.132583,0.132583),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.132583,0,0.132583);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arrow((0.132583,0), (0,0.132583),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.132583,0,0.132583);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arrow((0.132583,0.132583), (0,0),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.132583,0,0.132583);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
arrow((0,0.132583), (0.132583,0),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.125), (0.145833,0.125));
line((0.145833,0.1875), (0.145833,0.0625));
line((0.1875,0.25), (0.1875,0));
line((0.1875,0.125), (0.333333,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.25,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.125,0.333333), (0.125,0.1875));
line((0.1875,0.1875), (0.0625,0.1875));
line((0.25,0.145833), (0,0.145833));
line((0.125,0.145833), (0.125,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.125), (0.1875,0.125));
line((0.1875,0.0625), (0.1875,0.1875));
line((0.145833,0), (0.145833,0.25));
line((0.145833,0.125), (0,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.25,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.125,0), (0.125,0.145833));
line((0.0625,0.145833), (0.1875,0.145833));
line((0,0.1875), (0.25,0.1875));
line((0.125,0.1875), (0.125,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.125), (0.0625,0.125));
line((0.0625,0.1875), (0.0625,0.0625));
line((0.104167,0.25), (0.104167,0));
line((0.145833,0.1875), (0.145833,0.0625));
line((0.1875,0.25), (0.1875,0));
line((0.229167,0.1875), (0.229167,0.0625));
line((0.270833,0.25), (0.270833,0));
line((0.270833,0.125), (0.333333,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.25,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.125,0.333333), (0.125,0.270833));
line((0.1875,0.270833), (0.0625,0.270833));
line((0.25,0.229167), (0,0.229167));
line((0.1875,0.1875), (0.0625,0.1875));
line((0.25,0.145833), (0,0.145833));
line((0.1875,0.104167), (0.0625,0.104167));
line((0.25,0.0625), (0,0.0625));
line((0.125,0.0625), (0.125,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.125), (0.270833,0.125));
line((0.270833,0.0625), (0.270833,0.1875));
line((0.229167,0), (0.229167,0.25));
line((0.1875,0.0625), (0.1875,0.1875));
line((0.145833,0), (0.145833,0.25));
line((0.104167,0.0625), (0.104167,0.1875));
line((0.0625,0), (0.0625,0.25));
line((0.0625,0.125), (0,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.25,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.125,0), (0.125,0.0625));
line((0.0625,0.0625), (0.1875,0.0625));
line((0,0.104167), (0.25,0.104167));
line((0.0625,0.145833), (0.1875,0.145833));
line((0,0.1875), (0.25,0.1875));
line((0.0625,0.229167), (0.1875,0.229167));
line((0,0.270833), (0.25,0.270833));
line((0.125,0.270833), (0.125,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.1);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.05), (0.041667,0.05));
line((0.041667,0.05), (0.041667,0.1));
line((0.041667,0.1), (0.291667,0.1));
line((0.291667,0.1), (0.291667,0));
line((0.291667,0), (0.041667,0));
line((0.041667,0), (0.041667,0.05));
line((0.291667,0.05), (0.333333,0.05));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.1,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.05,0), (0.05,0.041667));
line((0.05,0.041667), (0,0.041667));
line((0,0.041667), (0,0.291667));
line((0,0.291667), (0.1,0.291667));
line((0.1,0.291667), (0.1,0.041667));
line((0.1,0.041667), (0.05,0.041667));
line((0.05,0.291667), (0.05,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.146706);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.021706), (0.083333,0.021706));
line((0.083333,0.021706), (0.208333,0.146706));
line((0.25,0.021706), (0.333333,0.021706));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.146706,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.021706,0.333333), (0.021706,0.25));
line((0.021706,0.25), (0.146706,0.125));
line((0.021706,0.083333), (0.021706,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.146706);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.125), (0.25,0.125));
line((0.25,0.125), (0.125,0));
line((0.083333,0.125), (0,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.146706,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.125,0), (0.125,0.083333));
line((0.125,0.083333), (0,0.208333));
line((0.125,0.25), (0.125,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.146706);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.021706), (0.083333,0.021706));
line((0.083333,0.021706), (0.208333,0.146706));
arrow((0.156008,0.112881), (0.115686,0.142447),3.0pt);
arcth((-0.022091,-0.045456), 11.25, 53.75, 0.233002);
line((0.25,0.021706), (0.333333,0.021706));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.146706,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.021706,0.333333), (0.021706,0.25));
line((0.021706,0.25), (0.146706,0.125));
arrow((0.112881,0.177325), (0.142447,0.217648),3.0pt);
arcth((-0.045456,0.355424), -78.75, -36.25, 0.233002);
line((0.021706,0.083333), (0.021706,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.146706);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.125), (0.25,0.125));
line((0.25,0.125), (0.125,0));
arrow((0.177325,0.033825), (0.217648,0.004259),3.0pt);
arcth((0.355424,0.192162), -168.75, -126.25, 0.233002);
line((0.083333,0.125), (0,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.146706,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.125,0), (0.125,0.083333));
line((0.125,0.083333), (0,0.208333));
arrow((0.033825,0.156008), (0.004259,0.115686),3.0pt);
arcth((0.192162,-0.022091), 101.25, 143.75, 0.233002);
line((0.125,0.25), (0.125,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.157352);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.032352), (0.083333,0.032352));
line((0.083333,0.032352), (0.208333,0.157352));
arrow((0.200804,0.049893), (0.204074,0),3.0pt);
arcth((-0.032152,-0.015483), 3.75, 41.25, 0.236733);
line((0.25,0.032352), (0.333333,0.032352));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.157352,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.032352,0.333333), (0.032352,0.25));
line((0.032352,0.25), (0.157352,0.125));
arrow((0.049893,0.132529), (0,0.129259),3.0pt);
arcth((-0.015483,0.365485), -86.25, -48.75, 0.236733);
line((0.032352,0.083333), (0.032352,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.157352);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.125), (0.25,0.125));
line((0.25,0.125), (0.125,0));
arrow((0.132529,0.107459), (0.129259,0.157352),3.0pt);
arcth((0.365485,0.172835), -176.25, -138.75, 0.236733);
line((0.083333,0.125), (0,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.157352,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.125,0), (0.125,0.083333));
line((0.125,0.083333), (0,0.208333));
arrow((0.107459,0.200804), (0.157352,0.204074),3.0pt);
arcth((0.172835,-0.032152), 93.75, 131.25, 0.236733);
line((0.125,0.25), (0.125,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.625,0,0.5);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.25), (0.125,0.25));
line((0.625,0.25), (0.125,0));
line((0.125,0), (0.125,0.5));
line((0.125,0.5), (0.625,0.25));
line((0.625,0.25), (0.625,0.25));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.5,0,0.625);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.25,0.625), (0.25,0.5));
line((0.25,0), (0,0.5));
line((0,0.5), (0.5,0.5));
line((0.5,0.5), (0.25,0));
line((0.25,0), (0.25,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.625,0,0.5);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.625,0.25), (0.5,0.25));
line((0,0.25), (0.5,0.5));
line((0.5,0.5), (0.5,0));
line((0.5,0), (0,0.25));
line((0,0.25), (0,0.25));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.5,0,0.625);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.25,0), (0.25,0.125));
line((0.25,0.625), (0.5,0.125));
line((0.5,0.125), (0,0.125));
line((0,0.125), (0.25,0.625));
line((0.25,0.625), (0.25,0.625));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.35);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.175), (0.020833,0.175));
line((0.1375,0), (0.020833,0));
line((0.020833,0), (0.020833,0.35));
line((0.020833,0.35), (0.1375,0.35));
arcth((0.1375,0.175), 90, -90, 0.175);
line((0.3125,0.175), (0.333333,0.175));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.175,0.333333), (0.175,0.3125));
line((0,0.195833), (0,0.3125));
line((0,0.3125), (0.35,0.3125));
line((0.35,0.3125), (0.35,0.195833));
arcth((0.175,0.195833), 0, -180, 0.175);
line((0.175,0.020833), (0.175,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.35);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.333333,0.175), (0.3125,0.175));
line((0.195833,0.35), (0.3125,0.35));
line((0.3125,0.35), (0.3125,0));
line((0.3125,0), (0.195833,0));
arcth((0.195833,0.175), -90, -270, 0.175);
line((0.020833,0.175), (0,0.175));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.175,0), (0.175,0.020833));
line((0.35,0.1375), (0.35,0.020833));
line((0.35,0.020833), (0,0.020833));
line((0,0.020833), (0,0.1375));
arcth((0.175,0.1375), 180, 0, 0.175);
line((0.175,0.3125), (0.175,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.166667,0,0.041667);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.041667), (0.166667,0.041667));
line((0.027778,0.020833), (0.138889,0.020833));
line((0.047619,0), (0.119048,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.166667,0,0.166667);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.083333,0.166667), (0.083333,0.041667));
line((0,0.041667), (0.166667,0.041667));
line((0.027778,0.020833), (0.138889,0.020833));
line((0.047619,0), (0.119048,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.208333,0,0.333333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.333333), (0,0.291667));
arcth((0,0.260417), 90, -90, 0.03125);
arcth((0,0.197917), 90, -90, 0.03125);
arcth((0,0.135417), 90, -90, 0.03125);
arcth((0,0.072917), 90, -90, 0.03125);
line((0,0.041667), (0,0));
line((0.072917,0.291667), (0.072917,0.041667));
line((0.135417,0.291667), (0.135417,0.041667));
line((0.208333,0), (0.208333,0.041667));
arcth((0.208333,0.072917), -90, -270, 0.03125);
arcth((0.208333,0.135417), -90, -270, 0.03125);
arcth((0.208333,0.197917), -90, -270, 0.03125);
arcth((0.208333,0.260417), -90, -270, 0.03125);
line((0.208333,0.291667), (0.208333,0.333333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.333333,0,0.208333);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0), (0.041667,0));
arcth((0.072917,0), 180, 0, 0.03125);
arcth((0.135417,0), 180, 0, 0.03125);
arcth((0.197917,0), 180, 0, 0.03125);
arcth((0.260417,0), 180, 0, 0.03125);
line((0.291667,0), (0.333333,0));
line((0.041667,0.072917), (0.291667,0.072917));
line((0.041667,0.135417), (0.291667,0.135417));
line((0.333333,0.208333), (0.291667,0.208333));
arcth((0.260417,0.208333), 0, -180, 0.03125);
arcth((0.197917,0.208333), 0, -180, 0.03125);
arcth((0.135417,0.208333), 0, -180, 0.03125);
arcth((0.072917,0.208333), 0, -180, 0.03125);
line((0.041667,0.208333), (0,0.208333));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.325,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.325,0), (0.125,0.09));
arrow((0.125,0.09), (0.275,0.0225),3.0pt);
line((0.125,0.05), (0.125,0.25));
line((0.125,0.21), (0.325,0.3));
line((0,0.15), (0.125,0.15));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.325);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.3,0.325), (0.21,0.125));
arrow((0.21,0.125), (0.2775,0.275),3.0pt);
line((0.25,0.125), (0.05,0.125));
line((0.09,0.125), (0,0.325));
line((0.15,0), (0.15,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.325,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0), (0.2,0.09));
arrow((0.2,0.09), (0.05,0.0225),3.0pt);
line((0.2,0.05), (0.2,0.25));
line((0.2,0.21), (0,0.3));
line((0.325,0.15), (0.2,0.15));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.325);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.325), (0.09,0.125));
arrow((0.09,0.125), (0.0225,0.275),3.0pt);
line((0.05,0.125), (0.25,0.125));
line((0.21,0.125), (0.3,0.325));
line((0.15,0), (0.15,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.325,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.325,0), (0.125,0.09));
arrow((0.325,0), (0.175,0.0675),3.0pt);
line((0.125,0.05), (0.125,0.25));
line((0.125,0.21), (0.325,0.3));
line((0,0.15), (0.125,0.15));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.325);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.3,0.325), (0.21,0.125));
arrow((0.3,0.325), (0.2325,0.175),3.0pt);
line((0.25,0.125), (0.05,0.125));
line((0.09,0.125), (0,0.325));
line((0.15,0), (0.15,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.325,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0), (0.2,0.09));
arrow((0,0), (0.15,0.0675),3.0pt);
line((0.2,0.05), (0.2,0.25));
line((0.2,0.21), (0,0.3));
line((0.325,0.15), (0.2,0.15));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.325);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.325), (0.09,0.125));
arrow((0,0.325), (0.0675,0.175),3.0pt);
line((0.05,0.125), (0.25,0.125));
line((0.21,0.125), (0.3,0.325));
line((0.15,0), (0.15,0.125));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.4,0,0.4);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
circle((0.2,0.2), 0.2);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.35,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.25));
line((0.175,0.225), (0.35,0.225));
line((0,0.025), (0.175,0.025));
arrow((0,0.025), (0.153125,0.025),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.25));
line((0.175,0.225), (0,0.225));
line((0.35,0.025), (0.175,0.025));
arrow((0.35,0.025), (0.196875,0.025),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.35,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.25));
line((0.175,0.225), (0.35,0.225));
line((0,0.025), (0.175,0.025));
arrow((0.175,0.025), (0.021875,0.025),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.25));
line((0.175,0.225), (0,0.225));
line((0.35,0.025), (0.175,0.025));
arrow((0.175,0.025), (0.328125,0.025),3.0pt);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.35,0.025), (0.35,0.125));
line((0.35,0.125), (0.175,0.125));
arrow((0.35,0.125), (0.21,0.125),3.0pt);
line((0.35,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.075));
line((0.175,0.1), (0.175,0.15));
line((0.175,0.175), (0.175,0.25));
line((0.175,0.225), (0.35,0.225));
line((0,0.025), (0.125,0.025));
line((0.125,0.025), (0.125,0.225));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.025), (0,0.125));
line((0,0.125), (0.175,0.125));
arrow((0,0.125), (0.14,0.125),3.0pt);
line((0,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.075));
line((0.175,0.1), (0.175,0.15));
line((0.175,0.175), (0.175,0.25));
line((0.175,0.225), (0,0.225));
line((0.35,0.025), (0.225,0.025));
line((0.225,0.025), (0.225,0.225));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.35,0.025), (0.35,0.125));
line((0.35,0.125), (0.175,0.125));
arrow((0.175,0.125), (0.315,0.125),3.0pt);
line((0.35,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.075));
line((0.175,0.1), (0.175,0.15));
line((0.175,0.175), (0.175,0.25));
line((0.175,0.225), (0.35,0.225));
line((0,0.025), (0.125,0.025));
line((0.125,0.025), (0.125,0.225));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.025), (0,0.125));
line((0,0.125), (0.175,0.125));
arrow((0.175,0.125), (0.035,0.125),3.0pt);
line((0,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.075));
line((0.175,0.1), (0.175,0.15));
line((0.175,0.175), (0.175,0.25));
line((0.175,0.225), (0,0.225));
line((0.35,0.025), (0.225,0.025));
line((0.225,0.025), (0.225,0.225));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.35,0.025), (0.35,0.125));
line((0.35,0.125), (0.175,0.125));
arrow((0.35,0.125), (0.21,0.125),3.0pt);
line((0.35,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.25));
line((0.175,0.225), (0.35,0.225));
line((0,0.025), (0.125,0.025));
line((0.125,0.025), (0.125,0.225));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.025), (0,0.125));
line((0,0.125), (0.175,0.125));
arrow((0,0.125), (0.14,0.125),3.0pt);
line((0,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.25));
line((0.175,0.225), (0,0.225));
line((0.35,0.025), (0.225,0.025));
line((0.225,0.025), (0.225,0.225));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.35,0.025), (0.35,0.125));
line((0.35,0.125), (0.175,0.125));
arrow((0.175,0.125), (0.315,0.125),3.0pt);
line((0.35,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.25));
line((0.175,0.225), (0.35,0.225));
line((0,0.025), (0.125,0.025));
line((0.125,0.025), (0.125,0.225));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.025), (0,0.125));
line((0,0.125), (0.175,0.125));
arrow((0.175,0.125), (0.035,0.125),3.0pt);
line((0,0.025), (0.175,0.025));
line((0.175,0), (0.175,0.25));
line((0.175,0.225), (0,0.225));
line((0.35,0.025), (0.225,0.025));
line((0.225,0.025), (0.225,0.225));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.2,0), (0,0));
line((0,0), (0,0.3));
line((0,0.3), (0.2,0.3));
arcth((0.2,0.15), 90, -90, 0.15);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.35);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.15), (0,0.35));
line((0,0.35), (0.3,0.35));
line((0.3,0.35), (0.3,0.15));
arcth((0.15,0.15), 0, -180, 0.15);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.15,0.3), (0.35,0.3));
line((0.35,0.3), (0.35,0));
line((0.35,0), (0.15,0));
arcth((0.15,0.15), -90, -270, 0.15);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.35);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.3,0.2), (0.3,0));
line((0.3,0), (0,0));
line((0,0), (0,0.2));
arcth((0.15,0.2), 180, 0, 0.15);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.116667,0.3), (0,0.3));
arcth((-0.316228,0.15), 25.376934, -25.376934, 0.35);
line((0,0), (0.116667,0));
arcth((0.116667,0.043519), 90, 24.529547, 0.256481);
arcth((0.116667,0.256481), -90, -24.529547, 0.256481);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.35);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.3,0.233333), (0.3,0.35));
arcth((0.15,0.666228), -64.623066, -115.376934, 0.35);
line((0,0.35), (0,0.233333));
arcth((0.043519,0.233333), 0, -65.470453, 0.256481);
arcth((0.256481,0.233333), -180, -114.529547, 0.256481);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.35,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.233333,0), (0.35,0));
arcth((0.666228,0.15), -154.623066, -205.376934, 0.35);
line((0.35,0.3), (0.233333,0.3));
arcth((0.233333,0.256481), -90, -155.470453, 0.256481);
arcth((0.233333,0.043519), 90, 155.470453, 0.256481);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.35);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.116667), (0,0));
arcth((0.15,-0.316228), 115.376934, 64.623066, 0.35);
line((0.3,0), (0.3,0.116667));
arcth((0.256481,0.116667), 180, 114.529547, 0.256481);
arcth((0.043519,0.116667), 0, 65.470453, 0.256481);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.175,0,0.2);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.175,0.1), (0,0));
line((0,0), (0,0.2));
line((0,0.2), (0.175,0.1));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.2,0,0.175);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.1,0), (0,0.175));
line((0,0.175), (0.2,0.175));
line((0.2,0.175), (0.1,0));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.175,0,0.2);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.1), (0.175,0.2));
line((0.175,0.2), (0.175,0));
line((0.175,0), (0,0.1));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.2,0,0.175);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.1,0.175), (0.2,0));
line((0.2,0), (0,0));
line((0,0), (0.1,0.175));
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.425,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.2,0), (0,0));
line((0,0), (0,0.3));
line((0,0.3), (0.2,0.3));
arcth((0.2,0.15), 90, -90, 0.15);
circle((0.3875,0.15), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.425);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.225), (0,0.425));
line((0,0.425), (0.3,0.425));
line((0.3,0.425), (0.3,0.225));
arcth((0.15,0.225), 0, -180, 0.15);
circle((0.15,0.0375), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.425,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.225,0.3), (0.425,0.3));
line((0.425,0.3), (0.425,0));
line((0.425,0), (0.225,0));
arcth((0.225,0.15), -90, -270, 0.15);
circle((0.0375,0.15), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.425);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.3,0.2), (0.3,0));
line((0.3,0), (0,0));
line((0,0), (0,0.2));
arcth((0.15,0.2), 180, 0, 0.15);
circle((0.15,0.3875), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.425,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.116667,0.3), (0,0.3));
arcth((-0.316228,0.15), 25.376934, -25.376934, 0.35);
line((0,0), (0.116667,0));
arcth((0.116667,0.043519), 90, 24.529547, 0.256481);
arcth((0.116667,0.256481), -90, -24.529547, 0.256481);
circle((0.3875,0.15), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.425);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.3,0.308333), (0.3,0.425));
arcth((0.15,0.741228), -64.623066, -115.376934, 0.35);
line((0,0.425), (0,0.308333));
arcth((0.043519,0.308333), 0, -65.470453, 0.256481);
arcth((0.256481,0.308333), -180, -114.529547, 0.256481);
circle((0.15,0.0375), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.425,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.308333,0), (0.425,0));
arcth((0.741228,0.15), -154.623066, -205.376934, 0.35);
line((0.425,0.3), (0.308333,0.3));
arcth((0.308333,0.256481), -90, -155.470453, 0.256481);
arcth((0.308333,0.043519), 90, 155.470453, 0.256481);
circle((0.0375,0.15), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.425);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.116667), (0,0));
arcth((0.15,-0.316228), 115.376934, 64.623066, 0.35);
line((0.3,0), (0.3,0.116667));
arcth((0.256481,0.116667), 180, 114.529547, 0.256481);
arcth((0.043519,0.116667), 0, 65.470453, 0.256481);
circle((0.15,0.3875), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.4,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.166667,0.3), (0.05,0.3));
arcth((-0.266228,0.15), 25.376934, -25.376934, 0.35);
line((0.05,0), (0.166667,0));
arcth((0.166667,0.043519), 90, 24.529547, 0.256481);
arcth((0.166667,0.256481), -90, -24.529547, 0.256481);
arcth((-0.316228,0.15), 25.376934, -25.376934, 0.35);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.4);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.3,0.233333), (0.3,0.35));
arcth((0.15,0.666228), -64.623066, -115.376934, 0.35);
line((0,0.35), (0,0.233333));
arcth((0.043519,0.233333), 0, -65.470453, 0.256481);
arcth((0.256481,0.233333), -180, -114.529547, 0.256481);
arcth((0.15,0.716228), -64.623066, -115.376934, 0.35);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.4,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.233333,0), (0.35,0));
arcth((0.666228,0.15), -154.623066, -205.376934, 0.35);
line((0.35,0.3), (0.233333,0.3));
arcth((0.233333,0.256481), -90, -155.470453, 0.256481);
arcth((0.233333,0.043519), 90, 155.470453, 0.256481);
arcth((0.716228,0.15), -154.623066, -205.376934, 0.35);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.4);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.166667), (0,0.05));
arcth((0.15,-0.266228), 115.376934, 64.623066, 0.35);
line((0.3,0.05), (0.3,0.166667));
arcth((0.256481,0.166667), 180, 114.529547, 0.256481);
arcth((0.043519,0.166667), 0, 65.470453, 0.256481);
arcth((0.15,-0.316228), 115.376934, 64.623066, 0.35);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.475,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.166667,0.3), (0.05,0.3));
arcth((-0.266228,0.15), 25.376934, -25.376934, 0.35);
line((0.05,0), (0.166667,0));
arcth((0.166667,0.043519), 90, 24.529547, 0.256481);
arcth((0.166667,0.256481), -90, -24.529547, 0.256481);
arcth((-0.316228,0.15), 25.376934, -25.376934, 0.35);
circle((0.4375,0.15), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.475);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.3,0.308333), (0.3,0.425));
arcth((0.15,0.741228), -64.623066, -115.376934, 0.35);
line((0,0.425), (0,0.308333));
arcth((0.043519,0.308333), 0, -65.470453, 0.256481);
arcth((0.256481,0.308333), -180, -114.529547, 0.256481);
arcth((0.15,0.791228), -64.623066, -115.376934, 0.35);
circle((0.15,0.0375), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.475,0,0.3);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.308333,0), (0.425,0));
arcth((0.741228,0.15), -154.623066, -205.376934, 0.35);
line((0.425,0.3), (0.308333,0.3));
arcth((0.308333,0.256481), -90, -155.470453, 0.256481);
arcth((0.308333,0.043519), 90, 155.470453, 0.256481);
arcth((0.791228,0.15), -154.623066, -205.376934, 0.35);
circle((0.0375,0.15), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.3,0,0.475);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0,0.166667), (0,0.05));
arcth((0.15,-0.266228), 115.376934, 64.623066, 0.35);
line((0.3,0.05), (0.3,0.166667));
arcth((0.256481,0.166667), 180, 114.529547, 0.256481);
arcth((0.043519,0.166667), 0, 65.470453, 0.256481);
arcth((0.15,-0.316228), 115.376934, 64.623066, 0.35);
circle((0.15,0.4375), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.25,0,0.2);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.175,0.1), (0,0));
line((0,0), (0,0.2));
line((0,0.2), (0.175,0.1));
circle((0.2125,0.1), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.2,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.1,0.075), (0,0.25));
line((0,0.25), (0.2,0.25));
line((0.2,0.25), (0.1,0.075));
circle((0.1,0.0375), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.25,0,0.2);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.075,0.1), (0.25,0.2));
line((0.25,0.2), (0.25,0));
line((0.25,0), (0.075,0.1));
circle((0.0375,0.1), 0.0375);
endchar;
xscale:=72.27; yscale:=72.27; bounds(0,0.2,0,0.25);
beginchar(incr code,xscale*(xpos-xneg)*pt\#,yscale*(ypos-yneg)*pt\#,0);
setztr;
pickup pencircle scaled penwd;
interim hdwdr:=0.75; interim hdten:=infinity;
line((0.1,0.175), (0.2,0));
line((0.2,0), (0,0));
line((0,0), (0.1,0.175));
circle((0.1,0.2125), 0.0375);
endchar;
endmfpicenv;
end.