diff --git a/www/public_html/moon.html b/www/public_html/moon.html index c8cfb3a..2a59661 100644 --- a/www/public_html/moon.html +++ b/www/public_html/moon.html @@ -5,12 +5,11 @@ ( Month < 3 -> M = 12 ; M = Month ), JulianDay is (1461 * (Year + 4800 + (M - 14)/12))/4 + (367 * (M - 2 - 12 * ((M - 14)/12)))/12 - (3 * ((Year + 4900 + (M - 14)/12)/100))/4 + Day - 32075. -moon_phase(X) :- +moon_phase(Point) :- date_time(Y, M, D, _, _, _), julian(Y, M, D, JD), Moons is (JD - 2451549.5) / 29.53, - Point is Moons - floor(Moons), - X is Point. + Point is Moons - floor(Moons). emoji(X, 🌑) :- X < 0.125. emoji(X, 🌒) :- X >= 0.125, X < 0.25.