Changeset 3401 for trunk/Ohana/src/mosastro/src/output.c

Timestamp:

Mar 9, 2005, 9:22:34 PM (21 years ago)

Author:

eugene

Message:

added mosaic astrom support (WRP / DIS)

File:

• trunk/Ohana/src/mosastro/src/output.c (modified) (2 diffs)

trunk/Ohana/src/mosastro/src/output.c

@@ -20 +20 @@
     strcat (outname, ext);
 
+    /* convert chip from PLY to WRP (linked to field model) */
+    strcpy (chip[i].map.ctype, "DEC--WRP");
     PutCoords (&chip[i].map, &chip[i].header);
     wchip (outname, &chip[i]);
@@ -41 +43 @@
     fclose (f);
   }
+
+  { 
+
+    FILE *f;
+    double R, D;
+
+    fprintf (stderr, "starting test.dat\n");
+    f = fopen ("test.dat", "w");
+    if (f == (FILE *) NULL) {
+      fprintf (stderr, "ERROR: can't create output file \n");
+      exit (1);
+    }
+
+    RegisterMosaic (&field.project);
+    for (i = 0; i < chip[0].Nmatch; i++) {
+      XY_to_RD (&R, &D, chip[0].raw[i].X, chip[0].raw[i].Y, &chip[0].map);
+      fprintf (f, "%4d  %10.6f %10.6f  %8.2f %8.2f\n", 
+               i, R, D, chip[0].raw[i].X, chip[0].raw[i].Y);
+    }
+    fclose (f);
+  }
+  
 }