Retour

calcjps.tex

Télécharger le fichier Fichier PDF
Image PNG
\documentclass{article}
\usepackage{pst-solides3d}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\pagestyle{empty}
\usepackage[a4paper,bottom=2.5cm,top=2cm]{geometry}
\makeatletter
\begin{document}
 
\begin{center}
\psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=50}
\begin{pspicture*}(-5,-4)(6,4)
\psframe(-5,-4)(6,4)
\psset{solidmemory}
\psSolid[object=cube,
   trunc=all,
   trunccoeff=.3,
   fillcolor=cyan,
   name=A1,
   numfaces=all
]
\codejps{
   A1 6 solidcentreface 
   /z0 exch def
   /y0 exch def
   /x0 exch def
   A1 6 solidnormaleface /v defpoint3d
}
\psSolid[object=vecteur,
   args=v](x0,y0,z0)
\codejps{
   A1 4 2 copy
   solidcentreface 
   /z0 exch def
   /y0 exch def
   /x0 exch def
   solidnormaleface /v defpoint3d
}
\psSolid[object=vecteur,
   args=v](x0,y0,z0)
\codejps{
   A1 9 2 copy
   solidcentreface 
   /z0 exch def
   /y0 exch def
   /x0 exch def
   solidnormaleface /v defpoint3d
}
\psSolid[object=vecteur,
   args=v](x0,y0,z0)
\codejps{
   A1 0 2 copy
   solidcentreface 
   /z0 exch def
   /y0 exch def
   /x0 exch def
   solidnormaleface /v defpoint3d
}
\psSolid[object=vecteur,
   args=v](x0,y0,z0)
\composeSolid
\end{pspicture*}
\end{center}
 
\end{document}