150 setwidth

/r 5 def
/cerc {O r} def
/A {85 cerc cpoint} def
/B {-152 cerc cpoint} def
/C {-20 cerc cpoint} def
/H {A B C orthoproj} def
A O cerc interdroitecercle popp /D defpoint

1.2 setlinewidth
cerc cercle

.8 setlinewidth


[A B C] polygone
[H A] ligne
[B D A] ligne

A H C angledroit

[A B C D H O] points

setTimesItalic
   (O) O bltext
   (A) A urtext
   (B) B dltext
   (C) C drtext
   (D) D drtext
   (H) H drtext