/*

 * jdcolor.c

 *

 * Copyright (C) 1991-1995, Thomas G. Lane.

 * This file is part of the Independent JPEG Group's software.

 * For conditions of distribution and use, see the accompanying README file.

 *

 * This file contains output colorspace conversion routines.

 */



#define JPEG_INTERNALS

#include "jinclude.h"

#include "radiant_jpeglib.h"





/* Private subobject */



typedef struct {

  struct jpeg_color_deconverter pub; /* public fields */



  /* Private state for YCC->RGB conversion */

  int * Cr_r_tab;		/* => table for Cr to R conversion */

  int * Cb_b_tab;		/* => table for Cb to B conversion */

  INT32 * Cr_g_tab;		/* => table for Cr to G conversion */

  INT32 * Cb_g_tab;		/* => table for Cb to G conversion */

} my_color_deconverter;



typedef my_color_deconverter * my_cconvert_ptr;





/**************** YCbCr -> RGB conversion: most common case **************/



/*

 * YCbCr is defined per CCIR 601-1, except that Cb and Cr are

 * normalized to the range 0..MAXJSAMPLE rather than -0.5 .. 0.5.

 * The conversion equations to be implemented are therefore

 *	R = Y                + 1.40200 * Cr

 *	G = Y - 0.34414 * Cb - 0.71414 * Cr

 *	B = Y + 1.77200 * Cb

 * where Cb and Cr represent the incoming values less CENTERJSAMPLE.

 * (These numbers are derived from TIFF 6.0 section 21, dated 3-June-92.)

 *

 * To avoid floating-point arithmetic, we represent the fractional constants

 * as integers scaled up by 2^16 (about 4 digits precision); we have to divide

 * the products by 2^16, with appropriate rounding, to get the correct answer.

 * Notice that Y, being an integral input, does not contribute any fraction

 * so it need not participate in the rounding.

 *

 * For even more speed, we avoid doing any multiplications in the inner loop

 * by precalculating the constants times Cb and Cr for all possible values.

 * For 8-bit JSAMPLEs this is very reasonable (only 256 entries per table);

 * for 12-bit samples it is still acceptable.  It's not very reasonable for

 * 16-bit samples, but if you want lossless storage you shouldn't be changing

 * colorspace anyway.

 * The Cr=>R and Cb=>B values can be rounded to integers in advance; the

 * values for the G calculation are left scaled up, since we must add them

 * together before rounding.

 */



#define SCALEBITS	16	/* speediest right-shift on some machines */

#define ONE_HALF	((INT32) 1 << (SCALEBITS-1))

#define FIX(x)		((INT32) ((x) * (1L<<SCALEBITS) + 0.5))





/*

 * Initialize tables for YCC->RGB colorspace conversion.

 */



LOCAL void

build_ycc_rgb_table (j_decompress_ptr cinfo)

{

  my_cconvert_ptr cconvert = (my_cconvert_ptr) cinfo->cconvert;

  int i;

  INT32 x;

  SHIFT_TEMPS



  cconvert->Cr_r_tab = (int *)

    (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE,

				(MAXJSAMPLE+1) * SIZEOF(int));

  cconvert->Cb_b_tab = (int *)

    (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE,

				(MAXJSAMPLE+1) * SIZEOF(int));

  cconvert->Cr_g_tab = (INT32 *)

    (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE,

				(MAXJSAMPLE+1) * SIZEOF(INT32));

  cconvert->Cb_g_tab = (INT32 *)

    (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE,

				(MAXJSAMPLE+1) * SIZEOF(INT32));



  for (i = 0, x = -CENTERJSAMPLE; i <= MAXJSAMPLE; i++, x++) {

    /* i is the actual input pixel value, in the range 0..MAXJSAMPLE */

    /* The Cb or Cr value we are thinking of is x = i - CENTERJSAMPLE */

    /* Cr=>R value is nearest int to 1.40200 * x */

    cconvert->Cr_r_tab[i] = (int)

		    RIGHT_SHIFT(FIX(1.40200) * x + ONE_HALF, SCALEBITS);

    /* Cb=>B value is nearest int to 1.77200 * x */

    cconvert->Cb_b_tab[i] = (int)

		    RIGHT_SHIFT(FIX(1.77200) * x + ONE_HALF, SCALEBITS);

    /* Cr=>G value is scaled-up -0.71414 * x */

    cconvert->Cr_g_tab[i] = (- FIX(0.71414)) * x;

    /* Cb=>G value is scaled-up -0.34414 * x */

    /* We also add in ONE_HALF so that need not do it in inner loop */

    cconvert->Cb_g_tab[i] = (- FIX(0.34414)) * x + ONE_HALF;

  }

}





/*

 * Convert some rows of samples to the output colorspace.

 *

 * Note that we change from noninterleaved, one-plane-per-component format

 * to interleaved-pixel format.  The output buffer is therefore three times

 * as wide as the input buffer.

 * A starting row offset is provided only for the input buffer.  The caller

 * can easily adjust the passed output_buf value to accommodate any row

 * offset required on that side.

 */



