/* Copyright (C) 2001-2024 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.

*/

/* Rectangle-oriented command writing for command list */

#include "gx.h"

#include "gserrors.h"

#include "gsutil.h"   /* for gs_next_ids */

#include "gxdevice.h"

#include "gxdevmem.h"   /* must precede gxcldev.h */

#include "gxcldev.h"

#include "gxclpath.h"

#include "gxdevsop.h"

/* ---------------- Writing utilities ---------------- */

#define cmd_set_rect(rect)\

  ((rect).x = x, (rect).y = y,\

   (rect).width = width, (rect).height = height)

/* Write a rectangle. */

static int

cmd_size_rect(register const gx_cmd_rect * prect)

{

    return

        cmd_sizew(prect->x) + cmd_sizew(prect->y) +

        cmd_sizew(prect->width) + cmd_sizew(prect->height);

}

static inline byte *

cmd_put_rect(const gx_cmd_rect * prect, byte * dp)

{

    cmd_putw(prect->x, &dp);

    cmd_putw(prect->y, &dp);

    cmd_putw(prect->width, &dp);

    cmd_putw(prect->height, &dp);

    return dp;

}

int

cmd_write_rect_hl_cmd(gx_device_clist_writer * cldev, gx_clist_state * pcls,

                      int op, int x, int y, int width, int height,

                      bool extended_command)

{

    byte *dp;

    int code;

    int rcsize;

    cmd_set_rect(pcls->rect);

    if (extended_command) {

        rcsize = 2 + cmd_size_rect(&pcls->rect);

        code = set_cmd_put_extended_op(&dp, cldev, pcls, op, rcsize);

        dp += 2;

    } else {

        rcsize = 1 + cmd_size_rect(&pcls->rect);

        code = set_cmd_put_op(&dp, cldev, pcls, op, rcsize);

        dp += 1;

    }

    if (code < 0)

        return code;

    if_debug5m('L', cldev->memory, "[L]  rect hl r%d:%d,%d,%d,%d\n",

               rcsize - 1, pcls->rect.x, pcls->rect.y,

               pcls->rect.width, pcls->rect.height);

    cmd_put_rect(&pcls->rect, dp);

    return 0;

}

int

cmd_write_rect_cmd(gx_device_clist_writer * cldev, gx_clist_state * pcls,

                   int op, int x, int y, int width, int height)

{

    int dx = x - pcls->rect.x;

    int dy = y - pcls->rect.y;

    int dwidth = width - pcls->rect.width;

    int dheight = height - pcls->rect.height;

    byte *dp;

    int code;

#define check_range_xy(rmin, rmax)\

  ((unsigned)(dx - rmin) <= (rmax - rmin) &&\

   (unsigned)(dy - rmin) <= (rmax - rmin))

#define check_range_w(rmin, rmax)\

  ((unsigned)(dwidth - rmin) <= (rmax - rmin))

#define check_ranges(rmin, rmax)\

  (check_range_xy(rmin, rmax) && check_range_w(rmin, rmax) &&\

   (unsigned)(dheight - rmin) <= (rmax - rmin))

    cmd_set_rect(pcls->rect);

    if (dheight == 0 && check_range_w(cmd_min_dw_tiny, cmd_max_dw_tiny) &&

        check_range_xy(cmd_min_dxy_tiny, cmd_max_dxy_tiny)

        ) {

        byte op_tiny = op + 0x20 + dwidth - cmd_min_dw_tiny;

        if (dx == width - dwidth && dy == 0) {

            code = set_cmd_put_op(&dp, cldev, pcls, op_tiny + 8, 1);

            if (code < 0)

                return code;

        } else {

            code = set_cmd_put_op(&dp, cldev, pcls, op_tiny, 2);

            if (code < 0)

                return code;

            dp[1] = (dx << 4) + dy - (cmd_min_dxy_tiny * 0x11);

        }

    }

#define rmin cmd_min_short

#define rmax cmd_max_short

    else if (check_ranges(rmin, rmax)) {

        int dh = dheight - cmd_min_dxy_tiny;

        if ((unsigned)dh <= cmd_max_dxy_tiny - cmd_min_dxy_tiny &&

            dh != 0 && dy == 0

            ) {

            op += dh;

            code = set_cmd_put_op(&dp, cldev, pcls, op + 0x10, 3);

            if (code < 0)

                return code;

            if_debug3m('L', cldev->memory, "    rs2:%d,%d,0,%d\n",

                       dx, dwidth, dheight);

        } else {

            code = set_cmd_put_op(&dp, cldev, pcls, op + 0x10, 5);

            if (code < 0)

                return code;

            if_debug4m('L', cldev->memory, "    rs4:%d,%d,%d,%d\n",

                       dx, dwidth, dy, dheight);

            dp[3] = dy - rmin;

            dp[4] = dheight - rmin;

        }

        dp[1] = dx - rmin;

        dp[2] = dwidth - rmin;

    }

#undef rmin

#undef rmax

    else if (dy >= -2 && dy <= 1 && dheight >= -2 && dheight <= 1 &&

             (dy + dheight) != -4

        ) {

        int rcsize = 1 + cmd_sizew(x) + cmd_sizew(width);

        code = set_cmd_put_op(&dp, cldev, pcls,

                              op + ((dy + 2) << 2) + dheight + 2, rcsize);

        if (code < 0)

            return code;

        ++dp;

        cmd_put2w(x, width, &dp);

    } else {

        int rcsize = 1 + cmd_size_rect(&pcls->rect);

        code = set_cmd_put_op(&dp, cldev, pcls, op, rcsize);

        if (code < 0)

            return code;

        if_debug5m('L', cldev->memory, "[L]  r%d:%d,%d,%d,%d\n",

                   rcsize - 1, dx, dwidth, dy, dheight);

        cmd_put_rect(&pcls->rect, dp + 1);

    }

    return 0;

}

