Subversion Repositories planix.SVN

/* Copyright (C) 1992-2005 artofcode LLC. All rights reserved.

  This software is provided AS-IS with no warranty, either express or

  implied.

  This software is distributed under license and may not be copied,

  modified or distributed except as expressly authorized under the terms

  of the license contained in the file LICENSE in this distribution.

  For more information about licensing, please refer to

  http://www.ghostscript.com/licensing/. For information on

  commercial licensing, go to http://www.artifex.com/licensing/ or

  contact Artifex Software, Inc., 101 Lucas Valley Road #110,

  San Rafael, CA  94903, U.S.A., +1(415)492-9861.

*/

/* $Id: gxcmap.c,v 1.26 2005/07/13 00:39:50 giles Exp $ */

/* Color mapping for Ghostscript */

#include "gx.h"

#include "gserrors.h"

#include "gsccolor.h"

#include "gxalpha.h"

#include "gxcspace.h"

#include "gxfarith.h"

#include "gxfrac.h"

#include "gxdcconv.h"

#include "gxdevice.h"

#include "gxcmap.h"

#include "gxlum.h"

#include "gzstate.h"

#include "gxdither.h"

#include "gxcdevn.h"

#include "string_.h"

/* Structure descriptor */

public_st_device_color();

private 

ENUM_PTRS_WITH(device_color_enum_ptrs, gx_device_color *cptr)

{

	return ENUM_USING(*cptr->type->stype, vptr, size, index);

}

ENUM_PTRS_END

private RELOC_PTRS_WITH(device_color_reloc_ptrs, gx_device_color *cptr)

{

    RELOC_USING(*cptr->type->stype, vptr, size);

}

RELOC_PTRS_END

gx_color_index

gx_default_encode_color(gx_device * dev, const gx_color_value cv[])

{

    int             ncomps = dev->color_info.num_components;

    int             i;

    const byte *    comp_shift = dev->color_info.comp_shift;

    const byte *    comp_bits = dev->color_info.comp_bits;

    gx_color_index  color = 0;

#ifdef DEBUG

    if ( dev->color_info.separable_and_linear != GX_CINFO_SEP_LIN ) {

        dprintf( "gx_default_encode_color() requires separable and linear\n" );

        return gx_no_color_index;

    }

#endif

    for (i = 0; i < ncomps; i++) {

	color |= (gx_color_index)(cv[i] >> (gx_color_value_bits - comp_bits[i]))

		<< comp_shift[i];

    }

    return color;

}

/* 

 * This routine is only used if the device is 'separable'.  See

 * separable_and_linear in gxdevcli.h for more information.

 */

int

gx_default_decode_color(gx_device * dev, gx_color_index color, gx_color_value cv[])

{

    int                     ncomps = dev->color_info.num_components;

    int                     i;

    const byte *            comp_shift = dev->color_info.comp_shift;

    const byte *            comp_bits = dev->color_info.comp_bits;

    const gx_color_index *  comp_mask = dev->color_info.comp_mask;

    uint shift, ivalue, nbits, scale;

#ifdef DEBUG

    if ( dev->color_info.separable_and_linear != GX_CINFO_SEP_LIN ) {

        dprintf( "gx_default_decode_color() requires separable and linear\n" );

        return gs_error_rangecheck;

    }

#endif

    for (i = 0; i < ncomps; i++) {

	/*

	 * Convert from the gx_color_index bits to a gx_color_value.

	 * Split the conversion into an integer and a fraction calculation

	 * so we can do integer arthmetic.  The calculation is equivalent

	 * to floor(0xffff.fffff * ivalue / ((1 << nbits) - 1))

	 */

	nbits = comp_bits[i];

	scale = gx_max_color_value / ((1 << nbits) - 1);

	ivalue = (color & comp_mask[i]) >> comp_shift[i];

	cv[i] = ivalue * scale;

	/*

	 * Since our scaling factor is an integer, we lost the fraction.

	 * Determine what part of the ivalue that the faction would have 

	 * added into the result.

	 */

	shift = nbits - (gx_color_value_bits % nbits);

	cv[i] += ivalue >> shift;

    }

    return 0;

}

