Leer minutos  por medio de fracciones de hora

Instrucciones: 
Al mover su mouse en el numerador o denominador
podrá visualizar, la equivalencia entre el tiempo en minutos y la 
fracción de hora.
Si desea cambiar la fracción basta mover el mouse en el deslizador,
observando su nueva representación y equivalencia en
minutos.

Tamaño = 1 (slider from 0 to 1, step 0.1)
A = (0.8514503507264708, 1.0548095053021858)
c = Circle(A, 1)
B: A + (0, 1)
C: B + (0, -0.1)
lista1 = Sequence(Segment[Rotate[C, 6° * i, A], Rotate[B, 6° * i, A]], i, 1, 60)
D: B + (0, -0.2)
lista2 = Sequence(Segment[Rotate[D, 30° * i, A], Rotate[B, 30° * i, A]], i, 1, 12)
divisores60: {2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60}
b = 3 (slider from 1 to 11, step 1)
denominador = Element(divisores60, b)
numerador = 1 (slider from 0 to denominador, step 1)
texto1: "denominador=" + denominador + ""
d = Segment(A, B)
E: A + (0, Tamaño)
lista3 = Sequence(Segment[Rotate[A, 360° * i / denominador, A], Rotate[E, 360° * i / denominador, A]], i, 0, denominador - 1)
e = Circle(A, E)
E' = Rotate(E, (-360)° * numerador / denominador, A)
f = CircleSector(A, E, E')
F: B + (0, -0.25)
F' = Rotate(F, (-360)° * numerador / denominador, A)
u = Vector(A, F')
g = Circle(A, E)
H = (0.818866241964723, 1.8083170204175842)
I = (0.8229392555599414, 1.0507364917069675)
lista4 = Sequence(Text[5 * i, Rotate[H, (-30)° * i, I]], i, 1, 12)
h = Circle(A, B)
divisores60_1: {2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60}
denominador_1 = Element(divisores60_1, b)
texto1_1: "denominador=" + denominador_1 + ""
texto2: "$ \frac{" + (LaTeX[numerador]) + "}{" + (LaTeX[denominador]) + "} $  $de$ $hora=$"
texto2_1: "$\frac{" + (LaTeX[numerador]) + "}{" + (LaTeX[denominador_1]) + "}$ $de $ $60$ $min.
=" + (LaTeX[numerador / denominador_1 * 60]) + "  $ $min$"
texto3: "numerador=" + numerador + ""