Sequence

Séquence[Segment[Point[Cercle[(0, 0), 1], a i - floor(a i)], Point[Cercle[A, c], b i - floor(b i)]], i, 0, 1, 1 / n]