/* -*- Mode: c; tab-width: 8; c-basic-offset: 4; indent-tabs-mode: t; -*- */

/* cairo - a vector graphics library with display and print output

 *

 * Copyright 2009 Andrea Canciani

 *

 * This library is free software; you can redistribute it and/or

 * modify it either under the terms of the GNU Lesser General Public

 * License version 2.1 as published by the Free Software Foundation

 * (the "LGPL") or, at your option, under the terms of the Mozilla

 * Public License Version 1.1 (the "MPL"). If you do not alter this

 * notice, a recipient may use your version of this file under either

 * the MPL or the LGPL.

 *

 * You should have received a copy of the LGPL along with this library

 * in the file COPYING-LGPL-2.1; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Suite 500, Boston, MA 02110-1335, USA

 * You should have received a copy of the MPL along with this library

 * in the file COPYING-MPL-1.1

 *

 * The contents of this file are subject to the Mozilla Public License

 * Version 1.1 (the "License"); you may not use this file except in

 * compliance with the License. You may obtain a copy of the License at

 * http://www.mozilla.org/MPL/

 *

 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY

 * OF ANY KIND, either express or implied. See the LGPL or the MPL for

 * the specific language governing rights and limitations.

 *

 * The Original Code is the cairo graphics library.

 *

 * The Initial Developer of the Original Code is Andrea Canciani.

 *

 * Contributor(s):

 *  Andrea Canciani <ranma42@gmail.com>

 */

#include "cairoint.h"

#include "cairo-array-private.h"

#include "cairo-pattern-private.h"

/*

 * Rasterizer for mesh patterns.

 *

 * This implementation is based on techniques derived from several

 * papers (available from ACM):

 *

 * - Lien, Shantz and Pratt "Adaptive Forward Differencing for

 *   Rendering Curves and Surfaces" (discussion of the AFD technique,

 *   bound of 1/sqrt(2) on step length without proof)

 *

 * - Popescu and Rosen, "Forward rasterization" (description of

 *   forward rasterization, proof of the previous bound)

 *

 * - Klassen, "Integer Forward Differencing of Cubic Polynomials:

 *   Analysis and Algorithms"

 *

 * - Klassen, "Exact Integer Hybrid Subdivision and Forward

 *   Differencing of Cubics" (improving the bound on the minimum

 *   number of steps)

 *

 * - Chang, Shantz and Rocchetti, "Rendering Cubic Curves and Surfaces

 *   with Integer Adaptive Forward Differencing" (analysis of forward

 *   differencing applied to Bezier patches)

 *

 * Notes:

 * - Poor performance expected in degenerate cases

 *

 * - Patches mostly outside the drawing area are drawn completely (and

 *   clipped), wasting time

 *

 * - Both previous problems are greatly reduced by splitting until a

 *   reasonably small size and clipping the new tiles: execution time

 *   is quadratic in the convex-hull diameter instead than linear to

 *   the painted area. Splitting the tiles doesn't change the painted

 *   area but (usually) reduces the bounding box area (bbox area can

 *   remain the same after splitting, but cannot grow)

 *

 * - The initial implementation used adaptive forward differencing,

 *   but simple forward differencing scored better in benchmarks

 *

 * Idea:

 *

 * We do a sampling over the cubic patch with step du and dv (in the

 * two parameters) that guarantees that any point of our sampling will

 * be at most at 1/sqrt(2) from its adjacent points. In formulae

 * (assuming B is the patch):

 *

 *   |B(u,v) - B(u+du,v)| < 1/sqrt(2)

 *   |B(u,v) - B(u,v+dv)| < 1/sqrt(2)

 *

 * This means that every pixel covered by the patch will contain at

 * least one of the samples, thus forward rasterization can be

 * performed. Sketch of proof (from Popescu and Rosen):

 *

 * Let's take the P pixel we're interested into. If we assume it to be

 * square, its boundaries define 9 regions on the plane:

 *

 * 1|2|3

 * -+-+-

 * 8|P|4

 * -+-+-

 * 7|6|5

 *

 * Let's check that the pixel P will contain at least one point

 * assuming that it is covered by the patch.

 *

 * Since the pixel is covered by the patch, its center will belong to

 * (at least) one of the quads:

 *

 *   {(B(u,v), B(u+du,v), B(u,v+dv), B(u+du,v+dv)) for u,v in [0,1]}

 *

 * If P doesn't contain any of the corners of the quad:

 *

 * - if one of the corners is in 1,3,5 or 7, other two of them have to

 *   be in 2,4,6 or 8, thus if the last corner is not in P, the length

 *   of one of the edges will be > 1/sqrt(2)

 *

 * - if none of the corners is in 1,3,5 or 7, all of them are in 2,4,6

 *   and/or 8. If they are all in different regions, they can't

 *   satisfy the distance constraint. If two of them are in the same

 *   region (let's say 2), no point is in 6 and again it is impossible

 *   to have the center of P in the quad respecting the distance

 *   constraint (both these assertions can be checked by continuity

 *   considering the length of the edges of a quad with the vertices

 *   on the edges of P)

 *

 * Each of the cases led to a contradiction, so P contains at least

 * one of the corners of the quad.

 */

