/* $Xorg: out_scrn.c,v 1.3 2000/08/17 19:46:26 cpqbld Exp $ */ /* Copyright 1989-1991, Bitstream Inc., Cambridge, MA. You are hereby granted permission under all Bitstream propriety rights to use, copy, modify, sublicense, sell, and redistribute the Bitstream Speedo software and the Bitstream Charter outline font for any purpose and without restrictions; provided, that this notice is left intact on all copies of such software or font and that Bitstream's trademark is acknowledged as shown below on all unmodified copies of such font. BITSTREAM CHARTER is a registered trademark of Bitstream Inc. BITSTREAM INC. DISCLAIMS ANY AND ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. BITSTREAM SHALL NOT BE LIABLE FOR ANY DIRECT OR INDIRECT DAMAGES, INCLUDING BUT NOT LIMITED TO LOST PROFITS, LOST DATA, OR ANY OTHER INCIDENTAL OR CONSEQUENTIAL DAMAGES, ARISING OUT OF OR IN ANY WAY CONNECTED WITH THE SPEEDO SOFTWARE OR THE BITSTREAM CHARTER OUTLINE FONT. */ /* $XFree86: xc/lib/font/Speedo/out_scrn.c,v 1.4 1999/12/27 00:39:25 robin Exp $ */ /*************************** O U T _ S C R N . C ***************************** * * * This is an output module for screen-writer mode. * * * *****************************************************************************/ #include "spdo_prv.h" /* General definitions for Speedo */ #define DEBUG 0 #define LOCAL static #define ABS(X) ( (X < 0) ? -X : X) #if DEBUG #include #define SHOW(X) printf("X = %d\n", X) #else #define SHOW(X) #endif /***** GLOBAL VARIABLES *****/ /***** GLOBAL FUNCTIONS *****/ /***** EXTERNAL VARIABLES *****/ /***** EXTERNAL FUNCTIONS *****/ /***** STATIC VARIABLES *****/ /***** STATIC FUNCTIONS *****/ static void sp_add_intercept_screen(PROTO_DECL2 fix15 y,fix31 x); static void sp_proc_intercepts_screen(PROTO_DECL1); #if INCL_SCREEN FUNCTION boolean init_screen( GDECL specs_t FONTFAR *specsarg) /* * init_out0() is called by sp_set_specs() to initialize the output module. * Returns TRUE if output module can accept requested specifications. * Returns FALSE otherwise. */ { #if DEBUG printf("INIT_SCREEN()\n"); #endif return (TRUE); } #endif #if INCL_SCREEN FUNCTION boolean begin_char_screen( GDECL point_t Psw, point_t Pmin, point_t Pmax) /* Called once at the start of the character generation process */ { #if DEBUG printf("BEGIN_CHAR_SCREEN(%3.1f, %3.1f, %3.1f, %3.1f, %3.1f, %3.1f\n", (real)Psw.x / (real)sp_globals.onepix, (real)Psw.y / (real)sp_globals.onepix, (real)Pmin.x / (real)sp_globals.onepix, (real)Pmin.y / (real)sp_globals.onepix, (real)Pmax.x / (real)sp_globals.onepix, (real)Pmax.y / (real)sp_globals.onepix); #endif if (sp_globals.pixshift > 8) sp_intercepts.fracpix = sp_globals.onepix << (8 - sp_globals.pixshift); else sp_intercepts.fracpix = sp_globals.onepix >> (sp_globals.pixshift - 8); init_char_out(Psw,Pmin,Pmax); return TRUE; } #endif #if INCL_SCREEN FUNCTION void begin_contour_screen( GDECL point_t P1, boolean outside) /* Called at the start of each contour */ { #if DEBUG printf("BEGIN_CONTOUR_SCREEN(%3.1f, %3.1f, %s)\n", (real)P1.x / (real)sp_globals.onepix, (real)P1.y / (real)sp_globals.onepix, outside? "outside": "inside"); #endif sp_globals.x0_spxl = P1.x; sp_globals.y0_spxl = P1.y; sp_globals.y_pxl = (sp_globals.y0_spxl + sp_globals.pixrnd) >> sp_globals.pixshift; } #endif #if INCL_SCREEN FUNCTION void curve_screen( GDECL point_t P1, point_t P2, point_t P3, fix15 depth) { fix31 X0; fix31 Y0; fix31 X1; fix31 Y1; fix31 X2; fix31 Y2; fix31 X3; fix31 Y3; #if DEBUG printf("CURVE_SCREEN(%6.4f, %6.4f, %6.4f, %6.4f, %6.4f, %6.4f)\n", (real)P1.x / (real)sp_globals.onepix, (real)P1.y / (real)sp_globals.onepix, (real)P2.x / (real)sp_globals.onepix, (real)P2.y / (real)sp_globals.onepix, (real)P3.x / (real)sp_globals.onepix, (real)P3.y / (real)sp_globals.onepix); #endif if (sp_globals.extents_running) /* Accumulate actual character extents if required */ { if (P3.x > sp_globals.bmap_xmax) sp_globals.bmap_xmax = P3.x; if (P3.x < sp_globals.bmap_xmin) sp_globals.bmap_xmin = P3.x; if (P3.y > sp_globals.bmap_ymax) sp_globals.bmap_ymax = P3.y; if (P3.y < sp_globals.bmap_ymin) sp_globals.bmap_ymin = P3.y; } X0 = ((fix31)sp_globals.x0_spxl << sp_globals.poshift) + (fix31)32768; Y0 = ((fix31)sp_globals.y0_spxl << sp_globals.poshift) + (fix31)32768; X1 = ((fix31)P1.x << sp_globals.poshift) + (fix31)32768; Y1 = ((fix31)P1.y << sp_globals.poshift) + (fix31)32768; X2 = ((fix31)P2.x << sp_globals.poshift) + (fix31)32768; Y2 = ((fix31)P2.y << sp_globals.poshift) + (fix31)32768; X3 = ((fix31)P3.x << sp_globals.poshift) + (fix31)32768; Y3 = ((fix31)P3.y << sp_globals.poshift) + (fix31)32768; if (((Y0 - Y3) * sp_globals.tcb.mirror) > 0) { sp_intercepts.leftedge = LEFT_INT; } else { sp_intercepts.leftedge = 0; } scan_curve_screen(X0,Y0,X1,Y1,X2,Y2,X3,Y3); sp_globals.x0_spxl = P3.x; sp_globals.y0_spxl = P3.y; sp_globals.y_pxl = (P3.y + sp_globals.pixrnd) >> sp_globals.pixshift; /* calculate new end-scan sp_globals.line */ } FUNCTION void scan_curve_screen( GDECL fix31 X0, fix31 Y0, fix31 X1, fix31 Y1, fix31 X2, fix31 Y2, fix31 X3, fix31 Y3) /* Called for each curve in the transformed character if curves out enabled */ { fix31 Pmidx; fix31 Pmidy; fix31 Pctrl1x; fix31 Pctrl1y; fix31 Pctrl2x; fix31 Pctrl2y; #ifdef DBGCRV printf("SCAN_CURVE_SCREEN(%6.4f, %6.4f, %6.4f, %6.4f, %6.4f, %6.4f, %6.4f, %6.4f)\n", (real)(X0-32768) / 65536.0, (real)(Y0-32768) / 65536.0, (real)(X1-32768) / 65536.0, (real)(Y1-32768) / 65536.0, (real)(X2-32768) / 65536.0, (real)(Y2-32768) / 65536.0, (real)(X3-32768) / 65536.0, (real)(Y3-32768) / 65536.0); #endif if (((Y3 >> 16)) == (Y0 >> 16) || (Y3+1) == Y0 || Y3 == (Y0+1)) { return; } if ((X3 >> 16) == (X0 >> 16)) { vert_line_screen(X3,(fix15)(Y0>>16),(fix15)(Y3>>16)); return; } Pmidx = (X0 + (X1 + X2) * 3 + X3 + 4 ) >> 3; Pmidy = (Y0 + (Y1 + Y2) * 3 + Y3 + 4 ) >> 3; Pctrl1x = (X0 + X1 + 1 ) >> 1; Pctrl1y = (Y0 + Y1 + 1) >> 1; Pctrl2x = (X0 + (X1 << 1) + X2 + 2 ) >> 2; Pctrl2y = (Y0 + (Y1 << 1) + Y2 + 2 ) >> 2; scan_curve_screen(X0,Y0, Pctrl1x, Pctrl1y, Pctrl2x,Pctrl2y, Pmidx,Pmidy); Pctrl1x = (X1 + (X2 << 1) + X3 + 2 ) >> 2; Pctrl1y = (Y1 + (Y2 << 1) + Y3 + 2 ) >> 2; Pctrl2x = (X2 + X3 + 1 ) >> 1; Pctrl2y = (Y2 + Y3 + 1 ) >> 1; scan_curve_screen(Pmidx,Pmidy, Pctrl1x,Pctrl1y, Pctrl2x,Pctrl2y, X3,Y3); } FUNCTION void vert_line_screen( GDECL fix31 x, fix15 y1, fix15 y2) { #ifdef DBGCRV printf("VERT_LINE_SCREEN(%6.4f, %6.4f, %6.4f)\n", (real)(x - 32768) / 65536.0, (real)(y1 - 32768) / 65536.0, (real)(y2 - 32768) / 65536.0); #endif if (sp_globals.intercept_oflo) return; if (y1 > y2) /* Line goes downwards ? */ { if (y1 > (sp_globals.y_band.band_max + 1)) /* Start point above top of band? */ y1 = sp_globals.y_band.band_max + 1; /* Adjust start point to top of band */ if (y2 < sp_globals.y_band.band_min) /* End point below bottom of band? */ y2 = sp_globals.y_band.band_min; /* Adjust end point bottom of band */ y1 -= sp_globals.y_band.band_min; /* Translate start point to band origin */ y2 -= sp_globals.y_band.band_min; /* Translate end point to band origin */ while (y2 < y1) /* At least one intercept left? */ { sp_add_intercept_screen(--y1, x); /* Add intercept */ } } else if (y2 > y1) /* Line goes upwards ? */ { if (y1 < sp_globals.y_band.band_min) /* Start point below bottom of band? */ y1 = sp_globals.y_band.band_min; /* Adjust start point to bottom of band */ if (y2 > (sp_globals.y_band.band_max + 1)) /* End point above top of band? */ y2 = sp_globals.y_band.band_max + 1; /* Adjust end point to top of band */ y1 -= sp_globals.y_band.band_min; /* Translate start point to band origin */ y2 -= sp_globals.y_band.band_min; /* Translate end point to band origin */ while (y1 < y2) /* At least one intercept left? */ { sp_add_intercept_screen(y1++, x); /* Add intercept */ } } } #endif #if INCL_SCREEN FUNCTION void line_screen( GDECL point_t P1) /* Called for each vector in the transformed character */ { register fix15 how_many_y; /* # of intercepts at y = n + 1/2 */ register fix15 yc; /* Current scan-line */ fix15 temp1; /* various uses */ fix15 temp2; /* various uses */ register fix31 dx_dy; /* slope of line in 16.16 form */ register fix31 xc; /* high-precision (16.16) x coordinate */ fix15 x0,y0,x1,y1; /* PIX.FRAC start and endpoints */ x0 = sp_globals.x0_spxl; /* get start of line (== current point) */ y0 = sp_globals.y0_spxl; sp_globals.x0_spxl = x1 = P1.x; /* end of line */ sp_globals.y0_spxl = y1 = P1.y; /* (also update current point to end of line) */ yc = sp_globals.y_pxl; /* current scan line = end of last line */ sp_globals.y_pxl = (y1 + sp_globals.pixrnd) >> sp_globals.pixshift; /* calculate new end-scan sp_globals.line */ #if DEBUG printf("LINE_SCREEN(%3.4f, %3.4f)\n", (real)P1.x/(real)sp_globals.onepix, (real)P1.y/(real)sp_globals.onepix); #endif if (sp_globals.extents_running) { if (sp_globals.x0_spxl > sp_globals.bmap_xmax) sp_globals.bmap_xmax = sp_globals.x0_spxl; if (sp_globals.x0_spxl < sp_globals.bmap_xmin) sp_globals.bmap_xmin = sp_globals.x0_spxl; if (sp_globals.y0_spxl > sp_globals.bmap_ymax) sp_globals.bmap_ymax = sp_globals.y0_spxl; if (sp_globals.y0_spxl < sp_globals.bmap_ymin) sp_globals.bmap_ymin = sp_globals.y0_spxl; } if (sp_globals.intercept_oflo) return; if ((how_many_y = sp_globals.y_pxl - yc) == 0) return; /* Don't draw a null line */ xc = (fix31)(x0 + sp_globals.pixrnd) << (16 - sp_globals.pixshift); /* Original x coordinate with built in */ /* rounding. 16.16 form */ if (how_many_y < 0) { yc--; /* Predecrment downward lines */ } if ((how_many_y * sp_globals.tcb.mirror) < 0) { sp_intercepts.leftedge = LEFT_INT; } else { sp_intercepts.leftedge = 0; } if (yc > sp_globals.y_band.band_max) /* Is start point above band? */ { if (sp_globals.y_pxl > sp_globals.y_band.band_max) return; /* line has to go down! */ how_many_y = sp_globals.y_pxl - (yc = sp_globals.y_band.band_max) - 1; /* Yes, limit it */ } if (yc < sp_globals.y_band.band_min) /* Is start point below band? */ { if (sp_globals.y_pxl < sp_globals.y_band.band_min) return; /* line has to go up! */ how_many_y = sp_globals.y_pxl - (yc = sp_globals.y_band.band_min); /* Yes, limit it */ } if ( (temp1 = (x1 - x0)) == 0) /* check for vertical line */ { dx_dy = 0L; /* Zero slope, leave xc alone */ goto skip_calc; } /* calculate dx_dy at 16.16 fixed point */ dx_dy = ( (fix31)temp1 << 16 )/(fix31)(y1 - y0); /* We have to check for a @#$%@# possible multiply overflow */ /* by doing another @#$*& multiply. In assembly language, */ /* the program could just check the OVerflow flag or whatever*/ /* works on the particular processor. This C code is meant */ /* to be processor independant. */ temp1 = (yc << sp_globals.pixshift) - y0 + sp_globals.pixrnd; /* This sees if the sign bits start at bit 15 */ /* if they do, no overflow has occurred */ temp2 = (fix15)(MULT16(temp1,(fix15)(dx_dy >> 16)) >> 15); if ( (temp2 != (fix15)-1) && (temp2 != 0x0000) ) { /* Overflow. Pick point closest to yc + .5 */ if (ABS(temp1) < ABS((yc << sp_globals.pixshift) - y1 + sp_globals.pixrnd)) { /* use x1 instead of x0 */ xc = (fix31)(x1 + sp_globals.pixrnd) << (16 - sp_globals.pixshift); } goto skip_calc; } /* calculate new xc at the center of the *current* scan line */ /* due to banding, yc may be several lines away from y0 */ /* xc += (yc + .5 - y0) * dx_dy */ /* This multiply generates a subpixel delta. */ /* So we shift it to be a 16.16 delta */ xc += ((fix31)temp1 * dx_dy) >> sp_globals.pixshift; skip_calc: yc -= sp_globals.y_band.band_min; /* yc is now an offset relative to the band */ if (how_many_y < 0) { /* Vector down */ if ((how_many_y += yc + 1) < 0) how_many_y = 0; /* can't go below 0 */ while(yc >= how_many_y) { sp_add_intercept_screen(yc--,xc); xc -= dx_dy; } } else { /* Vector up */ /* check to see that line doesn't extend beyond top of band */ if ((how_many_y += yc) > sp_globals.no_y_lists) how_many_y = sp_globals.no_y_lists; while(yc != how_many_y) { sp_add_intercept_screen(yc++,xc); xc += dx_dy; } } } #endif #if INCL_SCREEN FUNCTION void end_contour_screen() GDECL /* Called after the last vector in each contour */ { #if DEBUG printf("END_CONTOUR_SCREEN()\n"); #endif sp_intercepts.inttype[sp_globals.next_offset-1] |= END_INT; } #endif #if INCL_SCREEN FUNCTION boolean end_char_screen() GDECL /* Called when all character data has been output * Return TRUE if output process is complete * Return FALSE to repeat output of the transformed data beginning * with the first contour */ { fix31 xorg; fix31 yorg; #if INCL_CLIPPING fix31 em_max, em_min, bmap_max, bmap_min; #endif #if DEBUG printf("END_CHAR_SCREEN()\n"); #endif if (sp_globals.first_pass) { if (sp_globals.bmap_xmax >= sp_globals.bmap_xmin) { sp_globals.xmin = (sp_globals.bmap_xmin + sp_globals.pixrnd + 1) >> sp_globals.pixshift; sp_globals.xmax = (sp_globals.bmap_xmax + sp_globals.pixrnd) >> sp_globals.pixshift; } else { sp_globals.xmin = sp_globals.xmax = 0; } if (sp_globals.bmap_ymax >= sp_globals.bmap_ymin) { #if INCL_CLIPPING switch(sp_globals.tcb0.xtype) { case 1: /* 180 degree rotation */ if (sp_globals.specs.flags & CLIP_TOP) { sp_globals.clip_ymin = (fix31)((fix31)EM_TOP * sp_globals.tcb0.yppo + ((1<> sp_globals.multshift; bmap_min = (sp_globals.bmap_ymin + sp_globals.pixrnd + 1) >> sp_globals.pixshift; sp_globals.clip_ymin = -1 * sp_globals.clip_ymin; if (bmap_min < sp_globals.clip_ymin) sp_globals.ymin = sp_globals.clip_ymin; else sp_globals.ymin = bmap_min; } if (sp_globals.specs.flags & CLIP_BOTTOM) { sp_globals.clip_ymax = (fix31)((fix31)(-1 * EM_BOT) * sp_globals.tcb0.yppo + ((1<> sp_globals.multshift; bmap_max = (sp_globals.bmap_ymax + sp_globals.pixrnd) >> sp_globals.pixshift; if (bmap_max < sp_globals.clip_ymax) sp_globals.ymax = bmap_max; else sp_globals.ymax = sp_globals.clip_ymax; } sp_globals.clip_xmax = -sp_globals.xmin; sp_globals.clip_xmin = ((sp_globals.set_width.x+32768L) >> 16) - sp_globals.xmin; break; case 2: /* 90 degree rotation */ if (sp_globals.specs.flags & CLIP_TOP) { sp_globals.clip_xmin = (fix31)((fix31)(-1 * EM_BOT) * sp_globals.tcb0.yppo + ((1<> sp_globals.multshift; sp_globals.clip_xmin = -1 * sp_globals.clip_xmin; bmap_min = (sp_globals.bmap_xmin + sp_globals.pixrnd + 1) >> sp_globals.pixshift; if (bmap_min > sp_globals.clip_xmin) sp_globals.clip_xmin = bmap_min; /* normalize to x origin */ sp_globals.clip_xmin -= sp_globals.xmin; } if (sp_globals.specs.flags & CLIP_BOTTOM) { sp_globals.clip_xmax = (fix31)((fix31)EM_TOP * sp_globals.tcb0.yppo + ((1<> sp_globals.multshift; bmap_max = (sp_globals.bmap_xmax + sp_globals.pixrnd) >> sp_globals.pixshift; if (bmap_max < sp_globals.clip_xmax) sp_globals.xmax = bmap_max; else sp_globals.xmax = sp_globals.clip_xmax; sp_globals.clip_ymax = 0; if ((sp_globals.specs.flags & CLIP_TOP) && (sp_globals.ymax > sp_globals.clip_ymax)) sp_globals.ymax = sp_globals.clip_ymax; sp_globals.clip_ymin = ((sp_globals.set_width.y+32768L) >> 16); if ((sp_globals.specs.flags & CLIP_BOTTOM) && (sp_globals.ymin < sp_globals.clip_ymin)) sp_globals.ymin = sp_globals.clip_ymin; /* normalize to x origin */ sp_globals.clip_xmax -= sp_globals.xmin; } break; case 3: /* 270 degree rotation */ if (sp_globals.specs.flags & CLIP_TOP) { sp_globals.clip_xmin = (fix31)((fix31)EM_TOP * sp_globals.tcb0.yppo + ((1<> sp_globals.multshift; sp_globals.clip_xmin = -1 * sp_globals.clip_xmin; bmap_min = (sp_globals.bmap_xmin + sp_globals.pixrnd + 1) >> sp_globals.pixshift; /* let the minimum be the larger of these two values */ if (bmap_min > sp_globals.clip_xmin) sp_globals.clip_xmin = bmap_min; /* normalize the x value to new xorgin */ sp_globals.clip_xmin -= sp_globals.xmin; } if (sp_globals.specs.flags & CLIP_BOTTOM) { sp_globals.clip_xmax = (fix31)((fix31)(-1 * EM_BOT) * sp_globals.tcb0.yppo + ((1<> sp_globals.multshift; bmap_max = (sp_globals.bmap_xmax + sp_globals.pixrnd) >> sp_globals.pixshift; /* let the max be the lesser of these two values */ if (bmap_max < sp_globals.clip_xmax) { sp_globals.xmax = bmap_max; sp_globals.clip_xmax = bmap_max; } else sp_globals.xmax = sp_globals.clip_xmax; /* normalize the x value to new x origin */ sp_globals.clip_xmax -= sp_globals.xmin; } /* compute y clip values */ sp_globals.clip_ymax = ((sp_globals.set_width.y+32768L) >> 16); if ((sp_globals.specs.flags & CLIP_TOP) && (sp_globals.ymax > sp_globals.clip_ymax)) sp_globals.ymax = sp_globals.clip_ymax; sp_globals.clip_ymin = 0; if ((sp_globals.specs.flags & CLIP_BOTTOM) && (sp_globals.ymin < sp_globals.clip_ymin)) sp_globals.ymin = sp_globals.clip_ymin; break; default: /* this is for zero degree rotation and arbitrary rotation */ if (sp_globals.specs.flags & CLIP_TOP) { sp_globals.clip_ymax = (fix31)((fix31)EM_TOP * sp_globals.tcb0.yppo + ((1<> sp_globals.multshift; bmap_max = (sp_globals.bmap_ymax + sp_globals.pixrnd) >> sp_globals.pixshift; if (bmap_max > sp_globals.clip_ymax) sp_globals.ymax = bmap_max; else sp_globals.ymax = sp_globals.clip_ymax; } if (sp_globals.specs.flags & CLIP_BOTTOM) { sp_globals.clip_ymin = (fix31)((fix31)(-1 * EM_BOT) * sp_globals.tcb0.yppo + ((1<> sp_globals.multshift; sp_globals.clip_ymin = - sp_globals.clip_ymin; bmap_min = (sp_globals.bmap_ymin + sp_globals.pixrnd + 1) >> sp_globals.pixshift; if (bmap_min < sp_globals.clip_ymin) sp_globals.ymin = sp_globals.clip_ymin; else sp_globals.ymin = bmap_min; } sp_globals.clip_xmin = -sp_globals.xmin; sp_globals.clip_xmax = ((sp_globals.set_width.x+32768L) >> 16) - sp_globals.xmin; break; } if ( !(sp_globals.specs.flags & CLIP_TOP)) #endif sp_globals.ymax = (sp_globals.bmap_ymax + sp_globals.pixrnd) >> sp_globals.pixshift; #if INCL_CLIPPING if ( !(sp_globals.specs.flags & CLIP_BOTTOM)) #endif sp_globals.ymin = (sp_globals.bmap_ymin + sp_globals.pixrnd + 1) >> sp_globals.pixshift; } else { sp_globals.ymin = sp_globals.ymax = 0; } /* add in the rounded out part (from xform.) of the left edge */ if (sp_globals.tcb.xmode == 0) /* for X pix is function of X orus only add the round */ xorg = (((fix31)sp_globals.xmin << 16) + (sp_globals.rnd_xmin << sp_globals.poshift)); else if (sp_globals.tcb.xmode == 1) /* for X pix is function of -X orus only, subtr. round */ xorg = (((fix31)sp_globals.xmin << 16) - (sp_globals.rnd_xmin << sp_globals.poshift)) ; else xorg = (fix31)sp_globals.xmin << 16; /* for other cases don't use round on x */ if (sp_globals.tcb.ymode == 2) /* for Y pix is function of X orus only, add round error */ yorg = (((fix31)sp_globals.ymin << 16) + (sp_globals.rnd_xmin << sp_globals.poshift)); else if (sp_globals.tcb.ymode == 3) /* for Y pix is function of -X orus only, sub round */ yorg = (((fix31)sp_globals.ymin << 16) - (sp_globals.rnd_xmin << sp_globals.poshift)); else /* all other cases have no round error on yorg */ yorg = (fix31)sp_globals.ymin << 16; open_bitmap(sp_globals.set_width.x, sp_globals.set_width.y, xorg, yorg, sp_globals.xmax - sp_globals.xmin, sp_globals.ymax - sp_globals.ymin); if (sp_globals.intercept_oflo) { sp_globals.y_band.band_min = sp_globals.ymin; sp_globals.y_band.band_max = sp_globals.ymax; init_intercepts_out(); sp_globals.first_pass = FALSE; sp_globals.extents_running = FALSE; return FALSE; } else { sp_proc_intercepts_screen(); close_bitmap(); return TRUE; } } else { if (sp_globals.intercept_oflo) { reduce_band_size_out(); init_intercepts_out(); return FALSE; } else { sp_proc_intercepts_screen(); if (next_band_out()) { init_intercepts_out(); return FALSE; } close_bitmap(); return TRUE; } } } #endif #if INCL_SCREEN FUNCTION LOCAL void sp_add_intercept_screen( GDECL fix15 y, /* Y coordinate in relative pixel units */ /* (0 is lowest sample in band) */ fix31 x) /* X coordinate of intercept in subpixel units */ /* Called by line() to add an intercept to the intercept list structure */ { register fix15 from; /* Insertion pointers for the linked list sort */ register fix15 to; register fix15 xloc; register fix15 xfrac; #if DEBUG printf(" Add intercept(%2d, %x)\n", y + sp_globals.y_band.band_min, x); /* Bounds checking IS done in debug mode */ if (y < 0) /* Y value below bottom of current band? */ { printf(" Intecerpt less than 0!!!\007\n"); return; } if (y > (sp_globals.no_y_lists - 1)) /* Y value above top of current band? */ { printf(" Intercept too big for band!!!!!\007\n"); return; } #endif /* Store new values */ sp_intercepts.car[sp_globals.next_offset] = xloc = (fix15)(x >> 16); sp_intercepts.inttype[sp_globals.next_offset] = sp_intercepts.leftedge | (xfrac = ((x >> 8) & FRACTION)); /* Find slot to insert new element (between from and to) */ from = y; /* Start at list head */ while( (to = sp_intercepts.cdr[from]) != 0) /* Until to == end of list */ { if (xloc < sp_intercepts.car[to]) /* If next item is larger than or same as this one... */ goto insert_element; /* ... drop out and insert here */ else if (xloc == sp_intercepts.car[to] && xfrac < (sp_intercepts.inttype[to] & FRACTION)) goto insert_element; /* ... drop out and insert here */ from = to; /* move forward in list */ } insert_element: /* insert element "sp_globals.next_offset" between elements "from" */ /* and "to" */ sp_intercepts.cdr[from] = sp_globals.next_offset; sp_intercepts.cdr[sp_globals.next_offset] = to; if (++sp_globals.next_offset >= MAX_INTERCEPTS) /* Intercept buffer full? */ { sp_globals.intercept_oflo = TRUE; /* There may be a few more calls to "add_intercept" from the current line */ /* To avoid problems, we set next_offset to a safe value. We don't care */ /* if the intercept table gets trashed at this point */ sp_globals.next_offset = sp_globals.first_offset; } } #endif #if INCL_SCREEN FUNCTION LOCAL void sp_proc_intercepts_screen() GDECL /* Called by sp_make_char to output accumulated intercept lists * Clips output to sp_globals.xmin, sp_globals.xmax, sp_globals.ymin, sp_globals.ymax boundaries */ { register fix15 i,j, jplus1, iminus1; fix15 k,nextk, previ; register fix15 from, to; /* Start and end of run in pixel units relative to left extent of character */ register fix15 y; register fix15 scan_line; fix15 first_y, last_y; fix15 xsave; fix15 diff; #if DEBUG printf("\nPROC_INTERCEPTS_SCREEN: Intercept lists before:\n"); #endif #if INCL_CLIPPING if ((sp_globals.specs.flags & CLIP_LEFT) != 0) clipleft = TRUE; else clipleft = FALSE; if ((sp_globals.specs.flags & CLIP_RIGHT) != 0) clipright = TRUE; else clipright = FALSE; if (clipleft || clipright) { xmax = sp_globals.clip_xmax + sp_globals.xmin; xmin = sp_globals.clip_xmin + sp_globals.xmin; } if (!clipright) xmax = ((sp_globals.set_width.x+32768L) >> 16); #endif if ((first_y = sp_globals.y_band.band_max) >= sp_globals.ymax) first_y = sp_globals.ymax - 1; /* Clip to sp_globals.ymax boundary */ if ((last_y = sp_globals.y_band.band_min) < sp_globals.ymin) last_y = sp_globals.ymin; /* Clip to sp_globals.ymin boundary */ last_y -= sp_globals.y_band.band_min; #if DEBUG /* Print out all of the intercept info */ scan_line = sp_globals.ymax - first_y - 1; for (y = first_y - sp_globals.y_band.band_min; y >= last_y; y--, scan_line++) { i = y; /* Index head of intercept list */ while ((i = sp_intercepts.cdr[i]) != 0) /* Link to next intercept if present */ { if ((from = sp_intercepts.car[i] - sp_globals.xmin) < 0) from = 0; /* Clip to sp_globals.xmin boundary */ i = sp_intercepts.cdr[i]; /* Link to next intercept */ if (i == 0) /* End of list? */ { printf("****** proc_intercepts: odd number of intercepts\n"); break; } if ((to = sp_intercepts.car[i]) > sp_globals.xmax) to = sp_globals.xmax - sp_globals.xmin; /* Clip to sp_globals.xmax boundary */ else to -= sp_globals.xmin; printf(" Y = %2d (scanline %2d): %d %d:\n", y + sp_globals.y_band.band_min, scan_line, from, to); } } #endif /* CHECK INTERCEPT LIST FOR DROPOUT AND WINDING, FIX IF NECESSARY */ for (y = first_y - sp_globals.y_band.band_min; y >= last_y; y--) { previ = y; i = sp_intercepts.cdr[y]; /* Index head of intercept list */ while (i != 0) /* Link to next intercept if present */ { j = i; i = sp_intercepts.cdr[i]; /* Link to next intercept */ if (sp_intercepts.inttype[i] & LEFT_INT) { if (sp_intercepts.inttype[j] & LEFT_INT) { do { i = sp_intercepts.cdr[i]; } while (sp_intercepts.inttype[i] & LEFT_INT); do { i = sp_intercepts.cdr[i]; } while (sp_intercepts.cdr[i] && !(sp_intercepts.inttype[sp_intercepts.cdr[i]] & LEFT_INT)); sp_intercepts.cdr[j] = i; } else { xsave = sp_intercepts.car[j]; sp_intercepts.car[j] = sp_intercepts.car[i]; sp_intercepts.car[i] = xsave; xsave = sp_intercepts.inttype[j]; sp_intercepts.inttype[j] = sp_intercepts.inttype[i] & FRACTION; sp_intercepts.inttype[i] = xsave | LEFT_INT; sp_intercepts.cdr[previ] = i; sp_intercepts.cdr[j] = sp_intercepts.cdr[i]; sp_intercepts.cdr[i] = j; i = j; j = sp_intercepts.cdr[previ]; } } if (sp_intercepts.car[j] < sp_globals.xmin) sp_intercepts.car[j] = sp_globals.xmin; /* Clip to sp_globals.xmin boundary */ if (sp_intercepts.car[i] > sp_globals.xmax) sp_intercepts.car[i] = sp_globals.xmax; if (sp_intercepts.car[j] >= sp_intercepts.car[i]) { if ((ufix16)(sp_intercepts.inttype[j] & FRACTION) + (ufix16)(sp_intercepts.inttype[i] & FRACTION) > sp_intercepts.fracpix) ++sp_intercepts.car[i]; else --sp_intercepts.car[j]; } if (sp_globals.first_pass) { if (sp_intercepts.inttype[i-1] & END_INT) { for (iminus1 = i+1; !(sp_intercepts.inttype[iminus1] & END_INT); iminus1++) ; } else iminus1 = i-1; if (sp_intercepts.inttype[j] & END_INT) { for (jplus1 = j-1; !(sp_intercepts.inttype[jplus1] & END_INT); jplus1--) ; jplus1++; } else jplus1 = j+1; if ((sp_intercepts.inttype[iminus1] & LEFT_INT)) { if ( sp_intercepts.car[jplus1] > sp_intercepts.car[i]) { diff = sp_intercepts.car[jplus1] - sp_intercepts.car[i]; sp_intercepts.car[i] += diff/2; sp_intercepts.car[jplus1] -= diff/2; if (diff & 1) { if ((ufix16)(sp_intercepts.inttype[i] & FRACTION) + (ufix16)(sp_intercepts.inttype[jplus1] & FRACTION) > sp_intercepts.fracpix) sp_intercepts.car[i] ++; else sp_intercepts.car[jplus1]--; } } } else if (!(sp_intercepts.inttype[jplus1] & LEFT_INT)) { if (sp_intercepts.car[iminus1] < sp_intercepts.car[j]) { diff = sp_intercepts.car[j] - sp_intercepts.car[iminus1]; sp_intercepts.car[j] -= diff/2; sp_intercepts.car[iminus1] += diff/2; if (diff & 1) { if ((ufix16)(sp_intercepts.inttype[j] & FRACTION) + (ufix16)(sp_intercepts.inttype[iminus1] & FRACTION) > sp_intercepts.fracpix) sp_intercepts.car[iminus1]++; else sp_intercepts.car[j]--; } } } if (sp_globals.tcb.mirror == -1) { if (sp_intercepts.inttype[j-1] & END_INT) { for (jplus1 = j+1; !(sp_intercepts.inttype[jplus1] & END_INT); jplus1++) ; } else { jplus1 = j-1; } } if (!(sp_intercepts.inttype[jplus1] & LEFT_INT) && sp_intercepts.car[j] > sp_intercepts.car[jplus1]) { k = sp_intercepts.cdr[y - 1]; while (k > 0) { nextk = sp_intercepts.cdr[k]; if (!(sp_intercepts.inttype[k] & LEFT_INT) && (sp_intercepts.inttype[nextk] & LEFT_INT) && sp_intercepts.car[nextk] > sp_intercepts.car[jplus1]) { if ((diff=sp_intercepts.car[j] - sp_intercepts.car[k]) > 0) { if (diff <= (sp_intercepts.car[nextk] - sp_intercepts.car[jplus1])) { sp_intercepts.car[j] -= diff/2; sp_intercepts.car[k] += diff/2; if (diff & 1) { if ((ufix16)(sp_intercepts.inttype[j] & FRACTION) + (ufix16)(sp_intercepts.inttype[k] & FRACTION) > sp_intercepts.fracpix) sp_intercepts.car[j]--; else sp_intercepts.car[k]++; } } else { diff = sp_intercepts.car[nextk] - sp_intercepts.car[jplus1]; sp_intercepts.car[nextk] -= diff/2; sp_intercepts.car[jplus1] += diff/2; if (diff & 1) { if ((ufix16)(sp_intercepts.inttype[jplus1] & FRACTION) + (ufix16)(sp_intercepts.inttype[nextk] & FRACTION) > sp_intercepts.fracpix) sp_intercepts.car[nextk]--; else sp_intercepts.car[jplus1]++; } } } break; } k = nextk; } } if (j > 0 && sp_intercepts.car[j-1] > sp_intercepts.car[i] && !(sp_intercepts.inttype[j-1] & END_INT)) { diff = sp_intercepts.car[j-1] - sp_intercepts.car[i]; sp_intercepts.car[i] += diff/2; sp_intercepts.car[j-1] -= diff/2; if (diff & 1) { if ((ufix16)(sp_intercepts.inttype[i] & FRACTION) + (ufix16)(sp_intercepts.inttype[j-1] & FRACTION) > sp_intercepts.fracpix) sp_intercepts.car[i]++; else sp_intercepts.car[j-1]--; } } if (sp_intercepts.car[i+1] < sp_intercepts.car[j] && !(sp_intercepts.inttype[i] & END_INT)) { diff = sp_intercepts.car[j] - sp_intercepts.car[i+1]; sp_intercepts.car[j] -= diff/2; sp_intercepts.car[i+1] += diff/2; if (diff & 1) { if ((ufix16)(sp_intercepts.inttype[j] & FRACTION) + (ufix16)(sp_intercepts.inttype[i+1] & FRACTION) > sp_intercepts.fracpix) sp_intercepts.car[i+1]++; else sp_intercepts.car[j]--; } } previ = i; } i = sp_intercepts.cdr[i]; } } #if DEBUG printf("\nPROC_INTERCEPTS_SCREEN: Intercept lists after:\n"); /* Print out all of the intercept info */ scan_line = sp_globals.ymax - first_y - 1; for (y = first_y - sp_globals.y_band.band_min; y >= last_y; y--, scan_line++) { i = y; /* Index head of intercept list */ while ((i = sp_intercepts.cdr[i]) != 0) /* Link to next intercept if present */ { if ((from = sp_intercepts.car[i] - sp_globals.xmin) < 0) from = 0; /* Clip to sp_globals.xmin boundary */ i = sp_intercepts.cdr[i]; /* Link to next intercept */ if (i == 0) /* End of list? */ { printf("****** proc_intercepts: odd number of intercepts\n"); break; } if ((to = sp_intercepts.car[i]) > sp_globals.xmax) to = sp_globals.xmax - sp_globals.xmin; /* Clip to sp_globals.xmax boundary */ else to -= sp_globals.xmin; printf(" Y = %2d (scanline %2d): %d %d:\n", y + sp_globals.y_band.band_min, scan_line, from, to); } } #endif /* INTERCEPTS ALL PATCHED, NOW DRAW THE IMAGE */ scan_line = sp_globals.ymax - first_y - 1; for (y = first_y - sp_globals.y_band.band_min; y >= last_y; y--, scan_line++) { i = sp_intercepts.cdr[y]; /* Index head of intercept list */ while (i != 0) /* Link to next intercept if present */ { from = sp_intercepts.car[i]; i = sp_intercepts.cdr[i]; /* Link to next intercept */ to = sp_intercepts.car[i]; #if INCL_CLIPPING if (clipleft) { if (to <= xmin) { i = sp_intercepts.cdr[i]; continue; } if (from < xmin) from = xmin; } if (clipright) { if (from >= xmax) { i = sp_intercepts.cdr[i]; continue; } if (to > xmax) to = xmax; } #endif set_bitmap_bits(scan_line, from-sp_globals.xmin, to-sp_globals.xmin); i = sp_intercepts.cdr[i]; } } } #endif