IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Oct 2, 2009, 3:15:42 PM (17 years ago)
Author:
eugene
Message:

various dvo and other improvements from gene@dev branch

Location:
trunk/Ohana/src/opihi/cmd.astro
Files:
4 edited
9 copied

Legend:

Unmodified
Added
Removed

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

    r21061 r25757  
    2121$(SRC)/cgrid.$(ARCH).o             \
    2222$(SRC)/coords.$(ARCH).o    \
     23$(SRC)/cdot.$(ARCH).o              \
    2324$(SRC)/cplot.$(ARCH).o             \
    2425$(SRC)/csystem.$(ARCH).o           \
    … …  
    3637$(SRC)/medianmap.$(ARCH).o         \
    3738$(SRC)/mkgauss.$(ARCH).o           \
     39$(SRC)/mksersic.$(ARCH).o          \
     40$(SRC)/galradius.$(ARCH).o         \
     41$(SRC)/galradbins.$(ARCH).o        \
     42$(SRC)/galsectors.$(ARCH).o        \
     43$(SRC)/galprofiles.$(ARCH).o       \
     44$(SRC)/elliprofile.$(ARCH).o       \
     45$(SRC)/petrosian.$(ARCH).o         \
    3846$(SRC)/multifit.$(ARCH).o          \
    3947$(SRC)/objload.$(ARCH).o           \

  • trunk/Ohana/src/opihi/cmd.astro/cgrid.c

    r20936 r25757  
    3737  /* set spacings for RA */
    3838  minorRA = minorDEC = 0.1;
    39   range = MIN (fabs(graphmode.xmax-graphmode.xmin), fabs(graphmode.ymax-graphmode.ymin));
     39  range = MIN (fabs(graphmode.coords.cdelt1*(graphmode.xmax-graphmode.xmin)), fabs(graphmode.coords.cdelt2*(graphmode.ymax-graphmode.ymin)));
    4040  if (NorthPole || SouthPole) range = 360;
    4141  lrange = log10(MAX(fabs(range), 1e-30));
    … …  
    5858  }
    5959  dR = range / 100.0;
     60
    6061  /* set spacings for DEC */
    61   range = MIN (fabs(graphmode.xmax-graphmode.xmin), fabs(graphmode.ymax-graphmode.ymin));
     62  range = MIN (fabs(graphmode.coords.cdelt1*(graphmode.xmax-graphmode.xmin)), fabs(graphmode.coords.cdelt2*(graphmode.ymax-graphmode.ymin)));
    6263  lrange = log10(MAX(fabs(range), 1e-30));
    6364  factor = (int) (lrange);

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

    r21061 r25757  
    55int cgrid                   PROTO((int, char **));
    66int coords                  PROTO((int, char **));
     7int cdot                    PROTO((int, char **));
    78int cplot                   PROTO((int, char **));
    89int csystem                 PROTO((int, char **));
    … …  
    2223int imsub                   PROTO((int, char **));
    2324int medianmap               PROTO((int, char **));
     25int galsectors              PROTO((int, char **));
     26int galprofiles             PROTO((int, char **));
     27int galradius               PROTO((int, char **));
     28int galradbins              PROTO((int, char **));
     29int elliprofile             PROTO((int, char **));
     30int petrosian               PROTO((int, char **));
    2431int mkgauss                 PROTO((int, char **));
     32int mksersic                PROTO((int, char **));
    2533int multifit                PROTO((int, char **));
    2634int objload                 PROTO((int, char **));
    … …  
    4452  {1, "cgrid",       cgrid,        "plot sky coordinate grid"},
    4553  {1, "coords",      coords,       "load coordinates for buffer from file"},
     54  {1, "cdot",        cdot,         "plot point in sky coordinates"},
    4655  {1, "cplot",       cplot,        "plot vectors in sky coordinates"},
    4756  {1, "csystem",     csystem,      "convert between coordinate systems"},
    … …  
    6170  {1, "medianmap",   medianmap,    "small median image"},
    6271  {1, "mkgauss",     mkgauss,      "generate a 2-D gaussian centered in image"},
     72  {1, "mksersic",    mksersic,     "generate a 2-D sersic profile"},
     73  {1, "galsectors",  galsectors,   "generate radial vectors for sectors of width dtheta"},
     74  {1, "galprofiles", galprofiles,  "generate radial vectors with interpolation along paths"},
     75  {1, "galradius",   galradius,    "generate radial vectors with interpolation along paths"},
     76  {1, "galradbins",  galradbins,   "generate radial vectors with interpolation along paths"},
     77  {1, "elliprofile", elliprofile,  "generate radial vectors with interpolation along paths"},
     78  {1, "petrosian",   petrosian,    "petrosian parameters given radial bins"},
    6379  {1, "multifit",    multifit,     "fit multi-order spectrum"},
    6480  {1, "objload",     objload,      "plot obj data on Ximage "},

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

    r14590 r25757  
    66  double Ra, Dec, Radius;
    77  float dx, dy;
    8   int N, kapa;
     8  int N, kapa, NoClear;
    99  char *name;
    1010  Graphdata graphmode;
    … …  
    4646    remove_argument (N, &argc, argv);
    4747    graphmode.flipnorth = FALSE;
     48  }
     49
     50  NoClear = FALSE;
     51  if ((N = get_argument (argc, argv, "-no-clear"))) {
     52    remove_argument (N, &argc, argv);
     53    NoClear = TRUE;
    4854  }
    4955
    … …  
    122128  graphmode.coords.cdelt1 = graphmode.coords.cdelt2 = 1.0;
    123129
    124   KapaClearSections (kapa);
     130  if (!NoClear) KapaClearSections (kapa);
    125131  KapaSetLimits (kapa, &graphmode);
    126132
    127133  /* drop this? */
    128   sprintf (string, "%8.4f %8.4f (%f)", Ra, Dec, Radius);
    129   KapaSendLabel (kapa, string, 2);
     134  // sprintf (string, "%8.4f %8.4f (%f)", Ra, Dec, Radius);
     135  // KapaSendLabel (kapa, string, 2);
    130136
    131137  // XXX is this the right thing to be doing?
Note: See TracChangeset for help on using the changeset viewer.