AnglePath Examples 4

A=RandomReal[2,36]; T=Flatten[Table[A*Pi,{i,90}]];
Graphics[{RGBColor[{.5,.1,RandomReal[]}],Thickness[.001],
Line[AnglePath[T]]/.Line->BSplineCurve},ImageSize->400]