[pstricks] R: Re : Fwd: PSTricks code -- pst-solides3d

[Herbert Voss]

Am 13.09.2011 16:43, schrieb Carlo Alberini:

> It is an easy example of code concerning intersections between planes. The problems are:
>
> 1) how can I paint them with transparent colors (in order to see better the 3D) (my resulting pdf file is very ugly...)
> 2) how can I draw the intersection lines among them with different colors?

Carlo,
draw it as a fusion object than it is obvious what are the
intersections:

\documentclass[11pt]{article}
\usepackage{pst-solides3d}
\begin{document}

\psset{unit=2.0}
\begin{pspicture}(-2,-2)(2,2)
\psset{viewpoint=25 20 45 rtp2xyz,Decran=20,lightsrc=viewpoint,solidmemory}
\axesIIID[linecolor=blue](0,0,0)(4,5,4)
\psSolid[object=plan,definition=equation,
    args={[1 2 -1 1]},
%    args={[1 0 0 -1]},
     fillcolor=blue!50,
     base=-2.7 2.7 -4.0 3.5,ngrid=30 30,
     action=none,
     name=Plane1%,showBase
     ]
\psSolid[object=plan,definition=equation,
    args={[1 1 1 0]},
%    args={[1 0 0 -1]},
     fillcolor=red!50,
%    plansection={[1 2 -1 1] [1 3 1 2]},
     base=-2 2 -2.5 2.5,
     ngrid=30 30,
     action=none,
     name=Plane2, %intersectioncolor=(bleu)%,showBase
     ]
\psSolid[object=plan,definition=equation,
     args={[1 3 1 2]},
%    args={[1 0 0 -1]},
     fillcolor=blue!50,
     base=-0.85 2.57 -4.7 2.5,ngrid=30 30,
     action=none,
     name=Plane3%,showBase
     ]
\psSolid[object=fusion,base=Plane1_s Plane2_s Plane3_s]
\end{pspicture}

\end{document}

Herbert
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Bildschirmfoto.png
Type: image/png
Size: 107288 bytes
Desc: not available
URL: <http://tug.org/pipermail/pstricks/attachments/20110913/92704199/attachment-0001.png>