%% 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