\documentclass{article} \usepackage{pst-solides3d} \begin{document} \pagestyle{empty} \section{Coupe d'un c\^one} \subsection{Plan parall\`ele \`a l'axe} \begin{center} \begin{pspicture}(-5,-6)(8,7) \psset{viewpoint=50 -30 20 rtp2xyz,Decran=50} \makeatletter \pstVerb{\pst@solides@viewpoint /PhI exch def /ThetA exch def /Dist exch def /Lx Dist ThetA cos mul PhI cos mul def /Ly Dist ThetA sin mul PhI cos mul def /Lz Dist PhI sin mul def}% \makeatother \psset{lightsrc=Lx Ly Lz} \psframe[fillstyle=solid,fillcolor=gray!50](-5,-6)(8,7)% \psSolid[object=grille,base=-4 4 -4 8,linecolor={[rgb]{0.72 0.72 0.5}}](0,0,-5) \psset{solidmemory} \psSolid[object=cone, r=3,h=5, ngrid=12 24, plansepare={[1 0 0 -1]}, fillcolor={[rgb]{0.5 0.72 0.5}}, name=part, action=none](0,0,-5) \psSolid[object=load,% action=draw,numfaces=all, fcol=241 (0.5 0.7 0.5 setrgbcolor), load=part1](0,0,0) \psSolid[object=load,RotZ=90, load=part0](0,5,0) \codejps{ /cone2 5 3 0 [12 24] newcone dup solidfacesreverse dup (0.7 1 0.7 setrgbcolor) outputcolors def} \psSolid[object=load,plansepare={[1 0 0 -1]}, load=cone2,action=none,name=haut](0,0,0) \psSolid[object=load,% action=draw,numfaces=all, fcol=241 (0.5 0.7 0.5 setrgbcolor), load=haut1](0,0,0) \psSolid[object=load,RotZ=90, load=haut0](0,5,0) \psSolid[object=grille,RotY=90,base=-5 5 -3 3,ngrid=8 6,action=draw,linecolor=red](1,0,0) \axesIIID[linecolor=blue](0,0,5)(4,4,6) \end{pspicture} \end{center} \end{document}