---

Sadie_General.c

Go to the documentation of this file.

/*
##########################################
# Sadie_General.c -
#   Set of routines for linking misc. SADIE routines to tcl/tk.
#
# RCS: $Id: Sadie_General.c,v 2.1 1999/01/14 15:37:32 conner Exp $ 
# 
# Digital Image Analysis Lab
# Dept. of Electrical and Computer Engineering
# University of Arizona
##########################################
*/

#include <tcl.h>
#include <tk.h>
#include "sadie.h"

/* RCS Indentification information */
static char rcsid[] =
  "$Id: Sadie_General.c,v 2.1 1999/01/14 15:37:32 conner Exp $";

int
Sadie_General_CloseCmd (ClientData client_data, Tcl_Interp * interp, int argc,
                        char *argv[])
{
  int imgaddr;
  IMAGE *theimg;
  char msg[SLEN];

  if (argc <= 1)
    {
      sprintf (msg, "Usage: Sadie_General_Close image_address");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  RELIMG (&theimg);

  return TCL_OK;
}

int
Sadie_General_InitializeProgCmd (ClientData client_data, Tcl_Interp * interp,
                                 int argc, char *argv[])
{
  INIT ();

  return TCL_OK;
}

int
Sadie_General_FinishProgCmd (ClientData client_data, Tcl_Interp * interp,
                             int argc, char *argv[])
{
  FINI ();

  return TCL_OK;
}

int
Sadie_General_WidthCmd (ClientData client_data, Tcl_Interp * interp, int argc,
                        char *argv[])
{
  int imgaddr;
  IMAGE *theimg;
  char msg[SLEN];

  if (argc <= 1)
    {
      sprintf (msg, "Usage: Sadie_General_Width image_address");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  if (!CHECKIMG (theimg))
    {
      Tcl_AppendResult (interp,
                        "couldn't identify SADIE image from input string.",
                        NULL);
      return TCL_ERROR;
    }

  sprintf (msg, "%d", (int) floor ((double) theimg->npix));
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_General_HeightCmd (ClientData client_data, Tcl_Interp * interp,
                         int argc, char *argv[])
{
  int imgaddr;
  IMAGE *theimg;
  char msg[SLEN];

  if (argc <= 1)
    {
      sprintf (msg, "Usage: Sadie_General_Height image_address");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  if (!CHECKIMG (theimg))
    {
      Tcl_AppendResult (interp,
                        "couldn't identify SADIE image from input string.",
                        NULL);
      return TCL_ERROR;
    }

  sprintf (msg, "%d", (int) floor ((double) theimg->nlin));
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_General_GminCmd (ClientData client_data, Tcl_Interp * interp, int argc,
                       char *argv[])
{
  int imgaddr;
  IMAGE *theimg;
  char msg[SLEN];

  if (argc <= 1)
    {
      sprintf (msg, "Usage: Sadie_General_Gmin image_address");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  if (!CHECKIMG (theimg))
    {
      Tcl_AppendResult (interp,
                        "couldn't identify SADIE image from input string.",
                        NULL);
      return TCL_ERROR;
    }

  RANGE (theimg);

  sprintf (msg, "%d", (int) floor ((double) theimg->gmin));
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_General_GmaxCmd (ClientData client_data, Tcl_Interp * interp, int argc,
                       char *argv[])
{
  int imgaddr;
  IMAGE *theimg;
  char msg[SLEN];

  if (argc <= 1)
    {
      sprintf (msg, "Usage: Sadie_General_Gmax image_address");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  if (!CHECKIMG (theimg))
    {
      Tcl_AppendResult (interp,
                        "couldn't identify SADIE image from input string.",
                        NULL);
      return TCL_ERROR;
    }

  RANGE (theimg);

  sprintf (msg, "%d", (int) floor ((double) theimg->gmax));
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_General_GetNumBandsCmd (ClientData client_data, Tcl_Interp * interp,
                              int argc, char *argv[])
{
  int inimgaddr;
  int number;
  IMAGE *inimg;
  char msg[SLEN];

  if (argc <= 1)
    {
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &inimgaddr);
  inimg = (IMAGE *) inimgaddr;

  number = inimg->nbnd;

  sprintf (msg, "%d", number);
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;

}

int
Sadie_General_GetPixelCmd (ClientData client_data, Tcl_Interp * interp,
                           int argc, char *argv[])
{
  int imgaddr;
  int xval, yval;
  double rval, gval, bval;
  IMAGE *theimg;
  char msg[SLEN];

  if (argc <= 3)
    {
      sprintf (msg,
               "Usage: Sadie_General_GetPixel image_address xcoord ycoord");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  if (Tcl_GetInt (interp, argv[2], &xval) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (Tcl_GetInt (interp, argv[3], &yval) != TCL_OK)
    {
      return TCL_ERROR;
    }

  if (!CHECKIMG (theimg))
    {
      Tcl_AppendResult (interp,
                        "couldn't identify SADIE image from input string.",
                        NULL);
      return TCL_ERROR;
    }

  if (theimg->nbnd == 3)
    {
      rval = (double) theimg->data[0][yval][xval];
      gval = (double) theimg->data[1][yval][xval];
      bval = (double) theimg->data[2][yval][xval];
    }
  else
    {
      rval = (double) theimg->data[0][yval][xval];
      gval = rval;
      bval = rval;
    }

  sprintf (msg, "%.4e %.4e %.4e", rval, gval, bval);
  Tcl_SetResult (interp, msg, TCL_VOLATILE);

  return TCL_OK;
}

int
Sadie_General_SetNameCmd (ClientData client_data, Tcl_Interp * interp,
                          int argc, char *argv[])
{
  int imgaddr;
  IMAGE *theimg;
  char msg[SLEN];

  if (argc <= 2)
    {
      sprintf (msg, "Usage: Sadie_General_SetName image_address name");
      Tcl_SetResult (interp, msg, TCL_VOLATILE);
      return TCL_ERROR;
    }

  sscanf (argv[1], "%x", &imgaddr);
  theimg = (IMAGE *) imgaddr;

  if (!CHECKIMG (theimg))
    {
      Tcl_AppendResult (interp,
                        "couldn't identify SADIE image from input string.",
                        NULL);
      return TCL_ERROR;
    }
  else
    {
      sprintf (theimg->text, "%s", argv[2]);
    }

  return TCL_OK;
}

/*************************************************************************
 *
 * This procedure initializes the the Sadie_General procedures when
 * this package is loaded.
 *
 *************************************************************************/
int
Sadie_General_Init (Tcl_Interp * interp)
{
  Tcl_CreateCommand (interp, "Sadie_General_Close", Sadie_General_CloseCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_General_InitializeProg",
                     Sadie_General_InitializeProgCmd, (ClientData) NULL,
                     NULL);
  Tcl_CreateCommand (interp, "Sadie_General_FinishProg",
                     Sadie_General_FinishProgCmd, (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_General_Width", Sadie_General_WidthCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_General_Height", Sadie_General_HeightCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_General_Gmin", Sadie_General_GminCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_General_Gmax", Sadie_General_GmaxCmd,
                     (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_General_GetNumBands",
                     Sadie_General_GetNumBandsCmd, (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_General_GetPixel",
                     Sadie_General_GetPixelCmd, (ClientData) NULL, NULL);
  Tcl_CreateCommand (interp, "Sadie_General_SetName",
                     Sadie_General_SetNameCmd, (ClientData) NULL, NULL);

  return TCL_OK;
}

---