/* Copyright (C) 1989, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  
  This file is part of Aladdin Ghostscript.
  
  Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  or distributor accepts any responsibility for the consequences of using it,
  or for whether it serves any particular purpose or works at all, unless he
  or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  License (the "License") for full details.
  
  Every copy of Aladdin Ghostscript must include a copy of the License,
  normally in a plain ASCII text file named PUBLIC.  The License grants you
  the right to copy, modify and redistribute Aladdin Ghostscript, but only
  under certain conditions described in the License.  Among other things, the
  License requires that the copyright notice and this notice be preserved on
  all copies.
*/

/* gxfill.c */
/* Lower-level path filling procedures */
#include "math_.h"		/* for floor in fixed_mult_quo */
#include "gx.h"
#include "gserrors.h"
#include "gsstruct.h"
#include "gxfixed.h"
#include "gxdevice.h"
#include "gzpath.h"
#include "gzcpath.h"
#include "gxdcolor.h"
#include "gxhttile.h"
#include "gxistate.h"
#include "gxpaint.h"		/* for prototypes */

/* Define which fill algorithm(s) to use. */
#define FILL_SCAN_LINES
#define FILL_CURVES
#define FILL_TRAPEZOIDS

/* Define the structure for keeping track of active lines. */
typedef struct active_line_s active_line;
struct active_line_s {
	gs_fixed_point start;		/* x,y where line starts */
	gs_fixed_point end;		/* x,y where line ends */
	gs_fixed_point diff;		/* end - start */
#define al_dx(alp) ((alp)->diff.x)
#define al_dy(alp) ((alp)->diff.y)
	fixed y_fast_max;		/* can do x_at_y in fixed point */
					/* if y <= y_fast_max */
#define set_al_points(alp, startp, endp)\
  (alp)->diff.x = (endp).x - (startp).x,\
  (alp)->y_fast_max = max_fixed /\
    (((alp)->diff.x >= 0 ? (alp)->diff.x : -(alp)->diff.x) | 1) + (startp).y,\
  (alp)->diff.y = (endp).y - (startp).y,\
  (alp)->start = startp, (alp)->end = endp
#define al_x_at_y(alp, yv)\
  ((yv) == (alp)->end.y ? (alp)->end.x :\
   ((yv) <= (alp)->y_fast_max ?\
    ((yv) - (alp)->start.y) * al_dx(alp) / al_dy(alp) :\
    (n_add1_expr(n_slow_x),\
     fixed_mult_quo(al_dx(alp), (yv) - (alp)->start.y, al_dy(alp)))) +\
   (alp)->start.x)
	fixed x_current;		/* current x position */
	fixed x_next;			/* x position at end of band */
	const segment *pseg;		/* endpoint of this line */
	int direction;			/* direction of line segment */
#define dir_up 1
#define dir_horizontal 0		/* (these are handled specially) */
#define dir_down (-1)
	int curve_k;			/* # of subdivisions for curves, */
					/* -1 for lines */
	curve_cursor cursor;		/* cursor for curves, */
					/* unused for lines */
/* "Pending" lines (not reached in the Y ordering yet) use next and prev */
/* to order lines by increasing starting Y.  "Active" lines (being scanned) */
/* use next and prev to order lines by increasing current X, or if the */
/* current Xs are equal, by increasing final X. */
	active_line *prev, *next;
/* Link together active_lines allocated individually */
	active_line *alloc_next;
};
/*
 * The active_line structure isn't really simple, but since its instances
 * only exist temporarily during a fill operation, we don't have to
 * worry about a garbage collection occurring.
 */
gs_private_st_simple(st_active_line, active_line, "active_line");

/* Define the ordering criterion for active lines. */
/* The xc argument is a copy of lp2->x_current. */
#define x_precedes(lp1, lp2, xc)\
  (lp1->x_current < xc || (lp1->x_current == xc &&\
   (lp1->start.x > lp2->start.x || lp1->end.x < lp2->end.x)))

#ifdef DEBUG
/* Internal procedures for printing and checking active lines. */
private void
print_active_line(const char *label, const active_line *alp)
{	dprintf5("[f]%s 0x%lx(%d): x_current=%f x_next=%f\n",
	         label, (ulong)alp, alp->direction,
	         fixed2float(alp->x_current), fixed2float(alp->x_next));
	dprintf5("    start=(%f,%f) pt_end=0x%lx(%f,%f)\n",
	         fixed2float(alp->start.x), fixed2float(alp->start.y),
	         (ulong)alp->pseg,
	         fixed2float(alp->end.x), fixed2float(alp->end.y));
	dprintf2("    prev=0x%lx next=0x%lx\n",
		 (ulong)alp->prev, (ulong)alp->next);
}
private void
print_line_list(const active_line *flp)
{	const active_line *lp;
	for ( lp = flp; lp != 0; lp = lp->next )
	   {	fixed xc = lp->x_current, xn = lp->x_next;
		dprintf3("[f]0x%lx(%d): x_current/next=%g",
		         (ulong)lp, lp->direction,
		         fixed2float(xc));
		if ( xn != xc ) dprintf1("/%g", fixed2float(xn));
		dputc('\n');
	   }
}
#define print_al(label,alp)\
  if ( gs_debug_c('F') ) print_active_line(label, alp)
private int
check_line_list(const active_line *flp)
{	const active_line *alp;

	if ( flp != 0 )
	  for ( alp = flp->prev->next; alp != 0; alp = alp->next )
	    if ( alp->next != 0 && alp->next->x_current < alp->x_current )
	      {	lprintf("[f]Lines out of order!\n");
		print_active_line("   1:", alp);
		print_active_line("   2:", alp->next);
		return_error(gs_error_Fatal);
	      }
	return 0;
}
#else
#define print_al(label,alp) DO_NOTHING
#endif

/* Line list structure */
struct line_list_s {
	gs_memory_t *memory;
	active_line *active_area;	/* allocated active_line list */
	active_line *next_active;	/* next allocation slot */
	active_line *limit;		/* limit of local allocation */
	int close_count;		/* # of added closing lines */
	active_line *y_list;		/* Y-sorted list of pending lines */
	active_line *y_line;		/* most recently inserted line */
	active_line x_head;		/* X-sorted list of active lines */
#define x_list x_head.next
		/* Put the arrays last so the scalars will have */
		/* small displacements. */
		/* Allocate a few active_lines locally */
		/* to avoid round trips through the allocator. */
#if arch_small_memory
#  define max_local_active 5		/* don't overburden the stack */
#else
#  define max_local_active 20
#endif
	active_line local_active[max_local_active];
};
typedef struct line_list_s line_list;
typedef line_list _ss *ll_ptr;

/* Forward declarations */
private void init_line_list(P2(ll_ptr, gs_memory_t *));
private void unclose_path(P2(gx_path *, int));
private void free_line_list(P1(ll_ptr));
private int add_y_list(P5(gx_path *, ll_ptr, fixed, fixed,
  const gs_fixed_rect *));
