Fichier 651.jps — Modifié le 18 Septembre 2007 à 15 h 39

651.pdf
Source
%% auteur : 

%% auteur : Gilles Mora
-11 12 setxrange
-7 7 setyrange
/C1 {-1 0.5 3} def
/C2 {-1 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 {10 -4} def

noir
/dx_boxit 3 def
/dy_boxit 3 def
/linearc .05 def

[A 180 C1 cpoint] ligne
[B 10 C2 cpoint] ligne
[C 7.5 -2] ligne

boxit_all
/fillstyle {blanc fill} def
setTimes
   (A) A [2 2] cctext
   (E) B [2 2] cctext
(F) C [2 2] cctext