Source
400 setwidth
400 setheight
18 setfontsize
-1.5 1.5 setxrange
-.5 3.5 setyrange

jpegmode

/f {
   Arccos
} def

/dessin {
   tracerepere
   marks
   gsave
      bleu
      1.75 setlinewidth
      -1 1 {f} Courbe
   grestore

   setTimesItalic
      (O) O drtext
      (y = ) -1 1 text
   setTimes
	 (arccos ) show
   setTimesItalic
     (x) show
   
} def

{dessin} relief