private int add_y_line(P4(const segment *, const segment *, int, ll_ptr));
private void near insert_x_new(P2(active_line *, ll_ptr));
private bool near end_x_line(P1(active_line *));
private int fill_loop_by_scan_lines(P11(ll_ptr, gx_device *,
  const gx_fill_params *, const gx_device_color *, gs_logical_operation_t,
  const gs_fixed_rect *, fixed, fixed, fixed, fixed, fixed));
private int fill_loop_by_trapezoids(P11(ll_ptr, gx_device *,
  const gx_fill_params *, const gx_device_color *, gs_logical_operation_t,
  const gs_fixed_rect *, fixed, fixed, fixed, fixed, fixed));

/* Statistics */
#ifdef DEBUG
#  define n_add1(x) (x++)
#  define n_add1_expr(x) n_add1(x)
#  define n_add(x,n) (x += (n))
private long n_fill;
private long n_fill_alloc;
private long n_y_up;
private long n_y_down;
private long n_horiz;
private long n_x_step;
private long n_slow_x;
private long n_iter;
private long n_find_y;
private long n_band;
private long n_band_step;
private long n_band_fill;
private long n_afill;
private long n_slant;
private long n_slant_shallow;
private long n_sfill;
#else
#  define n_add1(x) DO_NOTHING
#  define n_add1_expr(x) discard(0)
#  define n_add(x,n) DO_NOTHING
#endif

/*
 * This is the general path filling algorithm.
 * It uses the center-of-pixel rule for filling.
 * We can implement Microsoft's upper-left-corner-of-pixel rule
 * by subtracting (0.5, 0.5) from all the coordinates in the path.
 *
 * The adjust parameters are a hack for keeping regions
 * from coming out too faint: they specify an amount by which to expand
 * the sides of every filled region.
 * Setting adjust = fixed_half is supposed to produce the effect of Adobe's
 * any-part-of-pixel rule, but it doesn't quite, because of the
 * closed/open interval rule for regions.  We detect this as a special case
 * and do the slightly ugly things necessary to make it work.
 */

/*
 * Tweak the fill adjustment if necessary so that (nearly) empty
 * rectangles are guaranteed to produce some output.  This is a hack
 * to work around a bug in the Microsoft Windows PostScript driver,
 * which draws thin lines by filling zero-width rectangles, and in
 * some other drivers that try to fill epsilon-width rectangles.
 */
void
gx_adjust_if_empty(const gs_fixed_rect *pbox, gs_fixed_point *adjust)
{	const fixed
	  dx = pbox->q.x - pbox->p.x,
	  dy = pbox->q.y - pbox->p.y;
	if ( dx < fixed_half && dy >= int2fixed(2) )
	  {	adjust->x = arith_rshift_1(fixed_1 + fixed_epsilon - dx);
		if_debug1('f', "[f]thin adjust_x=%g\n",
			  fixed2float(adjust->x));
	  }
	else
	if ( dy < fixed_half && dx >= int2fixed(2) )
	  {	adjust->y = arith_rshift_1(fixed_1 + fixed_epsilon - dy);
		if_debug1('f', "[f]thin adjust_y=%g\n",
			  fixed2float(adjust->y));
	  }
}

/*
 * Fill a path.  This is the default implementation of the driver
 * fill_path procedure.
 */
int
gx_default_fill_path(gx_device *pdev, const gs_imager_state *pis,
  gx_path *ppath, const gx_fill_params *params,
  const gx_device_color *pdevc, const gx_clip_path *pcpath)
{	gs_fixed_point adjust;
#define adjust_x adjust.x
#define adjust_y adjust.y
	gs_logical_operation_t lop = pis->log_op;
	gs_fixed_rect ibox, cbox;
	gx_device_clip cdev;
	gx_device *dev = pdev;
	gx_device *save_dev = dev;
	gx_path ffpath;
	gx_path *pfpath;
	int code;
	fixed adjust_left, adjust_right, adjust_below, adjust_above;
	int max_fill_band = dev->max_fill_band;
#define no_band_mask ((fixed)(-1) << (sizeof(fixed) * 8 - 1))
	bool fill_by_trapezoids;
	line_list lst;

	adjust = params->adjust;
	/*
	 * Compute the bounding box before we flatten the path.
	 * This can save a lot of time if the path has curves.
	 * If the path is neither fully within nor fully outside
	 * the quick-check boxes, we could recompute the bounding box
	 * and make the checks again after flattening the path,
	 * but right now we don't bother.
	 */
	gx_path_bbox(ppath, &ibox);
	if ( params->fill_zero_width )
	  gx_adjust_if_empty(&ibox, &adjust);
	/* Check the bounding boxes. */
	if_debug6('f', "[f]adjust=%g,%g bbox=(%g,%g),(%g,%g)\n",
		  fixed2float(adjust_x), fixed2float(adjust_y),
		  fixed2float(ibox.p.x), fixed2float(ibox.p.y),
		  fixed2float(ibox.q.x), fixed2float(ibox.q.y));
	if ( pcpath != NULL &&
	     (gx_cpath_inner_box(pcpath, &cbox), !rect_within(ibox, cbox))
	   )
	   {	/* Intersect the path box and the clip bounding box. */
		/* If the intersection is empty, this fill is a no-op. */
		gs_fixed_rect bbox;

		gx_cpath_outer_box(pcpath, &bbox);
		if_debug4('f', "   outer_box=(%g,%g),(%g,%g)\n",
			  fixed2float(bbox.p.x), fixed2float(bbox.p.y),
			  fixed2float(bbox.q.x), fixed2float(bbox.q.y));
		rect_intersect(ibox, bbox);
		if ( ibox.p.x - adjust_x >= ibox.q.x + adjust_x ||
		     ibox.p.y - adjust_y >= ibox.q.y + adjust_y
		   )
		{	/* Intersection of boxes is empty! */
			return 0;
		}
#undef adjust_x
#undef adjust_y
		/*
		 * The path is neither entirely inside the inner clip box
		 * nor entirely outside the outer clip box.
		 * If we had to flatten the path, this is where we would
		 * recompute its bbox and make the tests again,
		 * but we don't bother right now.
		 *
		 * Set up a clipping device.
		 */
		dev = (gx_device *)&cdev;
		gx_make_clip_device(&cdev, &cdev, &pcpath->list);
		cdev.target = save_dev;
		cdev.max_fill_band = save_dev->max_fill_band;
		(*dev_proc(dev, open_device))(dev);
	   }
	/*
	 * Compute the proper adjustment values.
	 * To get the effect of the any-part-of-pixel rule,
	 * we may have to tweak them slightly.
	 */
	if ( adjust.x == fixed_half )
	  adjust_left = fixed_half - fixed_epsilon,
	  adjust_right = fixed_half + fixed_epsilon;
	else
	  adjust_left = adjust_right = adjust.x;
	if ( adjust.y == fixed_half )
	  adjust_below = fixed_half - fixed_epsilon,
	  adjust_above = fixed_half + fixed_epsilon;
	else
	  adjust_below = adjust_above = adjust.y;
	/* Initialize the active line list. */
	init_line_list(&lst, ppath->memory);
	/*
	 * We have a choice of two different filling algorithms:
	 * scan-line-based and trapezoid-based.  They compare as follows:
	 *
	 *	Scan	Trap
	 *	----	----
	 *	 no	+yes	perfectly accurate Y adjustment
	 *	 skip	+draw	0-height horizontal lines
	 *	 slow	+fast	rectangles
	 *	+fast	 slow	curves
	 *	+yes	 no	write pixels at most once
	 *
	 * Normally we use the scan line algorithm for characters, where
	 * curve speed is important and no Y adjustment is involved, and for
	 * non-idempotent RasterOps, where double pixel writing must be
	 * avoided, and the trapezoid algorithm otherwise.
	 */
#define double_write_ok lop_is_idempotent(lop)
#ifdef FILL_SCAN_LINES
#  ifdef FILL_TRAPEZOIDS
	fill_by_trapezoids =
	  ((adjust_below | adjust_above) != 0 || ppath->curve_count == 0) &&
	    double_write_ok;
#  else
	fill_by_trapezoids = false;
#  endif
#else
	fill_by_trapezoids = double_write_ok;
#endif
#undef double_write_ok
	/*
	 * Pre-process curves.  When filling by trapezoids, we need to
	 * flatten the path completely; when filling by scan lines, we only
	 * need to monotonize it, unless FILL_CURVES is undefined.
	 */
	if ( !ppath->curve_count )	/* don't need to flatten */
	  pfpath = ppath;
	else
#ifdef FILL_CURVES
	if ( fill_by_trapezoids )
	  {	code = gx_path_flatten(ppath, &ffpath, params->flatness);
		if ( code < 0 )
		  return code;
		pfpath = &ffpath;
	  }
	else if ( gx_path_is_monotonic(ppath) )
	  pfpath = ppath;
	else
	  {	code = gx_path_monotonize(ppath, &ffpath);
		if ( code < 0 )
		  return code;
		pfpath = &ffpath;
	  }
#else
	  {	code = gx_path_flatten(ppath, &ffpath, params->flatness);
		if ( code < 0 )
		  return code;
		pfpath = &ffpath;
	  }
#endif
	if ( (code = add_y_list(pfpath, &lst, adjust_below, adjust_above, &ibox)) < 0 )
	  goto nope;
	code =
	  (fill_by_trapezoids ? fill_loop_by_trapezoids :
	   fill_loop_by_scan_lines)
	    (&lst, dev, params, pdevc, lop, &ibox,
	     adjust_left, adjust_right, adjust_below, adjust_above,
	     (max_fill_band == 0 ? no_band_mask : int2fixed(-max_fill_band)));
nope:	if ( lst.close_count != 0 )
	  unclose_path(pfpath, lst.close_count);
	free_line_list(&lst);
	if ( pfpath != ppath )	/* had to flatten */
	  gx_path_release(pfpath);
#ifdef DEBUG
	if ( gs_debug_c('f') )
	   {	dputs("[f]  # alloc    up  down  horiz step slowx  iter  find  band bstep bfill\n");
		dprintf5(" %5ld %5ld %5ld %5ld %5ld",
			 n_fill, n_fill_alloc, n_y_up, n_y_down, n_horiz);
		dprintf4(" %5ld %5ld %5ld %5ld",
			 n_x_step, n_slow_x, n_iter, n_find_y);
		dprintf3(" %5ld %5ld %5ld\n",
			 n_band, n_band_step, n_band_fill);
		dputs("[f]    afill slant shall sfill\n");
		dprintf4("       %5ld %5ld %5ld %5ld\n",
			 n_afill, n_slant, n_slant_shallow, n_sfill);
	   }
#endif
	return code;
}

