[pstricks] Re : plansepare with a surface
Markus Krebs
markuskrebs at web.de
Sat Feb 26 16:59:52 CET 2011
Dear Manuel!
Thanks for your help! This is not exactly what I want.
The plane cutting the paraboloid shoud be the xz-plane: y = 0
Restricting the values for y, here y < 0 should do the job.
h=2, %% hauteur 0<z<2
-4 < y < 0
Is this possible?
Thank You for Your help!
Markus
Am 26.02.2011 15:52, schrieb 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
>
>
> _______________________________________________
> PSTricks mailing list
> PSTricks at tug.org
> http://tug.org/mailman/listinfo/pstricks
> archive: http://www.tug.org/pipermail/pstricks/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20110226/a3b9909e/attachment.html>
More information about the PSTricks
mailing list