\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}