hora = 3 (slider from 0 to 23, step 1)
minuto = 0 (slider from 0 to 59, step 1)
segundo = 0 (slider from 0 to 59, step 1)
cent = 0 (slider from 0 to 99, step 1)
tiempo: 3600.0 * hora + 60.0 * minuto + segundo + cent / 100.0
test = If(hora < 12.0, 0.0, 1.0)
test2 = If(minuto < 10.0, 0.0, 1.0)
test3 = If(hora < 13.0 ∨ hora > 21.0, 0.0, 1.0)
C_R = (0, 0)
γ: tiempo * ° / 120.0
H: 4.0 * (sin(γ), cos(γ))
δ: tiempo * ° / 10.0
M: 5.0 * (sin(δ), cos(δ))
β = Angle(H, C_R, M)
β_0: β / °
β_1: floor(β_0 + 1.0E-4)
β_2: abs(β_0 - β_1) * 60.0
β_3 = If(β_2 < 0.0, 0.0, floor(β_2 + 0.01))
β_4: (β_2 - β_3) * 60.0
α = Angle(M, C_R, H)
α_0: α / °
α_1: floor(α_0 + 1.0E-4)
α_2: abs(α_0 - α_1) * 60.0
α_3 = If(α_2 < 0.0, 0.0, floor(α_2 + 0.01))
α_4: (α_2 - α_3) * 60.0
t: α * 180.0 / 3.141592653589793
ε: 6.0 * ° * tiempo
C_S = (0, -3.3)
S: C_S + 0.7 * (sin(ε), cos(ε))
m = Vector((0.0, 0.0), M)
h = Vector((0.0, 0.0), H)
s = Vector(C_S, S)
c = Circle((0.0, 0.0), 5.0)
d = Circle((0.0, 0.0), 4.0)
ζ: ceil(α)
T1: "α = " + α_1 + "º " + α_3 + "´ " + α_4 + "´´"
T2: "β = " + β_1 + "º " + β_3 + "´ " + β_4 + "´´"
η: 360.0 * ° * tiempo
SS: C_S + 1.3 * (sin(η), cos(η))
a = Segment(C_S, SS)
C'_R = (0, 0)
A1: (8.0 + 10000.0 * test + 10000.0 * (1.0 - test2), -1.0 * 6.5)
T3: hora + ":" + minuto
hora2 = If(hora < 13.0, hora, hora - 12.0)
T4: hora2 + ":" + minuto + " AM"
T5: hora2 + ":" + minuto + " PM"
T6: hora + ":0" + minuto
C: (8.0 + 10000.0 * (1.0 - test2), -1.0 * 5.0)
C2: (8.0 + 10000.0 * test2, -1.0 * 5.0)
B1: (8.0 + (1.0 - test) * 10000.0 + 0.32 * test3 + (1.0 - test2) * 10000.0, -1.0 * 6.5)
T7: hora2 + ":0" + minuto + " PM"
B2: (8.0 + (1.0 - test) * 10000.0 + 0.32 * test3 + 10000.0 * test2, -1.0 * 6.5)
A2: (8.0 + 10000.0 * test + 10000.0 * test2, -1.0 * 6.5)
T8: hora2 + ":0" + minuto + " AM"