Source
%% auteur : Florent Braisaz

-4.5 6 setxrange
-5 4.5 setyrange

15 setxunit
15 setfontsize

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

O point

gsave
setTimesItalic
(O) O cltext
grestore

[O A] ligne

gsave
pointilles
[A R] ligne
grestore

gsave
rouge
A Q droite
grestore


gsave
bleu
R A Q angledroit
grestore

gsave
1.25 setcurvelinewidth
O O A distance cercle
grestore

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

#latex# ${\mathcal{C}}$ 
-3 -1 [1.5 dup] cltexlabel