IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 22, 2007, 12:23:09 PM (19 years ago)
Author:
eugene
Message:

upgrading to kapa 2.0 API, upgrades to dvo user interface

Location:
trunk/Ohana/src/opihi/cmd.data
Files:
29 edited

Legend:

Unmodified
Added
Removed

  • trunk/Ohana/src/opihi/cmd.data/box.c

    r7917 r13479  
    33int box (int argc, char **argv) {
    44 
    5   int i, N, Ngraph, Xgraph;
     5  int i, N, kapa;
     6  char *name;
    67  Graphdata graphmode;
    78 
    8   Ngraph = -1;
     9  name = NULL;
    910  if ((N = get_argument (argc, argv, "-n"))) {
    1011    remove_argument (N, &argc, argv);
    11     Ngraph = atof (argv[N]);
     12    name = strcreate (argv[N]);
    1213    remove_argument (N, &argc, argv);
    1314  }
    14   if (!GetGraph (&graphmode, &Xgraph, &Ngraph)) return (FALSE);
     15  if (!GetGraph (&graphmode, &kapa, name)) return (FALSE);
     16  FREE (name);
    1517
    1618  strcpy (graphmode.ticks, "2222");
    … …  
    4951  if (argc != 1) goto usage;
    5052
    51   KapaBox (Xgraph, &graphmode);
     53  KapaBox (kapa, &graphmode);
    5254  return (TRUE);
    5355     

  • trunk/Ohana/src/opihi/cmd.data/center.c

    r7917 r13479  
    55  double x, y;
    66  int zoom;
    7   int Ximage, Nimage, N;
     7  int kapa, N;
     8  char *name;
    89 
    9   Nimage = -1;
     10  name = NULL;
    1011  if ((N = get_argument (argc, argv, "-n"))) {
    1112    remove_argument (N, &argc, argv);
    12     Nimage = atof (argv[N]);
     13    name = strcreate (argv[N]);
    1314    remove_argument (N, &argc, argv);
    1415  }
    15   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     16  if (!GetImage (NULL, &kapa, name)) return (FALSE);
     17  FREE (name);
    1618
    1719  if ((argc != 3) && (argc != 4)) {
    … …  
    2527  if (argc == 4) zoom = atof (argv[3]);
    2628
    27   KiiCenter (Ximage, x, y, zoom);
     29  KiiCenter (kapa, x, y, zoom);
    2830  return (TRUE);
    2931}

  • trunk/Ohana/src/opihi/cmd.data/clear.c

    r7917 r13479  
    11# include "data.h"
    22
     3// default is to clear all plots, but not the sections or the images
    34int clear (int argc, char **argv) {
    45 
    5   int N, ClearSection;
    6   int Ngraph, Xgraph;
     6  int N;
     7  int kapa;
     8  char *name;
    79
    8   Ngraph = -1;
     10  name = NULL;
    911  if ((N = get_argument (argc, argv, "-n"))) {
    1012    remove_argument (N, &argc, argv);
    11     Ngraph = atof (argv[N]);
     13    name = strcreate (argv[N]);
    1214    remove_argument (N, &argc, argv);
    1315  }
    14   if (!GetGraph (NULL, &Xgraph, &Ngraph)) return (FALSE);
     16  if (!GetGraph (NULL, &kapa, name)) return (FALSE);
     17  FREE (name);
    1518
    16   ClearSection = FALSE;
    17   if ((N = get_argument (argc, argv, "-s"))) {
    18     remove_argument (N, &argc, argv);
    19     ClearSection = TRUE;
     19  // clear all sections
     20  if ((N = get_argument (argc, argv, "-s")) ||
     21      (N = get_argument (argc, argv, "-section"))) {
     22      KapaClearSections (kapa);
     23      return (TRUE);
     24  }
     25
     26  // clear all sections
     27  if ((N = get_argument (argc, argv, "-graph"))) {
     28      KapaClearCurrentPlot (kapa);
     29      return (TRUE);
     30  }
     31
     32  // clear image
     33  if ((N = get_argument (argc, argv, "-image"))) {
     34      KapaClearImage (kapa);
     35      return (TRUE);
    2036  }
    2137
    2238  if (argc != 1) {
    23     gprint (GP_ERR, "USAGE: clear [-n Xgraph]\n");
     39    gprint (GP_ERR, "USAGE: clear [-n Xgraph] [-s|-section] [-image] [-graph]\n");
     40    gprint (GP_ERR, "       [-s|-section] : clear all sections\n");
     41    gprint (GP_ERR, "       [-graph]      : clear current graph\n");
     42    gprint (GP_ERR, "       [-image]      : clear current image\n");
    2443    return (FALSE);
    2544  }
    2645
    27   KapaClear (Xgraph, ClearSection);
     46  KapaClearPlots (kapa);
    2847  return (TRUE);
    2948}

  • trunk/Ohana/src/opihi/cmd.data/close.c

    r6686 r13479  
    33int close_device (int argc, char **argv) {
    44
    5   int N, Source, Nsource, IsImage;
     5  int N, kapa, IsImage;
     6  char *name;
    67  /* close current graphics device */
    78
    8   Nsource = -1;
     9  name = NULL;
    910  if ((N = get_argument (argc, argv, "-n"))) {
    1011    remove_argument (N, &argc, argv);
    11     Nsource = atof (argv[N]);
     12    name = strcreate (argv[N]);
    1213    remove_argument (N, &argc, argv);
    1314  }
    14   if ((N = get_argument (argc, argv, "-g"))) {
    15     remove_argument (N, &argc, argv);
    16     SetImageDevice (FALSE);
    17   } 
    18   if ((N = get_argument (argc, argv, "-i"))) {
    19     remove_argument (N, &argc, argv);
    20     SetImageDevice (TRUE);
    21   } 
    2215
    23   IsImage = GetCurrentDevice ();
    24   if (IsImage) {
    25     if (!GetImage (&Source, &Nsource)) return (FALSE);
    26     close_image (Nsource);
    27   } else {
    28     if (!GetGraph (NULL, &Source, &Nsource)) return (FALSE);
    29     close_graph (Nsource);
    30   }
     16  if (!GetGraph (NULL, &kapa, name)) return (FALSE);
     17
     18  close_kapa (name);
     19  FREE (name);
    3120
    3221  return (TRUE);

  • trunk/Ohana/src/opihi/cmd.data/cursor.c

    r7917 r13479  
    33int cursor (int argc, char **argv) {
    44
    5   char string[20], key[20];
    6   int i, N, Nsource, Source, IsImage;
     5  char string[20], key[20], *name;
     6  int i, N, kapa;
    77  double X, Y, R, D, Z;
    88  void *oldsignal;
    9   Graphdata graphmode;
    10   Buffer *buf;
    119
    12   Nsource = -1;
     10  // XXX need to be able to specify graph vs image coords
     11  // currently, if only one exists, that frame will be used
     12  // if both exist, defaults to ??
     13  // if ((N = get_argument (argc, argv, "-g"))) {
     14  // if ((N = get_argument (argc, argv, "-i"))) {
     15
     16  name = NULL;
    1317  if ((N = get_argument (argc, argv, "-n"))) {
    1418    remove_argument (N, &argc, argv);
    15     Nsource = atof (argv[N]);
     19    name = strcreate (argv[N]);
    1620    remove_argument (N, &argc, argv);
    1721  }
    18   if ((N = get_argument (argc, argv, "-g"))) {
    19     remove_argument (N, &argc, argv);
    20     SetImageDevice (FALSE);
    21   } 
    22   if ((N = get_argument (argc, argv, "-i"))) {
    23     remove_argument (N, &argc, argv);
    24     SetImageDevice (TRUE);
    25   } 
    26   IsImage = GetCurrentDevice ();
    27   if (IsImage) {
    28     if (!GetImage (&Source, &Nsource)) return (FALSE);
    29   } else {
    30     if (!GetGraph (&graphmode, &Source, &Nsource)) return (FALSE);
    31   }
     22  if (!GetGraphData (NULL, &kapa, name)) return (FALSE);
     23  FREE (name);
    3224
    3325  N = 0;
    … …  
    3931  }
    4032 
    41   buf = NULL;
    42   if (IsImage) buf = SelectBuffer (GetImageName(), OLDBUFFER, FALSE);
    43  
    44   KiiCursorOn (Source);
     33  KiiCursorOn (kapa);
    4534 
    4635  oldsignal = signal (SIGINT, handle_interrupt);
    4736  interrupt = FALSE;
    48   Z = -1.0;
     37
    4938  for (i = 0; ((i < N) || (N == 0)) && !interrupt; i++) {
    50     KiiCursorRead (Source, &X, &Y, key);
     39
     40    KiiCursorRead (kapa, &X, &Y, &Z, &R, &D, key);
    5141
    5242    sprintf (string, "X%s", key);
    … …  
    5444    sprintf (string, "Y%s", key);
    5545    set_variable (string, Y);
     46    sprintf (string, "Z%s", key);
     47    set_variable (string, Z);
     48    sprintf (string, "R%s", key);
     49    set_variable (string, R);
     50    sprintf (string, "D%s", key);
     51    set_variable (string, D);
     52
    5653    set_str_variable ("KEY", key);
    5754   
    58     if (IsImage) {
    59       if (buf != NULL) {
    60         Z = gfits_get_matrix_value (&buf[0].matrix, (int) X, (int) Y);
    61       }
    62       gprint (GP_LOG, "%s %f %f  %f\n", key, X, Y, Z);
    63     } else {
    64       XY_to_RD (&R, &D, X, Y, &graphmode.coords);
    65       sprintf (string, "R%s", key);
    66       set_variable (string, R);
    67       sprintf (string, "D%s", key);
    68       set_variable (string, D);
    69       gprint (GP_LOG, "%s %f %f\n", key, X, Y);
    70     }
     55    gprint (GP_LOG, "%s %f %f %f %f %f\n", key, X, Y, Z, R, D);
     56
    7157    if (!strcasecmp (key, "Q")) break;
    7258  }
    7359
    7460  signal (SIGINT, oldsignal);
    75   KiiCursorOff (Source);
     61  KiiCursorOff (kapa);
    7662  return (TRUE);
    7763}

  • trunk/Ohana/src/opihi/cmd.data/device.c

    r7917 r13479  
    33int device (int argc, char **argv) {
    44
    5   int N, Source, Nsource, IsImage;
     5  int N, kapa, IsImage;
     6  char *name;;
    67  /* set / get current graphics device */
    78
    8   Nsource = -1;
     9  name = NULL;
    910  if ((N = get_argument (argc, argv, "-n"))) {
    1011    remove_argument (N, &argc, argv);
    11     Nsource = atof (argv[N]);
     12    name = strcreate (argv[N]);
    1213    remove_argument (N, &argc, argv);
    1314  }
    14   if ((N = get_argument (argc, argv, "-g"))) {
    15     remove_argument (N, &argc, argv);
    16     SetImageDevice (FALSE);
    17   } 
    18   if ((N = get_argument (argc, argv, "-i"))) {
    19     remove_argument (N, &argc, argv);
    20     SetImageDevice (TRUE);
    21   } 
    2215
    23   IsImage = GetCurrentDevice ();
    24   if (IsImage) {
    25     if (!GetImage (&Source, &Nsource)) return (FALSE);
    26     gprint (GP_ERR, "kii %d\n", Nsource);
     16  if (name == NULL) {
     17    name = GetKapaName ();
     18    if (name == NULL) {
     19      gprint (GP_ERR, "no device defined\n");
     20      return (NULL);
     21    }
    2722  } else {
    28     if (!GetGraph (NULL, &Source, &Nsource)) return (FALSE);
    29     gprint (GP_ERR, "kapa %d\n", Nsource);
     23    if (!GetGraph (NULL, &kapa, name)) return (FALSE);
    3024  }
     25  gprint (GP_ERR, "kapa %s\n", name);
    3126
    3227  return (TRUE);

  • trunk/Ohana/src/opihi/cmd.data/dot.c

    r7917 r13479  
    33int dot (int argc, char **argv) {
    44 
     5  int kapa;
    56  Graphdata graphmode;
    67  float x, y;
    78
    8   if (!style_args (&graphmode, &argc, argv, -1)) return FALSE;
     9  if (!style_args (&graphmode, &argc, argv, &kapa)) return FALSE;
    910
    1011  if (argc != 3) {
    … …  
    1516  y = atof(argv[2]);
    1617
    17   /* set plotting options (these are sticky) */
    18   SetGraph (graphmode);
    19 
    2018  /* set point style and errorbar mode (these are NOT sticky) */
    2119  graphmode.style = 2;
    2220  graphmode.etype = 0;
    2321
    24   if (!PrepPlotting (1, &graphmode)) return (FALSE);
    25  
    26   PlotVector (1, &x);
    27   PlotVector (1, &y);
     22  if (!KapaPrepPlot (kapa, 1, &graphmode)) return (FALSE);
     23  KapaPlotVector (kapa, 1, &x, "x");
     24  KapaPlotVector (kapa, 1, &y, "y");
    2825 
    2926  return (TRUE);

  • trunk/Ohana/src/opihi/cmd.data/erase.c

    r7917 r13479  
    44 
    55  int i, N;
    6   int Ximage, Nimage;
     6  int kapa;
     7  char *name;
    78 
    8   Nimage = -1;
     9  name = NULL;
    910  if ((N = get_argument (argc, argv, "-n"))) {
    1011    remove_argument (N, &argc, argv);
    11     Nimage = atof (argv[N]);
     12    name = strcreate (argv[N]);
    1213    remove_argument (N, &argc, argv);
    1314  }
    14   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     15  if (!GetImage (NULL, &kapa, name)) return (FALSE);
     16  FREE (name);
    1517
    1618  if (argc < 2) {
    … …  
    2224  for (i = 1; i < argc; i++) {
    2325    if (!(strcasecmp (argv[i], "all"))) {
    24       KiiEraseOverlay (Ximage, "red");
    25       KiiEraseOverlay (Ximage, "green");
    26       KiiEraseOverlay (Ximage, "blue");
    27       KiiEraseOverlay (Ximage, "yellow");
     26      KiiEraseOverlay (kapa, "red");
     27      KiiEraseOverlay (kapa, "green");
     28      KiiEraseOverlay (kapa, "blue");
     29      KiiEraseOverlay (kapa, "yellow");
    2830      continue;
    2931    }
    … …  
    3234      return (FALSE);
    3335    }
    34     KiiEraseOverlay (Ximage, argv[i]);
     36    KiiEraseOverlay (kapa, argv[i]);
    3537  }
    3638  return (TRUE);

  • trunk/Ohana/src/opihi/cmd.data/grid.c

    r7917 r13479  
    33int grid (int argc, char **argv) {
    44 
    5   int j, N, MinorTick, MajorTick;
     5  int j, kapa, N, MinorTick, MajorTick;
    66  Vector Xvec, Yvec;
    77  double range, lrange, factor, mantis, fmantis, power, major, minor, first, next;
    88  Graphdata graphmode;
    9   int Ngraph;
    10 
    11   Ngraph = -1;
    12   if ((N = get_argument (argc, argv, "-n"))) {
    13     remove_argument (N, &argc, argv);
    14     Ngraph = atof (argv[N]);
    15     remove_argument (N, &argc, argv);
    16   }
    17   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
     9
     10  if (!style_args (&graphmode, &argc, argv, &kapa)) return (FALSE);
    1811
    1912  MajorTick = TRUE;
    … …  
    200193  graphmode.ptype = 100; /* connect a pair */
    201194  graphmode.etype = 0;
    202   PrepPlotting (N, &graphmode);
    203   PlotVector (N, Xvec.elements);
    204   PlotVector (N, Yvec.elements);
     195  PlotVectorPair (kapa, N, Xvec.elements, Yvec.elements, &graphmode);
    205196
    206197  free (Xvec.elements);

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

    r10997 r13479  
    235235  int i;
    236236
    237   InitGraph ();
    238   InitImage ();
     237  InitKapa ();
    239238  InitQueues ();
    240239

  • trunk/Ohana/src/opihi/cmd.data/jpeg.c

    r7917 r13479  
    44
    55  char filename[1024];
    6   int N, Source, Nsource, IsImage, IsPNG;
     6  int N, kapa, IsImage, IsPNG, IsPPM;
     7  char *name;
    78 
    89  if ((N = get_argument (argc, argv, "--help"))) {
    … …  
    1213
    1314  /* image type */
    14   IsPNG = TRUE;
     15  IsPPM = IsPNG = FALSE;
    1516  if ((N = get_argument (argc, argv, "-ppm"))) {
    1617    remove_argument (N, &argc, argv);
    17     IsPNG = FALSE;
     18    IsPPM = TRUE;
    1819  }
     20  if ((N = get_argument (argc, argv, "-png"))) {
     21    remove_argument (N, &argc, argv);
     22    IsPNG = TRUE;
     23  }
     24  if (!strcmp (argv[0], "png")) IsPNG = TRUE;
     25  if (!strcmp (argv[0], "ppm")) IsPPM = TRUE;
    1926
    2027  /* file name */
    … …  
    2734
    2835  /* display source */
    29   Nsource = -1;
     36  name = NULL;
    3037  if ((N = get_argument (argc, argv, "-n"))) {
    3138    remove_argument (N, &argc, argv);
    32     Nsource = atof (argv[N]);
     39    name = strcreate (argv[N]);
    3340    remove_argument (N, &argc, argv);
    3441  }
     42
     43  /* XXX output png / jpeg needs to include both graph and image
     44     if available.  this is a poor mix of data representations
     45     (png for image / jpeg for plots)
    3546  if ((N = get_argument (argc, argv, "-g"))) {
    36     remove_argument (N, &argc, argv);
    37     SetImageDevice (FALSE);
    38   } 
    3947  if ((N = get_argument (argc, argv, "-i"))) {
    40     remove_argument (N, &argc, argv);
    41     SetImageDevice (TRUE);
    42   } 
    43   IsImage = GetCurrentDevice ();
    44   if (IsImage) {
    45     if (!GetImage (&Source, &Nsource)) return (FALSE);
    46     if (!filename[0]) strcpy (filename, "Ximage.jpg");
    47     KiiJPEG (Source, filename);
    48   } else {
    49     if (!GetGraph (NULL, &Source, &Nsource)) return (FALSE);
    50     if (!filename[0]) strcpy (filename, "Xgraph.png");
    51     if (IsPNG) {
    52       KapaPNG (Source, filename);
    53     } else {
    54       KapaPPM (Source, filename);
    55     }
     48  */
     49
     50  if (!GetGraph (NULL, &kapa, name)) return (FALSE);
     51  if (!IsPNG && !IsPPM) {
     52    if (!filename[0]) strcpy (filename, "kapa.jpg");
     53    KiiJPEG (kapa, filename);
     54  }
     55  if (IsPNG) {
     56    if (!filename[0]) strcpy (filename, "kapa.png");
     57    KapaPNG (kapa, filename);
     58  }
     59  if (IsPPM) {
     60    if (!filename[0]) strcpy (filename, "kapa.ppm");
     61    KapaPPM (kapa, filename);
    5662  }
    5763  return (TRUE);

  • trunk/Ohana/src/opihi/cmd.data/labels.c

    r7917 r13479  
    44 
    55  char name[64];
    6   int N, size, Xgraph;
     6  int N, size, kapa;
    77
    8   if (!GetGraph (NULL, &Xgraph, NULL)) return (FALSE);
     8  if (!GetGraph (NULL, &kapa, NULL)) return (FALSE);
    99
    1010  if (get_argument (argc, argv, "-h")) {
    … …  
    3636    size = atof (argv[N]);
    3737    remove_argument (N, &argc, argv);
    38     KapaSetFont (Xgraph, name, size);
     38    KapaSetFont (kapa, name, size);
    3939  }
    4040
    4141  if ((N = get_argument (argc, argv, "-x"))) {
    4242    remove_argument (N, &argc, argv);
    43     KapaSendLabel (Xgraph, argv[N], 0);
     43    KapaSendLabel (kapa, argv[N], 0);
    4444    remove_argument (N, &argc, argv);
    4545  }
    … …  
    4747  if ((N = get_argument (argc, argv, "-y"))) {
    4848    remove_argument (N, &argc, argv);
    49     KapaSendLabel (Xgraph, argv[N], 1);
     49    KapaSendLabel (kapa, argv[N], 1);
    5050    remove_argument (N, &argc, argv);
    5151  }
    … …  
    5353  if ((N = get_argument (argc, argv, "+x"))) {
    5454    remove_argument (N, &argc, argv);
    55     KapaSendLabel (Xgraph, argv[N], 2);
     55    KapaSendLabel (kapa, argv[N], 2);
    5656    remove_argument (N, &argc, argv);
    5757  }
    … …  
    5959  if ((N = get_argument (argc, argv, "+y"))) {
    6060    remove_argument (N, &argc, argv);
    61     KapaSendLabel (Xgraph, argv[N], 3);
     61    KapaSendLabel (kapa, argv[N], 3);
    6262    remove_argument (N, &argc, argv);
    6363  }
    … …  
    6565  if ((N = get_argument (argc, argv, "-ul"))) {
    6666    remove_argument (N, &argc, argv);
    67     KapaSendLabel (Xgraph, argv[N], 4);
     67    KapaSendLabel (kapa, argv[N], 4);
    6868    remove_argument (N, &argc, argv);
    6969  }
    … …  
    7171  if ((N = get_argument (argc, argv, "-ur"))) {
    7272    remove_argument (N, &argc, argv);
    73     KapaSendLabel (Xgraph, argv[N], 5);
     73    KapaSendLabel (kapa, argv[N], 5);
    7474    remove_argument (N, &argc, argv);
    7575  }
    … …  
    7777  if ((N = get_argument (argc, argv, "-ll"))) {
    7878    remove_argument (N, &argc, argv);
    79     KapaSendLabel (Xgraph, argv[N], 6);
     79    KapaSendLabel (kapa, argv[N], 6);
    8080    remove_argument (N, &argc, argv);
    8181  }
    … …  
    8383  if ((N = get_argument (argc, argv, "-lr"))) {
    8484    remove_argument (N, &argc, argv);
    85     KapaSendLabel (Xgraph, argv[N], 7);
     85    KapaSendLabel (kapa, argv[N], 7);
    8686    remove_argument (N, &argc, argv);
    8787  }

  • trunk/Ohana/src/opihi/cmd.data/limits.c

    r7917 r13479  
    44
    55  int N, APPLY;
    6   int Ngraph, Xgraph;
     6  int kapa;
     7  char *name;
    78  Graphdata graphmode;
    89  Vector *xvec, *yvec;
    … …  
    1516    APPLY = TRUE;
    1617  }
    17 
    18   Ngraph = -1;
     18  name = NULL;
    1919  if ((N = get_argument (argc, argv, "-n"))) {
    2020    remove_argument (N, &argc, argv);
    21     Ngraph = atof (argv[N]);
     21    name = strcreate (argv[N]);
    2222    remove_argument (N, &argc, argv);
    2323  }
    24   if (!GetGraph (&graphmode, &Xgraph, &Ngraph)) return (FALSE);
     24  if (!GetGraph (&graphmode, &kapa, name)) return (FALSE);
     25  FREE (name);
    2526
    2627  if (argc == 1) {
    27     gprint (GP_ERR, "limits: %f %f %f %f [-a] [-n Xgraph]\n",
     28    gprint (GP_ERR, "limits: %f %f %f %f [-a] [-n device]\n",
    2829             graphmode.xmin, graphmode.xmax,
    2930             graphmode.ymin, graphmode.ymax);
    … …  
    7172 success:
    7273  SetLimits (xvec, yvec, &graphmode);
    73   if (APPLY) KapaSetLimits (Xgraph, &graphmode);
     74  if (APPLY) KapaSetLimits (kapa, &graphmode);
    7475  return (TRUE);
    7576}

  • trunk/Ohana/src/opihi/cmd.data/line.c

    r12332 r13479  
    33int line (int argc, char **argv) {
    44 
     5  int kapa;
    56  Graphdata graphmode;
    67  float x[2], y[2];
    78
    8   if (!style_args (&graphmode, &argc, argv, -1)) return FALSE;
     9  if (!style_args (&graphmode, &argc, argv, &kapa)) return FALSE;
    910
    1011  if (argc != 6) {
    … …  
    1718  y[1] = atof(argv[5]);
    1819
    19   SetGraph (graphmode);
    20 
    2120  /* set point style and errorbar mode (these are NOT sticky) */
    2221  graphmode.style = 0;
    2322  graphmode.etype = 0;
    2423
    25   if (!PrepPlotting (2, &graphmode)) return (FALSE);
    26  
    27   PlotVector (2, x);
    28   PlotVector (2, y);
     24  if (!KapaPrepPlot (kapa, 2, &graphmode)) return (FALSE);
     25  KapaPlotVector (kapa, 2, x, "x");
     26  KapaPlotVector (kapa, 2, y, "y");
    2927 
    3028  return (TRUE);
    31 
    3229}

  • trunk/Ohana/src/opihi/cmd.data/load.c

    r7917 r13479  
    44 
    55  int i, N, n, ISCEL;
    6   int Ximage, Nimage, Noverlay, NOVERLAY;
     6  int kapa, Noverlay, NOVERLAY;
    77  char *c, type[10], string[128], line[1024];
    88  double x, y, dx, dy, x1, y1;
    99  double dra, ddec, ra1, dec1, ra, dec;
    1010  FILE *f;
    11   char *buffer;
     11  char *buffer, *name;
    1212  Coords coords;
    1313  Buffer *buf;
    1414  KiiOverlay *overlay;
     15  KapaImageData data;
    1516 
    16   Nimage = -1;
     17  name = NULL;
    1718  if ((N = get_argument (argc, argv, "-n"))) {
    1819    remove_argument (N, &argc, argv);
    19     Nimage = atof (argv[N]);
     20    name = strcreate (argv[N]);
    2021    remove_argument (N, &argc, argv);
    2122  }
    22   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     23  if (!GetImageData (&data, &kapa, name)) return (FALSE);
     24  FREE (name);
    2325
    2426  ISCEL = FALSE;
    … …  
    4547
    4648  if (ISCEL) {
    47     if ((buf = SelectBuffer (GetImageName(), OLDBUFFER, TRUE)) == NULL) return (FALSE);
     49    if ((buf = SelectBuffer (data.name, OLDBUFFER, TRUE)) == NULL) return (FALSE);
    4850    GetCoords (&coords, &buf[0].header);
    4951  }
    … …  
    125127  }
    126128
    127   KiiLoadOverlay (Ximage, overlay, Noverlay, argv[1]);
     129  KiiLoadOverlay (kapa, overlay, Noverlay, argv[1]);
    128130
    129131  for (i = 0; i < Noverlay; i++) {

  • trunk/Ohana/src/opihi/cmd.data/plot.c

    r7917 r13479  
    33int plot (int argc, char **argv) {
    44 
    5   int N, Npts;
     5  int kapa, N, Npts;
    66  Graphdata graphmode;
    77  Vector *xvec, *yvec, *dxmvec, *dxpvec, *dymvec, *dypvec;
    88
    9   if (!style_args (&graphmode, &argc, argv, -1)) return FALSE;
     9  if (!style_args (&graphmode, &argc, argv, &kapa)) return FALSE;
    1010
    1111  /* decide on error bars */
    … …  
    3636    return (FALSE);
    3737  }
    38   SetGraph (graphmode);
    3938
    4039  /* set errorbar mode (these are NOT sticky) */
    … …  
    5756  if (Npts == 0) return (TRUE);
    5857
    59   if (!PrepPlotting (Npts, &graphmode)) return (FALSE);
     58  if (!KapaPrepPlot (kapa, Npts, &graphmode)) return (FALSE);
    6059 
    61   PlotVector (Npts, xvec[0].elements);
    62   PlotVector (Npts, yvec[0].elements);
     60  KapaPlotVector (kapa, Npts, xvec[0].elements, "x");
     61  KapaPlotVector (kapa, Npts, yvec[0].elements, "y");
    6362  if (graphmode.etype & 0x01) {
    64     PlotVector (Npts, dymvec[0].elements);
    65     PlotVector (Npts, dypvec[0].elements);
     63    KapaPlotVector (kapa, Npts, dymvec[0].elements, "dym");
     64    KapaPlotVector (kapa, Npts, dypvec[0].elements, "dyp");
    6665  }
    6766  if (graphmode.etype & 0x02) {
    68     PlotVector (Npts, dxmvec[0].elements);
    69     PlotVector (Npts, dxpvec[0].elements);
     67    KapaPlotVector (kapa, Npts, dxmvec[0].elements, "dxm");
     68    KapaPlotVector (kapa, Npts, dxpvec[0].elements, "dxp");
    7069  }
    71  
    7270  return (TRUE);
    73 
    7471}

  • trunk/Ohana/src/opihi/cmd.data/point.c

    r7917 r13479  
    44 
    55  int N, celestial, pixscale;
    6   int Ximage, Nimage;
     6  int kapa;
    77  double ra, dec, dra, ddec;
    88  double x1, y1, ra1, dec1;
     9  char *name;
    910  Coords coords;
    1011  Buffer *buf;
    1112  KiiOverlay overlay;
     13  KapaImageData data;
    1214
    13   Nimage = -1;
     15  name = NULL;
    1416  if ((N = get_argument (argc, argv, "-n"))) {
    1517    remove_argument (N, &argc, argv);
    16     Nimage = atof (argv[N]);
     18    name = strcreate (argv[N]);
    1719    remove_argument (N, &argc, argv);
    1820  }
    19   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
    20  
     21  if (!GetImageData (&data, &kapa, name)) return (FALSE);
     22  FREE (name);
     23
    2124  celestial = FALSE;
    2225  if ((N = get_argument (argc, argv, "-c"))) {
    … …  
    3740 
    3841  if (celestial) {
    39     if ((buf = SelectBuffer (GetImageName(), OLDBUFFER, TRUE)) == NULL) return (FALSE);
     42    if ((buf = SelectBuffer (data.name, OLDBUFFER, TRUE)) == NULL) return (FALSE);
    4043    GetCoords (&coords, &buf[0].header);
    4144  }
    … …  
    6669  }
    6770  overlay.type = KiiOverlayTypeByName (argv[2]);
    68   KiiLoadOverlay (Ximage, &overlay, 1, argv[1]);
     71  KiiLoadOverlay (kapa, &overlay, 1, argv[1]);
    6972  return (TRUE);
    7073}

  • trunk/Ohana/src/opihi/cmd.data/ps.c

    r12892 r13479  
    33int ps (int argc, char **argv) {
    44
    5   char filename[1024], pagename[1024];
    6   int N, Source, Nsource, scaleMode, pageMode, IsImage;
     5  char filename[1024], pagename[1024], *name;
     6  int N, kapa, scaleMode, pageMode, IsImage;
    77 
    88  if ((N = get_argument (argc, argv, "--help"))) goto help;
    … …  
    4444
    4545  /* which tool */
    46   Nsource = -1;
     46  name = NULL;
    4747  if ((N = get_argument (argc, argv, "-n"))) {
    4848    remove_argument (N, &argc, argv);
    49     Nsource = atof (argv[N]);
     49    name = strcreate (argv[N]);
    5050    remove_argument (N, &argc, argv);
    5151  }
    52   /* which device */
    53   if ((N = get_argument (argc, argv, "-g"))) {
    54     remove_argument (N, &argc, argv);
    55     SetImageDevice (FALSE);
    56   } 
    57   if ((N = get_argument (argc, argv, "-i"))) {
    58     remove_argument (N, &argc, argv);
    59     SetImageDevice (TRUE);
    60   } 
    61  
     52
    6253  if ((argc > 1) && filename[0]) goto help;
    6354
    6455  if (argc > 1) strcpy (filename, argv[1]);
    6556
    66   IsImage = GetCurrentDevice ();
    67   if (IsImage) {
    68     if (!GetImage (&Source, &Nsource)) return (FALSE);
    69     if (!filename[0]) strcpy (filename, "Ximage.ps");
    70   } else {
    71     if (!GetGraph (NULL, &Source, &Nsource)) return (FALSE);
    72     if (!filename[0]) strcpy (filename, "Xgraph.ps");
    73   }
     57  // get the connection to kapa, false if none available
     58  if (!GetGraphData (NULL, &kapa, name)) return (FALSE);
     59  FREE (name);
     60
     61  if (!filename[0]) strcpy (filename, "kapa.ps");
    7462 
    7563  /* tell Ximage/Xgraph to ps the image */
    76   KiiPS (Source, filename, scaleMode, pageMode, pagename);
     64  KiiPS (kapa, filename, scaleMode, pageMode, pagename);
    7765  return (TRUE);
    7866

  • trunk/Ohana/src/opihi/cmd.data/rd.c

    r13107 r13479  
    5959
    6060  /* find matrix, free old data */
    61   if ((buf = SelectBuffer (argv[1], ANYBUFFER, TRUE)) == NULL) return (FALSE);
     61  if ((buf = SelectBuffer (argv[1], ANYBUFFER, TRUE)) == NULL) {
     62      fclose (f);
     63      return (FALSE);
     64  }
    6265  gfits_free_matrix (&buf[0].matrix);
    6366  gfits_free_header (&buf[0].header);
    … …  
    7982      gprint (GP_ERR, "entry in %s not found\n", argv[2]);
    8083      DeleteBuffer (buf);
     84      fclose (f);
    8185      return (FALSE);
    8286    }
    … …  
    99103        DeleteBuffer (buf);
    100104        free (CCDKeyword);
     105        fclose (f);
    101106        return (FALSE);
    102107      }
    … …  
    105110        DeleteBuffer (buf);
    106111        free (CCDKeyword);
     112        fclose (f);
    107113        return (FALSE);
    108114      }
    … …  
    143149    buf[0].header.bzero = 0;
    144150    buf[0].header.bscale = 1;
     151    fclose (f);
    145152    return (TRUE);
    146153  }
    … …  
    152159    gprint (GP_ERR, "-plane is too large: %d total planes\n", Nplane);
    153160    DeleteBuffer (buf);
     161    fclose (f);
    154162    return (FALSE);
    155163  }

  • trunk/Ohana/src/opihi/cmd.data/resize.c

    r7917 r13479  
    55  char *end;
    66  double NX, NY;
    7   int N, Source, Nsource, IsImage;
     7  int N, kapa;
     8  char *name;
    89 
    910  /* display source */
    10   Nsource = -1;
     11  name = NULL;
    1112  if ((N = get_argument (argc, argv, "-n"))) {
    1213    remove_argument (N, &argc, argv);
    13     Nsource = atof (argv[N]);
     14    name = strcreate (argv[N]);
    1415    remove_argument (N, &argc, argv);
    1516  }
    16   if ((N = get_argument (argc, argv, "-g"))) {
    17     remove_argument (N, &argc, argv);
    18     SetImageDevice (FALSE);
    19   } 
    20   if ((N = get_argument (argc, argv, "-i"))) {
    21     remove_argument (N, &argc, argv);
    22     SetImageDevice (TRUE);
    23   } 
    24   IsImage = GetCurrentDevice ();
    25   if (IsImage) {
    26     if (!GetImage (&Source, &Nsource)) return (FALSE);
    27   } else {
    28     if (!GetGraph (NULL, &Source, &Nsource)) return (FALSE);
    29   }
     17  if (!GetImage (NULL, &kapa, name)) return (FALSE);
     18  FREE (name);
    3019
    3120  if (argc != 3) {
    … …  
    4938  if (!strcmp (end, "cm")) { NY *= 38; }
    5039
    51   KiiResize (Source, NX, NY);
     40  KiiResize (kapa, NX, NY);
    5241  return (TRUE);
    5342}

  • trunk/Ohana/src/opihi/cmd.data/save.c

    r7917 r13479  
    44 
    55  int N, celestial;
    6   int Ximage, Nimage;
     6  int kapa;
     7  char *name;
    78 
    8   Nimage = -1;
     9  name = NULL;
    910  if ((N = get_argument (argc, argv, "-n"))) {
    1011    remove_argument (N, &argc, argv);
    11     Nimage = atof (argv[N]);
     12    name = strcreate (argv[N]);
    1213    remove_argument (N, &argc, argv);
    1314  }
    14   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     15  if (!GetImage (NULL, &kapa, name)) return (FALSE);
     16  FREE (name);
    1517
    1618  celestial = FALSE;
    … …  
    2628  }
    2729
    28   KiiSaveOverlay (Ximage, celestial, argv[1], argv[2]);
     30  KiiSaveOverlay (kapa, celestial, argv[1], argv[2]);
    2931  return (TRUE);
    3032}

  • trunk/Ohana/src/opihi/cmd.data/section.c

    r7917 r13479  
    11# include "data.h"
     2
     3enum {NONE, LIST, UP, DOWN, TOP, BOTTOM, TOOL};
    24
    35int section (int argc, char **argv) {
    46 
    5   int N, List;
    6   int Ngraph, Xgraph;
     7  int N, action, kapa;
     8  char *name, *location;
    79  Graphdata graphmode;
    810  KapaSection section;
    911
    10   List = FALSE;
     12  action = NONE;
    1113  if ((N = get_argument (argc, argv, "-list"))) {
     14    action = LIST;
    1215    remove_argument (N, &argc, argv);
    13     List = TRUE;
     16  }
     17  if ((N = get_argument (argc, argv, "-up"))) {
     18    action = UP;
     19    remove_argument (N, &argc, argv);
     20  }
     21  if ((N = get_argument (argc, argv, "-down"))) {
     22    action = DOWN;
     23    remove_argument (N, &argc, argv);
     24  }
     25  if ((N = get_argument (argc, argv, "-top"))) {
     26    action = TOP;
     27    remove_argument (N, &argc, argv);
     28  }
     29  if ((N = get_argument (argc, argv, "-bottom"))) {
     30    action = BOTTOM;
     31    remove_argument (N, &argc, argv);
     32  }
     33  if ((N = get_argument (argc, argv, "-imtool"))) {
     34    action = TOOL;
     35    remove_argument (N, &argc, argv);
     36    location = argv[N];
     37    remove_argument (N, &argc, argv);
    1438  }
    1539
    16   Ngraph = -1;
     40  name = NULL;
    1741  if ((N = get_argument (argc, argv, "-n"))) {
    1842    remove_argument (N, &argc, argv);
    19     Ngraph = atof (argv[N]);
     43    name = strcreate (argv[N]);
    2044    remove_argument (N, &argc, argv);
    2145  }
    22   if (!GetGraph (&graphmode, &Xgraph, &Ngraph)) return (FALSE);
     46  if (!GetGraph (&graphmode, &kapa, name)) return (FALSE);
     47  FREE (name);
    2348
    2449  /* list sections */
    25   if (argc == 1) {
    26     KapaGetSection (Xgraph, "*");
    27     gprint (GP_ERR, "USAGE: section name [x y dx dy]\n");
     50  if ((argc == 1) && (action == NONE)) {
     51    KapaGetSection (kapa, "*");
     52    gprint (GP_ERR, "USAGE: section name [x y dx dy] [options]\n");
     53    gprint (GP_ERR, "OPTIONS: -list   : show properties of all sections\n");
     54    gprint (GP_ERR, "         -up     : move section up in display stack\n");
     55    gprint (GP_ERR, "         -down   : move section down in display stack\n");
     56    gprint (GP_ERR, "         -top    : move section to top of display stack\n");
     57    gprint (GP_ERR, "         -bottom : move section to bottom of display stack\n");
     58    gprint (GP_ERR, "         -imtool (position) : set location of image zoom / status box\n");
     59    gprint (GP_ERR, "                 (position may be: -x, +x, -y, +y, none)\n");
    2860    return (TRUE);
    2961  }
    … …  
    3163  if (argc == 2) {
    3264    /* select / show section */
    33     if (List) {
    34       KapaGetSection (Xgraph, argv[1]);
    35     } else {
    36       KapaSelectSection (Xgraph, argv[1]);
     65    switch (action) {
     66      case NONE:
     67        KapaSelectSection (kapa, argv[1]);
     68        break;
     69
     70      case UP:
     71        KapaMoveSection (kapa, argv[1], "up");
     72        break;
     73      case DOWN:
     74        KapaMoveSection (kapa, argv[1], "down");
     75        break;
     76      case TOP:
     77        KapaMoveSection (kapa, argv[1], "top");
     78        break;
     79      case BOTTOM:
     80        KapaMoveSection (kapa, argv[1], "bottom");
     81        break;
     82
     83      case TOOL:
     84        if (!strcmp(location, "-x")) {
     85          KapaSetToolbox (kapa, 1);
     86          break;
     87        }
     88        if (!strcmp(location, "+x")) {
     89          KapaSetToolbox (kapa, 3);
     90          break;
     91        }
     92        if (!strcmp(location, "-y")) {
     93          KapaSetToolbox (kapa, 2);
     94          break;
     95        }
     96        if (!strcmp(location, "+y")) {
     97          KapaSetToolbox (kapa, 4);
     98          break;
     99        }
     100        if (!strcmp(location, "none")) {
     101          KapaSetToolbox (kapa, 0);
     102          break;
     103        }
     104        gprint (GP_ERR, "unknown toolbox location %s\n", location);
     105        gprint (GP_ERR, "valid values: -x, +x, -y, +y, none\n");
     106        return (FALSE);
     107
     108      case LIST:
     109        KapaGetSection (kapa, argv[1]);
     110        break;
    37111    }
    38112    return (TRUE);
    … …  
    46120    section.dx = atof (argv[4]);
    47121    section.dy = atof (argv[5]);
    48     KapaSetSection (Xgraph, &section);
     122    KapaSetSection (kapa, &section);
    49123    return (TRUE);
    50124  }
    51125  gprint (GP_ERR, "USAGE: section name [x y dx dy]\n");
     126  gprint (GP_ERR, "USAGE: section name [-list] [-up] [-down] [-top] [-bottom]\n");
    52127  return (FALSE);
    53128}

  • trunk/Ohana/src/opihi/cmd.data/style.c

    r7917 r13479  
    33int style (int argc, char **argv) {
    44 
    5   Graphdata graphmode;
     5  int kapa;
     6  Graphdata data;
    67
    7   if (!style_args (&graphmode, &argc, argv, -1)) return FALSE;
     8  if (!style_args (&data, &argc, argv, &kapa)) return FALSE;
    89
    910  if (argc > 1) {
    … …  
    1112    return (FALSE);
    1213  }
    13   SetGraph (graphmode);
     14  KapaSetGraphData (kapa, &data);
    1415
    1516  return (TRUE);

  • trunk/Ohana/src/opihi/cmd.data/textline.c

    r7917 r13479  
    66  char name[64];
    77  double x, y, angle;
    8   int Ngraph, Xgraph;
     8  int kapa;
    99  Graphdata graphmode;
    1010
    11   Ngraph = -1;
    12   if ((N = get_argument (argc, argv, "-n"))) {
    13     remove_argument (N, &argc, argv);
    14     Ngraph = atof (argv[N]);
    15     remove_argument (N, &argc, argv);
    16   }
    17   if (!GetGraph (&graphmode, &Xgraph, &Ngraph)) return (FALSE);
     11  if (!style_args (&graphmode, &argc, argv, &kapa)) return (FALSE);
    1812
    1913  if ((N = get_argument (argc, argv, "-fn"))) {
    … …  
    2317    size = atof (argv[N]);
    2418    remove_argument (N, &argc, argv);
    25     KapaSetFont (Xgraph, name, size);
     19    KapaSetFont (kapa, name, size);
    2620  }
    2721
    … …  
    5852  }   
    5953
    60   KapaSendTextline (Xgraph, argv[3], x, y, angle);
     54  KapaSendTextline (kapa, argv[3], x, y, angle);
    6155  return (TRUE);
    6256}

  • trunk/Ohana/src/opihi/cmd.data/tv.c

    r7917 r13479  
    33int tv (int argc, char **argv) {
    44 
    5   int N, Ximage, Nimage;
     5  int N, kapa;
     6  char *name, *file;
    67  Coords coords;
    78  Buffer *buf;
    89  KiiImage image;
    9   KiiDisplayMode mode;
     10  KapaImageData data;
    1011
    11   Nimage = -1;
     12  name = NULL;
    1213  if ((N = get_argument (argc, argv, "-n"))) {
    1314    remove_argument (N, &argc, argv);
    14     Nimage = atof (argv[N]);
     15    name = strcreate (argv[N]);
    1516    remove_argument (N, &argc, argv);
    1617  }
    17   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     18  if (!GetImage (&data, &kapa, name)) return (FALSE);
     19  FREE (name);
    1820
    1921  /* shell exits on pipe close, FIX */
    2022  if ((N = get_argument (argc, argv, "-kill"))) {
    21     KiiClose (Ximage);
    22     Ximage = 0;
     23    KiiClose (kapa);
    2324    return (TRUE);
    2425  }
    2526
    26   mode.logflux = FALSE;
     27  data.logflux = FALSE;
    2728  if ((N = get_argument (argc, argv, "-log"))) {
    2829    remove_argument (N, &argc, argv);
    29     mode.logflux = TRUE;
     30    data.logflux = TRUE;
    3031  }
    3132
     33  // use the currently-set zero,range values if not supplied
    3234  if ((argc != 2) && (argc != 4)) {
    3335    gprint (GP_ERR, "USAGE: tv <buffer> [zero range] [-n Nimage] [-log] [-kill]\n");
    … …  
    3537  }
    3638
    37   GetImageScale (&mode.zero, &mode.range);
    3839  if (argc == 4) {
    39     mode.zero = atof (argv[2]);
    40     mode.range = atof (argv[3]);
    41     if (mode.range == 0.0) mode.range = 0.001;
    42     SetImageScale (mode.zero, mode.range);
     40    data.zero = atof (argv[2]);
     41    data.range = atof (argv[3]);
     42    if (data.range == 0.0) data.range = 0.001;
    4343  }
    4444
    … …  
    4949  image.Nx = buf[0].matrix.Naxis[0];
    5050  image.Ny = buf[0].matrix.Naxis[1];
    51   image.file = buf[0].file;
    52   image.name = buf[0].name;
    5351
    54   KiiNewPicture1D (Ximage, &image, &mode, &coords);
     52  // send only the root of the file, not the full path
     53  file = filerootname (buf[0].file);
     54  strcpy (data.file, file);
     55  free (file);
    5556
    56   SetImageName (argv[1]);
     57  strcpy (data.name, argv[1]);
     58 
     59  KiiNewPicture1D (kapa, &image, &data, &coords);
     60
    5761  set_str_variable ("TV", argv[1]);
    5862  return (TRUE);
    5963}
    60 
    61 
    62 /*
    63 projections and coordinates:
    64 
    65 IRAS:
    66 CTYPE1  = 'LL      '                    /TANGENT PLANE (L)                     
    67 CRVAL1  =         0.100000D+02          /R.A. OF MAP CENTER  *** SEE COMMENT   
    68 CDELT1  =        -0.133333D-01          /SEPARATION IN L (DEG)                 
    69 CRPIX1  =                  128          /MAPCENTER IN L                       
    70 CROTA1  =         0.000000E+00          /NO ROTATION           
    71                                                                                
    72 CTYPE2  = 'MM      '                    /TANGENT PLANE (M)                     
    73 CRVAL2  =         0.410000D+02          /DEC. OF MAP CENTER  *** SEE COMMENT   
    74 CDELT2  =         0.133333D-01          /SEPARATION IN M (DEG)                 
    75 CRPIX2  =                  128          /MAP CENTER IN M                       
    76 CROTA2  =         0.000000E+00          /NO ROTATION                           
    77 
    78 HIRAS:
    79 CTYPE1  = 'RA---TAN          ' / PRIMARY AXIS NAME                             
    80 CRVAL1  =   1.000000000000E+01 / PRIMARY REFERENCE VALUE                       
    81 CDELT1  =  -5.555555555556E-03 / PRIMARY PIXEL SEPARATION                     
    82 CRPIX1  =   2.560000000000E+02 / PRIMARY REFERENCE PIXEL                       
    83 CUNIT1  = 'DEGREE            ' / PRIMARY AXIS UNITS                           
    84 
    85 CDELT2  =   5.555555555556E-03 / PRIMARY PIXEL SEPARATION                     
    86 CRPIX2  =   2.560000000000E+02 / PRIMARY REFERENCE PIXEL                       
    87 CRVAL2  =   4.100000000000E+01 / PRIMARY REFERENCE VALUE                       
    88 CTYPE2  = 'DEC--TAN          ' / PRIMARY AXIS NAME                             
    89 CUNIT2  = 'DEGREE            ' / PRIMARY AXIS UNITS                           
    90 
    91 PROJTYPE= 'GNOMON    '                                                         
    92 COORDSYS= 'EQUATORIAL     '                                                   
    93 
    94 gene (small FOV linear):
    95 RA_O
    96 RA_X
    97 RA_Y
    98 DEC_O
    99 DEC_X
    100 DEC_Y
    101 
    102 
    103 */
    104 
    105 # ifdef NEWTVMODE 
    106   {
    107     double *pixvalues, slope;
    108 
    109     ALLOCATE (pixvalues, double, Ncolors + 1);
    110     range = fabs (range);
    111     for (i = 0; i < Ncolors + 1; i++) {
    112       if (ISLOG) {
    113         pixvalues[i] = i*range / NNcol + zero;
    114       }
    115       if (!ISLOG) {
    116         pixvalues[i] = pow (10.0, i*log10(range - 1.0) / NNcol) + zero - 1.0;
    117       }     
    118     }
    119     for (j = 0; j < Npix; j++, in++, out++) {
    120       if (*in < pixvalues[0]) {
    121         i = 0;
    122       } else {
    123         if (*in > pixvalues[NNcol]) {
    124           i = NNcol;
    125         } else {
    126           for (i = 0; (*in < pixvalues[i]) || (*in > pixvalues[i+1]); ) {
    127             slope = 1.0 / (pixvalues[i+1] - pixvalues[i]);
    128             i = MIN (MAX (0, i + (*in - pixvalues[i]) * slope), NNcol);
    129           }
    130         }       
    131       }
    132       /* for (i = 0; (i < Ncolors - 1) && (pixvalues[i] < *in); i++); */
    133       *out = i;
    134     }
    135     free (pixvalues);
    136   }
    137 # endif

  • trunk/Ohana/src/opihi/cmd.data/tvcontour.c

    r7917 r13479  
    5858  float *v00, *v01, *v10, *v11;
    5959  float *Vout, *Vin, *matrix;
    60   int Ximage, Nimage, N, Noverlay, NOVERLAY;
     60  char *name;
     61  int kapa, N, Noverlay, NOVERLAY;
    6162  Buffer *buf;
    6263  KiiOverlay *overlay;
    6364 
    64   Nimage = -1;
     65  name = NULL;
    6566  if ((N = get_argument (argc, argv, "-n"))) {
    6667    remove_argument (N, &argc, argv);
    67     Nimage = atof (argv[N]);
     68    name = strcreate (argv[N]);
    6869    remove_argument (N, &argc, argv);
    6970  }
    70   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     71  if (!GetImage (NULL, &kapa, name)) return (FALSE);
     72  FREE (name);
    7173
    7274  if ((argc != 4) && (argc != 5)) {
    … …  
    277279  }
    278280 
    279   KiiLoadOverlay (Ximage, overlay, Noverlay, argv[2]);
     281  KiiLoadOverlay (kapa, overlay, Noverlay, argv[2]);
    280282  free (overlay);
    281283

  • trunk/Ohana/src/opihi/cmd.data/tvgrid.c

    r7917 r13479  
    1111  char format[16];
    1212  Coords coords;
    13   int Ximage, Nimage, N, Noverlay, NOVERLAY;
     13  int kapa, N, Noverlay, NOVERLAY;
     14  char *name;
    1415  Buffer *buf;
    1516  KiiOverlay *overlay;
    1617
    17   Nimage = -1;
     18  name = NULL;
    1819  if ((N = get_argument (argc, argv, "-n"))) {
    1920    remove_argument (N, &argc, argv);
    20     Nimage = atof (argv[N]);
     21    name = strcreate (argv[N]);
    2122    remove_argument (N, &argc, argv);
    2223  }
    23   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
    24  
     24  if (!GetImage (NULL, &kapa, name)) return (FALSE);
     25  FREE (name);
     26
    2527  if (argc != 3) {
    2628    gprint (GP_ERR, "USAGE: tvgrid (overlay) (buffer)\n");
    … …  
    144146  }
    145147
    146   # if (0)
    147   /* write the labels on the axes */
    148   dDEC = fabs(dec1 - dec0) / 100;
    149   for (ra = dRA * ((int)(MIN(ra0, ra1)/dRA) + 1); ra < MAX(ra0, ra1); ra += dRA) {
    150     RD_to_XY (&x0, &y0, ra + 0.1*dRA, MIN(dec0, dec1), &coords);
    151     sprintf (label, format, ra);
    152     sprintf (buffer, "%15s %20.10f %20.10f %20.10f %20.10f ", "TEXT", x0, y0, (double)(strlen(label) + 1), 0.0);
    153     write (Ximage, buffer, 128);
    154     write (Ximage, label, strlen(label) + 1);
    155     RD_to_XY (&x0, &y0, ra, MIN(dec0, dec1), &coords);
    156     for (dec = MIN(dec0, dec1) + dDEC; dec < MAX(dec0,dec1); dec += dDEC) {
    157       RD_to_XY (&x1, &y1, ra, dec, &coords);
    158       sprintf (buffer, "%15s %20.10f %20.10f %20.10f %20.10f ", "LINE", x0, y0, (x1 - x0), (y1 - y0));
    159       write (Ximage, buffer, 128);
    160       x0 = x1;
    161       y0 = y1;
    162     }
    163   }
    164   # endif
    165 
    166   KiiLoadOverlay (Ximage, overlay, Noverlay, argv[1]);
     148  KiiLoadOverlay (kapa, overlay, Noverlay, argv[1]);
    167149  free (overlay);
    168150

  • trunk/Ohana/src/opihi/cmd.data/vload.c

    r7917 r13479  
    44 
    55  int i, N, Noverlay;
    6   int Ximage, Nimage, type;
     6  int kapa, type;
     7  char *name;
    78  double dx, dy, size;
    89  KiiOverlay *overlay;
    910  Vector *vecx, *vecy;
    1011 
    11   Nimage = -1;
     12  name = NULL;
    1213  if ((N = get_argument (argc, argv, "-n"))) {
    1314    remove_argument (N, &argc, argv);
    14     Nimage = atof (argv[N]);
     15    name = strcreate (argv[N]);
    1516    remove_argument (N, &argc, argv);
    1617  }
    17   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     18  if (!GetImage (NULL, &kapa, name)) return (FALSE);
     19  FREE (name);
    1820
    1921  type = KII_OVERLAY_BOX;
    … …  
    6567  }
    6668
    67   KiiLoadOverlay (Ximage, overlay, Noverlay, argv[1]);
     69  KiiLoadOverlay (kapa, overlay, Noverlay, argv[1]);
    6870  free (overlay);
    6971  return (TRUE);

  • trunk/Ohana/src/opihi/cmd.data/zplot.c

    r7917 r13479  
    33int zplot (int argc, char **argv) {
    44 
    5   int i, N, Npts, Ngraph;
     5  int i, kapa, N, Npts;
    66  float *in, *out;
    77  double min, range;
    … …  
    99  Vector *xvec, *yvec, *zvec, Zvec;
    1010
    11   Ngraph = -1;
    12   if ((N = get_argument (argc, argv, "-n"))) {
    13     remove_argument (N, &argc, argv);
    14     Ngraph = atof (argv[N]);
    15     remove_argument (N, &argc, argv);
    16   }
    17   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
     11  if (!style_args (&graphmode, &argc, argv, &kapa)) return (FALSE);
    1812
    1913  if (argc != 6) {
    … …  
    5145  graphmode.etype = 0; /* no errorbars */
    5246  Npts = xvec[0].Nelements;
    53   PrepPlotting (Npts, &graphmode);
    54 
    55   PlotVector (Npts, xvec[0].elements);
    56   PlotVector (Npts, yvec[0].elements);
    57   PlotVector (Npts, Zvec.elements);
     47  PlotVectorTriplet (kapa, Npts, xvec[0].elements, yvec[0].elements, Zvec.elements, &graphmode);
    5848
    5949  free (Zvec.elements);
Note: See TracChangeset for help on using the changeset viewer.