gx_color_index

gx_error_encode_color(gx_device * dev, const gx_color_value colors[])

{

#ifdef DEBUG

    /* The "null" device is expected to be missing encode_color */

    if (strcmp(dev->dname, "null") != 0)

	dprintf("No encode_color proc defined for device.\n");

#endif

    return gx_no_color_index;

}

int

gx_error_decode_color(gx_device * dev, gx_color_index cindex, gx_color_value colors[])

{

     int i=dev->color_info.num_components;

#ifdef DEBUG

     dprintf("No decode_color proc defined for device.\n");

#endif

     for(; i>=0; i--)

 	colors[i] = 0;

     return gs_error_rangecheck;

}

/*

 * The "back-stop" default encode_color method. This will be used only

 * if no applicable color encoding procedure is provided, and the number

 * of color model components is 1. The encoding is presumed to induce an

 * additive color model (DeviceGray).

 *

 * The particular method employed is a trivial generalization of the

 * default map_rgb_color method used in the pre-DeviceN code (this was

 * known as gx_default_w_b_map_rgb_color). Since the DeviceRGB color

 * model is assumed additive, any of the procedures used as a default

 * map_rgb_color method are assumed to induce an additive color model.

 * gx_default_w_b_map_rgb_color mapped white to 1 and black to 0, so

 * the new procedure is set up with zero-base and positive slope as well.

 * The generalization is the use of depth; the earlier procedure assumed

 * a bi-level device.

 *

 * Two versions of this procedure are provided, the first of which

 * applies if max_gray == 2^depth - 1 and is faster, while the second

 * applies to the general situation. Note that, as with the encoding

 * procedures used in the pre-DeviceN code, both of these methods induce

 * a small rounding error if 1 < depth < gx_color_value_bits.

 */

gx_color_index

gx_default_gray_fast_encode(gx_device * dev, const gx_color_value cv[])

{

    return cv[0] >> (gx_color_value_bits - dev->color_info.depth);

}

gx_color_index

gx_default_gray_encode(gx_device * dev, const gx_color_value cv[])

{

    return cv[0] * (dev->color_info.max_gray + 1) / (gx_max_color_value + 1);

}

/**

 * This routine is provided for old devices which provide a

 * map_rgb_color routine but not encode_color. New devices are

 * encouraged either to use the defaults or to set encode_color rather

 * than map_rgb_color.

 **/

gx_color_index

gx_backwards_compatible_gray_encode(gx_device *dev,

				    const gx_color_value cv[])

{

    gx_color_value gray_val = cv[0];

    gx_color_value rgb_cv[3];

    rgb_cv[0] = gray_val;

    rgb_cv[1] = gray_val;

    rgb_cv[2] = gray_val;

    return (*dev_proc(dev, map_rgb_color))(dev, rgb_cv);

}

/* -------- Default color space to color model conversion routines -------- */

void

gray_cs_to_gray_cm(gx_device * dev, frac gray, frac out[])

{

    out[0] = gray;

}

static void

rgb_cs_to_gray_cm(gx_device * dev, const gs_imager_state *pis,

				   frac r, frac g, frac b, frac out[])

{

    out[0] = color_rgb_to_gray(r, g, b, NULL);

}

static void

cmyk_cs_to_gray_cm(gx_device * dev, frac c, frac m, frac y, frac k, frac out[])

{

    out[0] = color_cmyk_to_gray(c, m, y, k, NULL);

}

static void

gray_cs_to_rgb_cm(gx_device * dev, frac gray, frac out[])

{

    out[0] = out[1] = out[2] = gray;

}

void

rgb_cs_to_rgb_cm(gx_device * dev, const gs_imager_state *pis,

				  frac r, frac g, frac b, frac out[])

{

    out[0] = r;

    out[1] = g;

    out[2] = b;

}

