1 /* 2 * Copyright 1992 Washington State University. All rights reserved. 3 * 4 * Permission to use, copy, modify, and distribute this software and its 5 * documentation for any purpose and without fee is hereby granted. 6 * This software is provided "as is" without express or implied warranty. 7 */ 8 9 /* $Id: gdev4693.c,v 1.9 2004/08/04 23:33:29 stefan Exp $*/ 10 /* Driver for the Tektronix 4693d color plotter. */ 11 #include "gdevprn.h" 12 #define prn_dev ((gx_device_printer *)dev) /* needed in 5.31 et seq */ 13 14 /* Thanks to Karl Hakimian (hakimian@yoda.eecs.wsu.edu) */ 15 /* for contributing this code to Aladdin Enterprises. */ 16 17 #define X_DPI 100 18 #define Y_DPI 100 19 #define WIDTH_10THS 85 20 #define HEIGHT_10THS 110 21 22 private dev_proc_print_page(t4693d_print_page); 23 private dev_proc_map_rgb_color(gdev_t4693d_map_rgb_color); 24 private dev_proc_map_color_rgb(gdev_t4693d_map_color_rgb); 25 26 private gx_device_procs t4693d_procs = 27 prn_color_procs(gdev_prn_open, gdev_prn_output_page, gdev_prn_close, 28 gdev_t4693d_map_rgb_color, gdev_t4693d_map_color_rgb); 29 30 #define t4693d_prn_device(name,depth,max_rgb) {prn_device_body( \ 31 gx_device_printer,t4693d_procs,name, \ 32 WIDTH_10THS, HEIGHT_10THS, X_DPI, Y_DPI, 0.25, 0.25, 0.25, 0.25, \ 33 3,depth,max_rgb,max_rgb,max_rgb + 1,max_rgb + 1, \ 34 t4693d_print_page)} 35 36 const gx_device_printer gs_t4693d2_device = t4693d_prn_device("t4693d2",8, 3); 37 const gx_device_printer gs_t4693d4_device = t4693d_prn_device("t4693d4",16, 15); 38 const gx_device_printer gs_t4693d8_device = t4693d_prn_device("t4693d8",24, 255); 39 40 private gx_color_index 41 gdev_t4693d_map_rgb_color(gx_device *dev, const gx_color_value cv[]) 42 { 43 ushort bitspercolor = prn_dev->color_info.depth / 3; 44 ulong max_value = (1 << bitspercolor) - 1; 45 46 gx_color_value r, g, b; 47 r = cv[0]; g = cv[1]; b = cv[2]; 48 49 if (bitspercolor == 5) { 50 bitspercolor--; 51 max_value = (1 << bitspercolor) - 1; 52 } 53 54 return ((r*max_value/gx_max_color_value) << (bitspercolor*2)) + 55 ((g*max_value/gx_max_color_value) << bitspercolor) + 56 (b*max_value/gx_max_color_value); 57 } 58 59 private int 60 gdev_t4693d_map_color_rgb(gx_device *dev, gx_color_index color, ushort prgb[3]) 61 { 62 ushort bitspercolor = prn_dev->color_info.depth / 3; 63 ulong max_value = (1 << bitspercolor) - 1; 64 65 if (bitspercolor == 5) { 66 bitspercolor--; 67 max_value = (1 << bitspercolor) - 1; 68 } 69 70 prgb[0] = (color >> (bitspercolor*2)) * gx_max_color_value / max_value; 71 prgb[1] = ((color >> bitspercolor) & max_value) * gx_max_color_value / max_value; 72 prgb[2] = (color & max_value) * gx_max_color_value / max_value; 73 return(0); 74 } 75 76 private int 77 t4693d_print_page(gx_device_printer *dev, FILE *ps_stream) 78 { 79 char header[32]; 80 int depth = prn_dev->color_info.depth; 81 int line_size = gdev_mem_bytes_per_scan_line(prn_dev); 82 byte *data = (byte *)gs_malloc(dev->memory, line_size, 1, "t4693d_print_page"); 83 char *p; 84 ushort data_size = line_size/prn_dev->width; 85 int checksum; 86 int lnum; 87 int i; 88 #if !arch_is_big_endian 89 byte swap; 90 #endif 91 92 if (data == 0) return_error(gs_error_VMerror); 93 /* build header. */ 94 p = header; 95 *p++ = (char)0x14; /* Print request */ 96 *p++ = (char)0xc0|20; /* Length of header */ 97 *p++ = (char)0xc0 | ((prn_dev->width >> 6)&0x3f); 98 *p++ = (char)0x80 | (prn_dev->width&0x3f); 99 *p++ = (char)0xc0 | ((prn_dev->height >> 6)&0x3f); 100 *p++ = (char)0x80 | (prn_dev->height&0x3f); 101 *p++ = (char)0xc1; /* Handshake */ 102 *p++ = (char)0xc0; /* Get number of prints from printer. */ 103 *p++ = (char)0xc0; /* Get pixel shape from printer. */ 104 *p++ = (char)(depth == 8) ? 0xcb : (depth == 16) ? 0xcc : 0xcd; 105 *p++ = (char)0xc1; /* Pixel-data order 1. */ 106 *p++ = (char)0xc3; /* Interpolate to maximum size. */ 107 *p++ = (char)0xc3; /* Full color range 1. */ 108 *p++ = (char)0xc0; /* Color conversion from printer. */ 109 *p++ = (char)0xc0; /* Color manipulation from printer. */ 110 *p++ = (char)0xc0; /* B/W inversion from printer. */ 111 *p++ = (char)0xc3; /* Portrait mode centered. */ 112 *p++ = (char)0xc9; /* Use printer default for media and printing. */ 113 *p++ = (char)0x95; 114 *p++ = (char)0x81; 115 116 for (checksum = 0, i = 0; &header[i] != p; i++) 117 checksum += header[i]; 118 119 *p++ = ((checksum%128)&0x7f) | 0x80; 120 *p = 0x02; /* end of line. */ 121 /* write header */ 122 if (fwrite(header,1,22,ps_stream) != 22) { 123 errprintf("Could not write header (t4693d).\n"); 124 gs_free(dev->memory, data, line_size, 1, "t4693d_print_page"); 125 return_error(gs_error_ioerror); 126 } 127 128 for (lnum = 0; lnum < prn_dev->height; lnum++) { 129 gdev_prn_copy_scan_lines(prn_dev,lnum,data,line_size); 130 131 for (i = 0; i < line_size; i += data_size) { 132 133 switch (depth) { 134 case 8: 135 data[i] &= 0x3f; 136 break; 137 case 16: 138 #if arch_is_big_endian 139 data[i] &= 0x0f; 140 #else 141 swap = data[i]; 142 data[i] = data[i + 1]&0x0f; 143 data[i + 1] = swap; 144 #endif 145 break; 146 case 24: 147 break; 148 default: 149 errprintf("Bad depth (%d) t4693d.\n",depth); 150 gs_free(dev->memory, data, line_size, 1, "t4693d_print_page"); 151 return_error(gs_error_rangecheck); 152 } 153 154 if (fwrite(&data[i],1,data_size,ps_stream) != data_size) { 155 errprintf("Could not write pixel (t4693d).\n"); 156 gs_free(dev->memory, data, line_size, 1, "t4693d_print_page"); 157 return_error(gs_error_ioerror); 158 } 159 160 } 161 162 if (fputc(0x02,ps_stream) != 0x02) { 163 errprintf("Could not write EOL (t4693d).\n"); 164 gs_free(dev->memory, data, line_size, 1, "t4693d_print_page"); 165 return_error(gs_error_ioerror); 166 } 167 168 } 169 170 if (fputc(0x01,ps_stream) != 0x01) { 171 errprintf("Could not write EOT (t4693d).\n"); 172 gs_free(dev->memory, data, line_size, 1, "t4693d_print_page"); 173 return_error(gs_error_ioerror); 174 } 175 176 gs_free(dev->memory, data, line_size, 1, "t4693d_print_page"); 177 return(0); 178 } 179