-1 6 setyrange
traceaxes
marks
/A {3 1} def /A' {-3 1} def
/B {4 5} def /B' {-4 5} def
[B O A' B'] points
/lisere_arrow false def
/arrowscale {2 dup} def
[A B O] (\(->) ligne
pointilles
[A' B' O] polygone
continu bleu
/linearc 1 def
[A' B A B'] polygone
noir
16 setfontsize
setTimesItalic
(A) A drtext (A') A' dltext
(B) B urtext (O) O drtext
(B') B' ultext
|