%% auteur : Christian Vassard


-3 3 setxrange
-3 3 setyrange
15 setfontsize
30 setxunit
30 setyunit
/A {2 -2} def
/B {2 3} def
/C {-2 -2} def
/M {1 1.75} def
[A B C M] points
[A B C] polygone

/P {M A B orthoproj} def
P point
/Q {M A C orthoproj} def
Q point

[P Q] ligne

pointilles
.7 setcurvelinewidth
[M P] ligne
[M Q] ligne




setTimesItalic
   (A) A drtext
   (B) B drtext
   (C) C drtext
   (M) M drtext
   (P) P drtext
   (Q) Q drtext