/C1 {-2 -1 3} def
/C2 {1 1 4} def

gsave
   newpath
      masque_
      C2 cercle-_
   clip
   orange
   hachure
grestore

C1 cercle
bleu
C2 cercle

%% la legende
/A {-5.5 1} def
/B {219 241 rptojpoint} def  %% coordonnees lues a la souris
/C {xmin xmax add 2 div -5} def

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

[A 160 C1 cpoint] ligne
[B 50 C2 cpoint] ligne

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

<tex>
$\overline B$
</tex>
(C) C cctexlabel