% boites_examples.sty
% (c) 2001 Vincent Zoonekynd <zoonek@math.jussieu.fr>
% distributed under the GNU Public Licence

\ProvidesFile{boites_exemples.sty}
\ProvidesPackage{boites_exemples}
\RequirePackage{boites}

%% Première modification

\def\boiteepaisseavecuntitre#1{%
  \def\thickhrulefill{\leavevmode \leaders \hrule height 1pt \hfill \kern \z@}%
  \def\bkvz@before@breakbox{\ifhmode\par\fi\vskip\breakboxskip\relax}%
  \fboxrule=2pt
  \def\bkvz@set@linewidth{\advance\linewidth -2\fboxrule
                          \advance\linewidth -2\fboxsep}%
  \def\bkvz@left{\vrule \@width\fboxrule\hskip\fboxsep}%
  \def\bkvz@right{\hskip\fboxsep\vrule \@width\fboxrule}%
  \def\bkvz@top{\hbox to \hsize{%
      \vrule\@width\fboxrule\@height 1.2pt %%% D'où vient ce 0.2pt ????
      \thickhrulefill{#1}\thickhrulefill
      \vrule\@width\fboxrule\@height 1.2pt}}%
  \def\bkvz@bottom{\hrule\@height\fboxrule}%
  \breakbox}
\def\endboiteepaisseavecuntitre{\endbreakbox}

%% Seconde modification
\def\boitenumeroteeavecunedoublebarre#1{%
  %\fboxrule=0.4pt
  \def\bkvz@before@breakbox{\ifhmode\par\fi\vskip\breakboxskip\relax}%
  \def\bkvz@set@linewidth{\advance\linewidth -2\fboxrule 
    \advance\linewidth -2\fboxsep
    \advance\linewidth -2cm}%
  \def\bkvz@left{\hspace{2cm}%
    \ifnum\bk@lcnt=1\llap{\textbf{#1}\quad}\fi
    \vrule \@width\fboxrule\hskip\fboxsep
    \vrule \@width\fboxrule\hskip\fboxsep}%
  \def\bkvz@right{}%
  \def\bkvz@top{}%
  \def\bkvz@bottom{}%
  \breakbox
}
\def\endboitenumeroteeavecunedoublebarre{\endbreakbox}

%% Troisième modification
  \newdimen\bk@hauteurcourrante
  \newdimen\bk@hauteursuivante
  \newdimen\bk@tempdim
\def\boiteavecunelignequiondulesurlecote{%
  \def\bk@espace{ }%
  \def\pt@to@bp##1{##1=.99627393548##1}% 1bp=1.00374pt
  \def\bkvz@before@breakbox{\ifhmode\par\fi\vskip\breakboxskip\bk@hauteurcourrante=1200bp}%
  \def\bkvz@set@linewidth{\advance\linewidth -15bp}%
  \def\bkvz@left{\global\bk@hauteursuivante=\bk@hauteurcourrante
    \global\advance\bk@hauteursuivante by -\dp\bk@bxa
    \global\advance\bk@hauteursuivante by -\ht\bk@bxa
    \edef\bk@arguments@graphicx{[bb = 0 }%
    \bk@tempdim=\bk@hauteurcourrante
    \pt@to@bp\bk@tempdim
    \edef\bk@arguments@graphicx{%
      \bk@arguments@graphicx\strip@pt\bk@tempdim\bk@espace}%
    \bk@tempdim=\bk@hauteursuivante
    \pt@to@bp\bk@tempdim
    \edef\bk@arguments@graphicx{%
      \bk@arguments@graphicx 15
      \strip@pt\bk@tempdim\bk@espace,
      clip=true
      ]}%
    %\show\bk@arguments@graphicx
    \smash{\raisebox{\the\ht\bk@bxa}{%
        \expandafter\includegraphics\bk@arguments@graphicx
        {ligne_qui_ondule_sur_la_gauche.eps}}}%
    \global\bk@hauteurcourrante=\bk@hauteursuivante
    }%
  \let\bkvz@right\relax
  \let\bkvz@top\relax
  \let\bkvz@bottom\relax
  \breakbox}
\def\endboiteavecunelignequiondulesurlecote{\endbreakbox}

%% Quatrième modification
\RequirePackage{color}
\newlength\bk@fboxsep
\definecolor{gris}{gray}{0.9}
\def\boitecoloriee{%
  \bk@fboxsep\fboxsep
  \def\bkvz@before@breakbox{\ifhmode\par\fi\vskip\breakboxskip\relax}%
  \def\bkvz@set@linewidth{%
    \advance\linewidth -2\fboxrule 
    \advance\linewidth -2\fboxsep
  }%
  \def\bk@line{%
    \hbox to \linewidth{%
      \ifbkcount\smash{\llap{\the\bk@lcnt\ }}\fi
      \vrule\@width\fboxrule
      {\fboxsep\z@
       \colorbox{gris}{%
         \hskip\bk@fboxsep
         \box\bk@bxa
         \hskip\bk@fboxsep
       }%
      }%
      \vrule\@width\fboxrule
    }%
  }%
  %\def\bkvz@top{\hrule\@height\fboxrule} 
  \def\bkvz@top{\hrule height .6pt}%%% Pourquoi faut-il ajouter 0.2pt ???
  \def\bkvz@bottom{\hrule\@height\fboxrule}%
  \breakbox
}%
\def\endboitecoloriee{\endbreakbox}


\endinput
