Changeset 15199

Timestamp:

Oct 3, 2007, 4:31:48 PM (19 years ago)

Author:

eugene

Message:

added a new dump function

File:

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

trunk/psastro/src/psastroDemoDump.c

@@ -68 +68 @@
     fclose (f1);
     fclose (f2);
+    return true;
+}
+
+bool psastroDumpMatchedStars (char *filename, psArray *rawstars, psArray *refstars, psArray *match) {
+    
+    FILE *f = fopen (filename, "w");
+
+    for (int i = 0; i < match->n; i++) {
+        pmAstromMatch *pair = match->data[i];
+        pmAstromObj *raw = rawstars->data[pair->raw];
+        pmAstromObj *ref = refstars->data[pair->ref];
+
+        fprintf (f, "%f %f  %f %f  %f %f  %f %f  %f   |   ",  
+                 DEG_RAD*raw->sky->r, DEG_RAD*raw->sky->d, 
+                 raw->TP->x, raw->TP->y, 
+                 raw->FP->x, raw->FP->y, 
+                 raw->chip->x, raw->chip->y, raw->Mag);
+
+        fprintf (f, "%f %f  %f %f  %f %f  %f %f  %f\n", 
+                 DEG_RAD*ref->sky->r, DEG_RAD*ref->sky->d, 
+                 ref->TP->x, ref->TP->y, 
+                 ref->FP->x, ref->FP->y, 
+                 ref->chip->x, ref->chip->y, ref->Mag);
+    }
+    fclose (f);
+
     return true;
 }