/*

 * Make sure that errors are less than 1 in fixed point math if you

 * change these values.

 *

 * The error is amplified by about steps^3/4 times.

 * The rasterizer always uses a number of steps that is a power of 2.

 *

 * 256 is the maximum allowed number of steps (to have error < 1)

 * using 8.24 for the differences.

 */

#define STEPS_MAX_V 256.0

#define STEPS_MAX_U 256.0

/*

 * If the patch/curve is only partially visible, split it to a finer

 * resolution to get higher chances to clip (part of) it.

 *

 * These values have not been computed, but simply obtained

 * empirically (by benchmarking some patches). They should never be

 * greater than STEPS_MAX_V (or STEPS_MAX_U), but they can be as small

 * as 1 (depending on how much you want to spend time in splitting the

 * patch/curve when trying to save some rasterization time).

 */

#define STEPS_CLIP_V 64.0

#define STEPS_CLIP_U 64.0

/* Utils */

static inline double

sqlen (cairo_point_double_t p0, cairo_point_double_t p1)

{

    cairo_point_double_t delta;

    delta.x = p0.x - p1.x;

    delta.y = p0.y - p1.y;

    return delta.x * delta.x + delta.y * delta.y;

}

static inline int16_t

_color_delta_to_shifted_short (int32_t from, int32_t to, int shift)

{

    int32_t delta = to - from;

    /* We need to round toward zero, because otherwise adding the

     * delta 2^shift times can overflow */

    if (delta >= 0)

  return delta >> shift;

    else

  return -((-delta) >> shift);

}

/*

 * Convert a number of steps to the equivalent shift.

 *

 * Input: the square of the minimum number of steps

 *

 * Output: the smallest integer x such that 2^x > steps

 */

static inline int

sqsteps2shift (double steps_sq)

{

    int r;

    frexp (MAX (1.0, steps_sq), &r);

    return (r + 1) >> 1;

}

/*

 * FD functions

 *

 * A Bezier curve is defined (with respect to a parameter t in

 * [0,1]) from its nodes (x,y,z,w) like this:

 *

 *   B(t) = x(1-t)^3 + 3yt(1-t)^2 + 3zt^2(1-t) + wt^3

 *

 * To efficiently evaluate a Bezier curve, the rasterizer uses forward

 * differences. Given x, y, z, w (the 4 nodes of the Bezier curve), it

 * is possible to convert them to forward differences form and walk

 * over the curve using fd_init (), fd_down () and fd_fwd ().

 *

 * f[0] is always the value of the Bezier curve for "current" t.

 */

/*

 * Initialize the coefficient for forward differences.

 *

 * Input: x,y,z,w are the 4 nodes of the Bezier curve

 *

 * Output: f[i] is the i-th difference of the curve

 *

 * f[0] is the value of the curve for t==0, i.e. f[0]==x.

 *

 * The initial step is 1; this means that each step increases t by 1

 * (so fd_init () immediately followed by fd_fwd (f) n times makes

 * f[0] be the value of the curve for t==n).

 */

static inline void

fd_init (double x, double y, double z, double w, double f[4])

{

    f[0] = x;

    f[1] = w - x;

    f[2] = 6. * (w - 2. * z + y);

    f[3] = 6. * (w - 3. * z + 3. * y - x);

}

