28 setxunit
0 8 setxrange
0 3 setyrange
/I {0 0} def
/J {8 1} def
/H {4 .5} def
/A {1 .125} def
/Au {2 .25} def
/M {3.75 2.5} def
[I J] ligne
[M H A] points   
M H A angledroit
gsave
1.5 setlinewidth
[A Au] (->) ligne
grestore
pointilles
[M H] ligne