Source
%% auteur : 
1 1 setsubtkstep
1 setxyrapport
-1 12 setxrange
-1 15 setyrange
marks
30 setxunit
quadrillage

/T {2 12} def
/R {1 3} def
/C {6 6} def
/L {10 13} def
/N {7 4} def
/B {11 4} def
/G {2 2} def
/M {4 7} def
/X {6 12} def
/Y {7 13} def
/Z {11 2} def
/W {4 3} def

setTimesItalic
(T) T urtext
(L) L urtext
(B) B urtext
(G) G urtext
(R) R ultext
(C) C urtext
(N) N ultext
(M) M urtext

tracerepere

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






[T C] (->) ligne
[M R] (->) ligne
[L N] (->) ligne
[G B] (->) ligne

pointilles
[T X] ligne
[C X] ligne
[L Y] ligne
[N Y] ligne
[B Z] ligne
[G Z] ligne
[M W] ligne
[R W] ligne