\ProvidesFile{entoure.sty}
\ProvidesPackage{entoure}

\RequirePackage{graphicx}
\RequirePackage{verbatim}
\newcounter{metapost@n}
\setcounter{metapost@n}{0}
\newwrite \metapost@out
\immediate\openout \metapost@out metapost.\jobname.mp
\immediate\write\metapost@out{verbatimtex}
\immediate\write\metapost@out{\string\documentclass[12pt]{article}}
\immediate\write\metapost@out{\string\usepackage[T1]{fontenc}}
\immediate\write\metapost@out{\string\usepackage{textcomp}}
\immediate\write\metapost@out{\string\begin{document}}
\immediate\write\metapost@out{etex}
\immediate\write\metapost@out{u:=1mm;}
\def\entoure#1{%
  \stepcounter{metapost@n}%
  \immediate\write\metapost@out{beginfig(\themetapost@n)}%
  \immediate\write\metapost@out{
  picture mytext;
  mytext = btex #1 etex;
  draw mytext;
  pair A,B,C,D,BC,DA;
  A = ulcorner mytext;
  B = llcorner mytext;
  C = lrcorner mytext;
  D = urcorner mytext;
  BC = 1/2[B,C] - (0pt,u);
  DA = 1/2[D,A] + (0pt,u);
  draw A..B...BC...C..D...DA...cycle
       withpen pencircle scaled 1bp;
  setbounds currentpicture to bbox mytext;
  setbounds currentpicture to A -- (xpart A,0) -- (xpart D,0) -- D -- cycle;
}%
  \immediate\write\metapost@out{endfig;}%
  \IfFileExists{metapost.\jobname.\themetapost@n}%
               {\includegraphics{metapost.\jobname.\themetapost@n}}%
               {#1}%
}
\AtEndDocument{%
  \immediate\write\metapost@out{bye;}%
  \immediate\closeout\metapost@out
  \@latex@warning@no@line{
    You may wish to run
      TEX=latex mpost metapost.\jobname.mp
    and then LaTeX once again.
  }
}