% Author     : C. Pierquet
% licence    : Released under the LaTeX Project Public License v1.3c
% or later, see http://www.latex-project.org/lppl.txtf
% pdf from domain public svg (user frankes in openclipart), see https://openclipart.org/artist/frankes

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{euromoney}[2024/09/07 0.1.1 Insert Euro coins and banknotes]

%------History
% 0.1.1	New filenames, according to TL rules
% 0.1.0	Initial version

%------Packages
\RequirePackage{xstring}
\RequirePackage{simplekv}
\RequirePackage{graphicx}
\RequirePackage{tikz}
\usetikzlibrary{calc}
\RequirePackage{listofitems}

%------Lengths
\newlength{\tmphautmonnaies}
\setlength{\tmphautmonnaies}{1em}
\newlength{\tmpoffsethmonnaies}
\setlength{\tmpoffsethmonnaies}{0pt}
\newlength{\tmpoffsetvmonnaies}
\setlength{\tmpoffsetvmonnaies}{5mm}

%------Keys [fr]
\defKV[Monnaies]{%
	HauteurRef=\setlength{\tmphautmonnaies}{#1},%
	Style=\def\piecebilletstyle{#1},%
	DecalH=\setlength{\tmpoffsethmonnaies}{#1},%
	DecalV=\setlength{\tmpoffsetvmonnaies}{#1},%
	Empilage=\def\piecebilletempilage{#1},%
	Angle=\def\piecebilletrotation{#1}
}

\setKVdefault[Monnaies]{%
	HauteurRef=2cm,%
	Style=simple,%
	HauteurAuto=false,%
	DecalH=0pt,%
	DecalV=5mm,%
	Empilage=H,%
	Angle=10
}

%------Keys [en]
\defKV[Moneys]{%
	RefHeight=\setlength{\tmphautmonnaies}{#1},%
	Style=\def\piecebilletstyle{#1},%
	OffsetH=\setlength{\tmpoffsethmonnaies}{#1},%
	OffsetV=\setlength{\tmpoffsetvmonnaies}{#1},%
	Stack=\def\piecebilletempilage{#1},%
	Angle=\def\piecebilletrotation{#1}
}

\setKVdefault[Moneys]{%
	RefHeight=2cm,%
	Style=simple,%
	AutoHeight=false,%
	OffsetH=0pt,%
	OffsetV=5mm,%
	Stack=H,%
	Angle=10
}

%-----Macros billet(s) [fr]
\NewDocumentCommand\BilletEuro{ D<>{} O{} m }{%
	\restoreKV[Monnaies]%
	\setKV[Monnaies]{#1}%
	\IfStrEqCase{\piecebilletstyle}{%
		{simple}{\def\monnaiessuffixe{simple}}%
		{full}{\def\monnaiessuffixe{}}%
		{nb}{\def\monnaiessuffixe{simplebw}}%
	}%
	\includegraphics[#2]{euromoney-#3euro\monnaiessuffixe}%
}

\NewDocumentCommand\BilletsEuro{ O{} m }{%
	\restoreKV[Monnaies]%
	\setKV[Monnaies]{#1}%
	\IfStrEqCase{\piecebilletstyle}{%
		{simple}{\def\monnaiessuffixe{simple}}%
		{full}{\def\monnaiessuffixe{}}%
		{nb}{\def\monnaiessuffixe{simplebw}}%
	}%
	%affichage
	\IfStrEq{\piecebilletempilage}{H}%empilage vertical
		{%
			\setsepchar{+}%
			\readlist*\listetmppieces{#2}%
			\xdef\nbempilagespieces{\listetmppieceslen}%
			\ifdim\tmpoffsethmonnaies=0pt\relax%
				\foreach \i in {1,...,\listetmppieceslen}{%
					%on découpe l'empilage
					\itemtomacro\listetmppieces[\i]{\tmpempilpieces}%
					\IfSubStr{\tmpempilpieces}{*}%
						{%
							\StrCut{\tmpempilpieces}{*}{\tmpnbpieces}{\tmptypepieces}%
						}%
						{%
							\xdef\tmpnbpieces{1}%
							\xdef\tmptypepieces{\tmpempilpieces}%
						}%
					\IfStrEqCase{\tmptypepieces}{%
						{500}{\def\monnaiessomme{500euro}}%
						{200}{\def\monnaiessomme{200euro}}%
						{100}{\def\monnaiessomme{100euro}}%
						{50}{\def\monnaiessomme{50euro}}%
						{20}{\def\monnaiessomme{20euro}}%
						{10}{\def\monnaiessomme{10euro}}%
						{5}{\def\monnaiessomme{5euro}}%
					}%
					\ifboolKV[Monnaies]{HauteurAuto}%
						{%
							\IfStrEqCase{\tmptypepieces}{%
								{500}{\def\monnaiesechellerelative{1}}%
								{200}{\def\monnaiesechellerelative{1}}%
								{100}{\def\monnaiesechellerelative{1}}%
								{50}{\def\monnaiesechellerelative{0.9390}}%
								{20}{\def\monnaiesechellerelative{0.8780}}%
								{10}{\def\monnaiesechellerelative{0.8171}}%
								{5}{\def\monnaiesechellerelative{0.7561}}%
							}%
						}%
						{%
							\def\monnaiesechellerelative{1}%
						}%
					\begin{tikzpicture}
						\foreach \i in {1,...,\tmpnbpieces}{%
							\draw (0,{(\i-1)*\tmpoffsetvmonnaies}) node[anchor=south west,inner sep=0pt] {\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}} ;%
						}%
					\end{tikzpicture}%
				}%
			\else%
				\begin{tikzpicture}
					\foreach \i in {1,...,\listetmppieceslen}{%
					%on découpe l'empilage
					\itemtomacro\listetmppieces[\i]{\tmpempilpieces}%
					\IfSubStr{\tmpempilpieces}{*}%
						{%
							\StrCut{\tmpempilpieces}{*}{\tmpnbpieces}{\tmptypepieces}%
						}%
						{%
							\xdef\tmpnbpieces{1}\xdef\tmptypepieces{\tmpempilpieces}%
						}%
					\IfStrEqCase{\tmptypepieces}{%
						{500}{\def\monnaiessomme{500euro}}%
						{200}{\def\monnaiessomme{200euro}}%
						{100}{\def\monnaiessomme{100euro}}%
						{50}{\def\monnaiessomme{50euro}}%
						{20}{\def\monnaiessomme{20euro}}%
						{10}{\def\monnaiessomme{10euro}}%
						{5}{\def\monnaiessomme{5euro}}%
					}%
					\ifboolKV[Monnaies]{HauteurAuto}%
						{%
							\IfStrEqCase{\tmptypepieces}{%
								{500}{\def\monnaiesechellerelative{1}}%
								{200}{\def\monnaiesechellerelative{1}}%
								{100}{\def\monnaiesechellerelative{1}}%
								{50}{\def\monnaiesechellerelative{0.9390}}%
								{20}{\def\monnaiesechellerelative{0.8780}}%
								{10}{\def\monnaiesechellerelative{0.8171}}%
								{5}{\def\monnaiesechellerelative{0.7561}}%
							}%
						}%
						{%
							\def\monnaiesechellerelative{1}%
						}%
					\foreach \ii in {1,...,\tmpnbpieces}{%
						\draw ({(\i-1)*\tmpoffsethmonnaies},{(\ii-1)*\tmpoffsetvmonnaies}) node[anchor=south west,inner sep=0pt] {\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}} ;%
						}%
					}%
				\end{tikzpicture}%
			\fi%
		}%
		{}%
	\IfStrEq{\piecebilletempilage}{eventail}%empilage eventail
		{%
			\setsepchar{+}%
			\readlist*\listbilletseventail{#2}%
			\xdef\nbeventailbillets{\listbilletseventaillen}%
			\begin{tikzpicture}
				\foreach \i in {1,...,\nbeventailbillets}{%
					\itemtomacro\listbilletseventail[\i]{\tmpempilpieces}%
					\IfStrEqCase{\tmpempilpieces}{%
						{500}{\def\monnaiesechellerelative{1}}%
						{200}{\def\monnaiesechellerelative{1}}%
						{100}{\def\monnaiesechellerelative{1}}%
						{50}{\def\monnaiesechellerelative{0.9390}}%
						{20}{\def\monnaiesechellerelative{0.8780}}%
						{10}{\def\monnaiesechellerelative{0.8171}}%
						{5}{\def\monnaiesechellerelative{0.7561}}%
					}%
					\IfStrEqCase{\tmpempilpieces}{%
						{500}{\def\monnaiessomme{500euro}}%
						{200}{\def\monnaiessomme{200euro}}%
						{100}{\def\monnaiessomme{100euro}}%
						{50}{\def\monnaiessomme{50euro}}%
						{20}{\def\monnaiessomme{20euro}}%
						{10}{\def\monnaiessomme{10euro}}%
						{5}{\def\monnaiessomme{5euro}}%
					}%
					\ifboolKV[Monnaies]{HauteurAuto}%
						{%
							\IfStrEqCase{\tmpempilpieces}{%
								{500}{\def\monnaiesechellerelative{1}}%
								{200}{\def\monnaiesechellerelative{1}}%
								{100}{\def\monnaiesechellerelative{1}}%
								{50}{\def\monnaiesechellerelative{0.9390}}%
								{20}{\def\monnaiesechellerelative{0.8780}}%
								{10}{\def\monnaiesechellerelative{0.8171}}%
								{5}{\def\monnaiesechellerelative{0.7561}}%
							}%
						}%
						{%
							\def\monnaiesechellerelative{1}%
						}%
					\draw ({-\i*\tmpoffsethmonnaies},{-\i*\tmpoffsetvmonnaies}) node[above right=0pt,inner sep=0pt,outer sep=0pt,rotate={\fpeval{90-0.5*\piecebilletrotation*\nbeventailbillets+(\i-1)*\piecebilletrotation}}] {\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}} ;%
				}%
			\end{tikzpicture}%
		}%
		{}%
}

%-----Macros billet(s) [en]
\NewDocumentCommand\EuroBanknote{ D<>{} O{} m }{%
	\restoreKV[Moneys]%
	\setKV[Moneys]{#1}%
	\IfStrEqCase{\piecebilletstyle}{%
		{simple}{\def\monnaiessuffixe{simple}}%
		{full}{\def\monnaiessuffixe{}}%
		{bw}{\def\monnaiessuffixe{simplebw}}%
	}%
	\includegraphics[#2]{#3euro\monnaiessuffixe}%
}

\NewDocumentCommand\EuroBanknotes{ O{} m }{%
	\restoreKV[Moneys]%
	\setKV[Moneys]{#1}%
	\IfStrEqCase{\piecebilletstyle}{%
		{simple}{\def\monnaiessuffixe{simple}}%
		{full}{\def\monnaiessuffixe{}}%
		{bw}{\def\monnaiessuffixe{simplebw}}%
	}%
	%affichage
	\IfStrEq{\piecebilletempilage}{H}%empilage vertical
		{%
			\setsepchar{+}%
			\readlist*\listetmppieces{#2}%
			\xdef\nbempilagespieces{\listetmppieceslen}%
			\ifdim\tmpoffsethmonnaies=0pt\relax%
				\foreach \i in {1,...,\listetmppieceslen}{%
					%on découpe l'empilage
					\itemtomacro\listetmppieces[\i]{\tmpempilpieces}%
					\IfSubStr{\tmpempilpieces}{*}%
						{%
							\StrCut{\tmpempilpieces}{*}{\tmpnbpieces}{\tmptypepieces}%
						}%
						{%
							\xdef\tmpnbpieces{1}%
							\xdef\tmptypepieces{\tmpempilpieces}%
						}%
					\IfStrEqCase{\tmptypepieces}{%
						{500}{\def\monnaiessomme{500euro}}%
						{200}{\def\monnaiessomme{200euro}}%
						{100}{\def\monnaiessomme{100euro}}%
						{50}{\def\monnaiessomme{50euro}}%
						{20}{\def\monnaiessomme{20euro}}%
						{10}{\def\monnaiessomme{10euro}}%
						{5}{\def\monnaiessomme{5euro}}%
					}%
					\ifboolKV[Moneys]{AutoHeight}%
						{%
							\IfStrEqCase{\tmptypepieces}{%
								{500}{\def\monnaiesechellerelative{1}}%
								{200}{\def\monnaiesechellerelative{1}}%
								{100}{\def\monnaiesechellerelative{1}}%
								{50}{\def\monnaiesechellerelative{0.9390}}%
								{20}{\def\monnaiesechellerelative{0.8780}}%
								{10}{\def\monnaiesechellerelative{0.8171}}%
								{5}{\def\monnaiesechellerelative{0.7561}}%
							}%
						}%
						{%
							\def\monnaiesechellerelative{1}%
						}%
					\begin{tikzpicture}
						\foreach \i in {1,...,\tmpnbpieces}{%
							\draw (0,{(\i-1)*\tmpoffsetvmonnaies}) node[anchor=south west,inner sep=0pt] {\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}} ;%
						}%
					\end{tikzpicture}%
				}%
			\else%
				\begin{tikzpicture}
					\foreach \i in {1,...,\listetmppieceslen}{%
					%on découpe l'empilage
					\itemtomacro\listetmppieces[\i]{\tmpempilpieces}%
					\IfSubStr{\tmpempilpieces}{*}%
						{%
							\StrCut{\tmpempilpieces}{*}{\tmpnbpieces}{\tmptypepieces}%
						}%
						{%
							\xdef\tmpnbpieces{1}\xdef\tmptypepieces{\tmpempilpieces}%
						}%
					\IfStrEqCase{\tmptypepieces}{%
						{500}{\def\monnaiessomme{500euro}}%
						{200}{\def\monnaiessomme{200euro}}%
						{100}{\def\monnaiessomme{100euro}}%
						{50}{\def\monnaiessomme{50euro}}%
						{20}{\def\monnaiessomme{20euro}}%
						{10}{\def\monnaiessomme{10euro}}%
						{5}{\def\monnaiessomme{5euro}}%
					}%
					\ifboolKV[Moneys]{AutoHeight}%
						{%
							\IfStrEqCase{\tmptypepieces}{%
								{500}{\def\monnaiesechellerelative{1}}%
								{200}{\def\monnaiesechellerelative{1}}%
								{100}{\def\monnaiesechellerelative{1}}%
								{50}{\def\monnaiesechellerelative{0.9390}}%
								{20}{\def\monnaiesechellerelative{0.8780}}%
								{10}{\def\monnaiesechellerelative{0.8171}}%
								{5}{\def\monnaiesechellerelative{0.7561}}%
							}%
						}%
						{%
							\def\monnaiesechellerelative{1}%
						}%
					\foreach \ii in {1,...,\tmpnbpieces}{%
						\draw ({(\i-1)*\tmpoffsethmonnaies},{(\ii-1)*\tmpoffsetvmonnaies}) node[anchor=south west,inner sep=0pt] {\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}} ;%
						}%
					}%
				\end{tikzpicture}%
			\fi%
		}%
		{}%
	\IfStrEq{\piecebilletempilage}{fan}%empilage eventail
		{%
			\setsepchar{+}%
			\readlist*\listbilletseventail{#2}%
			\xdef\nbeventailbillets{\listbilletseventaillen}%
			\begin{tikzpicture}
				\foreach \i in {1,...,\nbeventailbillets}{%
					\itemtomacro\listbilletseventail[\i]{\tmpempilpieces}%
					\IfStrEqCase{\tmpempilpieces}{%
						{500}{\def\monnaiesechellerelative{1}}%
						{200}{\def\monnaiesechellerelative{1}}%
						{100}{\def\monnaiesechellerelative{1}}%
						{50}{\def\monnaiesechellerelative{0.9390}}%
						{20}{\def\monnaiesechellerelative{0.8780}}%
						{10}{\def\monnaiesechellerelative{0.8171}}%
						{5}{\def\monnaiesechellerelative{0.7561}}%
					}%
					\IfStrEqCase{\tmpempilpieces}{%
						{500}{\def\monnaiessomme{500euro}}%
						{200}{\def\monnaiessomme{200euro}}%
						{100}{\def\monnaiessomme{100euro}}%
						{50}{\def\monnaiessomme{50euro}}%
						{20}{\def\monnaiessomme{20euro}}%
						{10}{\def\monnaiessomme{10euro}}%
						{5}{\def\monnaiessomme{5euro}}%
					}%
					\ifboolKV[Moneys]{AutoHeight}%
						{%
							\IfStrEqCase{\tmpempilpieces}{%
								{500}{\def\monnaiesechellerelative{1}}%
								{200}{\def\monnaiesechellerelative{1}}%
								{100}{\def\monnaiesechellerelative{1}}%
								{50}{\def\monnaiesechellerelative{0.9390}}%
								{20}{\def\monnaiesechellerelative{0.8780}}%
								{10}{\def\monnaiesechellerelative{0.8171}}%
								{5}{\def\monnaiesechellerelative{0.7561}}%
							}%
						}%
						{%
							\def\monnaiesechellerelative{1}%
						}%
					\draw ({-\i*\tmpoffsethmonnaies},{-\i*\tmpoffsetvmonnaies}) node[above right=0pt,inner sep=0pt,outer sep=0pt,rotate={\fpeval{90-0.5*\piecebilletrotation*\nbeventailbillets+(\i-1)*\piecebilletrotation}}] {\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}} ;%
				}%
			\end{tikzpicture}%
		}%
		{}%
}

%-----Macro pièces [fr]
\NewDocumentCommand\PiecesEuro{ O{} m }{%
	\restoreKV[Monnaies]%
	\setKV[Monnaies]{#1}%
	\IfStrEqCase{\piecebilletstyle}{%
		{simple}{\def\monnaiessuffixe{simple}}%
		{full}{\def\monnaiessuffixe{}}%
		{nb}{\def\monnaiessuffixe{simplebw}}%
	}%
	%boucle
	\setsepchar{+}%
	\readlist*\listetmppieces{#2}%
	\xdef\nbempilagespieces{\listetmppieceslen}%
	\foreach \i in {1,...,\listetmppieceslen}{%
		%on découpe l'empilage
		\itemtomacro\listetmppieces[\i]{\tmpempilpieces}%
		\IfSubStr{\tmpempilpieces}{*}%
			{%
				\StrCut{\tmpempilpieces}{*}{\tmpnbpieces}{\tmptypepieces}%
			}%
			{%
				\xdef\tmptypepieces{\tmpempilpieces}%
			}%
		\IfStrEqCase{\tmptypepieces}{%
			{2}{\def\monnaiessomme{2euro}}%
			{1}{\def\monnaiessomme{1euro}}%
			{0.5}{\def\monnaiessomme{50cent}}%
			{0.2}{\def\monnaiessomme{20cent}}%
			{0.1}{\def\monnaiessomme{10cent}}%
			{0.05}{\def\monnaiessomme{5cent}}%
			{0.02}{\def\monnaiessomme{2cent}}%
			{0.01}{\def\monnaiessomme{1cent}}%
		}%
		\ifboolKV[Monnaies]{HauteurAuto}%
			{%
				\IfStrEqCase{\tmptypepieces}{%
					{2}{\def\monnaiesechellerelative{1}}%
					{1}{\def\monnaiesechellerelative{0.9029}}%
					{0.5}{\def\monnaiesechellerelative{0.9417}}%
					{0.2}{\def\monnaiesechellerelative{0.8641}}%
					{0.1}{\def\monnaiesechellerelative{0.7670}}%
					{0.05}{\def\monnaiesechellerelative{0.8252}}%
					{0.02}{\def\monnaiesechellerelative{0.7282}}%
					{0.01}{\def\monnaiesechellerelative{0.6311}}%
				}%
			}%
			{%
				\def\monnaiesechellerelative{1}%
			}%
		%affichage
		\IfStrEq{\piecebilletempilage}{H}%
			{%
				\IfSubStr{\tmpempilpieces}{*}%
					{%
						\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}%
						\ifnum\tmpnbpieces=1\else%
							\foreach \i in {1,...,\inteval{\tmpnbpieces-1}}{%
								\ifdim\tmpoffsethmonnaies>0pt\relax\hspace*{\dimexpr\tmpoffsethmonnaies-\monnaiesechellerelative\tmphautmonnaies\relax}\fi%
								\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}%
							}%
						\fi%
					}%
					{%
						\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}%
					}%
					\ifnum\i<\listetmppieceslen%
						\ifdim\tmpoffsethmonnaies>0pt\relax\hspace*{\dimexpr\tmpoffsethmonnaies-\monnaiesechellerelative\tmphautmonnaies\relax}%
						\fi%
					\fi%
			}%
			{%
				\begin{tikzpicture}
					\foreach \i in {1,...,\tmpnbpieces}{%
						\draw (0,{(\i-1)*\tmpoffsetvmonnaies}) node[inner sep=0pt] {\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}} ;%
					}%
				\end{tikzpicture}%
			}%
	}%
}

%-----Macro pièces [en]
\NewDocumentCommand\EuroCoins{ O{} m }{%
	\restoreKV[Moneys]%
	\setKV[Moneys]{#1}%
	\IfStrEqCase{\piecebilletstyle}{%
		{simple}{\def\monnaiessuffixe{simple}}%
		{full}{\def\monnaiessuffixe{}}%
		{bw}{\def\monnaiessuffixe{simplebw}}%
	}%
	%boucle
	\setsepchar{+}%
	\readlist*\listetmppieces{#2}%
	\xdef\nbempilagespieces{\listetmppieceslen}%
	\foreach \i in {1,...,\listetmppieceslen}{%
		%on découpe l'empilage
		\itemtomacro\listetmppieces[\i]{\tmpempilpieces}%
		\IfSubStr{\tmpempilpieces}{*}%
			{%
				\StrCut{\tmpempilpieces}{*}{\tmpnbpieces}{\tmptypepieces}%
			}%
			{%
				\xdef\tmptypepieces{\tmpempilpieces}%
			}%
		\IfStrEqCase{\tmptypepieces}{%
			{2}{\def\monnaiessomme{2euro}}%
			{1}{\def\monnaiessomme{1euro}}%
			{0.5}{\def\monnaiessomme{50cent}}%
			{0.2}{\def\monnaiessomme{20cent}}%
			{0.1}{\def\monnaiessomme{10cent}}%
			{0.05}{\def\monnaiessomme{5cent}}%
			{0.02}{\def\monnaiessomme{2cent}}%
			{0.01}{\def\monnaiessomme{1cent}}%
		}%
		\ifboolKV[Moneys]{AutoHeight}%
			{%
				\IfStrEqCase{\tmptypepieces}{%
					{2}{\def\monnaiesechellerelative{1}}%
					{1}{\def\monnaiesechellerelative{0.9029}}%
					{0.5}{\def\monnaiesechellerelative{0.9417}}%
					{0.2}{\def\monnaiesechellerelative{0.8641}}%
					{0.1}{\def\monnaiesechellerelative{0.7670}}%
					{0.05}{\def\monnaiesechellerelative{0.8252}}%
					{0.02}{\def\monnaiesechellerelative{0.7282}}%
					{0.01}{\def\monnaiesechellerelative{0.6311}}%
				}%
			}%
			{%
				\def\monnaiesechellerelative{1}%
			}%
		%affichage
		\IfStrEq{\piecebilletempilage}{H}%
			{%
				\IfSubStr{\tmpempilpieces}{*}%
					{%
						\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}%
						\ifnum\tmpnbpieces=1\else%
							\foreach \i in {1,...,\inteval{\tmpnbpieces-1}}{%
								\ifdim\tmpoffsethmonnaies>0pt\relax\hspace*{\dimexpr\tmpoffsethmonnaies-\monnaiesechellerelative\tmphautmonnaies\relax}\fi%
								\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}%
							}%
						\fi%
					}%
					{%
						\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}%
					}%
					\ifnum\i<\listetmppieceslen%
						\ifdim\tmpoffsethmonnaies>0pt\relax\hspace*{\dimexpr\tmpoffsethmonnaies-\monnaiesechellerelative\tmphautmonnaies\relax}%
						\fi%
					\fi%
			}%
			{%
				\begin{tikzpicture}
					\foreach \i in {1,...,\tmpnbpieces}{%
						\draw (0,{(\i-1)*\tmpoffsetvmonnaies}) node[inner sep=0pt] {\includegraphics[height=\dimexpr\monnaiesechellerelative\tmphautmonnaies\relax]{euromoney-\monnaiessomme\monnaiessuffixe}} ;%
					}%
				\end{tikzpicture}%
			}%
	}%
}

\endinput