/* Initialize the line list for a path. */
private void
init_line_list(ll_ptr ll, gs_memory_t *mem)
{	ll->memory = mem;
	ll->active_area = 0;
	ll->next_active = ll->local_active;
	ll->limit = ll->next_active + max_local_active;
	ll->close_count = 0;
	ll->y_list = 0;
	ll->y_line = 0;
	n_add1(n_fill);
}

/* Unlink any line_close segments added temporarily. */
private void
unclose_path(gx_path *ppath, int count)
{	subpath *psub;
	for ( psub = ppath->first_subpath; count != 0;
	      psub = (subpath *)psub->last->next
	    )
	  if ( psub->last == (segment *)&psub->closer )
	  {	segment *prev = psub->closer.prev, *next = psub->closer.next;
		prev->next = next;
		if ( next ) next->prev = prev;
		psub->last = prev;
		count--;
	  }
}

/* Free the line list. */
private void
free_line_list(ll_ptr ll)
{	gs_memory_t *mem = ll->memory;
	active_line *alp;

	/* Free any individually allocated active_lines. */
	while ( (alp = ll->active_area) != 0 )
	  {	active_line *next = alp->alloc_next;
		gs_free_object(mem, alp, "active line");
		ll->active_area = next;
	  }
}

/*
 * Construct a Y-sorted list of segments for rasterizing a path.  We assume
 * the path is non-empty.  Only include non-horizontal lines or (monotonic)
 * curve segments where one endpoint is locally Y-minimal, and horizontal
 * lines that might color some additional pixels.
 */
private int
add_y_list(gx_path *ppath, ll_ptr ll, fixed adjust_below, fixed adjust_above,
  const gs_fixed_rect *pbox)
{	register segment *pseg = (segment *)ppath->first_subpath;
	int close_count = 0;
	/* fixed xmin = pbox->p.x; */	/* not currently used */
	fixed ymin = pbox->p.y;
	/* fixed xmax = pbox->q.x; */	/* not currently used */
	fixed ymax = pbox->q.y;
	int code;

	while ( pseg )
	   {	/* We know that pseg points to a subpath head (s_start). */
		subpath *psub = (subpath *)pseg;
		segment *plast = psub->last;
		int dir = 2;		/* hack to skip first segment */
		int first_dir, prev_dir;
		segment *prev;

		if ( plast->type != s_line_close )
		   {	/* Create a fake s_line_close */
			line_close_segment *lp = &psub->closer;
			segment *next = plast->next;
			lp->next = next;
			lp->prev = plast;
			plast->next = (segment *)lp;
			if ( next ) next->prev = (segment *)lp;
			lp->type = s_line_close;
			lp->pt = psub->pt;
			lp->sub = psub;
			psub->last = plast = (segment *)lp;
			ll->close_count++;
		   }
		while ( (prev_dir = dir, prev = pseg,
			 (pseg = pseg->next) != 0 && pseg->type != s_start)
		      )
		  {	/*
			 * This element is either a line or a monotonic
			 * curve segment.
			 */
			fixed iy = pseg->pt.y;
			fixed py = prev->pt.y;
			/*
			 * Segments falling entirely outside the ibox in Y
			 * are treated as though they were horizontal, *
			 * i.e., they are never put on the list.
			 */
#define compute_dir(xo, xe, yo, ye)\
  (ye > yo ? (ye <= ymin || yo >= ymax ? 0 : dir_up) :\
   ye < yo ? (yo <= ymin || ye >= ymax ? 0 : dir_down) :\
   2)
#define add_dir_lines(prev2, prev, this, pdir, dir)\
  if ( pdir )\
   { if ( (code = add_y_line(prev2, prev, pdir, ll)) < 0 ) return code; }\
  if ( dir )\
   { if ( (code = add_y_line(prev, this, dir, ll)) < 0 ) return code; }
			dir = compute_dir(prev->pt.x, pseg->pt.x, py, iy);
			if ( dir == 2 )
			  {	/* Put horizontal lines on the list */
				/* if they would color any pixels. */
				if ( fixed2int_pixround(iy - adjust_below) <
				     fixed2int_pixround(iy + adjust_above)
				   )
				  {	n_add1(n_horiz);
					if ( (code = add_y_line(prev, pseg,
						dir_horizontal, ll)) < 0
					   )
					  return code;
				  }
				dir = 0;
			  }
			if ( dir > prev_dir )
			  { add_dir_lines(prev->prev, prev, pseg, prev_dir, dir);
			  }
			else if ( prev_dir == 2 )	/* first segment */
			  first_dir = dir;
			if ( pseg == plast )
			   {	/*
				 * We skipped the first segment of the
				 * subpath, so the last segment must receive
				 * special consideration.  Note that we have
				 * `closed' all subpaths.
				 */
				if ( first_dir > dir )
				  { add_dir_lines(prev, pseg, psub->next,
						  dir, first_dir);
				  }
			   }
		   }
#undef compute_dir
#undef add_dir_lines
	   }
	return close_count;
}
/*
 * Internal routine to test a segment and add it to the pending list if
 * appropriate.
 */
