Changeset 5450 for trunk/psLib/test/astro/tst_psEarthOrientation.c

Timestamp:

Oct 27, 2005, 4:25:22 PM (21 years ago)

Author:

drobbin

Message:

Implemented and tested psAberration, but results have not been verified.

File:

• trunk/psLib/test/astro/tst_psEarthOrientation.c (modified) (5 diffs)

trunk/psLib/test/astro/tst_psEarthOrientation.c

@@ -6 +6 @@
 *  @author d-Rob, MHPCC
 *
-*  @version $Revision: 1.4 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2005-10-27 20:38:19 $
+*  @version $Revision: 1.5 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2005-10-28 02:25:22 $
 *
 *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -24 +24 @@
 
 testDescription tests[] = {
-                              {testEOCParallax, 666, "psEOCParallax()", 0, false},
-                              {testAberration, 667, "psAberration()", 0, false},
-                              {testGravityDeflect, 668, "psGravityDeflect()", 0, false},
+                              {testAberration, 666, "psAberration()", 0, false},
+                              {testGravityDeflect, 667, "psGravityDeflect()", 0, false},
+                              {testEOCParallax, 668, "psEOCParallax()", 0, false},
                               {testEOCPrecession, 669, "psEOCPrecession()", 0, false},
                               {testEOCPolar, 670, "psEOCPolar()", 0, false},
@@ -41 +41 @@
 }
 
-psS32 testEOCParallax(void)
-{
-
-    return 0;
-}
-
 psS32 testAberration(void)
 {
+    psSphere *actual = NULL;
+    psSphere *apparent = psSphereAlloc();
+    psSphere *direction = psSphereAlloc();
+    psSphere *empty = NULL;
+
+    apparent->r = 0.2;
+    apparent->d = 0.2;
+    direction->r = 0.2035;
+    direction->d = 0.2035;
+
+    empty = psAberration(empty, actual, direction, 0.1);
+    if (empty != NULL) {
+        psError(PS_ERR_BAD_PARAMETER_NULL, false,
+                "psAberration failed to return NULL for NULL apparent input.\n");
+        return 1;
+    }
+    empty = psAberration(empty, apparent, actual, 0.1);
+    if (empty != NULL) {
+        psError(PS_ERR_BAD_PARAMETER_NULL, false,
+                "psAberration failed to return NULL for NULL direction input.\n");
+        return 2;
+    }
+
+    actual = psAberration(actual, apparent, direction, 0.4);
+    printf("\nactual = r,d  = %.8g, %.8g\n", actual->r, actual->d);
+
+    psFree(actual);
+    psFree(apparent);
+    psFree(direction);
 
     return 0;
@@ -79 +102 @@
     }
 
-
     actual = psGravityDeflection(actual, apparent, sun);
     psSphere *result = psSphereSetOffset(apparent, actual, PS_SPHERICAL, PS_RADIAN);
@@ -88 +110 @@
     psFree(apparent);
     psFree(sun);
+
+    return 0;
+}
+
+psS32 testEOCParallax(void)
+{
 
     return 0;