2 2 setmkstep
/A {-4 0} def
/B {-2 2} def

/t {1 -1 translatepoint} def
/s {O sympoint} def
/S {-1 -1 1 -1 axesympoint} def 
/r {O 90 rotatepoint} def

/A1 {A t} def
/B1 {B t} def
/A2 {A s} def
/B2 {B s} def
/A3 {A S} def
/B3 {B S} def
/A4 {A r} def
/B4 {B r} def

quadrillage
tracerepere
marks

.8 setlinewidth
[A B A1 B1 A2 B2 A3 B3 A4 B4] 
dup {times2} plot
{droite} dapply

.5 setlinewidth
[A A1] (->) ligne
[B B1] (->) ligne
pointilles
[A A2] ligne
[B B2] ligne
[A A3] ligne
[B B3] ligne
O A A4 arcp
O B B4 arcp

setTimesItalic
   (A) A uctext
   (B) B ultext
   (A) A1 dctext
   (1) indice
   (B) B1 dctext
   (1) indice
   (A) A2 ultext
   (2) indice
   (B) B2 drtext
   (2) indice
   (A) A3 dctext
   (3) indice
   (B) B3 dltext
   (3) indice
   (A) A4 crtext
   (4) indice
   (B) B4 dltext
   (4) indice
   (d) 1 A B xdpoint ultext
   (d) 2 A1 B1 xdpoint ultext
   (1) indice
   (d) 5 A2 B2 xdpoint ultext
   (2) indice
   (d) -3 A3 B3 xdpoint dltext
   (3) indice
   (d) 1 A4 B4 xdpoint urtext
   (4) indice
   (O) O dltext