Source
%% auteur : Gilles Mora

-3 3 setxrange
-3 3 setyrange
70 setxunit
%tracerepere
/O{0 0} def
/cerc{O 2} def
/C{-30 cerc cpoint} def
/A{95 cerc cpoint} def
/B{180 cerc cpoint} def
/E{-85 cerc cpoint} def
/dotscale {2 dup} def

/H {A B C orthoproj} def
[A O B H C E] {times} plot
cerc cercle
[A B] ligne
[B C] ligne
[A E] ligne
[A C] ligne
A H B angledroit
[A H] ligne
[E C] ligne
setTimesItalic
(A) A [2 2] utext
(B) B [2 2] ltext
(O) O [2 2] ultext
(H) H [2 2] dltext
(C) C [2 2] drtext

(E) E [2 2] dtext