400 setwidth
1 1 scale

-.7 19 setxrange
-.7 13 setyrange
/A{0 12} def
/B{18 0} def
/C{12 0} def
/D{6 12} def
%.5 .5 setquadrillagestep
quadrillage
tracerepere
marks

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


setTimesItalic
   (D) 12 0 [1.5 dup] urtext

setTimesItalic
   (D') 17 1 [1.5 dup] urtext


setTimesItalic
   (I) I [1.5 dup] urtext