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 {3 .375} def
/M {3.75 2.5} def
/Mu {5.75 2.75} def
[I J] ligne
[M H A Mu] points   
M H J angledroit
gsave
1.25 setlinewidth
[M A Au] (<->) ligne
[M Mu] (->) ligne
[Au Mu] (->) ligne
grestore
pointilles
[M H] ligne