---

img2text.c

Go to the documentation of this file.

#include        <stdio.h>
#include        "sadie.h"

/*-Copyright Information------------------------------------------------------*/
/* Copyright (c) 1988 by the University of Arizona Digital Image Analysis Lab */
/*----------------------------------------------------------------------------*/
/*-General Information--------------------------------------------------------*/
/*                                                                            */
/*   This function writes the SADIE pixel values from main memory to disk     */
/*   as text.                                                                 */
/*                                                                            */
/*----------------------------------------------------------------------------*/
/*-Interface Information------------------------------------------------------*/
void
IMG2TEXT (IMAGE * in,           /*  I   Pointer to the image.                                 */
          char *name            /*  I   String, containing the name of the disk file.         */
/*----------------------------------------------------------------------------*/
  )
{
  register int i, j, k;
  char msg[SLEN];
  FILE *fp = NULL;

  if (TIMES)
    TIMING (T_IMG2TEXT);

  /* check input */

  if (!CHECKIMG (in))
    {
      MESSAGE ('E', " Can't identify image.");
      goto the_end;
    }

  if (NAMES)
    {
      MESSAGE ('I', "");
      MESSAGE ('I', "IMG2TEXT");
      MESSAGE ('I', "");
      sprintf (msg, " Input image:               %s", in->text);
      MESSAGE ('I', msg);
      sprintf (msg, " Output disk file:          %s", name);
      MESSAGE ('I', msg);
      sprintf (msg, " Output format:             ASCII Text");
      MESSAGE ('I', msg);
      MESSAGE ('I', " ...............");
    }

  /* open image file */
  if (!(fp = fopen (name, "w")))
    {
      sprintf (msg, " Can't open file %s.", name);
      MESSAGE ('E', msg);
      goto the_end;
    }

  for (i = 0; i < in->nbnd; i++)
    for (j = 0; j < in->nlin; j++)
      {
        for (k = 0; k < in->npix; k++)
          fprintf (fp, "%.4f ", in->data[i][j][k]);
        fprintf (fp, "\n");
      }

  /* close image file */
the_end:

  if (fp)
    {
      if (fclose (fp))
        {
          sprintf (msg, " Can't close file %s.", name);
          MESSAGE ('W', msg);
        }
    }

  if (TIMES)
    TIMING (T_EXIT);
}

---