Présentation de cerc_triangle_2.jps

%% auteur :

-3 3 setxrange
-2 3.2 setyrange

/O1 {0 1} def
/a {3 sqrt 2 div} def 
/O3 {a -0.5} def
/b {a neg} def
/O2 {b -0.5} def

/c {0.5 a add neg} def
/d {1.5 a add} def
/e {d neg} def
/f {3 sqrt 1 add} def
/A {0 f} def
/C {d c} def
/B {e c} def

O1 a cercle
O2 a cercle
O3 a cercle



[O1 O2 O3] points
[A B C] polygone
/AB {A B} def
/H {O1 AB orthoproj} def
/K {O2 AB orthoproj} def
A H O1 angledroit
A K O2 angledroit

pointilles
[O1 H] ligne
[O2 K] ligne
A O1 droite
B O2 droite
C O3 droite 

setTimesItalic

(A) A rtext
(B) B ltext
(C) C rtext
(O) O1 rtext
(1) indice
(O) O2 drtext
(2) indice
(O) O3 rtext
(3) indice
(H) H ltext
(K) K ltext