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

<div> Second draft.<br>
The "properly" computed and draw trace of the intersection.<br>
Happy holidays. Goodbye<br>
<br>
ML<br>
<br>
\documentclass{article}<br>
\usepackage[dvipsnames,svgnames]{xcolor}<br>
\usepackage{pst-solides3d}<br>
\begin{document}<br>
\begin{center}<br>
%\codejps{<br>
%/biface false def<br>
%-.5 3 0.85 3.5 [0.1 0.1]<br>
%{/y exch def<br>
% /x exch def<br>
%%-.35*x^2-(y-2)*(y-1.5)+(x*.2*y)+4.5<br>
% -0.35 x dup mul mul<br>
%  y 2 sub y 1.5 sub mul sub<br>
%  0.2 x mul y mul add<br>
%  4.5 add }<br>
%  true<br>
%  newsurfaceparametree<br>
%(Surface) writesolidfile<br>
% }<br>
 \begin{pspicture}(-4,-4)(7,10)<br>
 \psset{lightsrc=viewpoint,viewpoint=100 30 35 rtp2xyz,Decran=150}<br>
%\psset{solidmemory}<br>
%\psSolid[object=new,fillcolor={[rgb]{0.5 0.72 0.5}},incolor=yellow!20,<br>
%    linewidth=0.5\pslinewidth,<br>
%    hollow,<br>
%    sommets={(Surface-sommets.dat) run},<br>
%    faces={(Surface-faces.dat) run},<br>
%    plansepare={[0.707 0.707 0 -2.5]},<br>
%    name=SurfaceXplane,<br>
%    action=none]<br>
%\psSolid[object=load,<br>
%   load=SurfaceXplane1,<br>
% enregistre les caractéristiques du solide<br>
%   file=SurfaceXplane1,<br>
%   action=writesolid<br>
%   ]%<br>
%\psSolid[object=load,<br>
%   load=SurfaceXplane0,<br>
% enregistre les caractéristiques du solide<br>
%   file=SurfaceXplane0,<br>
%   action=writesolid<br>
%   ]%<br>
\axesIIID(0,0,0)(5,5,7)<br>
\psPoint(0,0,0){O}<br>
\psPoint(0.707 2.5 mul,0.707 2.5 mul,0){H}\psdot(H)<br>
\psline(O)(H)<br>
\psSolid[object=datfile,<br>
         hollow,<br>
         incolor=yellow!30,<br>
         fillcolor=red!30,<br>
         linewidth=0.5\pslinewidth,<br>
         rm=0 508,<br>
         file=SurfaceXplane1]<br>
\psSolid[object=plan,<br>
%          definition=equation, args={[0.707 0.707 0 -2.5] 180 },<br>
          definition=normalpoint,<br>
          args={0.707 2.5 mul 0.707 2.5 mul 0 [0 0 1 0.707 0.707 0 -90]},<br>
          opacity=.5,<br>
          plangrid,planmarks,showBase,<br>
          fillcolor=ForestGreen!20, linecolor=gray!50,base=-3 3 0 5]<br>
\psSolid[object=datfile,<br>
         hollow,<br>
         incolor=yellow!30,<br>
         fillcolor=red!30,<br>
         linewidth=0.5\pslinewidth,<br>
         rm=0 456,<br>
%         intersectiontype=0,<br>
%         intersectionplan={ [0.707 0.707 0 -2.51] },intersectioncolor=(rouge),<br>
%         intersectionlinewidth=2,<br>
         file=SurfaceXplane0]<br>
\pstVerb{/yInter {2.5 0.707 t mul sub 0.707 div} def}%<br>
\defFunction{intersection}(t){t}{yInter}{%<br>
 -0.35 t dup mul mul<br>
  yInter 2 sub yInter 1.5 sub mul sub<br>
  0.2 t mul yInter mul add<br>
  4.5 add}<br>
\psSolid[object=courbe,r=0,<br>
        range=0.045 2.8,<br>
        linecolor=red,<br>
        linewidth=2\pslinewidth,<br>
        function=intersection]%<br>
      \end{pspicture}<br>
\end{center}<br>
\end{document}<br>
<br>
<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"><br>

<div id="AOLMsgPart_3_77ccdb4f-e52e-411a-babc-cc4966c307d3" style="margin: 0px;font-family: Tahoma, Verdana, Arial, Sans-Serif;font-size: 12px;color: #000;background-color: #fff;">
</div>
<tt><a href="http://www.tug.org/pipermail/pstricks/" target="_blank"></a>
</tt>
 <!-- end of AOLMsgPart_3_77ccdb4f-e52e-411a-babc-cc4966c307d3 -->



</div>

</font></font>