bool
bbox_default_in_rect(const void *pdata, const gs_fixed_rect *pbox)
{
const gx_device_bbox *const bdev = (const gx_device_bbox *)pdata;
return rect_within(*pbox, bdev->bbox);
}
/*
* Return the effective clipping path of a graphics state. Sometimes this
* is the intersection of the clip path and the view clip path; sometimes it
* is just the clip path. We aren't sure what the correct algorithm is for
* this: for now, we use view clipping unless the current device is a memory
* device. This takes care of the most important case, where the current
* device is a cache device.
*/
int
gx_effective_clip_path(gs_state * pgs, gx_clip_path ** ppcpath)
{
gs_id view_clip_id =
(pgs->view_clip == 0 || pgs->view_clip->rule == 0 ? gs_no_id :
pgs->view_clip->id);
if (gs_device_is_memory(pgs->device)) {
*ppcpath = pgs->clip_path;
return 0;
}
if (pgs->effective_clip_id == pgs->clip_path->id &&
pgs->effective_view_clip_id == view_clip_id
) {
*ppcpath = pgs->effective_clip_path;
return 0;
}
/* Update the cache. */
if (view_clip_id == gs_no_id) {
if (!pgs->effective_clip_shared)
gx_cpath_free(pgs->effective_clip_path, "gx_effective_clip_path");
pgs->effective_clip_path = pgs->clip_path;
pgs->effective_clip_shared = true;
} else {
gs_fixed_rect cbox, vcbox;
gx_cpath_inner_box(pgs->clip_path, &cbox);
gx_cpath_outer_box(pgs->view_clip, &vcbox);
if (rect_within(vcbox, cbox)) {
if (!pgs->effective_clip_shared)
gx_cpath_free(pgs->effective_clip_path,
"gx_effective_clip_path");
pgs->effective_clip_path = pgs->view_clip;
pgs->effective_clip_shared = true;
} else {
/* Construct the intersection of the two clip paths. */
int code;
gx_clip_path ipath;
gx_path vpath;
gx_clip_path *npath = pgs->effective_clip_path;
if (pgs->effective_clip_shared) {
npath = gx_cpath_alloc(pgs->memory, "gx_effective_clip_path");
if (npath == 0)
return_error(gs_error_VMerror);
}
gx_cpath_init_local(&ipath, pgs->memory);
code = gx_cpath_assign_preserve(&ipath, pgs->clip_path);
if (code < 0)
return code;
gx_path_init_local(&vpath, pgs->memory);
code = gx_cpath_to_path(pgs->view_clip, &vpath);
if (code < 0 ||
(code = gx_cpath_clip(pgs, &ipath, &vpath,
gx_rule_winding_number)) < 0 ||
(code = gx_cpath_assign_free(npath, &ipath)) < 0
)
DO_NOTHING;
gx_path_free(&vpath, "gx_effective_clip_path");
gx_cpath_free(&ipath, "gx_effective_clip_path");
if (code < 0)
return code;
pgs->effective_clip_path = npath;
pgs->effective_clip_shared = false;
}
}
pgs->effective_clip_id = pgs->effective_clip_path->id;
pgs->effective_view_clip_id = view_clip_id;
*ppcpath = pgs->effective_clip_path;
return 0;
}
/*
* Check the path against FontBBox before drawing. The original operands
* of type1execchar are still on the o-stack.
* Returns exec_cont - a function, which must be called by caller after this function.
*/
static int
bbox_draw(i_ctx_t *i_ctx_p, int (*draw)(gs_state *), op_proc_t *exec_cont)
{
os_ptr op = osp;
gs_rect bbox;
gs_font *pfont;
gs_text_enum_t *penum;
gs_font_base * pbfont;
gs_font_type1 * pfont1;
gs_type1exec_state cxs;
int code;
if (igs->in_cachedevice < 2) /* not caching */
return nobbox_draw(i_ctx_p, draw);
if ((code = font_param(op - 3, &pfont)) < 0)
return code;
penum = op_show_find(i_ctx_p);
if (penum == 0 || !font_uses_charstrings(pfont))
return_error(e_undefined);
if ((code = gs_pathbbox(igs, &bbox)) < 0) {
/*
* If the matrix is singular, all user coordinates map onto a
* straight line. Don't bother rendering the character at all.
*/
if (code == e_undefinedresult) {
pop(4);
gs_newpath(igs);
return 0;
}
return code;
}
if (draw == gs_stroke) {
/* Expand the bounding box by the line width. */
float width = gs_currentlinewidth(igs) * 1.41422;
bbox.p.x -= width, bbox.p.y -= width;
bbox.q.x += width, bbox.q.y += width;
}
pbfont = (gs_font_base *)pfont;
if (rect_within(bbox, pbfont->FontBBox)) /* within bounds */
return nobbox_draw(i_ctx_p, draw);
/* Enlarge the FontBBox to save work in the future. */
rect_merge(pbfont->FontBBox, bbox);
/* Dismantle everything we've done, and start over. */
gs_text_retry(penum);
pfont1 = (gs_font_type1 *) pfont;
if ((penum->FontBBox_as_Metrics2.x == 0 &&
penum->FontBBox_as_Metrics2.y == 0) ||
gs_rootfont(igs)->WMode == 0 ) {
code = zchar_get_metrics(pbfont, op - 1, cxs.sbw);
if (code < 0)
return code;
cxs.present = code;
cxs.use_FontBBox_as_Metrics2 = false;
} else {
cxs.sbw[0] = penum->FontBBox_as_Metrics2.x / 2;
cxs.sbw[1] = penum->FontBBox_as_Metrics2.y;
cxs.sbw[2] = 0;
cxs.sbw[3] = -penum->FontBBox_as_Metrics2.x; /* Sic! */
cxs.use_FontBBox_as_Metrics2 = true;
cxs.present = metricsSideBearingAndWidth;
}
code = type1_exec_init(&cxs.cis, penum, igs, pfont1);
if (code < 0)
return code;
cxs.char_bbox = pfont1->FontBBox;
code = type1exec_bbox(i_ctx_p, penum, &cxs, pfont, exec_cont);
return code;
}