25 setxunit
7.5 setborder
90 setangle_repere
-4 5 setxrange
-1 5 setyrange
/quadrillagegray 0.4 def
1 setquadrillagexstep
1 setquadrillageystep
quadrillage
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
ticks
marks
traceaxes
axesarrow
unites
/A{-2 1} def
/B{4 4} def
/H{4 1} def

[A B H] dashpoints
A B line

(A) A urtext
(B) B urtext
(H) H urtext