100 setxunit
15 setfontsize

-1.1 7 setxrange
-1.5 1.5 setyrange
[1 1 .5 .5 .1 .1] {orange} Quadrillage

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

bleu
.75 setlinewidth
{f} courbe
noir
0 0 1 cercle

/a 0 def
/b pi 6 div def
/c pi 4 div def
/d pi 3 div def
/e pi 2 div def
/f 2 pi mul 3 div def
/g 3 pi mul 4 div def
/h 5 pi mul 6 div def
/i pi def
/j pi -6 div def
/k pi -4 div def
/l pi -3 div def
/m pi -2 div def
/n 2 pi mul -3 div def
/o 3 pi mul -4 div def
/p 5 pi mul -6 div def
/q pi 12 div def
/r pi -12 div def
/s 5 pi mul 12 div def
/t -5 pi mul 12 div def
/u 11 pi mul 12 div def
/v -11 pi mul 12 div def
/w 7 pi mul 12 div def
/x -7 pi mul 12 div def

[a b c d e f g h i j k l m n o p q r s t u w x] {1 exch Polcar point} apply