IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 13391


Ignore:
Timestamp:
May 15, 2007, 3:25:20 PM (19 years ago)
Author:
eugene
Message:

changed device numbers to device names; using inet sockets

Location:
branches/kapa-mods-2007-05/Ohana/src
Files:
68 edited

Legend:

Unmodified
Added
Removed

  • branches/kapa-mods-2007-05/Ohana/src/kapa2/src/CheckPipe.c

    r13344 r13391  
    2121    sock = KapaServerWait (InitSocket, &Address);
    2222    if (sock == -1) return (TRUE);
     23    close (InitSocket); /* stop listening on this socket */
    2324  }
    2425

  • branches/kapa-mods-2007-05/Ohana/src/libkapa/src/KapaOpen.c

    r13345 r13391  
    33# define MY_PORT 2500
    44# define MY_WAIT 100000
    5 # define DEBUG 0
     5# define DEBUG 1
    66
    77static int Nvalid = 0;
    … …  
    3030  if (status == -1) {
    3131    if (errno == EADDRINUSE) {
     32        close (InitSocket);
    3233        Address[0].sin_port ++;
    3334        if (Address[0].sin_port > MY_PORT + 10) exit (2);
    … …  
    194195    if (DEBUG) fprintf (stderr, "error connecting: %d\n", errno);
    195196    if (errno == ECONNREFUSED) {
     197      close (InitSocket);
    196198      Address.sin_port ++;
    197199      if (Address.sin_port > MY_PORT + 10) return (-1);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.astro/cgrid.c

    r7917 r13391  
    1717  Graphdata graphmode;
    1818
    19   if (!style_args (&graphmode, &argc, argv, 0)) return FALSE;
     19  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    2020
    2121  if (argc != 1) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.astro/cplot.c

    r7917 r13391  
    88  Graphdata graphmode;
    99
    10   if (!style_args (&graphmode, &argc, argv, 0)) return FALSE;
     10  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    1111
    1212  if (argc != 3) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.astro/czplot.c

    r7917 r13391  
    99  Graphdata graphmode;
    1010
    11   if (!style_args (&graphmode, &argc, argv, 0)) return FALSE;
     11  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    1212
    1313  if (argc != 6) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.astro/gauss.c

    r7917 r13391  
    66  int i, N, Npix, Nborder, Nspot;
    77  double X, Y, Z, max;
    8   int Ximage, Nimage;
     8  int kapa;
     9  char *name;
    910  Buffer *buf;
    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 (&kapa, name)) return (FALSE);
     19  FREE (name);
    1820
    1921  Nborder = 3;
    … …  
    3739  }
    3840 
    39   if (Ximage < 1) {
     41  if (kapa < 1) {
    4042    gprint (GP_ERR, "no active TV\n");
    4143    return (FALSE);
    … …  
    5052  if ((buf = SelectBuffer (GetImageName(), OLDBUFFER, TRUE)) == NULL) return (FALSE);
    5153
    52   KiiCursorOn (Ximage);
     54  KiiCursorOn (kapa);
    5355
    5456  for (i = 0; (i < Nspot) || (Nspot == 0); i++) {
    55     KiiCursorRead (Ximage, &X, &Y, key);
     57    KiiCursorRead (kapa, &X, &Y, key);
    5658    if (!strcasecmp (key, "Q")) break;
    5759    Z = get_aperture_stats (&buf[0].matrix, (int)(X+0.5), (int)(Y+0.5), Npix, Nborder, max);
    5860  }
    59   KiiCursorOff (Ximage);
     61  KiiCursorOff (kapa);
    6062  return (TRUE);
    6163}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.astro/objload.c

    r7917 r13391  
    77  int i, N, Objtype, type, Nline, status;
    88  FILE *f;
    9   char *buffer, *line;
    10   int Ximage, Nimage, Noverlay, NOVERLAY;
     9  char *buffer, *line, *name;
     10  int kapa, Noverlay, NOVERLAY;
    1111  KiiOverlay *overlay;
    1212 
    13   Nimage = -1;
     13  name = NULL;
    1414  if ((N = get_argument (argc, argv, "-n"))) {
    1515    remove_argument (N, &argc, argv);
    16     Nimage = atof (argv[N]);
     16    name = strcreate (argv[N]);
    1717    remove_argument (N, &argc, argv);
    1818  }
    19   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     19  if (!GetImage (&kapa, name)) return (FALSE);
     20  FREE (name);
    2021
    2122  Objtype = 0;
    … …  
    6364  free (buffer);
    6465
    65   KiiLoadOverlay (Ximage, overlay, Noverlay, argv[1]);
     66  KiiLoadOverlay (kapa, overlay, Noverlay, argv[1]);
    6667
    6768  free (overlay);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.astro/outline.c

    r7917 r13391  
    145145    /* code to draw dots on Ximage */
    146146    {
    147       int Nimage, Ximage;
     147      int kapa;
    148148      float xp, yp, x, y;
    149149      float dx, dy, theta, t, dt;
    … …  
    151151      KiiOverlay *overlay;
    152152     
    153       Nimage = -1;
    154       if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     153      if (!GetImage (&kapa, NULL)) return (FALSE);
    155154     
    156155      Noverlay = 0;
    … …  
    179178        CHECK_REALLOCATE (overlay, KiiOverlay, NOVERLAY, Noverlay, 1000);
    180179      }
    181       KiiLoadOverlay (Ximage, overlay, Noverlay, "red");
     180      KiiLoadOverlay (kapa, overlay, Noverlay, "red");
    182181      free (overlay);
    183182    }

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.astro/outline2.c

    r7917 r13391  
    303303int plot_outline () {
    304304 
    305   int Nimage, Ximage;
     305  int kapa;
    306306  float xp, yp, x, y;
    307307  float dx, dy, theta, t, dt;
    … …  
    309309  KiiOverlay *overlay;
    310310 
    311   Nimage = -1;
    312   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     311  if (!GetImage (&kapa, NULL)) return (FALSE);
    313312 
    314313  Noverlay = 0;
    … …  
    337336    CHECK_REALLOCATE (overlay, KiiOverlay, NOVERLAY, Noverlay, 1000);
    338337  }
    339   KiiLoadOverlay (Ximage, overlay, Noverlay, "red");
     338  KiiLoadOverlay (kapa, overlay, Noverlay, "red");
    340339  free (overlay);
    341340  return (TRUE);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.astro/region.c

    r10928 r13391  
    66  double Ra, Dec, Radius;
    77  double dx, dy;
    8   int N, Ngraph, Xgraph;
     8  int N, kapa;
     9  char *name;
    910  Graphdata graphmode;
    1011
    11   Ngraph = 0;
    12   if (!GetGraph (&graphmode, &Xgraph, &Ngraph)) return (FALSE);
     12  name = NULL;
     13  if ((N = get_argument (argc, argv, "-n"))) {
     14    remove_argument (N, &argc, argv);
     15    name = strcreate (argv[N]);
     16    remove_argument (N, &argc, argv);
     17  }
     18  if (!GetGraph (&graphmode, &kapa, name)) return (FALSE);
     19  FREE (name);
    1320
    1421  if ((N = get_argument (argc, argv, "-ew"))) {
    … …  
    6067 
    6168  /* ask kapa for coordinate limits, so get the right aspect ratio */
    62   KiiSendCommand (Xgraph, 4, "LIMS");
    63   KiiScanMessage (Xgraph, "%lf %lf", &dx, &dy);
     69  KiiSendCommand (kapa, 4, "LIMS");
     70  KiiScanMessage (kapa, "%lf %lf", &dx, &dy);
    6471  dx = fabs (dx);
    6572  dy = fabs (dy);
    … …  
    101108  graphmode.coords.cdelt1 = graphmode.coords.cdelt2 = 1.0;
    102109
    103   KapaClear (Xgraph, TRUE);
    104   KapaSetLimits (Xgraph, &graphmode);
     110  KapaClear (kapa, TRUE);
     111  KapaSetLimits (kapa, &graphmode);
    105112
    106113  /* drop this? */
    107114  sprintf (string, "%8.4f %8.4f (%f)", Ra, Dec, Radius);
    108   KapaSendLabel (Xgraph, string, 2);
     115  KapaSendLabel (kapa, string, 2);
    109116
    110117  SetGraph (graphmode);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/box.c

    r7917 r13391  
    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     

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/center.c

    r7917 r13391  
    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 (&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}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/clear.c

    r7917 r13391  
    44 
    55  int N, ClearSection;
    6   int Ngraph, Xgraph;
     6  int kapa;
     7  char *name;
    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 (NULL, &Xgraph, &Ngraph)) return (FALSE);
     15  if (!GetGraph (NULL, &kapa, name)) return (FALSE);
     16  FREE (name);
    1517
     18  /* XXX need to distinguish between Plot, AllPlots, Image, AllSections */
    1619  ClearSection = FALSE;
    1720  if ((N = get_argument (argc, argv, "-s"))) {
    … …  
    2528  }
    2629
    27   KapaClear (Xgraph, ClearSection);
     30  KapaClear (kapa, ClearSection);
    2831  return (TRUE);
    2932}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/close.c

    r13344 r13391  
    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  FREE (name);
     18
     19  // close_kapa (name);
    3120
    3221  return (TRUE);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/cursor.c

    r7917 r13391  
    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, IsImage;
    77  double X, Y, R, D, Z;
    88  void *oldsignal;
    … …  
    1010  Buffer *buf;
    1111
    12   Nsource = -1;
    13   if ((N = get_argument (argc, argv, "-n"))) {
    14     remove_argument (N, &argc, argv);
    15     Nsource = atof (argv[N]);
    16     remove_argument (N, &argc, argv);
    17   }
     12  /* need to be able to specify graph vs image coords
    1813  if ((N = get_argument (argc, argv, "-g"))) {
    1914    remove_argument (N, &argc, argv);
    … …  
    2419    SetImageDevice (TRUE);
    2520  } 
    26   IsImage = GetCurrentDevice ();
    27   if (IsImage) {
    28     if (!GetImage (&Source, &Nsource)) return (FALSE);
    29   } else {
    30     if (!GetGraph (&graphmode, &Source, &Nsource)) return (FALSE);
     21  */
     22
     23  name = NULL;
     24  if ((N = get_argument (argc, argv, "-n"))) {
     25    remove_argument (N, &argc, argv);
     26    name = strcreate (argv[N]);
     27    remove_argument (N, &argc, argv);
    3128  }
     29  if (!GetGraph (&graphmode, &kapa, name)) return (FALSE);
     30  FREE (name);
    3231
    3332  N = 0;
    … …  
    4241  if (IsImage) buf = SelectBuffer (GetImageName(), OLDBUFFER, FALSE);
    4342 
    44   KiiCursorOn (Source);
     43  KiiCursorOn (kapa);
    4544 
    4645  oldsignal = signal (SIGINT, handle_interrupt);
    … …  
    4847  Z = -1.0;
    4948  for (i = 0; ((i < N) || (N == 0)) && !interrupt; i++) {
    50     KiiCursorRead (Source, &X, &Y, key);
     49    KiiCursorRead (kapa, &X, &Y, key);
    5150
    5251    sprintf (string, "X%s", key);
    … …  
    7372
    7473  signal (SIGINT, oldsignal);
    75   KiiCursorOff (Source);
     74  KiiCursorOff (kapa);
    7675  return (TRUE);
    7776}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/device.c

    r7917 r13391  
    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 = GetGraphName ();
     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);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/dot.c

    r7917 r13391  
    66  float x, y;
    77
    8   if (!style_args (&graphmode, &argc, argv, -1)) return FALSE;
     8  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    99
    1010  if (argc != 3) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/erase.c

    r7917 r13391  
    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 (&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);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/grid.c

    r7917 r13391  
    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, NULL)) return (FALSE);
    1811
    1912  MajorTick = TRUE;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/init.c

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

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/jpeg.c

    r7917 r13391  
    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;
     19  }
     20  if ((N = get_argument (argc, argv, "-png"))) {
     21    remove_argument (N, &argc, argv);
     22    IsPNG = TRUE;
    1823  }
    1924
    … …  
    2732
    2833  /* display source */
    29   Nsource = -1;
     34  name = NULL;
    3035  if ((N = get_argument (argc, argv, "-n"))) {
    3136    remove_argument (N, &argc, argv);
    32     Nsource = atof (argv[N]);
     37    name = strcreate (argv[N]);
    3338    remove_argument (N, &argc, argv);
    3439  }
     40  /* need to figure out what this implies
    3541  if ((N = get_argument (argc, argv, "-g"))) {
    3642    remove_argument (N, &argc, argv);
    … …  
    4147    SetImageDevice (TRUE);
    4248  } 
    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     }
     49  */
     50
     51  if (!GetGraph (NULL, &kapa, name)) return (FALSE);
     52  if (!IsPNG && !IsPPM) {
     53    if (!filename[0]) strcpy (filename, "kapa.png");
     54    KiiJPEG (kapa, filename);
     55  }
     56  if (IsPNG) {
     57    if (!filename[0]) strcpy (filename, "kapa.png");
     58    KapaPNG (kapa, filename);
     59  }
     60  if (IsPPM) {
     61    if (!filename[0]) strcpy (filename, "kapa.ppm");
     62    KapaPPM (kapa, filename);
    5663  }
    5764  return (TRUE);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/labels.c

    r7917 r13391  
    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  }

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/limits.c

    r7917 r13391  
    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}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/line.c

    r12332 r13391  
    66  float x[2], y[2];
    77
    8   if (!style_args (&graphmode, &argc, argv, -1)) return FALSE;
     8  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    99
    1010  if (argc != 6) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/load.c

    r7917 r13391  
    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;
    1515 
    16   Nimage = -1;
     16  name = NULL;
    1717  if ((N = get_argument (argc, argv, "-n"))) {
    1818    remove_argument (N, &argc, argv);
    19     Nimage = atof (argv[N]);
     19    name = strcreate (argv[N]);
    2020    remove_argument (N, &argc, argv);
    2121  }
    22   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     22  if (!GetImage (&kapa, name)) return (FALSE);
     23  FREE (name);
    2324
    2425  ISCEL = FALSE;
    … …  
    125126  }
    126127
    127   KiiLoadOverlay (Ximage, overlay, Noverlay, argv[1]);
     128  KiiLoadOverlay (kapa, overlay, Noverlay, argv[1]);
    128129
    129130  for (i = 0; i < Noverlay; i++) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/plot.c

    r7917 r13391  
    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, NULL)) return FALSE;
    1010
    1111  /* decide on error bars */

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/point.c

    r7917 r13391  
    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;
    1213
    13   Nimage = -1;
     14  name = NULL;
    1415  if ((N = get_argument (argc, argv, "-n"))) {
    1516    remove_argument (N, &argc, argv);
    16     Nimage = atof (argv[N]);
     17    name = strcreate (argv[N]);
    1718    remove_argument (N, &argc, argv);
    1819  }
    19   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
    20  
     20  if (!GetImage (&kapa, name)) return (FALSE);
     21  FREE (name);
     22
    2123  celestial = FALSE;
    2224  if ((N = get_argument (argc, argv, "-c"))) {
    … …  
    6668  }
    6769  overlay.type = KiiOverlayTypeByName (argv[2]);
    68   KiiLoadOverlay (Ximage, &overlay, 1, argv[1]);
     70  KiiLoadOverlay (kapa, &overlay, 1, argv[1]);
    6971  return (TRUE);
    7072}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/ps.c

    r12892 r13391  
    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  if (!GetImage (&kapa, name)) return (FALSE);
     58  FREE (name);
     59
     60  if (!filename[0]) strcpy (filename, "kapa.ps");
    7461 
    7562  /* tell Ximage/Xgraph to ps the image */
    76   KiiPS (Source, filename, scaleMode, pageMode, pagename);
     63  KiiPS (kapa, filename, scaleMode, pageMode, pagename);
    7764  return (TRUE);
    7865

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/rd.c

    r13107 r13391  
    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  }

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/resize.c

    r7917 r13391  
    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 (&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}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/save.c

    r7917 r13391  
    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 (&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}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/section.c

    r7917 r13391  
    44 
    55  int N, List;
    6   int Ngraph, Xgraph;
     6  int kapa;
     7  char *name;
    78  Graphdata graphmode;
    89  KapaSection section;
    … …  
    1415  }
    1516
    16   Ngraph = -1;
     17  name = NULL;
    1718  if ((N = get_argument (argc, argv, "-n"))) {
    1819    remove_argument (N, &argc, argv);
    19     Ngraph = atof (argv[N]);
     20    name = strcreate (argv[N]);
    2021    remove_argument (N, &argc, argv);
    2122  }
    22   if (!GetGraph (&graphmode, &Xgraph, &Ngraph)) return (FALSE);
     23  if (!GetGraph (&graphmode, &kapa, name)) return (FALSE);
     24  FREE (name);
    2325
    2426  /* list sections */
    2527  if (argc == 1) {
    26     KapaGetSection (Xgraph, "*");
     28    KapaGetSection (kapa, "*");
    2729    gprint (GP_ERR, "USAGE: section name [x y dx dy]\n");
    2830    return (TRUE);
    … …  
    3234    /* select / show section */
    3335    if (List) {
    34       KapaGetSection (Xgraph, argv[1]);
     36      KapaGetSection (kapa, argv[1]);
    3537    } else {
    36       KapaSelectSection (Xgraph, argv[1]);
     38      KapaSelectSection (kapa, argv[1]);
    3739    }
    3840    return (TRUE);
    … …  
    4648    section.dx = atof (argv[4]);
    4749    section.dy = atof (argv[5]);
    48     KapaSetSection (Xgraph, &section);
     50    KapaSetSection (kapa, &section);
    4951    return (TRUE);
    5052  }

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/style.c

    r7917 r13391  
    55  Graphdata graphmode;
    66
    7   if (!style_args (&graphmode, &argc, argv, -1)) return FALSE;
     7  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    88
    99  if (argc > 1) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/textline.c

    r7917 r13391  
    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}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/tv.c

    r7917 r13391  
    33int tv (int argc, char **argv) {
    44 
    5   int N, Ximage, Nimage;
     5  int N, kapa;
     6  char *name;
    67  Coords coords;
    78  Buffer *buf;
    … …  
    910  KiiDisplayMode mode;
    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 (&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  }
    … …  
    5253  image.name = buf[0].name;
    5354
    54   KiiNewPicture1D (Ximage, &image, &mode, &coords);
     55  KiiNewPicture1D (kapa, &image, &mode, &coords);
    5556
    5657  SetImageName (argv[1]);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/tvcontour.c

    r7917 r13391  
    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 (&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

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/tvgrid.c

    r7917 r13391  
    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 (&kapa, name)) return (FALSE);
     25  FREE (name);
     26
    2527  if (argc != 3) {
    2628    gprint (GP_ERR, "USAGE: tvgrid (overlay) (buffer)\n");
    … …  
    151153    sprintf (label, format, ra);
    152154    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    write (kapa, buffer, 128);
     156    write (kapa, label, strlen(label) + 1);
    155157    RD_to_XY (&x0, &y0, ra, MIN(dec0, dec1), &coords);
    156158    for (dec = MIN(dec0, dec1) + dDEC; dec < MAX(dec0,dec1); dec += dDEC) {
    157159      RD_to_XY (&x1, &y1, ra, dec, &coords);
    158160      sprintf (buffer, "%15s %20.10f %20.10f %20.10f %20.10f ", "LINE", x0, y0, (x1 - x0), (y1 - y0));
    159       write (Ximage, buffer, 128);
     161      write (kapa, buffer, 128);
    160162      x0 = x1;
    161163      y0 = y1;
    … …  
    164166  # endif
    165167
    166   KiiLoadOverlay (Ximage, overlay, Noverlay, argv[1]);
     168  KiiLoadOverlay (kapa, overlay, Noverlay, argv[1]);
    167169  free (overlay);
    168170

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/vload.c

    r7917 r13391  
    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 (&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);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/zplot.c

    r7917 r13391  
    33int zplot (int argc, char **argv) {
    44 
    5   int i, N, Npts, Ngraph;
     5  int i, 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, NULL)) return (FALSE);
    1812
    1913  if (argc != 6) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/ImageSelection.c

    r7917 r13391  
    2020 
    2121  if (RegionSelect) {
    22     Ngraph = 0;
    23     if (!GetGraphData (&graphsky, NULL, &Ngraph)) {
     22    // how does this know which sky plot to use?
     23    if (!GetGraphData (&graphsky, NULL, NULL)) {
    2424      gprint (GP_ERR, "region display not available\n");
    2525      return (FALSE);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/catalog.c

    r12332 r13391  
    2828  int Ngraph;
    2929
    30   Ngraph = 0;
    31   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
     30  if (!GetGraph (&graphmode, NULL, NULL)) return (FALSE);
    3231
    3332  VarConfig ("GSCDIR", "%s", gscdir);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/cmpload.c

    r7917 r13391  
    88  int i, Noverlay, NOVERLAY, Nstar, N, Nin, Nextra, Objtype, type;
    99  int doneread, done, Nskip, Nbytes, nbytes, Ninstar;
    10   char *c, *c2;
     10  char *c, *c2, name;
    1111  double dtmp;
    1212  FILE *f;
    1313  char *buffer;
    14   int Ximage, Nimage;
     14  int kapa;
    1515  Header header;
    1616  KiiOverlay *overlay;
    1717 
    18   Nimage = -1;
     18  name = NULL;
    1919  if ((N = get_argument (argc, argv, "-n"))) {
    2020    remove_argument (N, &argc, argv);
    21     Nimage = atof (argv[N]);
     21    name = strcreate (argv[N]);
    2222    remove_argument (N, &argc, argv);
    2323  }
    24   if (!GetImage (&Ximage, &Nimage)) return (FALSE);
     24  if (!GetImage (&kapa, name)) return (FALSE);
     25  FREE (name);
    2526
    2627  Objtype = 0;
    … …  
    131132  fclose (f);
    132133
    133   KiiLoadOverlay (Ximage, overlay, Noverlay, argv[1]);
     134  KiiLoadOverlay (kapa, overlay, Noverlay, argv[1]);
    134135  free (overlay);
    135136

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/dmt.c

    r12332 r13391  
    44int dmt (int argc, char **argv) {
    55 
    6   int i, m, k, N, Ngraph, SaveVectors;
     6  int i, m, k, N, SaveVectors;
    77  int Nsec, Nsecfilt, NPTS;
    88  double Radius;
    … …  
    3838  }
    3939
    40   Ngraph = 0;
    41   if (!GetGraphData (&graphsky, NULL, &Ngraph)) return (FALSE);
     40  // XXX this needs to be fixed: how to access different graphs at once?
     41  gprint (GP_ERR, "ERROR: this function is currently disabled\n");
     42  if (!GetGraphData (&graphsky, NULL, NULL)) return (FALSE);
    4243  if (!GetGraph (&graphmode, NULL, NULL)) return (FALSE);
    4344

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/extract.c

    r12332 r13391  
    3131  RegionFile *regions;
    3232
    33   Ngraph = 0;
    34   if (!GetGraphData (&graphmode, NULL, &Ngraph)) return (FALSE);
     33  if (!GetGraphData (&graphmode, NULL, NULL)) return (FALSE);
    3534  if (!InitPhotcodes ()) return (FALSE);
    3635

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/fitcolors.c

    r12332 r13391  
    2020  float *out, *colorFit, *deltaFit, dColor, C0, C1;
    2121  float minDelta, maxDelta, minColor, maxColor;
    22   int fd, Npx, Npy, NPX, NPY, Nplot, PLOT;
     22  int kapa, Npx, Npy, NPX, NPY, Nplot, PLOT;
    2323  Graphdata graphdata;
    2424  KapaSection section;
    … …  
    8686
    8787  if (PLOT) {
    88     if (!GetGraph (&graphdata, &fd, NULL)) return (FALSE);
     88    if (!GetGraph (&graphdata, &kapa, NULL)) return (FALSE);
    8989    Nplot = 0;
    9090    Npx = Npy = 0;
    … …  
    9595    graphdata.style = 2;
    9696    graphdata.ptype = 2;
    97     KapaClear (fd, TRUE);
    98     KapaSetFont (fd, "helvetica", 14);
     97    KapaClear (kapa, TRUE);
     98    KapaSetFont (kapa, "helvetica", 14);
    9999
    100100    ALLOCATE (colorFit, float, 11);
    … …  
    301301          strcpy (graphdata.labels, "1100");
    302302        }
    303         KapaSetSection (fd, &section);
    304         KapaSetLimits (fd, &graphdata);
    305         KapaBox (fd, &graphdata);
    306         KapaPrepPlot (fd, Npts, &graphdata);
    307         KapaPlotVector (fd, Npts, xvec[0].elements);
    308         KapaPlotVector (fd, Npts, yvec[0].elements);
     303        KapaSetSection (kapa, &section);
     304        KapaSetLimits (kapa, &graphdata);
     305        KapaBox (kapa, &graphdata);
     306        KapaPrepPlot (kapa, Npts, &graphdata);
     307        KapaPlotVector (kapa, Npts, xvec[0].elements);
     308        KapaPlotVector (kapa, Npts, yvec[0].elements);
    309309
    310310        for (i = 0; i < 11; i++) {
    … …  
    313313        graphdata.style = 0;
    314314        graphdata.color = KapaColorByName ("red");
    315         KapaPrepPlot (fd, 11, &graphdata);
    316         KapaPlotVector (fd, 11, colorFit);
    317         KapaPlotVector (fd, 11, deltaFit);
    318 
    319         KapaSetFont (fd, "helvetica", 8);
     315        KapaPrepPlot (kapa, 11, &graphdata);
     316        KapaPlotVector (kapa, 11, colorFit);
     317        KapaPlotVector (kapa, 11, deltaFit);
     318
     319        KapaSetFont (kapa, "helvetica", 8);
    320320        sprintf (label, "%s", code[0][0].name);
    321         KapaSendTextline (fd, label, 0.2*maxColor + 0.8*minColor, 0.8*maxDelta + 0.2*minDelta, 0.0);
     321        KapaSendTextline (kapa, label, 0.2*maxColor + 0.8*minColor, 0.8*maxDelta + 0.2*minDelta, 0.0);
    322322        sprintf (label, "%s", code[1][0].name);
    323         KapaSendTextline (fd, label, 0.2*maxColor + 0.8*minColor, 0.2*maxDelta + 0.8*minDelta, 0.0);
    324         KapaSetFont (fd, "helvetica", 14);
     323        KapaSendTextline (kapa, label, 0.2*maxColor + 0.8*minColor, 0.2*maxDelta + 0.8*minDelta, 0.0);
     324        KapaSetFont (kapa, "helvetica", 14);
    325325
    326326        graphdata.style = 2;
    … …  
    336336            Npy = 0;
    337337            sprintf (filename, "%s.%02d.png", plotname, Nplot);
    338             KapaPNG (fd, filename);
    339             KapaClear (fd, TRUE);
     338            KapaPNG (kapa, filename);
     339            KapaClear (kapa, TRUE);
    340340            Nplot++;
    341341          }

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/fitsed.c

    r12332 r13391  
    3232  float color;
    3333  double X, Y;
    34   int fd, PLOT;
     34  int kapa, PLOT;
    3535  int Nrow, NROW, idx, Nfilter, start, row;
    3636  unsigned short colorP, colorM, code, USNOred, USNOblu;
    … …  
    157157
    158158  if (PLOT) {
    159     if (!GetGraph (&graphdata, &fd, NULL)) return (FALSE);
     159    if (!GetGraph (&graphdata, &kapa, NULL)) return (FALSE);
    160160    SetLimitsRaw (wavecode, NULL, Nfilter, &graphdata);
    161161    graphdata.style = 2;
    162162    graphdata.ptype = 2;
    163     KapaClear (fd, TRUE);
     163    KapaClear (kapa, TRUE);
    164164    magSection.name = strcreate ("mag");
    165165    magSection.x  = 0;
    … …  
    173173    resSection.dy = 0.5;
    174174   
    175     KapaSetFont (fd, "helvetica", 14);
     175    KapaSetFont (kapa, "helvetica", 14);
    176176    ALLOCATE (fitmags, float, Nfilter);
    177177    ALLOCATE (fiterrs, float, Nfilter);
    … …  
    261261        SWAP (graphdata.ymin, graphdata.ymax);
    262262
    263         KapaClear (fd, TRUE);
    264         KapaSetSection (fd, &magSection);
    265         KapaSetLimits (fd, &graphdata);
    266         KapaBox (fd, &graphdata);
     263        KapaClear (kapa, TRUE);
     264        KapaSetSection (kapa, &magSection);
     265        KapaSetLimits (kapa, &graphdata);
     266        KapaBox (kapa, &graphdata);
    267267        graphdata.color = KapaColorByName ("blue");
    268268        graphdata.etype = 0;
    269         KapaPrepPlot (fd, Nfilter, &graphdata);
    270         KapaPlotVector (fd, Nfilter, wavecode);
    271         KapaPlotVector (fd, Nfilter, SEDtable[minFit.row][0].mags);
     269        KapaPrepPlot (kapa, Nfilter, &graphdata);
     270        KapaPlotVector (kapa, Nfilter, wavecode);
     271        KapaPlotVector (kapa, Nfilter, SEDtable[minFit.row][0].mags);
    272272        graphdata.color = KapaColorByName ("red");
    273273        graphdata.etype = 1;
    … …  
    279279          fiterrs[j] = sourceError.mags[j];
    280280        }
    281         KapaPrepPlot (fd, Nfilter, &graphdata);
    282         KapaPlotVector (fd, Nfilter, wavecode);
    283         KapaPlotVector (fd, Nfilter, fitmags);
    284         KapaPlotVector (fd, Nfilter, fiterrs);
    285         KapaPlotVector (fd, Nfilter, fiterrs);
    286         KapaSendLabel (fd, "model,fit (mags)", 1);
     281        KapaPrepPlot (kapa, Nfilter, &graphdata);
     282        KapaPlotVector (kapa, Nfilter, wavecode);
     283        KapaPlotVector (kapa, Nfilter, fitmags);
     284        KapaPlotVector (kapa, Nfilter, fiterrs);
     285        KapaPlotVector (kapa, Nfilter, fiterrs);
     286        KapaSendLabel (kapa, "model,fit (mags)", 1);
    287287
    288288        sprintf (line, "star: %10.6f %10.6f  T: %5.0fK  A_V|: %4.2f  M_D|: %5.2f  &sc&h^2|: %5.2f",
    289289                 catalog.average[i].R, catalog.average[i].D,
    290290                 SEDtable[minFit.row][0].Temp, SEDtable[minFit.row][0].Av, minFit.Md, minFit.chisq);
    291         KapaSendLabel (fd, line, 2);
    292         KapaSendLabel (fd, "model,fit (mags)", 1);
    293 
    294         KapaSetSection (fd, &resSection);
     291        KapaSendLabel (kapa, line, 2);
     292        KapaSendLabel (kapa, "model,fit (mags)", 1);
     293
     294        KapaSetSection (kapa, &resSection);
    295295        graphdata.ymin = -1.0;
    296296        graphdata.ymax = +1.0;
    297         KapaSetLimits (fd, &graphdata);
    298         KapaBox (fd, &graphdata);
     297        KapaSetLimits (kapa, &graphdata);
     298        KapaBox (kapa, &graphdata);
    299299        graphdata.color = KapaColorByName ("red");
    300300        graphdata.etype = 1;
    … …  
    307307          fiterrs[j] = sourceError.mags[j];
    308308        }
    309         KapaPrepPlot (fd, Nfilter, &graphdata);
    310         KapaPlotVector (fd, Nfilter, wavecode);
    311         KapaPlotVector (fd, Nfilter, fitmags);
    312         KapaPlotVector (fd, Nfilter, fiterrs);
    313         KapaPlotVector (fd, Nfilter, fiterrs);
    314         KapaSendLabel (fd, "wavelength (nm)", 0);
    315         KapaSendLabel (fd, "resid (mags)", 1);
    316 
    317         KiiCursorOn (fd);
    318         while (KiiCursorRead (fd, &X, &Y, key)) {
     309        KapaPrepPlot (kapa, Nfilter, &graphdata);
     310        KapaPlotVector (kapa, Nfilter, wavecode);
     311        KapaPlotVector (kapa, Nfilter, fitmags);
     312        KapaPlotVector (kapa, Nfilter, fiterrs);
     313        KapaPlotVector (kapa, Nfilter, fiterrs);
     314        KapaSendLabel (kapa, "wavelength (nm)", 0);
     315        KapaSendLabel (kapa, "resid (mags)", 1);
     316
     317        KiiCursorOn (kapa);
     318        while (KiiCursorRead (kapa, &X, &Y, key)) {
    319319          gprint (GP_ERR, "window: %f %f (%s)\n", X, Y, key);
    320320          if (!strcasecmp (key, "Q")) {
    321             KiiCursorOff (fd);
     321            KiiCursorOff (kapa);
    322322            break;
    323323          }
    324324          if (!strcasecmp (key, "ESCAPE")) {
    325             KiiCursorOff (fd);
     325            KiiCursorOff (kapa);
    326326            goto escape;
    327327          }

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/images.c

    r12753 r13391  
    2222  int typehash;
    2323
    24   if (!style_args (&graphmode, &argc, argv, 0)) return FALSE;
     24  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    2525
    2626  WITH_MOSAIC = FALSE;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/imbox.c

    r12332 r13391  
    1212  FILE *f;
    1313
    14   if (!style_args (&graphmode, &argc, argv, 0)) return FALSE;
     14  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    1515
    1616  if (argc != 2) {
    … …  
    1818    return (FALSE);
    1919  }
    20   SetGraph (graphmode);
    2120
    2221  f = fopen (argv[1], "r");

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/imdense.c

    r7917 r13391  
    55 
    66  long A, B;
    7   int i, N, Nimage, status, NPTS, Ngraph;
     7  int i, N, Nimage, status, NPTS;
    88  double r, d, x, y, Rmin, Rmax;
    99  Vector Xvec, Yvec;
    1010  Image *image;
    1111  Graphdata graphmode;
     12
     13  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    1214
    1315  /* need options to list only images in region and only images in a time range */
    … …  
    1719    return (FALSE);
    1820  }
    19   Ngraph = 0;
    20   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
    2121
    2222  if ((image = LoadImages (&Nimage)) == NULL) return (FALSE);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/imextract.c

    r12729 r13391  
    55int imextract (int argc, char **argv) {
    66 
    7   int i, j, Nimage, mode, N, Ngraph, PhotcodeSelect;
     7  int i, j, Nimage, mode, N, PhotcodeSelect;
    88  int TimeSelect, RegionSelect, *subset, Nsubset, TimeFormat, FlagSelect, FlagValue;
    99  double x, y, ra, dec, t, trange;
    … …  
    1515  Vector *vec;
    1616
    17   Ngraph = 0;
    18   if (!GetGraphData (&graphsky, NULL, &Ngraph)) return (FALSE);
     17  if (!GetGraphData (&graphsky, NULL, NULL)) return (FALSE);
    1918  if (!InitPhotcodes ()) return (FALSE);
    2019

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/imlist.c

    r12332 r13391  
    88  double r, d, trange, t;
    99  char *name;
    10   int Ngraph;
    1110  Image *image;
    1211  Graphdata graphmode;
    1312  PhotCode *PhotcodeValue;
    1413
    15   Ngraph = 0;
    16   if (!GetGraphData (&graphmode, NULL, &Ngraph)) return (FALSE);
     14  if (!GetGraphData (&graphmode, NULL, NULL)) return (FALSE);
    1715
    1816  TimeSelect = FALSE;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/imstats.c

    r12332 r13391  
    44 
    55  int i, Nimage, N;
    6   int Mcal, AutoLimits, Ngraph;
     6  int Mcal, AutoLimits;
    77  double r, d;
    88  Image *image;
    … …  
    1010  Graphdata graphmode;
    1111
    12   Ngraph = -1;
    13   if ((N = get_argument (argc, argv, "-n"))) {
    14     remove_argument (N, &argc, argv);
    15     Ngraph = atof (argv[N]);
    16     remove_argument (N, &argc, argv);
    17   }
    18   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
     12  if (!style_args (&graphmode, &argc, argv, NULL)) return (FALSE);
    1913
    2014  Mcal = TRUE;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/lcat.c

    r7917 r13391  
    88  struct stat filestat;
    99  Graphdata graphmode;
    10   int Ngraph;
    1110  SkyTable *sky;
    1211  SkyList *skylist;
    1312
    14   Ngraph = 0;
    15   if (!GetGraphData (&graphmode, NULL, &Ngraph)) return (FALSE);
     13  if (!GetGraphData (&graphmode, NULL, NULL)) return (FALSE);
    1614
    1715  ShowAll = FALSE;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/lcurve.c

    r12332 r13391  
    66  double Ra, Dec, Radius, Radius2, r;
    77  float *RA, *DEC;
    8   int Ngraph, Xgraph, TimeFormat;
     8  int kapa, TimeFormat;
    99  int Nstars, found, AutoLimits, ErrorBars, GalMag, AbsPhot, SaveVectors;
    1010  int i, j, m, N, NPTS, *N1;
    … …  
    1919
    2020  if (!InitPhotcodes ()) return (FALSE);
    21 
    22   Ngraph = -1;
    23   if ((N = get_argument (argc, argv, "-n"))) {
    24     remove_argument (N, &argc, argv);
    25     Ngraph = atof (argv[N]);
    26     remove_argument (N, &argc, argv);
    27   }
    28   if (!GetGraph (&graphmode, &Xgraph, &Ngraph)) return (FALSE);
     21  if (!style_args (&graphmode, &argc, argv, &kapa)) return (FALSE);
    2922
    3023  AutoLimits = FALSE;
    … …  
    175168           timeptr[0].tm_year, timeptr[0].tm_mon+1, timeptr[0].tm_mday);
    176169  free (p);
    177   KapaSendLabel (Xgraph, string, 0);
     170  KapaSendLabel (kapa, string, 0);
    178171
    179172  free (RA);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/paverage.c

    r12332 r13391  
    2323  Nsecfilt = GetPhotcodeNsecfilt ();
    2424
    25   if (!style_args (&graphmode, &argc, argv, 0)) return FALSE;
     25  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    2626
    2727  f = (FILE *) NULL;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/pcat.c

    r7917 r13391  
    1414  double X[4], Y[4], Rmin, Rmax, Rmid;
    1515  char catdir[256];
    16   int Ngraph, VERBOSE;
     16  int VERBOSE;
    1717
    1818  VarConfig ("CATDIR", "%s", catdir);
    … …  
    3333    return (FALSE);
    3434  }
    35   Ngraph = 0;
    36   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
     35  if (!GetGraph (&graphmode, NULL, NULL)) return (FALSE);
    3736 
    3837  Radius = MAX (fabs(graphmode.xmax), fabs(graphmode.ymax));

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/pmeasure.c

    r12332 r13391  
    1919
    2020  if (!InitPhotcodes ()) return (FALSE);
    21   if (!style_args (&graphmode, &argc, argv, 0)) return FALSE;
     21  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    2222
    2323  f = (FILE *) NULL;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/procks.c

    r7917 r13391  
    2323  Graphdata graphmode;
    2424  char rockcat[256];
    25   int Ngraph;
    2625
    27   Ngraph = 0;
    2826  VarConfig ("ROCK_CATALOG", "%s", rockcat);
    29   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
     27  if (!GetGraph (&graphmode, NULL, NULL)) return (FALSE);
    3028
    3129  f = (FILE *) NULL;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/region_list.c

    r7917 r13391  
    9595
    9696  double Radius;
    97   int Ngraph;
    9897  Graphdata graphsky;
    9998  SkyList *skylist;
    … …  
    121120  }
    122121
    123   Ngraph = 0;
    124   if (!GetGraphData (&graphsky, NULL, &Ngraph)) {
     122  if (!GetGraphData (&graphsky, NULL, NULL)) {
    125123    gprint (GP_ERR, "region display not available\n");
    126124    return (NULL);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/showtile.c

    r7917 r13391  
    55int showtile (int argc, char **argv) {
    66
    7   int Nd, N, NPTS, Ngraph, status, i, InPic;
     7  int Nd, N, NPTS, status, i, InPic;
    88  Graphdata graphmode;
    99  Coords coords;
    … …  
    1313
    1414  /* show tile pattern in viewed region */
    15 
    16   Ngraph = 0;
    17   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
     15  if (!GetGraph (&graphmode, NULL, NULL)) return (FALSE);
    1816
    1917  if (argc != 1) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/simage.c

    r7917 r13391  
    1414  int i, j, Nstars, nstars, Nbytes, nbytes, Npts, N;
    1515  Graphdata graphmode;
    16   int Ngraph;
    1716
    18   Ngraph = 0;
    19   if (!GetGraph (&graphmode, NULL, &Ngraph)) return (FALSE);
     17  if (!GetGraph (&graphmode, NULL, NULL)) return (FALSE);
    2018
    2119  zero = 17.0;

  • branches/kapa-mods-2007-05/Ohana/src/opihi/dvo/skycat.c

    r8328 r13391  
    3232  }
    3333
    34   if (!style_args (&graphmode, &argc, argv, 0)) return FALSE;
     34  if (!style_args (&graphmode, &argc, argv, NULL)) return FALSE;
    3535
    3636  if (argc != 1) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/include/data.h

    r11007 r13391  
    162162void          SetLimitsRaw          PROTO((float *xvec, float *yvec, int Npts, Graphdata *graphmode));
    163163void          ApplyLimits           PROTO((int Xgraph, Graphdata *graphmode, int apply));
    164 int           style_args            PROTO((Graphdata *graphmode, int *argc, char **argv, int Nforce));
     164int           style_args            PROTO((Graphdata *graphmode, int *argc, char **argv, int *kapa));
    165165
    166166int read_table_vectors (int argc, char **argv, char *extname);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/include/display.h

    r13344 r13391  
    1010int           PlotVector            PROTO((int, float *));
    1111int           PlotVectorTriplet     PROTO((int N, float *xValues, float *yValues, float *zValues, Graphdata *graphmode));
    12 int           GetGraphData          PROTO((Graphdata *data, int *sock, int *N));
    13 int           GetGraph              PROTO((Graphdata *data, int *socket, int *N));
     12int           GetGraphData          PROTO((Graphdata *data, int *kapa, char *name));
     13int           GetGraph              PROTO((Graphdata *data, int *kapa, char *name));
    1414void          InitGraph             PROTO((void));
    1515int           open_graph            PROTO((int N));
    … …  
    2121
    2222/* image (tv) functions */
    23 int           GetImage              PROTO((int *socket, int *N));
     23int           GetImage              PROTO((int *kapa, char *name));
    2424char         *GetImageName          PROTO((void));
    2525void          GetImageScale         PROTO((double *zero, double *range));
    … …  
    3535
    3636void InitKapa ();
    37 int FindKapaDevice (int thisDevice);
    38 int open_kapa (int thisDevice);
     37int open_kapa (int entry);
     38int AddKapaDevice (char *name);
     39int DelKapaDevice (char *name);
     40int FindKapaDevice (char *name);
     41char *GetGraphName ();
    3942
    4043/* calling program need to define a function 'get_variable' which

  • branches/kapa-mods-2007-05/Ohana/src/opihi/lib.data/PlotVectors.c

    r10795 r13391  
    11# include "display.h"
    22
    3 static int Xgraph;
     3static int kapa;
    44
    55int PrepPlotting (int Npts, Graphdata *graphmode) {
    66
    7   if (!GetGraph (NULL, &Xgraph, NULL)) return (FALSE);
     7  if (!GetGraph (NULL, &kapa, NULL)) return (FALSE);
    88 
    99  /* tell kapa to look for the incoming image */
    10   KiiSendCommand (Xgraph, 4, "PLOT");
     10  KiiSendCommand (kapa, 4, "PLOT");
    1111 
    12   /* send Xgraph the plot details */
    13   KiiSendMessage (Xgraph, "%8d %8d %d %d %d %d %d %f %f",
     12  /* send kapa the plot details */
     13  KiiSendMessage (kapa, "%8d %8d %d %d %d %d %d %f %f",
    1414                  Npts, graphmode[0].style,
    1515                  graphmode[0].ptype, graphmode[0].ltype,
    1616                  graphmode[0].etype, graphmode[0].ebar, graphmode[0].color,
    1717                  graphmode[0].lweight, graphmode[0].size);
    18   KiiSendMessage (Xgraph, "%g %g %g %g",
     18  KiiSendMessage (kapa, "%g %g %g %g",
    1919                  graphmode[0].xmin, graphmode[0].xmax,
    2020                  graphmode[0].ymin, graphmode[0].ymax);
    … …  
    2727
    2828  Nbytes = Npts * sizeof (float);
    29   write (Xgraph, values, Nbytes);
     29  write (kapa, values, Nbytes);
    3030  return (TRUE);
    3131}

  • branches/kapa-mods-2007-05/Ohana/src/opihi/lib.data/open_kapa.c

    r13354 r13391  
    11# include "display.h"
    22# include "shell.h"
     3# include <assert.h>
     4
    35
    46/* kapa support for the new version of kapa (v2.0), which has both graph and image
    … …  
    2022  ALLOCATE (Device, char *, 1);                   // for future REALLOCATE calls
    2123  ALLOCATE (Socket, int, 1);                      // for future REALLOCATE calls
     24
     25  InitGraph ();
     26  InitImage ();
    2227}
    2328
    … …  
    4146int DelKapaDevice (char *name) {
    4247
    43   int N;
     48  int i, N;
    4449
    4550  N = FindKapaDevice (name);
    … …  
    7580
    7681  // find the given device number, or create. set this to active
    77   assert (entry > 0);
    78   assert (entry < Ndevice);
     82  assert (entry >= 0);
     83  assert (entry <  Ndevice);
    7984
    8085  // if the (now) active socket is not open, open it
    … …  
    138143# endif
    139144
     145// return the current device name, if set
     146char *GetGraphName () {
     147  if (Active < 0) return NULL;
     148  return Device[Active];
     149}
     150
    140151/* return pointers for named device or current; open if needed */
    141152// if fd == NULL, don't return the value
    … …  
    176187      return (FALSE);
    177188    }
    178     entry = Active
     189    entry = Active;
    179190  } else {
    180191    entry = FindKapaDevice (name);

  • branches/kapa-mods-2007-05/Ohana/src/opihi/lib.data/style_args.c

    r7917 r13391  
    22# include "display.h"
    33
    4 int style_args (Graphdata *graphmode, int *argc, char **argv, int Nforce) {
     4int style_args (Graphdata *graphmode, int *argc, char **argv, int *kapa) {
    55 
    66  int N, Ngraph;
    77  char *name;
    88
    9   Ngraph = -1;
     9  name = NULL;
    1010  if ((N = get_argument (*argc, argv, "-n"))) {
    1111    remove_argument (N, argc, argv);
    12     Ngraph = atof (argv[N]);
     12    name = strcreate (argv[N]);
    1313    remove_argument (N, argc, argv);
    1414  }
    15   if (Nforce != -1) Ngraph = Nforce;
    16   if (!GetGraph (graphmode, NULL, &Ngraph)) return (FALSE);
     15  if (!GetGraph (&graphmode, kapa, name)) return (FALSE);
     16  FREE (name);
    1717
    1818  if (*argc == 1) {

  • branches/kapa-mods-2007-05/Ohana/src/opihi/lib.shell/startup.c

    r12902 r13391  
    4343    else
    4444      set_str_variable ("HOME", home);
    45     set_str_variable ("KII", "kii");
    46     set_str_variable ("KAPA", "kapa");
     45    set_str_variable ("KII", "kapa2");
     46    set_str_variable ("KAPA", "kapa2");
    4747    set_variable ("PID", getpid());
    4848
Note: See TracChangeset for help on using the changeset viewer.