Fichier 892.jps — Modifié le 21 Mars 2007 à 18 h 16
% auteur : Peric
30 setxunit
7.5 setborder
90 setangle_repere
-1 10 setxrange
-7 7 setyrange
/A {0 0} def
/B {9 0} def
/C {7 5} def
/D {2 6} def
/E {C C A vecteur C B vecteur addv translatepoint} def
/F {D D A vecteur D B vecteur addv translatepoint} def
/a {2} def
1 setlinewidth
[A B C D] polygone
setTimes
(A) A [a dup] dltext
(B) B [a dup] drtext
(C) C [a dup] urtext
(D) D [a dup] ultext
(E) E down 0.3 mulv translatepoint [a dup] dltext
(F) F down 0.3 mulv translatepoint [a dup] drtext
gsave
0.7 setlinewidth
A E 10 Arc
B E 10 Arc
A F 10 Arc
B F 10 Arc
grestore
D B 2 marked
A F 2 marked
C A 1 marked
B E 1 marked
C B 3 marked
A E 3 marked
D A 4 marked
B F 4 marked
dotted
[C A] ligne
[B E] ligne
[A E] ligne
[D B] ligne
[B F] ligne
[A F] ligne