/* $Id: ljii.c,v 1.3 2007/05/08 09:09:37 rice Exp $ PLplot Laser Jet II device driver. Note only the 150 dpi mode is supported. The others (75,100,300) should work by just changing the value of DPI and changing the values passed to plP_setphy(). */ #include "plDevs.h" #ifdef PLD_ljii #include "plplotP.h" #include "drivers.h" #include #include #ifdef __GO32__ /* dos386/djgpp */ #ifdef MSDOS #undef MSDOS #endif #endif /* Device info */ const char* plD_DEVICE_INFO_ljii = "ljii:LaserJet II Bitmap File (150 dpi):0:ljii:33:ljii"; /* Function prototypes */ /* pmr: in drivers.h */ /* void plD_dispatch_init_ljii ( PLDispatchTable *pdt ); */ void plD_init_ljii (PLStream *); void plD_line_ljii (PLStream *, short, short, short, short); void plD_polyline_ljii (PLStream *, short *, short *, PLINT); void plD_eop_ljii (PLStream *); void plD_bop_ljii (PLStream *); void plD_tidy_ljii (PLStream *); void plD_state_ljii (PLStream *, PLINT); void plD_esc_ljii (PLStream *, PLINT, void *); static void setpoint(PLINT, PLINT); /* top level declarations */ #define JETX 1103 #define JETY 1409 #define OF pls->OutFile #define DPI 150 /* Resolution Dots per Inch */ #define CURX 51 #define CURY 61 #define XDOTS 1104L /* # dots across */ #define YDOTS 1410L /* # dots down */ #define BPROW XDOTS/8L /* # bytes across */ #define NBYTES BPROW*YDOTS /* total number of bytes */ /* Graphics control characters. */ #define ESC 0x1b #define FF 0x0c static char mask[8] = {'\200', '\100', '\040', '\020', '\010', '\004', '\002', '\001'}; #ifndef MSDOS #define _HUGE #else #define _HUGE _huge #endif static char _HUGE *bitmap; /* points to memory area NBYTES in size */ void plD_dispatch_init_ljii( PLDispatchTable *pdt ) { #ifndef ENABLE_DYNDRIVERS pdt->pl_MenuStr = "LaserJet II Bitmap File (150 dpi)"; pdt->pl_DevName = "ljii"; #endif pdt->pl_type = plDevType_FileOriented; pdt->pl_seq = 33; pdt->pl_init = (plD_init_fp) plD_init_ljii; pdt->pl_line = (plD_line_fp) plD_line_ljii; pdt->pl_polyline = (plD_polyline_fp) plD_polyline_ljii; pdt->pl_eop = (plD_eop_fp) plD_eop_ljii; pdt->pl_bop = (plD_bop_fp) plD_bop_ljii; pdt->pl_tidy = (plD_tidy_fp) plD_tidy_ljii; pdt->pl_state = (plD_state_fp) plD_state_ljii; pdt->pl_esc = (plD_esc_fp) plD_esc_ljii; } /*--------------------------------------------------------------------------*\ * plD_init_ljii() * * Initialize device. \*--------------------------------------------------------------------------*/ void plD_init_ljii(PLStream *pls) { PLDev *dev; /* Initialize family file info */ plFamInit(pls); /* Prompt for a file name if not already set */ plOpenFile(pls); /* Allocate and initialize device-specific data */ dev = plAllocDev(pls); dev->xold = PL_UNDEFINED; dev->yold = PL_UNDEFINED; dev->xmin = 0; dev->ymin = 0; plP_setpxl((PLFLT) 5.905, (PLFLT) 5.905); /* Rotate by 90 degrees since portrait mode addressing is used */ dev->xmin = 0; dev->ymin = 0; dev->xmax = JETY; dev->ymax = JETX; dev->xlen = dev->xmax - dev->xmin; dev->ylen = dev->ymax - dev->ymin; plP_setphy(dev->xmin, dev->xmax, dev->ymin, dev->ymax); /* If portrait mode is specified, then set up an additional rotation * transformation with aspect ratio allowed to adjust via freeaspect. * Default orientation is landscape (ORIENTATION == 3 or 90 deg rotation * counter-clockwise from portrait). (Legacy PLplot used seascape * which was equivalent to ORIENTATION == 1 or 90 deg clockwise rotation * from portrait.) */ if (pls->portrait) { plsdiori((PLFLT)(4 - ORIENTATION)); pls->freeaspect = 1; } /* Allocate storage for bit map matrix */ #ifdef MSDOS if ((bitmap = (char _HUGE *) halloc((long) NBYTES, sizeof(char))) == NULL) plexit("Out of memory in call to calloc"); #else if ((bitmap = (void *) calloc(NBYTES, sizeof(char))) == NULL) plexit("Out of memory in call to calloc"); #endif /* Reset Printer */ fprintf(OF, "%cE", ESC); } /*--------------------------------------------------------------------------*\ * plD_line_ljii() * * Draw a line in the current color from (x1,y1) to (x2,y2). \*--------------------------------------------------------------------------*/ void plD_line_ljii(PLStream *pls, short x1a, short y1a, short x2a, short y2a) { PLDev *dev = (PLDev *) pls->dev; int i; int xx1 = x1a, yy1 = y1a, xx2 = x2a, yy2 = y2a; PLINT x1b, y1b, x2b, y2b; PLFLT length, fx, fy, dx, dy; /* Take mirror image, since PCL expects (0,0) to be at top left */ yy1 = dev->ymax - (yy1 - dev->ymin); yy2 = dev->ymax - (yy2 - dev->ymin); /* Rotate by 90 degrees */ plRotPhy(ORIENTATION, dev->xmin, dev->ymin, dev->xmax, dev->ymax, &xx1, &yy1); plRotPhy(ORIENTATION, dev->xmin, dev->ymin, dev->xmax, dev->ymax, &xx2, &yy2); x1b = xx1, x2b = xx2, y1b = yy1, y2b = yy2; length = (PLFLT) sqrt((double) ((x2b - x1b) * (x2b - x1b) + (y2b - y1b) * (y2b - y1b))); if (length == 0.) length = 1.; dx = (xx2 - xx1) / length; dy = (yy2 - yy1) / length; fx = xx1; fy = yy1; setpoint((PLINT) xx1, (PLINT) yy1); setpoint((PLINT) xx2, (PLINT) yy2); for (i = 1; i <= (int) length; i++) setpoint((PLINT) (fx += dx), (PLINT) (fy += dy)); } /*--------------------------------------------------------------------------*\ * plD_polyline_ljii() * * Draw a polyline in the current color. \*--------------------------------------------------------------------------*/ void plD_polyline_ljii(PLStream *pls, short *xa, short *ya, PLINT npts) { PLINT i; for (i = 0; i < npts - 1; i++) plD_line_ljii(pls, xa[i], ya[i], xa[i + 1], ya[i + 1]); } /*--------------------------------------------------------------------------*\ * plD_eop_ljii() * * End of page.(prints it here). \*--------------------------------------------------------------------------*/ void plD_eop_ljii(PLStream *pls) { PLINT i, j; /* First move cursor to origin */ fprintf(OF, "%c*p%dX", ESC, CURX); fprintf(OF, "%c*p%dY", ESC, CURY); /* Then put Laser Printer in 150 dpi mode */ fprintf(OF, "%c*t%dR", ESC, DPI); fprintf(OF, "%c*r1A", ESC); /* Write out raster data */ for (j = 0; j < YDOTS; j++) { fprintf(OF, "%c*b%ldW", ESC, BPROW); for (i = 0; i < BPROW; i++) putc(*(bitmap + i + j * BPROW), OF); } pls->bytecnt += NBYTES; /* End raster graphics and send Form Feed */ fprintf(OF, "%c*rB", ESC); fprintf(OF, "%c", FF); /* Finally, clear out bitmap storage area */ memset(bitmap, '\0', NBYTES); } /*--------------------------------------------------------------------------*\ * plD_bop_ljii() * * Set up for the next page. * Advance to next family file if necessary (file output). \*--------------------------------------------------------------------------*/ void plD_bop_ljii(PLStream *pls) { if (!pls->termin) plGetFam(pls); pls->page++; } /*--------------------------------------------------------------------------*\ * plD_tidy_ljii() * * Close graphics file or otherwise clean up. \*--------------------------------------------------------------------------*/ void plD_tidy_ljii(PLStream *pls) { /* Reset Printer */ fprintf(OF, "%cE", ESC); fclose(OF); free((void *) bitmap); } /*--------------------------------------------------------------------------*\ * plD_state_ljii() * * Handle change in PLStream state (color, pen width, fill attribute, etc). \*--------------------------------------------------------------------------*/ void plD_state_ljii(PLStream *pls, PLINT op) { (void) pls; /* pmr: make it used */ (void) op; } /*--------------------------------------------------------------------------*\ * plD_esc_ljii() * * Escape function. \*--------------------------------------------------------------------------*/ void plD_esc_ljii(PLStream *pls, PLINT op, void *ptr) { (void) pls; /* pmr: make it used */ (void) op; (void) ptr; } /*--------------------------------------------------------------------------*\ * setpoint() * * Sets a bit in the bitmap. \*--------------------------------------------------------------------------*/ static void setpoint(PLINT x, PLINT y) { PLINT myindex; myindex = x / 8 + y * BPROW; *(bitmap + myindex) = *(bitmap + myindex) | mask[x % 8]; } #else int pldummy_ljii(void) { return 0; } #endif /* PLD_ljii */