In[]:=
sol[t_]=theta[t]/.DSolve[{theta''[t]-Sin[theta[t]],theta[0]-1,theta'[0]0.1},theta,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},SaveDefinitionsTrue]
Out[]=
t
-2
-1
1
2
-2
-1
1
2