400 setwidth
200 setheight
18 setfontsize
-5 5 setxrange
-1 4 setyrange

/f {pop 1} def

/dessin {
   tracerepere
   marks
   gsave
      bleu
      1.75 setlinewidth
      {f} courbe
   grestore

   setTimesItalic
      (O) O drtext
      (L'unité : y = 1) -4 2.5 text
} def

{dessin} relief