Comienza

Para

t = 0.757 (slider from 0 to 1, step 0.0010)
t1: {907, 6, 35, 17, 26, 11, 2011, "Noviembre", "Sábado", 7}
t2: {907, 6, 35, 17, 26, 11, 2011, "Noviembre", "Sábado", 7}
s1: (((Element[t1, 5] * 24 + Element[t1, 4]) * 60 + Element[t1, 3]) * 60 + Element[t1, 2]) * 1000 + Element[t1, 1]
s2: (((Element[t2, 5] * 24 + Element[t2, 4]) * 60 + Element[t2, 3]) * 60 + Element[t2, 2]) * 1000 + Element[t2, 1]
si: (s2 - s1) / 1000
texto1: "Segundos = " + si + ""
anima = false
A = (-1.7, 2.92)
B = Rotate(A + (0, 1.9), -si * π / 30, A)
C: A - (0, 1)
c = Circle(A, 2)
d = Circle(C, 0.6)
lista1 = Sequence(Segment[A + (2; s°), A + (1.9; s°)], s, 0, 360, 6)
lista2 = Sequence(Segment[A + (2; s°), A + (1.75; s°)], s, 0, 360, 30)
lista3 = Sequence(Segment[C + (0.6; s°), C + (0.5; s°)], s, 0, 360, 30)
D = Rotate(C + (0, 0.5), -si * π / 360, C)
u = Vector(A, B)
v = Segment(C, D)
subtítulo = If(anima, "     Para     ", "Comienza")
a = 1
e = Circle(C, 0.6)