static void

cmyk_cs_to_rgb_cm(gx_device * dev, frac c, frac m, frac y, frac k, frac out[])

{

    color_cmyk_to_rgb(c, m, y, k, NULL, out);

}

static void

gray_cs_to_rgbk_cm(gx_device * dev, frac gray, frac out[])

{

    out[0] = out[1] = out[2] = frac_0;

    out[3] = gray;

}

static void

rgb_cs_to_rgbk_cm(gx_device * dev, const gs_imager_state *pis,

				  frac r, frac g, frac b, frac out[])

{

    if ((r == g) && (g == b)) {

	out[0] = out[1] = out[2] = frac_0;

	out[3] = r;

    }

    else {

	out[0] = r;

	out[1] = g;

	out[2] = b;

	out[3] = frac_0;

    }

}

static void

cmyk_cs_to_rgbk_cm(gx_device * dev, frac c, frac m, frac y, frac k, frac out[])

{

    frac rgb[3];

    if ((c == frac_0) && (m == frac_0) && (y == frac_0)) {

	out[0] = out[1] = out[2] = frac_0;

	out[3] = frac_1 - k;

    }

    else {

	color_cmyk_to_rgb(c, m, y, k, NULL, rgb);

	rgb_cs_to_rgbk_cm(dev, NULL, rgb[0], rgb[1], rgb[2], out);

    }

}

static void

gray_cs_to_cmyk_cm(gx_device * dev, frac gray, frac out[])

{

    out[0] = out[1] = out[2] = frac_0;

    out[3] = frac_1 - gray;

}

/*

 * Default map from DeviceRGB color space to DeviceCMYK color

 * model. Since this mapping is defined by the PostScript language

 * it is unlikely that any device with a DeviceCMYK color model

 * would define this mapping on its own.

 *

 * If the imager state is not available, map as though the black

 * generation and undercolor removal functions are identity

 * transformations. This mode is used primarily to support the

 * raster operation (rop) feature of PCL, which requires that

 * the raster operation be performed in an RGB color space.

 * Note that default black generation and undercolor removal

 * functions in PostScript need NOT be identity transformations:

 * often they are { pop 0 }.

 */

static void

rgb_cs_to_cmyk_cm(gx_device * dev, const gs_imager_state *pis,

  			   frac r, frac g, frac b, frac out[])

{

    if (pis != 0)

        color_rgb_to_cmyk(r, g, b, pis, out);

    else {

        frac    c = frac_1 - r, m = frac_1 - g, y = frac_1 - b;

        frac    k = min(c, min(m, g));

        out[0] = c - k;

        out[1] = m - k;

        out[2] = y - k;

        out[3] = k;

    }

}

void

cmyk_cs_to_cmyk_cm(gx_device * dev, frac c, frac m, frac y, frac k, frac out[])

{

    out[0] = c;

    out[1] = m;

    out[2] = y;

    out[3] = k;

}

/* The list of default color space to color model conversion routines. */

static const gx_cm_color_map_procs DeviceGray_procs = {

    gray_cs_to_gray_cm, rgb_cs_to_gray_cm, cmyk_cs_to_gray_cm

};

static const gx_cm_color_map_procs DeviceRGB_procs = {

    gray_cs_to_rgb_cm, rgb_cs_to_rgb_cm, cmyk_cs_to_rgb_cm

};

static const gx_cm_color_map_procs DeviceCMYK_procs = {

    gray_cs_to_cmyk_cm, rgb_cs_to_cmyk_cm, cmyk_cs_to_cmyk_cm

};

static const gx_cm_color_map_procs DeviceRGBK_procs = {

    gray_cs_to_rgbk_cm, rgb_cs_to_rgbk_cm, cmyk_cs_to_rgbk_cm

};

/*

 * These are the default handlers for returning the list of color space

 * to color model conversion routines.

 */

const gx_cm_color_map_procs *

gx_default_DevGray_get_color_mapping_procs(const gx_device * dev)

