[pstricks] Re : plansepare with a surface

[Manuel Luque]

 Dear Markus,

Is this what you want?

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

 


 \documentclass{article}
\usepackage{pst-solides3d}
\begin{document}

\begin{center}
\psset{lightsrc=viewpoint,viewpoint=50 60 25 rtp2xyz,Decran=50}
\begin{pspicture}(-5,-3)(6,6)
\psSolid[object=grille,base=-4 4 -4 4,action=draw]%
\psSolid[object=new,fillcolor=red!50,incolor=yellow,
    hollow,
    a=15, %% nb d’etages
    b=36, %% diviseur de 360, nb de meridiens
    h=2, %% hauteur 0<z<2
    sommets=
    a -1 0 { % z
    /k exch def
    0 1 b 1 sub {
    /i exch def
     /r 4 h a div k mul sub sqrt 2 mul def
    360 b idiv i mul cos r mul
    360 b idiv i mul sin r mul
    h a div k mul
    } for
    } for,
    faces={
    0 1 a 1 sub {
    /k exch def
    k b mul 1 add 1 k 1 add b mul 1 sub {
    /i exch def
    [i i 1 sub b i add 1 sub b i add]
    } for
    [k b mul k 1 add b mul 1 sub k 2 add b mul 1 sub k 1 add b mul]
} for}](0,0,0)
\defFunction[algebraic]%
  {parabel}(t)
  {t}{0}{-1/4*t^2+4}
\psSolid[object=courbe,
 function=parabel,range=0 4,
 r=0,linecolor=red,
 linewidth=2pt]
\gridIIID[Zmin=0,Zmax=4,spotX=r](-4,4)(-4,4)
 \end{pspicture}
\end{center}

\end{document}


 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


It is an example from this :

http://melusine.eu.org/lab/bjps/solide/tour.jps


Best regards,

M.L

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20110226/af7ed122/attachment.html>