\documentclass[a4paper]{article} \usepackage{pstricks} \usepackage{pst-node} \usepackage{pst-vue3d} \usepackage{pst-grad} \usepackage[nomessages]{fp} \input random % \newpsstyle{sol}{fillstyle=vlines,hatchcolor=lightgray,% hatchwidth=0.2\pslinewidth,hatchsep=1\pslinewidth} \newpsstyle{section}{fillstyle=vlines,hatchcolor=yellow,% hatchwidth=0.2\pslinewidth,hatchsep=1\pslinewidth} \newpsstyle{plan}{fillstyle=vlines,hatchcolor=green,% hatchwidth=0.1\pslinewidth,hatchsep=1\pslinewidth} \newpsstyle{Side}{fillstyle=solid,fillcolor=yellow}%grandes faces \newpsstyle{side}{fillstyle=solid,fillcolor=magenta}%coins facettes \SpecialCoor \newpsstyle{sol}{fillstyle=vlines,hatchcolor=green,% hatchwidth=0.2\pslinewidth,hatchsep=1\pslinewidth} \pagestyle{empty} \parindent=0pt \psset{dimen=middle} \newcount\diex \newcount\diey \newdimen{\diez} \newcount\CY \newdimen{\vuePhi} \newdimen{\vueTheta} \newcommand\ThreeDies[3]{% \randomi=#1 \begin{pspicture}(-5,-5)(5,5) \setrannum{\diex}{-2}{2} \setrannum{\diey}{-2}{2} \setrandim{\diez}{0pt}{360pt} \setrandim{\vuePhi}{10pt}{80pt} \setrandim{\vueTheta}{0pt}{90pt} \FPeval\ithetax{(\the\diex)*(90)} \FPeval\ithetay{(\the\diey)*(90)} \psset{RotX=\ithetax,RotY=\ithetay,RotZ={\pointless\diez},% PHI={\pointless\vuePhi},THETA={\pointless\vueTheta}} \DieThreeD(-10,-15,0)] \randomi=#2 \setrannum{\diex}{-2}{2} \setrannum{\diey}{-2}{2} \setrandim{\diez}{0pt}{360pt} \FPeval\ithetax{(\the\diex)*(90)} \FPeval\ithetay{(\the\diey)*(90)} \psset{RotX=\ithetax,RotY=\ithetay,RotZ={\pointless\diez}} \DieThreeD(-20,15,0) \randomi=#3 \setrannum{\diex}{-2}{2} \setrannum{\diey}{-2}{2} \setrandim{\diez}{0pt}{360pt} \FPeval\ithetax{(\the\diex)*(90)} \FPeval\ithetay{(\the\diey)*(90)} \psset{RotX=\ithetax,RotY=\ithetay,RotZ={\pointless\diez}} \DieThreeD(20,12,0) \end{pspicture}} \begin{document} % \ThreeDies{seed1}{seed2}{seed2} % ne pas dépasser 2^31-1=2147483647 % voir la doc de ramdom.tex \ThreeDies{214048360}{2147483647}{384523} \begin{pspicture}(-5,-5)(5,5) \randomi=49312715 \setrannum{\diex}{-2}{2} \setrannum{\diey}{-2}{2} %\setrannum{\CY}{0}{8} \setrandim{\diez}{0pt}{360pt} \setrandim{\vuePhi}{0pt}{60pt} \setrandim{\vueTheta}{0pt}{90pt} \FPeval\ithetay{(\the\diey)*(90)} \FPeval\ithetax{(\the\diex)*(90)} \psset{RotX=\ithetax} \psset{RotY=\ithetay,RotZ={\pointless\diez},% PHI={\pointless\vuePhi},THETA={\pointless\vueTheta}} \DieThreeD(-3,\the\CY,0) \randomi=99460966 \setrannum{\diex}{-2}{2} \setrannum{\diey}{-2}{2} \setrannum{\CY}{-8}{8} \setrandim{\diez}{0pt}{360pt} \FPeval\ithetay{(\the\diey)*(90)} \FPeval\ithetax{(\the\diex)*(90)} \psset{RotX=\ithetax} \psset{RotY=\ithetay,RotZ={\pointless\diez}} \DieThreeD(0,\the\CY,0) \randomi=03101945 \setrannum{\diex}{-2}{2} \setrannum{\diey}{-2}{2} \setrandim{\diez}{0pt}{360pt} \setrannum{\CY}{0}{8} \psset{RotX=-45,RotY=45,RotZ={\pointless\diez}} \DieThreeD(8,\the\CY,0) \end{pspicture} \end{document}