\input fig4tex.tex
%
% 1. Definition of characteristic points
\figinit{2cm}
\figpt 1:(1, 1)
%\figpt 4:(2.621, -5)
\figpt 4:(3.032, -2)
\figpt 5:(4, 5)
%
\def\Xrad{2}\def\Yrad{3}\def\Incli{30}
\figptell 10::1;\Xrad,\Yrad( 0,\Incli)
\figptell 11::1;\Xrad,\Yrad(90,\Incli)
\figptsinterlinellP 2 [1,10,11 ; 4,5]
%
% 2. Creation of the postscript file
\figdrawbegin{}
\figdrawarcell 1;\Xrad,\Yrad(0,360,\Incli)
\figdrawline[4,5]
\figdrawend
% 3. Writing text on the figure
\figvisu{\figBoxA}{Points 2, 3 = intersection ellipse-line}{%
\figset write(mark=$\times$, ptname={\bf #1})
\figwritee 2,3,4,5:(0.1)
\figset write(mark=$\figBullet$)
\figwriten 1,11:(0.1)
\figwritene 10:(0.1)
}
\centerline{\box\figBoxA}
\bye