METHODDEF void

ycc_rgb_convert (j_decompress_ptr cinfo,

		 JSAMPIMAGE input_buf, JDIMENSION input_row,

		 JSAMPARRAY output_buf, int num_rows)

{

  my_cconvert_ptr cconvert = (my_cconvert_ptr) cinfo->cconvert;

  register int y, cb, cr;

  register JSAMPROW outptr;

  register JSAMPROW inptr0, inptr1, inptr2;

  register JDIMENSION col;

  JDIMENSION num_cols = cinfo->output_width;

  /* copy these pointers into registers if possible */

  register JSAMPLE * range_limit = cinfo->sample_range_limit;

  register int * Crrtab = cconvert->Cr_r_tab;

  register int * Cbbtab = cconvert->Cb_b_tab;

  register INT32 * Crgtab = cconvert->Cr_g_tab;

  register INT32 * Cbgtab = cconvert->Cb_g_tab;

  SHIFT_TEMPS



  while (--num_rows >= 0) {

    inptr0 = input_buf[0][input_row];

    inptr1 = input_buf[1][input_row];

    inptr2 = input_buf[2][input_row];

    input_row++;

    outptr = *output_buf++;

    for (col = 0; col < num_cols; col++) {

      y  = GETJSAMPLE(inptr0[col]);

      cb = GETJSAMPLE(inptr1[col]);

      cr = GETJSAMPLE(inptr2[col]);

      /* Range-limiting is essential due to noise introduced by DCT losses. */

      outptr[RGB_RED] =   range_limit[y + Crrtab[cr]];

      outptr[RGB_GREEN] = range_limit[y +

			      ((int) RIGHT_SHIFT(Cbgtab[cb] + Crgtab[cr],

						 SCALEBITS))];

      outptr[RGB_BLUE] =  range_limit[y + Cbbtab[cb]];

      outptr += RGB_PIXELSIZE;

    }

  }

}





/**************** Cases other than YCbCr -> RGB **************/





/*

 * Color conversion for no colorspace change: just copy the data,

 * converting from separate-planes to interleaved representation.

 */



METHODDEF void

null_convert (j_decompress_ptr cinfo,

	      JSAMPIMAGE input_buf, JDIMENSION input_row,

	      JSAMPARRAY output_buf, int num_rows)

{

  register JSAMPROW inptr, outptr;

  register JDIMENSION count;

  register int num_components = cinfo->num_components;

  JDIMENSION num_cols = cinfo->output_width;

  int ci;



  while (--num_rows >= 0) {

    for (ci = 0; ci < num_components; ci++) {

      inptr = input_buf[ci][input_row];

      outptr = output_buf[0] + ci;

      for (count = num_cols; count > 0; count--) {

	*outptr = *inptr++;	/* needn't bother with GETJSAMPLE() here */

	outptr += num_components;

      }

    }

    input_row++;

    output_buf++;

  }

}





/*

 * Color conversion for grayscale: just copy the data.

 * This also works for YCbCr -> grayscale conversion, in which

 * we just copy the Y (luminance) component and ignore chrominance.

 */



METHODDEF void

grayscale_convert (j_decompress_ptr cinfo,

		   JSAMPIMAGE input_buf, JDIMENSION input_row,

		   JSAMPARRAY output_buf, int num_rows)

{

  jcopy_sample_rows(input_buf[0], (int) input_row, output_buf, 0,

		    num_rows, cinfo->output_width);

}





/*

 * Adobe-style YCCK->CMYK conversion.

 * We convert YCbCr to R=1-C, G=1-M, and B=1-Y using the same

 * conversion as above, while passing K (black) unchanged.

 * We assume build_ycc_rgb_table has been called.

 */



METHODDEF void

ycck_cmyk_convert (j_decompress_ptr cinfo,

		   JSAMPIMAGE input_buf, JDIMENSION input_row,

		   JSAMPARRAY output_buf, int num_rows)

