---

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;
}

---