test_hemisphere.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{cylindre_object.tex}
\input{sphericalcap_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=20,PHI=10,Dobs=30,Decran=10,unitgrid=18}
\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)}
\psCapSphere(0,0,10){5}
\psCylindre[nF=20,fillstyle=solid,fillcolor=yellow,nH=5,interior=true](0,0,0){2}{10}
\psCapSphere[fillstyle=solid,fillcolor=gray,startlatitude=30,RotX=180](0,7,5){5}
\end{pspicture}
\end{center}
 
\begin{center}
\begin{pspicture}(-5,-6)(6,10)
\psset{THETA=60,PHI=30,Dobs=30,Decran=10}
\planThreeDput[fillstyle=solid,fillcolor=Orange,normale=90 -90]{\Rectangle(-10,-20)(10,20)}
\planThreeDput[gridcolor=white,normale=90 -90,fontscale=0.5]{\Grille(-10,-20)(10,20)}
\multido{\ny=-17+5}{8}{%
\psCapSphere[startlatitude=30](0,\ny,30 sin 2.5 mul neg){2.5}}
\psCube[A=4](5,15,2)
\psCapSphere[startlatitude=30,linestyle=none](5,15,30 sin 2 mul neg 4 add){2}
\end{pspicture}
\end{center}
 
\end{document}