\documentclass{article}
\usepackage{pst-V3D}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}\input{tetrahedral_object.tex}
\input{cylindre_object.tex}
\def\Rectangle(#1,#2)(#3,#4){
newpath
#1 #2 moveto
#3 #2 lineto
#3 #4 lineto
#1 #4 lineto
closepath }
\definecolor{bleupale}{rgb}{0.8 .8 1}
\pagestyle{empty}
\begin{document}
\begin{center}
\begin{pspicture*}(-8,-6)(7,6)
\psframe(-8,-6)(7,6)
\psset{THETA=-10,PHI=30,Dobs=30,Decran=20}
\planThreeDput[fillstyle=solid,fillcolor=bleupale,normale=90 -90]{\Rectangle(-10,-10)(10,10)}
\planThreeDput[normale=90 -90,fontscale=0.5]{\Grille(-10,-10)(10,10)}
\psCylindre[nF=20,nH=2](-8,0,0){1}{4}
\psCylindre[nF=15,nH=5,RotX=-90,RotZ=45](-4,5,1){1}{5}
\psTetrahedron[radius=2,RotZ=0,arete=false,d=5](0,5,2 3 div)
\psTetrahedron[radius=2.5,RotZ=50](0,-5,2.5 3 div)
\psTetrahedron[radius=2.5,RotZ=45,d=2](7,0, 2.5 3 div)
\psTetrahedron[radius=1,d=1e6,RotZ=30](5,-7, 1 3 div)
\end{pspicture*}
\end{center}
\end{document}

—
Syracuse — Dernière modification : 18 août 2006 (0.07s - 3835290 - 5 décembre 2008)