diff options
Diffstat (limited to 'gs/contrib/lips4')
| -rw-r--r-- | gs/contrib/lips4/gdevl4r.c | 1358 | ||||
| -rw-r--r-- | gs/contrib/lips4/gdevl4v.c | 2490 | ||||
| -rw-r--r-- | gs/contrib/lips4/gdevl4v.c.orig | 2487 | ||||
| -rw-r--r-- | gs/contrib/lips4/gdevlips.c | 211 | ||||
| -rw-r--r-- | gs/contrib/lips4/gdevlips.h | 197 | ||||
| -rw-r--r-- | gs/contrib/lips4/gdevlprn.c | 433 | ||||
| -rw-r--r-- | gs/contrib/lips4/gdevlprn.h | 199 |
7 files changed, 0 insertions, 7375 deletions
diff --git a/gs/contrib/lips4/gdevl4r.c b/gs/contrib/lips4/gdevl4r.c deleted file mode 100644 index 986f61540..000000000 --- a/gs/contrib/lips4/gdevl4r.c +++ /dev/null @@ -1,1358 +0,0 @@ -/* Copyright (C) 1998, 1999 Norihito Ohmori. - - Ghostscript printer driver - for Canon LBP, BJC-680J and BJC-880J printers (LIPS II+/III/IVc/IV) - - This software is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY. No author or distributor accepts responsibility - to anyone for the consequences of using it or for whether it serves any - particular purpose or works at all, unless he says so in writing. Refer - to the GNU General Public License for full details. - - Everyone is granted permission to copy, modify and redistribute - this software, but only under the conditions described in the GNU - General Public License. A copy of this license is supposed to have been - given to you along with this software so you can know your rights and - responsibilities. It should be in a file named COPYING. Among other - things, the copyright notice and this notice must be preserved on all - copies. - */ - -/*$Id: gdevl4r.c,v 1.5 2002/10/12 23:24:34 tillkamppeter Exp $ */ -/* Raster Version of LIPS driver */ - -#include "gdevlprn.h" -#include "gdevlips.h" - -/* The device descriptors */ -private dev_proc_open_device(lips2p_open); -private dev_proc_open_device(lips3_open); -private dev_proc_open_device(bjc880j_open); -private dev_proc_open_device(lips4_open); - -private dev_proc_close_device(lips_close); - -private dev_proc_print_page_copies(lips2p_print_page_copies); -private dev_proc_print_page_copies(lips3_print_page_copies); -private dev_proc_print_page_copies(bjc880j_print_page_copies); -private dev_proc_print_page_copies(lips4_print_page_copies); - -private dev_proc_get_params(lips_get_params); -private dev_proc_get_params(lips4_get_params); - -private dev_proc_put_params(lips_put_params); -private dev_proc_put_params(lips4_put_params); - -#if 0 -private dev_proc_image_out(lips_image_out); - -#endif -private dev_proc_image_out(lips2p_image_out); -private dev_proc_image_out(lips4_image_out); - -#define lips_device(dtype, procs, dname, xdpi, ydpi, lm, bm, rm, tm, color_bits,\ - print_page_copies, image_out, cassetFeed, username)\ -{ std_device_std_color_full_body(dtype, &procs, dname,\ - (int)((long)(DEFAULT_WIDTH_10THS) * (xdpi) / 10),\ - (int)((long)(DEFAULT_HEIGHT_10THS) * (ydpi) / 10),\ - xdpi, ydpi, color_bits,\ - -(lm) * (xdpi), -(tm) * (ydpi),\ - (lm) * 72.0, (bm) * 72.0,\ - (rm) * 72.0, (tm) * 72.0\ - ),\ - lp_device_body_rest_(print_page_copies, image_out),\ - cassetFeed, username, LIPS_PJL_DEFAULT,\ - 0, 0, 0, 0, 0, 0, 0, -1\ -} - -#define lips4_device(dtype, procs, dname, xdpi, ydpi, lm, bm, rm, tm, color_bits,\ - print_page_copies, image_out, cassetFeed, username)\ -{ std_device_std_color_full_body(dtype, &procs, dname,\ - (int)((long)(DEFAULT_WIDTH_10THS) * (xdpi) / 10),\ - (int)((long)(DEFAULT_HEIGHT_10THS) * (ydpi) / 10),\ - xdpi, ydpi, color_bits,\ - -(lm) * (xdpi), -(tm) * (ydpi),\ - (lm) * 72.0, (bm) * 72.0,\ - (rm) * 72.0, (tm) * 72.0\ - ),\ - lp_duplex_device_body_rest_(print_page_copies, image_out),\ - cassetFeed,\ - username, LIPS_PJL_DEFAULT, 0, 0, 0, 0, 0, 0, 0, -1,\ - 0, LIPS_NUP_DEFAULT, LIPS_FACEUP_DEFAULT,\ - LIPS_MEDIATYPE_DEFAULT \ -} - -typedef struct gx_device_lips_s gx_device_lips; -struct gx_device_lips_s { - gx_device_common; - gx_prn_device_common; - gx_lprn_device_common; - lips_params_common; -}; - -typedef struct gx_device_lips4_s gx_device_lips4; -struct gx_device_lips4_s { - gx_device_common; - gx_prn_device_common; - gx_lprn_device_common; - lips_params_common; - lips4_params_common; -}; - -private gx_device_procs lips2p_prn_procs = -prn_params_procs(lips2p_open, gdev_prn_output_page, lips_close, - lips_get_params, lips_put_params); - -private gx_device_procs lips3_prn_procs = -prn_params_procs(lips3_open, gdev_prn_output_page, lips_close, - lips_get_params, lips_put_params); - -private gx_device_procs bjc880j_prn_color_procs = -prn_params_procs(bjc880j_open, gdev_prn_output_page, lips_close, - lips4_get_params, lips4_put_params); - -private gx_device_procs lips4_prn_procs = -prn_params_procs(lips4_open, gdev_prn_output_page, lips_close, - lips4_get_params, lips4_put_params); - -gx_device_lips far_data gs_lips2p_device = -lips_device(gx_device_lips, lips2p_prn_procs, "lips2p", - LIPS2P_DPI_DEFAULT, - LIPS2P_DPI_DEFAULT, - LIPS2P_LEFT_MARGIN_DEFAULT, - LIPS2P_BOTTOM_MARGIN_DEFAULT, - LIPS2P_RIGHT_MARGIN_DEFAULT, - LIPS2P_TOP_MARGIN_DEFAULT, - 1, lips2p_print_page_copies, lips2p_image_out, - LIPS_CASSETFEED_DEFAULT, - LIPS_USERNAME_DEFAULT); - -gx_device_lips far_data gs_lips3_device = -lips_device(gx_device_lips, lips3_prn_procs, "lips3", - LIPS3_DPI_DEFAULT, - LIPS3_DPI_DEFAULT, - LIPS3_LEFT_MARGIN_DEFAULT, - LIPS3_BOTTOM_MARGIN_DEFAULT, - LIPS3_RIGHT_MARGIN_DEFAULT, - LIPS3_TOP_MARGIN_DEFAULT, - 1, lips3_print_page_copies, lips2p_image_out, - LIPS_CASSETFEED_DEFAULT, - LIPS_USERNAME_DEFAULT); - -gx_device_lips4 far_data gs_bjc880j_device = -lips4_device(gx_device_lips4, bjc880j_prn_color_procs, "bjc880j", - BJC880J_DPI_DEFAULT, - BJC880J_DPI_DEFAULT, - BJC880J_LEFT_MARGIN_DEFAULT, - BJC880J_BOTTOM_MARGIN_DEFAULT, - BJC880J_RIGHT_MARGIN_DEFAULT, - BJC880J_TOP_MARGIN_DEFAULT, - 1, bjc880j_print_page_copies, lips4_image_out, - LIPS_CASSETFEED_DEFAULT, - LIPS_USERNAME_DEFAULT); - -gx_device_lips4 far_data gs_lips4_device = -lips4_device(gx_device_lips4, lips4_prn_procs, "lips4", - LIPS4_DPI_DEFAULT, - LIPS4_DPI_DEFAULT, - LIPS4_LEFT_MARGIN_DEFAULT, - LIPS4_BOTTOM_MARGIN_DEFAULT, - LIPS4_RIGHT_MARGIN_DEFAULT, - LIPS4_TOP_MARGIN_DEFAULT, - 1, lips4_print_page_copies, lips4_image_out, - LIPS_CASSETFEED_DEFAULT, - LIPS_USERNAME_DEFAULT); - -/* Printer types */ -typedef enum { - LIPS2P, - LIPS3, - BJC880J, - LIPS4 -} lips_printer_type; - -/* Forward references */ -private void lips_job_start(gx_device_printer * dev, lips_printer_type ptype, FILE * fp, int num_copies); -private void lips_job_end(gx_device_printer * pdev, FILE * fp); -private int lips_open(gx_device * pdev, lips_printer_type ptype); -private int lips4c_output_page(gx_device_printer * pdev, FILE * prn_stream); -private int lips_delta_encode(byte * inBuff, byte * prevBuff, byte * outBuff, byte * diffBuff, int Length); -private int lips_byte_cat(byte * TotalBuff, byte * Buff, int TotalLen, int Len); -private int lips_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, lips_printer_type ptype, int numcopies); -#if GS_VERSION_MAJOR >= 8 -private int lips_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, lips_printer_type ptype, int numcopies); -private int lips4type_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, int num_copies, int ptype); -#else -private int lips_print_page_copies(P4(gx_device_printer * pdev, FILE * prn_stream, lips_printer_type ptype, int numcopies)); -private int lips_print_page_copies(P4(gx_device_printer * pdev, FILE * prn_stream, lips_printer_type ptype, int numcopies)); -#endif -private int -lips2p_open(gx_device * pdev) -{ - return lips_open(pdev, LIPS2P); -} - -private int -lips3_open(gx_device * pdev) -{ - return lips_open(pdev, LIPS3); -} - -private int -bjc880j_open(gx_device * pdev) -{ - return lips_open(pdev, BJC880J); -} - -private int -lips4_open(gx_device * pdev) -{ - return lips_open(pdev, LIPS4); -} - -/* Open the printer, adjusting the margins if necessary. */ -private int -lips_open(gx_device * pdev, lips_printer_type ptype) -{ - int width = pdev->MediaSize[0]; - int height = pdev->MediaSize[1]; - int xdpi = pdev->x_pixels_per_inch; - int ydpi = pdev->y_pixels_per_inch; - - /* Paper Size Check */ - if (width <= height) { /* portrait */ - if ((width < LIPS_WIDTH_MIN || width > LIPS_WIDTH_MAX || - height < LIPS_HEIGHT_MIN || height > LIPS_HEIGHT_MAX) && - !(width == LIPS_LEDGER_WIDTH && height == LIPS_LEDGER_HEIGHT)) - return_error(gs_error_rangecheck); - } else { /* landscape */ - if ((width < LIPS_HEIGHT_MIN || width > LIPS_HEIGHT_MAX || - height < LIPS_WIDTH_MIN || height > LIPS_WIDTH_MAX) && - !(width == LIPS_LEDGER_HEIGHT && height == LIPS_LEDGER_WIDTH)) - return_error(gs_error_rangecheck); - } - - /* Resolution Check */ - if (xdpi != ydpi) - return_error(gs_error_rangecheck); - else if (ptype == LIPS2P) { - /* LIPS II+ support DPI is 240x240 */ - if (xdpi != LIPS2P_DPI_MAX) - return_error(gs_error_rangecheck); - } else if (ptype == LIPS3) { - /* LIPS III supports DPI is 300x300 */ - if (xdpi != LIPS3_DPI_MAX) - return_error(gs_error_rangecheck); - } else if (ptype == BJC880J) { - if (xdpi < LIPS_DPI_MIN || xdpi > BJC880J_DPI_MAX) - return_error(gs_error_rangecheck); - } else { /* LIPS4 supprts DPI is 60x60 - 600x600 and 1200x1200 */ - if ((xdpi < LIPS_DPI_MIN || xdpi > LIPS4_DPI_MAX) && xdpi != LIPS4_DPI_SUPERFINE) - return_error(gs_error_rangecheck); - } - - return gdev_prn_open(pdev); -} - -private int -lips_close(gx_device * pdev) -{ - gx_device_printer *const ppdev = (gx_device_printer *) pdev; - gx_device_lips *const lips = (gx_device_lips *) pdev; - - gdev_prn_open_printer(pdev, 1); - - fprintf(ppdev->file, "%c0J%c", LIPS_DCS, LIPS_ST); - if (lips->pjl) - fprintf(ppdev->file, - "%c%%-12345X" - "@PJL SET LPARM : LIPS SW2 = OFF\n" - "@PJL EOJ\n" - "%c%%-12345X", LIPS_ESC, LIPS_ESC); - - return gdev_prn_close(pdev); -} - -/* Get properties for the lips drivers. */ -private int -lips_get_params(gx_device * pdev, gs_param_list * plist) -{ - gx_device_lips *const lips = (gx_device_lips *) pdev; - int code = lprn_get_params(pdev, plist); - int ncode; - gs_param_string usern; - - if (code < 0) - return code; - - if ((ncode = param_write_int(plist, LIPS_OPTION_CASSETFEED, - &lips->cassetFeed)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_PJL, - &lips->pjl)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, LIPS_OPTION_TONERDENSITY, - &lips->toner_density)) < 0) - code = ncode; - - if (lips->toner_saving_set >= 0 && - (code = (lips->toner_saving_set ? - param_write_bool(plist, LIPS_OPTION_TONERSAVING, &lips->toner_saving) : - param_write_null(plist, LIPS_OPTION_TONERSAVING))) < 0) - code = ncode; - - if (code < 0) - return code; - - usern.data = (const byte *)lips->Username, - usern.size = strlen(lips->Username), - usern.persistent = false; - - return param_write_string(plist, LIPS_OPTION_USER_NAME, &usern); -} - -private int -lips4_get_params(gx_device * pdev, gs_param_list * plist) -{ - gx_device_lips4 *const lips4 = (gx_device_lips4 *) pdev; - int code = lips_get_params(pdev, plist); - int ncode; - gs_param_string pmedia; - - if (code < 0) - return code; - - if ((ncode = param_write_int(plist, LIPS_OPTION_NUP, - &lips4->nup)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_FACEUP, - &lips4->faceup)) < 0) - code = ncode; - - if (code < 0) - return code; - - pmedia.data = (const byte *)lips4->mediaType, - pmedia.size = strlen(lips4->mediaType), - pmedia.persistent = false; - - return param_write_string(plist, LIPS_OPTION_MEDIATYPE, &pmedia); -} - -/* Put properties for the lips drivers. */ -private int -lips_put_params(gx_device * pdev, gs_param_list * plist) -{ - gx_device_lips *const lips = (gx_device_lips *) pdev; - int ecode = 0; - int code; - gs_param_name param_name; - int cass = lips->cassetFeed; - bool pjl = lips->pjl; - int toner_density = lips->toner_density; - bool toner_saving = lips->toner_saving; - bool toner_saving_set = lips->toner_saving_set; - gs_param_string usern; - - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_CASSETFEED), - &cass)) { - case 0: - if (cass < -1 || cass > 17 || (cass > 3 && cass < 10)) - ecode = gs_error_rangecheck; - else - break; - goto casse; - default: - ecode = code; - casse:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_PJL), - &pjl)) < 0) - param_signal_error(plist, param_name, ecode = code); - - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_TONERDENSITY), - &toner_density)) { - case 0: - if (toner_density < 0 || toner_density > 8) - ecode = gs_error_rangecheck; - else - break; - goto tden; - default: - ecode = code; - tden:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if (lips->toner_saving_set >= 0) - switch (code = param_read_bool(plist, (param_name = LIPS_OPTION_TONERSAVING), - &toner_saving)) { - case 0: - toner_saving_set = 1; - break; - default: - if ((code = param_read_null(plist, param_name)) == 0) { - toner_saving_set = 0; - break; - } - ecode = code; - param_signal_error(plist, param_name, ecode); - case 1: - break; - } - switch (code = param_read_string(plist, - (param_name = LIPS_OPTION_USER_NAME), - &usern)) { - case 0: - if (usern.size > LIPS_USERNAME_MAX) - ecode = gs_error_limitcheck; - else { /* Check the validity of ``User Name'' characters */ - int i; - - for (i = 0; i < usern.size; i++) - if (usern.data[i] < 0x20 || - usern.data[i] > 0x7e - /* - && usern.data[i] < 0xa0) || - usern.data[i] > 0xfe - */ - ) { - ecode = gs_error_rangecheck; - goto userne; - } - } - break; - goto userne; - default: - ecode = code; - userne:param_signal_error(plist, param_name, ecode); - case 1: - usern.data = 0; - break; - } - - if (ecode < 0) - return ecode; - code = lprn_put_params(pdev, plist); - if (code < 0) - return code; - - lips->cassetFeed = cass; - lips->pjl = pjl; - lips->toner_density = toner_density; - lips->toner_saving = toner_saving; - lips->toner_saving_set = toner_saving_set; - - if (usern.data != 0 && - bytes_compare(usern.data, usern.size, - (const byte *)lips->Username, strlen(lips->Username)) - ) { - memcpy(lips->Username, usern.data, usern.size); - lips->Username[usern.size] = 0; - } - return 0; -} - -private int -lips4_put_params(gx_device * pdev, gs_param_list * plist) -{ - gx_device_lips4 *const lips4 = (gx_device_lips4 *) pdev; - int ecode = 0; - int code; - gs_param_name param_name; - gs_param_string pmedia; - bool nup = lips4->nup; - bool faceup = lips4->faceup; - int old_bpp = pdev->color_info.depth; - int bpp = 0; - - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_NUP), - &nup)) { - case 0: - if (nup != 1 && nup != 2 && nup != 4) - ecode = gs_error_rangecheck; - else - break; - goto nupe; - default: - ecode = code; - nupe:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_FACEUP), - &faceup)) < 0) - param_signal_error(plist, param_name, ecode = code); - - switch (code = param_read_string(plist, - (param_name = LIPS_OPTION_MEDIATYPE), - &pmedia)) { - case 0: - if (pmedia.size > LIPS_MEDIACHAR_MAX) - ecode = gs_error_limitcheck; - else { /* Check the validity of ``MediaType'' characters */ - if (strcmp(pmedia.data, "PlainPaper") != 0 && - strcmp(pmedia.data, "OHP") != 0 && - strcmp(pmedia.data, "TransparencyFilm") != 0 && /* same as OHP */ - strcmp(pmedia.data, "GlossyFilm") != 0 && - strcmp(pmedia.data, "CardBoard") != 0 - ) { - ecode = gs_error_rangecheck; - goto pmediae; - } - } - break; - goto pmediae; - default: - ecode = code; - pmediae:param_signal_error(plist, param_name, ecode); - case 1: - pmedia.data = 0; - break; - } - - switch (code = param_read_int(plist, - (param_name = "BitsPerPixel"), - &bpp)) { - case 0: - if (bpp != 1 && bpp != 24) - ecode = gs_error_rangecheck; - else - break; - goto bppe; - default: - ecode = code; - bppe:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if (bpp != 0) - { - pdev->color_info.depth = bpp; - pdev->color_info.num_components = ((bpp == 1) ? 1 : 3); - pdev->color_info.max_gray = (bpp >= 8 ? 255 : 1); - pdev->color_info.max_color = (bpp >= 8 ? 255 : bpp > 1 ? 1 : 0); - pdev->color_info.dither_grays = (bpp >= 8 ? 5 : 2); - pdev->color_info.dither_colors = (bpp >= 8 ? 5 : bpp > 1 ? 2 : 0); - dev_proc(pdev, map_rgb_color) = ((bpp == 1) ? gdev_prn_map_rgb_color : gx_default_rgb_map_rgb_color); - } - - if (ecode < 0) - return ecode; - code = lips_put_params(pdev, plist); - if (code < 0) - return code; - - lips4->nup = nup; - lips4->faceup = faceup; - - if (pmedia.data != 0 && - bytes_compare(pmedia.data, pmedia.size, - (const byte *)lips4->mediaType, strlen(lips4->mediaType)) - ) { - memcpy(lips4->mediaType, pmedia.data, pmedia.size); - lips4->mediaType[pmedia.size] = 0; - } - if (bpp != 0 && bpp != old_bpp && pdev->is_open) - return gs_closedevice(pdev); - return 0; -} - - -/* ------ Internal routines ------ */ - -private int -lips2p_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, int num_copies) -{ - return lips_print_page_copies(pdev, prn_stream, LIPS2P, num_copies); -} - -private int -lips3_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, int num_copies) -{ - return lips_print_page_copies(pdev, prn_stream, LIPS3, num_copies); -} - -#define NUM_LINES 24 /* raster height */ -#define NUM_LINES_4C 256 - -private int -lips_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, lips_printer_type ptype, int num_copies) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - int code = 0; - int bpl = gdev_mem_bytes_per_scan_line(pdev); - int maxY = lprn->BlockLine / lprn->nBh * lprn->nBh; - - /* Initialize printer. */ - lips_job_start(pdev, ptype, prn_stream, num_copies); - - if (!(lprn->CompBuf = gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), bpl * 3 / 2 + 1, maxY, "(CompBuf)"))) - return_error(gs_error_VMerror); - - - lprn->NegativePrint = false; /* not support */ - lprn->prev_x = lprn->prev_y = 0; - code = lprn_print_image(pdev, prn_stream); - if (code < 0) - return code; - - gs_free(gs_lib_ctx_get_non_gc_memory_t(), lprn->CompBuf, bpl * 3 / 2 + 1, maxY, "(CompBuf)"); - - /* eject page */ - lips_job_end(pdev, prn_stream); - - - return 0; -} - -private int -bjc880j_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, int num_copies) -{ - return lips4type_print_page_copies(pdev, prn_stream, num_copies, BJC880J); -} - -private int -lips4_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, int num_copies) -{ - return lips4type_print_page_copies(pdev, prn_stream, num_copies, LIPS4); -} - -private int -lips4type_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, int num_copies, int ptype) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - int code = 0; - int bpl = gdev_mem_bytes_per_scan_line(pdev); - int maxY = lprn->BlockLine / lprn->nBh * lprn->nBh; - - /* Initialize printer. */ - lips_job_start(pdev, ptype, prn_stream, num_copies); - - if (pdev->color_info.depth == 1) - { - if (!(lprn->CompBuf = gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), bpl * 3 / 2 + 1, maxY, "(CompBuf)"))) - return_error(gs_error_VMerror); - if (!(lprn->CompBuf2 = gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), bpl * 3 / 2 + 1, maxY, "(CompBuf2)"))) - return_error(gs_error_VMerror); - - if (lprn->NegativePrint) { - int rm = pdev->width - (dev_l_margin(pdev) + dev_r_margin(pdev)) * pdev->x_pixels_per_inch; - int bm = pdev->height - (dev_t_margin(pdev) + dev_b_margin(pdev)) * pdev->y_pixels_per_inch; - /* Draw black rectangle */ - fprintf(prn_stream, - "%c{%c%da%c%de%c;;;3}", - LIPS_CSI, LIPS_CSI, rm, LIPS_CSI, bm, LIPS_CSI); - fprintf(prn_stream, "%c%dj%c%dk", - LIPS_CSI, rm, LIPS_CSI, bm); - } - - - lprn->prev_x = lprn->prev_y = 0; - code = lprn_print_image(pdev, prn_stream); - if (code < 0) - return code; - - gs_free(gs_lib_ctx_get_non_gc_memory_t(), lprn->CompBuf, bpl * 3 / 2 + 1, maxY, "(CompBuf)"); - gs_free(gs_lib_ctx_get_non_gc_memory_t(), lprn->CompBuf2, bpl * 3 / 2 + 1, maxY, "(CompBuf2)"); - } - else - { - code = lips4c_output_page(pdev, prn_stream); - - if (code < 0) - return code; - } - - /* eject page */ - lips_job_end(pdev, prn_stream); - - - return 0; -} - -#if 0 -/* Send the page to the printer. */ -private int -lips4c_print_page_copies(gx_device_printer * pdev, FILE * prn_stream, int num_copies) -{ - int code; - - lips_job_start(pdev, BJC880J, prn_stream, num_copies); - - /* make output data */ - code = lips4c_output_page(pdev, prn_stream); - - if (code < 0) - return code; - - /* eject page */ - lips_job_end(pdev, prn_stream); - - return 0; -} -#endif - -private void -move_cap(gx_device_printer * pdev, FILE * prn_stream, int x, int y) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - - if (x != lprn->prev_x) { - if (x > lprn->prev_x) - fprintf(prn_stream, "%c%da", LIPS_CSI, x - lprn->prev_x); - else - fprintf(prn_stream, "%c%dj", LIPS_CSI, lprn->prev_x - x); - - lprn->prev_x = x; - } - if (y != lprn->prev_y) { - if (y > lprn->prev_y) - fprintf(prn_stream, "%c%de", LIPS_CSI, y - lprn->prev_y); - else - fprintf(prn_stream, "%c%dk", LIPS_CSI, lprn->prev_y - y); - - lprn->prev_y = y; - } -} - -private void -draw_bubble(FILE * prn_stream, int width, int height) -{ - /* Draw a rectangle */ - fprintf(prn_stream, - "%c{%c%da%c%de%c}", - LIPS_CSI, LIPS_CSI, width, LIPS_CSI, height, LIPS_CSI); - fprintf(prn_stream, "%c%dj%c%dk", - LIPS_CSI, width, LIPS_CSI, height); -} - - -#if 0 -/* Non Compression Version of image_out */ -private void -lips_image_out(gx_device_printer * pdev, FILE * prn_stream, int x, int y, int width, int height) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - - int i, j; - byte *p; - int maxY = lprn->BlockLine / lprn->nBh * lprn->nBh; - - move_cap(pdev, prn_stream, x, y); - - fprintf(prn_stream, "%c%d;%d;%d.r", LIPS_CSI, - width / 8 * height, width / 8, (int)pdev->x_pixels_per_inch); - - for (i = 0; i < height; i++) { - p = lprn->ImageBuf + ((i + y) % maxY) * raster; - for (j = 0; j < width / 8; j++) { - fputc(p[j + data_x], prn_stream); - } - } - - if (lprn->ShowBubble) - draw_bubble(prn_stream, width, height); -} -#endif - -private void -lips2p_image_out(gx_device_printer * pdev, FILE * prn_stream, int x, int y, int width, int height) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - int Len; - char raw_str[32]; /* LIPS command header (uncompress) */ - char comp_str[32]; /* LIPS command header (compress) */ - - move_cap(pdev, prn_stream, x, y); - - Len = lips_mode3format_encode(lprn->TmpBuf, lprn->CompBuf, width / 8 * height); - sprintf(raw_str, "%c%d;%d;%d.r", LIPS_CSI, - width / 8 * height, width / 8, (int)pdev->x_pixels_per_inch); - sprintf(comp_str, "%c%d;%d;%d;9;%d.r", LIPS_CSI, - Len, width / 8, (int)pdev->x_pixels_per_inch, height); - - if (Len < width / 8 * height - strlen(comp_str) + strlen(raw_str)) { - fprintf(prn_stream, "%s", comp_str); - fwrite(lprn->CompBuf, 1, Len, prn_stream); - } else { - /* compression result is bad. */ - fprintf(prn_stream, "%s", raw_str); - fwrite(lprn->TmpBuf, 1, width / 8 * height, prn_stream); - } - - if (lprn->ShowBubble) - draw_bubble(prn_stream, width, height); -} - -private void -lips4_image_out(gx_device_printer * pdev, FILE * prn_stream, int x, int y, int width, int height) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - int Len, Len_rle; - char raw_str[32]; /* LIPS command header (uncompress) */ - char comp_str[32]; /* LIPS command header (compress) */ - - move_cap(pdev, prn_stream, x, y); - - Len = lips_packbits_encode(lprn->TmpBuf, lprn->CompBuf, width / 8 * height); - Len_rle = lips_rle_encode(lprn->TmpBuf, lprn->CompBuf2, width / 8 * height); - - sprintf(raw_str, "%c%d;%d;%d.r", LIPS_CSI, - width / 8 * height, width / 8, (int)pdev->x_pixels_per_inch); - - if (Len < Len_rle) { - sprintf(comp_str, "%c%d;%d;%d;11;%d.r", LIPS_CSI, - Len, width / 8, (int)pdev->x_pixels_per_inch, height); - if (Len < width / 8 * height - strlen(comp_str) + strlen(raw_str)) { - fprintf(prn_stream, "%s", comp_str); - fwrite(lprn->CompBuf, 1, Len, prn_stream); - } else { - /* compression result is bad. */ - fprintf(prn_stream, "%s", raw_str); - fwrite(lprn->TmpBuf, 1, width / 8 * height, prn_stream); - } - } else { - sprintf(comp_str, "%c%d;%d;%d;10;%d.r", LIPS_CSI, - Len, width / 8, (int)pdev->x_pixels_per_inch, height); - if (Len_rle < width / 8 * height - strlen(comp_str) + strlen(raw_str)) { - fprintf(prn_stream, "%s", comp_str); - fwrite(lprn->CompBuf2, 1, Len, prn_stream); - } else { - /* compression result is bad. */ - fprintf(prn_stream, "%s", raw_str); - fwrite(lprn->TmpBuf, 1, width / 8 * height, prn_stream); - } - } - - if (lprn->ShowBubble) - draw_bubble(prn_stream, width, height); -} - -private int -lips4c_write_raster(gx_device_printer * pdev, FILE * prn_stream, byte * pBuff, byte * prevBuff, byte * ComBuff, byte * TotalBuff, byte * diffBuff, int lnum, int raster_height) -{ - int bits_per_pixel = pdev->color_info.depth; - int num_components = bits_per_pixel > 8 ? 3 : 1; - int nBytesPerLine = gdev_prn_raster(pdev); - int Xpixel = nBytesPerLine / num_components; - int TotalLen = 0; - int num_zerobyte = 0; - bool zerobyte_flag = false; - int i, y, Len; - - for (i = 0; i < nBytesPerLine; i++) { - *(prevBuff + i) = 0x00; /* initialize */ - } - - for (y = lnum; y < lnum + raster_height; y++) { - gdev_prn_copy_scan_lines(pdev, y, pBuff, nBytesPerLine); - - Len = lips_delta_encode(pBuff, - prevBuff, ComBuff, diffBuff, - Xpixel * num_components); - - if (Len == 2 && *ComBuff == 0x01) { - if (zerobyte_flag == false) { - zerobyte_flag = true; - TotalLen = lips_byte_cat(TotalBuff, ComBuff, TotalLen, Len); - } else { - if (num_zerobyte > 255) { - TotalLen = lips_byte_cat(TotalBuff, ComBuff, TotalLen, Len); - } else { - *(TotalBuff + TotalLen - 1) = num_zerobyte; - } - num_zerobyte++; - } - } else { - TotalLen = lips_byte_cat(TotalBuff, ComBuff, TotalLen, Len); - zerobyte_flag = false; - num_zerobyte = 0; - } - } - - fprintf(prn_stream, "%c%d;%d;%d;12;%d;;%d;%d;;1.r", LIPS_CSI, - TotalLen, Xpixel, (int)pdev->x_pixels_per_inch, - raster_height, - bits_per_pixel / num_components, - num_components < 3 ? 0 : 10); - fwrite(TotalBuff, 1, TotalLen, prn_stream); - fputc(0x85, prn_stream); /* CR + LF */ - - return 0; -} - -private int -lips4c_output_page(gx_device_printer * pdev, FILE * prn_stream) -{ - byte *pBuff, *ComBuff, *prevBuff, *TotalBuff, *diffBuff; - int bits_per_pixel = pdev->color_info.depth; - int num_components = bits_per_pixel > 8 ? 3 : 1; - int nBytesPerLine = gdev_prn_raster(pdev); - int Xpixel = nBytesPerLine / num_components; - int lnum = 0; - - /* Memory Allocate */ - if (!(pBuff = (byte *) gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), nBytesPerLine, sizeof(byte), "lips4c_compress_output_page(pBuff)"))) - return_error(gs_error_VMerror); - if (!(prevBuff = (byte *) gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), nBytesPerLine, sizeof(byte), "lips4c_compress_output_page(prevBuff)"))) - return_error(gs_error_VMerror); - if (!(ComBuff = (byte *) gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), Xpixel * num_components + (Xpixel * num_components + 127) * 129 / 128, sizeof(byte), "lips4c_compress_output_page(ComBuff)"))) - return_error(gs_error_VMerror); - if (!(TotalBuff = (byte *) gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), (Xpixel * num_components + (Xpixel * num_components + 127) * 129 / 128) * NUM_LINES_4C, sizeof(byte), "lips4c_compress_output_page(TotalBuff)"))) - return_error(gs_error_VMerror); - if (!(diffBuff = (byte *) gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), Xpixel * num_components * 2, sizeof(byte), "lips_print_page"))) - return_error(gs_error_VMerror); - - /* make output data */ - while (lnum < pdev->height) { - lips4c_write_raster(pdev, prn_stream, pBuff, prevBuff, ComBuff, - TotalBuff, diffBuff, lnum, NUM_LINES_4C); - lnum += NUM_LINES_4C; - } - - if (pdev->height - (lnum - NUM_LINES_4C) > 0) { - lips4c_write_raster(pdev, prn_stream, pBuff, prevBuff, ComBuff, - TotalBuff, diffBuff, lnum - NUM_LINES_4C, - pdev->height - (lnum - NUM_LINES_4C)); - } - /* Free Memory */ - gs_free(gs_lib_ctx_get_non_gc_memory_t(), pBuff, nBytesPerLine, sizeof(byte), "lips4c_compress_output_page(pBuff)"); - gs_free(gs_lib_ctx_get_non_gc_memory_t(), prevBuff, nBytesPerLine, sizeof(byte), "lips4c_compress_output_page(prevBuff)"); - gs_free(gs_lib_ctx_get_non_gc_memory_t(), ComBuff, Xpixel * num_components + (Xpixel * num_components + 127) * 129 / 128, sizeof(byte), "lips4c_compress_output_page(ComBuff)"); - gs_free(gs_lib_ctx_get_non_gc_memory_t(), TotalBuff, (Xpixel * num_components + (Xpixel * num_components + 127) * 129 / 128) * NUM_LINES_4C, sizeof(byte), "lips4c_compress_output_page(TotalBuff)"); - gs_free(gs_lib_ctx_get_non_gc_memory_t(), diffBuff, Xpixel * num_components * 2, sizeof(byte), "lips_print_page"); - - return 0; -} - - -private void -lips_job_start(gx_device_printer * pdev, lips_printer_type ptype, FILE * prn_stream, int num_copies) -{ - gx_device_lips *const lips = (gx_device_lips *) pdev; - gx_device_lips4 *const lips4 = (gx_device_lips4 *) pdev; - int prev_paper_size, prev_paper_width, prev_paper_height, paper_size; - int width = pdev->MediaSize[0]; - int height = pdev->MediaSize[1]; - int tm, lm, rm, bm; - - if (pdev->PageCount == 0) { - if (lips->pjl) { - fprintf(prn_stream, - "%c%%-12345X@PJL CJLMODE\n" - "@PJL JOB\n", LIPS_ESC); - if (ptype == LIPS4) { - fprintf(prn_stream, - "%c%%-12345X@PJL CJLMODE\n", LIPS_ESC); - if ((int)pdev->x_pixels_per_inch == 1200) - fprintf(prn_stream, "@PJL SET RESOLUTION = SUPERFINE\n"); - else if ((int)pdev->x_pixels_per_inch == 600) - fprintf(prn_stream, "@PJL SET RESOLUTION = FINE\n"); - else if ((int)pdev->x_pixels_per_inch == 300) - fprintf(prn_stream, "@PJL SET RESOLUTION = QUICK\n"); - } - if (lips->toner_density) - fprintf(prn_stream, "@PJL SET TONER-DENSITY=%d\n", - lips->toner_density); - if (lips->toner_saving_set) { - fprintf(prn_stream, "@PJL SET TONER-SAVING="); - if (lips->toner_saving) - fprintf(prn_stream, "ON\n"); - else - fprintf(prn_stream, "OFF\n"); - } - fprintf(prn_stream, - "@PJL SET LPARM : LIPS SW2 = ON\n" - "@PJL ENTER LANGUAGE = LIPS\n"); - } - fprintf(prn_stream, "%c%%@", LIPS_ESC); - if (ptype == LIPS2P) - fprintf(prn_stream, "%c21;%d;0J" LIPS2P_STRING LIPS_VERSION "%c", - LIPS_DCS, (int)pdev->x_pixels_per_inch, LIPS_ST); - else if (ptype == LIPS3) - fprintf(prn_stream, "%c31;%d;0J" LIPS3_STRING LIPS_VERSION "%c", - LIPS_DCS, (int)pdev->x_pixels_per_inch, LIPS_ST); - else if (ptype == LIPS4) - fprintf(prn_stream, "%c41;%d;0J" LIPS4_STRING LIPS_VERSION "%c", - LIPS_DCS, (int)pdev->x_pixels_per_inch, LIPS_ST); - else if (ptype == BJC880J) - fprintf(prn_stream, "%c41;%d;0J" BJC880J_STRING LIPS_VERSION "%c", - LIPS_DCS, (int)pdev->x_pixels_per_inch, LIPS_ST); - - if (ptype == LIPS4 || ptype == BJC880J) - { - if (pdev->color_info.depth == 24) - fprintf(prn_stream, "%c1\"p", LIPS_CSI); - else - fprintf(prn_stream, "%c0\"p", LIPS_CSI); - } - fprintf(prn_stream, "%c<", LIPS_ESC); - fprintf(prn_stream, "%c11h", LIPS_CSI); /* Size Unit Mode */ - } - /* */ - /* Print Environment Setting */ - /* */ - /* Media Selection */ - paper_size = lips_media_selection(width, height); - - if (ptype == BJC880J) { - /* Paint Memory Mode Setting */ - /* for BJC-680J/BJC-880J */ - if (paper_size == B4_SIZE || - paper_size == B4_SIZE + LANDSCAPE || - paper_size == LEGAL_SIZE || - paper_size == LEGAL_SIZE + LANDSCAPE) - /* for BJC-880J */ - fprintf(prn_stream, "%c3&z", LIPS_CSI); - else if (paper_size == A3_SIZE || - paper_size == A3_SIZE + LANDSCAPE || - paper_size == LEDGER_SIZE || - paper_size == LEDGER_SIZE + LANDSCAPE) - /* for BJC-880J */ - fprintf(prn_stream, "%c4&z", LIPS_CSI); - else - fprintf(prn_stream, "%c2&z", LIPS_CSI); - } - if (ptype == LIPS4) { - if (strcmp(lips4->mediaType, "PlainPaper") == 0) - fprintf(prn_stream, "%c20\'t", LIPS_CSI); - else if (strcmp(lips4->mediaType, "OHP") == 0 || - strcmp(lips4->mediaType, "TransparencyFilm") == 0) - fprintf(prn_stream, "%c40\'t", LIPS_CSI); /* OHP mode (for LBP-2160) */ - else if (strcmp(lips4->mediaType, "CardBoard") == 0) - fprintf(prn_stream, "%c30\'t", LIPS_CSI); /* CardBoard mode (for LBP-2160) */ - else if (strcmp(lips4->mediaType, "GlossyFilm") == 0) - fprintf(prn_stream, "%c41\'t", LIPS_CSI); /* GlossyFile mode (for LBP-2160) */ - } - if (ptype == LIPS4 || ptype == BJC880J) { - if (lips4->ManualFeed || - (strcmp(lips4->mediaType, "PlainPaper") != 0 && strcmp(lips4->mediaType, LIPS_MEDIATYPE_DEFAULT) != 0)) { - if (lips->prev_feed_mode != 10) - fprintf(prn_stream, "%c10q", LIPS_CSI); - lips->prev_feed_mode = 10; - } else { - if (lips->prev_feed_mode != lips->cassetFeed) - fprintf(prn_stream, "%c%dq", LIPS_CSI, lips->cassetFeed); - lips->prev_feed_mode = lips->cassetFeed; - } - } else if (lips->ManualFeed) { /* Use ManualFeed */ - if (lips->prev_feed_mode != 1) - fprintf(prn_stream, "%c1q", LIPS_CSI); - lips->prev_feed_mode = 1; - } else { - if (lips->prev_feed_mode != lips->cassetFeed) - fprintf(prn_stream, "%c%dq", LIPS_CSI, lips->cassetFeed); - lips->prev_feed_mode = lips->cassetFeed; - } - - /* Use Verious Paper Size */ - prev_paper_size = lips->prev_paper_size; - prev_paper_width = lips->prev_paper_width; - prev_paper_height = lips->prev_paper_height; - - if (prev_paper_size != paper_size) { - if (paper_size == USER_SIZE) { - fprintf(prn_stream, "%c2 I", LIPS_CSI); - fprintf(prn_stream, "%c80;%d;%dp", LIPS_CSI, - width * 10, height * 10); - } else if (paper_size == USER_SIZE + LANDSCAPE) { - fprintf(prn_stream, "%c2 I", LIPS_CSI); - fprintf(prn_stream, "%c81;%d;%dp", LIPS_CSI, - height * 10, width * 10); - } else { - fprintf(prn_stream, "%c%dp", LIPS_CSI, paper_size); - } - } else if (paper_size == USER_SIZE) { - if (prev_paper_width != width || - prev_paper_height != height) { - fprintf(prn_stream, "%c2 I", LIPS_CSI); - fprintf(prn_stream, "%c80;%d;%dp", LIPS_CSI, - width * 10, height * 10); - } - } else if (paper_size == USER_SIZE + LANDSCAPE) { - if (prev_paper_width != width || - prev_paper_height != height) { - fprintf(prn_stream, "%c2 I", LIPS_CSI); - fprintf(prn_stream, "%c81;%d;%dp", LIPS_CSI, - height * 10, width * 10); - } - } - /* desired number of copies */ - if (num_copies > 255) - num_copies = 255; - if (lips->prev_num_copies != num_copies) { - fprintf(prn_stream, "%c%dv", LIPS_CSI, num_copies); - lips->prev_num_copies = num_copies; - } - if (ptype == LIPS4) { - if (lips4->faceup) - fprintf(prn_stream, "%c11;12;12~", LIPS_CSI); - } - if (ptype == LIPS4) { - - if (pdev->PageCount == 0) { - /* N-up Printing */ - if (lips4->nup != 1) { - fprintf(prn_stream, "%c%d1;;%do", LIPS_CSI, lips4->nup, paper_size); - } - } - /* Duplex mode */ - { - bool dup = lips4->Duplex; - int dupset = lips4->Duplex_set; - bool tum = lips4->Tumble; - - if (dupset && dup) { - if (lips4->prev_duplex_mode == 0 || - lips4->prev_duplex_mode == 1) - fprintf(prn_stream, "%c2;#x", LIPS_CSI); /* duplex */ - if (!tum) { - /* long edge binding */ - if (lips4->prev_duplex_mode != 2) - fprintf(prn_stream, "%c0;#w", LIPS_CSI); - lips4->prev_duplex_mode = 2; - } else { - /* short edge binding */ - if (lips4->prev_duplex_mode != 3) - fprintf(prn_stream, "%c2;#w", LIPS_CSI); - lips4->prev_duplex_mode = 3; - } - } else if (dupset && !dup) { - if (lips4->prev_duplex_mode != 1) - fprintf(prn_stream, "%c0;#x", LIPS_CSI); /* simplex */ - lips4->prev_duplex_mode = 1; - } - } - } - if (pdev->PageCount == 0) { - /* Display text on printer panel */ - fprintf(prn_stream, "%c2y%s%c", LIPS_DCS, lips->Username, LIPS_ST); - - fprintf(prn_stream, "%c11h", LIPS_CSI); /* Size Unit Mode */ - - fprintf(prn_stream, "%c?2;3h", LIPS_CSI); - /* 2: Disable Auto FF */ - /* 3: Disable Auto CAP Movement */ - - fprintf(prn_stream, "%c?1;4;5;6l", LIPS_CSI); - /* 1: Disable Auto NF */ - /* 4: Disable Auto LF at CR */ - /* 5: Disable Auto CR at LF */ - /* 6: Disable Auto CR at FF */ - } - if (prev_paper_size != paper_size || paper_size == USER_SIZE || - paper_size == USER_SIZE + LANDSCAPE) { - if (ptype == LIPS4 || ptype == BJC880J) { - fprintf(prn_stream, "%c?7;%d I", LIPS_CSI, - (int)pdev->x_pixels_per_inch); /* SelectSizeUnit */ - } else { - fprintf(prn_stream, "%c7 I", LIPS_CSI); /* SelectSizeUnit */ - } - - if (ptype == LIPS4 || ptype == BJC880J) - { - if (pdev->color_info.depth == 24) - fprintf(prn_stream, "%c%d G", LIPS_CSI, NUM_LINES_4C); /* VMI (dots) */ - else - fprintf(prn_stream, "%c%d G", LIPS_CSI, NUM_LINES); /* VMI (dots) */ - } - } - if (prev_paper_size != paper_size) { - /* Top Margin: 63/300 inch + 5 mm */ - tm = (63. / 300. + 5. / MMETER_PER_INCH - dev_t_margin(pdev)) * pdev->x_pixels_per_inch; - if (tm > 0) - fprintf(prn_stream, "%c%dk", LIPS_CSI, tm); - if (tm < 0) - fprintf(prn_stream, "%c%de", LIPS_CSI, -tm); - - /* Left Margin: 5 mm left */ - lm = (5. / MMETER_PER_INCH - dev_l_margin(pdev)) * pdev->x_pixels_per_inch; - if (lm > 0) - fprintf(prn_stream, "%c%dj", LIPS_CSI, lm); - if (lm < 0) - fprintf(prn_stream, "%c%da", LIPS_CSI, -lm); - - /* Set Top/Left Margins */ - fprintf(prn_stream, "%c0;2t", LIPS_CSI); - - /* Bottom Margin: height */ - bm = pdev->height - (dev_t_margin(pdev) + dev_b_margin(pdev)) * pdev->y_pixels_per_inch; - fprintf(prn_stream, "%c%de", LIPS_CSI, bm); - /* Right Margin: width */ - rm = pdev->width - (dev_l_margin(pdev) + dev_r_margin(pdev)) * pdev->x_pixels_per_inch; - fprintf(prn_stream, "%c%da", LIPS_CSI, rm); - fprintf(prn_stream, "%c1;3t", LIPS_CSI); - - /* move CAP to (0, 0) */ - fprintf(prn_stream, "%c%dk\r", LIPS_CSI, bm); - } - lips->prev_paper_size = paper_size; - lips->prev_paper_width = width; - lips->prev_paper_height = height; -} - -private void -lips_job_end(gx_device_printer * pdev, FILE * prn_stream) -{ - /* Paper eject command */ - fprintf(prn_stream, "\r%c", LIPS_FF); -} - -private int lips_delta_compress(byte * inBuff, byte * prevBuff, byte * diffBuff, int Length); - -private int -lips_delta_encode(byte * inBuff, byte * prevBuff, byte * outBuff, byte * diffBuff, int Length) -{ - int i, j, k, com_size; - - - - com_size = lips_delta_compress(inBuff, prevBuff, diffBuff, Length); - if (com_size < 0) { /* data is white raster */ - *outBuff = 0x01; - *(outBuff + 1) = 0000; - for (k = 0; k < Length; k++) - *(prevBuff + k) = 0000; - return 2; - } else if (com_size == 0) { /* data is the same raster */ - *outBuff = 0000; - return 1; - } - for (i = 0; i < com_size / 255; i++) { - *(outBuff + i) = 0377; - } - - *(outBuff + i) = (byte) (com_size % 255); - - for (j = 0; j < com_size; j++) { - *(outBuff + i + j + 1) = *(diffBuff + j); - } - - for (k = 0; k < Length; k++) - *(prevBuff + k) = *(inBuff + k); - - - return i + j + 1; -} - -private int -lips_delta_compress(byte * inBuff, byte * prevBuff, byte * diffBuff, int Length) -{ - int i, j; - bool zero_flag = TRUE; - bool same_flag = TRUE; - int num_bytes = 0; - int num_commandbyte = 0; - int size = 0; - int offset = 0; - - for (i = 0; i < Length; i++) { - if (*(inBuff + i) != 0x00) - zero_flag = FALSE; - - /* Compare Buffer */ - if (*(inBuff + i) != *(prevBuff + i)) { - num_bytes++; - - if (same_flag == TRUE) { - /* first byte is offset */ - if (offset > 31) - *(diffBuff + size) = 0037; - else - *(diffBuff + size) = offset; - - size++; - num_commandbyte++; - - for (j = 0; j < (offset - 31) / 255; j++) { - *(diffBuff + size) = 0377; - size++; - num_commandbyte++; - } - - if ((offset - 31) % 255 >= 0) { - *(diffBuff + size) = (offset - 31) % 255; - size++; - num_commandbyte++; - } - same_flag = FALSE; - - } - } else { - same_flag = TRUE; - offset++; - } - - if (num_bytes > 8) { - /* write number of data for replace */ - *(diffBuff + size - num_commandbyte) - = *(diffBuff + size - num_commandbyte) | 0340; - - for (j = 0; j < 8; j++, size++) { - *(diffBuff + size) = *(inBuff + i + j - 8); - } - - /* offset is 0 */ - *(diffBuff + size) = 0000; - size++; - - num_bytes = 1; - same_flag = FALSE; - num_commandbyte = 1; - } else if (same_flag == true && num_bytes > 0) { - offset = 1; - - /* write number of data for replace */ - *(diffBuff + size - num_commandbyte) - = *(diffBuff + size - num_commandbyte) | ((num_bytes - 1) << 5); - - /* write a different bytes */ - for (j = 0; j < num_bytes; j++, size++) { - *(diffBuff + size) = *(inBuff + i + j - num_bytes); - } - num_bytes = 0; - num_commandbyte = 0; - } - } - - if (num_bytes > 0) { - /* write number of data for replace */ - *(diffBuff + size - num_commandbyte) - = *(diffBuff + size - num_commandbyte) | ((num_bytes - 1) << 5); - - for (j = 0; j < num_bytes; j++, size++) { - *(diffBuff + size) = *(inBuff + i + j - num_bytes); - } - } - if (zero_flag) - return -1; - - return size; -} - -/* This routine work like ``strcat'' */ -private int -lips_byte_cat(byte * TotalBuff, byte * Buff, int TotalLen, int Len) -{ - int i; - - for (i = 0; i < Len; i++) - *(TotalBuff + TotalLen + i) = *(Buff + i); - - return TotalLen + Len; -} diff --git a/gs/contrib/lips4/gdevl4v.c b/gs/contrib/lips4/gdevl4v.c deleted file mode 100644 index 5688d0888..000000000 --- a/gs/contrib/lips4/gdevl4v.c +++ /dev/null @@ -1,2490 +0,0 @@ -/* Copyright (C) 1998, 1999 Norihito Ohmori. - - Ghostscript printer driver - for Canon LBP (LIPS IV) - - This software is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY. No author or distributor accepts responsibility - to anyone for the consequences of using it or for whether it serves any - particular purpose or works at all, unless he says so in writing. Refer - to the GNU General Public License for full details. - - Everyone is granted permission to copy, modify and redistribute - this software, but only under the conditions described in the GNU - General Public License. A copy of this license is supposed to have been - given to you along with this software so you can know your rights and - responsibilities. It should be in a file named COPYING. Among other - things, the copyright notice and this notice must be preserved on all - copies. - */ - -/*$Id: gdevl4v.c $ */ -/* Vector Version of LIPS driver */ - -/* - - Vector driver は Ghostscript 5.0 から新たに加わったドライバです。 - よって仕様が安定していません。Ghostscript 5.10 と Ghostscript 5.50 では - Hi-level bitmap imaging の仕様が変わっています。 - Ghostscript 6.0 では更に text_begin という API が追加されるようです。 - - - ○Ghostscript 5.10/5.50 のバグについて - - Ghostscript 5.10/5.50 の Vector driver の setlinewidth 関数には - バグがあります。本来スケールが変更されるにしたがって線の太さも変更され - なければなりませんが、Ghostscript 5.10/5.50 ではスケールを考慮するのを - 忘れています。(バグ報告を2回ほど送ったのだけれど...) - このドライバはそのバグを回避するためにスケールを自分で処理しています。 - - Ghostscript 5.10 の生成するパスは Ghostscript 5.50 が生成するパスよりも - 非常に効率の悪いものになることがあります。LIPS IV の処理できる限界を超える - こともありました。効率の悪いパスは速度の低下にもつながるので Ghostscript - 5.50 を使った方がこのドライバでは出力速度が速くなります。 - - また Ghostscript 5.10 では - fill_trapezoid、fill_parallelogram、fill_triangle - の関数の挙動が変になることがあったのでこれらは使っていません。 - - - ○ LIPS IV のバグについて - - このドライバは開発中に発見した次の LIPS IV のバグを回避しています。 - 1. 1 dot のイメージを変形したときに座標の計算が狂う - 2. 小さなイメージを描画すると正常に描かれない - 3. クリッピング命令とパス・クリッピング命令がそれぞれ独立に働いてしまう。 - - 1. は 1 dot のイメージを矩形にして回避しました。 - 2. はイメージ領域確保命令で分割を指定することにより回避しました。 - 3. はクリッピング命令を使わないことにして回避しました。 - - - ○ LIPS IV の仕様について - - 1. 単色イメージ・カラー指定命令はグレースケールイメージに対しても - 働いてしまいます。 - 2. LIPS IV ではグレースケールの色表現が PostScript と逆です。 - 3. LIPS IV にはイメージのビットを反転させるコマンドはありません。 - 4. LIPS IV には CMYK のカラースペースはありません。 - - */ - -#include "string.h" -#include "math_.h" -#include "gx.h" -#include "gserrors.h" -#include "gsmatrix.h" -#include "gsparam.h" -#include "gxdevice.h" -#include "gscspace.h" -#include "gsutil.h" -#include "gdevvec.h" -#if 0 -#include "gdevpstr.h" -#endif -#include "ghost.h" -#include "gzstate.h" -#include "imemory.h" -#include "igstate.h" -#include "gdevlips.h" - -/* ---------------- Device definition ---------------- */ - -/* Device procedures */ -private dev_proc_open_device(lips4v_open); -private dev_proc_output_page(lips4v_output_page); -private dev_proc_close_device(lips4v_close); -private dev_proc_copy_mono(lips4v_copy_mono); -private dev_proc_copy_color(lips4v_copy_color); -private dev_proc_put_params(lips4v_put_params); -private dev_proc_get_params(lips4v_get_params); -private dev_proc_fill_mask(lips4v_fill_mask); -private dev_proc_begin_image(lips4v_begin_image); - - -#define X_DPI 600 -#define Y_DPI 600 - -typedef struct gx_device_lips4v_s -{ - gx_device_vector_common; - lips_params_common; - lips4_params_common; - bool first_page; - bool ManualFeed; - bool Duplex; - int Duplex_set; - bool Tumble; - bool OneBitMask; /* for LIPS Bug */ - int ncomp; - int MaskReverse; - int MaskState; - bool TextMode; - int prev_x; - int prev_y; - gx_color_index prev_color; - gx_color_index current_color; - int linecap; - /* for Font Downloading */ -#define max_cached_chars 256 /* 128 * n */ - bool FontDL; - int current_font; - int count; - gx_bitmap_id id_table[max_cached_chars + 1]; - gx_bitmap_id id_cache[max_cached_chars + 1]; -} -gx_device_lips4v; - -gs_public_st_suffix_add0_final(st_device_lips4v, gx_device_lips4v, - "gx_device_lips4v", device_lips4v_enum_ptrs, - device_lips4v_reloc_ptrs, gx_device_finalize, - st_device_vector); - -#define lips_device_full_body(dtype, pprocs, dname, stype, w, h, xdpi, ydpi, ncomp, depth, mg, mc, dg, dc, lm, bm, rm, tm)\ - std_device_part1_(dtype, pprocs, dname, stype, open_init_closed),\ - dci_values(ncomp, depth, mg, mc, dg, dc),\ - std_device_part2_(w, h, xdpi, ydpi),\ - offset_margin_values(-lm * xdpi, -tm * ydpi, lm * 72.0, bm * 72.0, rm * 72.0, tm * 72.0),\ - std_device_part3_() - -#define lips4v_device_body\ - lips_device_full_body(gx_device_lips4v, 0, "lips4v",\ - &st_device_lips4v,\ - DEFAULT_WIDTH_10THS * X_DPI / 10,\ - DEFAULT_HEIGHT_10THS * Y_DPI / 10,\ - X_DPI, Y_DPI,\ - 1, 8, 1000, 1000, 5, 2,\ - LIPS4_LEFT_MARGIN_DEFAULT,\ - LIPS4_BOTTOM_MARGIN_DEFAULT,\ - LIPS4_RIGHT_MARGIN_DEFAULT,\ - LIPS4_TOP_MARGIN_DEFAULT) - - -#define lips4v_procs\ - { lips4v_open,\ - gx_upright_get_initial_matrix,\ - NULL, /* sync_output */\ - lips4v_output_page,\ - lips4v_close,\ - gx_default_gray_map_rgb_color,\ - gx_default_gray_map_color_rgb,\ - gdev_vector_fill_rectangle,\ - NULL, /* tile_rectangle */\ - lips4v_copy_mono,\ - lips4v_copy_color,\ - NULL, /* draw_line */\ - NULL, /* get_bits */\ - lips4v_get_params,\ - lips4v_put_params,\ - NULL, /* map_cmyk_color */\ - NULL, /* get_xfont_procs */\ - NULL, /* get_xfont_device */\ - NULL, /* map_rgb_alpha_color */\ - gx_page_device_get_page_device,\ - NULL, /* get_alpha_bits */\ - NULL, /* copy_alpha */\ - NULL, /* get_band */\ - NULL, /* copy_rop */\ - gdev_vector_fill_path,\ - gdev_vector_stroke_path,\ - lips4v_fill_mask,\ - gdev_vector_fill_trapezoid,\ - gdev_vector_fill_parallelogram,\ - gdev_vector_fill_triangle,\ - NULL /****** WRONG ******/, /* draw_thin_line */\ - lips4v_begin_image,\ - NULL,\ - NULL,\ - NULL, /* strip_tile_rectangle */\ - NULL/******strip_copy_rop******/\ - } - -gx_device_lips4v far_data gs_lips4v_device = { - lips4v_device_body, - lips4v_procs, - vector_initial_values, - LIPS_CASSETFEED_DEFAULT, - LIPS_USERNAME_DEFAULT, - FALSE /* PJL */ , - 0 /* toner_density */ , - FALSE /* toner_saving */ , - 0 /* toner_saving_set */ , - 0, 0, 0, 0, -1, - 0 /* prev_duplex_mode */ , - LIPS_NUP_DEFAULT, - LIPS_FACEUP_DEFAULT, - LIPS_MEDIATYPE_DEFAULT, - 0 /* first_page */ , - LIPS_MANUALFEED_DEFAULT, - 0 /* Duplex */ , 0 /* Duplex_set */ , LIPS_TUMBLE_DEFAULT, - 0 /* OneBitMask */ , - 0 /* ncomp */ , -1 /* MaskReverse */ , 0 /* MaskState */ , - 0 /* TextMode */ , 0 /* prev_x */ , 0 /* prev_y */ , - 0 /* prev_color */ , 0 /* current_color */ , - 0 /* linecap */ , - 0 /* FontDL */ , - -1 /* current_font */ , - 0 /* count */ , - {0}, - {0} -}; - -/* Vector device implementation */ -#if GS_VERSION_MAJOR >= 8 -private int lips4v_beginpage(gx_device_vector * vdev); -private int lips4v_setfillcolor(gx_device_vector * vdev, const gs_imager_state * pis, - const gx_drawing_color * pdc); -private int lips4v_setstrokecolor(gx_device_vector * vdev, const gs_imager_state * pis, - const gx_drawing_color * pdc); -private int lips4v_setdash(gx_device_vector * vdev, const float *pattern, - uint count, floatp offset); -private int lips4v_setflat(gx_device_vector * vdev, floatp flatness); -private int -lips4v_setlogop(gx_device_vector * vdev, gs_logical_operation_t lop, - gs_logical_operation_t diff); -private int lips4v_can_handle_hl_color(gx_device_vector * vdev, const gs_imager_state * pis, - const gx_drawing_color * pdc); -private int - -lips4v_beginpath(gx_device_vector * vdev, gx_path_type_t type); -private int -lips4v_moveto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type); -private int -lips4v_lineto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type); -private int -lips4v_curveto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x1, - floatp y1, floatp x2, floatp y2, floatp x3, floatp y3, - gx_path_type_t type); -private int -lips4v_closepath(gx_device_vector * vdev, floatp x, floatp y, floatp x_start, - floatp y_start, gx_path_type_t type); - -private int lips4v_endpath(gx_device_vector * vdev, gx_path_type_t type); -#else -private int lips4v_beginpage(P1(gx_device_vector * vdev)); -private int lips4v_setfillcolor(P2(gx_device_vector * vdev, - const gx_drawing_color * pdc)); -private int lips4v_setstrokecolor(P2(gx_device_vector * vdev, - const gx_drawing_color * pdc)); -private int lips4v_setdash(P4(gx_device_vector * vdev, const float *pattern, - uint count, floatp offset)); -private int lips4v_setflat(P2(gx_device_vector * vdev, floatp flatness)); -private int -lips4v_setlogop(P3 - - (gx_device_vector * vdev, gs_logical_operation_t lop, - gs_logical_operation_t diff)); -private int - -lips4v_beginpath(P2(gx_device_vector * vdev, gx_path_type_t type)); -private int -lips4v_moveto(P6 - (gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type)); -private int -lips4v_lineto(P6 - (gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type)); -private int -lips4v_curveto(P10 - (gx_device_vector * vdev, floatp x0, floatp y0, floatp x1, - floatp y1, floatp x2, floatp y2, floatp x3, floatp y3, - gx_path_type_t type)); -private int -lips4v_closepath(P6 - (gx_device_vector * vdev, floatp x, floatp y, floatp x_start, - floatp y_start, gx_path_type_t type)); - -private int lips4v_endpath(P2(gx_device_vector * vdev, gx_path_type_t type)); -#endif -private int lips4v_setlinewidth(gx_device_vector * vdev, floatp width); -private int lips4v_setlinecap(gx_device_vector * vdev, gs_line_cap cap); -private int lips4v_setlinejoin(gx_device_vector * vdev, gs_line_join join); -private int lips4v_setmiterlimit(gx_device_vector * vdev, floatp limit); -private const gx_device_vector_procs lips4v_vector_procs = { - /* Page management */ - lips4v_beginpage, - /* Imager state */ - lips4v_setlinewidth, - lips4v_setlinecap, - lips4v_setlinejoin, - lips4v_setmiterlimit, - lips4v_setdash, - lips4v_setflat, - lips4v_setlogop, - /* Other state */ -#if GS_VERSION_MAJOR >= 8 - lips4v_can_handle_hl_color, /* can_handle_hl_color (dummy) */ -#endif - lips4v_setfillcolor, /* fill & stroke colors are the same */ - lips4v_setstrokecolor, - /* Paths */ - gdev_vector_dopath, - gdev_vector_dorect, - lips4v_beginpath, - lips4v_moveto, - lips4v_lineto, - lips4v_curveto, - lips4v_closepath, - lips4v_endpath -}; - -/* ---------------- File header ---------------- */ - -private const char *l4v_file_header1 = - - "\033%-12345X@PJL CJLMODE\n@PJL JOB\n\033%-12345X@PJL CJLMODE\n"; -private const char *l4v_file_header2 = "@PJL SET LPARM : LIPS SW2 = ON\n"; -private const char *l4v_file_header3 = "@PJL ENTER LANGUAGE = LIPS\n"; -private const char *l4v_file_header4 = "\033%@\033P41;"; - - -private const char *l4vmono_file_header = - - ";1J" L4VMONO_STRING LIPS_VERSION "\033\\\033[0\"p\033<"; - -private const char *l4vcolor_file_header = - - ";1J" L4VCOLOR_STRING LIPS_VERSION "\033\\\033[1\"p\033<"; - -/* ---------------- Utilities ---------------- */ - -private void -lips_param(int param, char *c) -{ - int i, j; - bool bSign; - - bSign = TRUE; - if (param < 0) { - bSign = FALSE; - param = -param; - } - if (param < 16) - i = 1; - else if (param < 1024) - i = 2; - else if (param < 65536) - i = 3; - else - i = 4; - - c[i] = '\0'; - c[i - 1] = (param & 0x0f) | 0x20 | (bSign ? 0x10 : 0x00); - param >>= 4; - for (j = i - 2; j >= 0; j--) { - c[j] = (param & 0x3f) | 0x40; - param >>= 6; - } -} - -private void -sput_lips_int(stream * s, int param) -{ - int i; - char c[5]; - - lips_param(param, c); - for (i = 0; i < strlen(c); i++) - sputc(s, c[i]); -} - -/* Put a string on a stream. - This function is copy of `pputs' in gdevpstr.c */ -private int -lputs(stream * s, const char *str) -{ - uint len = strlen(str); - uint used; - int status = sputs(s, (const byte *)str, len, &used); - - return (status >= 0 && used == len ? 0 : EOF); -} - -/* Write a string on a stream. */ -private void -put_bytes(stream * s, const byte * data, uint count) -{ - uint used; - - sputs(s, data, count, &used); -} - -/* for Font Downloading */ -private void -put_int(stream * s, uint number) -{ - sputc(s, number >> 8); - sputc(s, number & 0xff); -} - -private int -lips4v_range_check(gx_device * dev) -{ - int width = dev->MediaSize[0]; - int height = dev->MediaSize[1]; - int xdpi = dev->x_pixels_per_inch; - int ydpi = dev->y_pixels_per_inch; - - /* Paper Size Check */ - if (width <= height) { /* portrait */ - if ((width < LIPS_WIDTH_MIN || width > LIPS_WIDTH_MAX || - height < LIPS_HEIGHT_MIN || height > LIPS_HEIGHT_MAX) && - !(width == LIPS_LEDGER_WIDTH && height == LIPS_LEDGER_HEIGHT)) - return_error(gs_error_rangecheck); - } else { /* landscape */ - if ((width < LIPS_HEIGHT_MIN || width > LIPS_HEIGHT_MAX || - height < LIPS_WIDTH_MIN || height > LIPS_WIDTH_MAX) && - !(width == LIPS_LEDGER_HEIGHT && height == LIPS_LEDGER_WIDTH)) - return_error(gs_error_rangecheck); - } - - /* Resolution Check */ - if (xdpi != ydpi) - return_error(gs_error_rangecheck); - else { - if ((xdpi < LIPS_DPI_MIN || xdpi > LIPS4_DPI_MAX) - && xdpi != LIPS4_DPI_SUPERFINE) return_error(gs_error_rangecheck); - } - - return 0; -} - - -private void -lips4v_set_cap(gx_device * dev, int x, int y) -{ - - char cap[15]; - stream *s = gdev_vector_stream((gx_device_vector *) dev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - int dx = x - pdev->prev_x; - int dy = y - pdev->prev_y; - - - if (dx > 0) { - sprintf(cap, "%c%da", LIPS_CSI, dx); - lputs(s, cap); - } else if (dx < 0) { - sprintf(cap, "%c%dj", LIPS_CSI, -dx); - lputs(s, cap); - } - if (dy > 0) { - sprintf(cap, "%c%dk", LIPS_CSI, dy); - lputs(s, cap); - } else if (dy < 0) { - sprintf(cap, "%c%de", LIPS_CSI, -dy); - lputs(s, cap); - } - pdev->prev_x = x; - pdev->prev_y = y; -} - -#define POINT 18 - -/* Font Downloading Routine */ -private int -lips4v_copy_text_char(gx_device * dev, const byte * data, - int raster, gx_bitmap_id id, int x, int y, int w, int h) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - stream *s = gdev_vector_stream((gx_device_vector *) dev); - uint width_bytes = (w + 7) >> 3; - uint size = width_bytes * h; - int i, j; - uint ccode; - char cset_sub[9], cset[64], cset_number[8], text_color[15]; - int cell_length = (POINT * (int)dev->x_pixels_per_inch) / 72; - bool download = TRUE; - - if (w > cell_length || h > cell_length || !pdev->FontDL) - return -1; - - for (j = pdev->count - 1; j >= 0; j--) { - if (pdev->id_table[j] == id) - /* font is found */ - { - download = FALSE; - ccode = j; - for (i = j; i < pdev->count - 1; i++) { - pdev->id_cache[i] = pdev->id_cache[i + 1]; - } - pdev->id_cache[pdev->count - 1] = id; - break; - } - } - - if (download) { - if (pdev->count > max_cached_chars - 1) { - gx_bitmap_id tmpid = pdev->id_cache[0]; - - for (j = pdev->count - 1; j >= 0; j--) { - if (pdev->id_table[j] == tmpid) { - ccode = j; - break; - } - } - for (i = j; i < pdev->count - 1; i++) { - pdev->id_cache[i] = pdev->id_cache[i + 1]; - } - pdev->id_cache[pdev->count - 1] = tmpid; - } else { - ccode = pdev->count; - pdev->id_cache[pdev->count] = id; - } - } - if (pdev->TextMode == FALSE) { - /* Text mode */ - lputs(s, "}p"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sputc(s, LIPS_IS2); - pdev->TextMode = TRUE; - pdev->prev_x = x; - pdev->prev_y = y; - } else - lips4v_set_cap(dev, x, y); - - if (download) { - if (ccode % 128 == 0 && ccode == pdev->count) { - /* 文字セット登録補助命令 */ - sprintf(cset_sub, "%c%dx%c", LIPS_DCS, ccode / 128, LIPS_ST); - lputs(s, cset_sub); - /* 文字セット登録命令 */ - sprintf(cset, - "%c%d;1;0;0;3840;8;400;100;0;0;200;%d;%d;0;0;;;;;%d.p", - LIPS_CSI, - size + 9, cell_length, /* Cell Width */ - cell_length, /* Cell Height */ - (int)dev->x_pixels_per_inch); - lputs(s, cset); - } else { - /* 1文字登録命令 */ - sprintf(cset, - "%c%d;%d;8;%d.q", LIPS_CSI, - size + 9, ccode / 128, (int)dev->x_pixels_per_inch); - lputs(s, cset); - } - - /* ユーザ文字登録データ のヘッダ */ - sputc(s, ccode % 128); /* charcter code */ - put_int(s, w); - put_int(s, 0); - put_int(s, h); - put_int(s, 0); - for (i = h - 1; i >= 0; --i) { - put_bytes(s, data + i * raster, width_bytes); - } - } - /* 文字セット・アサイン番号選択命令2 */ - if (download) { - if (pdev->current_font != ccode / 128) { - sprintf(cset_number, "%c%d%%v", LIPS_CSI, ccode / 128); - lputs(s, cset_number); - pdev->current_font = ccode / 128; - } - } else { - if (pdev->current_font != ccode / 128) { - sprintf(cset_number, "%c%d%%v", LIPS_CSI, ccode / 128); - lputs(s, cset_number); - pdev->current_font = ccode / 128; - } - } - - /* カラー */ - if (pdev->current_color != pdev->prev_color) { - if (pdev->color_info.depth == 8) { - sputc(s, LIPS_CSI); - lputs(s, "?10;2;"); - sprintf(text_color, "%d", - (int)(pdev->color_info.max_gray - pdev->current_color)); - } else { - int r = (pdev->current_color >> 16) * 1000.0 / 255.0; - int g = ((pdev->current_color >> 8) & 0xff) * 1000.0 / 255.0; - int b = (pdev->current_color & 0xff) * 1000.0 / 255.0; - - sputc(s, LIPS_CSI); - lputs(s, "?10;;"); - sprintf(text_color, "%d;%d;%d", r, g, b); - } - lputs(s, text_color); - lputs(s, "%p"); - pdev->prev_color = pdev->current_color; - } - /* 制御文字印字命令 */ - if (ccode % 128 == 0x00 || - (ccode % 128 >= 0x07 && ccode % 128 <= 0x0F) || - ccode % 128 == 0x1B) { - sputc(s, LIPS_CSI); - lputs(s, "1.v"); - } - sputc(s, ccode % 128); - - if (download) { - pdev->id_table[ccode] = id; - if (pdev->count < max_cached_chars - 1) - pdev->count++; - } - return 0; -} - -private void -reverse_buffer(byte * buf, int Len) -{ - int i; - - for (i = 0; i < Len; i++) - *(buf + i) = ~*(buf + i); -} - -private void -lips4v_write_image_data(gx_device_vector * vdev, byte * buf, int tbyte, - int reverse) -{ - stream *s = gdev_vector_stream(vdev); - byte *cbuf = gs_alloc_bytes(vdev->memory, tbyte * 3 / 2, - "lips4v_write_image_data(cbuf)"); - byte *cbuf_rle = gs_alloc_bytes(vdev->memory, tbyte * 3, - "lips4v_write_image_data(cbuf_rle)"); - int Len, Len_rle; - - if (reverse) - reverse_buffer(buf, tbyte); - - - Len = lips_packbits_encode(buf, cbuf, tbyte); - Len_rle = lips_rle_encode(buf, cbuf_rle, tbyte); - - if (Len > tbyte && Len_rle > tbyte) { - /* Not compress */ - lputs(s, "0"); - sput_lips_int(s, tbyte); - sputc(s, LIPS_IS2); - - put_bytes(s, buf, tbyte); - } else if (Len > Len_rle) { - /* Use RunLength encode */ - lputs(s, ":"); - sput_lips_int(s, Len_rle); - sputc(s, LIPS_IS2); - - put_bytes(s, cbuf_rle, Len_rle); - } else { - /* Use PackBits encode */ - lputs(s, ";"); - sput_lips_int(s, Len); - sputc(s, LIPS_IS2); - - put_bytes(s, cbuf, Len); - } - - gs_free_object(vdev->memory, cbuf, "lips4v_write_image_data(cbuf)"); - gs_free_object(vdev->memory, cbuf_rle, - "lips4v_write_image_data(cbuf_rle)"); -} - - -/* ---------------- Vector device implementation ---------------- */ - -private int -lips4v_beginpage(gx_device_vector * vdev) -{ /* - * We can't use gdev_vector_stream here, because this may be called - * from there before in_page is set. - */ - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - stream *s = vdev->strm; - int dpi = vdev->x_pixels_per_inch; - int width = pdev->MediaSize[0]; - int height = pdev->MediaSize[1]; - int paper_size, x0, y0; - char dpi_char[6], unit[14]; - char page_header[8], l4vmono_page_header[7], l4vcolor_page_header[7]; - char duplex_char[6], tumble_char[6], toner_d[26], toner_s[5], - - nup_char[10]; - char username[6 + LIPS_USERNAME_MAX], feedmode[5], paper[16], - - faceup_char[256]; - bool dup = pdev->Duplex; - int dupset = pdev->Duplex_set; - bool tum = pdev->Tumble; - - /* ベクタ・モード移行命令 CSI &} は頁ごとに発行する */ - - if (pdev->first_page) { - if (pdev->pjl) { - lputs(s, l4v_file_header1); - if ((int)pdev->x_pixels_per_inch == 1200) - lputs(s, "@PJL SET RESOLUTION = SUPERFINE\n"); - else if ((int)pdev->x_pixels_per_inch == 600) - lputs(s, "@PJL SET RESOLUTION = FINE\n"); - else if ((int)pdev->x_pixels_per_inch == 300) - lputs(s, "@PJL SET RESOLUTION = QUICK\n"); - lputs(s, l4v_file_header2); - if (pdev->toner_density) { - sprintf(toner_d, "@PJL SET TONER-DENSITY=%d\n", - pdev->toner_density); - lputs(s, toner_d); - } - if (pdev->toner_saving_set) { - lputs(s, "@PJL SET TONER-SAVING="); - if (pdev->toner_saving) - sprintf(toner_s, "ON\n"); - else - sprintf(toner_s, "OFF\n"); - lputs(s, toner_s); - } - lputs(s, l4v_file_header3); - } - lputs(s, l4v_file_header4); - - if (dpi > 9999) - return_error(gs_error_rangecheck); - - /* set reaolution (dpi) */ - sprintf(dpi_char, "%d", dpi); - lputs(s, dpi_char); - - if (pdev->color_info.depth == 8) - lputs(s, l4vmono_file_header); - else - lputs(s, l4vcolor_file_header); - - /* username */ - sprintf(username, "%c2y%s%c", LIPS_DCS, pdev->Username, LIPS_ST); - lputs(s, username); - } - if (strcmp(pdev->mediaType, "PlainPaper") == 0) { - sputc(s, LIPS_CSI); - lputs(s, "20\'t"); - } - else if (strcmp(pdev->mediaType, "OHP") == 0 || - strcmp(pdev->mediaType, "TransparencyFilm") == 0) { - sputc(s, LIPS_CSI); - lputs(s, "40\'t"); /* OHP mode (for LBP-2160) */ - } - else if (strcmp(pdev->mediaType, "CardBoard") == 0) { - sputc(s, LIPS_CSI); - lputs(s, "30\'t"); /* CardBoard mode (for LBP-2160) */ - } - else if (strcmp(pdev->mediaType, "GlossyFilm") == 0) { - sputc(s, LIPS_CSI); - lputs(s, "41\'t"); /* GlossyFilm mode (for LBP-2160) */ - } - - /* 給紙モード */ - if (pdev->ManualFeed || - (strcmp(pdev->mediaType, "PlainPaper") != 0 - && strcmp(pdev->mediaType, LIPS_MEDIATYPE_DEFAULT) != 0)) { - /* Use ManualFeed */ - if (pdev->prev_feed_mode != 10) { - sprintf(feedmode, "%c10q", LIPS_CSI); - lputs(s, feedmode); - pdev->prev_feed_mode = 10; - } - } else { - if (pdev->prev_feed_mode != pdev->cassetFeed) { - sprintf(feedmode, "%c%dq", LIPS_CSI, pdev->cassetFeed); - lputs(s, feedmode); - pdev->prev_feed_mode = pdev->cassetFeed; - } - } - - paper_size = lips_media_selection(width, height); - - /* 用紙サイズ */ - if (pdev->prev_paper_size != paper_size) { - if (paper_size == USER_SIZE) { - /* modified by shige 06/27 2003 - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, width * 10, height * 10); */ - /* modified by shige 11/09 2003 - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, height * 10, width * 10); */ - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, - (height * 10 > LIPS_HEIGHT_MAX_720)? - LIPS_HEIGHT_MAX_720 : (height * 10), - (width * 10 > LIPS_WIDTH_MAX_720)? - LIPS_WIDTH_MAX_720 : (width * 10)); - lputs(s, paper); - } else if (paper_size == USER_SIZE + LANDSCAPE) { - /* modified by shige 06/27 2003 - sprintf(paper, "%c81;%d;%dp", LIPS_CSI, height * 10, width * 10); */ - /* modified by shige 11/09 2003 - sprintf(paper, "%c81;%d;%dp", LIPS_CSI, width * 10, height * 10); */ - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, - (width * 10 > LIPS_HEIGHT_MAX_720)? - LIPS_HEIGHT_MAX_720 : (width * 10), - (height * 10 > LIPS_WIDTH_MAX_720)? - LIPS_WIDTH_MAX_720 : (height * 10)); - lputs(s, paper); - } else { - sprintf(paper, "%c%dp", LIPS_CSI, paper_size); - lputs(s, paper); - } - } else if (paper_size == USER_SIZE) { - if (pdev->prev_paper_width != width || - pdev->prev_paper_height != height) - /* modified by shige 06/27 2003 - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, width * 10, height * 10); */ - /* modified by shige 11/09 2003 - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, height * 10, width * 10); */ - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, - (height * 10 > LIPS_HEIGHT_MAX_720)? - LIPS_HEIGHT_MAX_720 : (height * 10), - (width * 10 > LIPS_WIDTH_MAX_720)? - LIPS_WIDTH_MAX_720 : (width * 10)); - lputs(s, paper); - } else if (paper_size == USER_SIZE + LANDSCAPE) { - if (pdev->prev_paper_width != width || - pdev->prev_paper_height != height) - /* modified by shige 06/27 2003 - sprintf(paper, "%c81;%d;%dp", LIPS_CSI, height * 10, width * 10); */ - /* modified by shige 11/09 2003 - sprintf(paper, "%c81;%d;%dp", LIPS_CSI, width * 10, height * 10); */ - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, - (width * 10 > LIPS_HEIGHT_MAX_720)? - LIPS_HEIGHT_MAX_720 : (width * 10), - (height * 10 > LIPS_WIDTH_MAX_720)? - LIPS_WIDTH_MAX_720 : (height * 10)); - lputs(s, paper); - } - pdev->prev_paper_size = paper_size; - pdev->prev_paper_width = width; - pdev->prev_paper_height = height; - - if (pdev->faceup) { - sprintf(faceup_char, "%c11;12;12~", LIPS_CSI); - lputs(s, faceup_char); - } - /* N-up Printing Setting */ - if (pdev->first_page) { - if (pdev->nup != 1) { - sprintf(nup_char, "%c%d1;;%do", LIPS_CSI, pdev->nup, paper_size); - lputs(s, nup_char); - } - } - /* Duplex Setting */ - if (dupset && dup) { - if (pdev->prev_duplex_mode == 0 || pdev->prev_duplex_mode == 1) { - sprintf(duplex_char, "%c2;#x", LIPS_CSI); /* duplex */ - lputs(s, duplex_char); - if (!tum) { - /* long edge binding */ - if (pdev->prev_duplex_mode != 2) { - sprintf(tumble_char, "%c0;#w", LIPS_CSI); - lputs(s, tumble_char); - } - pdev->prev_duplex_mode = 2; - } else { - /* short edge binding */ - if (pdev->prev_duplex_mode != 3) { - sprintf(tumble_char, "%c2;#w", LIPS_CSI); - lputs(s, tumble_char); - } - pdev->prev_duplex_mode = 3; - } - } - } else if (dupset && !dup) { - if (pdev->prev_duplex_mode != 1) { - sprintf(duplex_char, "%c0;#x", LIPS_CSI); /* simplex */ - lputs(s, duplex_char); - } - pdev->prev_duplex_mode = 1; - } - sputc(s, LIPS_CSI); - lputs(s, "?1;4;5;6;14l"); - sputc(s, LIPS_CSI); - lputs(s, "?2;3;h"); - - /* size unit (dpi) */ - sputc(s, LIPS_CSI); - lputs(s, "11h"); - sprintf(unit, "%c?7;%d I", LIPS_CSI, (int)pdev->x_pixels_per_inch); - lputs(s, unit); - sprintf(page_header, "%c[0&}#%c", LIPS_ESC, LIPS_IS2); - lputs(s, page_header); /* vector mode */ - - lputs(s, "!0"); /* size unit (dpi) */ - sput_lips_int(s, dpi); - lputs(s, "1"); - sputc(s, LIPS_IS2); - - if (pdev->color_info.depth == 8) { - sprintf(l4vmono_page_header, "!13%c$%c", LIPS_IS2, LIPS_IS2); - lputs(s, l4vmono_page_header); - } else { - sprintf(l4vcolor_page_header, "!11%c$%c", LIPS_IS2, LIPS_IS2); - lputs(s, l4vcolor_page_header); - } - - lputs(s, "(00"); - sput_lips_int(s, - ((width - dev_l_margin(vdev) - dev_r_margin(vdev)) * dpi) / - 72); - sput_lips_int(s, - ((height - dev_b_margin(vdev) - dev_t_margin(vdev)) * dpi) / - 72); - sputc(s, LIPS_IS2); - - /* 原点移動命令 */ - x0 = (dev_l_margin(vdev) - 5. / MMETER_PER_INCH) * dpi; - y0 = (dev_b_margin(vdev) - 5. / MMETER_PER_INCH) * dpi; - - if (x0 != 0 && y0 != 0) { - lputs(s, "}\""); - sput_lips_int(s, x0); - sput_lips_int(s, y0); - sputc(s, LIPS_IS2); - } - lputs(s, "I00"); - sputc(s, LIPS_IS2); - lputs(s, "}F2"); - sputc(s, LIPS_IS2); - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - lputs(s, "*0"); - sputc(s, LIPS_IS2); - - pdev->MaskState = 1; /* 初期化: 透過 */ - pdev->linecap = 0; - lputs(s, "}M"); - sput_lips_int(s, 3277); /* 11 degree : 16383 * 2 / 10 */ - sputc(s, LIPS_IS2); - lputs(s, "}I1"); /* non-zero winding rule is default */ - sputc(s, LIPS_IS2); - - return 0; -} - - -private int -lips4v_setlinewidth(gx_device_vector * vdev, floatp width) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - - -#if 0 - /* Scale を掛けているのは, Ghostscript 5.10/5.50 のバグのため */ - floatp xscale, yscale; - - xscale = fabs(igs->ctm.xx); - yscale = fabs(igs->ctm.xy); - - if (xscale == 0 || yscale > xscale) /* if portrait */ - width = ceil(width * yscale); - else - width = ceil(width * xscale); -#endif - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - if (width < 1) - width = 1; - - lputs(s, "F1"); - sput_lips_int(s, width); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_setlinecap(gx_device_vector * vdev, gs_line_cap cap) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - char c[6]; - int line_cap = 0; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - switch (cap) { - case 0: - case 3: - line_cap = 0; /* butt */ - break; - case 1: - line_cap = 1; /* round */ - break; - case 2: - line_cap = 2; /* square */ - break; - } - /* 線端形状指定命令 */ - sprintf(c, "}E%d%c", line_cap, LIPS_IS2); - lputs(s, c); - - pdev->linecap = cap; - - return 0; -} - -private int -lips4v_setlinejoin(gx_device_vector * vdev, gs_line_join join) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - -/* 線接続指定命令 */ - char c[5]; - int lips_join = 0; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - - switch (join) { - case 0: - lips_join = 2; /* miter */ - break; - case 1: - lips_join = 1; /* round */ - break; - case 2: - lips_join = 3; /* bevel */ - break; - case 3: - case 4: - lips_join = 0; /* none */ - break; - } - - sprintf(c, "}F%d%c", lips_join, LIPS_IS2); - lputs(s, c); - - return 0; -} - -private int -lips4v_setmiterlimit(gx_device_vector * vdev, floatp limit) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - floatp lips_miterlimit; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - lips_miterlimit = (16383.0 * 2.0) / limit; - - lputs(s, "}M"); - sput_lips_int(s, lips_miterlimit); - sputc(s, LIPS_IS2); - - return 0; -} - -#if GS_VERSION_MAJOR >= 8 -private int -lips4v_setfillcolor(gx_device_vector * vdev, const gs_imager_state * pis, const gx_drawing_color * pdc) -#else -private int -lips4v_setfillcolor(gx_device_vector * vdev, const gx_drawing_color * pdc) -#endif -{ - - if (!gx_dc_is_pure(pdc)) - return_error(gs_error_rangecheck); - { - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - gx_color_index color = gx_dc_pure_color(pdc); - int drawing_color; - float r, g, b; - - if (vdev->color_info.depth == 8) { - drawing_color = vdev->color_info.max_gray - color; - } else { - r = (color >> 16) * 1000.0 / 255.0; - g = ((color >> 8) & 0xff) * 1000.0 / 255.0; - b = (color & 0xff) * 1000.0 / 255.0; - } - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - pdev->current_color = color; - - if (color == gx_no_color_index) { - lputs(s, "I0"); - sputc(s, LIPS_IS2); - } else { - lputs(s, "I1"); - sputc(s, LIPS_IS2); - } - - /* 塗りつぶしカラー指定命令 */ - /* J {color} IS2 */ - lputs(s, "J"); - if (vdev->color_info.depth == 8) { - sput_lips_int(s, drawing_color); - } else { - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - } - sputc(s, LIPS_IS2); - - /* 単色イメージ・カラー指定命令 */ - /* }T {color} IS2 */ - lputs(s, "}T"); - if (vdev->color_info.depth == 8) { - sput_lips_int(s, drawing_color); - } else { - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - } - sputc(s, LIPS_IS2); - } - return 0; -} - -#if GS_VERSION_MAJOR >= 8 -private int -lips4v_setstrokecolor(gx_device_vector * vdev, const gs_imager_state * pis, const gx_drawing_color * pdc) -#else -private int -lips4v_setstrokecolor(gx_device_vector * vdev, const gx_drawing_color * pdc) -#endif -{ - if (!gx_dc_is_pure(pdc)) - return_error(gs_error_rangecheck); - { - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - gx_color_index color = gx_dc_pure_color(pdc); - float r, g, b; - - if (vdev->color_info.depth == 24) { - r = (color >> 16) * 1000 / 255.0; - g = ((color >> 8) & 0xff) * 1000 / 255.0; - b = (color & 0xff) * 1000 / 255.0; - } - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - /* ラインカラー指定命令 */ - /* G {color} IS2 */ - lputs(s, "G"); - if (vdev->color_info.depth == 8) { - sput_lips_int(s, vdev->color_info.max_gray - color); - } else { - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - } - sputc(s, LIPS_IS2); - } - return 0; -} - -/* 線種指定命令 */ -private int -lips4v_setdash(gx_device_vector * vdev, const float *pattern, uint count, - floatp offset) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - int i; - float scale, xscale, yscale; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } -#if 0 - /* Scale を掛けているのは, Ghostscript 5.10/5.50 のバグのため */ - xscale = fabs(igs->ctm.xx); - yscale = fabs(igs->ctm.xy); - - if (xscale == 0) /* if portrait */ - scale = yscale; - else - scale = xscale; -#endif - - if (count == 0) { - lputs(s, "E10"); - sputc(s, LIPS_IS2); - } else { - lputs(s, "}d"); - sputc(s, 0x2c); - lputs(s, "1"); -#if 0 - sput_lips_int(s, offset * scale / vdev->x_pixels_per_inch + 0.5); -#else - sput_lips_int(s, offset); -#endif - for (i = 0; i < count; ++i) { - if (pdev->linecap == 1 && count == 2 && pattern[0] == 0) { - if (i == 0) { - sput_lips_int(s, 1); - } else { -#if 0 - sput_lips_int(s, - pattern[i] * scale / - vdev->x_pixels_per_inch - 0.5); -#else - sput_lips_int(s, pattern[i] - 1); -#endif - } - } else { -#if 0 - sput_lips_int(s, - pattern[i] * scale / vdev->x_pixels_per_inch + - 0.5); -#else - sput_lips_int(s, pattern[i]); -#endif - } - } - sputc(s, LIPS_IS2); - lputs(s, "E1"); - sputc(s, 0x2c); - lputs(s, "0"); - sputc(s, LIPS_IS2); - } - - return 0; -} - -/* パス平滑度指定 */ -private int -lips4v_setflat(gx_device_vector * vdev, floatp flatness) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - lputs(s, "Pf"); - sput_lips_int(s, flatness); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_setlogop(gx_device_vector * vdev, gs_logical_operation_t lop, - gs_logical_operation_t diff) -{ -/****** SHOULD AT LEAST DETECT SET-0 & SET-1 ******/ - return 0; -} - -#if GS_VERSION_MAJOR >= 8 -/*--- added for Ghostscritp 8.15 ---*/ -private int -lips4v_can_handle_hl_color(gx_device_vector * vdev, const gs_imager_state * pis1, - const gx_drawing_color * pdc) -{ - return false; /* High level color is not implemented yet. */ -} -#endif - -private int -lips4v_beginpath(gx_device_vector * vdev, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - /* パス構築開始命令 */ - if (type & gx_path_type_clip) { - lputs(s, "P(10"); - sputc(s, LIPS_IS2); - } else - lputs(s, "P(00"); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_moveto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - - /* サブパス開始命令 p1 */ - lputs(s, "p10"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_lineto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - - /* if round cap */ - if (pdev->linecap == 1) { - if ((x0 == x) && (y0 == y)) - x += 1; - } - - /* パス・ポリライン命令 */ - lputs(s, "p402"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_curveto(gx_device_vector * vdev, floatp x0, floatp y0, - floatp x1, floatp y1, floatp x2, floatp y2, floatp x3, - floatp y3, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - - /* パス・ポリライン命令 */ - lputs(s, "p404"); - sput_lips_int(s, x1); - sput_lips_int(s, y1); - sput_lips_int(s, x2); - sput_lips_int(s, y2); - sput_lips_int(s, x3); - sput_lips_int(s, y3); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_closepath(gx_device_vector * vdev, floatp x, floatp y, - floatp x_start, floatp y_start, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - - lputs(s, "p0"); - sputc(s, LIPS_IS2); - return 0; -} - -private int -lips4v_endpath(gx_device_vector * vdev, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - - lputs(s, "P)"); - sputc(s, LIPS_IS2); - if (type & gx_path_type_rule) { - if (type & gx_path_type_winding_number) { - lputs(s, "}I1"); - sputc(s, LIPS_IS2); - } else { - lputs(s, "}I0"); - sputc(s, LIPS_IS2); - } - } - if (type & gx_path_type_fill) { - if (type & gx_path_type_stroke) { - lputs(s, "P&00"); - sputc(s, LIPS_IS2); - } else { - lputs(s, "PF00"); - sputc(s, LIPS_IS2); - } - } - if (type & gx_path_type_stroke) { - lputs(s, "PS00"); - sputc(s, LIPS_IS2); - } - if (type & gx_path_type_clip) { - lputs(s, "PC10"); - sputc(s, LIPS_IS2); - } - return 0; -} - -/* ---------------- Driver procedures ---------------- */ - -/* ------ Open/close/page ------ */ - -/* Open the device. */ -private int -lips4v_open(gx_device * dev) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - - int code; - - code = lips4v_range_check(dev); - if (code < 0) - return code; - - vdev->v_memory = dev->memory; -/****** WRONG ******/ - vdev->vec_procs = &lips4v_vector_procs; - -#if GS_VERSION_MAJOR >= 8 - code = gdev_vector_open_file_options(vdev, 512, - (VECTOR_OPEN_FILE_SEQUENTIAL|VECTOR_OPEN_FILE_BBOX)); -#else - code = gdev_vector_open_file_bbox(vdev, 512, true); -#endif - if (code < 0) - return code; - -#if GS_VERSION_MAJOR >= 8 - if (pdev->bbox_device != NULL) { - if (pdev->bbox_device->memory == NULL) - pdev->bbox_device->memory = gs_memory_stable(dev->memory); - } -#endif - - gdev_vector_init(vdev); - pdev->first_page = true; - - return 0; -} - -/* Wrap up ("output") a page. */ -private int -lips4v_output_page(gx_device * dev, int num_copies, int flush) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - stream *s = gdev_vector_stream(vdev); - char str[6]; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - lputs(s, "%"); - sputc(s, LIPS_IS2); - lputs(s, "}p"); - sputc(s, LIPS_IS2); - - if (num_copies > 255) - num_copies = 255; - if (pdev->prev_num_copies != num_copies) { - sprintf(str, "%c%dv", LIPS_CSI, num_copies); - lputs(s, str); - pdev->prev_num_copies = num_copies; - } - sputc(s, LIPS_FF); - sflush(s); - vdev->in_page = false; - pdev->first_page = false; - gdev_vector_reset(vdev); - return 0; -} - -private int -lips4v_close(gx_device * dev) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - FILE *f = vdev->file; - - fprintf(f, "%c0J%c", LIPS_DCS, LIPS_ST); - if (pdev->pjl) { - fprintf(f, "%c%%-12345X@PJL SET LPARM : LIPS SW2 = OFF\n", LIPS_ESC); - fprintf(f, - "%c%%-12345X%c%%-12345X@PJL EOJ\n" - "%c%%-12345X", LIPS_ESC, LIPS_ESC, LIPS_ESC); - } - gdev_vector_close_file(vdev); - - return 0; -} - -/* Close the device. */ -/* Note that if this is being called as a result of finalization, */ -/* the stream may no longer exist; but the file will still be open. */ - -/* ---------------- Get/put parameters ---------------- */ - -/* Get parameters. */ -private int -lips4v_get_params(gx_device * dev, gs_param_list * plist) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - int code = gdev_vector_get_params(dev, plist); - int ncode; - gs_param_string usern; - gs_param_string pmedia; - - if (code < 0) - return code; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_MANUALFEED, - &pdev->ManualFeed)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, LIPS_OPTION_CASSETFEED, - &pdev->cassetFeed)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_DUPLEX_TUMBLE, - &pdev->Tumble)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, LIPS_OPTION_NUP, &pdev->nup)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_PJL, &pdev->pjl)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, LIPS_OPTION_TONERDENSITY, - &pdev->toner_density)) < 0) - code = ncode; - - if (pdev->toner_saving_set >= 0 && - (code = (pdev->toner_saving_set ? - param_write_bool(plist, LIPS_OPTION_TONERSAVING, - &pdev-> - toner_saving) : param_write_null(plist, - LIPS_OPTION_TONERSAVING))) - < 0) - code = ncode; - - if (pdev->Duplex_set >= 0 && - (ncode = (pdev->Duplex_set ? - param_write_bool(plist, "Duplex", &pdev->Duplex) : - param_write_null(plist, "Duplex"))) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_FONTDOWNLOAD, - &pdev->FontDL)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_FACEUP, - &pdev->faceup)) < 0) code = ncode; - - pmedia.data = (const byte *)pdev->mediaType, - pmedia.size = strlen(pdev->mediaType), pmedia.persistent = false; - - if ((ncode = param_write_string(plist, LIPS_OPTION_MEDIATYPE, - &pmedia)) < 0) code = ncode; - - if (code < 0) - return code; - - usern.data = (const byte *)pdev->Username, - usern.size = strlen(pdev->Username), usern.persistent = false; - - return param_write_string(plist, LIPS_OPTION_USER_NAME, &usern); -} - -/* Put parameters. */ -private int -lips4v_put_params(gx_device * dev, gs_param_list * plist) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - int ecode = 0; - int code; - gs_param_name param_name; - gs_param_string pmedia; - bool mf = pdev->ManualFeed; - int cass = pdev->cassetFeed; - gs_param_string usern; - bool tum = pdev->Tumble; - int nup = pdev->nup; - bool pjl = pdev->pjl; - int toner_density = pdev->toner_density; - bool toner_saving = pdev->toner_saving; - bool toner_saving_set = pdev->toner_saving_set; - bool fontdl = pdev->FontDL; - bool faceup = pdev->faceup; - bool duplex; - int duplex_set = -1; - int old_bpp = dev->color_info.depth; - int bpp = 0; - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_MANUALFEED), - &mf)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_CASSETFEED), - &cass)) { - case 0: - if (cass < -1 || cass > 17 || (cass > 3 && cass < 10)) - ecode = gs_error_limitcheck; - else - break; - goto casse; - default: - ecode = code; - casse:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - switch (code = param_read_string(plist, - (param_name = LIPS_OPTION_MEDIATYPE), - &pmedia)) { - case 0: - if (pmedia.size > LIPS_MEDIACHAR_MAX) - ecode = gs_error_limitcheck; - else { /* Check the validity of ``MediaType'' characters */ - if (strcmp(pmedia.data, "PlainPaper") != 0 && - strcmp(pmedia.data, "OHP") != 0 && - strcmp(pmedia.data, "TransparencyFilm") != 0 && /* same as OHP */ - strcmp(pmedia.data, "GlossyFilm") != 0 && - strcmp(pmedia.data, "CardBoard") != 0) { - ecode = gs_error_rangecheck; - goto pmediae; - } - } - break; - goto pmediae; - default: - ecode = code; - pmediae:param_signal_error(plist, param_name, ecode); - case 1: - pmedia.data = 0; - break; - } - - switch (code = param_read_string(plist, - (param_name = LIPS_OPTION_USER_NAME), - &usern)) { - case 0: - if (usern.size > LIPS_USERNAME_MAX) - ecode = gs_error_limitcheck; - else { /* Check the validity of ``User Name'' characters */ - int i; - - for (i = 0; i < usern.size; i++) - if (usern.data[i] < 0x20 || usern.data[i] > 0x7e - /* - && usern.data[i] < 0xa0) || - usern.data[i] > 0xfe - */ - ) { - ecode = gs_error_rangecheck; - goto userne; - } - } - break; - goto userne; - default: - ecode = code; - userne:param_signal_error(plist, param_name, ecode); - case 1: - usern.data = 0; - break; - } - - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_DUPLEX_TUMBLE), - &tum)) < 0) - param_signal_error(plist, param_name, ecode = code); - - - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_NUP), &nup)) { - case 0: - if (nup != 1 && nup != 2 && nup != 4) - ecode = gs_error_rangecheck; - else - break; - goto nupe; - default: - ecode = code; - nupe:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_PJL), &pjl)) < 0) - param_signal_error(plist, param_name, ecode = code); - - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_TONERDENSITY), - &toner_density)) { - case 0: - if (toner_density < 0 || toner_density > 8) - ecode = gs_error_rangecheck; - else - break; - goto tden; - default: - ecode = code; - tden:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if (pdev->toner_saving_set >= 0) - switch (code = - param_read_bool(plist, (param_name = LIPS_OPTION_TONERSAVING), - &toner_saving)) { - case 0: - toner_saving_set = 1; - break; - default: - if ((code = param_read_null(plist, param_name)) == 0) { - toner_saving_set = 0; - break; - } - ecode = code; - param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if (pdev->Duplex_set >= 0) /* i.e., Duplex is supported */ - switch (code = param_read_bool(plist, (param_name = "Duplex"), - &duplex)) { - case 0: - duplex_set = 1; - break; - default: - if ((code = param_read_null(plist, param_name)) == 0) { - duplex_set = 0; - break; - } - ecode = code; - param_signal_error(plist, param_name, ecode); - case 1: - break; - } - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_FONTDOWNLOAD), - &fontdl)) < 0) - param_signal_error(plist, param_name, ecode = code); - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_FACEUP), - &faceup)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - - - switch (code = param_read_int(plist, (param_name = "BitsPerPixel"), &bpp)) { - case 0: - if (bpp != 8 && bpp != 24) - ecode = gs_error_rangecheck; - else - break; - goto bppe; - default: - ecode = code; - bppe:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if (bpp != 0) { - dev->color_info.depth = bpp; - dev->color_info.num_components = ((bpp == 8) ? 1 : 3); - dev->color_info.max_gray = (bpp > 8 ? 255 : 1000); - dev->color_info.max_color = (bpp > 8 ? 255 : 1000); - dev->color_info.dither_grays = (bpp > 8 ? 256 : 5); - dev->color_info.dither_colors = (bpp > 8 ? 256 : 2); - dev_proc(pdev, map_rgb_color) = - ((bpp == 8) ? gx_default_gray_map_rgb_color : - gx_default_rgb_map_rgb_color); - dev_proc(pdev, map_color_rgb) = - ((bpp == 8) ? gx_default_gray_map_color_rgb : - gx_default_rgb_map_color_rgb); - } - - if (ecode < 0) - return ecode; - code = gdev_vector_put_params(dev, plist); - if (code < 0) - return code; - - pdev->ManualFeed = mf; - pdev->cassetFeed = cass; - pdev->Tumble = tum; - pdev->nup = nup; - pdev->pjl = pjl; - pdev->toner_density = toner_density; - pdev->toner_saving = toner_saving; - pdev->toner_saving_set = toner_saving_set; - pdev->FontDL = fontdl; - pdev->faceup = faceup; - - if (duplex_set >= 0) { - pdev->Duplex = duplex; - pdev->Duplex_set = duplex_set; - } - if (pmedia.data != 0 && - bytes_compare(pmedia.data, pmedia.size, - (const byte *)pdev->mediaType, strlen(pdev->mediaType)) - ) { - memcpy(pdev->mediaType, pmedia.data, pmedia.size); - pdev->mediaType[pmedia.size] = 0; - } - if (usern.data != 0 && - bytes_compare(usern.data, usern.size, - (const byte *)pdev->Username, strlen(pdev->Username)) - ) { - memcpy(pdev->Username, usern.data, usern.size); - pdev->Username[usern.size] = 0; - } - if (bpp != 0 && bpp != old_bpp && pdev->is_open) - return gs_closedevice(dev); - return 0; -} - -/* ---------------- Images ---------------- */ - -private int -lips4v_copy_mono(gx_device * dev, const byte * data, - int data_x, int raster, gx_bitmap_id id, int x, int y, int w, - int h, gx_color_index zero, gx_color_index one) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gx_device_vector *const vdev = (gx_device_vector *) dev; - stream *s = gdev_vector_stream(vdev); - int dpi = dev->x_pixels_per_inch; - gx_drawing_color color; - int code = 0; - floatp r, g, b; - - if (id != gs_no_id && zero == gx_no_color_index && - one != gx_no_color_index && data_x == 0) { - gx_drawing_color dcolor; - - color_set_pure(&dcolor, one); -#if GS_VERSION_MAJOR >= 8 - lips4v_setfillcolor(vdev, NULL, &dcolor); -#else - lips4v_setfillcolor(vdev, &dcolor); -#endif - - if (lips4v_copy_text_char(dev, data, raster, id, x, y, w, h) >= 0) - return 0; - } - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - /* - (*dev_proc(vdev->bbox_device, copy_mono)) - ((gx_device *)vdev->bbox_device, data, data_x, raster, id, - x, y, w, h, zero, one); - */ - if (zero == gx_no_color_index) { - if (one == gx_no_color_index) - return 0; - /* one 色に染め、透過にする */ - if (pdev->MaskState != 1) { - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - if (pdev->color_info.depth == 8) { - gx_color_index one_color = vdev->color_info.max_gray - one; - - lputs(s, "}T"); - sput_lips_int(s, one_color); - sputc(s, LIPS_IS2); - } else { - r = (one >> 16) * 1000.0 / 255.0; - g = ((one >> 8) & 0xff) * 1000.0 / 255.0; - b = (one & 0xff) * 1000.0 / 255.0; - lputs(s, "}T"); - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - sputc(s, LIPS_IS2); - } - } else if (one == gx_no_color_index) - /* 1bit は透明 ビット反転・zero 色に染める */ - { - gx_color_index zero_color = vdev->color_info.max_gray - zero; - - if (pdev->MaskState != 1) { - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - if (pdev->color_info.depth == 8) { - lputs(s, "}T"); - sput_lips_int(s, zero_color); - sputc(s, LIPS_IS2); - } else { - r = (zero >> 16) * 1000.0 / 255.0; - g = ((zero >> 8) & 0xff) * 1000.0 / 255.0; - b = (zero & 0xff) * 1000.0 / 255.0; - lputs(s, "}T"); - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - sputc(s, LIPS_IS2); - } - } else if (one == vdev->white) { - /* ビット反転 白塗り zero 色に染める */ - gx_color_index zero_color = vdev->color_info.max_gray - zero; - - if (pdev->MaskState != 0) { - lputs(s, "}H0"); - sputc(s, LIPS_IS2); - pdev->MaskState = 0; - } - if (pdev->color_info.depth == 8) { - lputs(s, "}T"); - sput_lips_int(s, zero_color); - sputc(s, LIPS_IS2); - } else { - r = (zero >> 16) * 1000.0 / 255.0; - g = ((zero >> 8) & 0xff) * 1000.0 / 255.0; - b = (zero & 0xff) * 1000.0 / 255.0; - lputs(s, "}T"); - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - sputc(s, LIPS_IS2); - } - } else { - if (zero != gx_no_color_index) { - code = (*dev_proc(dev, fill_rectangle)) (dev, x, y, w, h, zero); - if (code < 0) - return code; - } - if (pdev->MaskState != 1) { - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - color_set_pure(&color, one); - -#if GS_VERSION_MAJOR >= 8 - code = gdev_vector_update_fill_color((gx_device_vector *) pdev, - NULL, &color); -#else - code = gdev_vector_update_fill_color((gx_device_vector *) pdev, - &color); -#endif - } - if (code < 0) - return 0; - lputs(s, "}P"); - sput_lips_int(s, x); /* Position X */ - sput_lips_int(s, y); /* Position Y */ - sput_lips_int(s, dpi * 100); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, h); /* Height */ - sput_lips_int(s, w); /* Width */ - lputs(s, "100110"); - sputc(s, LIPS_IS2); - - lputs(s, "}Q11"); - - { - int i, j; - uint width_bytes = (w + 7) >> 3; - uint num_bytes = round_up(width_bytes, 4) * h; - byte *buf = gs_alloc_bytes(vdev->memory, num_bytes, - "lips4v_copy_mono(buf)"); - - if (data_x % 8 == 0) { - for (i = 0; i < h; ++i) { - memcpy(buf + i * width_bytes, - data + (data_x >> 3) + i * raster, width_bytes); - } - } else { - for (i = 0; i < h; ++i) { - for (j = 0; j < width_bytes; j++) { - *(buf + i * width_bytes + j) = - *(data + (data_x >> 3) + i * raster + - j) << (data_x % 8) | *(data + (data_x >> 3) + - i * raster + j + 1) >> (8 - - data_x - % 8); - } - } - } - - - if (one == gx_no_color_index - || (one == vdev->white - && zero != gx_no_color_index)) lips4v_write_image_data(vdev, - buf, - num_bytes, - TRUE); - else - lips4v_write_image_data(vdev, buf, num_bytes, FALSE); - - gs_free_object(vdev->memory, buf, "lips4v_copy_mono(buf)"); - } - - return 0; -} - -/* Copy a color bitmap. */ -private int -lips4v_copy_color(gx_device * dev, - const byte * data, int data_x, int raster, gx_bitmap_id id, - int x, int y, int w, int h) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gx_device_vector *const vdev = (gx_device_vector *) dev; - - stream *s = gdev_vector_stream(vdev); - int depth = dev->color_info.depth; - int dpi = dev->x_pixels_per_inch; - int num_components = (depth < 24 ? 1 : 3); - uint width_bytes = w * num_components; - - - if (dev->color_info.depth == 8) { - gx_drawing_color dcolor; - - /* LIPS IV ではグレースケールも単色イメージ・カラー指定命令に - 影響されるので黒色を指定しなければならない。 */ - color_set_pure(&dcolor, vdev->black); -#if GS_VERSION_MAJOR >= 8 - lips4v_setfillcolor(vdev, NULL, &dcolor); -#else - lips4v_setfillcolor(vdev, &dcolor); -#endif - } else { - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - } - - if (pdev->MaskState != 0) { - lputs(s, "}H0"); /* 論理描画設定命令 */ - sputc(s, LIPS_IS2); - pdev->MaskState = 0; - } - lputs(s, "}P"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, h); - sput_lips_int(s, w); - sput_lips_int(s, depth / num_components); - sputc(s, depth < 24 ? '0' : ':'); /* 24 bit のとき点順次 */ - lputs(s, "0110"); - sputc(s, LIPS_IS2); - - { - int i; - uint num_bytes = width_bytes * h; - byte *buf = gs_alloc_bytes(vdev->memory, num_bytes, - "lips4v_copy_color(buf)"); - - lputs(s, "}Q11"); - - for (i = 0; i < h; ++i) { - memcpy(buf + i * width_bytes, - data + ((data_x * depth) >> 3) + i * raster, width_bytes); - } - - if (dev->color_info.depth == 8) - lips4v_write_image_data(vdev, buf, num_bytes, TRUE); - else - lips4v_write_image_data(vdev, buf, num_bytes, FALSE); - - gs_free_object(vdev->memory, buf, "lips4v_copy_color(buf)"); - } - - return 0; -} - -/* Fill a mask. */ -private int -lips4v_fill_mask(gx_device * dev, - const byte * data, int data_x, int raster, gx_bitmap_id id, - int x, int y, int w, int h, - const gx_drawing_color * pdcolor, int depth, - gs_logical_operation_t lop, const gx_clip_path * pcpath) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - stream *s = gdev_vector_stream(vdev); - int dpi = dev->x_pixels_per_inch; - - if (w <= 0 || h <= 0) - return 0; - if (depth > 1 || -#if GS_VERSION_MAJOR >= 8 - gdev_vector_update_fill_color(vdev, NULL, pdcolor) < 0 || -#else - gdev_vector_update_fill_color(vdev, pdcolor) < 0 || -#endif - gdev_vector_update_clip_path(vdev, pcpath) < 0 || - gdev_vector_update_log_op(vdev, lop) < 0) - return gx_default_fill_mask(dev, data, data_x, raster, id, - x, y, w, h, pdcolor, depth, lop, pcpath); -#if 1 - (*dev_proc(vdev->bbox_device, fill_mask)) - ((gx_device *) vdev->bbox_device, data, data_x, raster, id, - x, y, w, h, pdcolor, depth, lop, pcpath); -#endif - if (id != gs_no_id && data_x == 0) { - if (lips4v_copy_text_char(dev, data, raster, id, x, y, w, h) >= 0) - return 0; - } - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - /* 書きだし */ - if (pdev->MaskState != 1) { - lputs(s, "}H1"); /* 論理描画設定命令 */ - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - lputs(s, "}P"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, h); - sput_lips_int(s, w); - lputs(s, "100110"); - sputc(s, LIPS_IS2); - - lputs(s, "}Q11"); - - { - int i; - uint width_bytes = (w + 7) >> 3; - uint num_bytes = round_up(width_bytes, 4) * h; - byte *buf = gs_alloc_bytes(vdev->memory, num_bytes, - "lips4v_fill_mask(buf)"); - - for (i = 0; i < h; ++i) { - memcpy(buf + i * width_bytes, data + (data_x >> 3) + i * raster, - width_bytes); - } - - lips4v_write_image_data(vdev, buf, num_bytes, FALSE); - - gs_free_object(vdev->memory, buf, "lips4v_fill_mask(buf)"); - } - - return 0; -} - -/* ---------------- High-level images ---------------- */ - -private image_enum_proc_plane_data(lips4v_image_plane_data); -private image_enum_proc_end_image(lips4v_image_end_image); -private const gx_image_enum_procs_t lips4v_image_enum_procs = { - lips4v_image_plane_data, lips4v_image_end_image -}; - -/* Start processing an image. */ -private int -lips4v_begin_image(gx_device * dev, - const gs_imager_state * pis, const gs_image_t * pim, - gs_image_format_t format, const gs_int_rect * prect, - const gx_drawing_color * pdcolor, - const gx_clip_path * pcpath, gs_memory_t * mem, - gx_image_enum_common_t ** pinfo) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gdev_vector_image_enum_t *pie = - gs_alloc_struct(mem, gdev_vector_image_enum_t, - &st_vector_image_enum, "lips4v_begin_image"); - const gs_color_space *pcs = pim->ColorSpace; - gs_color_space_index index; - int num_components = 1; - bool can_do = prect == 0 && - (pim->format == gs_image_format_chunky || - - pim->format == gs_image_format_component_planar); - - int code; - - if (pie == 0) - return_error(gs_error_VMerror); - pie->memory = mem; - code = gdev_vector_begin_image(vdev, pis, pim, format, prect, - pdcolor, pcpath, mem, - &lips4v_image_enum_procs, pie); - if (code < 0) - return code; - *pinfo = (gx_image_enum_common_t *) pie; - - if (!pim->ImageMask) { - index = gs_color_space_get_index(pcs); - num_components = gs_color_space_num_components(pcs); - - if (pim->CombineWithColor) - can_do = false; - else { - switch (index) { - case gs_color_space_index_DeviceGray: - if ((pim->Decode[0] != 0 || pim->Decode[1] != 1) - && (pim->Decode[0] != 1 || pim->Decode[1] != 0)) - can_do = false; - break; - case gs_color_space_index_DeviceRGB: - /* LIPS では RGB を反転することはできない */ - if (pim->Decode[0] != 0 || pim->Decode[1] != 1 || - pim->Decode[2] != 0 || pim->Decode[3] != 1 || - pim->Decode[4] != 0) - can_do = false; - break; - default: - /* - LIPS では L*a*b* 形式のカラースペースが使えます。 - CIEBasedABC を使って表現できないこともないのですが、 - 動作確認できないので低レベルの関数にまかせることに - しちゃいます。 - それよりも CMYK のカラースペースが欲しい... - */ - can_do = false; - } - } - } - if (!can_do) - return gx_default_begin_image(dev, pis, pim, format, prect, - pdcolor, pcpath, mem, - &pie->default_info); - else if (index == gs_color_space_index_DeviceGray) { - gx_drawing_color dcolor; - - /* LIPS IV ではグレースケールも単色イメージ・カラー指定命令に - 影響されるので黒色を明示的に指定しなければならない。 */ - color_set_pure(&dcolor, vdev->black); -#if GS_VERSION_MAJOR >= 8 - lips4v_setfillcolor(vdev, NULL, &dcolor); -#else - lips4v_setfillcolor(vdev, &dcolor); -#endif - } - if (pim->ImageMask || (pim->BitsPerComponent == 1 && num_components == 1)) { - if (pim->Decode[0] > pim->Decode[1]) - pdev->MaskReverse = 1; - else - pdev->MaskReverse = 0; - } - /* Write the image/colorimage/imagemask preamble. */ - { - stream *s = gdev_vector_stream((gx_device_vector *) pdev); - int ax, ay, bx, by, cx, cy, dx, dy; - int tbyte; - gs_matrix imat; - int interpolate = 0; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - gs_matrix_invert(&pim->ImageMatrix, &imat); - gs_matrix_multiply(&imat, &ctm_only(pis), &imat); - /* - [xx xy yx yy tx ty] - LIPS の座標系に変換を行なう。 - - }U{Ax}{Ay}{Bx}{By}{Cx}{Cy}{pie->height}{pie->width} - {pim->BitsPerComponent}{0}{0}{1} LIPS_IS2 - */ - - /* }Q110{byte} LIPS_IS2 */ - ax = imat.tx; - ay = imat.ty; - bx = imat.xx * pim->Width + imat.yx * pim->Height + imat.tx; - by = imat.xy * pim->Width + imat.yy * pim->Height + imat.ty; - cx = imat.yx * pim->Height + imat.tx; - cy = imat.yy * pim->Height + imat.ty; - dx = imat.xx * pim->Width + imat.tx; - dy = imat.xy * pim->Width + imat.ty; - - if (pim->ImageMask) { - tbyte = - (pie->width * pim->BitsPerComponent + - 7) / 8 * num_components * pie->height; - pdev->ncomp = 1; - if (tbyte == 1) { - /* LIPS IV では 1 dot のイメージを変形すると座標が狂うバグが - ある。よって 1 dot のイメージは矩形として処理する。 */ - pdev->OneBitMask = true; - /* Draw Rectangle */ - lputs(s, "2"); - sput_lips_int(s, ax); - sput_lips_int(s, ay); - sput_lips_int(s, cx - ax); - sput_lips_int(s, cy - ay); - sput_lips_int(s, bx - cx); - sput_lips_int(s, by - cy); - sput_lips_int(s, dx - bx); - sput_lips_int(s, dy - by); - sputc(s, LIPS_IS2); - return 0; - } else { - /* 描画論理設定命令 - 透過 */ - if (pdev->MaskState != 1) { - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - } - } else { - /* 描画論理設定命令 - 白塗り */ - if (pdev->MaskState != 0) { - lputs(s, "}H0"); - sputc(s, LIPS_IS2); - pdev->MaskState = 0; - } - pdev->ncomp = num_components; - } - - lputs(s, "}U"); - sput_lips_int(s, ax); - sput_lips_int(s, ay); - sput_lips_int(s, bx); - sput_lips_int(s, by); - sput_lips_int(s, cx); - sput_lips_int(s, cy); - sput_lips_int(s, pie->height); - sput_lips_int(s, pie->width); - sput_lips_int(s, pim->BitsPerComponent); - - if (pim->Interpolate) { - if (pim->BitsPerComponent * pie->num_planes == 1) - interpolate = 1; - else - interpolate = 3; - } - if (pim->ImageMask) { /* 1bit のとき */ - lputs(s, "0"); - } else { - if (index == gs_color_space_index_DeviceGray) - lputs(s, "0"); - else { - if (format == gs_image_format_chunky) /* RGBRGBRGB... */ - sputc(s, 0x3a); - else /* RRR...GGG...BBB... */ - sputc(s, 0x3b); - } - } - if (interpolate > 0) - sput_lips_int(s, interpolate); - sputc(s, LIPS_IS2); - } - return 0; -} - -/* Process the next piece of an image. */ -private int -lips4v_image_plane_data(gx_image_enum_common_t * info, - const gx_image_plane_t * planes, int height, - int *rows_used) -{ - gx_device *dev = info->dev; - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gdev_vector_image_enum_t *pie = (gdev_vector_image_enum_t *) info; - - stream *s = gdev_vector_stream((gx_device_vector *) pdev); - int y; - - if (pdev->OneBitMask) { - /* - lputs(s, "\200"); - */ - pie->y += height; - return 1; - } - if (pie->default_info) - return gx_image_plane_data(pie->default_info, planes, height); - gx_image_plane_data(pie->bbox_info, planes, height); - { - int plane; - int width_bytes, tbyte; - byte *buf; - - width_bytes = - (pie->width * pie->bits_per_pixel / pdev->ncomp + - 7) / 8 * pdev->ncomp; - tbyte = width_bytes * height; - buf = gs_alloc_bytes(vdev->memory, tbyte, "lips4v_image_data(buf)"); - - for (plane = 0; plane < pie->num_planes; ++plane) - for (y = 0; y < height; ++y) { - memcpy(buf + y * width_bytes, - planes[plane].data + - ((planes[plane].data_x * pie->bits_per_pixel) >> 3) - + y * planes[plane].raster, width_bytes); - } - - lputs(s, "}Q10"); - - if ((pie->bits_per_pixel > 1 && pdev->ncomp == 1) || - pdev->MaskReverse == 0) { - lips4v_write_image_data(vdev, buf, tbyte, TRUE); - } else - lips4v_write_image_data(vdev, buf, tbyte, FALSE); - - gs_free_object(vdev->memory, buf, "lips4v_image_data(buf)"); - - } - - return (pie->y += height) >= pie->height; -} - -private int -lips4v_image_end_image(gx_image_enum_common_t * info, bool draw_last) -{ - gx_device *dev = info->dev; - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gdev_vector_image_enum_t *pie = (gdev_vector_image_enum_t *) info; - stream *s = gdev_vector_stream((gx_device_vector *) pdev); - int code; - - if (pdev->OneBitMask) - pdev->OneBitMask = false; - else - lputs(s, "}Q1100"); - sputc(s, LIPS_IS2); /* End of Image */ - - pdev->MaskReverse = -1; - - code = gdev_vector_end_image(vdev, (gdev_vector_image_enum_t *) pie, - draw_last, pdev->white); - return code; -} diff --git a/gs/contrib/lips4/gdevl4v.c.orig b/gs/contrib/lips4/gdevl4v.c.orig deleted file mode 100644 index ade08e1a9..000000000 --- a/gs/contrib/lips4/gdevl4v.c.orig +++ /dev/null @@ -1,2487 +0,0 @@ -/* Copyright (C) 1998, 1999 Norihito Ohmori. - - Ghostscript printer driver - for Canon LBP (LIPS IV) - - This software is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY. No author or distributor accepts responsibility - to anyone for the consequences of using it or for whether it serves any - particular purpose or works at all, unless he says so in writing. Refer - to the GNU General Public License for full details. - - Everyone is granted permission to copy, modify and redistribute - this software, but only under the conditions described in the GNU - General Public License. A copy of this license is supposed to have been - given to you along with this software so you can know your rights and - responsibilities. It should be in a file named COPYING. Among other - things, the copyright notice and this notice must be preserved on all - copies. - */ - -/*$Id: gdevl4v.c $ */ -/* Vector Version of LIPS driver */ - -/* - - Vector driver は Ghostscript 5.0 から新たに加わったドライバです。 - よって仕様が安定していません。Ghostscript 5.10 と Ghostscript 5.50 では - Hi-level bitmap imaging の仕様が変わっています。 - Ghostscript 6.0 では更に text_begin という API が追加されるようです。 - - - ○Ghostscript 5.10/5.50 のバグについて - - Ghostscript 5.10/5.50 の Vector driver の setlinewidth 関数には - バグがあります。本来スケールが変更されるにしたがって線の太さも変更され - なければなりませんが、Ghostscript 5.10/5.50 ではスケールを考慮するのを - 忘れています。(バグ報告を2回ほど送ったのだけれど...) - このドライバはそのバグを回避するためにスケールを自分で処理しています。 - - Ghostscript 5.10 の生成するパスは Ghostscript 5.50 が生成するパスよりも - 非常に効率の悪いものになることがあります。LIPS IV の処理できる限界を超える - こともありました。効率の悪いパスは速度の低下にもつながるので Ghostscript - 5.50 を使った方がこのドライバでは出力速度が速くなります。 - - また Ghostscript 5.10 では - fill_trapezoid、fill_parallelogram、fill_triangle - の関数の挙動が変になることがあったのでこれらは使っていません。 - - - ○ LIPS IV のバグについて - - このドライバは開発中に発見した次の LIPS IV のバグを回避しています。 - 1. 1 dot のイメージを変形したときに座標の計算が狂う - 2. 小さなイメージを描画すると正常に描かれない - 3. クリッピング命令とパス・クリッピング命令がそれぞれ独立に働いてしまう。 - - 1. は 1 dot のイメージを矩形にして回避しました。 - 2. はイメージ領域確保命令で分割を指定することにより回避しました。 - 3. はクリッピング命令を使わないことにして回避しました。 - - - ○ LIPS IV の仕様について - - 1. 単色イメージ・カラー指定命令はグレースケールイメージに対しても - 働いてしまいます。 - 2. LIPS IV ではグレースケールの色表現が PostScript と逆です。 - 3. LIPS IV にはイメージのビットを反転させるコマンドはありません。 - 4. LIPS IV には CMYK のカラースペースはありません。 - - */ - -#include "string.h" -#include "math_.h" -#include "gx.h" -#include "gserrors.h" -#include "gsmatrix.h" -#include "gsparam.h" -#include "gxdevice.h" -#include "gscspace.h" -#include "gsutil.h" -#include "gdevvec.h" -#if 0 -#include "gdevpstr.h" -#endif -#include "ghost.h" -#include "gzstate.h" -#include "imemory.h" -#include "igstate.h" -#include "gdevlips.h" - -/* ---------------- Device definition ---------------- */ - -/* Device procedures */ -private dev_proc_open_device(lips4v_open); -private dev_proc_output_page(lips4v_output_page); -private dev_proc_close_device(lips4v_close); -private dev_proc_copy_mono(lips4v_copy_mono); -private dev_proc_copy_color(lips4v_copy_color); -private dev_proc_put_params(lips4v_put_params); -private dev_proc_get_params(lips4v_get_params); -private dev_proc_fill_mask(lips4v_fill_mask); -private dev_proc_begin_image(lips4v_begin_image); - - -#define X_DPI 600 -#define Y_DPI 600 - -typedef struct gx_device_lips4v_s -{ - gx_device_vector_common; - lips_params_common; - lips4_params_common; - bool first_page; - bool ManualFeed; - bool Duplex; - int Duplex_set; - bool Tumble; - bool OneBitMask; /* for LIPS Bug */ - int ncomp; - int MaskReverse; - int MaskState; - bool TextMode; - int prev_x; - int prev_y; - gx_color_index prev_color; - gx_color_index current_color; - int linecap; - /* for Font Downloading */ -#define max_cached_chars 256 /* 128 * n */ - bool FontDL; - int current_font; - int count; - gx_bitmap_id id_table[max_cached_chars + 1]; - gx_bitmap_id id_cache[max_cached_chars + 1]; -} -gx_device_lips4v; - -gs_public_st_suffix_add0_final(st_device_lips4v, gx_device_lips4v, - "gx_device_lips4v", device_lips4v_enum_ptrs, - device_lips4v_reloc_ptrs, gx_device_finalize, - st_device_vector); - -#define lips_device_full_body(dtype, pprocs, dname, stype, w, h, xdpi, ydpi, ncomp, depth, mg, mc, dg, dc, lm, bm, rm, tm)\ - std_device_part1_(dtype, pprocs, dname, stype, open_init_closed),\ - dci_values(ncomp, depth, mg, mc, dg, dc),\ - std_device_part2_(w, h, xdpi, ydpi),\ - offset_margin_values(-lm * xdpi, -tm * ydpi, lm * 72.0, bm * 72.0, rm * 72.0, tm * 72.0),\ - std_device_part3_() - -#define lips4v_device_body\ - lips_device_full_body(gx_device_lips4v, 0, "lips4v",\ - &st_device_lips4v,\ - DEFAULT_WIDTH_10THS * X_DPI / 10,\ - DEFAULT_HEIGHT_10THS * Y_DPI / 10,\ - X_DPI, Y_DPI,\ - 1, 8, 1000, 1000, 5, 2,\ - LIPS4_LEFT_MARGIN_DEFAULT,\ - LIPS4_BOTTOM_MARGIN_DEFAULT,\ - LIPS4_RIGHT_MARGIN_DEFAULT,\ - LIPS4_TOP_MARGIN_DEFAULT) - - -#define lips4v_procs\ - { lips4v_open,\ - gx_upright_get_initial_matrix,\ - NULL, /* sync_output */\ - lips4v_output_page,\ - lips4v_close,\ - gx_default_gray_map_rgb_color,\ - gx_default_gray_map_color_rgb,\ - gdev_vector_fill_rectangle,\ - NULL, /* tile_rectangle */\ - lips4v_copy_mono,\ - lips4v_copy_color,\ - NULL, /* draw_line */\ - NULL, /* get_bits */\ - lips4v_get_params,\ - lips4v_put_params,\ - NULL, /* map_cmyk_color */\ - NULL, /* get_xfont_procs */\ - NULL, /* get_xfont_device */\ - NULL, /* map_rgb_alpha_color */\ - gx_page_device_get_page_device,\ - NULL, /* get_alpha_bits */\ - NULL, /* copy_alpha */\ - NULL, /* get_band */\ - NULL, /* copy_rop */\ - gdev_vector_fill_path,\ - gdev_vector_stroke_path,\ - lips4v_fill_mask,\ - gdev_vector_fill_trapezoid,\ - gdev_vector_fill_parallelogram,\ - gdev_vector_fill_triangle,\ - NULL /****** WRONG ******/, /* draw_thin_line */\ - lips4v_begin_image,\ - NULL,\ - NULL,\ - NULL, /* strip_tile_rectangle */\ - NULL/******strip_copy_rop******/\ - } - -gx_device_lips4v far_data gs_lips4v_device = { - lips4v_device_body, - lips4v_procs, - vector_initial_values, - LIPS_CASSETFEED_DEFAULT, - LIPS_USERNAME_DEFAULT, - FALSE /* PJL */ , - 0 /* toner_density */ , - FALSE /* toner_saving */ , - 0 /* toner_saving_set */ , - 0, 0, 0, 0, -1, - 0 /* prev_duplex_mode */ , - LIPS_NUP_DEFAULT, - LIPS_FACEUP_DEFAULT, - LIPS_MEDIATYPE_DEFAULT, - 0 /* first_page */ , - LIPS_MANUALFEED_DEFAULT, - 0 /* Duplex */ , 0 /* Duplex_set */ , LIPS_TUMBLE_DEFAULT, - 0 /* OneBitMask */ , - 0 /* ncomp */ , -1 /* MaskReverse */ , 0 /* MaskState */ , - 0 /* TextMode */ , 0 /* prev_x */ , 0 /* prev_y */ , - 0 /* prev_color */ , 0 /* current_color */ , - 0 /* linecap */ , - 0 /* FontDL */ , - -1 /* current_font */ , - 0 /* count */ , - {0}, - {0} -}; - -/* Vector device implementation */ -#if GS_VERSION_MAJOR >= 8 -private int lips4v_beginpage(gx_device_vector * vdev); -private int lips4v_setfillcolor(gx_device_vector * vdev, const gs_imager_state * pis, - const gx_drawing_color * pdc); -private int lips4v_setstrokecolor(gx_device_vector * vdev, const gs_imager_state * pis, - const gx_drawing_color * pdc); -private int lips4v_setdash(gx_device_vector * vdev, const float *pattern, - uint count, floatp offset); -private int lips4v_setflat(gx_device_vector * vdev, floatp flatness); -private int -lips4v_setlogop(gx_device_vector * vdev, gs_logical_operation_t lop, - gs_logical_operation_t diff); -private int lips4v_can_handle_hl_color(gx_device_vector * vdev, const gs_imager_state * pis, - const gx_drawing_color * pdc); -private int - -lips4v_beginpath(gx_device_vector * vdev, gx_path_type_t type); -private int -lips4v_moveto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type); -private int -lips4v_lineto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type); -private int -lips4v_curveto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x1, - floatp y1, floatp x2, floatp y2, floatp x3, floatp y3, - gx_path_type_t type); -private int -lips4v_closepath(gx_device_vector * vdev, floatp x, floatp y, floatp x_start, - floatp y_start, gx_path_type_t type); - -private int lips4v_endpath(gx_device_vector * vdev, gx_path_type_t type); -#else -private int lips4v_beginpage(P1(gx_device_vector * vdev)); -private int lips4v_setfillcolor(P2(gx_device_vector * vdev, - const gx_drawing_color * pdc)); -private int lips4v_setstrokecolor(P2(gx_device_vector * vdev, - const gx_drawing_color * pdc)); -private int lips4v_setdash(P4(gx_device_vector * vdev, const float *pattern, - uint count, floatp offset)); -private int lips4v_setflat(P2(gx_device_vector * vdev, floatp flatness)); -private int -lips4v_setlogop(P3 - - (gx_device_vector * vdev, gs_logical_operation_t lop, - gs_logical_operation_t diff)); -private int - -lips4v_beginpath(P2(gx_device_vector * vdev, gx_path_type_t type)); -private int -lips4v_moveto(P6 - (gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type)); -private int -lips4v_lineto(P6 - (gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type)); -private int -lips4v_curveto(P10 - (gx_device_vector * vdev, floatp x0, floatp y0, floatp x1, - floatp y1, floatp x2, floatp y2, floatp x3, floatp y3, - gx_path_type_t type)); -private int -lips4v_closepath(P6 - (gx_device_vector * vdev, floatp x, floatp y, floatp x_start, - floatp y_start, gx_path_type_t type)); - -private int lips4v_endpath(P2(gx_device_vector * vdev, gx_path_type_t type)); -#endif -private int lips4v_setlinewidth(gx_device_vector * vdev, floatp width); -private int lips4v_setlinecap(gx_device_vector * vdev, gs_line_cap cap); -private int lips4v_setlinejoin(gx_device_vector * vdev, gs_line_join join); -private int lips4v_setmiterlimit(gx_device_vector * vdev, floatp limit); -private const gx_device_vector_procs lips4v_vector_procs = { - /* Page management */ - lips4v_beginpage, - /* Imager state */ - lips4v_setlinewidth, - lips4v_setlinecap, - lips4v_setlinejoin, - lips4v_setmiterlimit, - lips4v_setdash, - lips4v_setflat, - lips4v_setlogop, - /* Other state */ -#if GS_VERSION_MAJOR >= 8 - lips4v_can_handle_hl_color, /* can_handle_hl_color (dummy) */ -#endif - lips4v_setfillcolor, /* fill & stroke colors are the same */ - lips4v_setstrokecolor, - /* Paths */ - gdev_vector_dopath, - gdev_vector_dorect, - lips4v_beginpath, - lips4v_moveto, - lips4v_lineto, - lips4v_curveto, - lips4v_closepath, - lips4v_endpath -}; - -/* ---------------- File header ---------------- */ - -private const char *l4v_file_header1 = - - "\033%-12345X@PJL CJLMODE\n@PJL JOB\n\033%-12345X@PJL CJLMODE\n"; -private const char *l4v_file_header2 = "@PJL SET LPARM : LIPS SW2 = ON\n"; -private const char *l4v_file_header3 = "@PJL ENTER LANGUAGE = LIPS\n"; -private const char *l4v_file_header4 = "\033%@\033P41;"; - - -private const char *l4vmono_file_header = - - ";1J" L4VMONO_STRING LIPS_VERSION "\033\\\033[0\"p\033<"; - -private const char *l4vcolor_file_header = - - ";1J" L4VCOLOR_STRING LIPS_VERSION "\033\\\033[1\"p\033<"; - -/* ---------------- Utilities ---------------- */ - -private void -lips_param(int param, char *c) -{ - int i, j; - bool bSign; - - bSign = TRUE; - if (param < 0) { - bSign = FALSE; - param = -param; - } - if (param < 16) - i = 1; - else if (param < 1024) - i = 2; - else if (param < 65536) - i = 3; - else - i = 4; - - c[i] = '\0'; - c[i - 1] = (param & 0x0f) | 0x20 | (bSign ? 0x10 : 0x00); - param >>= 4; - for (j = i - 2; j >= 0; j--) { - c[j] = (param & 0x3f) | 0x40; - param >>= 6; - } -} - -private void -sput_lips_int(stream * s, int param) -{ - int i; - char c[5]; - - lips_param(param, c); - for (i = 0; i < strlen(c); i++) - sputc(s, c[i]); -} - -/* Put a string on a stream. - This function is copy of `pputs' in gdevpstr.c */ -private int -lputs(stream * s, const char *str) -{ - uint len = strlen(str); - uint used; - int status = sputs(s, (const byte *)str, len, &used); - - return (status >= 0 && used == len ? 0 : EOF); -} - -/* Write a string on a stream. */ -private void -put_bytes(stream * s, const byte * data, uint count) -{ - uint used; - - sputs(s, data, count, &used); -} - -/* for Font Downloading */ -private void -put_int(stream * s, uint number) -{ - sputc(s, number >> 8); - sputc(s, number & 0xff); -} - -private int -lips4v_range_check(gx_device * dev) -{ - int width = dev->MediaSize[0]; - int height = dev->MediaSize[1]; - int xdpi = dev->x_pixels_per_inch; - int ydpi = dev->y_pixels_per_inch; - - /* Paper Size Check */ - if (width <= height) { /* portrait */ - if ((width < LIPS_WIDTH_MIN || width > LIPS_WIDTH_MAX || - height < LIPS_HEIGHT_MIN || height > LIPS_HEIGHT_MAX) && - !(width == LIPS_LEDGER_WIDTH && height == LIPS_LEDGER_HEIGHT)) - return_error(gs_error_rangecheck); - } else { /* landscape */ - if ((width < LIPS_HEIGHT_MIN || width > LIPS_HEIGHT_MAX || - height < LIPS_WIDTH_MIN || height > LIPS_WIDTH_MAX) && - !(width == LIPS_LEDGER_HEIGHT && height == LIPS_LEDGER_WIDTH)) - return_error(gs_error_rangecheck); - } - - /* Resolution Check */ - if (xdpi != ydpi) - return_error(gs_error_rangecheck); - else { - if ((xdpi < LIPS_DPI_MIN || xdpi > LIPS4_DPI_MAX) - && xdpi != LIPS4_DPI_SUPERFINE) return_error(gs_error_rangecheck); - } - - return 0; -} - - -private void -lips4v_set_cap(gx_device * dev, int x, int y) -{ - - char cap[15]; - stream *s = gdev_vector_stream((gx_device_vector *) dev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - int dx = x - pdev->prev_x; - int dy = y - pdev->prev_y; - - - if (dx > 0) { - sprintf(cap, "%c%da", LIPS_CSI, dx); - lputs(s, cap); - } else if (dx < 0) { - sprintf(cap, "%c%dj", LIPS_CSI, -dx); - lputs(s, cap); - } - if (dy > 0) { - sprintf(cap, "%c%dk", LIPS_CSI, dy); - lputs(s, cap); - } else if (dy < 0) { - sprintf(cap, "%c%de", LIPS_CSI, -dy); - lputs(s, cap); - } - pdev->prev_x = x; - pdev->prev_y = y; -} - -#define POINT 18 - -/* Font Downloading Routine */ -private int -lips4v_copy_text_char(gx_device * dev, const byte * data, - int raster, gx_bitmap_id id, int x, int y, int w, int h) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - stream *s = gdev_vector_stream((gx_device_vector *) dev); - uint width_bytes = (w + 7) >> 3; - uint size = width_bytes * h; - int i, j; - uint ccode; - char cset_sub[9], cset[64], cset_number[8], text_color[15]; - int cell_length = (POINT * (int)dev->x_pixels_per_inch) / 72; - bool download = TRUE; - - if (w > cell_length || h > cell_length || !pdev->FontDL) - return -1; - - for (j = pdev->count - 1; j >= 0; j--) { - if (pdev->id_table[j] == id) - /* font is found */ - { - download = FALSE; - ccode = j; - for (i = j; i < pdev->count - 1; i++) { - pdev->id_cache[i] = pdev->id_cache[i + 1]; - } - pdev->id_cache[pdev->count - 1] = id; - break; - } - } - - if (download) { - if (pdev->count > max_cached_chars - 1) { - gx_bitmap_id tmpid = pdev->id_cache[0]; - - for (j = pdev->count - 1; j >= 0; j--) { - if (pdev->id_table[j] == tmpid) { - ccode = j; - break; - } - } - for (i = j; i < pdev->count - 1; i++) { - pdev->id_cache[i] = pdev->id_cache[i + 1]; - } - pdev->id_cache[pdev->count - 1] = tmpid; - } else { - ccode = pdev->count; - pdev->id_cache[pdev->count] = id; - } - } - if (pdev->TextMode == FALSE) { - /* Text mode */ - lputs(s, "}p"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sputc(s, LIPS_IS2); - pdev->TextMode = TRUE; - pdev->prev_x = x; - pdev->prev_y = y; - } else - lips4v_set_cap(dev, x, y); - - if (download) { - if (ccode % 128 == 0 && ccode == pdev->count) { - /* 文字セット登録補助命令 */ - sprintf(cset_sub, "%c%dx%c", LIPS_DCS, ccode / 128, LIPS_ST); - lputs(s, cset_sub); - /* 文字セット登録命令 */ - sprintf(cset, - "%c%d;1;0;0;3840;8;400;100;0;0;200;%d;%d;0;0;;;;;%d.p", - LIPS_CSI, - size + 9, cell_length, /* Cell Width */ - cell_length, /* Cell Height */ - (int)dev->x_pixels_per_inch); - lputs(s, cset); - } else { - /* 1文字登録命令 */ - sprintf(cset, - "%c%d;%d;8;%d.q", LIPS_CSI, - size + 9, ccode / 128, (int)dev->x_pixels_per_inch); - lputs(s, cset); - } - - /* ユーザ文字登録データ のヘッダ */ - sputc(s, ccode % 128); /* charcter code */ - put_int(s, w); - put_int(s, 0); - put_int(s, h); - put_int(s, 0); - for (i = h - 1; i >= 0; --i) { - put_bytes(s, data + i * raster, width_bytes); - } - } - /* 文字セット・アサイン番号選択命令2 */ - if (download) { - if (pdev->current_font != ccode / 128) { - sprintf(cset_number, "%c%d%%v", LIPS_CSI, ccode / 128); - lputs(s, cset_number); - pdev->current_font = ccode / 128; - } - } else { - if (pdev->current_font != ccode / 128) { - sprintf(cset_number, "%c%d%%v", LIPS_CSI, ccode / 128); - lputs(s, cset_number); - pdev->current_font = ccode / 128; - } - } - - /* カラー */ - if (pdev->current_color != pdev->prev_color) { - if (pdev->color_info.depth == 8) { - sputc(s, LIPS_CSI); - lputs(s, "?10;2;"); - sprintf(text_color, "%d", - (int)(pdev->color_info.max_gray - pdev->current_color)); - } else { - int r = (pdev->current_color >> 16) * 1000.0 / 255.0; - int g = ((pdev->current_color >> 8) & 0xff) * 1000.0 / 255.0; - int b = (pdev->current_color & 0xff) * 1000.0 / 255.0; - - sputc(s, LIPS_CSI); - lputs(s, "?10;;"); - sprintf(text_color, "%d;%d;%d", r, g, b); - } - lputs(s, text_color); - lputs(s, "%p"); - pdev->prev_color = pdev->current_color; - } - /* 制御文字印字命令 */ - if (ccode % 128 == 0x00 || - (ccode % 128 >= 0x07 && ccode % 128 <= 0x0F) || - ccode % 128 == 0x1B) { - sputc(s, LIPS_CSI); - lputs(s, "1.v"); - } - sputc(s, ccode % 128); - - if (download) { - pdev->id_table[ccode] = id; - if (pdev->count < max_cached_chars - 1) - pdev->count++; - } - return 0; -} - -private void -reverse_buffer(byte * buf, int Len) -{ - int i; - - for (i = 0; i < Len; i++) - *(buf + i) = ~*(buf + i); -} - -private void -lips4v_write_image_data(gx_device_vector * vdev, byte * buf, int tbyte, - int reverse) -{ - stream *s = gdev_vector_stream(vdev); - byte *cbuf = gs_alloc_bytes(vdev->memory, tbyte * 3 / 2, - "lips4v_write_image_data(cbuf)"); - byte *cbuf_rle = gs_alloc_bytes(vdev->memory, tbyte * 3, - "lips4v_write_image_data(cbuf_rle)"); - int Len, Len_rle; - - if (reverse) - reverse_buffer(buf, tbyte); - - - Len = lips_packbits_encode(buf, cbuf, tbyte); - Len_rle = lips_rle_encode(buf, cbuf_rle, tbyte); - - if (Len > tbyte && Len_rle > tbyte) { - /* Not compress */ - lputs(s, "0"); - sput_lips_int(s, tbyte); - sputc(s, LIPS_IS2); - - put_bytes(s, buf, tbyte); - } else if (Len > Len_rle) { - /* Use RunLength encode */ - lputs(s, ":"); - sput_lips_int(s, Len_rle); - sputc(s, LIPS_IS2); - - put_bytes(s, cbuf_rle, Len_rle); - } else { - /* Use PackBits encode */ - lputs(s, ";"); - sput_lips_int(s, Len); - sputc(s, LIPS_IS2); - - put_bytes(s, cbuf, Len); - } - - gs_free_object(vdev->memory, cbuf, "lips4v_write_image_data(cbuf)"); - gs_free_object(vdev->memory, cbuf_rle, - "lips4v_write_image_data(cbuf_rle)"); -} - - -/* ---------------- Vector device implementation ---------------- */ - -private int -lips4v_beginpage(gx_device_vector * vdev) -{ /* - * We can't use gdev_vector_stream here, because this may be called - * from there before in_page is set. - */ - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - stream *s = vdev->strm; - int dpi = vdev->x_pixels_per_inch; - int width = pdev->MediaSize[0]; - int height = pdev->MediaSize[1]; - int paper_size, x0, y0; - char dpi_char[6], unit[12]; - char page_header[8], l4vmono_page_header[7], l4vcolor_page_header[7]; - char duplex_char[6], tumble_char[6], toner_d[26], toner_s[5], - - nup_char[10]; - char username[6 + LIPS_USERNAME_MAX], feedmode[5], paper[16], - - faceup_char[256]; - bool dup = pdev->Duplex; - int dupset = pdev->Duplex_set; - bool tum = pdev->Tumble; - - /* ベクタ・モード移行命令 CSI &} は頁ごとに発行する */ - - if (pdev->first_page) { - if (pdev->pjl) { - lputs(s, l4v_file_header1); - if ((int)pdev->x_pixels_per_inch == 1200) - lputs(s, "@PJL SET RESOLUTION = SUPERFINE\n"); - else if ((int)pdev->x_pixels_per_inch == 600) - lputs(s, "@PJL SET RESOLUTION = FINE\n"); - else if ((int)pdev->x_pixels_per_inch == 300) - lputs(s, "@PJL SET RESOLUTION = QUICK\n"); - lputs(s, l4v_file_header2); - if (pdev->toner_density) { - sprintf(toner_d, "@PJL SET TONER-DENSITY=%d\n", - pdev->toner_density); - lputs(s, toner_d); - } - if (pdev->toner_saving_set) { - lputs(s, "@PJL SET TONER-SAVING="); - if (pdev->toner_saving) - sprintf(toner_s, "ON\n"); - else - sprintf(toner_s, "OFF\n"); - lputs(s, toner_s); - } - lputs(s, l4v_file_header3); - } - lputs(s, l4v_file_header4); - - /* set reaolution (dpi) */ - sprintf(dpi_char, "%d", dpi); - lputs(s, dpi_char); - - if (pdev->color_info.depth == 8) - lputs(s, l4vmono_file_header); - else - lputs(s, l4vcolor_file_header); - - /* username */ - sprintf(username, "%c2y%s%c", LIPS_DCS, pdev->Username, LIPS_ST); - lputs(s, username); - } - if (strcmp(pdev->mediaType, "PlainPaper") == 0) { - sputc(s, LIPS_CSI); - lputs(s, "20\'t"); - } - else if (strcmp(pdev->mediaType, "OHP") == 0 || - strcmp(pdev->mediaType, "TransparencyFilm") == 0) { - sputc(s, LIPS_CSI); - lputs(s, "40\'t"); /* OHP mode (for LBP-2160) */ - } - else if (strcmp(pdev->mediaType, "CardBoard") == 0) { - sputc(s, LIPS_CSI); - lputs(s, "30\'t"); /* CardBoard mode (for LBP-2160) */ - } - else if (strcmp(pdev->mediaType, "GlossyFilm") == 0) { - sputc(s, LIPS_CSI); - lputs(s, "41\'t"); /* GlossyFilm mode (for LBP-2160) */ - } - - /* 給紙モード */ - if (pdev->ManualFeed || - (strcmp(pdev->mediaType, "PlainPaper") != 0 - && strcmp(pdev->mediaType, LIPS_MEDIATYPE_DEFAULT) != 0)) { - /* Use ManualFeed */ - if (pdev->prev_feed_mode != 10) { - sprintf(feedmode, "%c10q", LIPS_CSI); - lputs(s, feedmode); - pdev->prev_feed_mode = 10; - } - } else { - if (pdev->prev_feed_mode != pdev->cassetFeed) { - sprintf(feedmode, "%c%dq", LIPS_CSI, pdev->cassetFeed); - lputs(s, feedmode); - pdev->prev_feed_mode = pdev->cassetFeed; - } - } - - paper_size = lips_media_selection(width, height); - - /* 用紙サイズ */ - if (pdev->prev_paper_size != paper_size) { - if (paper_size == USER_SIZE) { - /* modified by shige 06/27 2003 - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, width * 10, height * 10); */ - /* modified by shige 11/09 2003 - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, height * 10, width * 10); */ - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, - (height * 10 > LIPS_HEIGHT_MAX_720)? - LIPS_HEIGHT_MAX_720 : (height * 10), - (width * 10 > LIPS_WIDTH_MAX_720)? - LIPS_WIDTH_MAX_720 : (width * 10)); - lputs(s, paper); - } else if (paper_size == USER_SIZE + LANDSCAPE) { - /* modified by shige 06/27 2003 - sprintf(paper, "%c81;%d;%dp", LIPS_CSI, height * 10, width * 10); */ - /* modified by shige 11/09 2003 - sprintf(paper, "%c81;%d;%dp", LIPS_CSI, width * 10, height * 10); */ - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, - (width * 10 > LIPS_HEIGHT_MAX_720)? - LIPS_HEIGHT_MAX_720 : (width * 10), - (height * 10 > LIPS_WIDTH_MAX_720)? - LIPS_WIDTH_MAX_720 : (height * 10)); - lputs(s, paper); - } else { - sprintf(paper, "%c%dp", LIPS_CSI, paper_size); - lputs(s, paper); - } - } else if (paper_size == USER_SIZE) { - if (pdev->prev_paper_width != width || - pdev->prev_paper_height != height) - /* modified by shige 06/27 2003 - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, width * 10, height * 10); */ - /* modified by shige 11/09 2003 - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, height * 10, width * 10); */ - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, - (height * 10 > LIPS_HEIGHT_MAX_720)? - LIPS_HEIGHT_MAX_720 : (height * 10), - (width * 10 > LIPS_WIDTH_MAX_720)? - LIPS_WIDTH_MAX_720 : (width * 10)); - lputs(s, paper); - } else if (paper_size == USER_SIZE + LANDSCAPE) { - if (pdev->prev_paper_width != width || - pdev->prev_paper_height != height) - /* modified by shige 06/27 2003 - sprintf(paper, "%c81;%d;%dp", LIPS_CSI, height * 10, width * 10); */ - /* modified by shige 11/09 2003 - sprintf(paper, "%c81;%d;%dp", LIPS_CSI, width * 10, height * 10); */ - sprintf(paper, "%c80;%d;%dp", LIPS_CSI, - (width * 10 > LIPS_HEIGHT_MAX_720)? - LIPS_HEIGHT_MAX_720 : (width * 10), - (height * 10 > LIPS_WIDTH_MAX_720)? - LIPS_WIDTH_MAX_720 : (height * 10)); - lputs(s, paper); - } - pdev->prev_paper_size = paper_size; - pdev->prev_paper_width = width; - pdev->prev_paper_height = height; - - if (pdev->faceup) { - sprintf(faceup_char, "%c11;12;12~", LIPS_CSI); - lputs(s, faceup_char); - } - /* N-up Printing Setting */ - if (pdev->first_page) { - if (pdev->nup != 1) { - sprintf(nup_char, "%c%d1;;%do", LIPS_CSI, pdev->nup, paper_size); - lputs(s, nup_char); - } - } - /* Duplex Setting */ - if (dupset && dup) { - if (pdev->prev_duplex_mode == 0 || pdev->prev_duplex_mode == 1) { - sprintf(duplex_char, "%c2;#x", LIPS_CSI); /* duplex */ - lputs(s, duplex_char); - if (!tum) { - /* long edge binding */ - if (pdev->prev_duplex_mode != 2) { - sprintf(tumble_char, "%c0;#w", LIPS_CSI); - lputs(s, tumble_char); - } - pdev->prev_duplex_mode = 2; - } else { - /* short edge binding */ - if (pdev->prev_duplex_mode != 3) { - sprintf(tumble_char, "%c2;#w", LIPS_CSI); - lputs(s, tumble_char); - } - pdev->prev_duplex_mode = 3; - } - } - } else if (dupset && !dup) { - if (pdev->prev_duplex_mode != 1) { - sprintf(duplex_char, "%c0;#x", LIPS_CSI); /* simplex */ - lputs(s, duplex_char); - } - pdev->prev_duplex_mode = 1; - } - sputc(s, LIPS_CSI); - lputs(s, "?1;4;5;6;14l"); - sputc(s, LIPS_CSI); - lputs(s, "?2;3;h"); - - /* size unit (dpi) */ - sputc(s, LIPS_CSI); - lputs(s, "11h"); - sprintf(unit, "%c?7;%d I", LIPS_CSI, (int)pdev->x_pixels_per_inch); - lputs(s, unit); - sprintf(page_header, "%c[0&}#%c", LIPS_ESC, LIPS_IS2); - lputs(s, page_header); /* vector mode */ - - lputs(s, "!0"); /* size unit (dpi) */ - sput_lips_int(s, dpi); - lputs(s, "1"); - sputc(s, LIPS_IS2); - - if (pdev->color_info.depth == 8) { - sprintf(l4vmono_page_header, "!13%c$%c", LIPS_IS2, LIPS_IS2); - lputs(s, l4vmono_page_header); - } else { - sprintf(l4vcolor_page_header, "!11%c$%c", LIPS_IS2, LIPS_IS2); - lputs(s, l4vcolor_page_header); - } - - lputs(s, "(00"); - sput_lips_int(s, - ((width - dev_l_margin(vdev) - dev_r_margin(vdev)) * dpi) / - 72); - sput_lips_int(s, - ((height - dev_b_margin(vdev) - dev_t_margin(vdev)) * dpi) / - 72); - sputc(s, LIPS_IS2); - - /* 原点移動命令 */ - x0 = (dev_l_margin(vdev) - 5. / MMETER_PER_INCH) * dpi; - y0 = (dev_b_margin(vdev) - 5. / MMETER_PER_INCH) * dpi; - - if (x0 != 0 && y0 != 0) { - lputs(s, "}\""); - sput_lips_int(s, x0); - sput_lips_int(s, y0); - sputc(s, LIPS_IS2); - } - lputs(s, "I00"); - sputc(s, LIPS_IS2); - lputs(s, "}F2"); - sputc(s, LIPS_IS2); - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - lputs(s, "*0"); - sputc(s, LIPS_IS2); - - pdev->MaskState = 1; /* 初期化: 透過 */ - pdev->linecap = 0; - lputs(s, "}M"); - sput_lips_int(s, 3277); /* 11 degree : 16383 * 2 / 10 */ - sputc(s, LIPS_IS2); - lputs(s, "}I1"); /* non-zero winding rule is default */ - sputc(s, LIPS_IS2); - - return 0; -} - - -private int -lips4v_setlinewidth(gx_device_vector * vdev, floatp width) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - - -#if 0 - /* Scale を掛けているのは, Ghostscript 5.10/5.50 のバグのため */ - floatp xscale, yscale; - - xscale = fabs(igs->ctm.xx); - yscale = fabs(igs->ctm.xy); - - if (xscale == 0 || yscale > xscale) /* if portrait */ - width = ceil(width * yscale); - else - width = ceil(width * xscale); -#endif - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - if (width < 1) - width = 1; - - lputs(s, "F1"); - sput_lips_int(s, width); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_setlinecap(gx_device_vector * vdev, gs_line_cap cap) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - char c[6]; - int line_cap = 0; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - switch (cap) { - case 0: - case 3: - line_cap = 0; /* butt */ - break; - case 1: - line_cap = 1; /* round */ - break; - case 2: - line_cap = 2; /* square */ - break; - } - /* 線端形状指定命令 */ - sprintf(c, "}E%d%c", line_cap, LIPS_IS2); - lputs(s, c); - - pdev->linecap = cap; - - return 0; -} - -private int -lips4v_setlinejoin(gx_device_vector * vdev, gs_line_join join) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - -/* 線接続指定命令 */ - char c[5]; - int lips_join = 0; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - - switch (join) { - case 0: - lips_join = 2; /* miter */ - break; - case 1: - lips_join = 1; /* round */ - break; - case 2: - lips_join = 3; /* bevel */ - break; - case 3: - case 4: - lips_join = 0; /* none */ - break; - } - - sprintf(c, "}F%d%c", lips_join, LIPS_IS2); - lputs(s, c); - - return 0; -} - -private int -lips4v_setmiterlimit(gx_device_vector * vdev, floatp limit) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - floatp lips_miterlimit; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - lips_miterlimit = (16383.0 * 2.0) / limit; - - lputs(s, "}M"); - sput_lips_int(s, lips_miterlimit); - sputc(s, LIPS_IS2); - - return 0; -} - -#if GS_VERSION_MAJOR >= 8 -private int -lips4v_setfillcolor(gx_device_vector * vdev, const gs_imager_state * pis, const gx_drawing_color * pdc) -#else -private int -lips4v_setfillcolor(gx_device_vector * vdev, const gx_drawing_color * pdc) -#endif -{ - - if (!gx_dc_is_pure(pdc)) - return_error(gs_error_rangecheck); - { - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - gx_color_index color = gx_dc_pure_color(pdc); - int drawing_color; - float r, g, b; - - if (vdev->color_info.depth == 8) { - drawing_color = vdev->color_info.max_gray - color; - } else { - r = (color >> 16) * 1000.0 / 255.0; - g = ((color >> 8) & 0xff) * 1000.0 / 255.0; - b = (color & 0xff) * 1000.0 / 255.0; - } - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - pdev->current_color = color; - - if (color == gx_no_color_index) { - lputs(s, "I0"); - sputc(s, LIPS_IS2); - } else { - lputs(s, "I1"); - sputc(s, LIPS_IS2); - } - - /* 塗りつぶしカラー指定命令 */ - /* J {color} IS2 */ - lputs(s, "J"); - if (vdev->color_info.depth == 8) { - sput_lips_int(s, drawing_color); - } else { - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - } - sputc(s, LIPS_IS2); - - /* 単色イメージ・カラー指定命令 */ - /* }T {color} IS2 */ - lputs(s, "}T"); - if (vdev->color_info.depth == 8) { - sput_lips_int(s, drawing_color); - } else { - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - } - sputc(s, LIPS_IS2); - } - return 0; -} - -#if GS_VERSION_MAJOR >= 8 -private int -lips4v_setstrokecolor(gx_device_vector * vdev, const gs_imager_state * pis, const gx_drawing_color * pdc) -#else -private int -lips4v_setstrokecolor(gx_device_vector * vdev, const gx_drawing_color * pdc) -#endif -{ - if (!gx_dc_is_pure(pdc)) - return_error(gs_error_rangecheck); - { - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - gx_color_index color = gx_dc_pure_color(pdc); - float r, g, b; - - if (vdev->color_info.depth == 24) { - r = (color >> 16) * 1000 / 255.0; - g = ((color >> 8) & 0xff) * 1000 / 255.0; - b = (color & 0xff) * 1000 / 255.0; - } - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - /* ラインカラー指定命令 */ - /* G {color} IS2 */ - lputs(s, "G"); - if (vdev->color_info.depth == 8) { - sput_lips_int(s, vdev->color_info.max_gray - color); - } else { - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - } - sputc(s, LIPS_IS2); - } - return 0; -} - -/* 線種指定命令 */ -private int -lips4v_setdash(gx_device_vector * vdev, const float *pattern, uint count, - floatp offset) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - int i; - float scale, xscale, yscale; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } -#if 0 - /* Scale を掛けているのは, Ghostscript 5.10/5.50 のバグのため */ - xscale = fabs(igs->ctm.xx); - yscale = fabs(igs->ctm.xy); - - if (xscale == 0) /* if portrait */ - scale = yscale; - else - scale = xscale; -#endif - - if (count == 0) { - lputs(s, "E10"); - sputc(s, LIPS_IS2); - } else { - lputs(s, "}d"); - sputc(s, 0x2c); - lputs(s, "1"); -#if 0 - sput_lips_int(s, offset * scale / vdev->x_pixels_per_inch + 0.5); -#else - sput_lips_int(s, offset); -#endif - for (i = 0; i < count; ++i) { - if (pdev->linecap == 1 && count == 2 && pattern[0] == 0) { - if (i == 0) { - sput_lips_int(s, 1); - } else { -#if 0 - sput_lips_int(s, - pattern[i] * scale / - vdev->x_pixels_per_inch - 0.5); -#else - sput_lips_int(s, pattern[i] - 1); -#endif - } - } else { -#if 0 - sput_lips_int(s, - pattern[i] * scale / vdev->x_pixels_per_inch + - 0.5); -#else - sput_lips_int(s, pattern[i]); -#endif - } - } - sputc(s, LIPS_IS2); - lputs(s, "E1"); - sputc(s, 0x2c); - lputs(s, "0"); - sputc(s, LIPS_IS2); - } - - return 0; -} - -/* パス平滑度指定 */ -private int -lips4v_setflat(gx_device_vector * vdev, floatp flatness) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - lputs(s, "Pf"); - sput_lips_int(s, flatness); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_setlogop(gx_device_vector * vdev, gs_logical_operation_t lop, - gs_logical_operation_t diff) -{ -/****** SHOULD AT LEAST DETECT SET-0 & SET-1 ******/ - return 0; -} - -#if GS_VERSION_MAJOR >= 8 -/*--- added for Ghostscritp 8.15 ---*/ -private int -lips4v_can_handle_hl_color(gx_device_vector * vdev, const gs_imager_state * pis1, - const gx_drawing_color * pdc) -{ - return false; /* High level color is not implemented yet. */ -} -#endif - -private int -lips4v_beginpath(gx_device_vector * vdev, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - /* パス構築開始命令 */ - if (type & gx_path_type_clip) { - lputs(s, "P(10"); - sputc(s, LIPS_IS2); - } else - lputs(s, "P(00"); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_moveto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - - /* サブパス開始命令 p1 */ - lputs(s, "p10"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_lineto(gx_device_vector * vdev, floatp x0, floatp y0, floatp x, - floatp y, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - gx_device_lips4v *const pdev = (gx_device_lips4v *) vdev; - - /* if round cap */ - if (pdev->linecap == 1) { - if ((x0 == x) && (y0 == y)) - x += 1; - } - - /* パス・ポリライン命令 */ - lputs(s, "p402"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_curveto(gx_device_vector * vdev, floatp x0, floatp y0, - floatp x1, floatp y1, floatp x2, floatp y2, floatp x3, - floatp y3, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - - /* パス・ポリライン命令 */ - lputs(s, "p404"); - sput_lips_int(s, x1); - sput_lips_int(s, y1); - sput_lips_int(s, x2); - sput_lips_int(s, y2); - sput_lips_int(s, x3); - sput_lips_int(s, y3); - sputc(s, LIPS_IS2); - - return 0; -} - -private int -lips4v_closepath(gx_device_vector * vdev, floatp x, floatp y, - floatp x_start, floatp y_start, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - - lputs(s, "p0"); - sputc(s, LIPS_IS2); - return 0; -} - -private int -lips4v_endpath(gx_device_vector * vdev, gx_path_type_t type) -{ - stream *s = gdev_vector_stream(vdev); - - lputs(s, "P)"); - sputc(s, LIPS_IS2); - if (type & gx_path_type_rule) { - if (type & gx_path_type_winding_number) { - lputs(s, "}I1"); - sputc(s, LIPS_IS2); - } else { - lputs(s, "}I0"); - sputc(s, LIPS_IS2); - } - } - if (type & gx_path_type_fill) { - if (type & gx_path_type_stroke) { - lputs(s, "P&00"); - sputc(s, LIPS_IS2); - } else { - lputs(s, "PF00"); - sputc(s, LIPS_IS2); - } - } - if (type & gx_path_type_stroke) { - lputs(s, "PS00"); - sputc(s, LIPS_IS2); - } - if (type & gx_path_type_clip) { - lputs(s, "PC10"); - sputc(s, LIPS_IS2); - } - return 0; -} - -/* ---------------- Driver procedures ---------------- */ - -/* ------ Open/close/page ------ */ - -/* Open the device. */ -private int -lips4v_open(gx_device * dev) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - - int code; - - code = lips4v_range_check(dev); - if (code < 0) - return code; - - vdev->v_memory = dev->memory; -/****** WRONG ******/ - vdev->vec_procs = &lips4v_vector_procs; - -#if GS_VERSION_MAJOR >= 8 - code = gdev_vector_open_file_options(vdev, 512, - (VECTOR_OPEN_FILE_SEQUENTIAL|VECTOR_OPEN_FILE_BBOX)); -#else - code = gdev_vector_open_file_bbox(vdev, 512, true); -#endif - if (code < 0) - return code; - -#if GS_VERSION_MAJOR >= 8 - if (pdev->bbox_device != NULL) { - if (pdev->bbox_device->memory == NULL) - pdev->bbox_device->memory = gs_memory_stable(dev->memory); - } -#endif - - gdev_vector_init(vdev); - pdev->first_page = true; - - return 0; -} - -/* Wrap up ("output") a page. */ -private int -lips4v_output_page(gx_device * dev, int num_copies, int flush) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - stream *s = gdev_vector_stream(vdev); - char str[6]; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - lputs(s, "%"); - sputc(s, LIPS_IS2); - lputs(s, "}p"); - sputc(s, LIPS_IS2); - - if (num_copies > 255) - num_copies = 255; - if (pdev->prev_num_copies != num_copies) { - sprintf(str, "%c%dv", LIPS_CSI, num_copies); - lputs(s, str); - pdev->prev_num_copies = num_copies; - } - sputc(s, LIPS_FF); - sflush(s); - vdev->in_page = false; - pdev->first_page = false; - gdev_vector_reset(vdev); - return 0; -} - -private int -lips4v_close(gx_device * dev) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - FILE *f = vdev->file; - - fprintf(f, "%c0J%c", LIPS_DCS, LIPS_ST); - if (pdev->pjl) { - fprintf(f, "%c%%-12345X@PJL SET LPARM : LIPS SW2 = OFF\n", LIPS_ESC); - fprintf(f, - "%c%%-12345X%c%%-12345X@PJL EOJ\n" - "%c%%-12345X", LIPS_ESC, LIPS_ESC, LIPS_ESC); - } - gdev_vector_close_file(vdev); - - return 0; -} - -/* Close the device. */ -/* Note that if this is being called as a result of finalization, */ -/* the stream may no longer exist; but the file will still be open. */ - -/* ---------------- Get/put parameters ---------------- */ - -/* Get parameters. */ -private int -lips4v_get_params(gx_device * dev, gs_param_list * plist) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - int code = gdev_vector_get_params(dev, plist); - int ncode; - gs_param_string usern; - gs_param_string pmedia; - - if (code < 0) - return code; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_MANUALFEED, - &pdev->ManualFeed)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, LIPS_OPTION_CASSETFEED, - &pdev->cassetFeed)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_DUPLEX_TUMBLE, - &pdev->Tumble)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, LIPS_OPTION_NUP, &pdev->nup)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_PJL, &pdev->pjl)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, LIPS_OPTION_TONERDENSITY, - &pdev->toner_density)) < 0) - code = ncode; - - if (pdev->toner_saving_set >= 0 && - (code = (pdev->toner_saving_set ? - param_write_bool(plist, LIPS_OPTION_TONERSAVING, - &pdev-> - toner_saving) : param_write_null(plist, - LIPS_OPTION_TONERSAVING))) - < 0) - code = ncode; - - if (pdev->Duplex_set >= 0 && - (ncode = (pdev->Duplex_set ? - param_write_bool(plist, "Duplex", &pdev->Duplex) : - param_write_null(plist, "Duplex"))) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_FONTDOWNLOAD, - &pdev->FontDL)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, LIPS_OPTION_FACEUP, - &pdev->faceup)) < 0) code = ncode; - - pmedia.data = (const byte *)pdev->mediaType, - pmedia.size = strlen(pdev->mediaType), pmedia.persistent = false; - - if ((ncode = param_write_string(plist, LIPS_OPTION_MEDIATYPE, - &pmedia)) < 0) code = ncode; - - if (code < 0) - return code; - - usern.data = (const byte *)pdev->Username, - usern.size = strlen(pdev->Username), usern.persistent = false; - - return param_write_string(plist, LIPS_OPTION_USER_NAME, &usern); -} - -/* Put parameters. */ -private int -lips4v_put_params(gx_device * dev, gs_param_list * plist) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - int ecode = 0; - int code; - gs_param_name param_name; - gs_param_string pmedia; - bool mf = pdev->ManualFeed; - int cass = pdev->cassetFeed; - gs_param_string usern; - bool tum = pdev->Tumble; - int nup = pdev->nup; - bool pjl = pdev->pjl; - int toner_density = pdev->toner_density; - bool toner_saving = pdev->toner_saving; - bool toner_saving_set = pdev->toner_saving_set; - bool fontdl = pdev->FontDL; - bool faceup = pdev->faceup; - bool duplex; - int duplex_set = -1; - int old_bpp = dev->color_info.depth; - int bpp = 0; - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_MANUALFEED), - &mf)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_CASSETFEED), - &cass)) { - case 0: - if (cass < -1 || cass > 17 || (cass > 3 && cass < 10)) - ecode = gs_error_limitcheck; - else - break; - goto casse; - default: - ecode = code; - casse:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - switch (code = param_read_string(plist, - (param_name = LIPS_OPTION_MEDIATYPE), - &pmedia)) { - case 0: - if (pmedia.size > LIPS_MEDIACHAR_MAX) - ecode = gs_error_limitcheck; - else { /* Check the validity of ``MediaType'' characters */ - if (strcmp(pmedia.data, "PlainPaper") != 0 && - strcmp(pmedia.data, "OHP") != 0 && - strcmp(pmedia.data, "TransparencyFilm") != 0 && /* same as OHP */ - strcmp(pmedia.data, "GlossyFilm") != 0 && - strcmp(pmedia.data, "CardBoard") != 0) { - ecode = gs_error_rangecheck; - goto pmediae; - } - } - break; - goto pmediae; - default: - ecode = code; - pmediae:param_signal_error(plist, param_name, ecode); - case 1: - pmedia.data = 0; - break; - } - - switch (code = param_read_string(plist, - (param_name = LIPS_OPTION_USER_NAME), - &usern)) { - case 0: - if (usern.size > LIPS_USERNAME_MAX) - ecode = gs_error_limitcheck; - else { /* Check the validity of ``User Name'' characters */ - int i; - - for (i = 0; i < usern.size; i++) - if (usern.data[i] < 0x20 || usern.data[i] > 0x7e - /* - && usern.data[i] < 0xa0) || - usern.data[i] > 0xfe - */ - ) { - ecode = gs_error_rangecheck; - goto userne; - } - } - break; - goto userne; - default: - ecode = code; - userne:param_signal_error(plist, param_name, ecode); - case 1: - usern.data = 0; - break; - } - - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_DUPLEX_TUMBLE), - &tum)) < 0) - param_signal_error(plist, param_name, ecode = code); - - - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_NUP), &nup)) { - case 0: - if (nup != 1 && nup != 2 && nup != 4) - ecode = gs_error_rangecheck; - else - break; - goto nupe; - default: - ecode = code; - nupe:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_PJL), &pjl)) < 0) - param_signal_error(plist, param_name, ecode = code); - - switch (code = param_read_int(plist, - (param_name = LIPS_OPTION_TONERDENSITY), - &toner_density)) { - case 0: - if (toner_density < 0 || toner_density > 8) - ecode = gs_error_rangecheck; - else - break; - goto tden; - default: - ecode = code; - tden:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if (pdev->toner_saving_set >= 0) - switch (code = - param_read_bool(plist, (param_name = LIPS_OPTION_TONERSAVING), - &toner_saving)) { - case 0: - toner_saving_set = 1; - break; - default: - if ((code = param_read_null(plist, param_name)) == 0) { - toner_saving_set = 0; - break; - } - ecode = code; - param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if (pdev->Duplex_set >= 0) /* i.e., Duplex is supported */ - switch (code = param_read_bool(plist, (param_name = "Duplex"), - &duplex)) { - case 0: - duplex_set = 1; - break; - default: - if ((code = param_read_null(plist, param_name)) == 0) { - duplex_set = 0; - break; - } - ecode = code; - param_signal_error(plist, param_name, ecode); - case 1: - break; - } - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_FONTDOWNLOAD), - &fontdl)) < 0) - param_signal_error(plist, param_name, ecode = code); - - if ((code = param_read_bool(plist, - (param_name = LIPS_OPTION_FACEUP), - &faceup)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - - - switch (code = param_read_int(plist, (param_name = "BitsPerPixel"), &bpp)) { - case 0: - if (bpp != 8 && bpp != 24) - ecode = gs_error_rangecheck; - else - break; - goto bppe; - default: - ecode = code; - bppe:param_signal_error(plist, param_name, ecode); - case 1: - break; - } - - if (bpp != 0) { - dev->color_info.depth = bpp; - dev->color_info.num_components = ((bpp == 8) ? 1 : 3); - dev->color_info.max_gray = (bpp > 8 ? 255 : 1000); - dev->color_info.max_color = (bpp > 8 ? 255 : 1000); - dev->color_info.dither_grays = (bpp > 8 ? 256 : 5); - dev->color_info.dither_colors = (bpp > 8 ? 256 : 2); - dev_proc(pdev, map_rgb_color) = - ((bpp == 8) ? gx_default_gray_map_rgb_color : - gx_default_rgb_map_rgb_color); - dev_proc(pdev, map_color_rgb) = - ((bpp == 8) ? gx_default_gray_map_color_rgb : - gx_default_rgb_map_color_rgb); - } - - if (ecode < 0) - return ecode; - code = gdev_vector_put_params(dev, plist); - if (code < 0) - return code; - - pdev->ManualFeed = mf; - pdev->cassetFeed = cass; - pdev->Tumble = tum; - pdev->nup = nup; - pdev->pjl = pjl; - pdev->toner_density = toner_density; - pdev->toner_saving = toner_saving; - pdev->toner_saving_set = toner_saving_set; - pdev->FontDL = fontdl; - pdev->faceup = faceup; - - if (duplex_set >= 0) { - pdev->Duplex = duplex; - pdev->Duplex_set = duplex_set; - } - if (pmedia.data != 0 && - bytes_compare(pmedia.data, pmedia.size, - (const byte *)pdev->mediaType, strlen(pdev->mediaType)) - ) { - memcpy(pdev->mediaType, pmedia.data, pmedia.size); - pdev->mediaType[pmedia.size] = 0; - } - if (usern.data != 0 && - bytes_compare(usern.data, usern.size, - (const byte *)pdev->Username, strlen(pdev->Username)) - ) { - memcpy(pdev->Username, usern.data, usern.size); - pdev->Username[usern.size] = 0; - } - if (bpp != 0 && bpp != old_bpp && pdev->is_open) - return gs_closedevice(dev); - return 0; -} - -/* ---------------- Images ---------------- */ - -private int -lips4v_copy_mono(gx_device * dev, const byte * data, - int data_x, int raster, gx_bitmap_id id, int x, int y, int w, - int h, gx_color_index zero, gx_color_index one) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gx_device_vector *const vdev = (gx_device_vector *) dev; - stream *s = gdev_vector_stream(vdev); - int dpi = dev->x_pixels_per_inch; - gx_drawing_color color; - int code = 0; - floatp r, g, b; - - if (id != gs_no_id && zero == gx_no_color_index && - one != gx_no_color_index && data_x == 0) { - gx_drawing_color dcolor; - - color_set_pure(&dcolor, one); -#if GS_VERSION_MAJOR >= 8 - lips4v_setfillcolor(vdev, NULL, &dcolor); -#else - lips4v_setfillcolor(vdev, &dcolor); -#endif - - if (lips4v_copy_text_char(dev, data, raster, id, x, y, w, h) >= 0) - return 0; - } - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - /* - (*dev_proc(vdev->bbox_device, copy_mono)) - ((gx_device *)vdev->bbox_device, data, data_x, raster, id, - x, y, w, h, zero, one); - */ - if (zero == gx_no_color_index) { - if (one == gx_no_color_index) - return 0; - /* one 色に染め、透過にする */ - if (pdev->MaskState != 1) { - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - if (pdev->color_info.depth == 8) { - gx_color_index one_color = vdev->color_info.max_gray - one; - - lputs(s, "}T"); - sput_lips_int(s, one_color); - sputc(s, LIPS_IS2); - } else { - r = (one >> 16) * 1000.0 / 255.0; - g = ((one >> 8) & 0xff) * 1000.0 / 255.0; - b = (one & 0xff) * 1000.0 / 255.0; - lputs(s, "}T"); - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - sputc(s, LIPS_IS2); - } - } else if (one == gx_no_color_index) - /* 1bit は透明 ビット反転・zero 色に染める */ - { - gx_color_index zero_color = vdev->color_info.max_gray - zero; - - if (pdev->MaskState != 1) { - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - if (pdev->color_info.depth == 8) { - lputs(s, "}T"); - sput_lips_int(s, zero_color); - sputc(s, LIPS_IS2); - } else { - r = (zero >> 16) * 1000.0 / 255.0; - g = ((zero >> 8) & 0xff) * 1000.0 / 255.0; - b = (zero & 0xff) * 1000.0 / 255.0; - lputs(s, "}T"); - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - sputc(s, LIPS_IS2); - } - } else if (one == vdev->white) { - /* ビット反転 白塗り zero 色に染める */ - gx_color_index zero_color = vdev->color_info.max_gray - zero; - - if (pdev->MaskState != 0) { - lputs(s, "}H0"); - sputc(s, LIPS_IS2); - pdev->MaskState = 0; - } - if (pdev->color_info.depth == 8) { - lputs(s, "}T"); - sput_lips_int(s, zero_color); - sputc(s, LIPS_IS2); - } else { - r = (zero >> 16) * 1000.0 / 255.0; - g = ((zero >> 8) & 0xff) * 1000.0 / 255.0; - b = (zero & 0xff) * 1000.0 / 255.0; - lputs(s, "}T"); - sput_lips_int(s, r); - sput_lips_int(s, g); - sput_lips_int(s, b); - sputc(s, LIPS_IS2); - } - } else { - if (zero != gx_no_color_index) { - code = (*dev_proc(dev, fill_rectangle)) (dev, x, y, w, h, zero); - if (code < 0) - return code; - } - if (pdev->MaskState != 1) { - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - color_set_pure(&color, one); - -#if GS_VERSION_MAJOR >= 8 - code = gdev_vector_update_fill_color((gx_device_vector *) pdev, - NULL, &color); -#else - code = gdev_vector_update_fill_color((gx_device_vector *) pdev, - &color); -#endif - } - if (code < 0) - return 0; - lputs(s, "}P"); - sput_lips_int(s, x); /* Position X */ - sput_lips_int(s, y); /* Position Y */ - sput_lips_int(s, dpi * 100); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, h); /* Height */ - sput_lips_int(s, w); /* Width */ - lputs(s, "100110"); - sputc(s, LIPS_IS2); - - lputs(s, "}Q11"); - - { - int i, j; - uint width_bytes = (w + 7) >> 3; - uint num_bytes = round_up(width_bytes, 4) * h; - byte *buf = gs_alloc_bytes(vdev->memory, num_bytes, - "lips4v_copy_mono(buf)"); - - if (data_x % 8 == 0) { - for (i = 0; i < h; ++i) { - memcpy(buf + i * width_bytes, - data + (data_x >> 3) + i * raster, width_bytes); - } - } else { - for (i = 0; i < h; ++i) { - for (j = 0; j < width_bytes; j++) { - *(buf + i * width_bytes + j) = - *(data + (data_x >> 3) + i * raster + - j) << (data_x % 8) | *(data + (data_x >> 3) + - i * raster + j + 1) >> (8 - - data_x - % 8); - } - } - } - - - if (one == gx_no_color_index - || (one == vdev->white - && zero != gx_no_color_index)) lips4v_write_image_data(vdev, - buf, - num_bytes, - TRUE); - else - lips4v_write_image_data(vdev, buf, num_bytes, FALSE); - - gs_free_object(vdev->memory, buf, "lips4v_copy_mono(buf)"); - } - - return 0; -} - -/* Copy a color bitmap. */ -private int -lips4v_copy_color(gx_device * dev, - const byte * data, int data_x, int raster, gx_bitmap_id id, - int x, int y, int w, int h) -{ - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gx_device_vector *const vdev = (gx_device_vector *) dev; - - stream *s = gdev_vector_stream(vdev); - int depth = dev->color_info.depth; - int dpi = dev->x_pixels_per_inch; - int num_components = (depth < 24 ? 1 : 3); - uint width_bytes = w * num_components; - - - if (dev->color_info.depth == 8) { - gx_drawing_color dcolor; - - /* LIPS IV ではグレースケールも単色イメージ・カラー指定命令に - 影響されるので黒色を指定しなければならない。 */ - color_set_pure(&dcolor, vdev->black); -#if GS_VERSION_MAJOR >= 8 - lips4v_setfillcolor(vdev, NULL, &dcolor); -#else - lips4v_setfillcolor(vdev, &dcolor); -#endif - } else { - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - } - - if (pdev->MaskState != 0) { - lputs(s, "}H0"); /* 論理描画設定命令 */ - sputc(s, LIPS_IS2); - pdev->MaskState = 0; - } - lputs(s, "}P"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, h); - sput_lips_int(s, w); - sput_lips_int(s, depth / num_components); - sputc(s, depth < 24 ? '0' : ':'); /* 24 bit のとき点順次 */ - lputs(s, "0110"); - sputc(s, LIPS_IS2); - - { - int i; - uint num_bytes = width_bytes * h; - byte *buf = gs_alloc_bytes(vdev->memory, num_bytes, - "lips4v_copy_color(buf)"); - - lputs(s, "}Q11"); - - for (i = 0; i < h; ++i) { - memcpy(buf + i * width_bytes, - data + ((data_x * depth) >> 3) + i * raster, width_bytes); - } - - if (dev->color_info.depth == 8) - lips4v_write_image_data(vdev, buf, num_bytes, TRUE); - else - lips4v_write_image_data(vdev, buf, num_bytes, FALSE); - - gs_free_object(vdev->memory, buf, "lips4v_copy_color(buf)"); - } - - return 0; -} - -/* Fill a mask. */ -private int -lips4v_fill_mask(gx_device * dev, - const byte * data, int data_x, int raster, gx_bitmap_id id, - int x, int y, int w, int h, - const gx_drawing_color * pdcolor, int depth, - gs_logical_operation_t lop, const gx_clip_path * pcpath) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - stream *s = gdev_vector_stream(vdev); - int dpi = dev->x_pixels_per_inch; - - if (w <= 0 || h <= 0) - return 0; - if (depth > 1 || -#if GS_VERSION_MAJOR >= 8 - gdev_vector_update_fill_color(vdev, NULL, pdcolor) < 0 || -#else - gdev_vector_update_fill_color(vdev, pdcolor) < 0 || -#endif - gdev_vector_update_clip_path(vdev, pcpath) < 0 || - gdev_vector_update_log_op(vdev, lop) < 0) - return gx_default_fill_mask(dev, data, data_x, raster, id, - x, y, w, h, pdcolor, depth, lop, pcpath); -#if 1 - (*dev_proc(vdev->bbox_device, fill_mask)) - ((gx_device *) vdev->bbox_device, data, data_x, raster, id, - x, y, w, h, pdcolor, depth, lop, pcpath); -#endif - if (id != gs_no_id && data_x == 0) { - if (lips4v_copy_text_char(dev, data, raster, id, x, y, w, h) >= 0) - return 0; - } - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - /* 書きだし */ - if (pdev->MaskState != 1) { - lputs(s, "}H1"); /* 論理描画設定命令 */ - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - lputs(s, "}P"); - sput_lips_int(s, x); - sput_lips_int(s, y); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, dpi * 100); - sput_lips_int(s, h); - sput_lips_int(s, w); - lputs(s, "100110"); - sputc(s, LIPS_IS2); - - lputs(s, "}Q11"); - - { - int i; - uint width_bytes = (w + 7) >> 3; - uint num_bytes = round_up(width_bytes, 4) * h; - byte *buf = gs_alloc_bytes(vdev->memory, num_bytes, - "lips4v_fill_mask(buf)"); - - for (i = 0; i < h; ++i) { - memcpy(buf + i * width_bytes, data + (data_x >> 3) + i * raster, - width_bytes); - } - - lips4v_write_image_data(vdev, buf, num_bytes, FALSE); - - gs_free_object(vdev->memory, buf, "lips4v_fill_mask(buf)"); - } - - return 0; -} - -/* ---------------- High-level images ---------------- */ - -private image_enum_proc_plane_data(lips4v_image_plane_data); -private image_enum_proc_end_image(lips4v_image_end_image); -private const gx_image_enum_procs_t lips4v_image_enum_procs = { - lips4v_image_plane_data, lips4v_image_end_image -}; - -/* Start processing an image. */ -private int -lips4v_begin_image(gx_device * dev, - const gs_imager_state * pis, const gs_image_t * pim, - gs_image_format_t format, const gs_int_rect * prect, - const gx_drawing_color * pdcolor, - const gx_clip_path * pcpath, gs_memory_t * mem, - gx_image_enum_common_t ** pinfo) -{ - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gdev_vector_image_enum_t *pie = - gs_alloc_struct(mem, gdev_vector_image_enum_t, - &st_vector_image_enum, "lips4v_begin_image"); - const gs_color_space *pcs = pim->ColorSpace; - gs_color_space_index index; - int num_components = 1; - bool can_do = prect == 0 && - (pim->format == gs_image_format_chunky || - - pim->format == gs_image_format_component_planar); - - int code; - - if (pie == 0) - return_error(gs_error_VMerror); - pie->memory = mem; - code = gdev_vector_begin_image(vdev, pis, pim, format, prect, - pdcolor, pcpath, mem, - &lips4v_image_enum_procs, pie); - if (code < 0) - return code; - *pinfo = (gx_image_enum_common_t *) pie; - - if (!pim->ImageMask) { - index = gs_color_space_get_index(pcs); - num_components = gs_color_space_num_components(pcs); - - if (pim->CombineWithColor) - can_do = false; - else { - switch (index) { - case gs_color_space_index_DeviceGray: - if ((pim->Decode[0] != 0 || pim->Decode[1] != 1) - && (pim->Decode[0] != 1 || pim->Decode[1] != 0)) - can_do = false; - break; - case gs_color_space_index_DeviceRGB: - /* LIPS では RGB を反転することはできない */ - if (pim->Decode[0] != 0 || pim->Decode[1] != 1 || - pim->Decode[2] != 0 || pim->Decode[3] != 1 || - pim->Decode[4] != 0) - can_do = false; - break; - default: - /* - LIPS では L*a*b* 形式のカラースペースが使えます。 - CIEBasedABC を使って表現できないこともないのですが、 - 動作確認できないので低レベルの関数にまかせることに - しちゃいます。 - それよりも CMYK のカラースペースが欲しい... - */ - can_do = false; - } - } - } - if (!can_do) - return gx_default_begin_image(dev, pis, pim, format, prect, - pdcolor, pcpath, mem, - &pie->default_info); - else if (index == gs_color_space_index_DeviceGray) { - gx_drawing_color dcolor; - - /* LIPS IV ではグレースケールも単色イメージ・カラー指定命令に - 影響されるので黒色を明示的に指定しなければならない。 */ - color_set_pure(&dcolor, vdev->black); -#if GS_VERSION_MAJOR >= 8 - lips4v_setfillcolor(vdev, NULL, &dcolor); -#else - lips4v_setfillcolor(vdev, &dcolor); -#endif - } - if (pim->ImageMask || (pim->BitsPerComponent == 1 && num_components == 1)) { - if (pim->Decode[0] > pim->Decode[1]) - pdev->MaskReverse = 1; - else - pdev->MaskReverse = 0; - } - /* Write the image/colorimage/imagemask preamble. */ - { - stream *s = gdev_vector_stream((gx_device_vector *) pdev); - int ax, ay, bx, by, cx, cy, dx, dy; - int tbyte; - gs_matrix imat; - int interpolate = 0; - - if (pdev->TextMode) { - sputc(s, LIPS_CSI); - lputs(s, "&}"); - pdev->TextMode = FALSE; - } - gs_matrix_invert(&pim->ImageMatrix, &imat); - gs_matrix_multiply(&imat, &ctm_only(pis), &imat); - /* - [xx xy yx yy tx ty] - LIPS の座標系に変換を行なう。 - - }U{Ax}{Ay}{Bx}{By}{Cx}{Cy}{pie->height}{pie->width} - {pim->BitsPerComponent}{0}{0}{1} LIPS_IS2 - */ - - /* }Q110{byte} LIPS_IS2 */ - ax = imat.tx; - ay = imat.ty; - bx = imat.xx * pim->Width + imat.yx * pim->Height + imat.tx; - by = imat.xy * pim->Width + imat.yy * pim->Height + imat.ty; - cx = imat.yx * pim->Height + imat.tx; - cy = imat.yy * pim->Height + imat.ty; - dx = imat.xx * pim->Width + imat.tx; - dy = imat.xy * pim->Width + imat.ty; - - if (pim->ImageMask) { - tbyte = - (pie->width * pim->BitsPerComponent + - 7) / 8 * num_components * pie->height; - pdev->ncomp = 1; - if (tbyte == 1) { - /* LIPS IV では 1 dot のイメージを変形すると座標が狂うバグが - ある。よって 1 dot のイメージは矩形として処理する。 */ - pdev->OneBitMask = true; - /* Draw Rectangle */ - lputs(s, "2"); - sput_lips_int(s, ax); - sput_lips_int(s, ay); - sput_lips_int(s, cx - ax); - sput_lips_int(s, cy - ay); - sput_lips_int(s, bx - cx); - sput_lips_int(s, by - cy); - sput_lips_int(s, dx - bx); - sput_lips_int(s, dy - by); - sputc(s, LIPS_IS2); - return 0; - } else { - /* 描画論理設定命令 - 透過 */ - if (pdev->MaskState != 1) { - lputs(s, "}H1"); - sputc(s, LIPS_IS2); - pdev->MaskState = 1; - } - } - } else { - /* 描画論理設定命令 - 白塗り */ - if (pdev->MaskState != 0) { - lputs(s, "}H0"); - sputc(s, LIPS_IS2); - pdev->MaskState = 0; - } - pdev->ncomp = num_components; - } - - lputs(s, "}U"); - sput_lips_int(s, ax); - sput_lips_int(s, ay); - sput_lips_int(s, bx); - sput_lips_int(s, by); - sput_lips_int(s, cx); - sput_lips_int(s, cy); - sput_lips_int(s, pie->height); - sput_lips_int(s, pie->width); - sput_lips_int(s, pim->BitsPerComponent); - - if (pim->Interpolate) { - if (pim->BitsPerComponent * pie->num_planes == 1) - interpolate = 1; - else - interpolate = 3; - } - if (pim->ImageMask) { /* 1bit のとき */ - lputs(s, "0"); - } else { - if (index == gs_color_space_index_DeviceGray) - lputs(s, "0"); - else { - if (format == gs_image_format_chunky) /* RGBRGBRGB... */ - sputc(s, 0x3a); - else /* RRR...GGG...BBB... */ - sputc(s, 0x3b); - } - } - if (interpolate > 0) - sput_lips_int(s, interpolate); - sputc(s, LIPS_IS2); - } - return 0; -} - -/* Process the next piece of an image. */ -private int -lips4v_image_plane_data(gx_image_enum_common_t * info, - const gx_image_plane_t * planes, int height, - int *rows_used) -{ - gx_device *dev = info->dev; - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gdev_vector_image_enum_t *pie = (gdev_vector_image_enum_t *) info; - - stream *s = gdev_vector_stream((gx_device_vector *) pdev); - int y; - - if (pdev->OneBitMask) { - /* - lputs(s, "\200"); - */ - pie->y += height; - return 1; - } - if (pie->default_info) - return gx_image_plane_data(pie->default_info, planes, height); - gx_image_plane_data(pie->bbox_info, planes, height); - { - int plane; - int width_bytes, tbyte; - byte *buf; - - width_bytes = - (pie->width * pie->bits_per_pixel / pdev->ncomp + - 7) / 8 * pdev->ncomp; - tbyte = width_bytes * height; - buf = gs_alloc_bytes(vdev->memory, tbyte, "lips4v_image_data(buf)"); - - for (plane = 0; plane < pie->num_planes; ++plane) - for (y = 0; y < height; ++y) { - memcpy(buf + y * width_bytes, - planes[plane].data + - ((planes[plane].data_x * pie->bits_per_pixel) >> 3) - + y * planes[plane].raster, width_bytes); - } - - lputs(s, "}Q10"); - - if ((pie->bits_per_pixel > 1 && pdev->ncomp == 1) || - pdev->MaskReverse == 0) { - lips4v_write_image_data(vdev, buf, tbyte, TRUE); - } else - lips4v_write_image_data(vdev, buf, tbyte, FALSE); - - gs_free_object(vdev->memory, buf, "lips4v_image_data(buf)"); - - } - - return (pie->y += height) >= pie->height; -} - -private int -lips4v_image_end_image(gx_image_enum_common_t * info, bool draw_last) -{ - gx_device *dev = info->dev; - gx_device_vector *const vdev = (gx_device_vector *) dev; - gx_device_lips4v *const pdev = (gx_device_lips4v *) dev; - gdev_vector_image_enum_t *pie = (gdev_vector_image_enum_t *) info; - stream *s = gdev_vector_stream((gx_device_vector *) pdev); - int code; - - if (pdev->OneBitMask) - pdev->OneBitMask = false; - else - lputs(s, "}Q1100"); - sputc(s, LIPS_IS2); /* End of Image */ - - pdev->MaskReverse = -1; - - code = gdev_vector_end_image(vdev, (gdev_vector_image_enum_t *) pie, - draw_last, pdev->white); - return code; -} diff --git a/gs/contrib/lips4/gdevlips.c b/gs/contrib/lips4/gdevlips.c deleted file mode 100644 index 2da00d68f..000000000 --- a/gs/contrib/lips4/gdevlips.c +++ /dev/null @@ -1,211 +0,0 @@ -/* Copyright (C) 1998, 1999 Norihito Ohmori. - - Ghostscript printer driver - for Canon LBP and BJ printers (LIPS II+/III/IVc/IV) - - This software is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY. No author or distributor accepts responsibility - to anyone for the consequences of using it or for whether it serves any - particular purpose or works at all, unless he says so in writing. Refer - to the GNU General Public License for full details. - - Everyone is granted permission to copy, modify and redistribute - this software, but only under the conditions described in the GNU - General Public License. A copy of this license is supposed to have been - given to you along with this software so you can know your rights and - responsibilities. It should be in a file named COPYING. Among other - things, the copyright notice and this notice must be preserved on all - copies. - */ - -/*$Id: gdevlips.c,v 1.3 2002/07/20 21:03:21 tillkamppeter Exp $ */ -/* Common Utility for LIPS driver */ - -#include "gx.h" -#include "gdevlips.h" - -typedef struct { - int width; - int height; - int num_unit; -} paper_table; - -static paper_table lips_paper_table[] = -{ - {842, 1190, 12}, /* A3 */ - {595, 842, 14}, /* A4 */ - {597, 842, 14}, /* A4 8.3 inch x 11.7 inch */ - {421, 595, 16}, /* A5 */ - {284, 419, 18}, /* PostCard */ - {729, 1032, 24}, /* JIS B4 */ - {516, 729, 26}, /* JIS B5 */ - {363, 516, 28}, /* JIS B6 */ - {612, 792, 30}, /* Letter */ - {612, 1008, 32}, /* Legal */ - {792, 1224, 34}, /* Ledger */ - {522, 756, 40}, /* Executive */ - {298, 666, 50}, /* envyou4 */ - {0, 0, 80}, /* User Size */ -}; - -int -lips_media_selection(int width, int height) -{ - int landscape = 0; - int tmp; - paper_table *pt; - - if (width > height) { - landscape = 1; - tmp = width; - width = height; - height = tmp; - } - for (pt = lips_paper_table; pt->num_unit < 80; pt++) - if (pt->width == width && pt->height == height) - break; - - return pt->num_unit + landscape; -} - -private int GetNumSameData(const byte * curPtr, const int maxnum); -private int GetNumWrongData(const byte * curPtr, const int maxnum); - -/* This routine talkes from LipsIVRunLengthEncode in Yoshiharu ITO's patch */ -int -lips_packbits_encode(byte * inBuff, byte * outBuff, int Length) -{ - int size = 0; - - while (Length) { - int count; - - if (1 < (count = GetNumSameData(inBuff, - Length > 128 ? 128 : Length))) { - Length -= count; - size += 2; - - *outBuff++ = -(count - 1); - *outBuff++ = *inBuff; - inBuff += count; - } else { - count = GetNumWrongData(inBuff, Length > 128 ? 128 : Length); - Length -= count; - size += count + 1; - - *outBuff++ = count - 1; - while (count--) { - *outBuff++ = *inBuff++; - } - } - } - - return (size); -} - -/* LIPS III printer can no use Runlength encode mode - but Mode 1-3 Format mode. */ -/* This routine takes from LipsIIIRunLengthEncode in Yoshiharu ITO's patch */ -int -lips_mode3format_encode(byte * inBuff, byte * outBuff, int Length) -{ - int size = 0; - - while (Length) { - int count; - - if (1 < (count = GetNumSameData(inBuff, - Length > 257 ? 257 : Length))) { - Length -= count; - size += 3; - - *outBuff++ = *inBuff; - *outBuff++ = *inBuff; - *outBuff++ = count - 2; - inBuff += count; - } else { - count = GetNumWrongData(inBuff, Length); - Length -= count; - size += count; - - while (count--) { - *outBuff++ = *inBuff++; - } - } - } - - return (size); -} - -private int -GetNumSameData(const byte * curPtr, const int maxnum) -{ - int count = 1; - - if (1 == maxnum) { - return (1); - } - while (*curPtr == *(curPtr + count) && maxnum > count) { - count++; - } - - return (count); -} - -private int -GetNumWrongData(const byte * curPtr, const int maxnum) -{ - int count = 0; - - if (1 == maxnum) { - return (1); - } - while (*(curPtr + count) != *(curPtr + count + 1) && maxnum > count) { - count++; - } - - return (count); -} - - -/* - - This routine takes from gdevlips4-1.1.0. - - */ -#define RLECOUNTMAX 0xff /* 256 times */ -int -lips_rle_encode(byte * inBuff, byte * outBuff, int Length) -{ - int i = 0; - byte value; - int count = 0; - byte *ptr = inBuff; - - value = *ptr; - ptr++; - - while (ptr < inBuff + Length) { - if (*ptr == value) { - count++; - if (count > RLECOUNTMAX) { - *outBuff++ = RLECOUNTMAX; - *outBuff++ = value; - i += 2; - count = 0; - } - } else { - *outBuff++ = count; - *outBuff++ = value; - i += 2; - count = 0; - value = *ptr; - } - ptr++; - } - *outBuff++ = count; - *outBuff++ = value; - i += 2; - - return i; -} diff --git a/gs/contrib/lips4/gdevlips.h b/gs/contrib/lips4/gdevlips.h deleted file mode 100644 index 0236115a8..000000000 --- a/gs/contrib/lips4/gdevlips.h +++ /dev/null @@ -1,197 +0,0 @@ -/* Copyright (C) 1998, 1999 Norihito Ohmori. - - Ghostscript printer driver - for Canon LBP, BJC-680J and BJC-880J printers (LIPS II+/III/IVc/IV) - - This software is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY. No author or distributor accepts responsibility - to anyone for the consequences of using it or for whether it serves any - particular purpose or works at all, unless he says so in writing. Refer - to the GNU General Public License for full details. - - Everyone is granted permission to copy, modify and redistribute - this software, but only under the conditions described in the GNU - General Public License. A copy of this license is supposed to have been - given to you along with this software so you can know your rights and - responsibilities. It should be in a file named COPYING. Among other - things, the copyright notice and this notice must be preserved on all - copies. - */ - -/*$Id: gdevlips.h,v 1.4 2002/10/12 23:24:34 tillkamppeter Exp $ */ -/* Common header file for LIPS driver */ - -#define LIPS_ESC 0x1b -#define LIPS_FF 0x0c -#define LIPS_CSI 0x9b /* LIPS_ESC "[" */ -#define LIPS_DCS 0x90 /* LIPS_ESC "P" */ -#define LIPS_ST 0x9c /* LIPS_ESC "\\" */ -#define LIPS_SP 0x20 -#define LIPS_IS1 0x1f -#define LIPS_IS2 0x1e - -#define TRUE 1 -#define FALSE 0 - -/* Media Size */ -#define LIPS_A3_HEIGHT 1190 -#define LIPS_A3_WIDTH 842 -#define LIPS_A4_HEIGHT LIPS_A3_WIDTH -#define LIPS_A4_WIDTH 595 -#define LIPS_A5_HEIGHT LIPS_A4_WIDTH -#define LIPS_A5_WIDTH 421 -#define LIPS_POSTCARD_HEIGHT 419 -#define LIPS_POSTCARD_WIDTH 284 -#define LIPS_B4_HEIGHT 1032 -#define LIPS_B4_WIDTH 729 -#define LIPS_B5_HEIGHT LIPS_B4_WIDTH -#define LIPS_B5_WIDTH 516 -#define LIPS_B6_HEIGHT LIPS_B5_WIDTH -#define LIPS_B6_WIDTH 363 -#define LIPS_LETTER_HEIGHT 792 -#define LIPS_LETTER_WIDTH 612 -#define LIPS_LEGAL_HEIGHT 1008 -#define LIPS_LEGAL_WIDTH LIPS_LETTER_WIDTH -#define LIPS_LEDGER_HEIGHT 1224 -#define LIPS_LEDGER_WIDTH LIPS_LETTER_HEIGHT -#define LIPS_EXECTIVE_HEIGHT 756 -#define LIPS_EXECTIVE_WIDTH 522 -#define LIPS_ENVYOU4_HEIGHT 666 -#define LIPS_ENVYOU4_WIDTH 298 - -#define LIPS_HEIGHT_MAX LIPS_A3_HEIGHT -#define LIPS_WIDTH_MAX LIPS_A3_WIDTH -#define LIPS_HEIGHT_MIN LIPS_POSTCARD_HEIGHT -#define LIPS_WIDTH_MIN LIPS_POSTCARD_WIDTH - -#define LIPS_HEIGHT_MAX_720 11905 /* =420mm */ -#define LIPS_WIDTH_MAX_720 8418 /* =294mm */ - -#define LIPS_MAX_SIZE 51840 /* 72 inch */ - -#define GS_A4_WIDTH 597 -#define GS_A4_HEIGHT 841 - -#define MMETER_PER_INCH 25.4 - -#define A3_SIZE 12 -#define A4_SIZE 14 -#define A5_SIZE 16 -#define POSTCARD_SIZE 18 -#define B4_SIZE 24 -#define B5_SIZE 26 -#define B6_SIZE 28 -#define LETTER_SIZE 30 -#define LEGAL_SIZE 32 -#define LEDGER_SIZE 34 -#define EXECUTIVE_SIZE 40 -#define ENVYOU4_SIZE 50 -#define USER_SIZE 80 - -#define LANDSCAPE 1 - -#define LIPS_MANUALFEED_DEFAULT FALSE -#define LIPS_CASSETFEED_DEFAULT 0 -/* 0, 1 to 3, 10 to 17 (1 to 3 is not reccomended. It's obsoleted value.) */ -/* 0: Auto Feed */ -/* 1: MP tray, 2: Lower casset, 3: Upper casset */ -/* 10: MP tray, 11: casset 1, 12: casset 2, 13: casset 3, .... */ - -#define LIPS_TUMBLE_DEFAULT FALSE -#define LIPS_NUP_DEFAULT 1 -#define LIPS_PJL_DEFAULT FALSE -#define LIPS_FACEUP_DEFAULT FALSE - -/* display text to printer panel */ -#define LIPS_USERNAME_MAX 12 /* If your printer have two line display, - this value can change to 14 */ -#define LIPS_MEDIACHAR_MAX 32 -#define LIPS_USERNAME_DEFAULT "Ghostscript" -#define LIPS_MEDIATYPE_DEFAULT "Default" /* Dummy */ -#define LIPS2P_COMPRESS_DEFAULT FALSE -#define LIPS3_COMPRESS_DEFAULT FALSE -#define LIPS4C_COMPRESS_DEFAULT TRUE -#define LIPS4_COMPRESS_DEFAULT FALSE - -#define LIPS2P_DPI_DEFAULT 240 -#define LIPS2P_LEFT_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS2P_BOTTOM_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS2P_RIGHT_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS2P_TOP_MARGIN_DEFAULT 5. / MMETER_PER_INCH - -#define LIPS3_DPI_DEFAULT 300 -#define LIPS3_LEFT_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS3_BOTTOM_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS3_RIGHT_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS3_TOP_MARGIN_DEFAULT 5. / MMETER_PER_INCH - -#define BJC880J_DPI_DEFAULT 360 -#define BJC880J_LEFT_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define BJC880J_BOTTOM_MARGIN_DEFAULT 8. / MMETER_PER_INCH -#define BJC880J_RIGHT_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define BJC880J_TOP_MARGIN_DEFAULT 2. / MMETER_PER_INCH - -#define LIPS4_DPI_DEFAULT 600 - -#define LIPS4_LEFT_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS4_BOTTOM_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS4_RIGHT_MARGIN_DEFAULT 5. / MMETER_PER_INCH -#define LIPS4_TOP_MARGIN_DEFAULT 5. / MMETER_PER_INCH - -/* Define the default resolutions. */ - -#define LIPS2P_DPI1 80 -#define LIPS2P_DPI2 120 -#define LIPS2P_DPI_MAX 240 -#define LIPS3_DPI_MAX 300 -#define BJC880J_DPI_MAX 360 -#define LIPS4_DPI_MAX 600 -#define LIPS4_DPI_SUPERFINE 1200 -#define LIPS_DPI_MIN 60 - -#define LIPS2P_STRING "lips2p:" -#define LIPS3_STRING "lips3:" -#define LIPS4_STRING "lips4:" -#define BJC880J_STRING "bjc880j:" -#define L4VMONO_STRING "lips4v:" -#define L4VCOLOR_STRING "lips4vc:" -#define LIPS_VERSION "2.3.6" -/* ``LIPS*_STRING'' + ``VERSION string'' < 17 characters */ - -#define LIPS_OPTION_MANUALFEED "ManualFeed" -#define LIPS_OPTION_CASSETFEED "Casset" -#define LIPS_OPTION_USER_NAME "UserName" -#define LIPS_OPTION_PJL "PJL" - -/* LIPS IV Option */ -#define LIPS_OPTION_DUPLEX_TUMBLE "Tumble" -#define LIPS_OPTION_NUP "Nup" -#define LIPS_OPTION_TONERDENSITY "TonerDensity" -#define LIPS_OPTION_TONERSAVING "TonerSaving" -#define LIPS_OPTION_FONTDOWNLOAD "FontDL" -#define LIPS_OPTION_FACEUP "OutputFaceUp" -#define LIPS_OPTION_MEDIATYPE "MediaType" - -#define lips_params_common \ - int cassetFeed; /* Input Casset */ \ - char Username[LIPS_USERNAME_MAX]; /* Display text on printer panel */\ - bool pjl; \ - int toner_density;\ - bool toner_saving;\ - bool toner_saving_set;\ - int prev_paper_size; \ - int prev_paper_width; \ - int prev_paper_height; \ - int prev_num_copies; \ - int prev_feed_mode - -#define lips4_params_common \ - int prev_duplex_mode;\ - int nup;\ - bool faceup;\ - char mediaType[LIPS_MEDIACHAR_MAX] - -int lips_media_selection(int width, int height); -int lips_packbits_encode(byte * inBuff, byte * outBuff, int Length); -int lips_mode3format_encode(byte * inBuff, byte * outBuff, int Length); -int lips_rle_encode(byte * inBuff, byte * outBuff, int Length); diff --git a/gs/contrib/lips4/gdevlprn.c b/gs/contrib/lips4/gdevlprn.c deleted file mode 100644 index 5aca154c3..000000000 --- a/gs/contrib/lips4/gdevlprn.c +++ /dev/null @@ -1,433 +0,0 @@ -/* Copyright (C) 1999 Norihito Ohmori. - - Ghostscript laser printer driver supporting Library. - - This software is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY. No author or distributor accepts responsibility - to anyone for the consequences of using it or for whether it serves any - particular purpose or works at all, unless he says so in writing. Refer - to the GNU General Public License for full details. - - Everyone is granted permission to copy, modify and redistribute - this software, but only under the conditions described in the GNU - General Public License. A copy of this license is supposed to have been - given to you along with this software so you can know your rights and - responsibilities. It should be in a file named COPYING. Among other - things, the copyright notice and this notice must be preserved on all - copies. - */ - -/*$Id: gdevlprn.c,v 1.3 2002/07/20 21:03:21 tillkamppeter Exp $ */ -/* Library for Laser Printer Driver */ - -/* - Main part of this library was taked from Hiroshi Narimatsu's - Ghostscript driver, epag-3.08. - <ftp://ftp.humblesoft.com/pub/epag-3.08.tar.gz> - */ - -/* - ************************ - * This Library Options * - ************************ - - -dTumble : for Duplex - true: short edge binding, false: long edge binding - the default is false. - -dBlockLine=number : number of line to make output area. - -dBlockWidth=number : rectangle width for output area. - -dBlockHeight=number : rectangle height for output area. - -dShowBubble : Draw rectangles, output area. - */ - -#include "gdevlprn.h" - -/* ------ Get/put parameters ------ */ - -/* Get parameters. Laser Printer devices add several more parameters */ -/* to the default Printer Device set. */ -int -lprn_get_params(gx_device * dev, gs_param_list * plist) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) dev; - int code = gdev_prn_get_params(dev, plist); - int ncode; - - if (code < 0) - return code; - - if ((ncode = param_write_bool(plist, "ManualFeed", &lprn->ManualFeed)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, "NegativePrint", &lprn->NegativePrint)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, "Tumble", &lprn->Tumble)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, "RITOff", &lprn->RITOff)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, "BlockLine", &lprn->BlockLine)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, "BlockWidth", &lprn->nBw)) < 0) - code = ncode; - - if ((ncode = param_write_int(plist, "BlockHeight", &lprn->nBh)) < 0) - code = ncode; - - if ((ncode = param_write_bool(plist, "ShowBubble", &lprn->ShowBubble)) < 0) - code = ncode; - - return code; -} - -/* Put properties. */ -int -lprn_put_params(gx_device * dev, gs_param_list * plist) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) dev; - int ecode = 0; - int code; - gs_param_name param_name; - bool ManualFeed = lprn->ManualFeed; - bool NegativePrint = lprn->NegativePrint; - bool Tumble = lprn->Tumble; - bool RITOff = lprn->RITOff; - int BlockLine = lprn->BlockLine; - int BlockWidth = lprn->nBw; - int BlockHeight = lprn->nBh; - bool ShowBubble = lprn->ShowBubble; - - if ((code = param_read_bool(plist, - (param_name = "ManualFeed"), - &ManualFeed)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - - if ((code = param_read_bool(plist, - (param_name = "NegativePrint"), - &NegativePrint)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - if ((code = param_read_bool(plist, - (param_name = "Tumble"), - &Tumble)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - if ((code = param_read_bool(plist, - (param_name = "RITOff"), - &RITOff)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - switch (code = param_read_int(plist, - (param_name = "BlockWidth"), - &BlockWidth)) { - case 0: - if (BlockWidth < 0) - ecode = gs_error_rangecheck; - else - break; - goto bwidthe; - default: - ecode = code; - bwidthe:param_signal_error(plist, param_name, ecode = code); - case 1: - break; - } - - switch (code = param_read_int(plist, - (param_name = "BlockLine"), - &BlockLine)) { - case 0: - if (BlockLine < 0) - ecode = gs_error_rangecheck; - else - break; - goto crowe; - default: - ecode = code; - crowe:param_signal_error(plist, param_name, ecode = code); - case 1: - break; - } - - switch (code = param_read_int(plist, - (param_name = "BlockHeight"), - &BlockHeight)) { - case 0: - if (BlockHeight < 0) - ecode = gs_error_rangecheck; - else - break; - goto bheighte; - default: - ecode = code; - bheighte:param_signal_error(plist, param_name, ecode = code); - case 1: - break; - } - - if ((code = param_read_bool(plist, - (param_name = "ShowBubble"), - &ShowBubble)) < 0) { - param_signal_error(plist, param_name, ecode = code); - } - if (ecode < 0) - return ecode; - code = gdev_prn_put_params(dev, plist); - if (code < 0) - return code; - - lprn->ManualFeed = ManualFeed; - lprn->NegativePrint = NegativePrint; - lprn->Tumble = Tumble; - lprn->RITOff = RITOff; - lprn->BlockLine = BlockLine; - lprn->nBw = BlockWidth; - lprn->nBh = BlockHeight; - lprn->ShowBubble = ShowBubble; - - return 0; -} - -private void lprn_bubble_flush_all(gx_device_printer * pdev, FILE * fp); -private void lprn_process_line(gx_device_printer * pdev, FILE * fp, int r, int h); -private void lprn_bubble_flush(gx_device_printer * pdev, FILE * fp, Bubble * bbl); -private int lprn_is_black(gx_device_printer * pdev, int r, int h, int bx); -private void lprn_bubble_gen(gx_device_printer * pdev, int x0, int x1, int y0, int y1); -private void lprn_rect_add(gx_device_printer * pdev, FILE * fp, int r, int h, int start, int end); - -int -lprn_print_image(gx_device_printer * pdev, FILE * fp) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - int y; - int bpl = gdev_mem_bytes_per_scan_line(pdev); - Bubble *bbtbl; - Bubble *bbl; - int i; - int ri, rmin, read_y; - int code = 0; - Bubble *bubbleBuffer; - int maxBx, maxBy, maxY; - int start_y_block = 0; /* start of data in buffer */ - int num_y_blocks = 0; /* number of data line [r:r+h-1] */ - - maxBx = (bpl + lprn->nBw - 1) / lprn->nBw; - maxBy = (pdev->height + lprn->nBh - 1) / lprn->nBh; - maxY = lprn->BlockLine / lprn->nBh * lprn->nBh; - - if (!(lprn->ImageBuf = gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), bpl, maxY, "lprn_print_image(ImageBuf)"))) - return_error(gs_error_VMerror); - if (!(lprn->TmpBuf = gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), bpl, maxY, "lprn_print_iamge(TmpBuf)"))) - return_error(gs_error_VMerror); - if (!(lprn->bubbleTbl = gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), sizeof(Bubble *), maxBx, "lprn_print_image(bubbleTbl)"))) - return_error(gs_error_VMerror); - if (!(bubbleBuffer = gs_malloc(gs_lib_ctx_get_non_gc_memory_t(), sizeof(Bubble), maxBx, "lprn_print_image(bubbleBuffer)"))) - return_error(gs_error_VMerror); - - for (i = 0; i < maxBx; i++) - lprn->bubbleTbl[i] = NULL; - bbtbl = bubbleBuffer; - - for (i = 0; i < maxBx - 1; i++) - bbtbl[i].next = &bbtbl[i + 1]; - bbtbl[i].next = NULL; - lprn->freeBubbleList = &bbtbl[0]; - - for (y = 0; y < maxBy; y++) { - if (num_y_blocks + lprn->nBh > maxY) { /* bubble flush for next data */ - rmin = start_y_block + lprn->nBh; /* process the data under rmin */ - for (i = 0; i < maxBx; i++) { - bbl = lprn->bubbleTbl[i]; - if (bbl != NULL && bbl->brect.p.y < rmin) - lprn_bubble_flush(pdev, fp, bbl); - } - num_y_blocks -= lprn->nBh; /* data if keeps in [r:r+h] */ - start_y_block += lprn->nBh; - - } - ri = start_y_block + num_y_blocks; /* read position */ - read_y = ri % maxY; /* end of read position */ - code = gdev_prn_copy_scan_lines(pdev, ri, lprn->ImageBuf + bpl * read_y, bpl * lprn->nBh); - if (code < 0) - return code; - - num_y_blocks += lprn->nBh; - - lprn_process_line(pdev, fp, start_y_block, num_y_blocks); - } - lprn_bubble_flush_all(pdev, fp); /* flush the rest of bubble */ - - gs_free(gs_lib_ctx_get_non_gc_memory_t(), lprn->ImageBuf, bpl, maxY, "lprn_print_image(ImageBuf)"); - gs_free(gs_lib_ctx_get_non_gc_memory_t(), lprn->TmpBuf, bpl, maxY, "lprn_print_iamge(TmpBuf)"); - gs_free(gs_lib_ctx_get_non_gc_memory_t(), lprn->bubbleTbl, sizeof(Bubble *), maxBx, "lprn_print_image(bubbleTbl)"); - gs_free(gs_lib_ctx_get_non_gc_memory_t(), bubbleBuffer, sizeof(Bubble), maxBx, "lprn_print_image(bubbleBuffer)"); - - return code; -} - - -/* - * epag_bubble_flush_all: Output the rect of bubble. - */ -private void -lprn_bubble_flush_all(gx_device_printer * pdev, FILE * fp) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - int i = 0; - int bpl = gdev_mem_bytes_per_scan_line(pdev); - int maxBx = (bpl + lprn->nBw - 1) / lprn->nBw; - - for (i = 0; i < maxBx; i++) { - if (lprn->bubbleTbl[i] != NULL) { - lprn_bubble_flush(pdev, fp, lprn->bubbleTbl[i]); - } else - break; - } -} - -/* - * Process bh lines raster data. - */ -private void -lprn_process_line(gx_device_printer * pdev, FILE * fp, int r, int h) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - - int bx, bInBlack, bBlack, start; - int bpl = gdev_mem_bytes_per_scan_line(pdev); - int maxBx = (bpl + lprn->nBw - 1) / lprn->nBw; - - bInBlack = 0; - for (bx = 0; bx < maxBx; bx++) { - bBlack = lprn_is_black(pdev, r, h, bx); - if (!bInBlack) { - if (bBlack) { - start = bx; - bInBlack = 1; - } - } else { - if (!bBlack) { - bInBlack = 0; - lprn_rect_add(pdev, fp, r, h, start, bx); - } - } - } - if (bInBlack) - lprn_rect_add(pdev, fp, r, h, start, bx - 1); -} - -/* Search the bx line to make output */ -private int -lprn_is_black(gx_device_printer * pdev, int r, int h, int bx) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - - int bh = lprn->nBh; - int bpl = gdev_mem_bytes_per_scan_line(pdev); - int x, y, y0; - byte *p; - int maxY = lprn->BlockLine / lprn->nBh * lprn->nBh; - - y0 = (r + h - bh) % maxY; - for (y = 0; y < bh; y++) { - p = &lprn->ImageBuf[(y0 + y) * bpl + bx * lprn->nBw]; - for (x = 0; x < lprn->nBw; x++) - if (p[x] != 0) - return 1; - } - return 0; -} - -private void -lprn_rect_add(gx_device_printer * pdev, FILE * fp, int r, int h, int start, int end) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - - int x0 = start * lprn->nBw; - int x1 = end * lprn->nBw - 1; - int y0 = r + h - lprn->nBh; - int y1 = y0 + lprn->nBh - 1; - int i; - Bubble *bbl; - - if ((bbl = lprn->bubbleTbl[start]) != NULL && - bbl->brect.q.y == y0 - 1 && - bbl->brect.p.x == x0 && - bbl->brect.q.x == x1) { - bbl->brect.q.y = y1; - } else { - for (i = start; i <= end; i++) - if (lprn->bubbleTbl[i] != NULL) - lprn_bubble_flush(pdev, fp, lprn->bubbleTbl[i]); - lprn_bubble_gen(pdev, x0, x1, y0, y1); - } -} - -private void -lprn_bubble_gen(gx_device_printer * pdev, int x0, int x1, int y0, int y1) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - - Bubble *bbl; - int bx0, bx1, bx; - - assert(lprn->freeBubbleList != NULL); - - bbl = lprn->freeBubbleList; - lprn->freeBubbleList = bbl->next; - - bbl->brect.p.x = x0; - bbl->brect.q.x = x1; - bbl->brect.p.y = y0; - bbl->brect.q.y = y1; - - bx0 = x0 / lprn->nBw; - bx1 = (x1 + lprn->nBw - 1) / lprn->nBw; - - for (bx = bx0; bx <= bx1; bx++) { - assert(lprn->bubbleTbl[bx] == NULL); - lprn->bubbleTbl[bx] = bbl; - } -} - -/* make output */ -void -lprn_bubble_flush(gx_device_printer * pdev, FILE * fp, Bubble * bbl) -{ - gx_device_lprn *const lprn = (gx_device_lprn *) pdev; - int i, j, bx; - byte *p; - int bx0 = bbl->brect.p.x / lprn->nBw; - int bx1 = (bbl->brect.q.x + lprn->nBw - 1) / lprn->nBw; - int bpl = gdev_mem_bytes_per_scan_line(pdev); - int x = bbl->brect.p.x * 8; - int y = bbl->brect.p.y; - int width = (bbl->brect.q.x - bbl->brect.p.x + 1) * 8; - int height = bbl->brect.q.y - bbl->brect.p.y + 1; - int maxY = lprn->BlockLine / lprn->nBh * lprn->nBh; - - for (i = 0; i < height; i++) { - p = lprn->ImageBuf + ((i + y) % maxY) * bpl; - for (j = 0; j < width / 8; j++) { - if (lprn->NegativePrint) - *(lprn->TmpBuf + i * width / 8 + j) = ~*(p + j + bbl->brect.p.x); - else - *(lprn->TmpBuf + i * width / 8 + j) = *(p + j + bbl->brect.p.x); - } - } - - (*lprn->image_out) (pdev, fp, x, y, width, height); - - /* Initialize bubbleTbl */ - for (bx = bx0; bx <= bx1; bx++) { - assert(lprn->bubbleTbl[bx] == bbl); - lprn->bubbleTbl[bx] = NULL; - } - - bbl->next = lprn->freeBubbleList; - lprn->freeBubbleList = bbl; -} diff --git a/gs/contrib/lips4/gdevlprn.h b/gs/contrib/lips4/gdevlprn.h deleted file mode 100644 index a7fb57e01..000000000 --- a/gs/contrib/lips4/gdevlprn.h +++ /dev/null @@ -1,199 +0,0 @@ -/* Copyright (C) 1999 Norihito Ohmori. - - Ghostscript laser printer driver supprting Library. - - This software is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY. No author or distributor accepts responsibility - to anyone for the consequences of using it or for whether it serves any - particular purpose or works at all, unless he says so in writing. Refer - to the GNU General Public License for full details. - - Everyone is granted permission to copy, modify and redistribute - this software, but only under the conditions described in the GNU - General Public License. A copy of this license is supposed to have been - given to you along with this software so you can know your rights and - responsibilities. It should be in a file named COPYING. Among other - things, the copyright notice and this notice must be preserved on all - copies. - */ - -/*$Id: gdevlprn.h,v 1.4 2002/10/12 23:24:34 tillkamppeter Exp $ */ -/* Library for Laser Printer Driver */ - -/* - Main part of this library was taked from Hiroshi Narimatsu's - Ghostscript driver, epag-3.08. - <ftp://ftp.humblesoft.com/pub/epag-3.08.tar.gz> - */ - -#include "gdevprn.h" - -#if GS_VERSION_MAJOR >= 8 -#define lprn_dev_proc_image_out(proc)\ - void proc(gx_device_printer *, FILE *, int, int, int, int) -#else -#define lprn_dev_proc_image_out(proc)\ - void proc(P6(gx_device_printer *, FILE *, int, int, int, int)) -#endif - -#define dev_proc_image_out(proc) lprn_dev_proc_image_out(proc) - -#define gx_lprn_device_common\ - lprn_dev_proc_image_out((*image_out));\ - bool initialized;\ - bool ManualFeed;\ - bool NegativePrint;\ - bool Tumble; /* for Duplex */\ - bool RITOff; /* currently only escpage.dev use this */\ - int prev_x;\ - int prev_y;\ - int BlockLine;\ - byte *ImageBuf; /* Image Buffer */\ - byte *TmpBuf; /* Tmporary buffer */\ - byte *CompBuf; /* Compress buffer */\ - byte *CompBuf2; /* Compress buffer */\ - int nBw; /* block width (byte,8dot) */\ - int nBh; /* block height(line) */\ - struct _Bubble **bubbleTbl;\ - struct _Bubble *freeBubbleList;\ - bool ShowBubble - -#define lp_device_body_rest_(print_page_copies, image_out)\ - { 0 }, /* std_procs */\ - { 0 }, /* skip */\ - { NULL,\ - print_page_copies,\ - { gx_default_create_buf_device,\ - gx_default_size_buf_device,\ - gx_default_setup_buf_device,\ - gx_default_destroy_buf_device\ - },\ - gdev_prn_default_get_space_params,\ - gx_default_start_render_thread,\ - gx_default_open_render_device,\ - gx_default_close_render_device,\ - gx_default_buffer_page\ - },\ - { PRN_MAX_BITMAP, PRN_BUFFER_SPACE,\ - { BAND_PARAMS_INITIAL_VALUES },\ - 0/*false*/, /* params_are_read_only */\ - BandingAuto /* banding_type */\ - },\ - { 0 }, /* fname */\ - 0/*false*/, /* OpenOutputFile */\ - 0/*false*/, /* ReopenPerPage */\ - 0/*false*/, -1, /* Duplex[_set] */\ - 0/*false*/, 0, 0, 0, /* file_is_new ... buf */\ - 0, 0, 0, 0, 0/*false*/, 0, 0, /* buffer_memory ... clist_dis'_mask */\ - { 0 }, /* ... orig_procs */\ - image_out,\ - 0/*false*/, /* initialized */\ - 0/*false*/, /* ManualFeed */\ - 0/*false*/, /* NegativePrint */\ - 0/*false*/, /* Tumble */\ - 0/*false*/, /* RITOff */\ - 0, 0,\ - 256,\ - NULL, NULL, NULL, NULL,\ - 4,\ - 32,\ - NULL, NULL,\ - 0 /*false */ - -#define lp_duplex_device_body_rest_(print_page_copies, image_out)\ - { 0 }, /* std_procs */\ - { 0 }, /* skip */\ - { NULL,\ - print_page_copies,\ - { gx_default_create_buf_device,\ - gx_default_size_buf_device,\ - gx_default_setup_buf_device,\ - gx_default_destroy_buf_device\ - },\ - gdev_prn_default_get_space_params,\ - gx_default_start_render_thread,\ - gx_default_open_render_device,\ - gx_default_close_render_device,\ - gx_default_buffer_page\ - },\ - { PRN_MAX_BITMAP, PRN_BUFFER_SPACE,\ - { BAND_PARAMS_INITIAL_VALUES },\ - 0/*false*/, /* params_are_read_only */\ - BandingAuto /* banding_type */\ - },\ - { 0 }, /* fname */\ - 0/*false*/, /* OpenOutputFile */\ - 0/*false*/, /* ReopenPerPage */\ - 0/*false*/, 0, /* Duplex[_set] */\ - 0/*false*/, 0, 0, 0, /* file_is_new ... buf */\ - 0, 0, 0, 0, 0/*false*/, 0, 0, /* buffer_memory ... clist_dis'_mask */\ - { 0 }, /* ... orig_procs */\ - image_out,\ - 0/*false*/, /* initialized */\ - 0/*false*/, /* ManualFeed */\ - 0/*false*/, /* NegativePrint */\ - 0/*false*/, /* Tumble */\ - 0/*false*/, /* RITOff */\ - 0, 0,\ - 256,\ - NULL, NULL, NULL, NULL,\ - 4,\ - 32,\ - NULL, NULL,\ - 0 /*false */ - -#define lprn_device(dtype, procs, dname, xdpi, ydpi, lm, bm, rm, tm, color_bits,\ - print_page_copies, image_out)\ -{ std_device_std_color_full_body(dtype, &procs, dname,\ - (int)((long)(DEFAULT_WIDTH_10THS) * (xdpi) / 10),\ - (int)((long)(DEFAULT_HEIGHT_10THS) * (ydpi) / 10),\ - xdpi, ydpi, color_bits,\ - -(lm) * (xdpi), -(tm) * (ydpi),\ - (lm) * 72.0, (bm) * 72.0,\ - (rm) * 72.0, (tm) * 72.0\ - ),\ - lp_device_body_rest_(print_page_copies, image_out)\ -} - -#define lprn_duplex_device(dtype, procs, dname, xdpi, ydpi, lm, bm, rm, tm, color_bits,\ - print_page_copies, image_out)\ -{ std_device_std_color_full_body(dtype, &procs, dname,\ - (int)((long)(DEFAULT_WIDTH_10THS) * (xdpi) / 10),\ - (int)((long)(DEFAULT_HEIGHT_10THS) * (ydpi) / 10),\ - xdpi, ydpi, color_bits,\ - -(lm) * (xdpi), -(tm) * (ydpi),\ - (lm) * 72.0, (bm) * 72.0,\ - (rm) * 72.0, (tm) * 72.0\ - ),\ - lp_duplex_device_body_rest_(print_page_copies, image_out)\ -} - -#define lprn_procs(p_open, p_output_page, p_close)\ - prn_params_procs(p_open, p_output_page, p_close, lprn_get_params, lprn_put_params) - -typedef struct _Bubble -{ - struct _Bubble *next; - gs_int_rect brect; -} -Bubble; - -typedef struct gx_device_lprn_s gx_device_lprn; -struct gx_device_lprn_s -{ - gx_device_common; - gx_prn_device_common; - gx_lprn_device_common; -}; - -#define ESC 0x1b /* \033 */ -#define GS 0x1d /* \035 */ - -#ifndef assert -# define assert(x) -#endif - -dev_proc_get_params(lprn_get_params); -dev_proc_put_params(lprn_put_params); - -int lprn_print_image(gx_device_printer * pdev, FILE * fp); |