Complete Graph Turning

Suzanne von Oy shared this neat image via Cliff Pickover https://twitter.com/von_Oy/status/918196541533446146 of a complete graph on 8 rotating vertices. Better Desmos-ers than I are working on it over there. (Suzanne's https://www.desmos.com/calculator/casfruvg0r, Andrew Knauft https://www.desmos.com/calculator/vfysvercbn)

I came over to GGB, of course, though Scott Farrar beat me to it. https://www.geogebra.org/m/UU8bbgW3 and Mark Kaercher, too https://www.geogebra.org/m/KUKdmtAf.

I love the different effect of different offsets, and how many of the images look like 3 or higher dimensional objects turning.

Turn

k = 3 (slider from 1 to 15, step 1)
A = (1.32, 1.58)
B = (4.064945056996096, 1.5400318086408593)
f = Segment(A, B)
C = Point(f)
n = 6 (slider from 3 to 15, step 1)
c = Circle(B, C)
off: (360 * ° / k)
t = 0.9916666666666667 (slider from 0 to 1, step 1 / 360)
L = Sequence(Rotate[c, ((i * 360 / n))°, A], i, 0, n - 1)
L1 = Sequence(Rotate[Rotate[C, (i * off) - ((i * 360) * ° / n) + ((t * 360))°, B], ((i * 360) * ° / n), A], i, 0, n - 1)
L2 = Sequence(Sequence[Segment[Element[L1, i], Element[L1, j]], i, j + 1, n], j, 1, n - 1)
b = false
speed = 2 (slider from 0.1 to 2, step 0.1)
turn = false
text1: "" + off + ""