private int
add_y_line(const segment *prev_lp, const segment *lp, int dir, ll_ptr ll)
{	gs_fixed_point this, prev;
	register active_line *alp = ll->next_active;
	fixed y_start;
	if ( alp == ll->limit )
	   {	/* Allocate separately */
		alp = gs_alloc_struct(ll->memory, active_line,
				      &st_active_line, "active line");
		if ( alp == 0 ) return_error(gs_error_VMerror);
		alp->alloc_next = ll->active_area;
		ll->active_area = alp;
		n_add1(n_fill_alloc);
	   }
	else
		ll->next_active++;
	this.x = lp->pt.x;
	this.y = lp->pt.y;
	prev.x = prev_lp->pt.x;
	prev.y = prev_lp->pt.y;
	switch ( (alp->direction = dir) )
	  {
	  case dir_up:
		y_start = prev.y;
		set_al_points(alp, prev, this);
		alp->pseg = lp;
		break;
	  case dir_down:
		y_start = this.y;
		set_al_points(alp, this, prev);
		alp->pseg = prev_lp;
		break;
	  case dir_horizontal:
		y_start = this.y;		/* = prev.y */
		alp->start = prev;
		alp->end = this;
		/* Don't need to set dx or y_fast_max */
		alp->pseg = prev_lp;		/* may not need this either */
		break;
	   }
	/* Insert the new line in the Y ordering */
	   {	register active_line *yp = ll->y_line;
		register active_line *nyp;
		if ( yp == 0 )
		   {	alp->next = alp->prev = 0;
			ll->y_list = alp;
		   }
		else if ( y_start >= yp->start.y )
		   {	/* Insert the new line after y_line */
			while ( n_add1_expr(n_y_up),
			        ((nyp = yp->next) != NULL &&
				 y_start > nyp->start.y)
			      )
			  yp = nyp;
			alp->next = nyp;
			alp->prev = yp;
			yp->next = alp;
			if ( nyp ) nyp->prev = alp;
		   }
		else
		   {	/* Insert the new line before y_line */
			while ( n_add1_expr(n_y_down),
			        ((nyp = yp->prev) != NULL &&
				 y_start < nyp->start.y)
			      )
			  yp = nyp;
			alp->prev = nyp;
			alp->next = yp;
			yp->prev = alp;
			if ( nyp ) nyp->next = alp;
			else ll->y_list = alp;
		   }
	   }
	ll->y_line = alp;
	print_al("add ", alp);
	return 0;
}

/* ---------------- Filling loop utilities ---------------- */

/* Insert a newly active line in the X ordering. */
private void near
insert_x_new(active_line *alp, ll_ptr ll)
{	register active_line *next;
	register active_line *prev = &ll->x_head;
	register fixed x = alp->start.x;
	alp->x_current = x;
	while ( n_add1_expr(n_x_step),
		(next = prev->next) != 0 && x_precedes(next, alp, x)
	       )
		prev = next;
	alp->next = next;
	alp->prev = prev;
	if ( next != 0 )
	  next->prev = alp;
	prev->next = alp;
}

/* Handle a line segment that just ended.  Return true iff this was */
/* the end of a line sequence. */
private bool near
end_x_line(active_line *alp)
{	const segment *pseg = alp->pseg;
	/*
	 * The computation of next relies on the fact that
	 * all subpaths have been closed.  When we cycle
	 * around to the other end of a subpath, we must be
	 * sure not to process the start/end point twice.
	 */
	const segment *next =
	  (alp->direction == dir_up ?
	   (/* Upward line, go forward along path. */
	    pseg->type == s_line_close ? /* end of subpath */
	     ((const line_close_segment *)pseg)->sub->next :
	     pseg->next) :
	   (/* Downward line, go backward along path. */
	    pseg->type == s_start ? /* start of subpath */
	     ((const subpath *)pseg)->last->prev :
	     pseg->prev)
	  );
	gs_fixed_point npt;

	npt.y = next->pt.y;
	if_debug5('F', "[F]ended 0x%lx: pseg=0x%lx y=%f next=0x%lx npt.y=%f\n",
		 (ulong)alp, (ulong)pseg, fixed2float(pseg->pt.y),
		 (ulong)next, fixed2float(npt.y));
	if ( npt.y <= pseg->pt.y )
	   {	/* End of a line sequence */
		active_line *nlp = alp->next;
		alp->prev->next = nlp;
		if ( nlp )
		  nlp->prev = alp->prev;
		if_debug1('F', "[F]drop 0x%lx\n", (ulong)alp);
		return true;
	   }
	alp->pseg = next;
	npt.x = next->pt.x;
	set_al_points(alp, alp->end, npt);
	print_al("repl", alp);
	return false;
}

#define loop_fill_rectangle(x, y, w, h)\
  gx_fill_rectangle_device_rop(x, y, w, h, pdevc, dev, lop)
#define loop_fill_rectangle_direct(x, y, w, h)\
  (fill_direct ?\
   (*fill_rect)(dev, x, y, w, h, cindex) :\
   gx_fill_rectangle_device_rop(x, y, w, h, pdevc, dev, lop))

/* ---------------- Scan line filling loop ---------------- */

/* Forward references */
private void set_scan_line_points(P2(active_line *, fixed));

