n = 5 (slider from 2 to 12, step 1)
C = (-4, 4)
z = Vector((0.0, 0.0), C)
wa = Angle(Line[(0.0, 0.0), (1.0, 0.0)], Line[(0.0, 0.0), C])
Liste1 = Sequence((Length[z]^(1.0 / n); wa / n + r * 360.0° / n), r, 1.0, n)
c: x^(2.0) + y^(2.0) = (Length[z]^(1.0 / n))^(2.0)
Liste2 = Sequence(Vector[Vector[(0.0, 0.0), Element[Liste1, r]]], r, 1.0, n)