---
 wmsun/SunRise.c | 14 ++++----------
 wmsun/wmSun.c   | 10 ++++------
 2 files changed, 8 insertions(+), 16 deletions(-)

diff --git a/wmsun/SunRise.c b/wmsun/SunRise.c
index 0a8e43c..c9742d5 100644
--- a/wmsun/SunRise.c
+++ b/wmsun/SunRise.c
@@ -120,16 +120,12 @@ UTTohhmm(double UT, int *h, int *m){
 
 double SinH(int year, int month, int day, double UT){
 
-    double     TU0, TU, TU2, TU3, LambdaMoon, BetaMoon, R, AGE, frac(), jd();
-    double     RA_Sun, DEC_Sun, T0, gmst, lmst, Tau, epsilon;
+    double     TU, frac(), jd();
+    double     RA_Sun, DEC_Sun, gmst, lmst, Tau;
     double     M, DL, L, SL, X, Y, Z, RHO;
     
 
-    TU0 = (jd(year, month, day, 0.0) - 2451545.0)/36525.0;
-
     TU = (jd(year, month, day, UT+62.0/3600.0) - 2451545.0)/36525.0;
-    TU2 = TU*TU;
-    TU3 = TU2*TU;
 
     M = P2*frac(0.993133 + 99.997361*TU);
     DL = 6893.0*sin(M) + 72.0*sin(2.0*M);
@@ -146,9 +142,7 @@ double SinH(int year, int month, int day, double UT){
      *  Compute Greenwich Mean Sidereal Time (gmst)
      */
     UT = 24.0*frac( UT/24.0 );
-/*
-    gmst = 6.697374558 + 1.0027379093*UT + (8640184.812866*TU0 
+(0.093104-6.2e-6*TU)*TU2)/3600.0;
-*/
+
     gmst = 6.697374558 + 1.0*UT + 
(8640184.812866+(0.093104-6.2e-6*TU)*TU)*TU/3600.0;
     lmst = 24.0*frac( (gmst-Glon/15.0) / 24.0 );
 
@@ -167,7 +161,7 @@ double jd(ny, nm, nd, UT)
 int ny, nm, nd;
 double UT;
 {
-        double A, B, C, D, JD, MJD, day;
+        double A, B, C, D, JD, day;
 
         day = nd + UT/24.0;
 
diff --git a/wmsun/wmSun.c b/wmsun/wmSun.c
index 3873636..7979181 100644
--- a/wmsun/wmSun.c
+++ b/wmsun/wmSun.c
@@ -126,14 +126,12 @@ int main(int argc, char *argv[]) {
 
     struct tm          *GMTTime, *LocalTime;
     XEvent             event;
-    int                        i, n, k, j, ImageNumber;
-    int                Year, Month, DayOfWeek, OldLocalDayOfMonth;
+    int                        n;
+    int                Year, Month, OldLocalDayOfMonth;
     int                        LocalDayOfMonth,        DayOfMonth;
-    int                        Hours, Mins, Secs, OldSecs, digit, xoff, xsize;
     long               CurrentLocalTime, CurrentGMTTime, date;
-    double             UT, val, RA, DEC, LTRise, LTSet, LocalHour, hour24();
-    int                        D, H, M, S, sgn, A, B, q;
-    char               str[10];
+    double             UT, val, LTRise, LTSet, LocalHour, hour24();
+    int                        H, M;
 
 
 
-- 
2.1.4


-- 
To unsubscribe, send mail to wmaker-dev-unsubscr...@lists.windowmaker.org.

Reply via email to