/* Copyright (C) 2001-2026 Artifex Software, Inc.

   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.

   Refer to licensing information at http://www.artifex.com or contact

   Artifex Software, Inc.,  39 Mesa Street, Suite 108A, San Francisco,

   CA 94129, USA, for further information.

*/

/* pcpatrn.c - code for PCL and GL/2 patterns, including color */

#include "gx.h"

#include "gsuid.h"

#include "gsmatrix.h"

#include "gspcolor.h"

#include "gxdcolor.h"

#include "gxpcolor.h"

#include "gxstate.h"

#include "pccid.h"

#include "pcfont.h"

#include "pcpalet.h"

#include "pcfrgrnd.h"

#include "pcht.h"

#include "pcwhtidx.h"

#include "pcpatrn.h"

#include "pcbiptrn.h"

#include "pcuptrn.h"

#include "pcpatxfm.h"

#include "gzstate.h"    /* for gstate */

/*

 * The base color space for setting the color white. Unlike all other color

 * spaces in PCL, this uses the DeviceGray color space in the graphic library.

 *

 * A copy of the default halftone is also maintained for setting the color

 * "white". Since the halftone carries the device-specific color lookup tables,

 * a non-standard halftone might end up mapping white to black (definitely

 * undesirable).

 */

static const gs_paint_color white_paint = { {1.0, 0.0, 0.0, 0.0} };

/* RC routines */

gs_private_st_simple(st_ccolor_t, pcl_ccolor_t, "PCL client color");

/*

 * Convert a color value specified as a three-element byte array, or an index

 * to a palette, into a gs_paint_color structure.

 */

static void

convert_color_to_paint(const byte * pcomp, gs_paint_color * ppaint)

{

    ppaint->values[0] = (float)pcomp[0] / 255.0;

    ppaint->values[1] = (float)pcomp[1] / 255.0;

    ppaint->values[2] = (float)pcomp[2] / 255.0;

    ppaint->values[3] = 0.0;

}

static void

convert_index_to_paint(int indx, gs_paint_color * ppaint)

{

    ppaint->values[0] = (float)indx;

    ppaint->values[1] = 0.0;

    ppaint->values[2] = 0.0;

    ppaint->values[3] = 0.0;

}

/*

 * Free a PCL client color structure.

 */

static void

free_ccolor(gs_memory_t * pmem, void *pvccolor, client_name_t cname)

{

    pcl_ccolor_t *pccolor = (pcl_ccolor_t *) pvccolor;

    pcl_pattern_data_release(pccolor->ppat_data);

    pcl_cs_indexed_release(pccolor->pindexed);

    pcl_cs_base_release(pccolor->pbase);

    if (pccolor->prast != 0)

        gs_free_object(pmem, (void *)pccolor->prast, cname);

    gs_pattern_reference(&(pccolor->ccolor), -1);

    gs_free_object(pmem, pvccolor, cname);

}

/*

 * Make a unique copy of a PCL client color structure. This function also

 * serves as the allocator function.

 *

 * Because the byte array pointed to by the prast structure is not reference

 * counted, the "copy" of the client color created this procedure will always

 * have this pointer set to NULL. This is unfortunate and ugly, as it implies

 * the copy cannot be used immediately as a client color, but it causes no

 * trouble in the current context because:

 *

 *     prast is non-null only for colored patterns

 *     the client color for a colored pattern would only be unshared

 *         if it was about to be rendered, in which case the prast

 *         array would need to be recreated.

 *

 * Newly created colors are solid white.

 */

static int

unshare_ccolor(pcl_state_t * pcs,

               pcl_ccolor_t ** ppccolor, gs_memory_t * pmem)

{

    pcl_ccolor_t *pold = *ppccolor;

    pcl_ccolor_t *pnew = 0;

    if ((pold != NULL) && (pold->rc.ref_count == 1)) {

        if (pold->prast != 0)

            gs_free_object(pmem,

                           (void *)pold->prast, "unshared PCL client color");

        pold->prast = 0;

        return 0;

    }

    rc_decrement(pold, "unshare PCL client color object");

    rc_alloc_struct_1(pnew,

                      pcl_ccolor_t,

                      &st_ccolor_t,

                      pmem, return e_Memory, "allocate PCL client color");

    pnew->rc.free = free_ccolor;

    pnew->prast = 0;

    if (pold != 0) {

        pnew->type = pold->type;

        pcl_pattern_data_init_from(pnew->ppat_data, pold->ppat_data);

        pcl_cs_indexed_init_from(pnew->pindexed, pold->pindexed);

        pcl_cs_base_init_from(pnew->pbase, pold->pbase);

        pnew->ccolor = pold->ccolor;

        gs_pattern_reference(&(pnew->ccolor), 1);

    } else {

        int code = 0;

        pnew->type = pcl_ccolor_unpatterned;

        pnew->ppat_data = 0;

        pnew->pindexed = 0;

        /* set the color space to pure white */

        pnew->pbase = 0;

        code = pcl_cs_base_build_white_cspace(pcs, &(pnew->pbase), pmem);

        if (code < 0) {

            gs_free_object(pmem, pnew, "allocate PCL client color");

            return code;

        }

        pnew->ccolor.paint = white_paint;

        pnew->ccolor.pattern = 0;

    }

    *ppccolor = pnew;

    return 0;

}

