Bezier build-up of sine plot

In[]:=
Manipulate[Plot[Sin[x],{x,0,4Pi},PlotRange{-1,1},PlotPointsjoints,PlotStylePointSize[Medium],MaxRecursionrecursionsteps],{joints,2,30,1},{recursionsteps,0,10,1},SaveDefinitionsTrue]
Out[]=
​
joints
recursionsteps
2
4
6
8
10
12
-1.0
-0.5
0.5
1.0