test_icosahedron.tex

\documentclass{article}
\usepackage{pst-V3D}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}% utiliser obligatoirement ce codage !!!
% sinon affichage des lettres accentuées
% très perturbées !!!
%\usepackage[frenchb]{babel}
\usepackage[a4paper]{geometry}
\input{icosahedral_object.tex}
 
\def\Rectangle(#1,#2)(#3,#4){
newpath
#1 #2 moveto
#3 #2 lineto
#3 #4 lineto
#1 #4 lineto
 closepath }
 
 
\definecolor{bleupale}{rgb}{0.8 .8 1}
 
 
\pagestyle{empty}
\begin{document}
\begin{center}
\begin{pspicture*}(-5,-6)(7,4)
\psframe(-5,-6)(7,4)
\psset{THETA=-60,PHI=30,Dobs=30,Decran=20}
\psset[pst-V3D]{thetaLight=-50,phiLight=50,dLight=1e9}%
\planThreeDput[fillstyle=solid,fillcolor=bleupale,normale=90 -90]{\Rectangle(-10,-10)(10,10)}
\planThreeDput[normale=90 -90,fontscale=0.5]{\Grille(-10,-10)(10,10)}
\psIcosahedron[radius=2.5,RotZ=36,arete=false,hsbcolor=0.17 1](0,5,0.7946545 2.5 mul)
\psIcosahedron[radius=2.5,RotZ=20,hsbcolor=0.05 1](0,-5,0.7946545 2.5 mul)
\psIcosahedron[radius=2.5,RotZ=10,d=2](7,0,0.7946545 2.5 mul)
\psIcosahedron[radius=1.5,RotZ=-20,d=1e6,arete=false](5,-7,0.7946545 1.5 mul)
\end{pspicture*}
\end{center}
 
 
\end{document}