{

    return &DeviceGray_procs;

}

const gx_cm_color_map_procs *

gx_default_DevRGB_get_color_mapping_procs(const gx_device * dev)

{

    return &DeviceRGB_procs;

}

const gx_cm_color_map_procs *

gx_default_DevCMYK_get_color_mapping_procs(const gx_device * dev)

{

    return &DeviceCMYK_procs;

}

const gx_cm_color_map_procs *

gx_default_DevRGBK_get_color_mapping_procs(const gx_device * dev)

{

    return &DeviceRGBK_procs;

}

const gx_cm_color_map_procs *

gx_error_get_color_mapping_procs(const gx_device * dev)

{

    /*

     * We should never get here.  If we do then we do not have a "get_color_mapping_procs"

     * routine for the device.

     */

#ifdef DEBUG

    dprintf("No get_color_mapping_procs proc defined for device.\n");

#endif

    return NULL;

}

/* ----- Default color component name to colorant index conversion routines ------ */

#define compare_color_names(pname, name_size, name_str) \

    (name_size == (int)strlen(name_str) && strncmp(pname, name_str, name_size) == 0)

/* Default color component to index for a DeviceGray color model */

int

gx_default_DevGray_get_color_comp_index(gx_device * dev, const char * pname,

					  int name_size, int component_type)

{

    if (compare_color_names(pname, name_size, "Gray") ||

	compare_color_names(pname, name_size, "Grey")) 

        return 0;

    else

        return -1;		    /* Indicate that the component name is "unknown" */

}

/* Default color component to index for a DeviceRGB color model */

int

gx_default_DevRGB_get_color_comp_index(gx_device * dev, const char * pname,

					   int name_size, int component_type)

{

    if (compare_color_names(pname, name_size, "Red"))

        return 0;

    if (compare_color_names(pname, name_size, "Green"))

        return 1;

    if (compare_color_names(pname, name_size, "Blue"))

        return 2;

    else

        return -1;		    /* Indicate that the component name is "unknown" */

}

/* Default color component to index for a DeviceCMYK color model */

int

gx_default_DevCMYK_get_color_comp_index(gx_device * dev, const char * pname,

					    int name_size, int component_type)

{

    if (compare_color_names(pname, name_size, "Cyan"))

        return 0;

    if (compare_color_names(pname, name_size, "Magenta"))

        return 1;

    if (compare_color_names(pname, name_size, "Yellow"))

        return 2;

    if (compare_color_names(pname, name_size, "Black"))

        return 3;

    else

        return -1;		    /* Indicate that the component name is "unknown" */

}

/* Default color component to index for a DeviceRGBK color model */

int

gx_default_DevRGBK_get_color_comp_index(gx_device * dev, const char * pname,

					    int name_size, int component_type)

{

    if (compare_color_names(pname, name_size, "Red"))

        return 0;

    if (compare_color_names(pname, name_size, "Green"))

        return 1;

    if (compare_color_names(pname, name_size, "Blue"))

        return 2;

    if (compare_color_names(pname, name_size, "Black"))

        return 3;

    else

        return -1;		    /* Indicate that the component name is "unknown" */

}

/* Default color component to index for an unknown color model */

int

gx_error_get_color_comp_index(gx_device * dev, const char * pname,

					int name_size, int component_type)

{

    /*

     * We should never get here.  If we do then we do not have a "get_color_comp_index"

     * routine for the device.

     */

#ifdef DEBUG

    dprintf("No get_color_comp_index proc defined for device.\n");

#endif

    return -1;			    /* Always return "unknown" component name */

}

#undef compare_color_names

/* ---------------- Device color rendering ---------------- */

private cmap_proc_gray(cmap_gray_halftoned);

private cmap_proc_gray(cmap_gray_direct);

private cmap_proc_rgb(cmap_rgb_halftoned);

private cmap_proc_rgb(cmap_rgb_direct);

#define cmap_cmyk_halftoned cmap_cmyk_direct

