Retour

a_parameter.tex

Télécharger le fichier Fichier PDF
Image PNG
\documentclass{article}
\usepackage{pst-solides3d}
\makeatletter
\def\lightsource{
\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}%
\psset{lightsrc=Lx Ly Lz}
}
\makeatother
\begin{document}
\pagestyle {empty}
 
\begin{center}
\begin{pspicture}(-4,-4)(4,4)
\psset{viewpoint=10 3 3,Decran=80}
\psset{solidmemory}
\psSolid[object=octahedron,
   a=1, %% radius of sphere wich contains octahedron
   fillcolor=orange,
   name=my_tetrahedron,
   action=none]
\psSolid[object=calottesphere,
   r=1, %% radius of sphere
   phi=-90, theta=0,
   ngrid=18 36,
   name=my_sphere,
   incolor=cyan,
   hue=.4 .5,
   hollow,
   action=none]
\psSolid[object=fusion,
   base=my_sphere my_tetrahedron
]
\composeSolid
\end{pspicture}
\end{center}
 
\end{document}