A = (0.7921898914419423, 1.310277559040554)
B = (1.8721641991188485, 1.1128629006480015)
c = Circle(A, B)
C = Point(c)
n = 7 (slider from 1 to 30, step 1)
Liste1 = Sequence(Rotate[C, ((360 * ° / n) * k), A], k, 1, n, 1)
Vieleck1 = Polygon(Liste1)