Divide a Parametric Equation (String Art)

Dividing a function parametrically There are inputs for xMin and xMax as well as for a function in f(x). This function is then graphed and divided paramentrically. You can shift and drag or scroll the screen to change the graphing window.

Two sliders: n is an interger slider 1...30 r is a real value for a radius of a circle 0...10 by 0.1 curve01 = Sequence[Curve[size r(t) cos(t), size r(t) sin(t), t, i, i + 2π / n], i, 0, 2π - π / n, 2π / n] points = Sequence[(radius cos(i), radius sin(i)), i, 0, 2π, π / n]