/* Put out a fill or tile rectangle command for fillpage. */

int

cmd_write_page_rect_cmd(gx_device_clist_writer * cldev, int op)

{

    /* Since cmd_write_rect_cmd always writes 0x0 rectangle as a tiny one,

       here we write a "big" rectangle with the size 0x0.

       The clist reader must handle this case especially.

     */

    int rcsize = 1 + 4 * cmd_sizew(0);

    byte *dp;

    int x = 0, y = 0, width = 0, height = 0; /* For cmd_set_rect */

    gx_clist_state *pcls1;

    int code;

    if_debug0m('L', cldev->memory, "[L]fillpage beg\n");

    code = set_cmd_put_all_op(&dp, cldev, op, rcsize);

    if (code < 0)

        return code;

    for (pcls1 = cldev->states; pcls1 < cldev->states + cldev->nbands; pcls1++)

        cmd_set_rect(pcls1->rect);

    ++dp;

    cmd_putw(0, &dp);

    cmd_putw(0, &dp);

    cmd_putw(0, &dp);

    cmd_putw(0, &dp);

    if_debug0m('L', cldev->memory, "[L]fillpage end\n");

    return 0;

}

static inline byte *

cmd_put_frac31_color(gx_device_clist_writer * cldev, const frac31 *c, byte *dp)

{

    uchar num_components = cldev->clist_color_info.num_components;

    uchar j;

    for (j = 0; j < num_components; j++)

        dp = cmd_put_frac31(c[j], dp);

    return dp;

}

static inline int

cmd_size_frac31_color(gx_device_clist_writer * cldev, const frac31 *c)

{

    uchar j;

    int s = 0;

    uchar num_components = cldev->clist_color_info.num_components;

    for (j = 0; j < num_components; j++)

        s += cmd_size_frac31(c[j]);

    return s;

}

static int

cmd_write_trapezoid_cmd(gx_device_clist_writer * cldev, gx_clist_state * pcls,

                    int op,  const gs_fixed_edge *left, const gs_fixed_edge *right,

                    fixed ybot, fixed ytop, int options,

                    const gs_fill_attributes *fa,

                    const frac31 *c0, const frac31 *c1,

                    const frac31 *c2, const frac31 *c3)

{

    byte *dp;

    int rcsize;

    int code;

    int colors_mask = 0;

    rcsize = 1 + cmd_sizew(left->start.x) + cmd_sizew(left->start.y)

               + cmd_sizew(left->end.x) + cmd_sizew(left->end.y)

               + cmd_sizew(right->start.x) + cmd_sizew(right->start.y)

               + cmd_sizew(right->end.x) + cmd_sizew(right->end.y)

               + cmd_sizew(options);

    if (!(options & 4))

        rcsize += cmd_sizew(ybot) + cmd_sizew(ytop);

    if (options & 2) {

        rcsize += cmd_sizew(fa->clip->p.x) + cmd_sizew(fa->clip->p.y)

                + cmd_sizew(fa->clip->q.x) + cmd_sizew(fa->clip->q.y);

        if (c0 != NULL) {

            colors_mask += 1;

            rcsize += cmd_size_frac31_color(cldev, c0);

        }

        if (c1 != NULL) {

            colors_mask += 2;

            rcsize += cmd_size_frac31_color(cldev, c1);

        }

        if (c2 != NULL) {

            colors_mask += 4;

            rcsize += cmd_size_frac31_color(cldev, c2);

        }

        if (c3 != NULL) {

            colors_mask += 8;

            rcsize += cmd_size_frac31_color(cldev, c3);

        }

        rcsize += cmd_sizew(colors_mask);

    }

    code = set_cmd_put_op(&dp, cldev, pcls, op, rcsize);

    if (code < 0)

        return code;

    dp++;

    cmd_putw(left->start.x, &dp);

    cmd_putw(left->start.y, &dp);

    cmd_putw(left->end.x, &dp);

    cmd_putw(left->end.y, &dp);

    cmd_putw(right->start.x, &dp);

    cmd_putw(right->start.y, &dp);

    cmd_putw(right->end.x, &dp);

    cmd_putw(right->end.y, &dp);

    cmd_putw(options, &dp);

    if (!(options & 4)) {

        cmd_putw(ybot, &dp);

        cmd_putw(ytop, &dp);

    }

    if_debug6m('L', cldev->memory, "    t%d:%ld,%ld,%ld,%ld   %ld\n",

               rcsize - 1, (long int)left->start.x, (long int)left->start.y,

               (long int)left->end.x, (long int)left->end.y, (long int)ybot);

    if_debug6m('L', cldev->memory, "    t%ld,%ld,%ld,%ld   %ld   o=%d\n",

               (long int)right->start.x, (long int)right->start.y,

               (long int)right->end.x, (long int)right->end.y, (long int)ytop,

               options);

    if (options & 2) {

        cmd_putw(fa->clip->p.x, &dp);

        cmd_putw(fa->clip->p.y, &dp);

        cmd_putw(fa->clip->q.x, &dp);

        cmd_putw(fa->clip->q.y, &dp);

        cmd_putw(colors_mask, &dp);

        if (c0 != NULL)

            dp = cmd_put_frac31_color(cldev, c0, dp);

        if (c1 != NULL)

            dp = cmd_put_frac31_color(cldev, c1, dp);

        if (c2 != NULL)

            dp = cmd_put_frac31_color(cldev, c2, dp);

        if (c3 != NULL)

            cmd_put_frac31_color(cldev, c3, dp);

    }

    return 0;

}

