%% auteur : 

-4 7 setxrange
-2 8 setyrange
50 setxunit
50 setyunit
.5 .5 setquadrillagestep
quadrillage

currentlinewidth 2 mul setlinewidth
traceaxes
axesarrow
ticks
15 setfontsize
/A{0 7} def
/B{5 0} def
/C{5 6} def
%marks
1 setlinewidth
A B droite
O C droite
C point
/H{O C A B interdroite} def
H point
setTimes
(O) O [1.5 1.5] dltext
setTimesItalic
   (d) -1.2 -1.5 [1.5 1.5] ultext
(d') 5.7 -1.5 [1.5 1.5] ultext
(C) 5 0 [1.5 1.5] dtext
(H) H [1.5 1.5] rtext
setTimes
  (1)  1 0 [1.5 1.5] dtext 
(1)  0 0.9 [1.5 1.5]ltext

(2) 2 0 [1.5 1.5] dtext
(4) 0 3.9 [1.5 1.5] ltext