%% auteur : 

80 setxunit
30 setyunit
7.5 setborder
90 setangle_repere
-1.7 1.7 setxrange
-10 10 setyrange
[1 1 .5 .5 .1 .1] {orange} Quadrillage
%.5 .5 setsubtkstep
.5 setysubtkstep
1 setytkstep
ymarks
0.7854 1 settkstep
setSymbol

(-p/2) -1.5708 0 dctext
(-p/4) -.7854 0 dctext
(p/4) .7854 0 dctext
(p/2) 1.5708 0 dctext



ticks
ysubticks
%subticks
%marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn# Tan(x)
} def
/A {1.5708 0} def
/B {-1.5708 0} def
/C {1.5708 1} def
/D {-1.5708 1} def

/d1 {A C} def
/d2 {B D} def


boxit
#tex# $ f(x) = \tan x$
-1 5 cctexlabel
setTimes
(O) O drtext
setTimesItalic
(X) xmax -0.3 dltext
(Y) 0 ymax dltext
gsave
   bleu
   .75 setlinewidth
   continu
   -1.5708 1.5708  {f} Courbe
grestore
rouge
   .75 setlinewidth
   continu
d1 droite
d2 droite