test_cylindre.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{cylindre_object.tex}
 
\def\Rectangle(#1,#2)(#3,#4){
newpath
#1 #2 moveto
#3 #2 lineto
#3 #4 lineto
#1 #4 lineto
 closepath }
 
 
\definecolor{Orange}{rgb}{.956 .643 .376}
 
 
\pagestyle{empty}
\begin{document}
\begin{center}
\begin{pspicture}(-5,-6)(6,10)
\psset{THETA=30,PHI=30,Dobs=30,Decran=10}
\planThreeDput[fillstyle=solid,fillcolor=Orange,normale=90 -90]{\Rectangle(-14,-14)(9,17)}
\planThreeDput[gridcolor=white,normale=90 -90,fontscale=0.5]{\Grille(-14,-14)(9,17)}
\psCylindre[nF=20,nH=5,interior=true](0,0,0){3}{10}
\psCylindre[nF=15,nH=5,RotX=-90,RotZ=80,interior=true](-10,5,1.5){3}{7}
\psCylindre[nF=15,nH=5,RotX=80,RotZ=120,interior=true](7,5,10){1}{3}
\end{pspicture}
\end{center}
 
\begin{center}
\begin{pspicture}(-5,-6)(6,10)
\psset{THETA=30,PHI=30,Dobs=30,Decran=10}
\planThreeDput[fillstyle=solid,fillcolor=Orange,normale=90 -90]{\Rectangle(-14,-14)(9,17)}
\planThreeDput[gridcolor=white,normale=90 -90,fontscale=0.5]{\Grille(-14,-14)(9,17)}
\psCylindre[nF=20,nH=5,interior=true](0,0,0){3}{10}
\psCylindre[nF=15,nH=5,RotX=-90,interior=true](-10,5,3){3}{10}
\psCylindre[nF=15,nH=5,RotY=80,interior=true](0,7,1){1}{7}
\end{pspicture}
\end{center}
\newpage
%\begin{center}
\psset{THETA=30,PHI=30,Dobs=30,Decran=10}
\multido{\iRot=0+30}{12}{%
\begin{pspicture}(-2,-2)(2,2)
\planThreeDput[fillstyle=solid,fillcolor=Orange,normale=90 -90]{\Rectangle(-4,-4)(4,4)}
\planThreeDput[gridcolor=white,normale=90 -90,fontscale=0.5]{\Grille(-4,-4)(4,4)}
\psCylindre[nF=20,nH=5,RotX=\iRot,interior=true](0,0,0){1}{5}
\end{pspicture}
\ifnum\multidocount=4 \\ \fi
\ifnum\multidocount=8 \\ \fi}
%\end{center}
 
\newpage
%\begin{center}
\psset{THETA=30,PHI=30,Dobs=30,Decran=10}
\multido{\iRot=0+30}{12}{%
\begin{pspicture}(-2,-2)(2,2)
%\planThreeDput[fillstyle=solid,fillcolor=Orange,normale=90 -90]{\Rectangle(-4,-4)(4,4)}
%\planThreeDput[gridcolor=white,normale=90 -90,fontscale=0.5]{\Grille(-4,-4)(4,4)}
\psCylindre[nF=20,nH=5,RotY=\iRot,interior=true,RotZ=30](0,0,0){1}{5}
\axesIIID(3,3,3)
\end{pspicture}
\ifnum\multidocount=4 \\ \fi
\ifnum\multidocount=8 \\ \fi}
%\end{center}
\end{document}