Changeset 3404

Timestamp:

Mar 9, 2005, 9:50:52 PM (21 years ago)

Author:

eugene

Message:

working to mosaic astrom

Location:

trunk/Ohana/src

Files:

• addstar/src/dump.c (added)
• mosastro/src/mosastro.c (modified) (1 diff)
• mosastro/src/testcoords.c (added)
• opihi/cmd.astro/drizzle.c (modified) (1 diff)
• opihi/cmd.astro/transform.c (modified) (1 diff)

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

@@ -63 +63 @@
   Cerror   = GetScatter (&Nastro);
   fprintf (stderr, "scatter (chip) : %f for %d stars\n", Cerror, Nastro);
+
+  ClipOnFP (3.0);
+  Cerror   = GetScatter (&Nastro);
+  fprintf (stderr, "scatter (clip) : %f for %d stars\n", Cerror, Nastro);
+
+  FitChips (ChipOrder);
+  Cerror   = GetScatter (&Nastro);
+  fprintf (stderr, "scatter (chip) : %f for %d stars\n", Cerror, Nastro);
   if ((DUMP != NULL) && !strcmp (DUMP, "fitchips")) dump_match();
 

trunk/Ohana/src/opihi/cmd.astro/drizzle.c

@@ -40 +40 @@
   GetCoords (&coords_in, &in[0].header);
   GetCoords (&coords_out, &out[0].header);
+
+  /* for the moment, disable WRP / DIS */
+  if (!strcmp(&coords_in.ctype[4], "-WRP") || !strcmp(&coords_out.ctype[4], "-WRP")) {
+    fprintf (stderr, "WRP mode not implemented for astrom\n");
+    return (FALSE);
+  }
   
   scale_in = sqrt(fabs(coords_in.cdelt1*coords_in.cdelt2*(coords_in.pc1_1*coords_in.pc2_2 - coords_in.pc1_2*coords_in.pc2_1)));

trunk/Ohana/src/opihi/cmd.astro/transform.c

@@ -23 +23 @@
   GetCoords (&coords_in, &in[0].header);
   GetCoords (&coords_out, &out[0].header);
+
+  /* for the moment, disable WRP / DIS */
+  if (!strcmp(&coords_in.ctype[4], "-WRP") || !strcmp(&coords_out.ctype[4], "-WRP")) {
+    fprintf (stderr, "WRP mode not implemented for astrom\n");
+    return (FALSE);
+  }
   
   scale_in = sqrt(fabs(coords_in.cdelt1*coords_in.cdelt2*(coords_in.pc1_1*coords_in.pc2_2 - coords_in.pc1_2*coords_in.pc2_1)));