Fichier 1700.jps — Modifié le 22 Mars 2007 à 17 h 53
%% 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