Source
%% auteur : Florent Braisaz

-4.9 4.9 setxrange
-5.9 3.9 setyrange
15 setxunit
15 setyunit

/A {-3.5 -3.5} def
/B {-1 2.5} def
/C {3.5 -3.5} def


/d {A B C perp} def
/e {B C A perp} def
/f {C A B perp} def

/O {d e interdroite} def

/I {A B d interdroite} def
/J {B C e interdroite} def
/K {C A f interdroite} def



1.25 setlinewidth

[A B C] polygone

gsave
bleu
d droite
e droite
f droite
A I C angledroit
B J A angledroit
C K B angledroit
grestore


gsave
setTimesItalic
(A) A [1.5 1.5] ultext
(B) B [1.5 1.5] urtext
(C) C [1.5 1.5] dctext
(I) I [1.5 1.5] uctext
(J) J [1.5 1.5] dctext
(K) K [1.5 1.5] dltext
rouge
(H) O [1.5 1.5] dltext
grestore