%% auteur : 

% auteur : Gilles Mora
-11 12 setxrange
-10 7 setyrange
/C1 {-2 -1 3} def
/C2 {1 1 4} def
/A{0 0} def
/E {[A 8 6 0]} def
gsave
   newpath
      C1 cercle_
   clip
   

   newpath
      C2 cercle_
   clip
   orange
   hachure
grestore

C1 cercle
C2 cercle
E ellipse*

%% la legende
/A {-10 0} def
/B {10 3} def  %% coordonnees lues a la souris
/C {10 -4} def

noir
/dx_boxit 3 def
/dy_boxit 3 def
/linearc .05 def

[A 180 C1 cpoint] ligne
[B 10 C2 cpoint] ligne
[C 7.5 -2] ligne


boxit_all
/fillstyle {blanc fill} def
setTimes
   (A) A [2 2] cctext
   (B) B [2 2] cctext
(E) C [2 2] cctext


<tex>
$A\cap B$
</tex>
0 -8  [2 2] cctexlabel