Fichier 131.jps — Modifié le 27 Février 2008 à 22 h 19
%% 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