/* ---------------- Driver procedures ---------------- */

int

clist_fillpage(gx_device * dev, gs_gstate *pgs, gx_drawing_color *pdcolor)

{

    gx_device_clist * const cldev = (gx_device_clist *)dev;

    gx_device_clist_writer * const cdev = &(cldev->writer);

    gx_clist_state * pcls;

    int code;

    /* flush previous contents */

    if ((code = clist_close_writer_and_init_reader(cldev) < 0))

        return code;;

    if ((code = clist_finish_page(dev, true)) < 0)

        return code;;

    pcls = cdev->states; /* Use any. */

    code = cmd_put_drawing_color(cdev, pcls, pdcolor, NULL, devn_not_tile_fill);

    if (code >= 0)

        code = cmd_write_page_rect_cmd(cdev, cmd_op_fill_rect);

    return code;

}

int

clist_fill_rectangle(gx_device * dev, int rx, int ry, int rwidth, int rheight,

                     gx_color_index color)

{

    gx_device_clist_writer * const cdev =

        &((gx_device_clist *)dev)->writer;

    int code;

    cmd_rects_enum_t re;

    gx_color_usage_bits color_usage;

    crop_fill(cdev, rx, ry, rwidth, rheight);

    if (rwidth <= 0 || rheight <= 0)

        return 0;

    if (cdev->permanent_error < 0)

      return (cdev->permanent_error);

    /* If needed, update the trans_bbox */

    if (cdev->pdf14_needed) {

        gs_int_rect bbox;

        bbox.p.x = rx;

        bbox.q.x = rx + rwidth - 1;

        bbox.p.y = ry;

        bbox.q.y = ry + rheight - 1;

        clist_update_trans_bbox(cdev, &bbox);

    }

    RECT_ENUM_INIT(re, ry, rheight);

    color_usage = gx_color_index2usage(dev, color);

    do {

        RECT_STEP_INIT(re);

        re.pcls->color_usage.or |= color_usage;

        code = cmd_disable_lop(cdev, re.pcls);

        if (code >= 0 && color != re.pcls->colors[1]) {

            code = cmd_put_color(cdev, re.pcls, &clist_select_color1,

                                 color, &re.pcls->colors[1]);

        }

        if (code >= 0) {

            code = cmd_write_rect_cmd(cdev, re.pcls, cmd_op_fill_rect, rx, re.y,

                                      rwidth, re.height);

        }

        if (code < 0)

            return code;

        re.y += re.height;

    } while (re.y < re.yend);

    return 0;

}

/* This is used in fills from devn color types */

int

clist_fill_rectangle_hl_color(gx_device *dev, const gs_fixed_rect *rect,

    const gs_gstate *pgs, const gx_drawing_color *pdcolor,

    const gx_clip_path *pcpath)

