Fichier 115.jps — Modifié le 9 Septembre 2006 à 12 h 27
%% 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