private cmap_proc_cmyk(cmap_cmyk_direct);

private cmap_proc_rgb_alpha(cmap_rgb_alpha_halftoned);

private cmap_proc_rgb_alpha(cmap_rgb_alpha_direct);

/* Procedure names are only guaranteed unique to 23 characters.... */

private cmap_proc_rgb_alpha(cmap_rgb_alpha_halftoned);

private cmap_proc_rgb_alpha(cmap_rgb_alpha_direct);

private cmap_proc_separation(cmap_separation_halftoned);

private cmap_proc_separation(cmap_separation_direct);

private cmap_proc_devicen(cmap_devicen_halftoned);

private cmap_proc_devicen(cmap_devicen_direct);

private cmap_proc_is_halftoned(cmap_halftoned_is_halftoned);

private cmap_proc_is_halftoned(cmap_direct_is_halftoned);

private const gx_color_map_procs cmap_few = {

     cmap_gray_halftoned, 

     cmap_rgb_halftoned, 

     cmap_cmyk_halftoned,

     cmap_rgb_alpha_halftoned,

     cmap_separation_halftoned,

     cmap_devicen_halftoned,

     cmap_halftoned_is_halftoned

    };

private const gx_color_map_procs cmap_many = {

     cmap_gray_direct,

     cmap_rgb_direct,

     cmap_cmyk_direct,

     cmap_rgb_alpha_direct,

     cmap_separation_direct,

     cmap_devicen_direct,

     cmap_direct_is_halftoned

    };

const gx_color_map_procs *const cmap_procs_default = &cmap_many;

/* Determine the color mapping procedures for a device. */

/* Note that the default procedure doesn't consult the imager state. */

const gx_color_map_procs *

gx_get_cmap_procs(const gs_imager_state *pis, const gx_device * dev)

{

    return (pis->get_cmap_procs)(pis, dev);

}

const gx_color_map_procs *

gx_default_get_cmap_procs(const gs_imager_state *pis, const gx_device * dev)

{

    return (gx_device_must_halftone(dev) ? &cmap_few : &cmap_many);

}

/* Set the color mapping procedures in the graphics state. */

void

gx_set_cmap_procs(gs_imager_state * pis, const gx_device * dev)

{

    pis->cmap_procs = gx_get_cmap_procs(pis, dev);

}

/* Remap the color in the graphics state. */

int

gx_remap_color(gs_state * pgs)

{

    const gs_color_space *pcs = pgs->color_space;

    int                   code;

    /* The current color in the graphics state is always used for */

    /* the texture, never for the source. */

    code = (*pcs->type->remap_color) (pgs->ccolor, pcs, pgs->dev_color,

				      (gs_imager_state *) pgs, pgs->device,

				      gs_color_select_texture);

    /* if overprint mode is in effect, update the overprint information */

    if (code >= 0 && pgs->effective_overprint_mode == 1)

	code = gs_do_set_overprint(pgs);

    return code;

}

/* Indicate that a color space has no underlying concrete space. */

const gs_color_space *

gx_no_concrete_space(const gs_color_space * pcs, const gs_imager_state * pis)

{

    return NULL;

}

/* Indicate that a color space is concrete. */

const gs_color_space *

gx_same_concrete_space(const gs_color_space * pcs, const gs_imager_state * pis)

{

    return pcs;

}

/* Indicate that a color cannot be concretized. */

int

gx_no_concretize_color(const gs_client_color * pcc, const gs_color_space * pcs,

		       frac * pconc, const gs_imager_state * pis)

{

    return_error(gs_error_rangecheck);

}

/* By default, remap a color by concretizing it and then */

/* remapping the concrete color. */

int

gx_default_remap_color(const gs_client_color * pcc, const gs_color_space * pcs,

	gx_device_color * pdc, const gs_imager_state * pis, gx_device * dev,

		       gs_color_select_t select)