{

  my_cconvert_ptr cconvert = (my_cconvert_ptr) cinfo->cconvert;

  register int y, cb, cr;

  register JSAMPROW outptr;

  register JSAMPROW inptr0, inptr1, inptr2, inptr3;

  register JDIMENSION col;

  JDIMENSION num_cols = cinfo->output_width;

  /* copy these pointers into registers if possible */

  register JSAMPLE * range_limit = cinfo->sample_range_limit;

  register int * Crrtab = cconvert->Cr_r_tab;

  register int * Cbbtab = cconvert->Cb_b_tab;

  register INT32 * Crgtab = cconvert->Cr_g_tab;

  register INT32 * Cbgtab = cconvert->Cb_g_tab;

  SHIFT_TEMPS



  while (--num_rows >= 0) {

    inptr0 = input_buf[0][input_row];

    inptr1 = input_buf[1][input_row];

    inptr2 = input_buf[2][input_row];

    inptr3 = input_buf[3][input_row];

    input_row++;

    outptr = *output_buf++;

    for (col = 0; col < num_cols; col++) {

      y  = GETJSAMPLE(inptr0[col]);

      cb = GETJSAMPLE(inptr1[col]);

      cr = GETJSAMPLE(inptr2[col]);

      /* Range-limiting is essential due to noise introduced by DCT losses. */

      outptr[0] = range_limit[MAXJSAMPLE - (y + Crrtab[cr])];	/* red */

      outptr[1] = range_limit[MAXJSAMPLE - (y +			/* green */

			      ((int) RIGHT_SHIFT(Cbgtab[cb] + Crgtab[cr],

						 SCALEBITS)))];

      outptr[2] = range_limit[MAXJSAMPLE - (y + Cbbtab[cb])];	/* blue */

      /* K passes through unchanged */

      outptr[3] = inptr3[col];	/* don't need GETJSAMPLE here */

      outptr += 4;

    }

  }

}





/*

 * Empty method for start_pass.

 */



METHODDEF void

start_pass_dcolor (j_decompress_ptr cinfo)

{

  /* no work needed */

}





/*

 * Module initialization routine for output colorspace conversion.

 */



GLOBAL void

jinit_color_deconverter (j_decompress_ptr cinfo)

{

  my_cconvert_ptr cconvert;

  int ci;



  cconvert = (my_cconvert_ptr)

    (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE,

				SIZEOF(my_color_deconverter));

  cinfo->cconvert = (struct jpeg_color_deconverter *) cconvert;

  cconvert->pub.start_pass = start_pass_dcolor;



  /* Make sure num_components agrees with jpeg_color_space */

  switch (cinfo->jpeg_color_space) {

  case JCS_GRAYSCALE:

    if (cinfo->num_components != 1)

      ERREXIT(cinfo, JERR_BAD_J_COLORSPACE);

    break;



  case JCS_RGB:

  case JCS_YCbCr:

    if (cinfo->num_components != 3)

      ERREXIT(cinfo, JERR_BAD_J_COLORSPACE);

    break;



  case JCS_CMYK:

  case JCS_YCCK:

    if (cinfo->num_components != 4)

      ERREXIT(cinfo, JERR_BAD_J_COLORSPACE);

    break;



  default:			/* JCS_UNKNOWN can be anything */

    if (cinfo->num_components < 1)

      ERREXIT(cinfo, JERR_BAD_J_COLORSPACE);

    break;

  }



  /* Set out_color_components and conversion method based on requested space.

   * Also clear the component_needed flags for any unused components,

   * so that earlier pipeline stages can avoid useless computation.

   */



  switch (cinfo->out_color_space) {

  case JCS_GRAYSCALE:

    cinfo->out_color_components = 1;

    if (cinfo->jpeg_color_space == JCS_GRAYSCALE ||

	cinfo->jpeg_color_space == JCS_YCbCr) {

      cconvert->pub.color_convert = grayscale_convert;

      /* For color->grayscale conversion, only the Y (0) component is needed */

      for (ci = 1; ci < cinfo->num_components; ci++)

	cinfo->comp_info[ci].component_needed = FALSE;

    } else

      ERREXIT(cinfo, JERR_CONVERSION_NOTIMPL);

    break;



  case JCS_RGB:

    cinfo->out_color_components = RGB_PIXELSIZE;

    if (cinfo->jpeg_color_space == JCS_YCbCr) {

      cconvert->pub.color_convert = ycc_rgb_convert;

      build_ycc_rgb_table(cinfo);

    } else if (cinfo->jpeg_color_space == JCS_RGB && RGB_PIXELSIZE == 3) {

      cconvert->pub.color_convert = null_convert;

    } else

      ERREXIT(cinfo, JERR_CONVERSION_NOTIMPL);

    break;



  case JCS_CMYK:

    cinfo->out_color_components = 4;

    if (cinfo->jpeg_color_space == JCS_YCCK) {

      cconvert->pub.color_convert = ycck_cmyk_convert;

      build_ycc_rgb_table(cinfo);

    } else if (cinfo->jpeg_color_space == JCS_CMYK) {

      cconvert->pub.color_convert = null_convert;

    } else

      ERREXIT(cinfo, JERR_CONVERSION_NOTIMPL);

    break;



  default:

    /* Permit null conversion to same output space */

    if (cinfo->out_color_space == cinfo->jpeg_color_space) {

      cinfo->out_color_components = cinfo->num_components;

      cconvert->pub.color_convert = null_convert;

    } else			/* unsupported non-null conversion */

      ERREXIT(cinfo, JERR_CONVERSION_NOTIMPL);

    break;

  }



  if (cinfo->quantize_colors)

    cinfo->output_components = 1; /* single colormapped output component */

  else

    cinfo->output_components = cinfo->out_color_components;

}

