[pstricks] hidden lines in pst-solides3d

[Jean-Paul Vignault]

 > Dear Zbigniew,
 >
 > within \codejps you cannot use the PSTricks commands -- you need to
 > use the codejps commands.

With the code below for example,

\begin{pspicture}(-6,-3)(6,3)

\defFunction{mobius}(u,v)
{2 u v Cos mul add 2 v mul Cos mul}
{2 u v Cos mul add 2 v mul Sin mul}
{u v Sin mul}

\defFunction{centercircle}(t)
{2 t mul Cos 2 mul}
{2 t mul Sin 2 mul}
{0}

\psset[pst-solides3d]{viewpoint=20 10 15,Decran=40,lightsrc=10 20 10}
\psSolid[object=courbe,
range= 0 pi,
linewidth=1.5\pslinewidth,
linecolor=blue,
function=centercircle,
ngrid=1,r=0]

\psSolid[object=surfaceparametree, linewidth=0.5\pslinewidth,
base=-0.4 0.4 0 pi, fillcolor=lightgray!30, incolor=white,
function=mobius,
name=Band,
ngrid=.05]

\codejps{
%.8 setgray %% linecolor
Band
-0.35 0.35 3.5 {
    /rv exch def
       rv Sin rv 2 mul Cos mul neg
       rv Sin rv 2 mul Sin mul neg
       rv Cos
       newvecteur
       {rv 2 mul Cos 2 mul
        rv 2 mul Sin 2 mul
        0
        addv3d
       } solidtransform
       dup (.8 setgray) solidputcolors
       solidfuz
} for
draw**
}
\end{pspicture}

Regards,

Jean-Paul