{

    frac conc[GS_CLIENT_COLOR_MAX_COMPONENTS];

    const gs_color_space *pconcs;

    int i = pcs->type->num_components(pcs);

    int code = (*pcs->type->concretize_color)(pcc, pcs, conc, pis);

    if (code < 0)

	return code;

    pconcs = cs_concrete_space(pcs, pis);

    code = (*pconcs->type->remap_concrete_color)(conc, pconcs, pdc, pis, dev, select);

    /* Save original color space and color info into dev color */

    i = any_abs(i);

    for (i--; i >= 0; i--)

	pdc->ccolor.paint.values[i] = pcc->paint.values[i];

    pdc->ccolor_valid = true;

    return code;

}

/* Color remappers for the standard color spaces. */

/* Note that we use D... instead of Device... in some places because */

/* gcc under VMS only retains 23 characters of procedure names. */

/* DeviceGray */

int

gx_concretize_DeviceGray(const gs_client_color * pc, const gs_color_space * pcs,

			 frac * pconc, const gs_imager_state * pis)

{

    float ftemp;

    pconc[0] = unit_frac(pc->paint.values[0], ftemp);

    return 0;

}

int

gx_remap_concrete_DGray(const frac * pconc, const gs_color_space * pcs,

	gx_device_color * pdc, const gs_imager_state * pis, gx_device * dev,

			gs_color_select_t select)

{

    if (pis->alpha == gx_max_color_value)

	(*pis->cmap_procs->map_gray)

	    (pconc[0], pdc, pis, dev, select);

    else

	(*pis->cmap_procs->map_rgb_alpha)

	    (pconc[0], pconc[0], pconc[0], cv2frac(pis->alpha),

	     pdc, pis, dev, select);

    return 0;

}

int

gx_remap_DeviceGray(const gs_client_color * pc, const gs_color_space * pcs,

	gx_device_color * pdc, const gs_imager_state * pis, gx_device * dev,

		    gs_color_select_t select)

{

    float ftemp;

    frac fgray = unit_frac(pc->paint.values[0], ftemp);

    /* Save original color space and color info into dev color */

    pdc->ccolor.paint.values[0] = pc->paint.values[0];

    pdc->ccolor_valid = true;

    if (pis->alpha == gx_max_color_value)

	(*pis->cmap_procs->map_gray)

	    (fgray, pdc, pis, dev, select);

    else

	(*pis->cmap_procs->map_rgb_alpha)

	    (fgray, fgray, fgray, cv2frac(pis->alpha), pdc, pis, dev, select);

    return 0;

}

/* DeviceRGB */

int

gx_concretize_DeviceRGB(const gs_client_color * pc, const gs_color_space * pcs,

			frac * pconc, const gs_imager_state * pis)

{

    float ftemp;

    pconc[0] = unit_frac(pc->paint.values[0], ftemp);

    pconc[1] = unit_frac(pc->paint.values[1], ftemp);

    pconc[2] = unit_frac(pc->paint.values[2], ftemp);

    return 0;

}

int

gx_remap_concrete_DRGB(const frac * pconc, const gs_color_space * pcs,

	gx_device_color * pdc, const gs_imager_state * pis, gx_device * dev,

		       gs_color_select_t select)

{

    if (pis->alpha == gx_max_color_value)

	gx_remap_concrete_rgb(pconc[0], pconc[1], pconc[2],

			      pdc, pis, dev, select);

    else

	gx_remap_concrete_rgb_alpha(pconc[0], pconc[1], pconc[2],

				    cv2frac(pis->alpha),

				    pdc, pis, dev, select);

    return 0;

}

int

gx_remap_DeviceRGB(const gs_client_color * pc, const gs_color_space * pcs,

	gx_device_color * pdc, const gs_imager_state * pis, gx_device * dev,

		   gs_color_select_t select)

