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

Timestamp:

Feb 6, 2014, 12:43:34 PM (12 years ago)

Author:

eugene

Message:

fix cast in vgauss; add cast function; add psf smoothing options to densify and cdensify; add floor, ceil, rint functions to opihi math; add cdensify function; add fitpm function

Location:

trunk/Ohana/src/opihi

Files:

• . (modified) (1 prop)
• cmd.astro (modified) (1 prop)
• cmd.astro/Makefile (modified) (1 diff)
• cmd.astro/cdensify.c (copied) (copied from branches/eam_branches/ipp-20131211/Ohana/src/opihi/cmd.astro/cdensify.c )
• cmd.astro/fitplx.c (modified) (1 diff)
• cmd.astro/fitpm.c (copied) (copied from branches/eam_branches/ipp-20131211/Ohana/src/opihi/cmd.astro/fitpm.c )
• cmd.astro/init.c (modified) (2 diffs)
• cmd.astro/region.c (modified) (1 diff)

trunk/Ohana/src/opihi/cmd.astro/Makefile

@@ -28 +28 @@
 $(SRC)/cval.$(ARCH).o              \
 $(SRC)/czplot.$(ARCH).o    \
+$(SRC)/cdensify.$(ARCH).o          \
 $(SRC)/drizzle.$(ARCH).o           \
 $(SRC)/flux.$(ARCH).o              \
 $(SRC)/fitplx.$(ARCH).o    \
+$(SRC)/fitpm.$(ARCH).o     \
 $(SRC)/fixwrap.$(ARCH).o           \
 $(SRC)/fixcols.$(ARCH).o           \

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

@@ -112 +112 @@
   coords.pc1_2  = coords.pc2_1 = 0.0;
   coords.Npolyterms = 1;
-  strcpy (coords.ctype, "RA---SIN");
+  strcpy (coords.ctype, "DEC--SIN");
 
   double *X, *Y, *t, *pX, *pY, *dX, *dY;

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

@@ -13 +13 @@
 int czplot                  PROTO((int, char **));
 int czcplot                 PROTO((int, char **));
+int cdensify                PROTO((int, char **));
 int drizzle                 PROTO((int, char **));
 int flux                    PROTO((int, char **));
 int fitplx                  PROTO((int, char **));
+int fitpm                   PROTO((int, char **));
 int fixwrap                 PROTO((int, char **));
 int fiximage                PROTO((int, char **));
@@ -73 +75 @@
   {1, "czplot",      czplot,       "plot scaled vectors in sky coordinates"},
   {1, "czcplot",     czcplot,      "plot color-scaled vectors in sky coordinates"},
+  {1, "cdensify",    cdensify,      "vectors to density history on projection"},
   {1, "drizzle",     drizzle,      "transform image to image"},
   {1, "flux",        flux,         "flux in a convex contour"},
   {1, "fitplx",      fitplx,       "fit proper motion and parallax"},
+  {1, "fitpm",       fitpm,        "fit proper motion only"},
   {1, "fixwrap",     fixwrap,      "fix megacam over-wrapped pixels"},
   {1, "fiximage",    fiximage,     "fix pixels in an image by interpolation"},

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

@@ -80 +80 @@
   if (!ohana_str_to_radec (&Ra, &Dec, argv[1], argv[2])) return (FALSE);
   Radius = atof (argv[3]);
-  strcpy (graphmode.coords.ctype, "RA---TAN");
+  strcpy (graphmode.coords.ctype, "DEC--TAN");
   if (argc == 5) {
     if (!strcasecmp (argv[4], "TAN")) 
-      strcpy (graphmode.coords.ctype, "RA---TAN");
+      strcpy (graphmode.coords.ctype, "DEC--TAN");
     if (!strcasecmp (argv[4], "SIN")) 
-      strcpy (graphmode.coords.ctype, "RA---SIN");
+      strcpy (graphmode.coords.ctype, "DEC--SIN");
     if (!strcasecmp (argv[4], "ARC")) 
-      strcpy (graphmode.coords.ctype, "RA---ARC");
+      strcpy (graphmode.coords.ctype, "DEC--ARC");
     if (!strcasecmp (argv[4], "STG")) 
-      strcpy (graphmode.coords.ctype, "RA---STG");
+      strcpy (graphmode.coords.ctype, "DEC--STG");
     if (!strcasecmp (argv[4], "ZEA"))
-      strcpy (graphmode.coords.ctype, "RA---ZEA");
+      strcpy (graphmode.coords.ctype, "DEC--ZEA");
     if (!strcasecmp (argv[4], "AIT")) 
-      strcpy (graphmode.coords.ctype, "RA---AIT");
+      strcpy (graphmode.coords.ctype, "DEC--AIT");
     if (!strcasecmp (argv[4], "GLS")) 
-      strcpy (graphmode.coords.ctype, "RA---GLS");
+      strcpy (graphmode.coords.ctype, "DEC--GLS");
     if (!strcasecmp (argv[4], "PAR")) 
-      strcpy (graphmode.coords.ctype, "RA---PAR");
+      strcpy (graphmode.coords.ctype, "DEC--PAR");
   }