Changeset 3404 for trunk/Ohana/src/opihi/cmd.astro

Timestamp:

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

Author:

eugene

Message:

working to mosaic astrom

Location:

trunk/Ohana/src/opihi/cmd.astro

Files:

• drizzle.c (modified) (1 diff)
• transform.c (modified) (1 diff)

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)));