summaryrefslogtreecommitdiff
path: root/info/epslatex/french/hands.sty
blob: e4aa4feb5dda4dc689498362f8c9cde06984408e (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
\ProvidesPackage{hands}[1994/12/08]
\RequirePackage{epsfig}
\AtBeginDocument{\psfull}
% les nouvelles commandes danger avec les mains et l'index pointant.

\def\dangerfont{\footnotesize\sf}
\newlength{\dangerloff}
\setlength{\dangerloff}{\marginparwidth}
\addtolength{\dangerloff}{-10pt}
\newcommand\danger{\marginpar[\raggedleft{\makebox[\marginparwidth][l]{\hspace*{\dangerloff}\epsfig{file=danger}}}]{\raggedright{\makebox[\marginparwidth][l]{\epsfig{file=rdanger}}}}}
\newcommand\Danger{\marginpar[\raggedleft{\makebox[\marginparwidth][l]{\hspace*{\dangerloff}\epsfig{file=Danger}}}]{\raggedright{\makebox[\marginparwidth][l]{\epsfig{file=RDanger}}}}}
\newcommand\ldanger{{\hspace*{-29pt}\epsfig{file=danger}\hspace*{29pt}}}
\newcommand\LDanger{{\hspace*{-29pt}\epsfig{file=Danger}\hspace*{29pt}}}
% \danger place une main blanche dans la marge (note marginale)
% \Danger place une main noire dans la marge   (note marginale)
% \ldanger place une main blanche \`a gauche. Doit \^etre en t\^ete de paragraphe.
% \LDanger place une main noire \`a gauche. Doit \^etre en t\^ete de paragraphe.
% Ces deux derni\`eres commandes sont utiles dans les notes.
\newfont{\manfnt}{manfnt}
\newfont{\Manfnt}{manfnt scaled 1500}
\newcommand\virage{\marginpar[\raggedleft {{\manfnt\symbol{'177}}~~}]{\raggedright {~~\manfnt\symbol{'177}}}}
\newcommand\flower{\marginpar[\raggedleft {\manfnt\symbol{'047}}]{\raggedright {\manfnt\symbol{'047}}}}
\newcommand\icube{\marginpar[\raggedleft {\Manfnt\symbol{'035}}]{\raggedright {\Manfnt\symbol{'035}}}}
\newcommand\Icube{{\Manfnt\symbol{'035}}}
\let\mflower\flower % vieux nom
\def\@Vir{\hbox to12mm{\hbox{}\leaders\hbox{{\manfnt\char127}\kern2pt}\hfil\hbox{}}}
%\newcommand\Virage{\marginpar[\raggedleft {\@Vir}]{\raggedright {\@Vir}}}
\newcommand\Virage{\marginpar[\hfill{\@Vir~~}]{{~~\@Vir}\hfill}}
\def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
%\ifundefined{overlay}\ifcase\@ptsize
%\font\Logo=rgrsc10 scaled 1000
%\or
%\font\Logo=rgrsc10 scaled 1095
%\or
%\font\Logo=rgrsc10 scaled 1200
%\fi
%\else
%\font\Logo=rgrsc10 scaled 2986
%\relax\fi
%%\def\TAO{\hbox{\null\catcode`\^^?=11\Logo\char'177\null}} % et du m\^eme coup !
%\def\MFT{{\Logo\char'030\char'031\char'032\char'033}\-{\Logo\char'040\char'036\char'037\char'032}}
\RequirePackage{mflogo}
\let\MFT\MF\let\MPT\MP
\newenvironment{dangerous}{\par\vspace{5pt}\begin{quotation}
\hspace{-\parindent}%1997/02/04
\parskip=\medskipamount
\interlinepenalty\@M
\postdisplaypenalty\@M
\interdisplaylinepenalty\@M
\@beginparpenalty\@M
\@endparpenalty\@M
\@itempenalty\@M
\@secpenalty\@M
\interfootnotelinepenalty\@M
\reset@font\dangerfont\noindent\virage\ignorespaces}%
			  {\par\end{quotation}\vspace{5pt}}
\newenvironment{Dangerous}{\par\vspace{5pt}\begin{quotation}
\hspace{-\parindent}%1997/02/04
\parskip=\medskipamount
\interlinepenalty\@M
\postdisplaypenalty\@M
\interdisplaylinepenalty\@M
\@beginparpenalty\@M
\@endparpenalty\@M
\@itempenalty\@M
\@secpenalty\@M
\interfootnotelinepenalty\@M
\reset@font\dangerfont\noindent\Virage\ignorespaces}%
			  {\par\end{quotation}\vspace{5pt}}

\newdimen\sv@dgparindent
\def\Dbend{{\manfnt\char127}} % dangerous bend sign
\def\d@nger{\medbreak\let\sv@par\par\sv@dgparindent=\parindent\parindent=18pt\clubpenalty=10000
  %\def\par{\endgraf\relax\medbreak}%
  \def\par{\parindent=\sv@dgparindent\sv@par}
  \noindent\hangindent\parindent\hangafter=-2
  \hbox to0pt{\hskip-\hangindent\Dbend\hfill}%
  \reset@font\dangerfont\ignorespaces}
%\outer\def\idangerous{\d@nger}
\def\dd@nger{\medbreak\let\sv@par\par\sv@dgparindent=\parindent\parindent=18pt\clubpenalty=10000
  %\def\par{\endgraf\medbreak}%
  \def\par{\parindent=\sv@dgparindent\sv@par}
  \noindent\hangindent2\parindent\hangafter=-2
  \hbox to0pt{\hskip-1\hangindent\Dbend\kern1pt\Dbend\hfill}%
  \reset@font\dangerfont\ignorespaces}
%\outer\def\IDangerous{\dd@nger}
%\def\endidangerous{\endgraf\endgroup} % omits the \medbreak
%\let\endIDangerous\endidangerous
\newenvironment{idangerous}{\d@nger}{\endgraf}
\newenvironment{IDangerous}{\dd@nger}{\endgraf}