/* Main filling loop. */
private int
fill_loop_by_scan_lines(ll_ptr ll, gx_device *dev,
  const gx_fill_params *params, const gx_device_color *pdevc,
  gs_logical_operation_t lop, const gs_fixed_rect *pbox,
  fixed adjust_left, fixed adjust_right,
  fixed adjust_below, fixed adjust_above, fixed band_mask)
{	int rule = params->rule;
	fixed fixed_flat = float2fixed(params->flatness);
	bool fill_direct = color_writes_pure(pdevc, lop);
	gx_color_index cindex;
	dev_proc_fill_rectangle((*fill_rect));
	active_line *yll = ll->y_list;
	fixed y_limit = pbox->q.y;
	fixed y;
	/*
	 * The meaning of adjust_below (B) and adjust_above (A) is that
	 * the pixels that would normally be painted at coordinate Y get
	 * "smeared" to coordinates Y-B through Y+A-epsilon, inclusive.
	 * This is equivalent to saying that the pixels actually painted
	 * at coordinate Y are those contributed by scan lines Y-A+epsilon
	 * through Y+B, inclusive, or up to Y+B+epsilon, half-open.
	 * (A = B = 0 is a special case, equivalent to B = 0, A = epsilon.)
	 */
	fixed look_below =
	  (adjust_above == fixed_0 ? fixed_0 : adjust_above - fixed_epsilon);
	fixed look_above =
	  adjust_below + fixed_epsilon;
	fixed look_height = look_above + look_below;
	bool do_adjust = look_height > fixed_epsilon;

	if ( yll == 0 )				/* empty list */
	  return 0;
	if ( fill_direct )
	  cindex = pdevc->colors.pure,
	  fill_rect = dev_proc(dev, fill_rectangle);
#define next_pixel_center(y)\
  (fixed_pixround(y) + fixed_half)
	y = next_pixel_center(yll->start.y) - look_below;	/* first Y sample point */
	ll->x_list = 0;
	ll->x_head.x_current = min_fixed;	/* stop backward scan */
	while ( 1 )
	   {	active_line *alp, *nlp;
		fixed x;
		fixed ya = y + look_height;

		n_add1(n_iter);
		/* Move newly active lines from y to x list. */
		while ( yll != 0 && yll->start.y < ya )
		   {	active_line *ynext = yll->next;	/* insert smashes next/prev links */
			if ( yll->direction == dir_horizontal )
			  {	/* Ignore for now. */
			  }
			else
			  { insert_x_new(yll, ll);
			    set_scan_line_points(yll, fixed_flat);
			  }
			yll = ynext;
		   }
		/* Check whether we've reached the maximum y. */
		if ( y >= y_limit )
		  break;
		if ( ll->x_list == 0 )
		   {	/* No active lines, skip to next start */
			if ( yll == 0 ) break;	/* no lines left */
			y = next_pixel_center(yll->start.y) - look_below;
			continue;
		   }

		/* Update active lines to y. */
		x = min_fixed;
		for ( alp = ll->x_list; alp != 0; alp = nlp )
		  {	fixed nx;

			nlp = alp->next;
e:			if ( alp->end.y <= y )
			  { if ( end_x_line(alp) )
			      continue;
			    set_scan_line_points(alp, fixed_flat);
			    goto e;
			  }
			/* Note that if Y adjustment is in effect, */
			/* alp->start.y might be greater than y. */
			nx = alp->x_current =
			  (alp->start.y >= y ? alp->start.x :
			   alp->curve_k < 0 ?
			   al_x_at_y(alp, y) :
			   gx_curve_x_at_y(&alp->cursor, y));
			if ( nx < x )
			  { /* Move this line backward in the list. */
			    active_line *ilp = alp;
			    while ( nx < (ilp = ilp->prev)->x_current )
			      ;
			    /* Now ilp->x_current <= nx < ilp->next->x_cur. */
			    alp->prev->next = alp->next;
			    if ( alp->next )
			      alp->next->prev = alp->prev;
			    if ( ilp->next )
			      ilp->next->prev = alp;
			    alp->next = ilp->next;
			    ilp->next = alp;
			    alp->prev = ilp;
			    continue;
			  }
			x = nx;
		  }

		/* Fill inside regions at y. */
		{	int inside = 0;
			int x1_prev = min_int;

			/* rule = -1 for winding number rule, i.e. */
			/* we are inside if the winding number is non-zero; */
			/* rule = 1 for even-odd rule, i.e. */
			/* we are inside if the winding number is odd. */
#define inside_path_p() ((inside & rule) != 0)
			n_add1(n_band);
			for ( alp = ll->x_list; alp != 0; alp = alp->next )
			  {	/* We're outside a filled region. */
				int x0 = fixed2int_pixround(alp->x_current -
							    adjust_left);

				/*
				 * This doesn't handle lines that cross
				 * within the adjustment region, but it's a
				 * good start.
 				 */
				if ( do_adjust && alp->end.x < alp->start.x )
				  { fixed xa = (alp->end.y < ya ? alp->end.x :
						alp->curve_k < 0 ?
						al_x_at_y(alp, ya) :
						gx_curve_x_at_y(&alp->cursor,
								ya));
				    int x0a = fixed2int_pixround(xa -
								 adjust_left);

				    if ( x0a < x0 )
				      x0 = x0a;
				  }
				for ( ; ; )
				  { /* We're inside a filled region. */
				    print_al("step", alp);
				    n_add1(n_band_step);
				    inside += alp->direction;
				    if ( !inside_path_p() )
				      break;
				    /*
				     * Since we're dealing with closed
				     * paths, the test for alp == 0
				     * shouldn't be needed, but we may have
				     * omitted lines that are to the right
				     * of the clipping region.  */
				    if ( (alp = alp->next) == 0 )
				      goto out;
				  }
#undef inside_path_p
				/*
				 * We just went from inside to outside, so
				 * fill the region.  Avoid writing pixels
				 * twice.
				 */

				if ( x0 < x1_prev )
				  x0 = x1_prev;
				{ int x1 = fixed2int_rounded(alp->x_current +
							     adjust_right);

				  if ( do_adjust && alp->end.x > alp->start.x )
				    { fixed xa = (alp->end.y < ya ?
						  alp->end.x :
						  alp->curve_k < 0 ?
						  al_x_at_y(alp, ya) :
						  gx_curve_x_at_y(&alp->cursor,
								  ya));
				      int x1a = fixed2int_rounded(xa +
								adjust_right);
				      if ( x1a > x1 )
					x1 = x1a;
				    }
				  if ( x1 > x0 )
				    { int code =
					loop_fill_rectangle_direct(x0,
							fixed2int_var(y),
							x1 - x0, 1);
				      if_debug3('F', "[F]drawing [%d:%d),%d\n",
						x0, x1, fixed2int_var(y));
				      if ( code < 0 )
					return code;
				      x1_prev = x1;
				    }
				}
			  }
out:			;
		  }
		y += fixed_1;
	   }
	return 0;
}

