-2 5 setxrange
-1 5 setyrange
/A{-2 5} def
/B{4 1} def
/C{-3 0} def
/D{0 1} def
%.5 .5 setquadrillagestep
quadrillage
tracerepere
%marks

1 setlinewidth
A B droite         %% D3
C D droite	%% D1
/E{A B C D interdroite} def
E point
E dashpoint

setTimesItalic
   (D) -1 4 [1.5 dup] ultext

setTimesItalic
   (D') 4 2.5 [1.5 dup] urtext


<tex>
$x_0$
</tex>
2.6 0 [1.5 dup] dctexlabel

<tex>
$y_0$
</tex>
0 2 [1.5 dup] cltexlabel