1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#define import_spp
#define import_error
#include <iraf.h>
#include "sgiUtil.h"
/*
* SGI2UHPLJ.C -- Read IRAF SGI rasterfile from standard input, translate into
* the Hewlett Packard Printer Command Language (HP Laserjet Series) and
* write to standard output.
*
* Warning
* The output of this is for 150 dpi. At this resolution it will take
* some 200 seconds to plot an simple "prow".
*
* Usage
* sgi2uhplj.e [-params] [sgi_] [| lpr -Phpraw]
*
* -l N left edge; x plot origin in device pixels def DEF_LEFT
* -b N bottom edge; y plot origin in device pixels def DEF_BOTTOM
* -w N width of plot, device pixels starting from l def DEF_WIDTH
* -h N height of plot, device pixels starting from b def DEF_HEIGHT
*
* Numeric values may be appended directly to their flags or separated by a
* space; the input file name and the switches may occur in any order.
*/
#define OSOK 0 /* normal successful completion */
#define NBITS_CHAR 8 /* number of bits in a char */
/* Device opcodes and parameters. The default edge and width parameters (DEF_)
* are given in HP pixels, at 150 dots/inch. The HP plots in portrait mode
* by default so RO must be set in GRAPHCAP. Thus the maximum page `width' is
* 11*150pixels, `height' is 8.5*150 pixels.
*/
#define DEV_INIT "\033*t150R\033*r1A" /* Enter graph. */
#define DEV_END "\033*rB\014" /* Exit graph. */
#define DEV_VECT "\033*p%03dX\033*p%03dY"/* x,y cursor posn in dots */
#define DEV_RAST "\033*b%03dW" /* transfer raster graphics */
#define DEF_LEFT 15 /* origin in device pixels in x */
#define DEF_WIDTH 1216 /* width in x (150d/i, 8.5" paper) */
#define DEF_BOTTOM 30 /* origin in device pixels in y */
#define DEF_HEIGHT 1590 /* height in y (150d/i, 11" paper) */
#define SZ_VECT 14 /* total chars in cursor position command */
#define SZ_RAST 7 /* total chars in transfer graphics command */
/* graphcap entry for uhplj and sgi_hplaserjet. one problem with current
* entry is that graph comes out slightly to the right of center on the page
* The printer used, "hpraw", is site dependent.
*
* uhplj|UNIX generic interface to Hewlett-Packard LaserJet II:\
* :BF:WS:XO#0:YO#0:LO#2:LS#2:\
* :DD=plnode!hpii,tmp$sgk,!{ sgidispatch sgi2uhpii $F \
* -l$(XO) -b$(YO) -w$(PX) -h$(PY) $F | lpr -Phpraw; rm $F; }&:\
* :tc=sgi_hplaserjet:
*
* sgi_hplaserjet|Hewlett Packard LaserJet Plus at 150 dpi:\
* :kf=bin$x_sgikern.e:tn=sgikern:cw#.0125:ch#.0294:\
* :ar#1.325:xs#.2032:ys#.2692:xr#1200:yr#1590:\
* :XO#8:YO#0:XW#1200:YW#1590:PX#1216:PY#1590:LO#1:LS#0:\
* :BI:MF#8:RO:NB#8:
*/
int dev_left;
int dev_bottom;
int dev_width;
int dev_height;
static void translate (FILE *in, FILE *out);
static char *xyencode (int x, int y);
/* MAIN -- Main entry point for SGI2UHPII. Optional arguments are device
* window parameters and name of input file.
*/
int
main (int argc, char *argv[])
{
FILE *in;
char *infile;
char *argp;
int argno;
infile = "stdin";
/* Process the command line.
*/
for (argno=1; (argp = argv[argno]) != NULL; argno++) {
if (argp[0] == '-') {
/* A window-control or pen width switch.
*/
switch (argp[1]) {
case 'l':
dev_left = get_iarg (argp[2], argv, argno, DEF_LEFT);
break;
case 'b':
dev_bottom = get_iarg (argp[2], argv, argno, DEF_BOTTOM);
break;
case 'w':
dev_width = get_iarg (argp[2], argv, argno, DEF_WIDTH);
break;
case 'h':
dev_height = get_iarg (argp[2], argv, argno, DEF_HEIGHT);
break;
default:
break;
}
} else {
/* Input sgi-raster file specification.
*/
infile = argp;
}
}
if (strcmp (infile, "stdin") == 0)
in = stdin;
else
in = fopen (infile, "r");
if (in == NULL) {
fprintf (stderr, "Fatal error (sgi2uhpii): Cannot open `%s'\n",
infile);
fflush (stderr);
exit (OSOK+1);
}
/* Process the rasterfile.
*/
translate (in, stdout);
if (in != stdin)
fclose (in);
return (0);
}
/* TRANSLATE -- Interpret input SGI Raster File format into Hewlett Packard
* Raster graphics instructions and write to stdout.
*/
static void
translate (FILE *in, FILE *out)
{
int n1, swap_bytes;
int n, nlines, length, len_buf;
register unsigned char *bp1, *buffer1;
char buf_rast [SZ_RAST];
swap_bytes = isSwapped ();
len_buf = dev_width / NBITS_CHAR;
buffer1 = (unsigned char *)malloc (len_buf);
/* Output device initialization.
*/
fwrite (xyencode (dev_left, dev_bottom), SZ_VECT, 1, out);
fwrite (DEV_INIT, strlen(DEV_INIT), 1, out);
/* Process the raster file
*/
nlines = dev_height;
while ((n = fread (buffer1, len_buf, 1, in)) > 0) {
if (swap_bytes)
bswap2 (buffer1, buffer1, len_buf);
/* Keep track of number of lines left on the page.
*/
if (!(nlines--)) {
nlines += dev_height;
fwrite (DEV_END, strlen (DEV_END), 1, out);
fwrite (xyencode (dev_left, dev_bottom), SZ_VECT, 1, out);
fwrite (DEV_INIT, strlen (DEV_INIT), 1, out);
}
/* Search for trailing null bytes to trim them off.
*/
length = len_buf;
for (bp1 = buffer1+length; length && *(--bp1) == 0; length--)
;
n1 = length;
if (n1 == 0) {
n1 = 1;
*buffer1 = 0;
}
/* Now copy out this line and prefix it with the control codes.
*/
sprintf (buf_rast, DEV_RAST, n1);
fwrite (buf_rast, SZ_RAST, 1, out);
fwrite (buffer1, n1, 1, out);
}
/* Terminate plotting and exit.
*/
fwrite (DEV_END, strlen(DEV_END), 1, out);
}
/* XYENCODE -- Encode x, y into a character string formatted for the device.
*/
static char *
xyencode (int x, int y)
{
static char obuf [SZ_VECT];
memset (obuf, 0, SZ_VECT);
sprintf (obuf, DEV_VECT, x, y);
return (obuf);
}
|
