In[]:=
sol[t_]=θ[t]/.DSolve[{θ''[t]==-Sin[θ[t]],θ[0]-1,θ'[0]0.1},θ,t][[1]];​​Animate[Show[ListPlot[Re[{{Sin[sol[t]],-Cos[sol[t]]}}],PlotStylePointSize[0.02],PlotRange{{-2,2},{-2,2}},AspectRatio1],Graphics[Line[{{0,0},{Sin[sol[t]],-Cos[sol[t]]}}]]],{t,0,10}]
Out[]=
t
-2
-1
1
2
-2
-1
1
2