-6 6 setxrange
-12 8 setyrange

/A {3 3} def
/B {-3 6} def
/C {-3 -9} def
/E {-1 5} def
/F {0 1} def
/M {2 0} def
/D {C B A vecteur addv} def

quadrillage
.7 setlinewidth
1 1 setsubtkstep
tracerepere
2 2 setmkstep
marks

[A B C E F M] points

1 setlinewidth
[A B C] polygone
{3 add} courbe
{-.5 mul 1.5 sub} courbe
{-.5 mul 1 add} courbe

.5 setlinewidth
[C D A] ligne


%% <tex>
%% $\vec \imath $
%% </tex>
%% .4 -.1 [1.5 dup] dctexlabel
%% 
%% <tex>
%% $\vec \jmath $ 
%% </tex>
%% -.1 .2 [1.5 dup] ultexlabel

<tex>
$d_2 : y = x + 3$
</tex>
3 6 {1 1 atan} uctexlabel

<tex>
$d_1 : 2y + x + 3 = 0$
</tex>
4 -3.5 {-1 2 atan} dctexlabel

<tex>
$\Delta : y = -x/2 + 1$
</tex>
-4 3 (-5 0) {-1 2 atan} uctexlabel

setTimesItalic
   (x) xmax 0 (-10 0) ultext
   (y) 0 ymax  (0 -10) drtext
   (A) A urtext
   (B) B urtext
   (C) C dltext
   (D) D urtext
   (E) E urtext
   (M) M urtext
   (F) F urtext
   (G) -3 0 (0 3) ultext