/C1 {-2 -1 3} def /C2 {1 1 4} def gsave newpath C1 cercle_ clip 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 /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 [C 112 128 rptojpoint] (-*) ligne boxit_all /fillstyle {blanc fill} def setTimes (A) A cctext (B) B cctext $A\cap B$ (C) C cctexlabel