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
|