test_cylindres.tex

\documentclass[a4paper]{article}
\usepackage{pst-V3D,pst-grad}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}% utiliser obligatoirement ce codage !!!
% sinon affichage des lettres accentuées
% très perturbées !!!
\input{cylindre_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*}(-9,-5)(7,6)
\psframe(-9,-5)(7,6)
\psset{THETA=100,PHI=25,Dobs=50,Decran=30,nF=48,interior=true,todraw=false}
\psset[pst-V3D]{thetaLight=30,phiLight=30,dLight=50,hsbcolor=0.5 0.5}
\psCylindre[hsbcolor=0.5 0.8](10,-8,-6){1}{6}
\psCylindre[hsbcolor=0.1 0.8](-10,4,-6){1}{6}
\psCylindre[hsbcolor=0 1](-8,-8,-4){1}{4}
\psCylindre(10,4,-5){1}{5}
\planThreeDput[fillstyle=solid,fillcolor=bleupale,normale=90 -90]{\Rectangle(-12,-10)(12,6)}
\planThreeDput[normale=90 -90,fontscale=0.5]{\Grille(-12,-10)(12,6)}
\psCylindre[hsbcolor=0.2 0.8](4,-8,0){1}{6}
\psCylindre[hsbcolor=0.5 0.8,cylindre=false](10,-8,-6){1}{6}
\psCylindre[hsbcolor=0.1 0.8,cylindre=false](-10,4,-6){1}{6}
\psCylindre[hsbcolor=0 1,cylindre=false](-8,-8,-4){1}{4}
\psCylindre[hsbcolor=0.9 0.5,RotX=45](-5,5,3){1}{5}
\psCylindre[hsbcolor=0.8 0.2,RotZ=20](4,-3,0){2}{5}
\psCylindre[RotX=-90,nH=1](0,0,1){2}{6}
\psCylindre[cylindre=false](10,4,-5){1}{5}
\end{pspicture*}
\end{center}
 
\begin{center}
\begin{pspicture*}(-9,-5)(7,6)
\psframe(-9,-5)(7,6)
\psset{THETA=60,PHI=25,Dobs=50,Decran=30,nF=24}
\psset[pst-V3D]{thetaLight=30,phiLight=30,dLight=50,hsbcolor=0.5 0.5}
\psCylindre[hsbcolor=0.5 0.8](10,-8,-6){1}{6}
\psCylindre[hsbcolor=0.1 0.8](-10,4,-6){1}{6}
\psCylindre[hsbcolor=0 1](-8,-8,-4){1}{4}
\psCylindre(10,4,-5){1}{5}
\planThreeDput[fillstyle=solid,fillcolor=bleupale,normale=90 -90]{\Rectangle(-12,-10)(12,6)}
\planThreeDput[normale=90 -90,fontscale=0.5]{\Grille(-12,-10)(12,6)}
\psCylindre[hsbcolor=0.2 0.8](4,-8,0){1}{6}
\psCylindre[hsbcolor=0.5 0.8,cylindre=false](10,-8,-6){1}{6}
\psCylindre[hsbcolor=0.1 0.8,cylindre=false](-10,4,-6){1}{6}
\psCylindre[hsbcolor=0 1,cylindre=false](-8,-8,-4){1}{4}
\psCylindre[hsbcolor=0.9 0.5,RotX=45](-5,5,3){1}{5}
\psCylindre[hsbcolor=0.8 0.2,RotZ=20](4,-3,0){2}{5}
\psCylindre[RotX=-90](0,0,1){2}{5}
\psCylindre[cylindre=false](10,4,-5){1}{5}
\end{pspicture*}
\end{center}
 
\end{document}