\setlength{\unitlength}{1mm}


% psplanche: inclut une figure POSTCRIPT en clippant le haut de 2cm
%	arg 1:	numero de la planche: fichier = ps/numero.ps
%	arg 2:  hoffset de la planche (en pts) 
%	arg 3:	by (bottomy) de la planche (en pts)
%	arg 4:  topy de la planche (en pts) 
%	arg 5:  caption
%	arg 6:  additionnal space
%	la planche sera referee par \ref{pl:n}

\newlength{\psplancheheight}
\newcommand{\psplanche}[6]{
\begin{figure}

\setlength{\psplancheheight}{#4pt}
\addtolength{\psplancheheight}{-#3pt}
\vspace{\psplancheheight}

\special{psfile=ps/#1.ps hoffset=#2 voffset=-#3 vsize=#4 hscale=1 vscale=1}

\vspace{#6cm}

\caption{#5}
\label{pl:#1}

\end{figure}
}
