\documentclass{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{sphere_object.tex} \input{sphericalcap_object.tex} \def\Rectangle(#1,#2)(#3,#4){ newpath #1 #2 moveto #3 #2 lineto #3 #4 lineto #1 #4 lineto closepath } \definecolor{terrain}{hsb}{1 .5 0.5} \definecolor{ciel}{hsb}{0.8 .5 0.2} \pagestyle{empty} \begin{document} \begin{center} %\psset{unit=1.2} \begin{pspicture*}(-8,-6)(7,4) \psframe*[linecolor=ciel](-8,-6)(7,4) \psset{THETA=-20,PHI=25,Dobs=20,Decran=12,d=1e6,unitgrid=5,interior=true,todraw=false} \psset{thetaLight=20,phiLight=10,dLight=1e9,hsbcolor=0.04 0.5} \planThreeDput[fillstyle=solid,fillcolor=terrain,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](-1.5,-5.5,0){1}{1.75} \psCapSphere[startlatitude=45,linestyle=none](-1.5,-5.5,0.75){2 sqrt} \psCylindre[nF=96](4.4,-5.5,0){1}{1.75} \psCapSphere[startlatitude=45,linestyle=none](4.4,-5.5,0.75){2 sqrt} % \psCube[A=3,B=1.5,C=1.5,RotZ=-77](-2,-2.5,0.75) \psCube[A=3,B=1.5,C=1.5,RotZ=-77](3.5,-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} % les fumerolles \psset{linestyle=none,fillstyle=gradient,gradbegin=red!60,gradend=red!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}} % texte \psset{normale=90 0} \textThreeDput[linewidth=0,xO=0,yO=-11.5,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima]{Civaux} \end{pspicture*} \end{center} \end{document}