linedata = {};
Dynamic[Graphics[Line[linedata], PlotRange -> 1000]]
Do[
 linedata = AnglePath[{#, \[Theta]} & /@ Range[5, 300, 3]];
 Pause[0.1];
 ,
 {\[Theta], Subdivide[0.1, 1, 100]}
]