IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Dec 7, 2008, 3:31:01 PM (17 years ago)
Author:
eugene
Message:

big update from eam_branch_20081124 with updates to Opihi math

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Ohana/src/opihi/cmd.data/zplot.c

    r14590 r20936  
    33int zplot (int argc, char **argv) {
    44 
    5   int i, kapa, Npts;
    6   float *in, *out;
     5  int i, kapa;
     6  opihi_flt *out;
    77  double min, range;
    88  Graphdata graphmode;
     
    3131    return (FALSE);
    3232  }
    33   Zvec.Nelements = zvec[0].Nelements;
    34   ALLOCATE (Zvec.elements, float, Zvec.Nelements);
     33  SetVector (&Zvec, OPIHI_FLT, zvec[0].Nelements);
     34  out = Zvec.elements.Flt;
    3535 
    36   in = zvec[0].elements;
    37   out = Zvec.elements;
    38   for (i = 0; i < Zvec.Nelements; i++, in++, out++) {
    39     *out = MIN (1.0, MAX (0.01, (*in - min) / range));
     36  if (zvec[0].type == OPIHI_FLT) {
     37    opihi_flt *in = zvec[0].elements.Flt;
     38    for (i = 0; i < Zvec.Nelements; i++, in++, out++) {
     39      *out = MIN (1.0, MAX (0.01, (*in - min) / range));
     40    }
     41  } else {
     42    opihi_int *in = zvec[0].elements.Int;
     43    for (i = 0; i < Zvec.Nelements; i++, in++, out++) {
     44      *out = MIN (1.0, MAX (0.01, (*in - min) / range));
     45    }
    4046  }
    4147
     
    4450  graphmode.size = -1; /* point size determined by Zvec */
    4551  graphmode.etype = 0; /* no errorbars */
    46   Npts = xvec[0].Nelements;
    47   PlotVectorTriplet (kapa, Npts, xvec[0].elements, yvec[0].elements, Zvec.elements, &graphmode);
     52  PlotVectorTriplet (kapa, xvec, yvec, &Zvec, &graphmode);
    4853
    49   free (Zvec.elements);
     54  free (Zvec.elements.Ptr);
    5055
    5156  return (TRUE);
Note: See TracChangeset for help on using the changeset viewer.