Source: https://www.jstor.org/stable/2691469[br][br]Another version in Mathbox: https://dynamicmath.xyz/math2400/sketches/x2x/[br]

[code][/code][code]Ln = Sequence(k, k, -7, 7, 1)[br][br]Spindle = Zip(Curve(t, ℯ^(t * ln(abs(t))) * cos(π * t * k), ℯ^(t * ln(abs(t))) sin(π * t * k), t, -4, 2), k, Ln)[br][br]SetLineThickness(Spindle, 1)[br]SetColor( Spindle, "White" )[br][br]SetActiveView( -1 )[br]SetBackgroundColor( "Black" )[br][/code]