/*

 * Halve the step of the coefficients for forward differences.

 *

 * Input: f[i] is the i-th difference of the curve

 *

 * Output: f[i] is the i-th difference of the curve with half the

 *         original step

 *

 * f[0] is not affected, so the current t is not changed.

 *

 * The other coefficients are changed so that the step is half the

 * original step. This means that doing fd_fwd (f) n times with the

 * input f results in the same f[0] as doing fd_fwd (f) 2n times with

 * the output f.

 */

static inline void

fd_down (double f[4])

{

    f[3] *= 0.125;

    f[2] = f[2] * 0.25 - f[3];

    f[1] = (f[1] - f[2]) * 0.5;

}

/*

 * Perform one step of forward differences along the curve.

 *

 * Input: f[i] is the i-th difference of the curve

 *

 * Output: f[i] is the i-th difference of the curve after one step

 */

static inline void

fd_fwd (double f[4])

{

    f[0] += f[1];

    f[1] += f[2];

    f[2] += f[3];

}

/*

 * Transform to integer forward differences.

 *

 * Input: d[n] is the n-th difference (in double precision)

 *

 * Output: i[n] is the n-th difference (in fixed point precision)

 *

 * i[0] is 9.23 fixed point, other differences are 4.28 fixed point.

 */

static inline void

fd_fixed (double d[4], int32_t i[4])

{

    i[0] = _cairo_fixed_16_16_from_double (256 *  2 * d[0]);

    i[1] = _cairo_fixed_16_16_from_double (256 * 16 * d[1]);

    i[2] = _cairo_fixed_16_16_from_double (256 * 16 * d[2]);

    i[3] = _cairo_fixed_16_16_from_double (256 * 16 * d[3]);

}

/*

 * Perform one step of integer forward differences along the curve.

 *

 * Input: f[n] is the n-th difference

 *

 * Output: f[n] is the n-th difference

 *

 * f[0] is 9.23 fixed point, other differences are 4.28 fixed point.

 */

static inline void

fd_fixed_fwd (int32_t f[4])

{

    f[0] += (f[1] >> 5) + ((f[1] >> 4) & 1);

    f[1] += f[2];

    f[2] += f[3];

}

/*

 * Compute the minimum number of steps that guarantee that walking

 * over a curve will leave no holes.

 *

 * Input: p[0..3] the nodes of the Bezier curve

 *

 * Returns: the square of the number of steps

 *

 * Idea:

 *

 * We want to make sure that at every step we move by less than

 * 1/sqrt(2).

 *

 * The derivative of the cubic Bezier with nodes (p0, p1, p2, p3) is

 * the quadratic Bezier with nodes (p1-p0, p2-p1, p3-p2) scaled by 3,

 * so (since a Bezier curve is always bounded by its convex hull), we

 * can say that:

 *

 *  max(|B'(t)|) <= 3 max (|p1-p0|, |p2-p1|, |p3-p2|)

 *

 * We can improve this by noticing that a quadratic Bezier (a,b,c) is

 * bounded by the quad (a,lerp(a,b,t),lerp(b,c,t),c) for any t, so

 * (substituting the previous values, using t=0.5 and simplifying):

 *

 *  max(|B'(t)|) <= 3 max (|p1-p0|, |p2-p0|/2, |p3-p1|/2, |p3-p2|)

 *

 * So, to guarantee a maximum step length of 1/sqrt(2) we must do:

 *

 *   3 max (|p1-p0|, |p2-p0|/2, |p3-p1|/2, |p3-p2|) sqrt(2) steps

 */

static inline double

bezier_steps_sq (cairo_point_double_t p[4])

{

    double tmp = sqlen (p[0], p[1]);

    tmp = MAX (tmp, sqlen (p[2], p[3]));

    tmp = MAX (tmp, sqlen (p[0], p[2]) * .25);

    tmp = MAX (tmp, sqlen (p[1], p[3]) * .25);

    return 18.0 * tmp;

}

/*

 * Split a 1D Bezier cubic using de Casteljau's algorithm.

 *

 * Input: x,y,z,w the nodes of the Bezier curve

 *

 * Output: x0,y0,z0,w0 and x1,y1,z1,w1 are respectively the nodes of

 *         the first half and of the second half of the curve

 *

 * The output control nodes have to be distinct.

 */

