static void DrawCircleAtPos(float x, float y, matrix4 &matrix, float previewScale) { struct vec3 pos; vec3_set(&pos, x, y, 0.0f); vec3_transform(&pos, &pos, &matrix); vec3_mulf(&pos, &pos, previewScale); gs_matrix_push(); gs_matrix_translate(&pos); gs_draw(GS_LINESTRIP, 0, 0); gs_matrix_pop(); }
/* * Compute the adjustment matrix for scaling and/or rotating the page * to match the medium. If the medium is completely flexible in a given * dimension (e.g., roll media in one dimension, or displays in both), * we must adjust its size in that dimension to match the request. * We recognize this by an unreasonably small medium->p.{x,y}. */ static void make_adjustment_matrix(const gs_point * request, const gs_rect * medium, gs_matrix * pmat, bool scale, int rotate) { double rx = request->x, ry = request->y; double mx = medium->q.x, my = medium->q.y; /* Rotate the request if necessary. */ if (rotate & 1) { double temp = rx; rx = ry, ry = temp; } /* If 'medium' is flexible, adjust 'mx' and 'my' towards 'rx' and 'ry', respectively. Note that 'mx' and 'my' have just acquired the largest permissible value, medium->q. */ if (medium->p.x < mx) { /* non-empty width range */ if (rx < medium->p.x) mx = medium->p.x; /* use minimum of the range */ else if (rx < mx) mx = rx; /* fits */ /* else leave mx == medium->q.x, i.e., the maximum */ } if (medium->p.y < my) { /* non-empty height range */ if (ry < medium->p.y) my = medium->p.y; /* use minimum of the range */ else if (ry < my) my = ry; /* fits */ /* else leave my == medium->q.y, i.e., the maximum */ } /* Translate to align the centers. */ gs_make_translation(mx / 2, my / 2, pmat); /* Rotate if needed. */ if (rotate) gs_matrix_rotate(pmat, 90.0 * rotate, pmat); /* Scale if needed. */ if (scale) { double xfactor = mx / rx; double yfactor = my / ry; double factor = min(xfactor, yfactor); if (factor < 1) gs_matrix_scale(pmat, factor, factor, pmat); } /* Now translate the origin back, */ /* using the original, unswapped request. */ gs_matrix_translate(pmat, -request->x / 2, -request->y / 2, pmat); }
/* * Reset all parameters which must be reset whenever the page size changes. * * The third operand indicates if this routine is being called as part of * an initial reset. In that case, done't call HPGL's reset - the reset * will do that later. */ static void new_page_size( pcl_state_t * pcs, const pcl_paper_size_t * psize, bool reset_initial, bool for_passthrough ) { floatp width_pts = psize->width * 0.01; floatp height_pts = psize->height * 0.01; float page_size[2]; static float old_page_size[2] = { 0, 0 }; gs_state * pgs = pcs->pgs; gs_matrix mat; bool changed_page_size; page_size[0] = width_pts; page_size[1] = height_pts; old_page_size[0] = pcs->xfm_state.paper_size ? pcs->xfm_state.paper_size->width : 0; old_page_size[1] = pcs->xfm_state.paper_size ? pcs->xfm_state.paper_size->height : 0; put_param1_float_array(pcs, "PageSize", page_size); /* * Reset the default transformation. * * The graphic library provides a coordinate system in points, with the * origin at the lower left corner of the page. The PCL code uses a * coordinate system in centi-points, with the origin at the upper left * corner of the page. */ gs_setdefaultmatrix(pgs, NULL); gs_initmatrix(pgs); gs_currentmatrix(pgs, &mat); gs_matrix_translate(&mat, 0.0, height_pts, &mat); gs_matrix_scale(&mat, 0.01, -0.01, &mat); gs_setdefaultmatrix(pgs, &mat); pcs->xfm_state.paper_size = psize; pcs->overlay_enabled = false; update_xfm_state(pcs, reset_initial); reset_margins(pcs, for_passthrough); /* check if update_xfm_state changed the page size */ changed_page_size = !(old_page_size[0] == pcs->xfm_state.paper_size->width && old_page_size[1] == pcs->xfm_state.paper_size->height); /* * make sure underlining is disabled (homing the cursor may cause * an underline to be put out. */ pcs->underline_enabled = false; pcl_home_cursor(pcs); pcl_xfm_reset_pcl_pat_ref_pt(pcs); if (!reset_initial) hpgl_do_reset(pcs, pcl_reset_page_params); if ( pcs->end_page == pcl_end_page_top ) { /* don't erase in snippet mode */ if (pcs->page_marked || changed_page_size) { gs_erasepage(pcs->pgs); pcs->page_marked = false; } } }
/* * Update the transformations stored in the PCL state. This will also update * the device clipping region information in device and logical page space. * The text region margins are preserved. * * This routine should be called for: * * changes in the paper size * transition from page front to page back for duplexing * (this facility is not currently implemented) * change of left or top offset registration * change of logical page orientation * change of print direction * * The paper size, left/top offsets, logical page orientation, and print * direction should be set before this procedure is called. */ static void update_xfm_state( pcl_state_t * pcs, bool reset_initial ) { pcl_xfm_state_t * pxfmst = &(pcs->xfm_state); const pcl_paper_size_t * psize = pxfmst->paper_size; coord offset; gs_matrix pg2dev, pg2lp; gs_rect print_rect, dev_rect, text_rect; gs_point cur_pt; floatp loff = pxfmst->left_offset_cp; floatp toff = pxfmst->top_offset_cp; /* preserve the current point and text rectangle in logical page space */ if ( !reset_initial ) preserve_cap_and_margins(pcs, &cur_pt, &text_rect); /* get the page to device transformation */ gs_defaultmatrix(pcs->pgs, &pg2dev); /* * Get the logical to page space transformation, and the dimensions of the * logical page. * * NOT YET IMPLEMENT - if on back of a duplex page, change size of offsets * * if (duplex_back(pcs)) { * loff = -loff; * toff = -toff; * } */ pcl_make_rotation( pxfmst->lp_orient, (floatp)(psize->width), (floatp)(psize->height), &(pxfmst->lp2pg_mtx) ); pxfmst->lp2pg_mtx.tx += loff; pxfmst->lp2pg_mtx.ty += toff; if ( pcs->personality == rtl ) offset = 0; else offset = ( (pxfmst->lp_orient & 0x1) != 0 ? psize->offset_landscape : psize->offset_portrait ); /* we need an extra 1/10 inch on each side to support 80 characters vs. 78 at 10 cpi. Only apply to A4. */ if ( ( pcs->wide_a4 ) && (psize->width == 59520) && (psize->height == 84168) ) offset -= inch2coord(1.0/10.0); gs_matrix_translate( &(pxfmst->lp2pg_mtx), (floatp)offset, 0.0, &(pxfmst->lp2pg_mtx) ); if ((pxfmst->lp_orient & 0x1) != 0) { pxfmst->lp_size.x = psize->height - 2 * offset; pxfmst->lp_size.y = psize->width; } else { pxfmst->lp_size.x = psize->width - 2 * offset; pxfmst->lp_size.y = psize->height; } /* then the logical page to device transformation */ gs_matrix_multiply(&(pxfmst->lp2pg_mtx), &pg2dev, &(pxfmst->lp2dev_mtx)); pg2dev.ty = round(pg2dev.ty); pg2dev.tx = round(pg2dev.tx); pxfmst->lp2dev_mtx.tx = round(pxfmst->lp2dev_mtx.tx); pxfmst->lp2dev_mtx.ty = round(pxfmst->lp2dev_mtx.ty); /* the "pseudo page direction to logical page/device transformations */ pcl_make_rotation( pxfmst->print_dir, (floatp)pxfmst->lp_size.x, (floatp)pxfmst->lp_size.y, &(pxfmst->pd2lp_mtx) ); gs_matrix_multiply( &(pxfmst->pd2lp_mtx), &(pxfmst->lp2dev_mtx), &(pxfmst->pd2dev_mtx) ); /* calculate the print direction page size */ if ((pxfmst->print_dir) & 0x1) { pxfmst->pd_size.x = pxfmst->lp_size.y; pxfmst->pd_size.y = pxfmst->lp_size.x; } else pxfmst->pd_size = pxfmst->lp_size; { gx_device *pdev = gs_currentdevice(pcs->pgs); /* We must not set up a clipping region beyond the hardware margins of the device, but the pcl language definition requires hardware margins to be 1/6". We set all margins to the the maximum of the PCL language defined 1/6" and the actual hardware margin. If 1/6" is not available pcl will not work correctly all of the time. */ if ( pcs->personality == rtl ) { print_rect.p.x = inch2coord(pdev->HWMargins[0] / 72.0); print_rect.p.y = inch2coord(pdev->HWMargins[1]) / 72.0; print_rect.q.x = psize->width - inch2coord(pdev->HWMargins[2] / 72.0); print_rect.q.y = psize->height - inch2coord(pdev->HWMargins[3] / 72.0); } else { print_rect.p.x = max(PRINTABLE_MARGIN_CP, inch2coord(pdev->HWMargins[0] / 72.0)); print_rect.p.y = max(PRINTABLE_MARGIN_CP, inch2coord(pdev->HWMargins[1]) / 72.0); print_rect.q.x = psize->width - max(PRINTABLE_MARGIN_CP, inch2coord(pdev->HWMargins[2] / 72.0)); print_rect.q.y = psize->height - max(PRINTABLE_MARGIN_CP, inch2coord(pdev->HWMargins[3] / 72.0)); } pcl_transform_rect(pcs->memory, &print_rect, &dev_rect, &pg2dev); pxfmst->dev_print_rect.p.x = float2fixed(round(dev_rect.p.x)); pxfmst->dev_print_rect.p.y = float2fixed(round(dev_rect.p.y)); pxfmst->dev_print_rect.q.x = float2fixed(round(dev_rect.q.x)); pxfmst->dev_print_rect.q.y = float2fixed(round(dev_rect.q.y)); } pcl_invert_mtx(&(pxfmst->lp2pg_mtx), &pg2lp); pcl_transform_rect(pcs->memory, &print_rect, &(pxfmst->lp_print_rect), &pg2lp); /* restablish the current point and text region */ if ( !reset_initial ) restore_cap_and_margins(pcs, &cur_pt, &text_rect); /* * No need to worry about pat_orient or pat_ref_pt; these will always * be recalculated just prior to use. */ }
int xps_parse_tiling_brush(xps_context_t *ctx, char *base_uri, xps_resource_t *dict, xps_item_t *root, int (*func)(xps_context_t*, char*, xps_resource_t*, xps_item_t*, void*), void *user) { xps_item_t *node; int code; char *opacity_att; char *transform_att; char *viewbox_att; char *viewport_att; char *tile_mode_att; /*char *viewbox_units_att;*/ /*char *viewport_units_att;*/ xps_item_t *transform_tag = NULL; gs_matrix transform; gs_rect viewbox; gs_rect viewport; float scalex, scaley; int tile_mode; opacity_att = xps_att(root, "Opacity"); transform_att = xps_att(root, "Transform"); viewbox_att = xps_att(root, "Viewbox"); viewport_att = xps_att(root, "Viewport"); tile_mode_att = xps_att(root, "TileMode"); /*viewbox_units_att = xps_att(root, "ViewboxUnits");*/ /*viewport_units_att = xps_att(root, "ViewportUnits");*/ for (node = xps_down(root); node; node = xps_next(node)) { if (!strcmp(xps_tag(node), "ImageBrush.Transform")) transform_tag = xps_down(node); if (!strcmp(xps_tag(node), "VisualBrush.Transform")) transform_tag = xps_down(node); } xps_resolve_resource_reference(ctx, dict, &transform_att, &transform_tag, NULL); gs_make_identity(&transform); if (transform_att) xps_parse_render_transform(ctx, transform_att, &transform); if (transform_tag) xps_parse_matrix_transform(ctx, transform_tag, &transform); viewbox.p.x = 0.0; viewbox.p.y = 0.0; viewbox.q.x = 1.0; viewbox.q.y = 1.0; if (viewbox_att) xps_parse_rectangle(ctx, viewbox_att, &viewbox); viewport.p.x = 0.0; viewport.p.y = 0.0; viewport.q.x = 1.0; viewport.q.y = 1.0; if (viewport_att) xps_parse_rectangle(ctx, viewport_att, &viewport); /* some sanity checks on the viewport/viewbox size */ if (fabs(viewport.q.x - viewport.p.x) < 0.01) { gs_warn("skipping tile with zero width view port"); return 0; } if (fabs(viewport.q.y - viewport.p.y) < 0.01) { gs_warn("skipping tile with zero height view port"); return 0; } if (fabs(viewbox.q.x - viewbox.p.x) < 0.01) { gs_warn("skipping tile with zero width view box"); return 0; } if (fabs(viewbox.q.y - viewbox.p.y) < 0.01) { gs_warn("skipping tile with zero height view box"); return 0; } scalex = (viewport.q.x - viewport.p.x) / (viewbox.q.x - viewbox.p.x); scaley = (viewport.q.y - viewport.p.y) / (viewbox.q.y - viewbox.p.y); tile_mode = TILE_NONE; if (tile_mode_att) { if (!strcmp(tile_mode_att, "None")) tile_mode = TILE_NONE; if (!strcmp(tile_mode_att, "Tile")) tile_mode = TILE_TILE; if (!strcmp(tile_mode_att, "FlipX")) tile_mode = TILE_FLIP_X; if (!strcmp(tile_mode_att, "FlipY")) tile_mode = TILE_FLIP_Y; if (!strcmp(tile_mode_att, "FlipXY")) tile_mode = TILE_FLIP_X_Y; } gs_gsave(ctx->pgs); code = xps_begin_opacity(ctx, base_uri, dict, opacity_att, NULL, false, false); if (code) { gs_grestore(ctx->pgs); return gs_rethrow(code, "cannot create transparency group"); } /* TODO(tor): check viewport and tiling to see if we can set it to TILE_NONE */ if (tile_mode != TILE_NONE) { struct tile_closure_s closure; gs_client_pattern gspat; gs_client_color gscolor; gs_color_space *cs; bool sa; closure.ctx = ctx; closure.base_uri = base_uri; closure.dict = dict; closure.tag = root; closure.tile_mode = tile_mode; closure.user = user; closure.func = func; closure.viewbox.p.x = viewbox.p.x; closure.viewbox.p.y = viewbox.p.y; closure.viewbox.q.x = viewbox.q.x; closure.viewbox.q.y = viewbox.q.y; gs_pattern1_init(&gspat); uid_set_UniqueID(&gspat.uid, gs_next_ids(ctx->memory, 1)); gspat.PaintType = 1; gspat.TilingType = 2; gspat.PaintProc = xps_remap_pattern; gspat.client_data = &closure; /* We need to know if this tiling brush includes transparency. We could do a proper scan, but for now we'll be lazy and just look at the flag from scanning the page. */ gspat.uses_transparency = ctx->has_transparency; gspat.XStep = viewbox.q.x - viewbox.p.x; gspat.YStep = viewbox.q.y - viewbox.p.y; gspat.BBox.p.x = viewbox.p.x; gspat.BBox.p.y = viewbox.p.y; gspat.BBox.q.x = viewbox.q.x; gspat.BBox.q.y = viewbox.q.y; if (tile_mode == TILE_FLIP_X || tile_mode == TILE_FLIP_X_Y) { gspat.BBox.q.x += gspat.XStep; gspat.XStep *= 2; } if (tile_mode == TILE_FLIP_Y || tile_mode == TILE_FLIP_X_Y) { gspat.BBox.q.y += gspat.YStep; gspat.YStep *= 2; } gs_matrix_translate(&transform, viewport.p.x, viewport.p.y, &transform); gs_matrix_scale(&transform, scalex, scaley, &transform); gs_matrix_translate(&transform, -viewbox.p.x, -viewbox.p.y, &transform); cs = ctx->srgb; gs_setcolorspace(ctx->pgs, cs); gsicc_profile_reference(cs->cmm_icc_profile_data, 1); sa = gs_currentstrokeadjust(ctx->pgs); gs_setstrokeadjust(ctx->pgs, false); gs_makepattern(&gscolor, &gspat, &transform, ctx->pgs, NULL); gs_setpattern(ctx->pgs, &gscolor); xps_fill(ctx); gs_setstrokeadjust(ctx->pgs, sa); gsicc_profile_reference(cs->cmm_icc_profile_data, -1); /* gs_makepattern increments the pattern count stored in the color * structure. We will discard the color struct (its on the stack) * so we need to decrement the reference before we throw away * the structure. */ gs_pattern_reference(&gscolor, -1); } else { xps_clip(ctx); gs_concat(ctx->pgs, &transform); gs_translate(ctx->pgs, viewport.p.x, viewport.p.y); gs_scale(ctx->pgs, scalex, scaley); gs_translate(ctx->pgs, -viewbox.p.x, -viewbox.p.y); gs_moveto(ctx->pgs, viewbox.p.x, viewbox.p.y); gs_lineto(ctx->pgs, viewbox.p.x, viewbox.q.y); gs_lineto(ctx->pgs, viewbox.q.x, viewbox.q.y); gs_lineto(ctx->pgs, viewbox.q.x, viewbox.p.y); gs_closepath(ctx->pgs); gs_clip(ctx->pgs); gs_newpath(ctx->pgs); code = func(ctx, base_uri, dict, root, user); if (code < 0) { xps_end_opacity(ctx, base_uri, dict, opacity_att, NULL); gs_grestore(ctx->pgs); return gs_rethrow(code, "cannot draw tile"); } } xps_end_opacity(ctx, base_uri, dict, opacity_att, NULL); gs_grestore(ctx->pgs); return 0; }
/* * Enter raster graphics mode. * * The major function of this routine is to establish the raster to device * space transformations. This is rather involved: * * 1. The first feature to be established is the orientation of raster space * relative to page space. Three state parameters are involved in * determining this orientation: the logical page orientation, the current * print direction, and the raster presentation mode. These are combined * in the following manner: * * tr = (print_direction / 90) + logical_page_orientation * * raster_rotate = (presentation_mode == 0 ? tr : tr & 0x2) * * 2. The next step is to determine the location of the origin of the raster * to page transformation. Intially this origin is set at the appropriate * corner of the logical page, based on the orientation determined above. * The origin is then shift based on the manner in which graphics mode is * entered (the mode operand): * * If entry is IMPLICIT (i.e.: via a transfer data command rather than * an enter graphics mode command), translation by the existing left * graphics margin is used, in the orientation of raster space. * * If entry is via an enter graphics mode command which specifies moving * the origin to the logical page boundary (NO_SCALE_LEFT_MARG (0) or * SCALE_LEFT_MARG (2)), action depends on whether or not horizontal * access of print direction space and of raster space are the same: * * if there are the same, the origin is left unchanged * * if they are not the same, the origin is shifted 1/6" (1200 centi- * points) in the positive horizontal raster space axis. * * The latter correction is not documented by HP, and there is no clear * reason why it should apply, but it has been verified to be the case * for all HP products testd. * * If entry is via an enter graphics mode command with specifies use * of the current point (NO_SCALE_CUR_PT(1) or SCALE_CUR_PT(3)), the * current point is transformed to raster space and its "horizontal" * component is used as the new graphics margin. * * Irrespective of how the "horizontal" component of the raster image origin * is specified, the vertical component is always derived from the current * addressable point, by converting the point to raster space. * * 3. Next, the scale of the raster to page space transformation is established. * This depends on whether or not PCL raster scaling is to be employed. * For raster scaling to be used, all of the following must hold: * * the scale_raster flag in the PCL raster state must be set * the current palette must be writable * the raster source height and width must have been explicitly set * * The scale_raster flag in the PCL raster state is normally set by the * enter raster graphics command. Hence, if graphics mode is entered * explicitly, the first requirement follows the behavior of the HP Color * LaserJet 5/5M. The DeskJet 1600C/CM behaves differently: it will never * user raster scaling if graphics mode is entered implicitly. * * The reason for the second requirement is undoubtedly related to some * backwards compatibility requirement, but is otherwise obscure. The * restriction is, however, both document and uniformly applied by all * HP products that support raster scaling. * * If raster scaling is not used, the scale of raster space is determined * by the ratio of the graphics resolution (set by the graphics resolution * command) and unit of page space (centi-points). This factor is applied * in both scan directions. * * If scaling is employed, the situation is somewhat more complicated. It * is necessary, in this case, to know which of the raster destination * dimensions have been explicitly set: * * If both dimensions are specified, the ration of these dimensions * to the source raster width and height determine the raster scale. * * If only one destination dimension is specified, the ratio of this * dimension to the corresponding source dimension determins the * raster scale for both dimensions; With strange interactions with * the 1200centipoint margin and rotated pages (Bug emulation). * * If neither dimension is specified, the page printable region is * transformed to raster space, the intersection of this with the * positive quadrant is taken. The dimensions of the resulting region * are compared with the dimensions of the source raster. The smaller * of the two dest_dim / src_dim ratios is used as the ratio for * the raster scale in both dimensions (i.e.: select the largest * isotropic scaling that does not cause clipping). * * 4. Finally, the extent of raster space must be determined. This is done by * converting the page printable region to raster space and intersecting * the result with the positive quadrant. This region is used to determine * the useable source raster width and height. * */ int pcl_enter_graphics_mode( pcl_state_t * pcs, pcl_gmode_entry_t mode ) { floatp scale_x, scale_y; pcl_xfm_state_t * pxfmst = &(pcs->xfm_state); pcl_raster_state_t * prstate = &(pcs->raster_state); float gmargin_cp = (float)prstate->gmargin_cp; gs_point cur_pt; gs_matrix rst2lp, rst2dev, lp2rst; gs_rect print_rect; uint src_wid, src_hgt; int rot; int code = 0; double dwid, dhgt; int clip_x, clip_y; /* * Check if the raster is to be clipped fully; see rtrstst.h for details. * Since this is a discontinuous effect, the equality checks below * should be made while still in centipoints. */ prstate->clip_all = ( (pcs->cap.x == pxfmst->pd_size.x) || (pcs->cap.y == pxfmst->pd_size.y) ); /* create to raster space to logical page space transformation */ rot = pxfmst->lp_orient + pxfmst->print_dir; if (prstate->pres_mode_3) rot &= 0x2; rot = (rot - pxfmst->lp_orient) & 0x3; if (prstate->y_advance == -1) rot = (rot + 2) & 0x3; pcl_make_rotation(rot, pxfmst->lp_size.x, pxfmst->lp_size.y, &rst2lp); pcl_invert_mtx(&rst2lp, &lp2rst); /* convert the current point to raster space */ cur_pt.x = (double)pcs->cap.x + adjust_pres_mode(pcs); cur_pt.y = (double)pcs->cap.y; pcl_xfm_to_logical_page_space(pcs, &cur_pt); gs_point_transform(cur_pt.x, cur_pt.y, &lp2rst, &cur_pt); /* translate the origin of the forward transformation */ if (((int)mode & 0x1) != 0) gmargin_cp = cur_pt.x; gs_matrix_translate(&rst2lp, gmargin_cp, cur_pt.y, &rst2lp); prstate->gmargin_cp = gmargin_cp; /* isotropic scaling with missing parameter is based on clipped raster dimensions */ /* transform the clipping window to raster space */ get_raster_print_rect(pcs->memory, &(pxfmst->lp_print_rect), &print_rect, &rst2lp); dwid = print_rect.q.x - print_rect.p.x; dhgt = print_rect.q.y - print_rect.p.y; clip_x = pxfmst->lp_print_rect.p.x; /* if neg then: */ clip_y = pxfmst->lp_print_rect.p.y; /* = 1200centipoints */ /* set the matrix scale */ if ( !prstate->scale_raster || !prstate->src_width_set || !prstate->src_height_set || (pcs->ppalet->pindexed->pfixed && mode == IMPLICIT) ) { scale_x = 7200.0 / (floatp)prstate->resolution; scale_y = scale_x; } else if (prstate->dest_width_set) { scale_x = (floatp)prstate->dest_width_cp / (floatp)prstate->src_width; if ( clip_x < 0 && pxfmst->lp_orient == 3 ) { scale_y = (floatp)(prstate->dest_width_cp - clip_y ) / (floatp)prstate->src_width; if ( rot == 2 && scale_y <= 2* prstate->src_width) /* empirical test 1 */ scale_y = scale_x; } else if ( clip_x < 0 && pxfmst->lp_orient == 1 && rot == 3 ) { scale_y = (floatp)(prstate->dest_width_cp - clip_y) / (floatp)prstate->src_width; if ( prstate->dest_width_cp <= 7200 ) /* empirical test 2 */ scale_y = (floatp)(prstate->dest_width_cp + clip_y) / (floatp)prstate->src_width; } else scale_y = scale_x; if (prstate->dest_height_set) scale_y = (floatp)prstate->dest_height_cp / (floatp)prstate->src_height; } else if (prstate->dest_height_set) { scale_x = scale_y = (floatp)prstate->dest_height_cp / (floatp)prstate->src_height; } else { /* select isotropic scaling with no clipping */ scale_x = (floatp)dwid / (floatp)prstate->src_width; scale_y = (floatp)dhgt / (floatp)prstate->src_height; if (scale_x > scale_y) scale_x = scale_y; else scale_y = scale_x; } gs_matrix_scale(&rst2lp, scale_x, scale_y, &rst2lp); gs_matrix_multiply(&rst2lp, &(pxfmst->lp2dev_mtx), &rst2dev); rst2dev.tx = (double)((int)(rst2dev.tx + 0.5)); rst2dev.ty = (double)((int)(rst2dev.ty + 0.5)); /* * Set up the graphic stat for rasters. This turns out to be more difficult * than might first be imagined. * * One problem is that two halftones may be needed simultaneously: * * the foreground CRD and halftone, in case the current "texture" is a * a solid color or an uncolored pattern * * the palette CRD and halftone, to be used in rendering the raster * itself * * Since the graphic state can only hold one CRD and one halftone method * at a time, this presents a bit of a problem. * * To get around the problem, an extra graphic state is necessary. Patterns * in the graphic library are given their own graphic state. Hence, by * replacing a solid color with an uncolored pattern that takes the * foreground value everywhere, the desired effect can be achieved. Code * in pcpatrn.c handles these matters. * * The second problem is a limitation in the graphic library's support of * CIE color spaces. These spaces require a joint cache, which is only * created when the color space is installed in the graphic state. However, * the current color space at the time a raster is rendered may need to * be a pattern color space, so that the proper interaction between the * raster and the texture generated by the pattern. To work around this * problem, we install the raster's color space in the current graphic * state, perform a gsave, then place what may be a patterned color space * in the new graphic state. */ pcl_set_graphics_state(pcs); pcl_set_drawing_color(pcs, pcl_pattern_raster_cspace, 0, true); pcl_gsave(pcs); pcl_set_drawing_color(pcs, pcs->pattern_type, pcs->current_pattern_id, true); gs_setmatrix(pcs->pgs, &rst2dev); /* translate the origin of the forward transformation */ /* tansform the clipping window to raster space; udpate source dimensions */ get_raster_print_rect(pcs->memory, &(pxfmst->lp_print_rect), &print_rect, &rst2lp); /* min size is 1 pixel */ src_wid = max(1, (uint)(floor(print_rect.q.x) - floor(print_rect.p.x))); src_hgt = max(1, (uint)(floor(print_rect.q.y) - floor(print_rect.p.y))); if (prstate->src_width_set && (src_wid > prstate->src_width)) src_wid = prstate->src_width; if (prstate->src_height_set && (src_hgt > prstate->src_height)) src_hgt = prstate->src_height; if (src_wid <= 0 || src_hgt <= 0) { pcl_grestore(pcs); return 1; /* hack, we want to return a non critical warning */ } /* determine (conservatively) if the region of interest has been marked */ pcs->page_marked = true; if ((code = pcl_start_raster(src_wid, src_hgt, pcs)) >= 0) prstate->graphics_mode = true; else pcl_grestore(pcs); return code; }