%% auteur : Christian Vassard


-3 3 setxrange
-3 3 setyrange
50 setxunit
50 setyunit
/A {-2 -2} def
/B {2 -2} def
/C {B A 60 rotatepoint} def
[A B C] points
[A B C] polygone
/M {-0.2 0.1} def
M point

/H {M A B orthoproj} def
H point
/I {M A C orthoproj} def
I point
/J {M B C orthoproj} def


A B 1 marked
B C 1 marked
C A 1 marked

pointilles
.7 setcurvelinewidth
[M H] ligne
[M I] ligne
[M J] ligne




setTimesItalic
   (A) A drtext
   (B) B drtext
   (C) C drtext
   (M) M drtext
   (H) H drtext
   (I) I drtext
   (J) J drtext