static inline void

split_bezier_1D (double  x,  double  y,  double  z,  double  w,

     double *x0, double *y0, double *z0, double *w0,

     double *x1, double *y1, double *z1, double *w1)

{

    double tmp;

    *x0 = x;

    *w1 = w;

    tmp = 0.5 * (y + z);

    *y0 = 0.5 * (x + y);

    *z1 = 0.5 * (z + w);

    *z0 = 0.5 * (*y0 + tmp);

    *y1 = 0.5 * (tmp + *z1);

    *w0 = *x1 = 0.5 * (*z0 + *y1);

}

/*

 * Split a Bezier curve using de Casteljau's algorithm.

 *

 * Input: p[0..3] the nodes of the Bezier curve

 *

 * Output: fst_half[0..3] and snd_half[0..3] are respectively the

 *         nodes of the first and of the second half of the curve

 *

 * fst_half and snd_half must be different, but they can be the same as

 * nodes.

 */

static void

split_bezier (cairo_point_double_t p[4],

        cairo_point_double_t fst_half[4],

        cairo_point_double_t snd_half[4])

{

    split_bezier_1D (p[0].x, p[1].x, p[2].x, p[3].x,

         &fst_half[0].x, &fst_half[1].x, &fst_half[2].x, &fst_half[3].x,

         &snd_half[0].x, &snd_half[1].x, &snd_half[2].x, &snd_half[3].x);

    split_bezier_1D (p[0].y, p[1].y, p[2].y, p[3].y,

         &fst_half[0].y, &fst_half[1].y, &fst_half[2].y, &fst_half[3].y,

         &snd_half[0].y, &snd_half[1].y, &snd_half[2].y, &snd_half[3].y);

}

typedef enum _intersection {

    INSIDE = -1, /* the interval is entirely contained in the reference interval */

    OUTSIDE = 0, /* the interval has no intersection with the reference interval */

    PARTIAL = 1  /* the interval intersects the reference interval (but is not fully inside it) */

} intersection_t;

/*

 * Check if an interval if inside another.

 *

 * Input: a,b are the extrema of the first interval

 *        c,d are the extrema of the second interval

 *

 * Returns: INSIDE  iff [a,b) intersection [c,d) = [a,b)

 *          OUTSIDE iff [a,b) intersection [c,d) = {}

 *          PARTIAL otherwise

 *

 * The function assumes a < b and c < d

 *

 * Note: Bitwise-anding the results along each component gives the

 *       expected result for [a,b) x [A,B) intersection [c,d) x [C,D).

 */

static inline int

intersect_interval (double a, double b, double c, double d)

{

    if (c <= a && b <= d)

  return INSIDE;

    else if (a >= d || b <= c)

  return OUTSIDE;

    else

  return PARTIAL;

}

/*

 * Set the color of a pixel.

 *

 * Input: data is the base pointer of the image

 *        width, height are the dimensions of the image

 *        stride is the stride in bytes between adjacent rows

 *        x, y are the coordinates of the pixel to be colored

 *        r,g,b,a are the color components of the color to be set

 *

 * Output: the (x,y) pixel in data has the (r,g,b,a) color

 *

 * The input color components are not premultiplied, but the data

 * stored in the image is assumed to be in CAIRO_FORMAT_ARGB32 (8 bpc,

 * premultiplied).

 *

 * If the pixel to be set is outside the image, this function does

 * nothing.

 */

static inline void

draw_pixel (unsigned char *data, int width, int height, int stride,

      int x, int y, uint16_t r, uint16_t g, uint16_t b, uint16_t a)

{

    if (likely (0 <= x && 0 <= y && x < width && y < height)) {

  uint32_t tr, tg, tb, ta;

  /* Premultiply and round */

  ta = a;

  tr = r * ta + 0x8000;

  tg = g * ta + 0x8000;

  tb = b * ta + 0x8000;

  tr += tr >> 16;

  tg += tg >> 16;

  tb += tb >> 16;

  *((uint32_t*) (data + y*(ptrdiff_t)stride + 4*x)) = ((ta << 16) & 0xff000000) |

      ((tr >> 8) & 0xff0000) | ((tg >> 16) & 0xff00) | (tb >> 24);

    }

}

