<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>