A = (0, 0)
B = (1, 0)
c = Circle(A, B)
C = Intersect(c, yAxis, 2)
D = Point(c)
D' = Mirror(D, yAxis)
f = Segment(C, D)
g = Segment(C, D')
n = 14 (slider from 2 to 30, step 1)
a = Angle(D, C, D')
b: a / n
l1 = Sequence(Intersect[c, Line[C, Rotate[D, (k * b), C]], 2], k, 1, n - 1)
l2 = Join({{D', C, D}, l1})
poly1 = Polygon(l2)
l3 = Sequence(Sequence[Segment[l2(j), l2(j + k)], k, 1, Length[l2] - j], j, 1, Length[l2])