test_cone.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 !!!
\input{cone_object.tex}
\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*}(-5,-6)(8,4)
\psframe(-5,-6)(8,4)
\psset{THETA=-90,PHI=30,Dobs=30,Decran=20,dLight=1e9}
\psset[pst-V3D]{thetaLight=-70,phiLight=30,dLight=10000}%
\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)}
\psCylindre[nF=48,nH=5,RotX=-90,RotZ=45,todraw=false](-4,5,1){1}{5}
\psCone[fillstyle=solid,fracHeight=0.5,linecolor=red](0,0,0){2}{4}
% tour de refroidissement
\psCone[fillstyle=solid,fillcolor=gray!25,fracHeight=0.5](-3,-6,0){2}{6}
\psCylindre[nF=20,nH=2,interior=true](-3,-6,3){1}{1.5}
%
\psCylindre[nF=56,nH=4,todraw=false](6,-7,0){1}{5}
\psCone[nF=56,fracHeight=0.5,RotX=180,interior=true,todraw=false](6,-7,7){2}{4}
\psCylindre[nF=48,nH=2,todraw=false,hsbcolor=0.05 0.5,interior=true](4,0,0){1}{4}
\end{pspicture*}
\end{center}
 
 
\end{document}