\input fig4tex.tex
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%% DEBUT DESSIN
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\figinit{1.0pt}
% pt de la courbe A
\figpt 1:(-100,20)
\figpt 2:(-30,70)\figpt 3:(50,50)
\figpt 4:(80,0)\figpt 5:(30,-40)
\figpt 6:(-30,0)\figpt 7:(-80,-20)
% pt de la courbe B
\figpt 8:(-30,30)\figpt 9:(0,40)\figpt 10:(50,30)
\figpt 12:(50,-30)\figpt 13:(20,-20)
\figpt 14:(0,15)%
% ecriture de A et B
\figpt 16:(-60,20)\figpt 15:(20,20)
%%%%%%%%%%%%%%%%%%%%%
%% fichier graphique
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\pscurve[1,2,3,4,5,6,7,1,2,3]
\pssetfillmode{yes}\pssetgray{0.6}
\pscurve[8,9,10,12,13,14,8,9,10]
\pssetfillmode{no}\pssetgray{0}
\pscurve[8,9,10,12,13,14,8,9,10]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\figvisu{\figBoxA}{$A\subset B$}{
\figwritec [15]{$A$}
\figwritec [16]{$B$}
}
\box\figBoxA
\bye