{

    gx_device_clist_writer * const cdev =

        &((gx_device_clist *)dev)->writer;

    int code;

    int rx, ry, rwidth, rheight;

    cmd_rects_enum_t re;

    gx_color_usage_bits color_usage = cmd_drawing_color_usage(cdev, pdcolor);

    rx = fixed2int(rect->p.x);

    ry = fixed2int(rect->p.y);

    rwidth = fixed2int(rect->q.x) - rx;

    rheight = fixed2int(rect->q.y) - ry;

    crop_fill(cdev, rx, ry, rwidth, rheight);

    if (rwidth <= 0 || rheight <= 0)

        return 0;

    if (cdev->permanent_error < 0)

      return (cdev->permanent_error);

    /* If needed, update the trans_bbox */

    if (cdev->pdf14_needed) {

        gs_int_rect bbox;

        bbox.p.x = rx;

        bbox.q.x = rx + rwidth - 1;

        bbox.p.y = ry;

        bbox.q.y = ry + rheight - 1;

        clist_update_trans_bbox(cdev, &bbox);

    }

    RECT_ENUM_INIT(re, ry, rheight);

    do {

        RECT_STEP_INIT(re);

        re.pcls->color_usage.or |= color_usage;

        code = cmd_disable_lop(cdev, re.pcls);

        code = cmd_put_drawing_color(cdev, re.pcls, pdcolor, &re,

                                     devn_not_tile_fill);

        if (code >= 0) {

            code = cmd_write_rect_hl_cmd(cdev, re.pcls, cmd_op_fill_rect_hl,

                                         rx, re.y, rwidth, re.height, false);

        }

        if (code < 0)

            return code;

        re.y += re.height;

    } while (re.y < re.yend);

    return 0;

}

static inline int

clist_write_fill_trapezoid(gx_device * dev,

    const gs_fixed_edge *left, const gs_fixed_edge *right,

    fixed ybot, fixed ytop, int options,

    const gx_drawing_color *pdcolor, gs_logical_operation_t lop,

    const gs_fill_attributes *fa,

    const frac31 *c0, const frac31 *c1,

    const frac31 *c2, const frac31 *c3)

{

    gx_device_clist_writer * const cdev =

        &((gx_device_clist *)dev)->writer;

    int code;

    cmd_rects_enum_t re;

    int ry, rheight, rx, rxe;

    bool swap_axes = (options & 1);

    if (options & 4) {

        if (swap_axes) {

            rx =  fixed2int(max(min(min(left->start.y, left->end.y), right->start.y), fa->clip->p.y));

            rxe =  fixed2int_ceiling(min(max(max(left->start.y, left->end.y), right->start.y), fa->clip->q.y));

            ry = fixed2int(max(min(min(left->start.x, left->end.x), right->start.x), fa->clip->p.x));

            rheight = fixed2int_ceiling(min(max(max(left->start.x, left->end.x), right->start.x), fa->clip->q.x)) - ry;

        } else {

            rx = fixed2int(max(min(min(left->start.x, left->end.x), right->start.x), fa->clip->p.x));

            rxe = fixed2int_ceiling(min(max(max(left->start.x, left->end.x), right->start.x), fa->clip->q.x));

            ry = fixed2int(max(min(min(left->start.y, left->end.y), right->start.y), fa->clip->p.y));

            rheight = fixed2int_ceiling(min(max(max(left->start.y, left->end.y), right->start.y), fa->clip->q.y)) - ry;

        }

    } else {

        /* fixme: this may give a significant overestimation,

           so the command will be written to many bands.

           Would like to know a better range by X

           with computing intersections of sides with ybot, ytop. */

        if (swap_axes) {

            rx = fixed2int(ybot);

            rxe = fixed2int_ceiling(ytop);

            ry = fixed2int(min(left->start.x, left->end.x));

            rheight = fixed2int_ceiling(max(right->start.x, right->end.x)) - ry;

        } else {

            rx = fixed2int(min(left->start.x, left->end.x));

            rxe = fixed2int_ceiling(max(right->start.x, right->end.x));

            ry = fixed2int(ybot);

            rheight = fixed2int_ceiling(ytop) - ry;

        }

    }

    crop_fill_y(cdev, ry, rheight);

    if (rheight <= 0)

        return 0;

    if (cdev->permanent_error < 0)

        return (cdev->permanent_error);

    /* If needed, update the trans_bbox */

    if (cdev->pdf14_needed) {

        gs_int_rect bbox;

        bbox.p.x = rx;

        bbox.q.x = rxe;

        bbox.p.y = ry;

        bbox.q.y = ry + rheight;

        clist_update_trans_bbox(cdev, &bbox);

    }

    RECT_ENUM_INIT(re, ry, rheight);

    do {

        RECT_STEP_INIT(re);

        if (pdcolor != NULL) {

            code = cmd_put_drawing_color(cdev, re.pcls, pdcolor, &re,

                                         devn_not_tile_fill);

            if (code == gs_error_unregistered)

                return code;

            if (code < 0) {

                /* Something went wrong, use the default implementation. */

                return gx_default_fill_trapezoid(dev, left, right, ybot, ytop, swap_axes, pdcolor, lop);

            }

            code = cmd_update_lop(cdev, re.pcls, lop);

        } else {

            /* Even with pdcolor NULL, we may still have colors packed in

               c0, c1, c2 or c3 */

            re.pcls->color_usage.or |= gx_color_usage_all(cdev);

            code = 0;

        }

        if (code >= 0) {

            /* Don't want to shorten the trapezoid by the band boundary,

               keeping in mind a further optimization with writing same data to all bands. */

            code = cmd_write_trapezoid_cmd(cdev, re.pcls, cmd_opv_fill_trapezoid, left, right,

                                      ybot, ytop, options, fa, c0, c1, c2, c3);

        }

        if (code < 0)

            return code;

        re.y += re.height;

    } while (re.y < re.yend);

    return 0;

}

