felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 23:08:40 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Final sunrise/sunset tweakage.

Browse Source
This commit is contained in:
David F. Skoll
2013-03-08 10:26:48 -05:00
parent 3026b6e5c2
commit df95cdaad0
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/funcs.c
View File

@@ -1902,7 +1902,8 @@ static int SunStuff(int rise, double cosz, int jul)
#if BASE != 1990 #if BASE != 1990
#error Sun calculations assume a BASE of 1990! #error Sun calculations assume a BASE of 1990!
#endif #endif
M = (0.9856002585 * t) + 357.828757; /* In degrees */ t = 0.9856002585 * t;
M = t + 357.828757; /* In degrees */
/* Make sure M is in the range [0, 360) */ /* Make sure M is in the range [0, 360) */
M -= (floor(M/360.0) * 360.0); M -= (floor(M/360.0) * 360.0);
@@ -1951,7 +1952,9 @@ static int SunStuff(int rise, double cosz, int jul)
H = RADDEG * acos(cosH); H = RADDEG * acos(cosH);
if (rise) H = 360.0 - H; if (rise) H = 360.0 - H;
T = H / 15.0 + a_hr - 0.065710 * jan0d - 6.726637276; t -= 360.0*floor(t/360.0);
T = (H-t) / 15.0 + a_hr - 6.726637276;
if (T >= 24.0) T -= 24.0; if (T >= 24.0) T -= 24.0;
else if (T < 0.0) T+= 24.0; else if (T < 0.0) T+= 24.0;