{

    float ftemp;

    frac fred = unit_frac(pc->paint.values[0], ftemp), fgreen = unit_frac(pc->paint.values[1], ftemp),

         fblue = unit_frac(pc->paint.values[2], ftemp);

    /* Save original color space and color info into dev color */

    pdc->ccolor.paint.values[0] = pc->paint.values[0];

    pdc->ccolor.paint.values[1] = pc->paint.values[1];

    pdc->ccolor.paint.values[2] = pc->paint.values[2];

    pdc->ccolor_valid = true;

    if (pis->alpha == gx_max_color_value)

	gx_remap_concrete_rgb(fred, fgreen, fblue,

			      pdc, pis, dev, select);

    else

	gx_remap_concrete_rgb_alpha(fred, fgreen, fblue, cv2frac(pis->alpha),

				    pdc, pis, dev, select);

    return 0;

}

/* DeviceCMYK */

int

gx_concretize_DeviceCMYK(const gs_client_color * pc, const gs_color_space * pcs,

			 frac * pconc, const gs_imager_state * pis)

{

    float ftemp;

    pconc[0] = unit_frac(pc->paint.values[0], ftemp);

    pconc[1] = unit_frac(pc->paint.values[1], ftemp);

    pconc[2] = unit_frac(pc->paint.values[2], ftemp);

    pconc[3] = unit_frac(pc->paint.values[3], ftemp);

    return 0;

}

int

gx_remap_concrete_DCMYK(const frac * pconc, const gs_color_space * pcs,

	gx_device_color * pdc, const gs_imager_state * pis, gx_device * dev,

			gs_color_select_t select)

{

/****** IGNORE alpha ******/

    gx_remap_concrete_cmyk(pconc[0], pconc[1], pconc[2], pconc[3], pdc,

			   pis, dev, select);

    return 0;

}

int

gx_remap_DeviceCMYK(const gs_client_color * pc, const gs_color_space * pcs,

	gx_device_color * pdc, const gs_imager_state * pis, gx_device * dev,

		    gs_color_select_t select)

{

/****** IGNORE alpha ******/

    float ft0, ft1, ft2, ft3;

    /* Save original color space and color info into dev color */

    pdc->ccolor.paint.values[0] = pc->paint.values[0];

    pdc->ccolor.paint.values[1] = pc->paint.values[1];

    pdc->ccolor.paint.values[2] = pc->paint.values[2];

    pdc->ccolor.paint.values[3] = pc->paint.values[3];

    pdc->ccolor_valid = true;

    gx_remap_concrete_cmyk((frac)unit_frac(pc->paint.values[0], ft0),

			   (frac)unit_frac(pc->paint.values[1], ft1),

			   (frac)unit_frac(pc->paint.values[2], ft2),

			   (frac)unit_frac(pc->paint.values[3], ft3),

			   pdc, pis, dev, select);

    return 0;

}

/* ------ Render Gray color. ------ */

private void

cmap_gray_halftoned(frac gray, gx_device_color * pdc,

     const gs_imager_state * pis, gx_device * dev, gs_color_select_t select)

{

    int i, ncomps = dev->color_info.num_components;

    frac cm_comps[GX_DEVICE_COLOR_MAX_COMPONENTS];

    /* map to the color model */

    dev_proc(dev, get_color_mapping_procs)(dev)->map_gray(dev, gray, cm_comps);

    /* apply the transfer function(s); convert to color values */

    if (dev->color_info.polarity == GX_CINFO_POLARITY_ADDITIVE)

        for (i = 0; i < ncomps; i++)

            cm_comps[i] = gx_map_color_frac(pis,

	    			cm_comps[i], effective_transfer[i]);

    else

        for (i = 0; i < ncomps; i++)

            cm_comps[i] = frac_1 - gx_map_color_frac(pis,

	    		(frac)(frac_1 - cm_comps[i]), effective_transfer[i]);

    if (gx_render_device_DeviceN(cm_comps, pdc, dev, pis->dev_ht,

	    				&pis->screen_phase[select]) == 1)

	gx_color_load_select(pdc, pis, dev, select);

}

private void

cmap_gray_direct(frac gray, gx_device_color * pdc, const gs_imager_state * pis,

		 gx_device * dev, gs_color_select_t select)

