test_cylindrical_portion.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{cylindrical_portion_object.tex}
\input{cylindre_object.tex}
\input{cube_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=80,PHI=15,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)}
\psCylindricalPortion[nF=48,nH=5,anglebegin=90,angleend=270,todraw=false,interior=true,hsbcolor=0.5 0.5](0,0,0){4}{15}
\psCylindricalPortion[nF=20,nH=5,interior=false,RotZ=100](6,-5,0){3}{5}
\psCylindricalPortion[nF=96,nH=10,RotX=-90,RotZ=90,interior=true,anglebegin=30,angleend=210,todraw=false](-5,5,5){5}{10}
\psCylindricalPortion[nF=15,nH=3,interior=false,angleend=120](0,0,0){9}{1.5}
\psCylindricalPortion[nF=15,nH=5,interior=true,RotZ=180,RotX=90](0,9,0){4}{6}
\psCylindricalPortion[nF=20,nH=5,interior=false,interior=true,anglebegin=90,angleend=360,RotZ=60](7,14,0){1}{5}
\psCylindricalPortion[nF=15,nH=5,RotZ=90,RotX=90](-12,15,0){1}{5}
\end{pspicture}
\end{center}
 
\begin{center}
\begin{pspicture}(-5,-6)(6,10)
\psset{THETA=50,PHI=30,Dobs=30,Decran=20}
\psset[pst-V3D]{thetaLight=30,phiLight=20,dLight=50,hsbcolor=0.5 0.5,d=1e6}
\planThreeDput[fillstyle=solid,fillcolor=Orange,normale=90 -90]{\Rectangle(-10,-10)(10,10)}
\planThreeDput[gridcolor=white,normale=90 -90,fontscale=0.5]{\Grille(-10,-10)(10,10)}
\psCylindre[hsbcolor=0.2 0.8](-6,-6,0){0.5}{8}
\psCube[A=0.5,B=11,C=6,hsbcolor=0.3 0.2](-6,0,4)
\psCylindre[hsbcolor=0.2 0.8](-6,6,0){0.5}{8}
\psCylindre[hsbcolor=0.2 0.8](6,-6,0){0.5}{8}
\psCube[A=0.5,B=11,C=6,hsbcolor=0.3 0.2](6,0,4)
\psCylindre[hsbcolor=0.2 0.8](6,6,0){0.5}{8}
\psCylindricalPortion[nF=15,nH=5,interior=true,RotZ=180,RotX=90](0,-6,8){6}{12}
\planThreeDput[normale=0 90,fillstyle=solid,fillcolor=white](0,6,8.5){\Rectangle(-6,-0.5)(6,0.7)}
\textThreeDput[normale=0 90,linewidth=0,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima](0,6,8.5){Station PSTricks}
\textThreeDput[normale=0 0,xO=0,yO=2,linewidth=0,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima,fontscale=2](6.25,0,3){PST-V3D}
\textThreeDput[normale=0 0,xO=0,yO=0,linewidth=0,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima,fontscale=1.5](6.25,0,3){TERMINUS}
\end{pspicture}
\end{center}
 
\begin{center}
\begin{pspicture}(-8,-6)(8,14)
\psset{THETA=50,PHI=30,Dobs=30,Decran=20,nF=96,nH=24,todraw=false}
\psset[pst-V3D]{thetaLight=30,phiLight=20,dLight=50,hsbcolor=0.5 0.5,d=1e6}
\planThreeDput[fillstyle=solid,fillcolor=Orange,normale=90 -90]{\Rectangle(-10,-10)(10,10)}
\planThreeDput[gridcolor=white,normale=90 -90,fontscale=0.5]{\Grille(-10,-10)(10,10)}
\psCylindre[hsbcolor=0.2 0.8](-6,-6,0){0.5}{8}
\psCube[A=0.5,B=11,C=6,hsbcolor=0.3 0.2](-6,0,4)
\psCylindre[hsbcolor=0.2 0.8](-6,6,0){0.5}{8}
\psCylindre[hsbcolor=0.2 0.8](6,-6,0){0.5}{8}
\psCube[A=0.5,B=11,C=6,hsbcolor=0.3 0.2](6,0,4)
\psCylindre[hsbcolor=0.2 0.8](6,6,0){0.5}{8}
\psCylindricalPortion[interior=true,RotZ=180,RotX=90](0,-6,8){6}{12}
\planThreeDput[normale=0 90,fillstyle=solid,fillcolor=white](0,6,8.5){\Rectangle(-6,-0.5)(6,0.7)}
\textThreeDput[normale=0 90,linewidth=0,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima](0,6,8.5){Station PSTricks}
\textThreeDput[normale=0 0,xO=0,yO=2,linewidth=0,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima,fontscale=2](6.25,0,3){PST-V3D}
\textThreeDput[normale=0 0,xO=0,yO=0,linewidth=0,linecolor=red,fillstyle=solid,fillcolor=red,PSfont=Optima,fontscale=1.5](6.25,0,3){TERMINUS}
\end{pspicture}
\end{center}
\end{document}