private void
set_scan_line_points(active_line *alp, fixed fixed_flat)
{	const segment *pseg = alp->pseg;
	const gs_fixed_point *pp0;

	if ( alp->direction < 0 )
	  { pseg =
	      (pseg->type == s_line_close ?
	       ((const line_close_segment *)pseg)->sub->next :
	       pseg->next);
	    if ( pseg->type != s_curve )
	      { alp->curve_k = -1;
		return;
	      }
	    pp0 = &alp->end;
	  }
	else
	  { if ( pseg->type != s_curve )
	      { alp->curve_k = -1;
		return;
	      }
	    pp0 = &alp->start;
	  }
#define pcseg ((const curve_segment *)pseg)
	alp->curve_k =
	  gx_curve_log2_samples(pp0->x, pp0->y, pcseg, fixed_flat);
	gx_curve_cursor_init(&alp->cursor, pp0->x, pp0->y, pcseg,
			     alp->curve_k);
#undef pcseg
}

/* ---------------- Trapezoid filling loop ---------------- */

/* Forward references */
private int near fill_slant_adjust(P11(fixed, fixed, fixed, fixed, fixed,
  fixed, fixed, fixed, const gx_device_color *, gx_device *,
  gs_logical_operation_t));
private void near resort_x_line(P1(active_line *));

/****** PATCH ******/
#define loop_fill_trapezoid_fixed(fx0, fw0, fy0, fx1, fw1, fh, swap_axes)\
  loop_fill_trap(dev, fx0, fw0, fy0, fx1, fw1, fh, swap_axes, pdevc, lop)
private int
loop_fill_trap(gx_device *dev, fixed fx0, fixed fw0, fixed fy0,
  fixed fx1, fixed fw1, fixed fh, bool swap_axes,
  const gx_device_color *pdevc, gs_logical_operation_t lop)
{	fixed fy1 = fy0 + fh;
	gs_fixed_edge left, right;

	left.start.y = right.start.y = fy0;
	left.end.y = right.end.y = fy1;
	right.start.x = (left.start.x = fx0) + fw0;
	right.end.x = (left.end.x = fx1) + fw1;
	return (*dev_proc(dev, fill_trapezoid))
	  (dev, &left, &right, fy0, fy1, swap_axes, pdevc, lop);
}
/****** END PATCH ******/

