-3 3 setyrange

/A {0 -2} def
/B {0 2} def

16 setfontsize

%% on se donne la droite (AB) et un point M
/d {A B} def
/M {-4 0} def

%% M' est l'image de M par la symetrie orthogonale par rapport a d
/M' {M d axesympoint} def
%% H le projete orthogonal de M sur d
/H {M d orthoproj} def

d droite
M H A angledroit
[M M'] points
M H 1 marked
H M' 1 marked

pointilles
[M M'] ligne

bleu
setTimesItalic
   (M) M dltext
   (M') M' drtext
   (d) B urtext