-15 2 setxrange
-2.2 2.2 setyrange
28.45 setxunit

traceOx
axeOxarrow

[0.2 dup neg -10 dup 4 1 roll exch ] ligne
[0.2 dup neg -4 dup 4 1 roll exch ] ligne
%[0.2 dup neg 3 dup 4 1 roll exch ] ligne
[0.2 dup neg 0 dup 4 1 roll exch ] ligne
1.7 setlinewidth

gsave
%0 30 translate
   %orange
<tex>
$S_1$
</tex>
-3 1.5 [1.5 dup] cctexlabel
   [xmin -4] {1.5} apply
   (-]) ligne
grestore
gsave
%0 15 translate
  % bleu
<tex>
$S_2$
</tex>
-11 0.75 [1.5 dup] cctexlabel
   [-10 xmax] {0.75} apply
   (]-) ligne
grestore
gsave
%0 -15 translate
   %noir
<tex> 
$S=S_1\cap S_2$
</tex> 
-7 -1.75 [1.5 dup] cctexlabel
   [-10 -4] {-1} apply
   (]-]) ligne
grestore

/C{-4 0} def    
/B {-10 0} def
%/D{3 0} def 
/E {0 0} def  

noir
12 setfontsize
setTimesItalic
   %(7/6) A dtext

(-4) C drtext
(-10) B dltext
%(3) D drtext
(0) E drtext

1 setlinewidth
dotted
[-10 dup 1.5 exch -1] ligne
[-4 dup 1.5 exch -1] ligne

%% adresse IP : 82.254.24.233