/*

 * Set a solid color (unpattered) color. This is handled separately from

 * patterns as it will usually not be necessary to build a PCL client color

 * structure in this case.

 *

 * Exactly one of the pair of operands pbase and pindex shoud be non-null.

 */

static int

set_unpatterned_color(pcl_state_t * pcs,

                      pcl_cs_indexed_t * pindexed,

                      pcl_cs_base_t * pbase, const gs_paint_color * ppaint)

{

    pcl_ccolor_t *pcur = pcs->pids->pccolor;

    int code = 0;

    pcl_ccolor_type_t type;

    if_debug3m('c', pcs->memory, "[c]set unpatterned color %f %f %f\n",

               ppaint->values[0], ppaint->values[1], ppaint->values[2]);

    if (pcur != 0)

        type = pcur->type;

    else

        type = pcl_ccolor_unpatterned;

    if ((pcur != 0) &&

        (type == pcl_ccolor_unpatterned) &&

        (pcur->pindexed == pindexed) &&

        (pcur->pbase == pbase) &&

        (pcur->ccolor.paint.values[0] == ppaint->values[0]) &&

        (pcur->ccolor.paint.values[1] == ppaint->values[1]) &&

        (pcur->ccolor.paint.values[2] == ppaint->values[2]))

        return 0;

    if ((code = unshare_ccolor(pcs, &(pcs->pids->pccolor), pcs->memory)) < 0)

        return code;

    pcur = pcs->pids->pccolor;

    pcur->type = pcl_ccolor_unpatterned;

    if (pcur->ppat_data != 0) {

        pcl_pattern_data_release(pcur->ppat_data);

        pcur->ppat_data = 0;

    }

    if (pindexed != 0) {

        if ((type != pcl_ccolor_unpatterned) || (pcur->pindexed != pindexed))

            code = pcl_cs_indexed_install(&pindexed, pcs);

    } else {                    /* pbase != 0 */

        if ((type != pcl_ccolor_unpatterned) || (pcur->pbase != pbase))

            code = pcl_cs_base_install(&pbase, pcs);

    }

    if (code < 0)

        return code;

    pcl_cs_indexed_copy_from(pcur->pindexed, pindexed);

    pcl_cs_base_copy_from(pcur->pbase, pbase);

    gs_pattern_reference(&(pcur->ccolor), -1);

    pcur->ccolor.pattern = 0;

    pcur->ccolor.paint = *ppaint;

    return gs_setcolor(pcs->pgs, &(pcur->ccolor));

}

/*

 * Set a patterned color space. Note that this is a substantially different

 * operation from setting a solid (unpatterned) color.

 */

static int

set_patterned_color(pcl_state_t * pcs, pcl_ccolor_t * pnew)

{

    pcl_ccolor_t *pcur = pcs->pids->pccolor;

    int code = 0;

    /* check if already set */

    if (pcur == pnew)

        return 0;

    /* set a base color space for the pattern, if necessary */

    if (pnew->type == pcl_ccolor_mask_pattern) {

        if ((pnew->pindexed != 0) &&

            ((pcur == 0) || (pcur->pindexed != pnew->pindexed)))

            code = pcl_cs_indexed_install(&(pnew->pindexed), pcs);

        if (code < 0)

            return code;

        if ((pnew->pbase != 0) &&

            ((pcur == 0) || (pcur->pbase != pnew->pbase)))

            code = pcl_cs_base_install(&(pnew->pbase), pcs);

    }

    if (code < 0)

        return code;

    /* set the pattern instance */

    if ((code = gs_setpattern(pcs->pgs, &(pnew->ccolor))) >= 0)

        pcl_ccolor_copy_from(pcs->pids->pccolor, pnew);

    return code;

}

/*

 * Check if the pattern pointed to by pptrn has a rendering and, if so, whether

 * or not that rendering is appropriate for the curren environment.

 *

 * If the rendering is appropriate, install the conrresponding color; otherwise

 * return false.

 *

 * The case of GL uncolored patterns rendered with patterns opaque is unique.

 * In this case the pattern must be generated as a colored pattern (mask

 * patterns are always transparent), with a specially generated 2-entry

 * indexed color space. The cache_id field identifies the palette that gave

 * rise to this pattern, but not the entry from that palette that was used

 * as the foreground color. Hence, for this case alone there must be a match

 * on the pen number key. To avoid the need for a much qualified check in this

 * case, we use the convention that the pen number field is zero in all but

 * this case.

 *

 * Note that a difference in the paint color does not require re-rendering;

 * these fields are ignored for colored patterns, and for mask patterns changes

 * only require another call to gs_setpattern.

 */

