%% auteur : Florent Braisaz

-4.5 6 setxrange
-5 4.5 setyrange

15 setxunit
15 setfontsize

/O {0 -1} def
/A {1 2} def
/Q {O A 90 rotatepoint} def
/R {A O 180 rotatepoint} def

O point

gsave
setTimesItalic
(O) O cltext
grestore

[O A] ligne

gsave
pointilles
[A R] ligne
grestore

gsave
rouge
A Q droite

#latex# ${(T)}$ 
5 1 [1.5 dup] ultexlabel

grestore


gsave
bleu
R A Q angledroit
grestore

gsave
1.25 setcurvelinewidth
O O A distance cercle
grestore