%% 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