/*

 * Forward-rasterize a cubic curve using forward differences.

 *

 * Input: data is the base pointer of the image

 *        width, height are the dimensions of the image

 *        stride is the stride in bytes between adjacent rows

 *        ushift is log2(n) if n is the number of desired steps

 *        dxu[i], dyu[i] are the x,y forward differences of the curve

 *        r0,g0,b0,a0 are the color components of the start point

 *        r3,g3,b3,a3 are the color components of the end point

 *

 * Output: data will be changed to have the requested curve drawn in

 *         the specified colors

 *

 * The input color components are not premultiplied, but the data

 * stored in the image is assumed to be in CAIRO_FORMAT_ARGB32 (8 bpc,

 * premultiplied).

 *

 * The function draws n+1 pixels, that is from the point at step 0 to

 * the point at step n, both included. This is the discrete equivalent

 * to drawing the curve for values of the interpolation parameter in

 * [0,1] (including both extremes).

 */

static inline void

rasterize_bezier_curve (unsigned char *data, int width, int height, int stride,

      int ushift, double dxu[4], double dyu[4],

      uint16_t r0, uint16_t g0, uint16_t b0, uint16_t a0,

      uint16_t r3, uint16_t g3, uint16_t b3, uint16_t a3)

{

    int32_t xu[4], yu[4];

    int x0, y0, u, usteps = 1 << ushift;

    uint16_t r = r0, g = g0, b = b0, a = a0;

    int16_t dr = _color_delta_to_shifted_short (r0, r3, ushift);

    int16_t dg = _color_delta_to_shifted_short (g0, g3, ushift);

    int16_t db = _color_delta_to_shifted_short (b0, b3, ushift);

    int16_t da = _color_delta_to_shifted_short (a0, a3, ushift);

    fd_fixed (dxu, xu);

    fd_fixed (dyu, yu);

    /*

     * Use (dxu[0],dyu[0]) as origin for the forward differences.

     *

     * This makes it possible to handle much larger coordinates (the

     * ones that can be represented as cairo_fixed_t)

     */

    x0 = _cairo_fixed_from_double (dxu[0]);

    y0 = _cairo_fixed_from_double (dyu[0]);

    xu[0] = 0;

    yu[0] = 0;

    for (u = 0; u <= usteps; ++u) {

  /*

   * This rasterizer assumes that pixels are integer aligned

   * squares, so a generic (x,y) point belongs to the pixel with

   * top-left coordinates (floor(x), floor(y))

   */

  int x = _cairo_fixed_integer_floor (x0 + (xu[0] >> 15) + ((xu[0] >> 14) & 1));

  int y = _cairo_fixed_integer_floor (y0 + (yu[0] >> 15) + ((yu[0] >> 14) & 1));

  draw_pixel (data, width, height, stride, x, y, r, g, b, a);

  fd_fixed_fwd (xu);

  fd_fixed_fwd (yu);

  r += dr;

  g += dg;

  b += db;

  a += da;

    }

}

/*

 * Clip, split and rasterize a Bezier curve.

 *

 * Input: data is the base pointer of the image

 *        width, height are the dimensions of the image

 *        stride is the stride in bytes between adjacent rows

 *        p[i] is the i-th node of the Bezier curve

 *        c0[i] is the i-th color component at the start point

 *        c3[i] is the i-th color component at the end point

 *

 * Output: data will be changed to have the requested curve drawn in

 *         the specified colors

 *

 * The input color components are not premultiplied, but the data

 * stored in the image is assumed to be in CAIRO_FORMAT_ARGB32 (8 bpc,

 * premultiplied).

 *

 * The color components are red, green, blue and alpha, in this order.

 *

 * The function guarantees that it will draw the curve with a step

 * small enough to never have a distance above 1/sqrt(2) between two

 * consecutive points (which is needed to ensure that no hole can

 * appear when using this function to rasterize a patch).

 */

static void

draw_bezier_curve (unsigned char *data, int width, int height, int stride,

       cairo_point_double_t p[4], double c0[4], double c3[4])

