AnglePath Examples 3

Graphics[Table[{Hue[.05i],Thickness[.1^5],
Line[AnglePath[Array[ThueMorse,2^12](1.27+.0001i)Pi]]/.Line->BSplineCurve},
{i,13}],ImageSize->400]