%% 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