static bool

check_pattern_rendering(pcl_state_t * pcs, pcl_pattern_t * pptrn, bool use_frgrnd,      /* else use palette */

                        uint pen_num,

                        bool colored, const gs_paint_color * ppaint)

{

    pcl_ccolor_t *pccolor = 0;

    /* check the common parameters first */

    if ((pptrn == NULL) ||

        (pptrn->orient != pcs->pat_orient) ||

        (pptrn->ref_pt.x != pcs->pat_ref_pt.x) ||

        (pptrn->ref_pt.y != pcs->pat_ref_pt.y))

        return false;

    if (colored) {

        pcl_gsid_t cache_id = (use_frgrnd ? pcs->pfrgrnd->id

                               : pcs->ppalet->id);

        /* check that there is a rendering in the appropriate environment */

        if (((pccolor = pptrn->pcol_ccolor) == 0) ||

            (pptrn->transp != pcs->pattern_transparent) ||

            (pptrn->cache_id != cache_id) || (pptrn->pen != pen_num))

            return false;

    } else {                    /* mask pattern */

        pcl_cs_indexed_t *pindexed = (use_frgrnd ? 0 : pcs->ppalet->pindexed);

        pcl_cs_base_t *pbase = (use_frgrnd ? pcs->pfrgrnd->pbase : 0);

        /* check if there is a rendering */

        if ((pccolor = pptrn->pmask_ccolor) == 0)

            return false;

        /* handle changes in the "foreground" color or color space */

        if ((pccolor->ccolor.paint.values[0] != ppaint->values[0]) ||

            (pccolor->ccolor.paint.values[1] != ppaint->values[1]) ||

            (pccolor->ccolor.paint.values[2] != ppaint->values[2]) ||

            (pccolor->pindexed != pindexed) || (pccolor->pbase != pbase)) {

            /* get a unique copy, and update the painting information */

            if (unshare_ccolor(pcs, &(pptrn->pmask_ccolor), pcs->memory) < 0)

                return false;

            pccolor = pptrn->pmask_ccolor;

            pcl_cs_indexed_copy_from(pccolor->pindexed, pindexed);

            pcl_cs_base_copy_from(pccolor->pbase, pbase);

            pccolor->ccolor.paint = *ppaint;

        }

    }

    return (set_patterned_color(pcs, pccolor) == 0);

}

/*

 * Render and set a pattern.

 *

 * In a somewhat unfortunate division of labor, this code sets some but not

 * all of the cache keys in the pattern. The fields set are transparency,

 * orientation, and reference point. The caller is responsible for setting

 * the cache_id and pen number.

 *

 * If this routine is called, it may be assumed that the pattern needs to be

 * rendered.

 *

 */

static int

render_pattern(pcl_state_t * pcs,

               pcl_pattern_t * pptrn,

               pcl_ccolor_type_t type,

               pcl_cs_indexed_t * pindexed,

               pcl_cs_base_t * pbase,

               const gs_paint_color * ppaint, int wht_indx, bool remap)