int

clist_fill_trapezoid(gx_device * dev,

    const gs_fixed_edge *left, const gs_fixed_edge *right,

    fixed ybot, fixed ytop, bool swap_axes,

    const gx_drawing_color *pdcolor, gs_logical_operation_t lop)

{

    return clist_write_fill_trapezoid(dev, left, right,

        ybot, ytop, swap_axes, pdcolor, lop, NULL, NULL, NULL, NULL, NULL);

}

int

clist_fill_linear_color_trapezoid(gx_device * dev, const gs_fill_attributes *fa,

        const gs_fixed_point *p0, const gs_fixed_point *p1,

        const gs_fixed_point *p2, const gs_fixed_point *p3,

        const frac31 *c0, const frac31 *c1,

        const frac31 *c2, const frac31 *c3)

{

    gs_fixed_edge left, right;

    int code;

    left.start = *p0;

    left.end = *p1;

    right.start = *p2;

    right.end = *p3;

    code = clist_write_fill_trapezoid(dev, &left, &right,

        fa->ystart, fa->yend, fa->swap_axes | 2, NULL, fa->lop, fa, c0, c1, c2, c3);

    if (code < 0)

        return code;

    /* NOTE : The return value 0 for the fill_linear_color_trapezoid method means

       that the device requests a further decomposition of the trapezoid.

       Currently we have no interface for checking whether the target device

       can handle a trapezoid without an attempt to fill it.

       Therefore the clist writer device must always return 1,

       and the clist reader must perform a further decomposition

       if the target device requests it.

     */

    return 1;

}

int

clist_fill_linear_color_triangle(gx_device * dev, const gs_fill_attributes *fa,

        const gs_fixed_point *p0, const gs_fixed_point *p1,

        const gs_fixed_point *p2,

        const frac31 *c0, const frac31 *c1, const frac31 *c2)

{

    gs_fixed_edge left, right;

    int code;

    left.start = *p0;

    left.end = *p1;

    right.start = *p2;

    right.end.x = right.end.y = 0; /* unused. */

    code = clist_write_fill_trapezoid(dev, &left, &right,

        0, 0, fa->swap_axes | 2 | 4, NULL, fa->lop, fa, c0, c1, c2, NULL);

    if (code < 0)

        return code;

    /* NOTE : The return value 0 for the fill_linear_color_triangle method means

       that the device requests a further decomposition of the trapezoid.

       Currently we have no interface for checking whether the target device

       can handle a trapezoid without an attempt to fill it.

       Therefore the clist writer device must always return 1,

       and the clist reader must perform a further decomposition

       if the target device requests it.

     */

    return 1;

}

extern dev_proc_open_device(pattern_clist_open_device);

extern dev_proc_dev_spec_op(pattern_accum_dev_spec_op);

int

clist_dev_spec_op(gx_device *pdev, int dev_spec_op, void *data, int size)

{

    gx_device_clist_common * const cdev = &((gx_device_clist *)pdev)->common;

    if (dev_spec_op == gxdso_pattern_handles_clip_path)

        return 1;

    if (dev_spec_op == gxdso_pattern_shfill_doesnt_need_path)

        return 1;

    if (dev_spec_op == gxdso_copy_alpha_disabled) {

        gx_device_clist_writer * const cdev = &((gx_device_clist *)pdev)->writer;

        return (cdev->disable_mask & clist_disable_copy_alpha) != 0;

    }

    if (dev_spec_op == gxdso_supports_devn

     || dev_spec_op == gxdso_skip_icc_component_validation) {

        cmm_dev_profile_t *dev_profile;

        int code;

        code = dev_proc(cdev, get_profile)((gx_device*) cdev, &dev_profile);

        if (code == 0) {

            return dev_profile->supports_devn;

        } else {

            return 0;

        }

    }

    if (dev_spec_op == gxdso_restrict_bbox) {

        gx_device_clist_writer *cwdev = &((gx_device_clist *)pdev)->writer;

        gs_int_rect *ibox = (gs_int_rect *)data;

        if (ibox->p.y < cwdev->cropping_min)

            ibox->p.y = cwdev->cropping_min;

        if (ibox->q.y > cwdev->cropping_max)

            ibox->q.y = cwdev->cropping_max;

        return 0;

    }

    if (dev_spec_op == gxdso_is_clist_device)

        return 1;

    if (dev_spec_op == gxdso_overprint_active) {

        gx_device_clist_writer* cwdev = &((gx_device_clist*)pdev)->writer;

        return cwdev->op_fill_active || cwdev->op_stroke_active;

    }

    /* This is a horrible hack. Accumulator devices have their procs

     * overriden by clist ones in gdev_prn_open. */

    if (strncmp(pdev->dname, "pdf14-accum-", 12) == 0) {

        return pdf14_accum_dev_spec_op(pdev, dev_spec_op, data, size);

    }

    /* forward to the appropriate super class */

    if (cdev->orig_spec_op)

        return cdev->orig_spec_op(pdev, dev_spec_op, data, size);

    if (dev_proc(cdev, open_device) == pattern_clist_open_device)

        return pattern_accum_dev_spec_op(pdev, dev_spec_op, data, size);

    return gx_default_dev_spec_op(pdev, dev_spec_op, data, size);

}

