O = (0, 0)
A = Point(Circle[(0, 0), 2])
l1 = Sequence(Rotate[A, (((-(360°))) / 5 * k)], k, 0, 4)
l2 = Zip(Element[l1, k], k, {1, 3, 5, 2, 4, 1})
f = PolyLine(l2)
k = 0.97 (slider from 0 to 1, step 0.01)
B = Point(f, k)
l3 = Append(Take[l2, 1, Div[k, 1 / 5] + 1], B)
g = PolyLine(l3)
C = (2.519701928434157, -3.4055262081094657)
D = (4.924899725274328, -3.4055262081094657)