\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{hyperboloid_object.tex}
\input{cylindre_object.tex}
\input{cube_object.tex}
\input{sphericalcap_object.tex}
\input{sphereII_object.tex}
\input{sphere_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,5)
\psframe*[linecolor=cyan!20](-9,-5)(7,5)
\psset{THETA=75,PHI=85,Dobs=20,Decran=12,d=1e6,unitgrid=5,todraw=false,interior=true}
\planThreeDput[fillstyle=solid,fillcolor=green!20,normale=90 -90]{\Rectangle(-12,-10)(12,6)}
\planThreeDput[normale=90 -90,fontscale=0.5]{\Grille(-12,-10)(12,6)}
\textThreeDput[linecolor=blue,fillstyle=solid,fillcolor=blue!80,normale=90 90,fontscale=1,PSfont=Helvetica](-8.5,0,0){Tour 1}
\textThreeDput[linecolor=blue,fillstyle=solid,fillcolor=blue!80,normale=90 90,fontscale=1,PSfont=Helvetica](8.5,0,0){Tour 2}
\psset{R=2.5,H=5,r=1.25}%
% tour de refroidissement 1
\psCylindre[nF=96,nH=2](-8.5,0,0){2.5}{0.5}
\psHyperboloid[nF=96](-8.5,0,0.5)
\psCylindre[nF=96,nH=2](-8.5,0,5){1.25}{1}
% réacteurs
\psCylindre[nF=96,hsbcolor=0.03 0.5](-1.5,-5.5,0){1}{1.75}
\psCapSphere[startlatitude=45,linestyle=none,hsbcolor=0.5 0.5](-1.5,-5.5,0.75){2 sqrt}
\psCylindre[nF=96,hsbcolor=0.03 0.5](4.4,-5.5,0){1}{1.75}
\psCapSphere[startlatitude=45,linestyle=none,hsbcolor=0.5 0.5](4.4,-5.5,0.75){2 sqrt}
%
\psCube[A=3,B=1.5,C=1.5,RotZ=-77,hsbcolor=0.5 1](3.5,-2.5,0.75)
\psCube[A=3,B=1.5,C=1.5,RotZ=-77,hsbcolor=0.5 1](-2,-2.5,0.75)
% tour de refroidissement 2
\psCylindre[nF=96](8.5,0,0){2.5}{0.5}
\psHyperboloid[nF=96](8.5,0,0.5)
\psCylindre[nF=96,nH=2](8.5,0,5){1.25}{1}
% texte
%\psset{normale=90 90}
% pour point de vue THETA<0
%\textThreeDput[linewidth=0,xO=0,yO=-4.5,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima]{Centrale nucléaire de Civaux}
\psset{normale=0 90}
\planThreeDput[fillstyle=solid,fillcolor=white,visibility=false](0,6,2){\Rectangle(-7,-0.7)(7,0.7)}
\planThreeDput[fillstyle=solid,fillcolor=white](0,6,2){\Rectangle(-7,-0.7)(7,0.7)}
\pnodeXYZ(-7,6,0){A1}\pnodeXYZ(-7,6,3){A2}\psline(A1)(A2)
\pnodeXYZ(7,6,0){B1}\pnodeXYZ(7,6,3){B2}\psline(B1)(B2)
\textThreeDput[linewidth=0,xO=0,yO=2,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima,visibility=false](0,6,0){Centrale nucléaire de Civaux}
\textThreeDput[linewidth=0,xO=0,yO=2,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima](0,6,0){Centrale nucléaire de Civaux}
% les fumerolles
\psset{linestyle=none,fillstyle=gradient,gradbegin=cyan!40,gradend=gray!10,gradmidpoint=0}
\multido{\nx=-8.5+17}{2}{%
\psSphere(\nx,0,6){0.25}
\psSphere(\nx\space 0.5 add,0,6.5){0.5}
\psSphere(\nx\space 1.5 add,0,7){0.75}
\psSphere(\nx\space 2.5 add,0,8){1}}
\end{pspicture*}
\end{center}