{

    int code = 0;

    pcl_ccolor_t *pccolor = 0;

    gs_color_space *pcspace;

    gs_matrix mat;

    gs_depth_bitmap pixinfo;

    /*

     * If the orientation or reference point has changed, discard both

     * renderings. Otherwise, just discard the one being modified.

     *

     * Note that the unshare function doubles as an allocator.

     */

    if ((pptrn->orient != pcs->pat_orient) ||

        (pptrn->ref_pt.x != pcs->pat_ref_pt.x) ||

        (pptrn->ref_pt.y != pcs->pat_ref_pt.y)) {

        if (type == pcl_ccolor_mask_pattern) {

            pcl_ccolor_release(pptrn->pcol_ccolor);

            pptrn->pcol_ccolor = 0;

        } else {                /* type == pcl_ccolor_colored_pattern */

            pcl_ccolor_release(pptrn->pmask_ccolor);

            pptrn->pmask_ccolor = 0;

        }

    }

    /* un-share, or allocate, the appropriate client color */

    if (type == pcl_ccolor_mask_pattern) {

        code = unshare_ccolor(pcs, &(pptrn->pmask_ccolor), pcs->memory);

        pccolor = pptrn->pmask_ccolor;

        pcspace = 0;

    } else {                    /* type == pcl_ccolor_colored_pattern */

        code = unshare_ccolor(pcs, &(pptrn->pcol_ccolor), pcs->memory);

        pccolor = pptrn->pcol_ccolor;

        pcspace = pindexed->pcspace;

        pptrn->transp = pcs->pattern_transparent;

    }

    if (code < 0)

        return code;

    /* discard the existing pattern instance */

    gs_pattern_reference(&(pccolor->ccolor), -1);

    pccolor->ccolor.pattern = 0;

    /* initialize the pattern data, if the client color is newly allocated */

    pccolor->type = type;

    pcl_pattern_data_copy_from(pccolor->ppat_data, pptrn->ppat_data);

    /* set up the transformation and transparency information */

    pcl_xfm_get_pat_xfm(pcs, pptrn, &mat);

    /* set up the white index and remap as necessary */

    if (remap) {

        code = pcl_cmap_map_raster(pindexed,

                                   &wht_indx,

                                   &(pptrn->ppat_data->pixinfo),

                                   &pixinfo, true, pcs->memory);

        if (code < 0)

            return code;

        pcspace = pindexed->pcspace;

        if (pixinfo.data != pptrn->ppat_data->pixinfo.data)

            pccolor->prast = pixinfo.data;

    } else

        pixinfo = pptrn->ppat_data->pixinfo;

    if (pcspace != 0)

        code = pcl_cs_indexed_install(&pindexed, pcs);

    if (code < 0)

        return code;

    /* the following is placed here until we have time to properly

       address this.  The makepixmappattern() procedure detects a

       pattern as opaque if the white index is the number of entries

       in the current palette (the index of an invalid color).

       The motivation for this is the white index has no purpose for

       opaque patterns.  Upon remapping (see above) the white index

       may be set to a white value in the palette, a valid color.  We

       restore the invariant here, if necessary. */

    if ((type == pcl_ccolor_colored_pattern) && !pcs->pattern_transparent)

        wht_indx = pindexed->num_entries;

    code = gs_makepixmappattern(&(pccolor->ccolor),

                                &pixinfo,

                                (pcspace == 0),

                                &mat,

                                no_UniqueID,

                                pcspace, wht_indx, pcs->pgs, pcs->memory);

    /* if all is OK, install the pattern; otherwise clear the pattern */

    if (code >= 0) {

        pcl_cs_indexed_copy_from(pccolor->pindexed, pindexed);

        pcl_cs_base_copy_from(pccolor->pbase, pbase);

        if (type == pcl_ccolor_mask_pattern)

            pccolor->ccolor.paint = *ppaint;

        code = set_patterned_color(pcs, pccolor);

    }

    return code;

}

/*

 * Set a pattern using the foreground parameters.

 *

 * The for-image boolean indicates if the foreground is being set to render

 * a PCL raster. If so, and if the halftone/CRD combination for the foreground

 * is not the same as for the palette, a colored pattern must be generated.

 * This is because the CRD/halftone combination for the palette will be

 * current at the time the pattern is loaded into the cache, and thus the

 * color would be evaluated in the wrong context.

 *

 * Returns 0 on success, < 0 in the event of an error.

 */

static int

set_frgrnd_pattern(pcl_state_t * pcs, pcl_pattern_t * pptrn, bool for_image)

{

    pcl_frgrnd_t *pfrgrnd = pcs->pfrgrnd;

    pcl_cs_base_t *pbase = pfrgrnd->pbase;

    pcl_cs_indexed_t *pindexed = 0;

    pcl_ccolor_type_t type = pcl_ccolor_mask_pattern;

    gs_paint_color paint;

    bool colored = false;

    int code = 0;

    int wht_indx = (pcs->pattern_transparent ? 0 : 2);

    if (pfrgrnd->pht == pcs->ppalet->pht)

        for_image = false;

    colored = (for_image || !pcs->pattern_transparent);

    convert_color_to_paint(pfrgrnd->color, &paint);

    if (check_pattern_rendering(pcs, pptrn, true, 0, colored, &paint))

        return 0;

    /* build the two-entry palette if necessary */

    if (colored) {

        code = pcl_cs_indexed_build_special(&pindexed,

                                            pbase,

                                            pfrgrnd->color, pcs->memory);

        if (code < 0)

            return code;

        pbase = 0;

        type = pcl_ccolor_colored_pattern;

    }

    code = render_pattern(pcs,

                          pptrn,

                          type, pindexed, pbase, &paint, wht_indx, false);

    /* release the extra reference to the indexed color space */

    if (colored) {

        pcl_cs_indexed_release(pindexed);

        if (code >= 0) {

            pptrn->pen = 0;

            pptrn->cache_id = pfrgrnd->id;

        }

    }

    return code;

}

/*

 * Set an uncolored pattern using the palette parameters and indicated pen

 * number.

 *

 * Returns 0 on success, < 0 in the event of an error.

 */

static int

set_uncolored_palette_pattern(pcl_state_t * pcs,

                              pcl_pattern_t * pptrn, int pen)

