%
% fig2dev (version 3.2.4-beta1) -L (m)mp version 0.06 --- Preamble
%

%
% mp output driver options:
%  -L mp
%

% +MP-ADDITIONAL-HEADER
verbatimtex
%&latex
\documentclass{article}
\begin{document}
etex
% -MP-ADDITIONAL-HEADER


%SetFigFont macros for latex
verbatimtex
%
\begingroup\makeatletter\ifx\SetFigFont\undefined%
\gdef\SetFigFont#1#2#3#4#5{%
  \reset@font\fontsize{#1}{#2pt}%
  \fontfamily{#3}\fontseries{#4}\fontshape{#5}%
  \selectfont}%
\fi\endgroup%
\ifx\SetFigFontSize\undefined%
\gdef\SetFigFontSize#1#2{%
  \fontsize{#1}{#2pt}%
  \selectfont}%
\fi%
etex

% Make arrowheads mitered by default
% NOTE: subject to change (edited from plain.mp)
    def forwarr(text t) expr p =
      _apth:=p;_finarrf(t)
    enddef;
    def backarr(text t) expr p =
      _apth:=p;_finarrb(t)
    enddef;
    def _finarrf(text s) text t =
      if (s=0):fill arrowhead _apth  t withcolor white
      else: fill arrowhead _apth  t fi;
      linejoin:=0;
      draw arrowhead _apth  t
    enddef;
    def _finarrb(text s) text t =
      if (s=0):fill arrowhead reverse _apth  t withcolor white
      else: fill arrowhead reverse _apth  t fi;
      linejoin:=0;
      draw arrowhead reverse _apth  t
    enddef;


% Now draw the figure
beginfig(0)
% Some reasonable defaults
  ahlength:=7;
  ahangle:=30;
  labeloffset:=0;
  truecorners:=1;
  bboxmargin:=0;
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (135.00,738.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((135.00,735.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (135.00,756.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((135.00,753.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (90.00,693.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((90.00,690.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (72.00,693.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((72.00,690.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (153.00,711.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((153.00,708.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.00 yscaled 1.00
         rotated 0.00 shifted (117.00,711.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((117.00,708.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.00 yscaled 1.00
         rotated 0.00 shifted (117.00,693.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((117.00,690.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (135.00,711.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((135.00,708.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.00 yscaled 1.00
         rotated 0.00 shifted (135.00,693.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((135.00,690.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (153.00,693.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((153.00,690.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (153.00,738.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((153.00,735.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (153.00,756.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((153.00,753.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.00 yscaled 1.00
         rotated 0.00 shifted (117.00,738.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((117.00,735.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.00 yscaled 1.00
         rotated 0.00 shifted (117.00,756.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((117.00,753.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (90.00,711.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((90.00,708.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 12.72 yscaled 1.00
         rotated 0.00 shifted (72.00,711.00);
  draw c withcolor (0.00,0.69,0.00);
% End ellipse object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $*$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((72.00,708.30))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 10.80 yscaled 1.00
         rotated 0.00 shifted (72.00,711.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 10.80 yscaled 1.00
         rotated 0.00 shifted (90.00,711.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 10.80 yscaled 1.00
         rotated 0.00 shifted (90.00,693.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 10.80 yscaled 1.00
         rotated 0.00 shifted (72.00,693.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 10.80 yscaled 1.00
         rotated 0.00 shifted (135.00,738.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin ellipse object
  pickup pencircle scaled 0.90;
  path c;
  c = fullcircle scaled 10.80 yscaled 1.00
         rotated 0.00 shifted (135.00,756.00);
  draw c withcolor (0.00,0.00,0.69);
% End ellipse object
% Begin polyline object
  linecap:=0;
  linejoin:=0;
  pickup pencircle scaled 0.90;
  path p;
  p = (58.50, 724.50)
    --(103.50, 724.50)
    --(103.50, 679.50)
    --(58.50, 679.50)
    --(58.50, 724.50)--cycle;
  draw p withcolor (0.00,0.00,0.00);
% End polyline object
% Begin polyline object
  linecap:=0;
  linejoin:=0;
  pickup pencircle scaled 0.90;
  path p;
  p = (103.50, 679.50)
    --(166.50, 679.50)
    --(166.50, 724.50)
    --(103.50, 724.50)
    --(103.50, 679.50)--cycle;
  draw p withcolor (0.00,0.00,0.00);
% End polyline object
% Begin polyline object
  linecap:=0;
  linejoin:=0;
  pickup pencircle scaled 0.90;
  path p;
  p = (166.50, 724.50)
    --(103.50, 724.50)
    --(103.50, 769.50)
    --(166.50, 769.50)
    --(166.50, 724.50)--cycle;
  draw p withcolor (0.00,0.00,0.00);
% End polyline object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $A$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((54.00,702.00))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $C$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((171.00,702.00))+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt $B$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((99.00,742.50))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)+llcorner p) withcolor (0.00,0.00,0.00);
% End text object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt using algorithm $A_2$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((112.50,639.00))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.69,0.00);
% End text object
% Begin text object
  picture q;
  verbatimtex
   \def\mpsetfnt{%
       \SetFigFontSize{10}{13.0}%
    }%
  etex;
  q = btex \mpsetfnt using algorithm $A_1$ etex;
  picture p;
  p = q rotated 0.00;
  label.urt(p,((112.50,657.00))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.69);
% End text object
endfig;
end