x2x: Spindle
Source: https://www.jstor.org/stable/2691469
Another version in Mathbox: https://dynamicmath.xyz/math2400/sketches/x2x/
Script
Ln = Sequence(k, k, -7, 7, 1)
Spindle = Zip(Curve(t, ℯ^(t * ln(abs(t))) * cos(π * t * k), ℯ^(t * ln(abs(t))) sin(π * t * k), t, -4, 2), k, Ln)
SetLineThickness(Spindle, 1)
SetColor( Spindle, "White" )
SetActiveView( -1 )
SetBackgroundColor( "Black" )