autocrop 15 setxunit 10 setfontsize /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