/* Main filling loop.  Takes lines off of y_list and adds them to */
/* x_list as needed.  band_mask limits the size of each band, */
/* by requiring that ((y1 - 1) & band_mask) == (y0 & band_mask). */
private int
fill_loop_by_trapezoids(ll_ptr ll, gx_device *dev,
  const gx_fill_params *params, const gx_device_color *pdevc,
  gs_logical_operation_t lop, const gs_fixed_rect *pbox,
  fixed adjust_left, fixed adjust_right,
  fixed adjust_below, fixed adjust_above, fixed band_mask)
{	int rule = params->rule;
	fixed y_limit = pbox->q.y;
	active_line *yll = ll->y_list;
	fixed y;
	int code;
	bool fill_direct = color_writes_pure(pdevc, lop);
	gx_color_index cindex;
	dev_proc_fill_rectangle((*fill_rect));
	dev_proc_fill_trapezoid((*fill_trap));
/*
 * Define a faster test for
 *	fixed2int_pixround(y - below) != fixed2int_pixround(y + above)
 * where we know
 *	0 <= below <= _fixed_pixround_v,
 *	0 <= above <= fixed_1 - below.
 * Subtracting out the integer parts, this is equivalent to
 *	fixed2int_pixround(fixed_fraction(y) - below) !=
 *	  fixed2int_pixround(fixed_fraction(y) + above)
 * or to
 *	fixed2int(fixed_fraction(y) + _fixed_pixround_v - below) !=
 *	  fixed2int(fixed_fraction(y) + _fixed_pixround_v + above)
 * Because of the range constraints given above, this is true precisely when
 *	fixed_fraction(y) + _fixed_pixround_v - below < fixed_1 &&
 *	  fixed_fraction(y) + _fixed_pixround_v + above >= fixed_1
 * or equivalently when
 *	fixed_fraction(y - (fixed_1 - _fixed_pixround_v - below)) <
 *	  below + above
 */
	fixed half_minus_adjust_y = fixed_1 - _fixed_pixround_v - adjust_below;
	fixed adjust_y2 = adjust_below + adjust_above;
#define adjusted_y_spans_pixel(y)\
  fixed_fraction((y) - half_minus_adjust_y) < adjust_y2

	if ( yll == 0 ) return 0;		/* empty list */
	if ( fill_direct )
	  cindex = pdevc->colors.pure,
	  fill_rect = dev_proc(dev, fill_rectangle);
	fill_trap = dev_proc(dev, fill_trapezoid);
	y = yll->start.y;			/* first Y value */
	ll->x_list = 0;
	ll->x_head.x_current = min_fixed;	/* stop backward scan */
	while ( 1 )
	   {	fixed y1;
		active_line *endp, *alp, *stopx;
		fixed x;
		int draw;

		n_add1(n_iter);
		/* Move newly active lines from y to x list. */
		while ( yll != 0 && yll->start.y == y )
		   {	active_line *ynext = yll->next;	/* insert smashes next/prev links */
			if ( yll->direction == dir_horizontal )
			  {	/* This is a hack to make sure that */
				/* isolated horizontal lines get stroked. */
				int yi = fixed2int_pixround(y - adjust_below);
				int xi, wi;
				if ( yll->start.x <= yll->end.x )
				  xi = fixed2int_pixround(yll->start.x -
							  adjust_left),
				  wi = fixed2int_pixround(yll->end.x +
							  adjust_right) - xi;
				else
				  xi = fixed2int_pixround(yll->end.x -
							  adjust_left),
				  wi = fixed2int_pixround(yll->start.x +
							  adjust_right) - xi;
				code = loop_fill_rectangle_direct(xi, yi, wi, 1);
				if ( code < 0 )
				  return code;
			  }
			else
			  insert_x_new(yll, ll);
			yll = ynext;
		   }
		/* Check whether we've reached the maximum y. */
		if ( y >= y_limit ) break;
		if ( ll->x_list == 0 )
		   {	/* No active lines, skip to next start */
			if ( yll == 0 ) break;	/* no lines left */
			y = yll->start.y;
			continue;
		   }

		/* Find the next evaluation point. */
		/* Start by finding the smallest y value */
		/* at which any currently active line ends */
		/* (or the next to-be-active line begins). */
		y1 = (yll != 0 ? yll->start.y : y_limit);
		/* Make sure we don't exceed the maximum band height. */
		{ fixed y_band = y | ~band_mask;
		  if ( y1 > y_band ) y1 = y_band + 1;
		}
		for ( alp = ll->x_list; alp != 0; alp = alp->next )
		  if ( alp->end.y < y1 ) y1 = alp->end.y;
#ifdef DEBUG
		if ( gs_debug_c('F') )
		  {	dprintf2("[F]before loop: y=%f y1=%f:\n",
				 fixed2float(y), fixed2float(y1));
			print_line_list(ll->x_list);
		  }
#endif
		/* Now look for line intersections before y1. */
		x = min_fixed;
#define have_pixels()\
  (fixed_pixround(y - adjust_below) < fixed_pixround(y1 + adjust_above))
		draw = (have_pixels() ? 1 : -1);
		/*
		 * Loop invariants:
		 *	alp = endp->next;
		 *	for all lines lp from stopx up to alp,
		 *	  lp->x_next = al_x_at_y(lp, y1).
		 */
		for ( alp = stopx = ll->x_list;
		      n_add1_expr(n_find_y), alp != 0;
		     endp = alp, alp = alp->next
		    )
		   {	fixed nx = al_x_at_y(alp, y1);
			fixed dx_old, dx_den;
			/* Check for intersecting lines. */
			if ( nx >= x )
				x = nx;
			else if
			   ( draw >= 0 && /* don't bother if no pixels */
			     (dx_old = alp->x_current - endp->x_current) >= 0 &&
			     (dx_den = dx_old + endp->x_next - nx) > dx_old
			   )
			   {	/* Make a good guess at the intersection */
				/* Y value using only local information. */
				fixed dy = y1 - y, y_new;
				if_debug3('f', "[f]cross: dy=%g, dx_old=%g, dx_new=%g\n",
				  fixed2float(dy), fixed2float(dx_old),
				  fixed2float(dx_den - dx_old));
				/* Do the computation in single precision */
				/* if the values are small enough. */
				y_new =
				  ((dy | dx_old) < 1L << (size_of(fixed)*4-1) ?
				   dy * dx_old / dx_den :
				   fixed_mult_quo(dy, dx_old, dx_den))
				  + y;
				/* The crossing value doesn't have to be */
				/* very accurate, but it does have to be */
				/* greater than y and less than y1. */
				if_debug3('f', "[f]cross y=%g, y_new=%g, y1=%g\n",
				  fixed2float(y), fixed2float(y_new),
				  fixed2float(y1));
				stopx = alp;
				if ( y_new <= y ) y_new = y + 1;
				if ( y_new < y1 )
				   {	y1 = y_new;
					nx = al_x_at_y(alp, y1);
					draw = 0;
				   }
				if ( nx > x ) x = nx;
			   }
			alp->x_next = nx;
		   }
		/* Recompute next_x for lines before the intersection. */
		for ( alp = ll->x_list; alp != stopx; alp = alp->next )
		  alp->x_next = al_x_at_y(alp, y1);
#ifdef DEBUG
		if ( gs_debug_c('F') )
		  {	dprintf1("[F]after loop: y1=%f\n", fixed2float(y1));
			print_line_list(ll->x_list);
		  }
#endif
		/* Fill a multi-trapezoid band for the active lines. */
		/* Don't bother if no pixel centers lie within the band. */
		if ( draw > 0 || (draw == 0 && have_pixels()) )
		{

/*******************************************************************/
/* For readability, we start indenting from the left margin again. */
/*******************************************************************/

	fixed height = y1 - y;
	fixed xlbot, xltop;  /* as of last "outside" line */
	int inside = 0;
	active_line *nlp;

	n_add1(n_band);
	for ( x = min_fixed, alp = ll->x_list; alp != 0; alp = nlp )
	   {	fixed xbot = alp->x_current;
		fixed xtop = alp->x_current = alp->x_next;
#define nx xtop
		fixed wtop;
		int xi, xli;
		int code;

		print_al("step", alp);
		n_add1(n_band_step);
		nlp = alp->next;
		/* Handle ended or out-of-order lines.  After this, */
		/* the only member of alp we use is alp->direction. */
		if ( alp->end.y != y1 || !end_x_line(alp) )
		  { if ( nx <= x )
		      resort_x_line(alp);
		    else
		      x = nx;
		  }
#undef nx
	/* rule = -1 for winding number rule, i.e. */
	/* we are inside if the winding number is non-zero; */
	/* rule = 1 for even-odd rule, i.e. */
	/* we are inside if the winding number is odd. */
#define inside_path_p() ((inside & rule) != 0)
		if ( !inside_path_p() )		/* i.e., outside */
		   {	inside += alp->direction;
			if ( inside_path_p() )	/* about to go in */
			  xlbot = xbot, xltop = xtop;
			continue;
		   }
		/* We're inside a region being filled. */
		inside += alp->direction;
		if ( inside_path_p() )		/* not about to go out */
		  continue;
#undef inside_path_p
		/* We just went from inside to outside, so fill the region. */
		wtop = xtop - xltop;
		n_add1(n_band_fill);
		/* If lines are temporarily out of */
		/* order, wtop might be negative. */
		/* Patch this up now. */
		if ( wtop < 0 )
		  {	if_debug2('f', "[f]patch %g,%g\n",
				  fixed2float(xltop), fixed2float(xtop));
			xtop = xltop += arith_rshift(wtop, 1);
			wtop = 0;
		  }
		if ( (adjust_left | adjust_right) != 0 )
		{	xlbot -= adjust_left;  xbot += adjust_right;
			xltop -= adjust_left;  xtop += adjust_right;
			wtop = xtop - xltop;
		}
		if ( (xli = fixed2int_var_pixround(xltop)) ==
		      fixed2int_var_pixround(xlbot) &&
		     (xi = fixed2int_var_pixround(xtop)) ==
		      fixed2int_var_pixround(xbot)
		   )
		  {	/* Rectangle. */
			int yi = fixed2int_pixround(y - adjust_below);
			int wi = fixed2int_pixround(y1 + adjust_above) - yi;
			code = loop_fill_rectangle_direct(xli, yi,
							  xi - xli, wi);
		  }
		else if ( (adjust_below | adjust_above) != 0 )
		{	/*
			 * We want to get the effect of filling an area whose
			 * outline is formed by dragging a square of side adj2
			 * along the border of the trapezoid.  This is *not*
			 * equivalent to simply expanding the corners by
			 * adjust: There are 3 cases needing different
			 * algorithms, plus rectangles as a fast special case.
			 */
			fixed wbot = xbot - xlbot;
			if ( xltop <= xlbot )
			 { if ( xtop >= xbot )
			     {	/* Top wider than bottom. */
				code = loop_fill_trapezoid_fixed(
					xlbot, wbot, y - adjust_below,
					xltop, wtop, height, false);
				if ( adjusted_y_spans_pixel(y1) )
				   {	if ( code < 0 ) return code;
					n_add1(n_afill);
					code = loop_fill_rectangle_direct(
						xli, fixed2int_pixround(y1 - adjust_below),
						fixed2int_var_pixround(xtop) - xli, 1);
				   }
			     }
			   else
			    {	/* Slanted trapezoid. */
				code = fill_slant_adjust(xlbot, xbot, y,
					xltop, xtop, height, adjust_below,
					adjust_above, pdevc, dev, lop);
			    }
			 }
			else
			 { if ( xtop <= xbot )
			    {	/* Bottom wider than top. */
				if ( adjusted_y_spans_pixel(y) )
				   {	n_add1(n_afill);
					xli = fixed2int_var_pixround(xlbot);
					code = loop_fill_rectangle_direct(
						xli, fixed2int_pixround(y - adjust_below),
						fixed2int_var_pixround(xbot) - xli, 1);
					if ( code < 0 ) return code;
				   }
				code = loop_fill_trapezoid_fixed(
					xlbot, wbot, y + adjust_above,
					xltop, wtop, height, false);
			    }
			   else
			    {	/* Slanted trapezoid. */
				code = fill_slant_adjust(xlbot, xbot, y,
					xltop, xtop, height, adjust_below,
					adjust_above, pdevc, dev, lop);
			    }
			 }
		}
		else		/* No Y adjustment. */
		  code = loop_fill_trapezoid_fixed(xlbot, xbot - xlbot,
						   y, xltop, wtop, height,
						   false);
		if ( code < 0 ) return code;
	   }

/**************************************************************/
/* End of section requiring less indentation for readability. */
/**************************************************************/

		}
		else
		  {	/* Just scan for ended or out-of-order lines. */
			active_line *nlp;
			for ( x = min_fixed, alp = ll->x_list; alp != 0;
			      alp = nlp
			    )
			  {	fixed nx = alp->x_current = alp->x_next;
				nlp = alp->next;
				if_debug4('F',
					  "[F]check 0x%lx,x=%g 0x%lx,x=%g\n",
					  (ulong)alp->prev, fixed2float(x),
					  (ulong)alp, fixed2float(nx));
				if ( alp->end.y == y1 )
				  {	if ( end_x_line(alp) )
					  continue;
				  }
				if ( nx <= x )
				  resort_x_line(alp);
				else
				  x = nx;
			  }
		  }
#ifdef DEBUG
		if ( gs_debug_c('f') )
		  { int code = check_line_list(ll->x_list);
		    if ( code < 0 )
		      return code;
		  }
#endif
		y = y1;
	   }
	return 0;
}

