Changeset 15562 for trunk/psastro/src/psastroDemoDump.c

Timestamp:

Nov 9, 2007, 3:09:20 PM (19 years ago)

Author:

eugene

Message:

updating all changes from from eam_branch_20071023

File:

• trunk/psastro/src/psastroDemoDump.c (modified) (1 diff)

trunk/psastro/src/psastroDemoDump.c

@@ -173 +173 @@
     return true;
 }
+
+// this function is used for test purposes (-trace psastro.dump 1)
+bool psastroDumpGradients (psArray *gradients, char *filename) {
+
+    FILE *f = fopen (filename, "w");
+
+    for (int i = 0; i < gradients->n; i++) {
+        pmAstromGradient *gradient = gradients->data[i];
+
+        // write out the refstar data
+        fprintf (f, "%d  %f %f   %f %f  %f %f\n", i,
+                 gradient->FP.x, gradient->FP.y, 
+                 gradient->dTPdL.x, gradient->dTPdL.y, 
+                 gradient->dTPdM.x, gradient->dTPdM.y);
+    }
+
+    fclose (f);
+    return true;
+}
+