Fichier 1727.jps — Modifié le 22 Mars 2007 à 17 h 52
%% auteur : Christian Vassard
-3 8 setxrange
-5 5 setyrange
15 setfontsize
30 setxunit
30 setyunit
/A {2.5 1} def
/B {-1 -2} def
/C {3 -2} def
[A B C] points
[A B C] polygone
/M {-2 2.5} def
M point
/N {M A 180 rotatepoint} def
N point
/P {N C 180 rotatepoint} def
P point
/Q {P B 180 rotatepoint} def
Q point
pointilles
.7 setcurvelinewidth
[M N] ligne
[N P] ligne
[P Q] ligne
A M 3 marked
A N 3 marked
C N 2 marked
C P 2 marked
B P 1 marked
B Q 1 marked
setTimesItalic
(A) A drtext
(B) B drtext
(C) C drtext
(M) M drtext
(N) N drtext
(P) P drtext
(Q) Q drtext