[pstricks] colors in a fusion (pst-solides3d)

[Nitecki, Zbigniew H.]

The following code
\begin{pspicture*}(-3,-2.0)(5,3.5)
\psset{solidmemory}
\psset{unit=0.5}
\psset{lightsrc=40 180 30,viewpoint=18 40 25 rtp2xyz},

\defFunction{fcone}(t,u)%
{t u cos mul}%
{t u sin mul}%
{t}%
\psSolid[object=surfaceparametree,
linecolor=gray,
base=-1 1 0 360,
fillcolor=lightgray,
incolor=lightgray,
intersectiontype=0,
intersectionplan=0 0 1 -0.5,
intersectionlinewidth=1,
intersectioncolor=rouge,
function=fcone,
ngrid=80,
grid,
action=none,
name=con,
]
\defFunction[algebraic]{A}(t){0}{0}{t}
\psSolid[object=courbe,
linewidth=1,
r=0.01,
linecolor=red,
range=0 2,
resolution=200,
function=A,
action=none,
name=firstline,
]
\defFunction[algebraic]{B}(t){0}{t}{t}
\psSolid[object=courbe,
linewidth=1,
r=0.01,
linecolor=blue,
range=0 2,
resolution=200,
function=B,
action=none,
name=gen,
]
\defFunction{C}(t){0.5 t sin mul}{0.5 t cos mul}{0.5}
\psSolid[object=courbe,
linewidth=1,
r=0.01,
linecolor=green,
range=0 360,
resolution=360,
function=C,
action=none,
name=circ,
]
\psSolid[object=fusion,
deactivatecolor,
action=draw**,
grid,
base=con firstline gen circ,
]
\composeSolid
\pstThreeDPut(-0.5,2.5,1){origin}
\pstThreeDPut(0,10,10){\textcolor{blue}{generator}}
\pstThreeDPut(0,0,7){\textcolor{red}{axis}}
\pstThreeDPut(0.5,-3.5,0){\textcolor{green}{$\mathcal{C}$}}

\end{pspicture*}

yields the following output:
-------------- next part --------------
A non-text attachment was scrubbed...
Name: PictureQuery.pdf
Type: application/pdf
Size: 297230 bytes
Desc: PictureQuery.pdf
URL: <http://tug.org/pipermail/pstricks/attachments/20110718/a9e13e77/attachment-0001.pdf>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20110718/a9e13e77/attachment-0001.htm>