Fichier triangles_01.jps — Modifié le 23 Mars 2006 à 15 h 47
%% auteur : Dominique Petit
-2 8 setxrange
-10 1 setyrange
/A {-2 0} def
/B {2.5 0} def
/C {7 0} def
/O{1 -4} def
noir
A B droite
/A' {A O -90 rotatepoint} def
/B' {B O -90 rotatepoint} def
/C' {C O -90 rotatepoint} def
bleu
[O A A'] polygone
A O A' angledroit
O A 1 marked
O A' 1 marked
vert
[O B B'] polygone
B O B' angledroit
O B 2 marked
O B' 2 marked
rouge
[O C C'] polygone
C O C' angledroit
O C 3 marked
O C' 3 marked
noir
setTimes
(A) A utext
(B) B utext
(A') A' rtext
(B') B' dtext
(C) C utext
(C') C' rtext
(O) O dltext