/* Based heavily off of clist_strip_tile_rectangle */

int

clist_strip_tile_rect_devn(gx_device * dev, const gx_strip_bitmap * tile,

                           int rx, int ry, int rwidth, int rheight,

                           const gx_drawing_color *pdcolor0,

                           const gx_drawing_color *pdcolor1, int px, int py)

{

    gx_device_clist_writer * const cdev =

        &((gx_device_clist *)dev)->writer;

    int depth = 1;

    int code;

    cmd_rects_enum_t re;

    gx_color_usage_bits color_usage = cmd_drawing_color_usage(cdev, pdcolor0);

    crop_fill(cdev, rx, ry, rwidth, rheight);

    if (rwidth <= 0 || rheight <= 0)

        return 0;

    if (cdev->permanent_error < 0)

      return (cdev->permanent_error);

    /* If needed, update the trans_bbox */

    if (cdev->pdf14_needed) {

        gs_int_rect bbox;

        bbox.p.x = rx;

        bbox.q.x = rx + rwidth - 1;

        bbox.p.y = ry;

        bbox.q.y = ry + rheight - 1;

        clist_update_trans_bbox(cdev, &bbox);

    }

    color_usage |= cmd_drawing_color_usage(cdev, pdcolor1);

    RECT_ENUM_INIT(re, ry, rheight);

    do {

        ulong offset_temp;

        RECT_STEP_INIT(re);

        re.pcls->color_usage.or |= color_usage;

        code = cmd_disable_lop(cdev, re.pcls);

        if (code < 0)

            return code;

        /* Change the tile if needed */

        if (!cls_has_tile_id(cdev, re.pcls, tile->id, offset_temp)) {

            if (tile->id != gx_no_bitmap_id) {

                code = clist_change_tile(cdev, re.pcls, tile, depth);

                if (code < 0)

                {

                    if (code == gs_error_limitcheck)

                    {

                        code = gx_default_strip_tile_rect_devn(dev, tile,

                                                               rx, re.y, rwidth, re.height,

                                                               pdcolor0, pdcolor1,

                                                               px, py);

                        if (code <= 0)

                            goto loop;

                    }

                    return code;

                }

            } else {

                return_error(gs_error_unregistered);

            }

        }

        code = 0;

        /* Write out the devn colors */

        code = cmd_put_drawing_color(cdev, re.pcls, pdcolor0, &re,

                                     devn_tile0);

        code = cmd_put_drawing_color(cdev, re.pcls, pdcolor1, &re,

                                     devn_tile1);

        /* Set the tile phase */

        if (px != re.pcls->tile_phase.x || py != re.pcls->tile_phase.y) {

            if (code >= 0)

                code = cmd_set_tile_phase(cdev, re.pcls, px, py);

        }

        /* Write out the actually command to fill with the devn colors */

        if (code >= 0) {

            code = cmd_write_rect_hl_cmd(cdev, re.pcls,

                                         cmd_opv_ext_tile_rect_hl, rx, re.y,

                                         rwidth, re.height, true);

        }

        if (code < 0)

            return code;

loop:

        re.y += re.height;

    } while (re.y < re.yend);

    return 0;

}

int

clist_strip_tile_rectangle(gx_device * dev, const gx_strip_bitmap * tile,

                           int rx, int ry, int rwidth, int rheight,

               gx_color_index color0, gx_color_index color1, int px, int py)

