Source
%% auteur : 

200 setwidth
.9 .9 scale
90 setangle_repere
1.5 setxyrapport
-2.5 3 setxrange
-2 3.5 setyrange

-5 5 setxrange
-5 5 setyrange

quadrillage

/A {3 -1} def
/A' {2 2} def
/B {2 3} def
/B' {0 3} def
/C {-1 2} def
/C' {2 0} def
/D {-2 0} def
/D' {3 -2} def

/u {-1 3} def
/v {-2 0} def
/w {3 -2} def
/z {5 -2} def

tracerepere

[A B C D A' B' C' D'] points

<tex>
$\vec \imath $
</tex>
.3 0 [1.5 dup] dctexlabel
<tex>
$\vec \jmath $
</tex>
0 .1 [1.5 dup] ultexlabel


<tex>
$\vec u$
</tex>
A dupp u addv milieu [1.5 dup] urtexlabel
<tex>
$\vec v$
</tex>
B dupp v addv milieu [1.5 dup] urtexlabel
<tex>
$\vec w$
</tex>
C dupp w addv milieu [1.5 dup] urtexlabel
<tex>
$\vec z$
</tex>
D dupp z addv milieu [1.5 dup] dltexlabel

1.3 setlinewidth
[A dupp u addv] (->) ligne
[B dupp v addv] (->) ligne
[C dupp w addv] (->) ligne
[D dupp z addv] (->) ligne

setTimesItalic
   (A) A dctext   
   (A') A' ultext
   (B) B urtext   
   (B') B' ultext
   (C) C ultext
   (C') C' urtext
   (D) D ultext
   (D') D' urtext