-5 6 setxrange
-2 6 setyrange
10 setfontsize
20 setxunit
quadrillage

/axesarrow {} def
/arrowscale {.7 dup} def
tracerepere

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

A B C D interdroite /M defpoint

[-4 1 3] {xmark} apply

.8 setlinewidth

A B droite
C D droite

setTimesItalic
   (O) O dltext
   (M) M (3 -1) brtext
   (d) 4 A B xdpoint dctext
   (d') -4 C D xdpoint urtext

<tex>
$\vec \imath $
</tex>
.5 0 dctexlabel

<tex>
$\vec \jmath $
</tex>
0 .5 cltexlabel