{

    gx_device_clist_writer * const cdev =

        &((gx_device_clist *)dev)->writer;

    int depth =

        (color1 == gx_no_color_index && color0 == gx_no_color_index ?

         cdev->clist_color_info.depth : 1);

    gx_color_usage_bits color_usage =

        (color1 == gx_no_color_index && color0 == gx_no_color_index ?

         /* We can't know what colors will be used: assume the worst. */

         gx_color_usage_all(dev) :

         (color0 == gx_no_color_index ? 0 : gx_color_index2usage(dev, color0)) |

         (color1 == gx_no_color_index ? 0 : gx_color_index2usage(dev, color1)));

    int code;

    cmd_rects_enum_t re;

    crop_fill(cdev, rx, ry, rwidth, rheight);

    if (rwidth <= 0 || rheight <= 0)

        return 0;

    if (cdev->permanent_error < 0)

        return (cdev->permanent_error);

    /* If needed, update the trans_bbox */

    if (cdev->pdf14_needed) {

        gs_int_rect bbox;

        bbox.p.x = rx;

        bbox.q.x = rx + rwidth - 1;

        bbox.p.y = ry;

        bbox.q.y = ry + rheight - 1;

        clist_update_trans_bbox(cdev, &bbox);

    }

    RECT_ENUM_INIT(re, ry, rheight);

    do {

        ulong offset_temp;

        RECT_STEP_INIT(re);

        re.pcls->color_usage.or |= color_usage;

        code = cmd_disable_lop(cdev, re.pcls);

        if (code < 0)

            return code;

        if (!cls_has_tile_id(cdev, re.pcls, tile->id, offset_temp)) {

            if (tile->id != gx_no_bitmap_id) {

                code = clist_change_tile(cdev, re.pcls, tile, depth);

            } else

                code = -1; /* Force the default implementation. Should never happen. */

            if (code < 0) {

                /* ok if gx_default... does retries internally: */

                /* it's self-sufficient */

                code = gx_default_strip_tile_rectangle(dev, tile,

                                                       rx, re.y, rwidth, re.height,

                                                       color0, color1,

                                                       px, py);

                if (code < 0)

                    return code;

                goto endr;

            }

        }

        code = 0;

        if (color0 != re.pcls->tile_colors[0] || color1 != re.pcls->tile_colors[1])

            code = cmd_set_tile_colors(cdev, re.pcls, color0, color1);

        if (px != re.pcls->tile_phase.x || py != re.pcls->tile_phase.y) {

            if (code >= 0)

                code = cmd_set_tile_phase(cdev, re.pcls, px, py);

        }

        if (code >= 0)

            code = cmd_write_rect_cmd(cdev, re.pcls, cmd_op_tile_rect, rx, re.y,

                                      rwidth, re.height);

        if (code < 0)

            return code;

endr:;

        re.y += re.height;

    } while (re.y < re.yend);

    return 0;

}

int

clist_copy_mono(gx_device * dev,

                const byte * data, int data_x, int raster, gx_bitmap_id id,

                int rx, int ry, int rwidth, int rheight,

                gx_color_index color0, gx_color_index color1)

{

    gx_device_clist_writer * const cdev =

        &((gx_device_clist *)dev)->writer;

    int y0;

    gx_bitmap_id orig_id = id;

    gx_color_usage_bits color_usage =

        (color0 == gx_no_color_index ? 0 : gx_color_index2usage(dev, color0)) |

        (color1 == gx_no_color_index ? 0 : gx_color_index2usage(dev, color1));

    cmd_rects_enum_t re;

    fit_copy(dev, data, data_x, raster, id, rx, ry, rwidth, rheight);

    y0 = ry;

    if (cdev->permanent_error < 0)

      return (cdev->permanent_error);

    /* If needed, update the trans_bbox */

    if (cdev->pdf14_needed) {

        gs_int_rect bbox;

        bbox.p.x = rx;

        bbox.q.x = rx + rwidth - 1;

        bbox.p.y = ry;

        bbox.q.y = ry + rheight - 1;

        clist_update_trans_bbox(cdev, &bbox);

    }

    RECT_ENUM_INIT(re, ry, rheight);

    do {

        int dx = data_x & 7;

        int w1 = dx + rwidth;

        const byte *row = data + (re.y - y0) * raster + (data_x >> 3);

        int code;

        RECT_STEP_INIT(re);

        re.pcls->color_usage.or |= color_usage;

        code = cmd_disable_lop(cdev, re.pcls);

        if (code >= 0)

            code = cmd_disable_clip(cdev, re.pcls);

        if (color0 != re.pcls->colors[0] && code >= 0)

            code = cmd_set_color0(cdev, re.pcls, color0);

        if (color1 != re.pcls->colors[1] && code >= 0)

            code = cmd_set_color1(cdev, re.pcls, color1);

        if (code < 0)

            return code;

        /* Don't bother to check for a possible cache hit: */

        /* tile_rectangle and fill_mask handle those cases. */

copy:{

        gx_cmd_rect rect;

        int rsize;

        byte op = (byte) cmd_op_copy_mono_planes;

        byte *dp;

        uint csize;

        uint compress;

        int code;

        rect.x = rx, rect.y = re.y;

        rect.width = w1, rect.height = re.height;

        rsize = (dx ? 3 : 1) + cmd_size_rect(&rect) + cmd_sizew(0); /* planar_height 0 */

        code = cmd_put_bits(cdev, re.pcls, row, w1, re.height, raster,

                            rsize, (orig_id == gx_no_bitmap_id ?

                                    1 << cmd_compress_rle :

                                    cmd_mask_compress_any),

                            &dp, &csize);

        if (code < 0 && !(code == gs_error_limitcheck))

            return code;

        compress = (uint)code;

        if (code < 0) {

            /* The bitmap was too large; split up the transfer. */

            if (re.height > 1) {

                /*

                 * Split the transfer by reducing the height.

                 * See the comment above FOR_RECTS in gxcldev.h.

                 */

                re.height >>= 1;

                goto copy;

            } else {

                /* Split a single (very long) row. */

                int w2 = w1 >> 1;

                code = clist_copy_mono(dev, row, dx,

                                       raster, gx_no_bitmap_id, rx, re.y,

                                       w2, 1, color0, color1);

                if (code >= 0)

                    code = clist_copy_mono(dev, row, dx + w2,

                                           raster, gx_no_bitmap_id,

                                           rx + w2, re.y,

                                           w1 - w2, 1, color0, color1);

                if (code < 0)

                    return code;

                continue;

            }

        }

        op += compress;

        if (dx) {

            if_debug0m('L', dev->memory,

                       "[L] fake end_run: really set_misc_data_x[2]\n");

            *dp++ = cmd_count_op(cmd_opv_set_misc, 2, dev->memory);

            *dp++ = cmd_set_misc_data_x + dx;

        }

#ifdef DEBUG

        if (gs_debug_c('L')) {

            const char *const *sub = cmd_sub_op_names[op >> 4];

            if (sub)

                dmlprintf1(dev->memory, "[L] fake end_run: really %s\n", sub[op & 0xf]);

            else

                dmlprintf2(dev->memory, "[L] fake end_run: really %s %d\n", cmd_op_names[op >> 4], op & 0xf);

        }

#endif

        *dp++ = cmd_count_op(op, csize, dev->memory);

        /* Store the plane_height */

        cmd_putw(0, &dp);

        cmd_put2w(rx, re.y, &dp);

        cmd_put2w(w1, re.height, &dp);

        re.pcls->rect = rect;

        }

    } while ((re.y += re.height) < re.yend);

    return 0;

}

