Retour

octahedron_08.tex

Télécharger le fichier Fichier PDF
Image PNG
\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle {empty}
 
\begin{center}
\begin{pspicture}(-4,-4)(4,4)
\psset{lightsrc=50 30 20,viewpoint=20 10 5,Decran=50}
\psset{solidmemory}
\psSolid[object=octahedron,
   a=2,
   trunc=all,
   trunccoeff=.3333,
%   numfaces=all,
%   visibility=false,
   name=myoctahedron,
   action=none]
\codejps{
myoctahedron 10 solidcentreface /A1 defpoint3d
myoctahedron 12 solidcentreface /B1 defpoint3d
myoctahedron 12 solidnormaleface /vb1 defpoint3d
myoctahedron 10 solidnormaleface /va1 defpoint3d
A1 va1 2 mulv3d addv3d /C1 defpoint3d
B1 vb1 2 mulv3d addv3d /D1 defpoint3d
}
\psSolid[object=line,
   base=C1 D1
]
\psSolid[object=load,
   load=myoctahedron,
   hue=.5 .6,
   action=draw*
]
\psSolid[object=point,
   args=A1,
   linecolor=red,
]
\psSolid[object=point,
   args=B1,
   linecolor=red,
]
\psSolid[object=line,
   linestyle=dashed,
   base=A1 D1
]
\psSolid[object=line,
   base=C1 A1
]
\composeSolid
\end{pspicture}
\end{center}
 
\end{document}