PSTricks

Samedi 19 Juillet 2008

/pst-solides3d/objfusion/anneaux.png
LaTeX PDF

Retour, répertoire : /pst-solides3d/objfusion

anneaux.pst
%% Auteur : Manuel Luque
%%
\begin{pspicture}(-5,-4)(3,3)
\psset{lightsrc=50 50 50,viewpoint=40 50 60,Decran=30,unit=0.85}
\psframe(-5,-4)(3,3)
\codejps{
 /anneau1 {
    1 7 [12 36] newtore
    {0 0 0 translatepoint3d} solidtransform
    dup (White) outputcolors
 } def
 /anneau2 {
    1 7 [12 36] newtore
    {90 0 0 rotateOpoint3d} solidtransform
    {7 0 0 translatepoint3d} solidtransform
    dup (White) outputcolors
 } def
 /collier {
    anneau1 anneau2 solidfuz
 } def
 collier drawsolid**}
\end{pspicture}

138989 — durée de production de la page: 0.2851 s