%% auteur : 
25 setxunit
7.5 setborder
90 setangle_repere
-1.5 1.5 setxrange
-1.5 1.5 setyrange
80 setxunit
80 setyunit
tracerepere
setTimes



/O{0 0} def
O point
(O) O urtext
/cerc {O 1} def
cerc cercle
/I{1 0} def
I point
(I) I urtext
/J{0 1} def
J point
(J) J ultext
/X {I O 150 rotatepoint} def
X dashpoint
(X) X ultext
/-X {I O -150 rotatepoint} def
-X dashpoint
(-X) -X cltext
O X (->) line
O -X (->) line
<tex>
$$
cos (x)
$$
</tex>
/A{-0.4 0} def
A ultexlabel