-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

/D {C B A vecteur addv} def

quadrillage
.7 setlinewidth
1 1 setsubtkstep
tracerepere

[A B C E] points

1 setlinewidth
[A B C] polygone

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

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

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
%   (F) F urtext