\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{macrosdiverses}[2005/06/24]

%\RequirePackage[psamsfonts]{amsfonts}
\RequirePackage{graphicx}
\RequirePackage{calc}
\RequirePackage{ifthen}
%\RequirePackage[all]{xy}
\RequirePackage{xcolor}

% Macro a 6 parametres, dont 1 optionnel,
% pour placer l'une au dessus de l'autre deux
% boites, dont l'échelle verticale est donnée.
% parametre optionnel : depth de la boite finale
% parametre 1 : width de la boite finale
% parametre 2 : height de la boite finale
% parametre 3 : contenu boite du dessous
% parametre 4 : contenu boite du dessus
% parametre 5 : entier de 0 à 100 représentant le pourcentage de la boite du dessous en hauteur.
\newcommand{\boitedeuxetages}[6][0pt]{%
\raisebox{0pt}[#3][#1]{%
\makebox[#2][c]{
\ifthenelse{#6 > 1}{%
\raisebox{0pt}[0pt][0pt]{%
\makebox[0pt][c]{\resizebox*{\width}{(\depthof{#4}+\heightof{#4})*#6/100}{#4}}%
\ifthenelse{#6 < 99}{%
\raisebox{(\depthof{#4}+\heightof{#4})*#6/100}[0pt][0pt]{%
\makebox[0pt][c]{\resizebox*{\width}{(\depthof{#5}+\heightof{#5})*(100-#6)/100}{#5}}%
}%
}{}%
}%
}{\raisebox{0pt}[0pt][0pt]{\makebox[0pt][c]{\resizebox*{\width}{\depthof{#5}+\heightof{#5}}{#5}}}%
}%
}}}

% macro pour definir une couleur dans xypic a partir d'une couleur dans xcolor.
% La couleur dans xcolor doit etre definie dans le model rgb.
\def\extractcolorspecxy#1#2{\XC@split{#1}\aftergroupdef#2{\@@clr}}%
\def\@putawaycomma#1,#2,#3{#1 #2 #3}\relax%
\def\createxycolorforcolor#1{%
\extractcolorspecxy{#1}{\@spec}%
\expandafter\edef\csname @spec@#1\endcsname{\expandafter\@putawaycomma\@spec}
\newxyColor{#1}{\csname @spec@#1\endcsname}{rgb}{}\relax
}%
% peut mieux faire ! eviter la premiere def, en utilisant le truc de la seconde def.
% permet ensuite d'extraire le model rgb, cmyk, gray, etc, et de faire des if then pour
% redefinir la couleur...