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

Correct some comments.

Browse Source
This commit is contained in:
Dianne Skoll
2022-12-26 16:26:07 -05:00
parent 0cea410529
commit 839b844a10
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/moon.c
View File

@@ -167,8 +167,8 @@ static long jdate(int y, int mon, int day)
/* */
/* jtime */
/* */
/* Convert a GMT date and time to astronomical DSE time, */
/* i.e. DSE date plus day fraction, expressed as a double */
/* Convert a GMT date and time to astronomical Julian time, */
/* i.e. Julian date plus day fraction, expressed as a double */
/* */
/***************************************************************/
static double jtime(int y, int mon, int day, int hour, int min, int sec)
@@ -181,7 +181,7 @@ static double jtime(int y, int mon, int day, int hour, int min, int sec)
/* */
/* jyear */
/* */
/* Convert a DSE date to year, month, day. */
/* Convert a Julian date to year, month, day. */
/* */
/***************************************************************/
static void jyear(double td, int *yy, int *mm, int *dd)
@@ -216,7 +216,7 @@ static void jyear(double td, int *yy, int *mm, int *dd)
/* */
/* jhms */
/* */
/* Convert a DSE time to hour, minutes and seconds. */
/* Convert a Julian time to hour, minutes and seconds. */
/* */
/***************************************************************/
static void jhms(double j, int *h, int *m, int *s)
@@ -259,7 +259,7 @@ static double meanphase(double sdate, double phase, double *usek)
/*** The next line is the replacement ***/
k = (sdate - 2415020.0) / synmonth;
/* Time in DSE centuries from 1900 January 0.5 */
/* Time in Julian centuries from 1900 January 0.5 */
t = (sdate - 2415020.0) / 36525.0;
t2 = t * t; /* Square for frequent use */
t3 = t2 * t; /* Cube for frequent use */
@@ -289,7 +289,7 @@ static double truephase(double k, double phase)
int apcor = 0;
k += phase; /* Add phase to new moon time */
t = k / 1236.8531; /* Time in DSE centuries from
t = k / 1236.8531; /* Time in Julian centuries from
1900 January 0.5 */
t2 = t * t; /* Square for frequent use */
t3 = t2 * t; /* Cube for frequent use */
@@ -381,7 +381,7 @@ static double kepler(double m, double ecc)
/* PHASE -- Calculate phase of moon as a fraction: */
/* */
/* The argument is the time for which the phase is */
/* Requested, expressed as a DSE date and */
/* Requested, expressed as a Julian date and */
/* fraction. Returns the terminator phase angle as a */
/* percentage of a full circle (i.e., 0 to 1), and */
/* stores into pointer arguments the illuminated */
@@ -507,8 +507,8 @@ int MoonPhase(int date, int time)
/* Convert from Remind representation to year/mon/day */
FromDSE(utcd, &y, &m, &d);
/* Convert to a true DSE date -- sorry for the name clashes! */
jd = jtime(y, m, d, (utct / 60), (utct % 60), 0);
/* Convert to a Julian date */
jd = jtime(y, m, d, (utct / 60), (utct % 60), 0);
/* Calculate moon phase */
mp = 360.0 * phase(jd, NULL, NULL, NULL, NULL, NULL, NULL);
@@ -539,7 +539,7 @@ void HuntPhase(int startdate, int starttim, int phas, int *date, int *time)
/* Convert from Remind representation to year/mon/day */
FromDSE(utcd, &y, &m, &d);
/* Convert to a true DSE date -- sorry for the name clashes! */
/* Convert to a true Julian date */
jdorig = jtime(y, m, d, (utct / 60), (utct % 60), 0);
jd = jdorig - 45.0;
nt1 = meanphase(jd, 0.0, &k1);