summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/boites/boites_exemples.sty
blob: 428df5039d6af1397b76df2f0f7af548f0b9f79a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
% 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{pstricks}
\newgray{gris}{0.9}
\def\boitecoloriee{%
  \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
      \psframebox*[framesep=0pt,fillcolor=gris,linewidth=0pt]{%
        \vrule\@width\fboxrule \hskip\fboxsep
        \box\bk@bxa
        \hskip\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