/* See {float_pnm_image_io.h}. */
/* Last edited on 2013-10-21 00:33:01 by stolfilocal */

#include "jspnm_image.h"
#include "float_pnm_image.h"
#include <assert.h>
#include <affirm.h>
#include <bool.h>

#include "float_pnm_image_io.h"

float_image_t *float_pnm_image_read
  ( char *fname,    /* PPM/PGM/PBM file name (with extension). */
    bool_t isMask,  /* TRUE for masks, FALSE for images. */
    double gamma,   /* Gamma to use in decoding (0 = linear decoding). */
    double bias,    /* Offset to use in decoding. */
    bool_t yup,     /* If TRUE, reverses the indexing of rows. */
    bool_t warn,    /* If TRUE, prints "reading {fname}..." to {stderr}. */
    bool_t verbose  /* If TRUE, prints conversion diagnostics to {stderr}. */
  )
  { pnm_image_t *pim = pnm_image_read(fname, warn);
    float_image_t *fim = float_image_from_pnm_image(pim, isMask, NULL, NULL, yup, verbose);
    if (gamma != 1)
      { int c;
        for (c = 0; c < fim->sz[0]; c++)
          { float_image_apply_gamma(fim, c, gamma, bias); }
      }
    pnm_image_free(pim);
    return fim;
  }

void float_pnm_image_write
  ( char *fname,        /* PPM/PGM/PBM file name (with extension). */            
    float_image_t *fim, /* Image to write. */
    bool_t isMask,      /* TRUE for masks, FALSE for images. */
    double gamma,       /* Gamma to use in encoding (1 = linear encoding). */    
    double bias,        /* Offset to use in encoding. */                         
    bool_t yup,         /* If TRUE, reverses the indexing of rows. */            
    bool_t warn,        /* If TRUE, prints "writing {fname}..." to {stderr}. */
    bool_t verbose      /* If TRUE, prints conversion diagnostics to {stderr}. */
  )
{ int nc = (int)fim->sz[0];
    assert((nc == 1) || (nc == 3));
    float_image_t * gim = float_image_copy(fim);
    int c;
    for (c = 0; c < fim->sz[0]; c++)
      { float_image_apply_gamma(gim, c, 1.0/gamma, bias); }
    pnm_sample_t maxval = PNM_FILE_MAX_MAXVAL;
    pnm_image_t *pim = 
      float_image_to_pnm_image(gim, isMask, nc, NULL, NULL, NULL, maxval, yup, verbose);
    float_image_free(gim);
    pnm_image_write(fname, pim, FALSE, warn);
    pnm_image_free(pim);
  }

float_image_t **float_pnm_image_list_read
  ( int n,          /* Number of images to read. */
    char *fname[],  /* PPM/PGM/PBM file names (with extensions). */
    bool_t isMask,  /* TRUE for masks, FALSE for images. */
    double gamma,   /* Gamma to use in decoding (1 = linear decoding). */
    double bias,    /* Offset to use in decoding. */
    bool_t yup,     /* If TRUE, reverses the indexing of rows. */
    bool_t warn,    /* If TRUE, prints "reading {fname}..." to {stderr}. */
    bool_t verbose  /* If TRUE, prints conversion diagnostics to {stderr}. */
  )
  { float_image_t **fim = notnull(malloc(n * sizeof(float_image_t *)), "no mem");
    int i;
    for(i = 0; i < n; i++)
      { fim[i] = float_pnm_image_read(fname[i], isMask, gamma, bias, yup, warn, verbose); }
    return fim;
  }

void float_pnm_image_list_write
  ( int n,                /* Number of images to write. */
    char *fname[],        /* PPM/PGM/PBM file names (with extensions). */            
    float_image_t *fim[], /* Images to write. */
    bool_t isMask,        /* TRUE for masks, FALSE for images. */
    double gamma,         /* Gamma to use in encoding (1 = linear encoding). */    
    double bias,          /* Offset to use in encoding. */                         
    bool_t yup,           /* If TRUE, reverses the indexing of rows. */ 
    bool_t warn,          /* If TRUE, prints "writing {fname}..." to {stderr}. */
    bool_t verbose        /* If TRUE, prints conversion diagnostics to {stderr}. */
  )
  { int i;
    for(i = 0; i < n; i++)
      { float_pnm_image_write(fname[i], fim[i], isMask, gamma, bias, yup, warn, verbose); }
  }