implement Pdriver; include "sys.m"; sys: Sys; include "draw.m"; draw: Draw; Display, Font, Rect, Point, Image, Screen: import draw; include "bufio.m"; bufio: Bufio; Iobuf: import bufio; include "print.m"; Printer: import Print; include "scaler.m"; scaler: Scaler; K: con 0; C: con 1; M: con 2; Y: con 3; Clight: con 4; Mlight: con 5; HPTRUE: con 1; HPFALSE: con 0; TRUE: con 1; FALSE: con 0; # RGB pixel RGB: adt { r, g, b: byte; }; # KCMY pixel KCMY: adt { k, c, m, y: byte; }; DitherParms: adt { fNumPix: int; fInput: array of byte; fErr: array of int; fSymmetricFlag: int; fFEDRes: array of int; fRasterEvenOrOdd: int; fHifipe: int; fOutput1, fOutput2, fOutput3: array of byte; }; # magic and wondrous HP colour maps map1: array of KCMY; map2: array of KCMY; ABSOLUTE: con 1; RELATIVE: con 0; Compression := 1; DEBUG := 0; stderr: ref Sys->FD; outbuf: ref Iobuf; ESC: con 27; # Palettes for Simple_Color PALETTE_RGB: con 3; PALETTE_CMY: con -3; PALETTE_KCMY: con -4; PALETTE_K: con 1; # Initialization init(debug: int) { sys = load Sys Sys->PATH; stderr = sys->fildes(2); draw = load Draw Draw->PATH; bufio = load Bufio Bufio->PATH; scaler = load Scaler Scaler->PATH; if (scaler == nil) fatal("Failed to load Scaler module"); DEBUG = debug; } # Return printable area in pixels printable_pixels(p: ref Printer): (int, int) { HMARGIN: con 0.6; WMARGIN: con 0.3; winches := p.popt.paper.width_inches - 2.0*WMARGIN; hinches := p.popt.paper.height_inches - 2.0*HMARGIN; wres := real p.popt.mode.resx; hres := real p.popt.mode.resy; (x, y) := (int (winches*wres), int (hinches*hres)); if (p.popt.orientation == Print->PORTRAIT) return (x, y); return (y, x); } # Send image to printer MASK := array[] of {byte 1, byte 3, byte 15, byte 255, byte 255}; SHIFT := array[] of {7, 6, 4, 0}; GSFACTOR := array[] of {255.0, 255.0/3.0, 255.0/7.0, 1.0, 1.0}; lastp : ref Printer; Refint: adt { value: int; }; watchdog(cancel: chan of int, cancelled: ref Refint) { <- cancel; cancelled.value = 1; } sendimage(p: ref Printer, pfd: ref Sys->FD, display: ref Draw->Display, im: ref Draw->Image, width: int, lmargin: int, cancel: chan of int): int { grppid := sys->pctl(Sys->NEWPGRP, nil); cancelled := ref Refint(0); spawn watchdog(cancel, cancelled); outopen(pfd); dbg(sys->sprint("image depth=%d from %d,%d to %d,%d\n", im.depth, im.r.min.x, im.r.min.y, im.r.max.x, im.r.max.y)); if (p != lastp) { (map1, map2) = readmaps(p); lastp = p; } bpp := im.depth; linechan := chan of array of int; if (p.popt.orientation == Print->PORTRAIT) InputWidth := im.r.max.x-im.r.min.x; else InputWidth = im.r.max.y-im.r.min.y; AdjustedInputWidth := (InputWidth+7) - ((InputWidth+7) % 8); dbg(sys->sprint("bpp=%d, InputWidth=%d, AdjustedInputWidth=%d\n", bpp, InputWidth, AdjustedInputWidth)); if (p.popt.orientation == Print->PORTRAIT) spawn row_by_row(im, linechan, AdjustedInputWidth); else spawn rotate(im, linechan, AdjustedInputWidth); DesiredOutputWidth := AdjustedInputWidth; if (width > AdjustedInputWidth) DesiredOutputWidth = width; ScaledWidth := 8*((DesiredOutputWidth)/8); mode := p.popt.mode; Nplanes := 4; if (map2 != nil) Nplanes += 2; Contone := array[Nplanes] of array of byte; ColorDepth := array[Nplanes] of int; ColorDepth[K] = mode.blackdepth; for (col:=1; col 0}; } pcl_startjob(p); if (p.popt.paper.hpcode != "") PCL_Page_Size(p.popt.paper.hpcode); PCL_Move_CAP_H_Units(lmargin*300/BaseResX, ABSOLUTE); PCL_Configure_Raster_Data4(BaseResX, BaseResY, ColorDepth); PCL_Source_Raster_Width(ScaledWidth); PCL_Compression_Method(Compression); PCL_Start_Raster(1); cmap1 := setup_color_map(display, map1, im.depth); if (map2 != nil) cmap2 := setup_color_map(display, map2, im.depth); numerator, denominator: int; if ((ScaledWidth % AdjustedInputWidth)==0) { numerator = ScaledWidth / AdjustedInputWidth; denominator = 1; } else { numerator = ScaledWidth; denominator = AdjustedInputWidth; } rs := scaler->init(DEBUG, AdjustedInputWidth, numerator, denominator); rasterno := 0; col_row: array of int; eof := 0; while (!eof) { col_row = <- linechan; if (col_row == nil) eof++; scaler->rasterin(rs, col_row); while ((scaled_col_row := scaler->rasterout(rs)) != nil) { rasterno++; fRasterOdd := rasterno & 1; kcmy_row := SimpleColorMatch(cmap1, scaled_col_row); if (DEBUG) { dbg("Scaled Raster line:"); for (q:=0; qsprint("%d rgb=(%d,%d,%d) kcmy=(%d,%d,%d,%d)\n", int scaled_col_row[q], r, g, b, int kcmy_row[q].k, int kcmy_row[q].c, int kcmy_row[q].m, int kcmy_row[q].y)); } dbg("\n"); } Contone_K := Contone[K]; Contone_C := Contone[C]; Contone_M := Contone[M]; Contone_Y := Contone[Y]; for (ii:=0; ii 1; for (j=0; j < NumRows[i]; j++) { fDitherParms[i].fOutput1 = ColorPlane[i][j][0]; if (fDitherParms[i].fHifipe) fDitherParms[i].fOutput2 = ColorPlane[i][j][1]; # dbg(sys->sprint("Dither for Row %d ColorPlane[%d][%d]\n", rasterno, i, j)); Dither(fDitherParms[i]); } } FINALPLANE: con 3; # NfinalPlanes := 4; for (i=0; i<=FINALPLANE; i++) { cp_i := ColorPlane[i]; coldepth_i := ColorDepth[i]; finalrow := NumRows[i]-1; for (j=0; j<=finalrow; j++) { cp_i_j := cp_i[j]; for (k:=0; kprint("dlen %d, clen %d overruns %d\n", dlen, clen, overruns); return 0; } # Send text to printer sendtextfd(p: ref Print->Printer, pfd, tfd: ref Sys->FD, pointsize: real, proportional: int, wrap: int): int { outopen(pfd); pcl_startjob(p); if (wrap) PCL_End_of_Line_Wrap(0); LATIN1: con "0N"; PCL_Font_Symbol_Set(LATIN1); if (proportional) PCL_Font_Spacing(1); if (pointsize > 0.0) { PCL_Font_Height(pointsize); pitch := 10.0*12.0/pointsize; PCL_Font_Pitch(pitch); spacing := int (6.0*12.0/pointsize); PCL_Line_Spacing(spacing); dbg(sys->sprint("Text: pointsize %f pitch %f spacing %d\n", pointsize, pitch, spacing)); } PCL_Line_Termination(3); inbuf := bufio->fopen(tfd, Bufio->OREAD); while ((line := inbuf.gets('\n')) != nil) { ob := array of byte line; outwrite(ob, len ob); } PCL_Reset(); outclose(); return 0; } # Common PCL start pcl_startjob(p: ref Printer) { PCL_Reset(); if (p.popt.duplex) { esc("%-12345X@PJL DEFAULT DUPLEX=ON\n"); esc("%-12345X"); } if (p.popt.paper.hpcode != "") PCL_Page_Size(p.popt.paper.hpcode); PCL_Orientation(p.popt.orientation); PCL_Duplex(p.popt.duplex); } # Spawned to return sequence of rotated image rows rotate(im: ref Draw->Image, linechan: chan of array of int, adjwidth: int) { xmin := im.r.min.x; xmax := im.r.max.x; InputWidth := xmax - xmin; rawchan := chan of array of int; spawn row_by_row(im, rawchan, InputWidth); r_image := array[InputWidth] of {* => array [adjwidth] of {* => 0}}; r_row := 0; while ((col_row := <- rawchan) != nil) { endy := len col_row - 1; for (i:=0; iImage, linechan: chan of array of int, adjwidth: int) { xmin := im.r.min.x; ymin := im.r.min.y; xmax := im.r.max.x; ymax := im.r.max.y; InputWidth := xmax - xmin; bpp := im.depth; ld := ldepth(im.depth); bytesperline := (InputWidth*bpp+7)/8; rdata := array[bytesperline+10] of byte; pad0 := array [7] of { * => 0}; for (y:=ymin; ysprint("Input Raster line %d: np=%d\n ", y, np)); ind := 0; mask := MASK[ld]; shift := SHIFT[ld]; col_row[adjwidth-7:] = pad0; # Pad to adjusted width with white data := rdata[ind]; for (q:=0; q> shift) & mask); shift -= bpp; if (shift < 0) { shift = SHIFT[ld]; ind++; data = rdata[ind]; } col_row[q] = col; } linechan <-= col_row; } linechan <-= nil; } # PCL output routines PCL_Reset() { esc("E"); } PCL_Orientation(value: int) { esc(sys->sprint("&l%dO", value)); } PCL_Duplex(value: int) { esc(sys->sprint("&l%dS", value)); } PCL_Left_Margin(value: int) { esc(sys->sprint("&a%dL", value)); } PCL_Page_Size(value: string) { esc(sys->sprint("&l%sA", value)); } PCL_End_of_Line_Wrap(value: int) { esc(sys->sprint("&s%dC", value)); } PCL_Line_Termination(value: int) { esc(sys->sprint("&k%dG", value)); } PCL_Font_Symbol_Set(value: string) { esc(sys->sprint("(%s", value)); } PCL_Font_Pitch(value: real) { esc(sys->sprint("(s%2.2fH", value)); } PCL_Font_Spacing(value: int) { esc(sys->sprint("(s%dP", value)); } PCL_Font_Height(value: real) { esc(sys->sprint("(s%2.2fV", value)); } PCL_Line_Spacing(value: int) { esc(sys->sprint("&l%dD", value)); } PCL_Start_Raster(current: int) { flag := 0; if (current) flag = 1; esc(sys->sprint("*r%dA", flag)); } PCL_End_Raster() { esc("*rC"); } PCL_Raster_Resolution(ppi: int) { esc(sys->sprint("*t%dR", ppi)); } PCL_Source_Raster_Width(pixels: int) { esc(sys->sprint("*r%dS", pixels)); } PCL_Simple_Color(palette: int) { esc(sys->sprint("*r%dU", palette)); } PCL_Compression_Method(ctype: int) { esc(sys->sprint("*b%dM", ctype)); } PCL_Move_CAP_V_Rows(pos: int, absolute: int) { plus := ""; if (!absolute && pos > 0) plus = "+"; esc(sys->sprint("&a%s%dR", plus, pos)); } PCL_Move_CAP_H_Cols(pos: int, absolute: int) { plus := ""; if (!absolute && pos > 0) plus = "+"; esc(sys->sprint("&a%s%dC", plus, pos)); } # These Units are 1/300 of an inch. PCL_Move_CAP_H_Units(pos: int, absolute: int) { plus := ""; if (!absolute && pos > 0) plus = "+"; esc(sys->sprint("*p%s%dX", plus, pos)); } PCL_Move_CAP_V_Units(pos: int, absolute: int) { plus := ""; if (!absolute && pos > 0) plus = "+"; esc(sys->sprint("*p%s%dY", plus, pos)); } PCL_Configure_Raster_Data4(hres, vres: int, ColorDepth: array of int) { ncomponents := 4; msg := array[ncomponents*6 + 2] of byte; i := 0; msg[i++] = byte 2; # Format msg[i++] = byte ncomponents; # KCMY for (c:=0; csprint("%d(%x) ", int msg[ii], int msg[ii])); dbg("\n"); } esc(sys->sprint("*g%dW", len msg)); outwrite(msg, len msg); } dlen := 0; clen := 0; overruns := 0; PCL_Transfer_Raster_Plane(data: array of byte) { if (DEBUG) { dbg("Transfer_Raster_Plane:"); for (i:=0; isprint(" %x", int data[i])); dbg("\n"); } if (Compression) { d := len data; dlen += d; data = compress(data); c := len data; clen += c; if (c > d) overruns += c-d; if (DEBUG) { dbg("Compressed Transfer_Raster_Plane:"); for (i:=0; isprint(" %x", int data[i])); dbg("\n"); } } esc(sys->sprint("*b%dV", len data)); outwrite(data, len data); } PCL_Transfer_Raster_Row(data: array of byte) { if (DEBUG) { dbg("Transfer_Raster_Row:"); for (i:=0; isprint(" %x", int data[i])); dbg("\n"); } if (Compression) { data = compress(data); if (DEBUG) { dbg("Compressed Transfer_Raster_Row:"); for (i:=0; isprint(" %x", int data[i])); dbg("\n"); } } esc(sys->sprint("*b%dW", len data)); outwrite(data, len data); } outopen(fd: ref Sys->FD) { outbuf = bufio->fopen(fd, Bufio->OWRITE); if (outbuf == nil) sys->fprint(stderr, "Failed to open output fd: %r\n"); } outclose() { outbuf.close(); } # Write to output using buffered io outwrite(data: array of byte, length: int) { outbuf.write(data, length); } # Send escape code to printer esc(s: string) { os := sys->sprint("%c%s", ESC, s); ob := array of byte os; outwrite(ob, len ob); } # Read all the maps readmaps(p: ref Printer): (array of KCMY, array of KCMY) { mapfile := p.ptype.hpmapfile; mapf1 := Pdriver->DATAPREFIX + mapfile + ".map"; m1 := read_map(mapf1); if (m1 == nil) fatal("Failed to read map file"); mapf2 := Pdriver->DATAPREFIX + mapfile + "_2.map"; m2 := read_map(mapf2); return (m1, m2); } # Read a map file read_map(mapfile: string) : array of KCMY { mf := bufio->open(mapfile, bufio->OREAD); if (mf == nil) return nil; CUBESIZE: con 9*9*9; marray := array[CUBESIZE] of KCMY; i := 0; while (i mf.gets('\n')) != nil) { (n, toks) := sys->tokenize(lstr, " \t"); if (n >= 4) { marray[i].k = byte int hd toks; toks = tl toks; marray[i].c = byte int hd toks; toks = tl toks; marray[i].m = byte int hd toks; toks = tl toks; marray[i].y = byte int hd toks; i++; } } return marray; } # Big interpolation routine # static data prev := RGB (byte 255, byte 255, byte 255); result: KCMY; offset := array[] of { 0, 1, 9, 10, 81, 82, 90, 91 }; Interpolate(map: array of KCMY, start: int, rgb: RGB, firstpixel: int): KCMY { cyan := array[8] of int; magenta := array[8] of int; yellow := array[8] of int; black := array[8] of int; if (firstpixel || prev.r != rgb.r || prev.g != rgb.g || prev.b != rgb.b) { prev = rgb; for (j:=0; j<8; j++) { ioff := start+offset[j]; cyan[j] = int map[ioff].c; magenta[j] = int map[ioff].m; yellow[j] = int map[ioff].y; black[j] = int map[ioff].k; } diff_red := int rgb.r & 16r1f; diff_green := int rgb.g & 16r1f; diff_blue := int rgb.b & 16r1f; result.c = byte (((cyan[0] + ( ( (cyan[4] - cyan[0] ) * diff_red) >> 5)) + ( ( ((cyan[2] + ( ( (cyan[6] - cyan[2] ) * diff_red) >> 5)) -(cyan[0] + ( ( (cyan[4] - cyan[0] ) * diff_red) >> 5)) ) * diff_green) >> 5)) + ( ( (((cyan[1] + ( ( (cyan[5] - cyan[1] ) * diff_red) >> 5)) + ( ( ((cyan[3] + ( ( (cyan[7] - cyan[3] ) * diff_red) >> 5)) -(cyan[1] + ( ( (cyan[5] - cyan[1] ) * diff_red) >> 5)) ) * diff_green) >> 5)) -((cyan[0] + ( ( (cyan[4] - cyan[0] ) * diff_red) >> 5)) + ( ( ((cyan[2] + ( ( (cyan[6] - cyan[2] ) * diff_red) >> 5)) -(cyan[0] + ( ( (cyan[4] - cyan[0] ) * diff_red) >> 5)) ) * diff_green) >> 5)) ) * diff_blue) >> 5)); result.m = byte (((magenta[0] + ( ( (magenta[4] - magenta[0] ) * diff_red) >> 5)) + ( ( ((magenta[2] + ( ( (magenta[6] - magenta[2] ) * diff_red) >> 5)) -(magenta[0] + ( ( (magenta[4] - magenta[0] ) * diff_red) >> 5)) ) * diff_green) >> 5)) + ( ( (((magenta[1] + ( ( (magenta[5] - magenta[1] ) * diff_red) >> 5)) + ( ( ((magenta[3] + ( ( (magenta[7] - magenta[3] ) * diff_red) >> 5)) -(magenta[1] + ( ( (magenta[5] - magenta[1] ) * diff_red) >> 5)) ) * diff_green) >> 5)) -((magenta[0] + ( ( (magenta[4] - magenta[0] ) * diff_red) >> 5)) + ( ( ((magenta[2] + ( ( (magenta[6] - magenta[2] ) * diff_red) >> 5)) -(magenta[0] + ( ( (magenta[4] - magenta[0] ) * diff_red) >> 5)) ) * diff_green) >> 5)) ) * diff_blue) >> 5)); result.y = byte (((yellow[0] + ( ( (yellow[4] - yellow[0] ) * diff_red) >> 5)) + ( ( ((yellow[2] + ( ( (yellow[6] - yellow[2] ) * diff_red) >> 5)) -(yellow[0] + ( ( (yellow[4] - yellow[0] ) * diff_red) >> 5)) ) * diff_green) >> 5)) + ( ( (((yellow[1] + ( ( (yellow[5] - yellow[1] ) * diff_red) >> 5)) + ( ( ((yellow[3] + ( ( (yellow[7] - yellow[3] ) * diff_red) >> 5)) -(yellow[1] + ( ( (yellow[5] - yellow[1] ) * diff_red) >> 5)) ) * diff_green) >> 5)) -((yellow[0] + ( ( (yellow[4] - yellow[0] ) * diff_red) >> 5)) + ( ( ((yellow[2] + ( ( (yellow[6] - yellow[2] ) * diff_red) >> 5)) -(yellow[0] + ( ( (yellow[4] - yellow[0] ) * diff_red) >> 5)) ) * diff_green) >> 5)) ) * diff_blue) >> 5)); result.k = byte (((black[0] + ( ( (black[4] - black[0] ) * diff_red) >> 5)) + ( ( ((black[2] + ( ( (black[6] - black[2] ) * diff_red) >> 5)) -(black[0] + ( ( (black[4] - black[0] ) * diff_red) >> 5)) ) * diff_green) >> 5)) + ( ( (((black[1] + ( ( (black[5] - black[1] ) * diff_red) >> 5)) + ( ( ((black[3] + ( ( (black[7] - black[3] ) * diff_red) >> 5)) -(black[1] + ( ( (black[5] - black[1] ) * diff_red) >> 5)) ) * diff_green) >> 5)) -((black[0] + ( ( (black[4] - black[0] ) * diff_red) >> 5)) + ( ( ((black[2] + ( ( (black[6] - black[2] ) * diff_red) >> 5)) -(black[0] + ( ( (black[4] - black[0] ) * diff_red) >> 5)) ) * diff_green) >> 5)) ) * diff_blue) >> 5)); } return result; } # Colour RGB to KCMY convertor ColorMatch(map: array of KCMY, row: array of RGB): array of KCMY { kcmy := array[len row] of KCMY; first := 1; for (i:=0; i> 1) + (r >> 5) + ((g & 16re0) >> 2) + (g >> 5) + (b >> 5); kcmy[i] = Interpolate(map, start, row[i], first); # dbg(sys->sprint("+++ for (%d,%d,%d) Interpolate returned (%d,%d,%d,%d)\n", r, g, b, int kcmy[i].k, int kcmy[i].c, int kcmy[i].m, int kcmy[i].y)); first = 0; } return kcmy; } # Simple version of above to lookup precalculated values SimpleColorMatch(cmap: array of KCMY, colrow: array of int): array of KCMY { ncolrow := len colrow; kcmy_row := array[ncolrow] of KCMY; for (i:=0; i= 16) return 4; for(i := 0; i < 3; i++) if(d <= (1<= 8) { (r, g, b) := display.cmap2rgb(i); rgb_row[i] = RGB (byte r, byte g, byte b); } else { # BW or Greyscale grey := byte (255-int (real i * gsfactor)); rgb_row[i] = RGB (grey, grey, grey); } } kcmy_row := ColorMatch(map, rgb_row); return kcmy_row; } # Dithering tmpShortStore: int; diffusionErrorPtr := 1; # for serpentine?? errPtr: array of int; rasterByte1 := 0; rasterByte2 := 0; rand8 := array [8] of int; pad8 := array [8] of {* => 0}; Dither(ditherParms: DitherParms) { errPtr = ditherParms.fErr; numLoop := ditherParms.fNumPix; inputPtr := 0; fedResTbl := ditherParms.fFEDRes; symmetricFlag := ditherParms.fSymmetricFlag; doNext8Pixels : int; hifipe := ditherParms.fHifipe; outputPtr1 := 0; outputPtr2 := 0; diffusionErrorPtr = 1; fInput := ditherParms.fInput; if(ditherParms.fRasterEvenOrOdd) { tmpShortStore = errPtr[diffusionErrorPtr]; errPtr[diffusionErrorPtr] = 0; for (pixelCount := numLoop + 8; (pixelCount -= 8) > 0; ) { if (pixelCount > 16) { # if next 16 pixels are white, skip 8 # doNext8Pixels = Forward16PixelsNonWhite(fInput, inputPtr); doNext8Pixels = 0; lim := inputPtr + 16; for (i := inputPtr; i < lim; i++) { if (fInput[i] != byte 0) { doNext8Pixels = 1; break; } } } else { doNext8Pixels = 1; } if (doNext8Pixels) { FORWARD_FED8(fInput, inputPtr, fedResTbl); inputPtr += 8; # HPRand8(); # FORWARD_FED(rand8[0], 16r80, fInput[inputPtr++], fedResTbl); # FORWARD_FED(rand8[1], 16r40, fInput[inputPtr++], fedResTbl); # FORWARD_FED(rand8[2], 16r20, fInput[inputPtr++], fedResTbl); # FORWARD_FED(rand8[3], 16r10, fInput[inputPtr++], fedResTbl); # FORWARD_FED(rand8[4], 16r08, fInput[inputPtr++], fedResTbl); # FORWARD_FED(rand8[5], 16r04, fInput[inputPtr++], fedResTbl); # FORWARD_FED(rand8[6], 16r02, fInput[inputPtr++], fedResTbl); # FORWARD_FED(rand8[7], 16r01, fInput[inputPtr++], fedResTbl); ditherParms.fOutput1[outputPtr1++] = byte rasterByte1; rasterByte1 = 0; if (hifipe) { ditherParms.fOutput2[outputPtr2++] = byte rasterByte2; rasterByte2 = 0; } } else { # Do white space skipping inputPtr += 8; ditherParms.fOutput1[outputPtr1++] = byte 0; if (hifipe) { ditherParms.fOutput2[outputPtr2++] = byte 0; } errPtr[diffusionErrorPtr:] = pad8; diffusionErrorPtr += 8; rasterByte1 = 0; rasterByte2 = 0; tmpShortStore = 0; } } # for pixelCount } else { rasterByte1 = 0; rasterByte2 = 0; inputPtr += ( numLoop-1 ); outputPtr1 += ( numLoop/8 - 1 ); outputPtr2 += ( numLoop/8 - 1 ); diffusionErrorPtr += ( numLoop-1 ); tmpShortStore = errPtr[diffusionErrorPtr]; errPtr[diffusionErrorPtr] = 0; for (pixelCount := numLoop + 8; (pixelCount -= 8) > 0; ) { if (pixelCount > 16) { # if next 16 pixels are white, skip 8 # doNext8Pixels = Backward16PixelsNonWhite(fInput, inputPtr); doNext8Pixels = 0; lim := inputPtr - 16; for (i := inputPtr; i > lim; i--) { if (fInput[i] != byte 0) { doNext8Pixels = 1; break; } } } else { doNext8Pixels = HPTRUE; } if (doNext8Pixels) { BACKWARD_FED8(fInput, inputPtr, fedResTbl); inputPtr -= 8; # HPRand8(); # BACKWARD_FED(rand8[0], 16r01, fInput[inputPtr--], fedResTbl); # BACKWARD_FED(rand8[1], 16r02, fInput[inputPtr--], fedResTbl); # BACKWARD_FED(rand8[2], 16r04, fInput[inputPtr--], fedResTbl); # BACKWARD_FED(rand8[3], 16r08, fInput[inputPtr--], fedResTbl); # BACKWARD_FED(rand8[4], 16r10, fInput[inputPtr--], fedResTbl); # BACKWARD_FED(rand8[5], 16r20, fInput[inputPtr--], fedResTbl); # BACKWARD_FED(rand8[6], 16r40, fInput[inputPtr--], fedResTbl); # BACKWARD_FED(rand8[7], 16r80, fInput[inputPtr--], fedResTbl); ditherParms.fOutput1[outputPtr1-- ]= byte rasterByte1; rasterByte1 = 0; if (hifipe) { ditherParms.fOutput2[outputPtr2--] = byte rasterByte2; rasterByte2 = 0; } } else { # Do white space skipping inputPtr -= 8; ditherParms.fOutput1[outputPtr1--] = byte 0; if (hifipe) { ditherParms.fOutput2[outputPtr2--] = byte 0; } diffusionErrorPtr -= 8; errPtr[diffusionErrorPtr:] = pad8; rasterByte1 = 0; rasterByte2 = 0; tmpShortStore = 0; } } } } # Take a step back Backward16PixelsNonWhite(ba: array of byte, inputPtr: int): int { lim := inputPtr - 16; for (i := inputPtr; i > lim; i--) { if (ba[i] != byte 0) return TRUE; } return FALSE; } # Take a step forward Forward16PixelsNonWhite(ba: array of byte, inputPtr: int): int { lim := inputPtr + 16; for (i := inputPtr; i < lim; i++) { if (ba[i] != byte 0) return TRUE; } return FALSE; } FORWARD_FED8(input: array of byte, ix: int, fedResTbl: array of int) { HPRand8(); randix := 0; for (bitMask := 16r80; bitMask; bitMask >>= 1) { tone := int input[ix++]; fedResPtr := tone << 2; level := fedResTbl[fedResPtr]; if (tone != 0) { tone = ( tmpShortStore + int fedResTbl[fedResPtr+1] ); if (tone >= rand8[randix++]) { tone -= 255; level++; } case (level) { 0=> break; 1=> rasterByte1 |= bitMask; break; 2=> rasterByte2 |= bitMask; break; 3=> rasterByte2 |= bitMask; rasterByte1 |= bitMask; break; 4=> break; 5=> rasterByte1 |= bitMask; break; 6=> rasterByte2 |= bitMask; break; 7=> rasterByte2 |= bitMask; rasterByte1 |= bitMask; break; } } else { tone = tmpShortStore; } halftone := tone >> 1; errPtr[diffusionErrorPtr++] = halftone; tmpShortStore = errPtr[diffusionErrorPtr] + (tone - halftone); } } #FORWARD_FED(thresholdValue: int, bitMask: int, toneb: byte, fedResTbl : array of int) #{ # tone := int toneb; # fedResPtr := (tone << 2); # level := fedResTbl[fedResPtr]; # if (tone != 0) { # tone = ( tmpShortStore + int fedResTbl[fedResPtr+1] ); # if (tone >= thresholdValue) { # tone -= 255; # level++; # } # case (level) { # 0=> # break; # 1=> # rasterByte1 |= bitMask; # break; # 2=> # rasterByte2 |= bitMask; # break; # 3=> # rasterByte2 |= bitMask; rasterByte1 |= bitMask; # break; # 4=> # break; # 5=> # rasterByte1 |= bitMask; # break; # 6=> # rasterByte2 |= bitMask; # break; # 7=> # rasterByte2 |= bitMask; rasterByte1 |= bitMask; # break; # } # } else { # tone = tmpShortStore; # } # halftone := tone >> 1; # errPtr[diffusionErrorPtr++] = halftone; # tmpShortStore = errPtr[diffusionErrorPtr] + (tone - halftone); ## dbg(sys->sprint("FORWARD_FED: thresh %d bitMask %x toneb %d => rasterbytes %d,%d,%d\n", thresholdValue, bitMask, int toneb, rasterByte1, rasterByte2)); #} BACKWARD_FED8(input: array of byte, ix: int, fedResTbl: array of int) { HPRand8(); randix := 0; for (bitMask := 16r01; bitMask <16r100; bitMask <<= 1) { tone := int input[ix--]; fedResPtr := (tone << 2); level := fedResTbl[fedResPtr]; if (tone != 0) { tone = ( tmpShortStore + int fedResTbl[fedResPtr+1] ); if (tone >= rand8[randix++]) { tone -= 255; level++; } case (level) { 0=> break; 1=> rasterByte1 |= bitMask; break; 2=> rasterByte2 |= bitMask; break; 3=> rasterByte2 |= bitMask; rasterByte1 |= bitMask; break; 4=> break; 5=> rasterByte1 |= bitMask; break; 6=> rasterByte2 |= bitMask; break; 7=> rasterByte2 |= bitMask; rasterByte1 |= bitMask; break; } } else { tone = tmpShortStore; } halftone := tone >> 1; errPtr[diffusionErrorPtr--] = halftone; tmpShortStore = errPtr[diffusionErrorPtr] + (tone - halftone); } } #BACKWARD_FED(thresholdValue: int, bitMask: int, toneb: byte, fedResTbl : array of int) #{ # tone := int toneb; # fedResPtr := (tone << 2); # level := fedResTbl[fedResPtr]; # if (tone != 0) { # tone = ( tmpShortStore + int fedResTbl[fedResPtr+1] ); # if (tone >= thresholdValue) { # tone -= 255; # level++; # } # case (level) { # 0=> # break; # 1=> # rasterByte1 |= bitMask; # break; # 2=> # rasterByte2 |= bitMask; # break; # 3=> # rasterByte2 |= bitMask; rasterByte1 |= bitMask; # break; # 4=> # break; # 5=> # rasterByte1 |= bitMask; # break; # 6=> # rasterByte2 |= bitMask; # break; # 7=> # rasterByte2 |= bitMask; rasterByte1 |= bitMask; # break; # } # } else { # tone = tmpShortStore; # } # halftone := tone >> 1; # errPtr[diffusionErrorPtr--] = halftone; # tmpShortStore = errPtr[diffusionErrorPtr] + (tone - halftone); ## dbg(sys->sprint("BACWARD_FED: thresh %d bitMask %x toneb %d => rasterbytes %d,%d,%d\n", thresholdValue, bitMask, int toneb, rasterByte1, rasterByte2)); #} # Pixel replication pixrep(in: array of RGB): array of RGB { out := array[2*len in] of RGB; for (i:=0; ifprint(stderr, "%s\n", s); exit; } killgrp(pid: int) { sys->fprint(sys->open("/prog/" + string pid +"/ctl", Sys->OWRITE), "killgrp"); } dbg(s: string) { if (DEBUG) sys->fprint(stderr, "%s", s); } # Uninteresting constants FEDarray := array[1024] of { 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 3 , 0 , 0 , 0 , 4 , 0 , 0 , 0 , 5 , 0 , 0 , 0 , 6 , 0 , 0 , 0 , 7 , 0 , 0 , 0 , 8 , 0 , 0 , 0 , 9 , 0 , 0 , 0 , 10 , 0 , 0 , 0 , 11 , 0 , 0 , 0 , 12 , 0 , 0 , 0 , 13 , 0 , 0 , 0 , 14 , 0 , 0 , 0 , 15 , 0 , 0 , 0 , 16 , 0 , 0 , 0 , 17 , 0 , 0 , 0 , 18 , 0 , 0 , 0 , 19 , 0 , 0 , 0 , 20 , 0 , 0 , 0 , 21 , 0 , 0 , 0 , 22 , 0 , 0 , 0 , 23 , 0 , 0 , 0 , 24 , 0 , 0 , 0 , 25 , 0 , 0 , 0 , 26 , 0 , 0 , 0 , 27 , 0 , 0 , 0 , 28 , 0 , 0 , 0 , 29 , 0 , 0 , 0 , 30 , 0 , 0 , 0 , 31 , 0 , 0 , 0 , 32 , 0 , 0 , 0 , 33 , 0 , 0 , 0 , 34 , 0 , 0 , 0 , 35 , 0 , 0 , 0 , 36 , 0 , 0 , 0 , 37 , 0 , 0 , 0 , 38 , 0 , 0 , 0 , 39 , 0 , 0 , 0 , 40 , 0 , 0 , 0 , 41 , 0 , 0 , 0 , 42 , 0 , 0 , 0 , 43 , 0 , 0 , 0 , 44 , 0 , 0 , 0 , 45 , 0 , 0 , 0 , 46 , 0 , 0 , 0 , 47 , 0 , 0 , 0 , 48 , 0 , 0 , 0 , 49 , 0 , 0 , 0 , 50 , 0 , 0 , 0 , 51 , 0 , 0 , 0 , 52 , 0 , 0 , 0 , 53 , 0 , 0 , 0 , 54 , 0 , 0 , 0 , 55 , 0 , 0 , 0 , 56 , 0 , 0 , 0 , 57 , 0 , 0 , 0 , 58 , 0 , 0 , 0 , 59 , 0 , 0 , 0 , 60 , 0 , 0 , 0 , 61 , 0 , 0 , 0 , 62 , 0 , 0 , 0 , 63 , 0 , 0 , 0 , 64 , 0 , 0 , 0 , 65 , 0 , 0 , 0 , 66 , 0 , 0 , 0 , 67 , 0 , 0 , 0 , 68 , 0 , 0 , 0 , 69 , 0 , 0 , 0 , 70 , 0 , 0 , 0 , 71 , 0 , 0 , 0 , 72 , 0 , 0 , 0 , 73 , 0 , 0 , 0 , 74 , 0 , 0 , 0 , 75 , 0 , 0 , 0 , 76 , 0 , 0 , 0 , 77 , 0 , 0 , 0 , 78 , 0 , 0 , 0 , 79 , 0 , 0 , 0 , 80 , 0 , 0 , 0 , 81 , 0 , 0 , 0 , 82 , 0 , 0 , 0 , 83 , 0 , 0 , 0 , 84 , 0 , 0 , 0 , 85 , 0 , 0 , 0 , 86 , 0 , 0 , 0 , 87 , 0 , 0 , 0 , 88 , 0 , 0 , 0 , 89 , 0 , 0 , 0 , 90 , 0 , 0 , 0 , 91 , 0 , 0 , 0 , 92 , 0 , 0 , 0 , 93 , 0 , 0 , 0 , 94 , 0 , 0 , 0 , 95 , 0 , 0 , 0 , 96 , 0 , 0 , 0 , 97 , 0 , 0 , 0 , 98 , 0 , 0 , 0 , 99 , 0 , 0 , 0 , 100 , 0 , 0 , 0 , 101 , 0 , 0 , 0 , 102 , 0 , 0 , 0 , 103 , 0 , 0 , 0 , 104 , 0 , 0 , 0 , 105 , 0 , 0 , 0 , 106 , 0 , 0 , 0 , 107 , 0 , 0 , 0 , 108 , 0 , 0 , 0 , 109 , 0 , 0 , 0 , 110 , 0 , 0 , 0 , 111 , 0 , 0 , 0 , 112 , 0 , 0 , 0 , 113 , 0 , 0 , 0 , 114 , 0 , 0 , 0 , 115 , 0 , 0 , 0 , 116 , 0 , 0 , 0 , 117 , 0 , 0 , 0 , 118 , 0 , 0 , 0 , 119 , 0 , 0 , 0 , 120 , 0 , 0 , 0 , 121 , 0 , 0 , 0 , 122 , 0 , 0 , 0 , 123 , 0 , 0 , 0 , 124 , 0 , 0 , 0 , 125 , 0 , 0 , 0 , 126 , 0 , 0 , 0 , 127 , 0 , 0 , 0 , 128 , 0 , 0 , 0 , 129 , 0 , 0 , 0 , 130 , 0 , 0 , 0 , 131 , 0 , 0 , 0 , 132 , 0 , 0 , 0 , 133 , 0 , 0 , 0 , 134 , 0 , 0 , 0 , 135 , 0 , 0 , 0 , 136 , 0 , 0 , 0 , 137 , 0 , 0 , 0 , 138 , 0 , 0 , 0 , 139 , 0 , 0 , 0 , 140 , 0 , 0 , 0 , 141 , 0 , 0 , 0 , 142 , 0 , 0 , 0 , 143 , 0 , 0 , 0 , 144 , 0 , 0 , 0 , 145 , 0 , 0 , 0 , 146 , 0 , 0 , 0 , 147 , 0 , 0 , 0 , 148 , 0 , 0 , 0 , 149 , 0 , 0 , 0 , 150 , 0 , 0 , 0 , 151 , 0 , 0 , 0 , 152 , 0 , 0 , 0 , 153 , 0 , 0 , 0 , 154 , 0 , 0 , 0 , 155 , 0 , 0 , 0 , 156 , 0 , 0 , 0 , 157 , 0 , 0 , 0 , 158 , 0 , 0 , 0 , 159 , 0 , 0 , 0 , 160 , 0 , 0 , 0 , 161 , 0 , 0 , 0 , 162 , 0 , 0 , 0 , 163 , 0 , 0 , 0 , 164 , 0 , 0 , 0 , 165 , 0 , 0 , 0 , 166 , 0 , 0 , 0 , 167 , 0 , 0 , 0 , 168 , 0 , 0 , 0 , 169 , 0 , 0 , 0 , 170 , 0 , 0 , 0 , 171 , 0 , 0 , 0 , 172 , 0 , 0 , 0 , 173 , 0 , 0 , 0 , 174 , 0 , 0 , 0 , 175 , 0 , 0 , 0 , 176 , 0 , 0 , 0 , 177 , 0 , 0 , 0 , 178 , 0 , 0 , 0 , 179 , 0 , 0 , 0 , 180 , 0 , 0 , 0 , 181 , 0 , 0 , 0 , 182 , 0 , 0 , 0 , 183 , 0 , 0 , 0 , 184 , 0 , 0 , 0 , 185 , 0 , 0 , 0 , 186 , 0 , 0 , 0 , 187 , 0 , 0 , 0 , 188 , 0 , 0 , 0 , 189 , 0 , 0 , 0 , 190 , 0 , 0 , 0 , 191 , 0 , 0 , 0 , 192 , 0 , 0 , 0 , 193 , 0 , 0 , 0 , 194 , 0 , 0 , 0 , 195 , 0 , 0 , 0 , 196 , 0 , 0 , 0 , 197 , 0 , 0 , 0 , 198 , 0 , 0 , 0 , 199 , 0 , 0 , 0 , 200 , 0 , 0 , 0 , 201 , 0 , 0 , 0 , 202 , 0 , 0 , 0 , 203 , 0 , 0 , 0 , 204 , 0 , 0 , 0 , 205 , 0 , 0 , 0 , 206 , 0 , 0 , 0 , 207 , 0 , 0 , 0 , 208 , 0 , 0 , 0 , 209 , 0 , 0 , 0 , 210 , 0 , 0 , 0 , 211 , 0 , 0 , 0 , 212 , 0 , 0 , 0 , 213 , 0 , 0 , 0 , 214 , 0 , 0 , 0 , 215 , 0 , 0 , 0 , 216 , 0 , 0 , 0 , 217 , 0 , 0 , 0 , 218 , 0 , 0 , 0 , 219 , 0 , 0 , 0 , 220 , 0 , 0 , 0 , 221 , 0 , 0 , 0 , 222 , 0 , 0 , 0 , 223 , 0 , 0 , 0 , 224 , 0 , 0 , 0 , 225 , 0 , 0 , 0 , 226 , 0 , 0 , 0 , 227 , 0 , 0 , 0 , 228 , 0 , 0 , 0 , 229 , 0 , 0 , 0 , 230 , 0 , 0 , 0 , 231 , 0 , 0 , 0 , 232 , 0 , 0 , 0 , 233 , 0 , 0 , 0 , 234 , 0 , 0 , 0 , 235 , 0 , 0 , 0 , 236 , 0 , 0 , 0 , 237 , 0 , 0 , 0 , 238 , 0 , 0 , 0 , 239 , 0 , 0 , 0 , 240 , 0 , 0 , 0 , 241 , 0 , 0 , 0 , 242 , 0 , 0 , 0 , 243 , 0 , 0 , 0 , 244 , 0 , 0 , 0 , 245 , 0 , 0 , 0 , 246 , 0 , 0 , 0 , 247 , 0 , 0 , 0 , 248 , 0 , 0 , 0 , 249 , 0 , 0 , 0 , 250 , 0 , 0 , 0 , 251 , 0 , 0 , 0 , 252 , 0 , 0 , 0 , 253 , 0 , 0 , 0 , 254 , 0 , 0 , 0 , 254 , 0 , 0 };