int
pxSetClipIntersect(px_args_t *par, px_state_t *pxs)
{ gs_state *pgs = pxs->pgs;
pxeClipRegion_t clip_region = par->pv[0]->value.i;
int code;
check_clip_region(par, pxs);
/*
* The discussion of ClipMode and ClipRegion in the published
* specification is confused and incorrect. Based on testing with
* the LaserJet 6MP, we believe that ClipMode works just like
* PostScript clip and eoclip, and that ClipRegion applies only to
* the *current* path (i.e., support for "outside clipping" in the
* library is unnecessary). If we had only known....
*/
#if 0
gs_setclipoutside(pgs, false);
#endif
if ( clip_region == eExterior )
{ /*
* We know clip_mode is eEvenOdd, so we can complement the
* region defined by the current path by just adding a
* rectangle that encloses the entire page.
*/
gs_rect bbox;
code = gs_gsave(pgs);
if ( code < 0 )
return code;
px_initclip(pxs);
if ( (code = gs_clippath(pgs)) < 0 ||
(code = gs_pathbbox(pgs, &bbox)) < 0
)
DO_NOTHING;
gs_grestore(pgs);
if ( code < 0 ||
(code = gs_rectappend(pgs, &bbox, 1)) < 0
)
return code;
#ifdef CLIP_INTERSECT_EXTERIOR_REPLACES
px_initclip(pxs);
#endif
}
code =
(pxs->pxgs->clip_mode == eEvenOdd ? gs_eoclip(pgs) : gs_clip(pgs));
if ( code < 0 )
return code;
#if 0
gs_setclipoutside(pgs, clip_region == eExterior);
#endif
return gs_newpath(pgs);
}
/* - eoclip - */
static int
zeoclip(i_ctx_t *i_ctx_p)
{
return gs_eoclip(igs);
}