[pstricks] Re : pst-solides3d and parametric surfaces

Leon Free leon.free at free.fr
Wed Jul 13 00:08:43 CEST 2011


great ! works fine.
your first draft helps a lot.
many thanks for your efforts.

could you explain what this part of the code is actually doing and why
it should be commented after the first latex+dvips(+ps2pdf) run :

%\psset{solidmemory}
%\psSolid[object=datfile,
%   file=Surface,
%   plansepare={[0.707 0.707 0 -2.5]},
%   name=surface,
%   action=none]
%\psSolid[object=load,
%  load=surface1,
%   file=surface1,action=writesolid]
%\psSolid[object=load,
%   load=surface0,
%   file=surface0,action=writesolid]



Le 12/07/2011 18:42, Manuel Luque a écrit :
> Leon Free Wrote :
> 
> 
>>i want to obtain the same result when the vertical plane P need not be
>>parallel to one of the axis, ie P={(x,y,z) : ax+by+c=0} with a,b both
>>nonzero (and (obivously) has a non empty intersection with the surface)
> 
> 
> A first draft. Uncomment the following lines to write the files. dat
> 
> \documentclass{article}
> \usepackage[dvipsnames,svgnames]{xcolor}
> \usepackage{pst-solides3d}
> \begin{document}
> \begin{center}
> %\codejps{
> %/biface false def
> %-.5 3 0.85 3.5 [0.2 0.2]
> %{/y exch def
> % /x exch def
> % -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 35 30 rtp2xyz,Decran=150}
> %\psset{solidmemory}
> %\psSolid[object=datfile,
> %   file=Surface,
> %   plansepare={[0.707 0.707 0 -2.5]},
> %   name=surface,
> %   action=none]
> %\psSolid[object=load,
> %  load=surface1,
> %   file=surface1,action=writesolid]
> %\psSolid[object=load,
> %   load=surface0,
> %   file=surface0,action=writesolid]
> \axesIIID(0,0,0)(5,5,7)
> \psSolid[object=datfile,
>          hollow,
>          rm=0,
>          file=surface1]
> \psSolid[object=plan,
>           definition=equation, args={[0.707 0.707 0 -2.5] },opacity=.5,
>           plangrid,
>           fillcolor=ForestGreen!20, linecolor=gray!50,base=-6 0 -6 0]
> \psSolid[object=datfile,
>          hollow,
>          rm=0,
>          intersectiontype=0,
>          intersectionplan={ [0.707 0.707 0 -2.51]
> },intersectioncolor=(rouge),
>          intersectionlinewidth=2,
>          file=surface0](0,0,0)
>       \end{pspicture}
> \end{center}
> \end{document}
> 
> 
> ML
> 
> 
> 
> 
> _______________________________________________
> PSTricks mailing list
> PSTricks at tug.org
> http://tug.org/mailman/listinfo/pstricks
> archive: http://www.tug.org/pipermail/pstricks/




More information about the PSTricks mailing list