%% 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 masque_ C1 cercle_ eoclip newpath masque_ C2 cercle_ eoclip 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 {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 [C 160 140 rptojpoint] (-*) ligne boxit_all /fillstyle {blanc fill} def setTimes (A) A [2 2] cctext (B) B [2 2] cctext $A\cup B$ (C) C [2 2] cctexlabel