62db1465-f8aa-4c80-aeff-3c0aea3a3dc4 2 4 5 false false 0 decimal

&[DATE] &[TIME] - &[FILENAME]

Floor function, enable in android or cloud versions. x Floor x x frac 1 + frac - eval 11 line :

Define the local GMT time

Local GMT or UTC time UTC 0 :

N 2305813.5 0 time day / + UTC UTC IsDefined * 24 / + : x frac x x trunc - : x y Clear k 1 12 range : 1 4 mat x r Arrow r 0 0 2 π * 60 / x * sin 2 π * 60 / x * cos 2 2 mat * : a N 0.5 + Floor : b a 1867216.25 - 36524.25 / Floor : c N 0.5 + a - : d 1524 a + a 2299161 ≥ ( 1 b + b 4 / Floor - ( * + : 1 4 mat ε d 122.1 - 365.25 / Floor : f 365.25 ε * Floor : g d f - 30.6001 / Floor : D d f - 30.6001 g * Floor - c + : h 24 D frac * : m 60 h frac * : 1 6 mat 60 m frac * trunc 2 Arrow m trunc 2 Arrow 5 h 12 mod * 1.25 Arrow 0.3 - 1 - h 12 < AM PM if 10 #101010 1 5 mat x k el 2.1 2 π * 12 / k * sin * : y k el 2.1 2 π * 12 / k * cos * : . 15 #cc000000 augment 0 0 . 20 #101010 1 5 mat 0 0 . 400 silver 1 5 mat 7 1 sys eval 5 1 line N 2305813.5 0 time day / + UTC UTC IsDefined * 24 / + : x frac x x trunc - : 1 2 mat a N 0.5 + Floor : b a 1867216.25 - 36524.25 / Floor : c N 0.5 + a - : d 1524 a + a 2299161 ≥ ( 1 b + b 4 / Floor - ( * + : 1 4 mat ε d 122.1 - 365.25 / Floor : f 365.25 ε * Floor : g d f - 30.6001 / Floor : D d f - 30.6001 g * Floor - c + : h 24 D frac * : m 60 h frac * : 1 6 mat ξ F2 str ξ trunc num2str : str strlen 1 ≡ 0 str concat eval str eval if 2 1 line : 0 0 h F2 : m F2 : 60 m frac * trunc F2 concat 16 green 1 5 mat eval 5 1 line

Analog clock from Davide & Ber7: https://en.smath.com/forum/yaf_postst1913_Analog-Clock.aspx

Alvaro