test_civaux3.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{cone_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=45,Dobs=20,Decran=12,d=1e6,unitgrid=5,todraw=false}
\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)}
% tour de refroidissement 1
\psCylindre[nF=96,nH=2](-8.5,0,0){2.5}{0.5}
\psCone[nF=96,fracHeight=0.5](-8.5,0,0.5){2.5}{6}
\psCylindre[nF=96,nH=2,interior=true](-8.5,0,3.5){1.25}{1.5}
% 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}
\psCone[nF=96,fracHeight=0.5](8.5,0,0.5){2.5}{6}
\psCylindre[nF=96,interior=true](8.5,0,3.5){1.25}{1.5}
% 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,5){0.25}
\psSphere(\nx\space 0.5 add,0,5.75){0.5}
\psSphere(\nx\space 1.5 add,0,6.5){0.75}
\psSphere(\nx\space 2.5 add,0,7.5){1}}
\end{pspicture*}
\end{center}
 
 
\end{document}