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