{

    pcl_cs_indexed_t *pindexed = pcs->ppalet->pindexed;

    pcl_ccolor_type_t type = pcl_ccolor_mask_pattern;

    gs_paint_color paint;

    bool colored = !pcs->pattern_transparent;

    int code = 0;

    convert_index_to_paint(pen, &paint);

    if (check_pattern_rendering(pcs, pptrn, false, pen, colored, &paint))

        return 0;

    /* build the two-entry palette if necessary */

    if (colored) {

        code = pcl_cs_indexed_build_special(&pindexed,

                                            pindexed->pbase,

                                            &(pindexed->palette.

                                              data[3 * pen]), pcs->memory);

        if (code < 0)

            return code;

        type = pcl_ccolor_colored_pattern;

    }

    code = render_pattern(pcs, pptrn, type, pindexed, NULL, &paint, 2, false);

    /* release the extra reference to the indexed color space */

    if (colored) {

        pcl_cs_indexed_release(pindexed);

        if (code >= 0) {

            pptrn->pen = pen;

            pptrn->cache_id = pcs->ppalet->id;

        }

    }

    return code;

}

/*

 * Set a colored pattern.

 *

 * Returns 0 on success, < 0 in the event of an error.

 */

static int

set_colored_pattern(pcl_state_t * pcs, pcl_pattern_t * pptrn)

{

    pcl_cs_indexed_t *pindexed = pcs->ppalet->pindexed;

    pcl_gsid_t cache_id = pcs->ppalet->id;

    int code = 0;

    if (check_pattern_rendering(pcs, pptrn, false, 0, true, NULL))

        return 0;

    /* note we always remap the white point.  The remapping procedure

       serves the dual purpose of remapping the white point which may

       be necessary in the transparent case and resizing the palette

       which may be needed for either transparent or opaque

       patterns. */

    code = render_pattern(pcs, pptrn, pcl_ccolor_colored_pattern, pindexed, NULL, &white_paint, 0, true /* remap */

        );

    if (code >= 0) {

        pptrn->pen = 0;

        pptrn->cache_id = cache_id;

    }

    return code;

}

