50 setxunit
18 setfontsize
-5 5 setxrange
-5 5 setyrange

%% definition des fonctions
/f {Sin} def 
/g { Cos} def
/h {Tan} def
/val 3.14 2 div def
/a1 {0 val 3 mul sub -5 0 val 3 mul sub 5} def
/a2 {0 val sub  -5 0 val sub  5} def
/a3 { val  -5  val  5} def
/a4 {val 3 mul -5  val 3 mul 5} def

tracerepere
marks

vert
a1 droite
a2 droite
a3 droite
a4 droite

2 setlinewidth

bleu
{f} courbe
rouge
{g} courbe
vert
val neg val {h} Courbe
val neg pi add val pi add {h} Courbe
val neg pi sub val pi sub {h} Courbe

noir

setTimesItalic 
vert
   (tan) -2.4 4 urtext
rouge
   (cos) 4.1 0 urtext 
bleu
   (sin) 4.1 -1 drtext 
noir
   (O) O drtext