α = 1.0821041362364843 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
n = 8 (slider from 1 to 30, step 1)
r = 3.5 (slider from 0 to 10, step 0.1)
list1 = Sequence(Segment[((r * cos(((i * 180) * ° / n) + α)), (r * sin(((i * 180) * ° / n) + α))), ((r * cos(((i * 180) * ° / n) + 180° + α)), (r * sin(((i * 180) * ° / n) + 180° + α)))], i, 0, n - 1)
c = Circle((0, 0), (0, r))