/*

 * Routines to set the current color space to a specific pattern. Since patterns

 * have different sources, each with its own system of identifiers, there are

 * several such routines. Each routine takes the current PCL state (including

 * the GL/2 state) as an operand; the additional operands, if any, vary by

 * routine type.

 *

 *    pattern_set_white     No additional operands. This routine

 *                          will set the color space to DeviceRGB, the

 *                          color to white, but will not override the

 *                          source or pattern transparency. A special

 *                          halftone with a null transfer function is used,

 *                          to avoid possible re-mapping of white to some

 *                          other color.

 *

 *    pattern_set_pen       Two additional operand: the pen number and a flag

 *                          to suppress use of unsolid patterns. GL pens Use

 *                          the indexed color space from the current palette

 *                          as the color space, and the pen number operand as

 *                          the index into this palette. The halftone and color

 *                          rendering dictionaries are taken from the current

 *                          palette.

 *

 *                          This routine is also used to set up the color to

 *                          be used for PCL rasters. This is necessary because,

 *                          while images in the graphic library carry their

 *                          own color space, this space must be installed in

 *                          a graphic state at least once inorder to be used

 *                          (specifically, CIE color spaces have this

 *                          requirement). In this situation, the use of the

 *                          "unsolid pattern" for transparency, which is

 *                          specific to GL, must be suppressed.

 *

 *                          Note that this routine does NOT set the current

 *                          line width (it does not have sufficient

 *                          information to convert the dimensions).

 *

 *    pattern_set_frgrnd    One additional operands. Sets currect base

 *                          color space as the color space, and the

 *                          foreground color as the current color.

 *                          The third (NOT second) operand indicates if the

 *                          foreground is being set to render a PCL raster.

 *                          The latter case involves special considerations;

 *                          see the paragraphs at the bottom of this comment

 *                          for additional information.

 *

 *    pattern_set_shade_pcl

 *                          Two additional operands, the shade indensity

 *                          value and whether or not the shade pattern is

 *                          being set to render a PCL raster.

 *

 *                          This procedure is intended to be used by PCL.

 *                          It generates the shade as a colored pattern from

 *                          a two-element color palette consisting of the

 *                          canonical white for the current base color space

 *                          and the foreground color. The color space in the

 *                          graphic state is set to Pattern color space and

 *                          the current color is set to be the generated

 *                          pattern. The halftone and color rendering dictionary

 *                          objects are also taken from the current

 *                          foreground.

 *

 *                          Special considerations apply if the pattern is

 *                          being set to render a PCL raster. See the

 *                          paragraphs at the bottom of this comment for

 *                          additional information.

 *

 *    pattern_set_shade_gl  Two additional operands; the first provides

 *                          the pattern intensity, the latter the pen

 *                          number to be be used as the foreground color.

 *                          This routine generates the pattern using a two

 *                          entry palette consisting of canonical white in

 *                          the current base color space, and the operand

 *                          pen color from the current palette as the

 *                          second. The color space in the graphic state

 *                          is set to Pattern color space and the current

 *                          color is set to the generated pattern.  The

 *                          halftone and color rendering dictionary objects

 *                          are taken from the current palette.

 *

 *    pattern_set_hatch_pcl

 *                          Two additional operands, the index of the cross

 *                          hatch pattern and an indication of whether or not

 *                          the pattern is being set to render a PCL raster.

 *

 *                          Similar to pcl_pattern_set_shade_pcl, but for

 *                          cross-hatch patterns.

 *

 *    pattern_set_hatch_gl  Two additional operands; the first provides

 *                          the index of the cross hatch pattern, the

 *                          latter the pen number to be used as the

 *                          foreground color. Similar to

 *                          pcl_pattern_set_shade_gl, but for cross hatch

 *                          patterns.

 *

 *    pattern_set_user_pcl

 *                          Two additional operands, the user pattern id. and

 *                          and indicator of whether or not the pattern is being

 *                          set to render a PCL raster.

 *

 *                          Handling is based on whether the pattern is

 *                          colored or uncolored.

 *

 *                          For uncolored patterns, handling is similar

 *                          to pcl_pattern_set_shade_pcl. The special

 *                          consideration for rasters apply only in this case.

 *

 *                          For colored patterns, the pattern is generated

 *                          using the indexed color space in the current

 *                          color palette. The color space in the graphic

 *                          state is set to Pattern color space, the current

 *                          color is set to the generated pattern, and the

 *                          halftone and color rendering dictionary objects

 *                          are taken from the current palette.

 *

 *    pattern_set_user_gl   Two additional operands. The first provides the

 *                          PCL user-defined pattern id. The second is the

 *                          current pen. Handling is base on whether the

 *                          pattern is colored or uncolored.

 *

 *                          For uncolored patterns, handling is similar

 *                          to pcl_pattern_set_shade_gl.

 *

 *                          For colored patterns, handling is similar to

 *                          pcl_pattern_set_user_pcl.

 *

 *    pattern_set_gl_RF     Two additional operands, the index of the

 *                          GL/2 user defined pattern (created with the

 *                          RF command), and the current pen number. The

 *                          latter is used only for unoclored RF patterns.

 *

 *                          To keep life interesting, HP inserted a very

 *                          odd feature into the behavior of uncolored

 *                          RF patterns. Generally, the applicable SV or

 *                          FT command determines whether the current pen

 *                          or pen 1 is to be used for the foreground pixels.

 *                          However, if the reference pattern does not exist,

 *                          the current pen is always used.

 *

 *                          To accommodate this behavior within the current

 *                          scheme, the current pen is passed as a negative

 *                          number if pen 1 is for a pattern that exists.

 *

 * All procedures return 0 on success, < 0 in the event of an error.

 *

 * If that did not seem to make things complex enough, some additional

 * complications arise for transparency in GL/2 and for PCL rasters.

 *

 * GL/2 has a concept of transparency similar to PCL's, though what GL terms

 * "source" transparency corresponds to PCL's pattern transparency (all GL/2

 * objects are mask; hence, they have neither color nor background, so the

 * PCL concept of source transparency is irrelevant for them). Unlike PCL,

 * however, uncolored patterns in GL/2 are fully transparent if the current

 * pen is white. The normal code for uncolored patterns is not equipped to

 * handle this situation, and it make little sense to modify it for what is

 * not a particular useful case. Hence, a special "unsolid" uncolored pattern

 * is provided. This pattern has only background, and thus is fully transparent.

 *

 * The difficulty with PCL rasters is that, being colored objects, they make

 * use of a CRD and a halftone to render. Rasters may also interact with the

 * current color, which may be using a different CRD and halftone.

 *

 * The CRD and halftone to be used with rasters are taken from the current

 * PCL palette. If the current pattern is either solid foreground (the most

 * typical case) or an uncolored pattern, the current "texture" is generated

 * using the CRD and halftone from the PCL foreground. The two may not be the

 * same, and unfortunately there is room for only one of each in the graphic

 * state.

 *

 * The solution is to make use of an additional graphic state. Patterns in the

 * graphic library have their own graphic state. Hence, but converting a solid

 * foreground into an uncolored pattern which happens to be "on" everywhere, it

 * is possible to achieve the desired result. For performance reasons, this

 * should be done only when necessary.

 */

static int

pattern_set_white(pcl_state_t * pcs, int arg1,  /* ignored */

                  int arg2      /* ignored */

    )

{

    int code = 0;

    pcl_cs_base_t *pwhite_cs = 0;

    pcl_ht_t *pdflt_ht = 0;

    if_debug0m('c', pcs->memory, "[c]pattern_set_white\n");

    /* build the pure white color space and default halftone if necessary */

    if ((code =

         pcl_cs_base_build_white_cspace(pcs, &pwhite_cs, pcs->memory)) >= 0)

        code = pcl_ht_build_default_ht(pcs, &pdflt_ht, pcs->memory);

    /* set the halftone and color space */

    if (code >= 0) {

        code = pcl_ht_set_halftone(pcs);

        pcl_ht_release(pdflt_ht);       /* decrement reference to local ptr */

    }

    if (code >= 0)

        code = set_unpatterned_color(pcs, NULL, pwhite_cs, &white_paint);

    pcl_cs_base_release(pwhite_cs);

    return code;

}

