%% 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