{

    int i, ncomps = dev->color_info.num_components;

    frac cm_comps[GX_DEVICE_COLOR_MAX_COMPONENTS];

    gx_color_value cv[GX_DEVICE_COLOR_MAX_COMPONENTS];

    gx_color_index color;

    /* map to the color model */

    dev_proc(dev, get_color_mapping_procs)(dev)->map_gray(dev, gray, cm_comps);

    /* apply the transfer function(s); convert to color values */

    if (dev->color_info.polarity == GX_CINFO_POLARITY_ADDITIVE)

        for (i = 0; i < ncomps; i++)

            cv[i] = frac2cv(gx_map_color_frac(pis,

	    			cm_comps[i], effective_transfer[i]));

    else

        for (i = 0; i < ncomps; i++)

            cv[i] = frac2cv(frac_1 - gx_map_color_frac(pis,

	    		(frac)(frac_1 - cm_comps[i]), effective_transfer[i]));

    /* encode as a color index */

    color = dev_proc(dev, encode_color)(dev, cv);

    /* check if the encoding was successful; we presume failure is rare */

    if (color != gx_no_color_index)

        color_set_pure(pdc, color);

    else

        cmap_gray_halftoned(gray, pdc, pis, dev, select);

}

/* ------ Render RGB color. ------ */

private void

cmap_rgb_halftoned(frac r, frac g, frac b, gx_device_color * pdc,

     const gs_imager_state * pis, gx_device * dev, gs_color_select_t select)

{

    int i, ncomps = dev->color_info.num_components;

    frac cm_comps[GX_DEVICE_COLOR_MAX_COMPONENTS];

    /* map to the color model */

    dev_proc(dev, get_color_mapping_procs)(dev)->map_rgb(dev, pis, r, g, b, cm_comps);

    /* apply the transfer function(s); convert to color values */

    if (dev->color_info.polarity == GX_CINFO_POLARITY_ADDITIVE)

        for (i = 0; i < ncomps; i++)

            cm_comps[i] = gx_map_color_frac(pis,

	    			cm_comps[i], effective_transfer[i]);

    else

        for (i = 0; i < ncomps; i++)

            cm_comps[i] = frac_1 - gx_map_color_frac(pis,

	    		(frac)(frac_1 - cm_comps[i]), effective_transfer[i]);

    if (gx_render_device_DeviceN(cm_comps, pdc, dev, pis->dev_ht,

	    				&pis->screen_phase[select]) == 1)

	gx_color_load_select(pdc, pis, dev, select);

}

private void

cmap_rgb_direct(frac r, frac g, frac b, gx_device_color * pdc,

     const gs_imager_state * pis, gx_device * dev, gs_color_select_t select)

{

    int i, ncomps = dev->color_info.num_components;

    frac cm_comps[GX_DEVICE_COLOR_MAX_COMPONENTS];

    gx_color_value cv[GX_DEVICE_COLOR_MAX_COMPONENTS];

    gx_color_index color;

    /* map to the color model */

    dev_proc(dev, get_color_mapping_procs)(dev)->map_rgb(dev, pis, r, g, b, cm_comps);

    /* apply the transfer function(s); convert to color values */

    if (dev->color_info.polarity == GX_CINFO_POLARITY_ADDITIVE)

        for (i = 0; i < ncomps; i++)

            cv[i] = frac2cv(gx_map_color_frac(pis,

	    			cm_comps[i], effective_transfer[i]));

    else

        for (i = 0; i < ncomps; i++)

            cv[i] = frac2cv(frac_1 - gx_map_color_frac(pis,

	    		(frac)(frac_1 - cm_comps[i]), effective_transfer[i]));

    /* encode as a color index */

    color = dev_proc(dev, encode_color)(dev, cv);

    /* check if the encoding was successful; we presume failure is rare */

    if (color != gx_no_color_index)

        color_set_pure(pdc, color);

    else

        cmap_rgb_halftoned(r, g, b, pdc, pis, dev, select);

}