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

gsave
   newpath
      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

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