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


E ellipse*
gsave
/fillstyle {blanc fill} def
   newpath
      masque_
      C1 cercle_
   eoclip
   newpath
      masque_
      C2 cercle_
   eoclip
   
grestore
C1 cercle
C2 cercle

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

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

[A 180 C1 cpoint] ligne
[B 10 C2 cpoint] ligne


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

(A et B sont disjoints) 0 -7 [2 2] dtext