-6.5 3 setyrange
quadrillage
tracerepere
marks

/A1 {0 -1} def
/B1 {1 1} def
/A2 {2.5 1} def
/B2 {2.5 -3} def
/A3 {0 2.5} def
/B3 {-5 3 div 0} def
/A4 {0 -1 3 div} def
/B4 {1 -1 3 div} def

[
A1 B1 
A2 B2 
A3 B3 
A4 B4 
] points

1.5 setlinewidth

A1 B1 droite
A2 B2 droite
A3 B3 droite
A4 B4 droite

setTimesItalic
   (d) -3 -5 crtext
setTimes
   (1) indice
setTimesItalic
   (d) 3 -5.5 crtext
setTimes
   (2) indice
setTimesItalic
   (d) -5 -4 cctext
setTimes
   (3) indice
setTimesItalic
   (d) -5 -1 uctext
setTimes
   (4) indice
setTimesItalic
   (O) O ultext