Fichier 072.jps — Modifié le 9 Septembre 2006 à 12 h 26

072.pdf
Source
%% 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

<tex>
$A\cup B$
</tex>
(C) C  [2 2] cctexlabel