\begin{center}
\begin{pspicture*}(-7,-5)(9,7)
\psframe*[linecolor=cyan!20](-7,-5)(9,7)
\psset{THETA=-90,PHI=35,Dobs=20,Decran=12,d=1e6,unitgrid=5,todraw=false,interior=true}
\planThreeDput[fillstyle=solid,fillcolor=green!20,normale=90 -90]{\Rectangle(-12,-10)(12,6)}
\planThreeDput[normale=90 -90,fontscale=0.5]{\Grille(-12,-10)(12,6)}
\textThreeDput[linecolor=blue,fillstyle=solid,fillcolor=blue!80,normale=90 -90,fontscale=1,PSfont=Helvetica](-8.5,0,0){Tour 1}
\textThreeDput[linecolor=blue,fillstyle=solid,fillcolor=blue!80,normale=90 -90,fontscale=1,PSfont=Helvetica](8.5,0,0){Tour 2}
% texte
%\psset{normale=90 90}
% pour point de vue THETA<0
%\textThreeDput[linewidth=0,xO=0,yO=-4.5,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima]{Centrale nucléaire de Civaux}
{\psset{normale=0 -90}
%\planThreeDput[fillstyle=solid,fillcolor=white,visibility=false](0,6,2){\Rectangle(-7,-0.7)(7,0.7)}
\planThreeDput[fillstyle=solid,fillcolor=white](0,6,2){\Rectangle(-7,-0.7)(7,0.7)}
\pnodeXYZ(-7,6,0){A1}\pnodeXYZ(-7,6,3){A2}\psline(A1)(A2)
\pnodeXYZ(7,6,0){B1}\pnodeXYZ(7,6,3){B2}\psline(B1)(B2)
%\textThreeDput[linewidth=0,xO=0,yO=2,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima,visibility=false](0,6,0){Centrale nucléaire de Civaux}
\textThreeDput[linewidth=0,xO=0,yO=2,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima](0,6,0){Centrale nucléaire de Civaux}}
\psset{R=2.5,H=5,r=1.25}%
% tour de refroidissement 1
\psCylindre[nF=96,nH=2](-8.5,0,0){2.5}{0.5}
\psHyperboloid[nF=96](-8.5,0,0.5)
\psCylindre[nF=96,nH=2](-8.5,0,5){1.25}{1}
% réacteurs
\psCube[A=3,B=1.5,C=1.5,RotZ=-77,hsbcolor=0.5 1](3.5,-2.5,0.75)
\psCube[A=3,B=1.5,C=1.5,RotZ=-77,hsbcolor=0.5 1](-2,-2.5,0.75)
%
\psCylindre[nF=96,hsbcolor=0.03 0.5](-1.5,-5.5,0){1}{1.75}
\psCapSphere[startlatitude=45,linestyle=none,hsbcolor=0.5 0.5](-1.5,-5.5,0.75){2 sqrt}
\psCylindre[nF=96,hsbcolor=0.03 0.5](4.4,-5.5,0){1}{1.75}
\psCapSphere[startlatitude=45,linestyle=none,hsbcolor=0.5 0.5](4.4,-5.5,0.75){2 sqrt}
% tour de refroidissement 2
\psCylindre[nF=96,nH=2](8.5,0,0){2.5}{0.5}
\psHyperboloid[nF=96](8.5,0,0.5)
\psCylindre[nF=96,nH=2](8.5,0,5){1.25}{1}
% les fumerolles
\psset{linestyle=none,fillstyle=gradient,gradbegin=cyan!40,gradend=gray!10,gradmidpoint=0}
\multido{\nx=-8.5+17}{2}{%
\psSphere(\nx,0,6){0.25}
\psSphere(\nx\space 0.5 add,0,6.5){0.5}
\psSphere(\nx\space 1.5 add,0,7){0.75}
\psSphere(\nx\space 2.5 add,0,8){1}}
\end{pspicture*}
\end{center}

\end{document}
