<font color='black' size='2' face='Arial, Helvetica, sans-serif'>
<div> Léon,<br>

<br>

</div>



<div> What you do is beautiful!<br>


<br>


This is a version that tries to smooth the sides of the facets in the 
manner of Mathematica (who does so beautifully!). The computations of 
cutting are very long. The resulting files are here.<br>

<br>

http://manuel.luque.perso.neuf.fr/solids-revolution/pst-solrev/plan2.tex<br>

http://manuel.luque.perso.neuf.fr/solids-revolution/pst-solrev/plan2.pdf<br>

http://manuel.luque.perso.neuf.fr/solids-revolution/pst-solrev/SurfaceXplane0-sommets.dat<font size="2"><font face="Arial, Helvetica, sans-serif"><br>
etc<br>
</font></font>
<br>


I use it for a version of pst-solides3d (pst-solrev) which is in the 
directory. <br>

<br>

http://manuel.luque.perso.neuf.fr/solids-revolution/pst-solrev/<br>

<br>

It is not very developed, a draft documentation is in the 
same directory.<br>


In the end, it is not very interesting for your problem, but here is another test...
</div>





<div> <br>

</div>



<div> Best regards,<br>

<br>

ML</div>
<font color="black" face="Arial, Helvetica, sans-serif" size="2">

<div> <br>

</div>



<div> <br>

</div>



<div style="clear:both"></div>



<div> <br>

</div>



<div> <br>

</div>



<div style="font-family:arial,helvetica;font-size:10pt;color:black">-----E-mail d'origine-----<br>

De : Leon Free <leon.free@free.fr><br>

A: Graphics with PSTricks <pstricks@tug.org><br>

Cc: Manuel Luque <mluque5130@aol.com><br>

Envoyé le : Lundi, 18 Juillet 2011 14:04<br>

Sujet : Re: [pstricks] Re : Re : Re : pst-solides3d and parametric surfaces<br>

<br>









<div id="AOLMsgPart_0_469d6a34-568c-4178-a7f0-1b48659db304" style="margin: 0px;font-family: Tahoma, Verdana, Arial, Sans-Serif;font-size: 12px;color: #000;background-color: #fff;">

<pre style="font-size: 9pt;"><tt>Le 16/07/2011 08:37, Manuel Luque a écrit :
> Second draft.
> The "properly" computed and draw trace of the intersection.
> Happy holidays. Goodbye
> 
> ML
> 

Manuel,
Thank you again for spending so much of your time on finding a solution.
Your first attempt did work fastly and perfectly and I made my own
modifications to produce exactly what I initially aimed at (namely
illustrating the notion of directional derivative, as you may guess...)
Your second attempt is soooooo slow in generating the dat files...
In my modifications (see attachements), I made two files to make a
separation :
* 1 file is for generating once and forall the dat files
* 1 file is for adding to these elements other parts of the graphic and
producing the pdf.
Generation of the dat files is much faster that way

> \documentclass{article}
> \usepackage[dvipsnames,svgnames]{xcolor}
> \usepackage{pst-solides3d}
> \begin{document}
> \begin{center}
> %\codejps{
> %/biface false def
> %-.5 3 0.85 3.5 [0.1 0.1]
> %{/y exch def
> % /x exch def
> %%-.35*x^2-(y-2)*(y-1.5)+(x*.2*y)+4.5
> % -0.35 x dup mul mul
> %  y 2 sub y 1.5 sub mul sub
> %  0.2 x mul y mul add
> %  4.5 add }
> %  true
> %  newsurfaceparametree
> %(Surface) writesolidfile
> % }
>  \begin{pspicture}(-4,-4)(7,10)
>  \psset{lightsrc=viewpoint,viewpoint=100 30 35 rtp2xyz,Decran=150}
> %\psset{solidmemory}
> %\psSolid[object=new,fillcolor={[rgb]{0.5 0.72 0.5}},incolor=yellow!20,
> %    linewidth=0.5\pslinewidth,
> %    hollow,
> %    sommets={(Surface-sommets.dat) run},
> %    faces={(Surface-faces.dat) run},
> %    plansepare={[0.707 0.707 0 -2.5]},
> %    name=SurfaceXplane,
> %    action=none]
> %\psSolid[object=load,
> %   load=SurfaceXplane1,
> % enregistre les caractéristiques du solide
> %   file=SurfaceXplane1,
> %   action=writesolid
> %   ]%
> %\psSolid[object=load,
> %   load=SurfaceXplane0,
> % enregistre les caractéristiques du solide
> %   file=SurfaceXplane0,
> %   action=writesolid
> %   ]%
> \axesIIID(0,0,0)(5,5,7)
> \psPoint(0,0,0){O}
> \psPoint(0.707 2.5 mul,0.707 2.5 mul,0){H}\psdot(H)
> \psline(O)(H)
> \psSolid[object=datfile,
>          hollow,
>          incolor=yellow!30,
>          fillcolor=red!30,
>          linewidth=0.5\pslinewidth,
>          rm=0 508,
>          file=SurfaceXplane1]
> \psSolid[object=plan,
> %          definition=equation, args={[0.707 0.707 0 -2.5] 180 },
>           definition=normalpoint,
>           args={0.707 2.5 mul 0.707 2.5 mul 0 [0 0 1 0.707 0.707 0 -90]},
>           opacity=.5,
>           plangrid,planmarks,showBase,
>           fillcolor=ForestGreen!20, linecolor=gray!50,base=-3 3 0 5]
> \psSolid[object=datfile,
>          hollow,
>          incolor=yellow!30,
>          fillcolor=red!30,
>          linewidth=0.5\pslinewidth,
>          rm=0 456,
> %         intersectiontype=0,
> %         intersectionplan={ [0.707 0.707 0 -2.51]
> },intersectioncolor=(rouge),
> %         intersectionlinewidth=2,
>          file=SurfaceXplane0]
> \pstVerb{/yInter {2.5 0.707 t mul sub 0.707 div} def}%
> \defFunction{intersection}(t){t}{yInter}{%
>  -0.35 t dup mul mul
>   yInter 2 sub yInter 1.5 sub mul sub
>   0.2 t mul yInter mul add
>   4.5 add}
> \psSolid[object=courbe,r=0,
>         range=0.045 2.8,
>         linecolor=red,
>         linewidth=2\pslinewidth,
>         function=intersection]%
>       \end{pspicture}
> \end{center}
> \end{document}
> 
> 
> 
> 
> 
> 
> <<a href="http://www.tug.org/pipermail/pstricks/" target="_blank">http://www.tug.org/pipermail/pstricks/</a>>
> 
> 
> _______________________________________________
> PSTricks mailing list
> <a href="mailto:PSTricks@tug.org">PSTricks@tug.org</a>
> <a href="http://tug.org/mailman/listinfo/pstricks" target="_blank">http://tug.org/mailman/listinfo/pstricks</a>
> archive: <a href="http://www.tug.org/pipermail/pstricks/" target="_blank">http://www.tug.org/pipermail/pstricks/</a>

</tt></pre>
</div>

 <!-- end of AOLMsgPart_0_469d6a34-568c-4178-a7f0-1b48659db304 -->



</div>

</font></font>