b

b

b

b

A: (0, 0)
B: (0, 5)
c = Circle(A, B)
n = 4 (slider from 0 to 30, step 1)
l1 = Sequence(Rotate[B, (((2 * π) * k)) / n, A], k, 1, n)
l2 = Sequence(CircleSector[A, Rotate[B, ((2 * π) * (k - 1) / n), A], Rotate[B, (((2 * π) * k)) / n, A]], k, 1, n)
l3: {(0, 0)}
l4 = Sequence(Polygon[(k, 0), (k + 1, 0), (k + 0.5, 5)], k, 1, n)