/* The code duplication between this and clist_copy_mono needs to be removed */

int

clist_copy_planes(gx_device * dev,

                  const byte * data, int data_x, int raster, gx_bitmap_id id,

                  int rx, int ry, int rwidth, int rheight, int plane_height)

{

    gx_device_clist_writer * const cdev =

        &((gx_device_clist *)dev)->writer;

    int y0;

    gx_bitmap_id orig_id = id;

    cmd_rects_enum_t re;

    int bpc = dev->color_info.depth / dev->color_info.num_components;

    int pix_in_byte = bpc <= 8 ? 8/bpc : 1;

    int byte_in_pix = bpc >= 8 ? bpc/8 : 1;

    if (rwidth <= 0 || rheight <= 0)

        return 0;

    fit_copy(dev, data, data_x, raster, id, rx, ry, rwidth, rheight);

    y0 = ry;

    if (cdev->permanent_error < 0)

      return (cdev->permanent_error);

#ifdef DEBUG

    if (plane_height == 0) {

        dprintf("clist_copy_planes called with plane_height == 0.\n");

    }

#endif

    /* If needed, update the trans_bbox */

    if (cdev->pdf14_needed) {

        gs_int_rect bbox;

        bbox.p.x = rx;

        bbox.q.x = rx + rwidth - 1;

        bbox.p.y = ry;

        bbox.q.y = ry + rheight - 1;

        clist_update_trans_bbox(cdev, &bbox);

    }

    RECT_ENUM_INIT(re, ry, rheight);

    do {

        int code;

        gx_cmd_rect rect;

        int rsize;

        byte *dp, *dp2;

        uint csize;

        byte op = (byte) cmd_op_copy_mono_planes;

        int dx = data_x % pix_in_byte;

        int w1 = dx + rwidth;

        const byte *row = data + (re.y - y0) * raster + (data_x * byte_in_pix / pix_in_byte);

        int bytes_row = ((w1*bpc+7)/8 + 7) & ~7;

        int maxheight = data_bits_size / bytes_row / cdev->color_info.num_components;

        int plane;

        RECT_STEP_INIT(re);

        code = cmd_disable_lop(cdev, re.pcls);

        if (code >= 0)

            code = cmd_disable_clip(cdev, re.pcls);

        if (code < 0)

            return code;

        /* Don't bother to check for a possible cache hit: */

        /* tile_rectangle and fill_mask handle those cases. */

        /* We require that in the copy_planes case all the planes fit into

         * the data_bits area (for the copy_planes call by the clist reader) */

        if (re.height > maxheight)

            re.height = maxheight;

        if (re.height == 0) {

            /* Not even a single row fits. Revert to a single row and split it in two recursively */

            int w2 = w1 >> 1;

            re.height = 1;

            code = clist_copy_planes(dev, row, dx, raster,

                                     gx_no_bitmap_id, rx, re.y,

                                     w2, 1, plane_height);

            if (code >= 0)