\input fig4tex.tex
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%% DEBUT DESSIN
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\figinit{.8truept}
% pt pour l'intersection
\figpt 1:(0,40)\figpt 2:(0,-40)\figpt 3:(-20,0)\figpt 4:(20,0)
\figpt 10:(-50,50)\figpt 11:(-50,-50)\figpt 12:(-90,0)
\figpt 20:(50,40)\figpt 21:(50,-40)\figpt 22:(80,0)
%
% ecriture de A et B
\figpt 16:(-100,10)\figpt 15:(90,10)
%%%%%%%%%%%%%%%%%%%%%
%% fichier graphique
%%%%%%%%%%%%%%%%%%%
\figdrawbegin{}
\figset curve(roundness ={0.23}) %pour lisser
\figset (fillmode=yes, color=0.6)
\figdrawcurve[11,2,4,1,10]\figdrawcurve[20,1,3,2,21]
\figset (fillmode=no)\figdrawline[1,2]
\figset (color=0)
\figdrawcurve[11,2,4,1,10,12,11,2,4,1]
\figdrawcurve[20,1,3,2,21,22,20,1,3,2]
\figdrawend
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\figvisu{\figBoxA}{\boxit{3pt}{$A\cap B=\{x\,|\,x\in A\,\hbox{ et }\,x\in B\}$}}{
\figwritec [15]{$B$}
\figwritec [16]{$A$}
\figshowpts[1,2]
}
%%%%%%%%%%%%%%%%%%%%%
%% fichier graphique
%%%%%%%%%%%%%%%%%%%
\figdrawbegin{}
\figset curve(roundness ={0.23}) %pour lisser
\figset (fillmode=yes, color=0.6)
\figdrawcurve[11,2,4,1,10,12,11,2,4,1]
\figdrawcurve[20,1,3,2,21,22,20,1,3,2]
\figset (fillmode=no, color=0)
\figdrawcurve[11,2,4,1,10,12,11,2,4,1]
\figdrawcurve[20,1,3,2,21,22,20,1,3,2]
\figdrawend
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\figvisu{\figBoxB}{\boxit{3pt}{$A\cup B=\{x\,|\,x\in A\,\hbox{ ou }\,x\in B\}$}}{
\figwritec [15]{$B$}
\figwritec [16]{$A$}
}
%%%%%%%%%%%%%%%%%%%%%
%%%% FIN DESSIN
\bigskip
\centerline{\box\figBoxA\hfil\box\figBoxB}
\bye