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
gdev_t4693d_map_rgb_color(gx_device * dev,const gx_color_value cv[])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
gdev_t4693d_map_color_rgb(gx_device * dev,gx_color_index color,ushort prgb[3])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
t4693d_print_page(gx_device_printer * dev,FILE * ps_stream)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