# include "fits.h"

# define CONVERTDOWN \
  inMode  *in; \
  outMode *out; \
  out = (outMode *) matrix[0].buffer; \
  in  = (inMode  *) matrix[0].buffer; \
  for (i = 0; i < Npixels; i++, out++, in++) \
    *out = *in*A + B; \
  REALLOCATE (matrix[0].buffer, char, matrix[0].size); 

# define CONVERTSAME \
  inMode  *in; \
  outMode *out; \
  out = (outMode *) matrix[0].buffer; \
  in  = (inMode  *) matrix[0].buffer; \
  for (i = 0; i < Npixels; i++, out++, in++) \
    *out = *in*A + B; 

# define CONVERTUP \
  inMode  *in; \
  outMode *out; \
  REALLOCATE (matrix[0].buffer, char, matrix[0].size); \
  out = (outMode *)matrix[0].buffer + Npixels - 1; \
  in  = (inMode  *)matrix[0].buffer + Npixels - 1; \
  for (i = 0; i < Npixels; i++, out--, in--) \
    *out = *in*A + B;

/*********************** fits convert format ***********************************/
int fits_convert_format (Header *header, Matrix *matrix, int outBitpix, double outScale, double outZero, int outUnsign) {

  unsigned long i, nbytes, Npixels;
  int    inBitpix, inUnsign;
  double inScale, inZero;
  double A, B;

  inBitpix         = header[0].bitpix;
  inScale          = header[0].bscale;
  inZero           = header[0].bzero;
  inUnsign         = header[0].unsign;

  if ((inBitpix == outBitpix) && (inScale == outScale) && 
      (inZero == outZero) && (inUnsign == outUnsign))
    return (TRUE);

  matrix[0].bitpix = header[0].bitpix = outBitpix;
  matrix[0].bscale = header[0].bscale = outScale;
  matrix[0].bzero  = header[0].bzero  = outZero;
  matrix[0].unsign = header[0].unsign = outUnsign;
  matrix[0].size   = fits_matrix_size (header);
  fits_modify (header, "BITPIX", "%d", 1, outBitpix);
  fits_modify (header, "BSCALE", "%lf", 1, outScale);
  fits_modify (header, "BZERO",  "%lf", 1, outZero);
  fits_modify (header, "UNSIGN", "%t", 1, outUnsign);

  Npixels          = header[0].Naxis[0]*header[0].Naxis[1];
  nbytes           = Npixels * (abs(outBitpix) / 8);

  A = inScale / outScale;
  B = (inZero - outZero) / outScale;

  if ((!outUnsign) && (!inUnsign)) {  /** BLOCK 1 **/
    switch (inBitpix) {
    case 8: 
      { typedef char inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTSAME; break; }
	case 16:  { typedef short          outMode; CONVERTUP;   break; }
	case -16: { typedef unsigned short outMode; CONVERTUP;   break; }
	case 32:  { typedef int            outMode; CONVERTUP;   break; }
	case -32: { typedef float          outMode; CONVERTUP;   break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case 16: 
      { typedef short inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTSAME; break; }
	case -16: { typedef unsigned short outMode; CONVERTSAME; break; }
	case 32:  { typedef int            outMode; CONVERTUP;   break; }
	case -32: { typedef float          outMode; CONVERTUP;   break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case -16: 
      { typedef unsigned short inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTSAME; break; }
	case -16: { typedef unsigned short outMode; CONVERTSAME; break; }
	case 32:  { typedef int            outMode; CONVERTUP;   break; }
	case -32: { typedef float          outMode; CONVERTUP;   break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case 32: 
      { typedef int inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short outMode; CONVERTDOWN; break; }
	case 32:  { typedef int            outMode; CONVERTSAME; break; }
	case -32: { typedef float          outMode; CONVERTSAME; break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;
    case -32: 
      { typedef float inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short outMode; CONVERTDOWN; break; }
	case 32:  { typedef int            outMode; CONVERTSAME; break; }
	case -32: { typedef float          outMode; CONVERTSAME; break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;
    case -64: 
      { typedef double inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short outMode; CONVERTDOWN; break; }
	case 32:  { typedef int            outMode; CONVERTDOWN; break; }
	case -32: { typedef float          outMode; CONVERTDOWN; break; }
	case -64: { typedef double         outMode; CONVERTSAME; break; }
	}
      }
    }
  }
  if ((outUnsign) && (!inUnsign)) {  /** BLOCK 3 **/
    switch (inBitpix) {
    case 8: 
      { typedef char inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTSAME; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTUP;   break; }
	case -16: { typedef unsigned short  outMode; CONVERTUP;   break; }
	case 32:  { typedef unsigned int    outMode; CONVERTUP;   break; }
	case -32: { typedef          float  outMode; CONVERTUP;   break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case 16: 
      { typedef short inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTSAME; break; }
	case -16: { typedef unsigned short  outMode; CONVERTSAME; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTUP;   break; }
	case -32: { typedef          float  outMode; CONVERTUP;   break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case -16: 
      { typedef unsigned short inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTSAME; break; }
	case -16: { typedef unsigned short  outMode; CONVERTSAME; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTUP;   break; }
	case -32: { typedef          float  outMode; CONVERTUP;   break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case 32: 
      { typedef int inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTSAME; break; }
	case -32: { typedef          float  outMode; CONVERTSAME; break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}
      }
      break;
    case -32: 
      { typedef float inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTSAME; break; }
	case -32: { typedef          float  outMode; CONVERTSAME; break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}
      }
      break;
    case -64: 
      { typedef double inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTDOWN; break; }
	case -32: { typedef          float  outMode; CONVERTDOWN; break; }
	case -64: { typedef          double outMode; CONVERTSAME; break; }
	}
      }
    }
  }
  if ((!outUnsign) && (inUnsign)) {  /** BLOCK 2 **/
    switch (inBitpix) {
    case 8: 
      { typedef unsigned char inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTSAME; break; }
	case 16:  { typedef short          outMode; CONVERTUP;   break; }
	case -16: { typedef unsigned short outMode; CONVERTUP;   break; }
	case 32:  { typedef int            outMode; CONVERTUP;   break; }
	case -32: { typedef float          outMode; CONVERTUP;   break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case 16: 
      { typedef unsigned short inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTSAME; break; }
	case -16: { typedef unsigned short outMode; CONVERTSAME; break; }
	case 32:  { typedef int            outMode; CONVERTUP;   break; }
	case -32: { typedef float          outMode; CONVERTUP;   break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case -16: 
      { typedef unsigned short inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTSAME; break; }
	case -16: { typedef unsigned short outMode; CONVERTSAME; break; }
	case 32:  { typedef int            outMode; CONVERTUP;   break; }
	case -32: { typedef float          outMode; CONVERTUP;   break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case 32: 
      { typedef unsigned int inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short outMode; CONVERTDOWN; break; }
	case 32:  { typedef int            outMode; CONVERTSAME; break; }
	case -32: { typedef float          outMode; CONVERTSAME; break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;
    case -32: 
      { typedef float inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short outMode; CONVERTDOWN; break; }
	case 32:  { typedef int            outMode; CONVERTSAME; break; }
	case -32: { typedef float          outMode; CONVERTSAME; break; }
	case -64: { typedef double         outMode; CONVERTUP;   break; }
	}
      }
      break;
    case -64: 
      { typedef double inMode;
	switch (outBitpix) {
	case 8:   { typedef char           outMode; CONVERTDOWN; break; }
	case 16:  { typedef short          outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short outMode; CONVERTDOWN; break; }
	case 32:  { typedef int            outMode; CONVERTDOWN; break; }
	case -32: { typedef float          outMode; CONVERTDOWN; break; }
	case -64: { typedef double         outMode; CONVERTSAME; break; }
	}
      }
    }
  }
  if ((outUnsign) && (inUnsign)) {
    switch (inBitpix) {
    case 8: 
      { typedef unsigned char inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTSAME; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTUP;   break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTUP;   break; }
	case -32: { typedef          float  outMode; CONVERTUP;   break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case 16: 
      { typedef unsigned short inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTSAME; break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTUP;   break; }
	case -32: { typedef          float  outMode; CONVERTUP;   break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case -16: 
      { typedef unsigned short inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTSAME; break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTUP;   break; }
	case -32: { typedef          float  outMode; CONVERTUP;   break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}
      }
      break;  
    case 32: 
      { typedef unsigned int inMode;
	switch (outBitpix) {
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTSAME; break; }
	case -32: { typedef          float  outMode; CONVERTSAME; break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}				    
      }					    
      break;				    
    case -32: 				    
      { typedef float inMode;		    
	switch (outBitpix) {		    
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTSAME; break; }
	case -32: { typedef          float  outMode; CONVERTSAME; break; }
	case -64: { typedef          double outMode; CONVERTUP;   break; }
	}				    
      }					    
      break;				    
    case -64: 				    
      { typedef double inMode;		    
	switch (outBitpix) {		    
	case 8:   { typedef unsigned char   outMode; CONVERTDOWN; break; }
	case 16:  { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case -16: { typedef unsigned short  outMode; CONVERTDOWN; break; }
	case 32:  { typedef unsigned int    outMode; CONVERTDOWN; break; }
	case -32: { typedef          float  outMode; CONVERTDOWN; break; }
	case -64: { typedef          double outMode; CONVERTSAME; break; }
	}
      }
    }
  }

  /* zero the padding region */
  {
    char *out;
    int Nextra;
    
    out = (char *)matrix[0].buffer;
    Nextra = matrix[0].size - nbytes;
    bzero (&out[nbytes], Nextra);
  }

  return (TRUE);
}
 
/* WARNING --- this is STILL machine dependant.  It will now work on all 
   machines, as long as char, int, short, float, double have sizes of 
   8, 16, 32, 32, 64 bits resp.  However, the floating pt types are NOT
   universal (or FITS standard), and so can't exchange from machine to 
   machine. */

/* NOTICE -- This file looks rather strange.  It is set this way to make 
   all of the possible inter-conversions without too much excess code. 
   The macros CONVERTUP and CONVERTDOWN need to be distinct.
   Going to smaller or equal BITPIX, it is safe to run the array forward 
   and allocate after the conversion.
   Going to larger BITPIX, you need to reallocate first and run backwards 
   to avoid wiping out the pixels.
   OK, to deal with in and out UNSIGN, I have made four if blocks that are
   almost identical. this looks silly.  any suggestions? 
*/
