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