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