-2.5 4.5 setxrange
-4 7 setyrange

2 setxyrapport

.5 .5 setquadrillagestep
quadrillage
tracerepere
marks

/A {-1.25 1} def

/I0 {-1 3.5} def 
/I0' {-.5 0} def 
/I1 {0 -2} def 
/I2 {.5 -2.75} def 
/I3 {1.5 0} def 
/I4 {3 6} def
/I5 {4 4} def

/.. {2.5 dup} def

A I1 droite

1.2 setlinewidth
[I0 {-80 dir} .. I0' .. I1 {3 -7} .. {right} I2 .. I3 .. I4 {right} .. {-60 dir} I5] draw

A point

setTimesItalic
   (A) A dltext
   (C) I5 urtext