%% 400 setwidth %% 600 setheight 18 setfontsize -5 5 setxrange -2 2 setyrange /f { Sin } def /dessin { tracerepere marks gsave bleu 1.75 setlinewidth {f} courbe grestore setTimesItalic (O) O drtext (Le sinus : y = ) -3.5 1.5 text setTimes (sin ) show setTimesItalic (x) show } def {dessin} relief