%% auteur : 

%% auteur : Gilles Mora

-3 3 setxrange
-2 3 setyrange
90 setxunit
%tracerepere
/O{0 0} def
/cerc{O 2} def
/C{130 cerc cpoint} def
/A{190 cerc cpoint} def
/B{10 cerc cpoint} def
/dotscale {2 dup} def
/I{C H milieu} def
/J{A H milieu} def
/H {C A B orthoproj} def
/K {H B C orthoproj} def
C I 2 marked
I H 2 marked
A J 1 marked
J H 1 marked
I J droite
cerc cercle
/L{I J C B interdroite} def
[A O B H C I J K L] {times} plot

[A B] ligne
[B C] ligne
[H K] ligne
H K B angledroit
[A C] ligne
C H B angledroit
[C H] ligne
setTimesItalic
(A) A [2 2] ltext
(B) B [2 2] rtext
(O) O [2 2] ultext
(H) H [2 2] drtext
(C) C [2 2] utext
(I) I [2 2] drtext
(J) J [2 2] drtext
(L) L [2 2] urtext
(K) K [2 2] urtext
%% adresse IP : 89.225.135.251