{

    double top, bottom, left, right, steps_sq;

    int i, v;

    top = bottom = p[0].y;

    for (i = 1; i < 4; ++i) {

  top    = MIN (top,    p[i].y);

  bottom = MAX (bottom, p[i].y);

    }

    /* Check visibility */

    v = intersect_interval (top, bottom, 0, height);

    if (v == OUTSIDE)

  return;

    left = right = p[0].x;

    for (i = 1; i < 4; ++i) {

  left  = MIN (left,  p[i].x);

  right = MAX (right, p[i].x);

    }

    v &= intersect_interval (left, right, 0, width);

    if (v == OUTSIDE)

  return;

    steps_sq = bezier_steps_sq (p);

    if (steps_sq >= (v == INSIDE ? STEPS_MAX_U * STEPS_MAX_U : STEPS_CLIP_U * STEPS_CLIP_U)) {

  /*

   * The number of steps is greater than the threshold. This

   * means that either the error would become too big if we

   * directly rasterized it or that we can probably save some

   * time by splitting the curve and clipping part of it

   */

  cairo_point_double_t first[4], second[4];

  double midc[4];

  split_bezier (p, first, second);

  midc[0] = (c0[0] + c3[0]) * 0.5;

  midc[1] = (c0[1] + c3[1]) * 0.5;

  midc[2] = (c0[2] + c3[2]) * 0.5;

  midc[3] = (c0[3] + c3[3]) * 0.5;

  draw_bezier_curve (data, width, height, stride, first, c0, midc);

  draw_bezier_curve (data, width, height, stride, second, midc, c3);

    } else {

  double xu[4], yu[4];

  int ushift = sqsteps2shift (steps_sq), k;

  fd_init (p[0].x, p[1].x, p[2].x, p[3].x, xu);

  fd_init (p[0].y, p[1].y, p[2].y, p[3].y, yu);

  for (k = 0; k < ushift; ++k) {

      fd_down (xu);

      fd_down (yu);

  }

  rasterize_bezier_curve (data, width, height, stride, ushift,

        xu, yu,

        _cairo_color_double_to_short (c0[0]),

        _cairo_color_double_to_short (c0[1]),

        _cairo_color_double_to_short (c0[2]),

        _cairo_color_double_to_short (c0[3]),

        _cairo_color_double_to_short (c3[0]),

        _cairo_color_double_to_short (c3[1]),

        _cairo_color_double_to_short (c3[2]),

        _cairo_color_double_to_short (c3[3]));

  /* Draw the end point, to make sure that we didn't leave it

   * out because of rounding */

  draw_pixel (data, width, height, stride,

        _cairo_fixed_integer_floor (_cairo_fixed_from_double (p[3].x)),

        _cairo_fixed_integer_floor (_cairo_fixed_from_double (p[3].y)),

        _cairo_color_double_to_short (c3[0]),

        _cairo_color_double_to_short (c3[1]),

        _cairo_color_double_to_short (c3[2]),

        _cairo_color_double_to_short (c3[3]));

    }

}

/*

 * Forward-rasterize a cubic Bezier patch using forward differences.

 *

 * Input: data is the base pointer of the image

 *        width, height are the dimensions of the image

 *        stride is the stride in bytes between adjacent rows

 *        vshift is log2(n) if n is the number of desired steps

 *        p[i][j], p[i][j] are the the nodes of the Bezier patch

 *        col[i][j] is the j-th color component of the i-th corner

 *

 * Output: data will be changed to have the requested patch drawn in

 *         the specified colors

 *

 * The nodes of the patch are as follows:

 *

 * u\v 0    - >    1

 * 0  p00 p01 p02 p03

 * |  p10 p11 p12 p13

 * v  p20 p21 p22 p23

 * 1  p30 p31 p32 p33

 *

 * i.e. u varies along the first component (rows), v varies along the

 * second one (columns).

 *

 * The color components are red, green, blue and alpha, in this order.

 * c[0..3] are the colors in p00, p30, p03, p33 respectively

 *

 * The input color components are not premultiplied, but the data

 * stored in the image is assumed to be in CAIRO_FORMAT_ARGB32 (8 bpc,

 * premultiplied).

 *

 * If the patch folds over itself, the part with the highest v

 * parameter is considered above. If both have the same v, the one

 * with the highest u parameter is above.

 *

 * The function draws n+1 curves, that is from the curve at step 0 to

 * the curve at step n, both included. This is the discrete equivalent

 * to drawing the patch for values of the interpolation parameter in

 * [0,1] (including both extremes).

 */

