Source
%% 400 setwidth
%% 400 setheight
18 setfontsize
-4 4 setxrange
-1.5 1.5 setyrange

jpegmode

/f {
   Arctan
} def

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

   setTimesItalic
      (O) O drtext
      (y = ) -3 .5 text
   setTimes
	 (arctan ) show
   setTimesItalic
     (x) show
   
} def

{dessin} relief