m = 10 (slider from 1 to 59, step 1)
vueltas: 60 / GCD[60, round(m)]
A = (6.454893365914762, 5.338251873590391)
O = (5.66817, 0.5001)
c = Circle(O, A)
B = Point(c)
R1 = (-0.32, -5.48)
R2: R1 + (12, 0)
lista1 = Sequence(Rotate[B, (((6 * k) * round(m)))°, O], k, 0, vueltas)
lista2 = Sequence(Segment[Element[lista1, k], Element[lista1, k + 1]], k, 1, Length[lista1] - 1)
texto1: "Minutos = " + (round(m))