summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pstricks/voss/bsp113.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/pstricks/voss/bsp113.tex')
-rw-r--r--Master/texmf-dist/doc/generic/pstricks/voss/bsp113.tex100
1 files changed, 100 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pstricks/voss/bsp113.tex b/Master/texmf-dist/doc/generic/pstricks/voss/bsp113.tex
new file mode 100644
index 00000000000..c9db5145641
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pstricks/voss/bsp113.tex
@@ -0,0 +1,100 @@
+\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}