Présentation de 2853.jps

%% auteur : %% auteur : Gilles Mora -11 12 setxrange -7 7 setyrange /C2 {-1 1 4} def /A{0 0} def /B{1 0} def /E {[A 8 6 0]} def /C1 {[B 6 4 0]} def /C2 {[C 3 2 0]} def E ellipse* C1 ellipse* C2 ellipse* %% 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