<p>Julian Calendar + Geometry + Some Make Up</p>

a3c1f024-7d8a-4141-a4b3-c71e36ae2ac3 62 4 5 false false 0 decimal

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

Time in minutes while clock is "ON" TimeLapse 1 :

UTC 5 - :

Julian calendar date Y,M,D to Julian Day Number Y M D JC.DN y Y M 2 ≤ (- : s 0.01 y * Floor : 12 mat b 2 s - 0.25 s * Floor + (Y 1582 < (Y 1582 ≡ (M 10 < (M 10 ≡ (D 15 < (& (| (& (| (¬ * : 365.25 y * Floor 30.6001 M 12 M 2 ≤ (* + 1 + (* Floor + D + 1720994.5 + b + 31 line :

Julian calendar date Y,M,D,h,m,s to Julian Day Number Y M D h m s JC.DN Y M D JC.DN h 24 / + m 1440 / + s 86400 / + 11 line :

День в году Tag des Jahres Day of year Y M D JC.DOY feb Y 4 mod 0 ≡ (Y 100 mod ¬ 0 ≡ 1 Y 400 mod 0 ≡ if * : m 3128 feb + 31303130313130313031112 mat : D m 1 M el ≤ (D m 1 k el k k Clear M 1 - sum + (* 31 line :

Day of week (1-7) Y M D JC.DOW Y M D JC.DN 1.5 + Floor 7 mod 1 + :

Day of week (Name) Y M D JC.DOWN Sunday Monday Tueaday Wednesday Thursday Friday 16 mat Y M D JC.DOW el :

x frac x x trunc - 11 line :

Date [Y M D h m s] form Julian Date Number N JC.D a N 0.5 + Floor : b a 1867216.25 - 36524.25 / Floor : c N 0.5 + a - : 13 mat d 1524 a + a 2299161 ≥ (1 b + b 4 / Floor - (* + : ε d 122.1 - 365.25 / Floor : f 365.25 ε * Floor : g d f - 30.6001 / Floor : 13 mat M g 13 - 12 g 14 < (* + : D d f - 30.6001 g * Floor - c + : H 24 D frac * : m 60 H frac * : 14 mat ε 4715 - M 2 > (- M D trunc H trunc m trunc 60 m frac * 16 mat 51 line :

Convert SMath time number serie to local MS Excel time number serie N time.XLS N time day / 109205 - UTC 24 / + 11 line :

Returns the actual local date as [Y M D h m s] NOW 160111 JC.DN 0 time day / + UTC 24 / + JC.D 46 range el 11 line :

Clock geometry

radius of hour hand r.hh 0.6 :

radius of minute hand r.mm 0.8 :

radius of second hand r.ss 0.9 :

dial radius r.dial 1 :

rim radius r.rim r.dial 1.09 * :

k 112 range dial k 1 el r.dial 2 π * 12 / k * sin * eval : dial k 2 el r.dial 2 π * 12 / k * cos * eval : dial k 3 el . : dial k 4 el 15 : dial k 5 el #cc000000 : 51 line for

k 160 range rim k 1 el r.rim 2 π * 60 / k * sin * eval : rim k 2 el r.rim 2 π * 60 / k * cos * eval : rim k 3 el . : rim k 4 el 8 : rim k 5 el #cc000000 : 51 line for

tiempo 02 π * TimeLapse * (2 π * 60 / range :

0 0 0.6 1 2 / 1 6 / NOW 1 el * - NOW 2 el 600 / - ( π * cos * 0.6 1 2 / 1 6 / NOW 1 el * - NOW 2 el 600 / - ( π * sin * 2 2 mat 0 0 0.8 1 2 / 1 30 / NOW 2 el * - NOW 3 el 3600 / - ( π * cos * 0.8 1 2 / 1 30 / NOW 2 el * - NOW 3 el 3600 / - ( π * sin * 2 2 mat 0 0 0.9 1 2 / 1 30 / NOW 3 el * - ( π * cos * 0.9 1 2 / 1 30 / NOW 3 el * - ( π * sin * 2 2 mat dial rim t TimeLapse 2 * π * ≥ alarm.wav Play 10 * click_low.wav Play 10 * if 6 1 sys