/* Handle the case of a slanted trapezoid with adjustment. */
/* To do this exactly right requires filling a central trapezoid */
/* plus two narrow vertical triangles or two horizontal almost-rectangles. */
/* Yuck! */
private int near
fill_slant_adjust(fixed xlbot, fixed xbot, fixed y,
  fixed xltop, fixed xtop, fixed height, fixed adjust_below,
  fixed adjust_above, const gx_device_color *pdevc, gx_device *dev,
  gs_logical_operation_t lop)
{	fixed adjust_y2 = adjust_below + adjust_above;
	fixed y1 = y + height;
	dev_proc_fill_trapezoid((*fill_trap)) =
	  dev_proc(dev, fill_trapezoid);
	int code;

	n_add1(n_slant);
	if ( height < adjust_y2 )
	  {	/*
		 * The upper and lower adjustment bands overlap.
		 * Use a different algorithm.
		 * Since the entire entity is less than 2 pixels high
		 * in this case, we could handle it very efficiently
		 * with no more than 2 rectangle fills, but for right now
		 * we won't attempt to do this.
		 */
		fixed xl, wx;
		int yi, hi;

		n_add1(n_slant_shallow);
		if ( xltop >= xlbot )		/* && xtop >= xbot */
		  wx = xtop - (xl = xlbot);
		else
		  wx = xbot - (xl = xltop);
		code = loop_fill_trapezoid_fixed(xlbot, xbot - xlbot,
						 y - adjust_below,
						 xl, wx, height, false);
		if ( code < 0 )
		  return code;
		yi = fixed2int_pixround(y1 - adjust_below);
		hi = fixed2int_pixround(y + adjust_above) - yi;
		if ( hi > 0 )
		  {	int xi = fixed2int_var_pixround(xl);
			int wi = fixed2int_pixround(xl + wx) - xi;
			code = loop_fill_rectangle(xi, yi, wi, hi);
			if ( code < 0 )
			  return code;
		  }
		code = loop_fill_trapezoid_fixed(xl, wx, y + adjust_above,
						 xltop, xtop - xltop, height,
						 false);
	  }
	else
	  {	fixed dx_left = xltop - xlbot, dx_right = xtop - xbot;
		fixed xlb, xrb, xlt, xrt;
		int xli, xri;
		fixed half_minus_adjust_y =
		  fixed_1 - _fixed_pixround_v - adjust_below;

		if ( dx_left <= 0 )		/* && dx_right <= 0 */
		  {	xlb = xlbot -
			  fixed_mult_quo(-dx_left, adjust_y2, height);
			xrb = xbot;
			xlt = xltop;
			xrt = xtop +
			  fixed_mult_quo(-dx_right, adjust_y2, height);
		  }
		else		/* dx_left >= 0, dx_right >= 0 */
		  {	xlb = xlbot;
			xrb = xbot +
			  fixed_mult_quo(dx_right, adjust_y2, height);
			xlt = xltop -
			  fixed_mult_quo(dx_left, adjust_y2, height);
			xrt = xtop;
		  }
		/* Do the bottom adjustment band, if any. */
		if ( adjusted_y_spans_pixel(y) )
		  {	/* We can always do this with a rectangle, */
			/* but the computation may be too much trouble. */
			n_add1(n_sfill);
			if ( (xli = fixed2int_var_pixround(xlbot)) ==
			      fixed2int_var_pixround(xlb) &&
			     (xri = fixed2int_var_pixround(xbot)) ==
			      fixed2int_var_pixround(xrb)
			   )
			  code =
			    loop_fill_rectangle(xli, fixed2int_pixround(y - adjust_below),
						xri - xli, 1);
			else
			  code =
			    loop_fill_trapezoid_fixed(xlbot, xbot - xlbot,
						      y - adjust_below,
						      xlb, xrb - xlb,
						      adjust_y2, false);
			if ( code < 0 )
			  return code;
		  }
		/* Do the central trapezoid. */
		code = loop_fill_trapezoid_fixed(xlb, xrb - xlb,
						 y + adjust_above,
						 xlt, xrt - xlt,
						 height - adjust_y2, false);
		/* Do the top adjustment band. */
		if ( adjusted_y_spans_pixel(y1) )
		  {	if ( code < 0 )
			  return code;
			n_add1(n_sfill);
			if ( (xli = fixed2int_var_pixround(xltop)) ==
			      fixed2int_var_pixround(xlt) &&
			     (xri = fixed2int_var_pixround(xtop)) ==
			      fixed2int_var_pixround(xrt)
			   )
			  code =
			    loop_fill_rectangle(xli, fixed2int_pixround(y1 - adjust_below),
						xri - xli, 1);
			else
			  code =
			    loop_fill_trapezoid_fixed(xlt, xrt - xlt,
						      y1 - adjust_below,
						      xltop, xtop - xltop,
						      adjust_y2, false);
		  }
	  }
	return code;
}

/* Re-sort the x list by moving alp backward to its proper spot. */
private void near
resort_x_line(active_line *alp)
{	active_line *prev = alp->prev;
	active_line *next = alp->next;
	fixed nx = alp->x_current;

	prev->next = next;
	if ( next )
	  next->prev = prev;
	while ( !x_precedes(prev, alp, nx) )
	   {	if_debug2('f', "[f]swap 0x%lx,0x%lx\n",
		         (ulong)alp, (ulong)prev);
		next = prev, prev = prev->prev;
	   }
	alp->next = next;
	alp->prev = prev;
	/* next might be null, if alp was in */
	/* the correct spot already. */
	if ( next )
	  next->prev = alp;
	prev->next = alp;
}