static inline void

rasterize_bezier_patch (unsigned char *data, int width, int height, int stride, int vshift,

      cairo_point_double_t p[4][4], double col[4][4])

{

    double pv[4][2][4], cstart[4], cend[4], dcstart[4], dcend[4];

    int v, i, k;

    v = 1 << vshift;

    /*

     * pv[i][0] is the function (represented using forward

     * differences) mapping v to the x coordinate of the i-th node of

     * the Bezier curve with parameter u.

     * (Likewise p[i][0] gives the y coordinate).

     *

     * This means that (pv[0][0][0],pv[0][1][0]),

     * (pv[1][0][0],pv[1][1][0]), (pv[2][0][0],pv[2][1][0]) and

     * (pv[3][0][0],pv[3][1][0]) are the nodes of the Bezier curve for

     * the "current" v value (see the FD comments for more details).

     */

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

  fd_init (p[i][0].x, p[i][1].x, p[i][2].x, p[i][3].x, pv[i][0]);

  fd_init (p[i][0].y, p[i][1].y, p[i][2].y, p[i][3].y, pv[i][1]);

  for (k = 0; k < vshift; ++k) {

      fd_down (pv[i][0]);

      fd_down (pv[i][1]);

  }

    }

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

  cstart[i]  = col[0][i];

  cend[i]    = col[1][i];

  dcstart[i] = (col[2][i] - col[0][i]) / v;

  dcend[i]   = (col[3][i] - col[1][i]) / v;

    }

    v++;

    while (v--) {

  cairo_point_double_t nodes[4];

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

      nodes[i].x = pv[i][0][0];

      nodes[i].y = pv[i][1][0];

  }

  draw_bezier_curve (data, width, height, stride, nodes, cstart, cend);

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

      fd_fwd (pv[i][0]);

      fd_fwd (pv[i][1]);

      cstart[i] += dcstart[i];

      cend[i] += dcend[i];

  }

    }

}

/*

 * Clip, split and rasterize a Bezier cubic patch.

 *

 * Input: data is the base pointer of the image

 *        width, height are the dimensions of the image

 *        stride is the stride in bytes between adjacent rows

 *        p[i][j], p[i][j] are the nodes of the patch

 *        col[i][j] is the j-th color component of the i-th corner

 *

 * Output: data will be changed to have the requested patch drawn in

 *         the specified colors

 *

 * The nodes of the patch are as follows:

 *

 * u\v 0    - >    1

 * 0  p00 p01 p02 p03

 * |  p10 p11 p12 p13

 * v  p20 p21 p22 p23

 * 1  p30 p31 p32 p33

 *

 * i.e. u varies along the first component (rows), v varies along the

 * second one (columns).

 *

 * The color components are red, green, blue and alpha, in this order.

 * c[0..3] are the colors in p00, p30, p03, p33 respectively

 *

 * The input color components are not premultiplied, but the data

 * stored in the image is assumed to be in CAIRO_FORMAT_ARGB32 (8 bpc,

 * premultiplied).

 *

 * If the patch folds over itself, the part with the highest v

 * parameter is considered above. If both have the same v, the one

 * with the highest u parameter is above.

 *

 * The function guarantees that it will draw the patch with a step

 * small enough to never have a distance above 1/sqrt(2) between two

 * adjacent points (which guarantees that no hole can appear).

 *

 * This function can be used to rasterize a tile of PDF type 7

 * shadings (see http://www.adobe.com/devnet/pdf/pdf_reference.html).

 */

static void

draw_bezier_patch (unsigned char *data, int width, int height, int stride,

         cairo_point_double_t p[4][4], double c[4][4])

