Source
%% auteur : 

60 setxunit
80 setyunit
7.5 setborder
90 setangle_repere
-3.5 3.5 setxrange
-1.2 1.2 setyrange
[1 1 .5 .5 .1 .1] {orange} Quadrillage
%.5 .5 setsubtkstep
.5 setysubtkstep
1 setytkstep
ymarks
0.7854 1 settkstep
setSymbol
(p/4) 0.7854 0 dctext
(p/2) 1.5708 0 dctext
(3p/4) 2.3562 0 dctext
(p) 3.1415 0 dctext

(-p/4) -0.7854 0 dctext
(-p/2) -1.5708 0 dctext
(-3p/4) -2.3562 0 dctext
(-p) -3.1415 0 dctext

3.1415 -1 dashpoint
-3.1415 -1 dashpoint

ticks
ysubticks
%subticks
%marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn# Cos(x)
} def


boxit
#tex# $ f(x) = \cos x$
-2 0.5 cctexlabel
setTimes
(O) O drtext
setTimesItalic
(X) xmax 0 dltext
(Y) 0 ymax dltext
gsave
   bleu
   .75 setlinewidth
   continu
   -3.1415 3.1415  {f} Courbe
grestore