9 lines
186 B
Text
9 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]}
|
||
|
|
]
|