{

    double top, bottom, left, right, steps_sq;

    int i, j, v;

    top = bottom = p[0][0].y;

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

  for (j= 0; j < 4; ++j) {

      top    = MIN (top,    p[i][j].y);

      bottom = MAX (bottom, p[i][j].y);

  }

    }

    v = intersect_interval (top, bottom, 0, height);

    if (v == OUTSIDE)

  return;

    left = right = p[0][0].x;

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

  for (j= 0; j < 4; ++j) {

      left  = MIN (left,  p[i][j].x);

      right = MAX (right, p[i][j].x);

  }

    }

    v &= intersect_interval (left, right, 0, width);

    if (v == OUTSIDE)

  return;

    steps_sq = 0;

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

  steps_sq = MAX (steps_sq, bezier_steps_sq (p[i]));

    if (steps_sq >= (v == INSIDE ? STEPS_MAX_V * STEPS_MAX_V : STEPS_CLIP_V * STEPS_CLIP_V)) {

  /* The number of steps is greater than the threshold. This

   * means that either the error would become too big if we

   * directly rasterized it or that we can probably save some

   * time by splitting the curve and clipping part of it. The

   * patch is only split in the v direction to guarantee that

   * rasterizing each part will overwrite parts with low v with

   * overlapping parts with higher v. */

  cairo_point_double_t first[4][4], second[4][4];

  double subc[4][4];

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

      split_bezier (p[i], first[i], second[i]);

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

      subc[0][i] = c[0][i];

      subc[1][i] = c[1][i];

      subc[2][i] = 0.5 * (c[0][i] + c[2][i]);

      subc[3][i] = 0.5 * (c[1][i] + c[3][i]);

  }

  draw_bezier_patch (data, width, height, stride, first, subc);

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

      subc[0][i] = subc[2][i];

      subc[1][i] = subc[3][i];

      subc[2][i] = c[2][i];

      subc[3][i] = c[3][i];

  }

  draw_bezier_patch (data, width, height, stride, second, subc);

    } else {

  rasterize_bezier_patch (data, width, height, stride, sqsteps2shift (steps_sq), p, c);

    }

}

/*

 * Draw a tensor product shading pattern.

 *

 * Input: mesh is the mesh pattern

 *        data is the base pointer of the image

 *        width, height are the dimensions of the image

 *        stride is the stride in bytes between adjacent rows

 *

 * Output: data will be changed to have the pattern drawn on it

 *

 * data is assumed to be clear and its content is assumed to be in

 * CAIRO_FORMAT_ARGB32 (8 bpc, premultiplied).

 *

 * This function can be used to rasterize a PDF type 7 shading (see

 * http://www.adobe.com/devnet/pdf/pdf_reference.html).

 */

void

_cairo_mesh_pattern_rasterize (const cairo_mesh_pattern_t *mesh,

             void                       *data,

             int                         width,

             int                         height,

             int                         stride,

             double                      x_offset,

             double                      y_offset)

{

    cairo_point_double_t nodes[4][4];

    double colors[4][4];

    cairo_matrix_t p2u;

    unsigned int i, j, k, n;

    cairo_status_t status;

    const cairo_mesh_patch_t *patch;

    const cairo_color_t *c;

    assert (mesh->base.status == CAIRO_STATUS_SUCCESS);

    assert (mesh->current_patch == NULL);

    p2u = mesh->base.matrix;

    status = cairo_matrix_invert (&p2u);

    assert (status == CAIRO_STATUS_SUCCESS);

    n = _cairo_array_num_elements (&mesh->patches);

    patch = _cairo_array_index_const (&mesh->patches, 0);

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

  for (j = 0; j < 4; j++) {

      for (k = 0; k < 4; k++) {

    nodes[j][k] = patch->points[j][k];

    cairo_matrix_transform_point (&p2u, &nodes[j][k].x, &nodes[j][k].y);

    nodes[j][k].x += x_offset;

    nodes[j][k].y += y_offset;

      }

  }

  c = &patch->colors[0];

  colors[0][0] = c->red;

  colors[0][1] = c->green;

  colors[0][2] = c->blue;

  colors[0][3] = c->alpha;

  c = &patch->colors[3];

  colors[1][0] = c->red;

  colors[1][1] = c->green;

  colors[1][2] = c->blue;

  colors[1][3] = c->alpha;

  c = &patch->colors[1];

  colors[2][0] = c->red;

  colors[2][1] = c->green;

  colors[2][2] = c->blue;

  colors[2][3] = c->alpha;

  c = &patch->colors[2];

  colors[3][0] = c->red;

  colors[3][1] = c->green;

  colors[3][2] = c->blue;

  colors[3][3] = c->alpha;

  draw_bezier_patch (data, width, height, stride, nodes, colors);

  patch++;

    }

}