static int pattern_set_shade_gl(pcl_state_t * pcs, int inten,   /* intensity value */

                                int pen /* pen number for foreground */

    );

static int

pattern_set_pen(pcl_state_t * pcs, int pen, int for_pcl_raster)

{

    pcl_cs_indexed_t *pindexed = pcs->ppalet->pindexed;

    int num_entries = pindexed->num_entries;

    int code = 0;

    if_debug3m('c', pcs->memory,

               "[c]pattern_set_pen pen=%d, for raster=%d entries=%d\n", pen,

               for_pcl_raster, num_entries);

    /* put the pen number in the proper range */

    if ((pen >= num_entries) &&

        ((pen = (pen % num_entries) + 1) == num_entries))

        pen = 1;

    /* check if the current pen is white; if so, use the "unsolid" pattern */

    if (!for_pcl_raster && pcl_cs_indexed_is_white(pindexed, pen)) {

        /* Optimization for a special case where we don't need the

           unsolid pattern, drawing an opaque white rectangle with

           simple rops (we only check for 2 common rops).  */

        if (!pcs->g.source_transparent &&

            (pcs->logical_op == rop3_default || pcs->logical_op == rop3_T))

            goto skip_unsolid;

        else {

            code = pattern_set_shade_gl(pcs, 1, pen);

            if (code >= 0) {

                code = gx_set_dev_color(pcs->pgs);

                if (code == gs_error_Remap_Color) {

                    code = pixmap_high_level_pattern(pcs->pgs);

                    if (code < 0)

                        return code;

                    return pattern_set_shade_gl(pcs, 1, pen);

                }

            }

            return code;

        }

    }

    /* set halftone and crd from the palette */

  skip_unsolid:

    {

        gs_paint_color paint = { {0, 0, 0, 0}

        };

        convert_index_to_paint(pen, &paint);

        code = set_unpatterned_color(pcs, pindexed, NULL, &paint);

    }

    return code;

}

static int

pattern_set_frgrnd(pcl_state_t * pcs, int arg1, /* ignored */

                   int for_image)

{

    pcl_frgrnd_t *pfrgrnd = pcs->pfrgrnd;

    pcl_palette_t *ppalet = pcs->ppalet;

    int code = 0;

    if_debug1m('c', pcs->memory, "[c]pattern_set_frgrnd for image=%d\n",

               for_image);

    /* check if a solid pattern should be substituted */

    if (for_image) {

        if (pfrgrnd->pht != ppalet->pht) {

            code =

                set_frgrnd_pattern(pcs, pcl_pattern_get_solid_pattern(pcs),

                                   true);

            return code;

        } else

            if ((ppalet->pindexed->original_cspace == 1 && !pfrgrnd->is_cmy)

                || (ppalet->pindexed->original_cspace != 1

                    && pfrgrnd->is_cmy)) {

            const byte blk[] = { 0, 0, 0 };

            gs_paint_color paint;

            /* NB: HP forces black foreground, as they can't handle different

             * colorspaces in foreground and raster palette

             */

            convert_color_to_paint(blk, &paint);

            code = set_unpatterned_color(pcs, NULL, pfrgrnd->pbase, &paint);

            return code;

        }

    }

    {

        gs_paint_color paint;

        convert_color_to_paint(pfrgrnd->color, &paint);

        code = set_unpatterned_color(pcs, NULL, pfrgrnd->pbase, &paint);

    }

    return code;

}

static int

pattern_set_shade_pcl(pcl_state_t * pcs, int inten,     /* intensity value */

                      int for_image)

{

    pcl_pattern_t *pptrn = pcl_pattern_get_shade(pcs, inten);

    if_debug2m('c', pcs->memory,

               "[c]pattern_set_shade_pcl intensity=%d, for raster=%d\n",

               inten, for_image);

    if (pptrn == 0)

        return (inten > 0 ? pattern_set_frgrnd(pcs, 0, for_image)

                : pattern_set_white(pcs, 0, 0));

    else {

        pcl_xfm_pcl_set_pat_ref_pt(pcs);

        return set_frgrnd_pattern(pcs, pptrn, for_image);

    }

}

static int

pattern_set_shade_gl(pcl_state_t * pcs, int inten,      /* intensity value */

                     int pen    /* pen number for foreground */

    )

{

    pcl_pattern_t *pptrn = pcl_pattern_get_shade(pcs, inten);

    if_debug2m('c', pcs->memory,

               "[c]pattern_set_shade_gl intensity=%d, pen=%d\n", inten, pen);

    /* check if the current pen is white or the pattern is transparent

       and the intensity is 0 (white) and if so use the unsolid

       pattern */

    if (pcl_cs_indexed_is_white(pcs->ppalet->pindexed, pen) ||

        (pcs->pattern_transparent && inten == 0))

        pptrn = pcl_pattern_get_unsolid_pattern(pcs);

    if (pptrn == NULL)

        return (inten > 0 ? pattern_set_pen(pcs, pen, false)

                : pattern_set_white(pcs, 0, 0));

    pcl_xfm_gl_set_pat_ref_pt(pcs);

    return set_uncolored_palette_pattern(pcs, pptrn, pen);

}

