Fichier 2592.jps — Modifié le 21 Mars 2007 à 18 h 25
%% 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