static int

pattern_set_hatch_pcl(pcl_state_t * pcs, int indx,      /* cross-hatch pattern index */

                      int for_image)

{

    pcl_pattern_t *pptrn = pcl_pattern_get_cross(pcs, indx);

    if_debug2m('c', pcs->memory,

               "[c]pattern_set_hatch_pcl index=%d, for raster=%d\n", indx,

               for_image);

    if (pptrn == 0)

        return pattern_set_frgrnd(pcs, 0, for_image);

    else {

        pcl_xfm_pcl_set_pat_ref_pt(pcs);

        return set_frgrnd_pattern(pcs, pptrn, for_image);

    }

}

static int

pattern_set_hatch_gl(pcl_state_t * pcs, int indx,       /* cross-hatch pattern index */

                     int pen    /* pen number for foreground */

    )

{

    pcl_pattern_t *pptrn = pcl_pattern_get_cross(pcs, indx);

    if_debug2m('c', pcs->memory, "[c]pattern_set_hatch_gl index=%d pen=%d\n",

               indx, pen);

    /* check if the current pen is white; if so, use the "unsolid" pattern */

    if (pcl_cs_indexed_is_white(pcs->ppalet->pindexed, pen))

        pptrn = pcl_pattern_get_unsolid_pattern(pcs);

    if (pptrn == NULL)

        return pattern_set_pen(pcs, pen, false);

    pcl_xfm_gl_set_pat_ref_pt(pcs);

    return set_uncolored_palette_pattern(pcs, pptrn, pen);

}

static int

pattern_set_user_pcl(pcl_state_t * pcs, int id, /* pattern id. */

                     int for_image)

{

    pcl_pattern_t *pptrn = pcl_pattern_get_pcl_uptrn(pcs, id);

    if_debug2m('c', pcs->memory, "[c]pattern_set_user_pcl id=%d raster=%d\n",

               id, for_image);

    if (pptrn == 0)

        return pattern_set_frgrnd(pcs, 0, for_image);

    else {

        pcl_xfm_pcl_set_pat_ref_pt(pcs);

        if (pptrn->ppat_data->type == pcl_pattern_uncolored)

            return set_frgrnd_pattern(pcs, pptrn, for_image);

        else

            return set_colored_pattern(pcs, pptrn);

    }

}

static int

pattern_set_user_gl(pcl_state_t * pcs, int id,  /* pattern id. */

                    int pen     /* pen to use for foreground */

    )

{

    pcl_pattern_t *pptrn = pcl_pattern_get_pcl_uptrn(pcs, id);

    if_debug2m('c', pcs->memory, "[c]pattern_set_user_gl id=%d, pen=%d\n", id,

               pen);

    if (pptrn == 0)

        return pattern_set_pen(pcs, 0, false);

    else {

        pcl_xfm_gl_set_pat_ref_pt(pcs);

        if (pptrn->ppat_data->type == pcl_pattern_uncolored) {

            /* check if the current pen is white */

            if (pcl_cs_indexed_is_white(pcs->ppalet->pindexed, pen)) {

                pptrn = pcl_pattern_get_unsolid_pattern(pcs);

                if (pptrn == NULL) return e_Memory;

            }

            return set_uncolored_palette_pattern(pcs, pptrn, pen);

        } else

            return set_colored_pattern(pcs, pptrn);

    }

}

static int

pattern_set_gl_RF(pcl_state_t * pcs, int indx,  /* GL/2 RF pattern index */

                  int pen       /* used only for uncolored patterns */

    )

{

    pcl_pattern_t *pptrn = pcl_pattern_get_gl_uptrn(pcs, indx);

    if_debug2m('c', pcs->memory, "[c]pattern_set_gl_RF index=%d pen=%d\n",

               indx, pen);

    /*

     * HACK - if pen 1 is to be use for actual uncolored RF patterns, the pen

     * operand will be the opposite of the current pen number. This allows us

     * to use the current pen if the pattern does not exist.

     */

    if (pptrn == 0)

        return pattern_set_pen(pcs, (pen < 0 ? -pen : pen), false);

    else {

        if (pen < 0)

            pen = 1;

        pcl_xfm_gl_set_pat_ref_pt(pcs);

        if (pptrn != NULL && pptrn->ppat_data != NULL) {

            if (pptrn->ppat_data->type == pcl_pattern_uncolored) {

                /* check if the current pen is white */

                if (pcl_cs_indexed_is_white(pcs->ppalet->pindexed, pen)) {