Annotation of OpenXM_contrib/gnuplot/term/hpljii.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: hpljii.trm,v 1.20 1998/04/14 00:17:51 drd Exp $
3: *
4: */
5:
6: /* GNUPLOT - hpljii.trm */
7:
8: /*[
9: * Copyright 1990 - 1993, 1998 Thomas Williams, Colin Kelley
10: *
11: * Permission to use, copy, and distribute this software and its
12: * documentation for any purpose with or without fee is hereby granted,
13: * provided that the above copyright notice appear in all copies and
14: * that both that copyright notice and this permission notice appear
15: * in supporting documentation.
16: *
17: * Permission to modify the software is granted, but not the right to
18: * distribute the complete modified source code. Modifications are to
19: * be distributed as patches to the released version. Permission to
20: * distribute binaries produced by compiling modified sources is granted,
21: * provided you
22: * 1. distribute the corresponding source modifications from the
23: * released version in the form of a patch file along with the binaries,
24: * 2. add special version identification to distinguish your version
25: * in addition to the base release version number,
26: * 3. provide your name and address as the primary contact for the
27: * support of your modified version, and
28: * 4. retain our contact information in regard to use of the base
29: * software.
30: * Permission to distribute the released version of the source code along
31: * with corresponding source modifications in the form of a patch file is
32: * granted with same provisions 2 through 4 for binary distributions.
33: *
34: * This software is provided "as is" without express or implied warranty
35: * to the extent permitted by applicable law.
36: ]*/
37:
38: /*
39: * This file is included by ../term.c.
40: *
41: * This terminal driver supports:
42: * hpljii, hpdj
43: *
44: * AUTHORS
45: * John Engels
46: * Russell Lang
47: * Maurice Castro
48: *
49: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
50: *
51: */
52:
53: /* The following HP laserjet series II driver uses generic bit mapped graphics
54: routines from bitmap.c to build up a bit map in memory. The driver
55: interchanges colomns and lines in order to access entire lines
56: easily and returns the lines to get bits in the right order :
57: (x,y) -> (y,XMAX-1-x). */
58: /* This interchange is done by calling b_makebitmap() with reversed
59: xmax and ymax, and then setting b_rastermode to TRUE. b_setpixel()
60: will then perform the interchange before each pixel is plotted */
61: /* by John Engels JENGELS@BNANDP51.BITNET, inspired by the hpljet driver
62: of Jyrki Yli-Nokari */
63:
64: /*
65: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
66: */
67:
68: #include "driver.h"
69:
70: #ifdef TERM_REGISTER
71: register_term(hpljii)
72: register_term(hpdj)
73: #endif
74:
75: #ifdef TERM_PROTO
76: TERM_PUBLIC void HPLJIIoptions __PROTO((void));
77: TERM_PUBLIC void HPLJIIinit __PROTO((void));
78: TERM_PUBLIC void HPLJIIgraphics __PROTO((void));
79: TERM_PUBLIC void HPLJIItext __PROTO((void));
80: TERM_PUBLIC void HPLJIIlinetype __PROTO((int linetype));
81: TERM_PUBLIC void HPLJIIput_text __PROTO((unsigned int x, unsigned int y, char *str));
82: TERM_PUBLIC void HPLJIIreset __PROTO((void));
83: #define HPLJIImove b_move
84: #define HPLJIIvector b_vector
85: #define HPLJIItext_angle b_text_angle
86: TERM_PUBLIC void HPDJgraphics __PROTO((void));
87: TERM_PUBLIC void HPDJtext __PROTO((void));
88: #define HPDJtext_angle b_text_angle
89: #define HPDJput_text b_put_text
90: /* default values for term_tbl */
91: #define HPLJII_75PPI_XMAX (1920/4)
92: #define HPLJII_75PPI_YMAX (1920/4)
93: #define HPLJII_75PPI_HCHAR (1920/4/6)
94: #define HPLJII_75PPI_VCHAR (1920/4/10)
95: #define HPLJII_75PPI_VTIC 5
96: #define HPLJII_75PPI_HTIC 5
97: #endif
98:
99: #ifndef TERM_PROTO_ONLY
100: #ifdef TERM_BODY
101:
102: /* We define 4 different print qualities : 300ppi, 150ppi, 100ppi and
103: 75ppi. (Pixel size = 1, 2, 3, 4 dots) */
104:
105: #define HPLJII_DPP (hplj_dpp) /* dots per pixel */
106: #define HPLJII_PPI (300/HPLJII_DPP) /* pixel per inch */
107: /* make XMAX and YMAX a multiple of 8 */
108: #define HPLJII_XMAX (8*(unsigned int)(xsize*1920/HPLJII_DPP/8.0+0.9))
109: #define HPLJII_YMAX (8*(unsigned int)(ysize*1920/HPLJII_DPP/8.0+0.9))
110:
111: /* Courier font with 6 lines per inch */
112: #define HPLJII_VCHAR (HPLJII_PPI/6)
113: /* Courier font with 10 caracters per inch */
114: #define HPLJII_HCHAR (HPLJII_PPI/10)
115: /* Save current cursor position */
116: #define HPLJII_PUSH_CURSOR fputs("\033&f0S",gpoutfile)
117: /* Restore cursor position */
118: #define HPLJII_POP_CURSOR fputs("\033&f1S",gpoutfile)
119: /* be sure to use courier font with 6lpi and 10cpi */
120: #define HPLJII_COURIER fputs("\033(0N\033(s0p10.0h12.0v0s0b3T\033&l6D",gpoutfile)
121:
122:
123: void HPLJIIputc __PROTO((unsigned int x, unsigned int y, char c, int ang));
124: static int hplj_dpp = 4;
125: /* bm_pattern not appropriate for 300ppi graphics */
126: #ifndef GOT_300_PATTERN
127: # define GOT_300_PATTERN
128: static unsigned int b_300ppi_pattern[] =
129: {
130: 0xffff, 0x1111, 0xffff, 0x3333,
131: 0x0f0f, 0x3f3f, 0x0fff, 0x00ff, 0x33ff
132: };
133: #endif
134:
135: TERM_PUBLIC void HPLJIIoptions()
136: {
137: char opt[4];
138: int parse_error = 0;
139:
140: if (END_OF_COMMAND) {
141: term_options[0] = NUL;
142: } else {
143: if (token[c_token].length > 3) {
144: parse_error = 1; /* see below */
145: } else {
146: /* almost_equals() won't accept numbers - use strcmp() instead */
147: capture(opt, c_token, c_token, 4);
148: if (!strcmp(opt, "75")) {
149: hplj_dpp = 4;
150: } else if (!strcmp(opt, "100")) {
151: hplj_dpp = 3;
152: } else if (!strcmp(opt, "150")) {
153: hplj_dpp = 2;
154: } else if (!strcmp(opt, "300")) {
155: hplj_dpp = 1;
156: } else {
157: /* error, but set dpi anyway, since term it already set */
158: parse_error = 1;
159: }
160: c_token++;
161: }
162: }
163:
164: term->xmax = HPLJII_XMAX;
165: term->ymax = HPLJII_YMAX;
166: switch (hplj_dpp) {
167: case 1:
168: strcpy(term_options, "300");
169: term->v_tic = 15;
170: term->h_tic = 15;
171: break;
172: case 2:
173: strcpy(term_options, "150");
174: term->v_tic = 8;
175: term->h_tic = 8;
176: break;
177: case 3:
178: strcpy(term_options, "100");
179: term->v_tic = 6;
180: term->h_tic = 6;
181: break;
182: case 4:
183: strcpy(term_options, "75");
184: term->v_tic = 5;
185: term->h_tic = 5;
186: break;
187: }
188:
189: if (parse_error)
190: int_error("expecting dots per inch size 75, 100, 150 or 300",
191: c_token);
192: }
193:
194:
195: TERM_PUBLIC void HPLJIIinit()
196: {
197: term->v_char = HPLJII_VCHAR;
198: term->h_char = HPLJII_HCHAR;
199: }
200:
201:
202: TERM_PUBLIC void HPLJIIgraphics()
203: {
204: HPLJII_COURIER;
205: HPLJII_PUSH_CURSOR;
206: /* rotate plot -90 degrees by reversing XMAX and YMAX and by
207: setting b_rastermode to TRUE */
208: b_makebitmap(HPLJII_YMAX, HPLJII_XMAX, 1);
209: b_rastermode = TRUE;
210: }
211:
212:
213: /* HPLJIItext by rjl - no compression */
214: TERM_PUBLIC void HPLJIItext()
215: {
216: register int x, j, row;
217:
218: fprintf(gpoutfile, "\033*t%dR", HPLJII_PPI);
219: HPLJII_POP_CURSOR;
220: fputs("\033*r1A", gpoutfile);
221:
222: /* dump bitmap in raster mode */
223: for (x = b_xsize - 1; x >= 0; x--) {
224: row = (b_ysize / 8) - 1;
225: fprintf(gpoutfile, "\033*b0m%dW", b_ysize / 8);
226: for (j = row; j >= 0; j--) {
227: (void) fputc((char) (*((*b_p)[j] + x)), gpoutfile);
228: }
229: }
230: fputs("\033*rB", gpoutfile);
231:
232: b_freebitmap();
233:
234: #ifndef VMS
235: /* most vms spoolers add a formfeed character */
236: putc('\f', gpoutfile);
237: #endif /* !VMS */
238: }
239:
240:
241:
242: TERM_PUBLIC void HPLJIIlinetype(linetype)
243: int linetype;
244: {
245:
246: if (hplj_dpp == 1) {
247: if (linetype >= 7)
248: linetype %= 7;
249: /* b_pattern not appropriate for 300ppi graphics */
250: b_linemask = b_300ppi_pattern[linetype + 2];
251: b_maskcount = 0;
252: } else {
253: b_setlinetype(linetype);
254: }
255: }
256:
257: TERM_PUBLIC void HPLJIIput_text(x, y, str)
258: unsigned int x, y;
259: char *str;
260: {
261: switch (b_angle) {
262: case 0:
263: y -= HPLJII_VCHAR / 5;
264: HPLJII_POP_CURSOR;
265: HPLJII_PUSH_CURSOR;
266: /* (0,0) is the upper left point of the paper */
267: fprintf(gpoutfile, "\033*p%+dx%+dY", x * HPLJII_DPP
268: ,(HPLJII_YMAX - y - 1) * HPLJII_DPP);
269: fputs(str, gpoutfile);
270: /* for (; *str; ++str, x += HPLJII_HCHAR)
271: HPLJIIputc (x, y, *str, b_angle);*/
272: break;
273: case 1:
274: y += (HPLJII_HCHAR - 2 * HPLJII_VCHAR) / 2;
275: y += (HPLJII_VCHAR + HPLJII_HCHAR) * strlen(str) / 2;
276: for (; *str; ++str, y -= HPLJII_VCHAR)
277: HPLJIIputc(x, y, *str, b_angle);
278: break;
279: }
280: }
281:
282: #ifdef PROTOTYPES
283: void HPLJIIputc(unsigned int x, unsigned int y, char c, int ang)
284: #else
285: void HPLJIIputc(x, y, c, ang)
286: unsigned int x, y;
287: int ang;
288: char c;
289: #endif
290: {
291: HPLJII_POP_CURSOR;
292: HPLJII_PUSH_CURSOR;
293: /* (0,0) is the upper left point of the paper */
294: fprintf(gpoutfile, "\033*p%+dx%+dY", x * HPLJII_DPP
295: ,(HPLJII_YMAX - y - 1) * HPLJII_DPP);
296: fputc(c, gpoutfile);
297: }
298:
299:
300: TERM_PUBLIC void HPLJIIreset()
301: {
302: #ifdef VMS
303: fflush_binary();
304: #endif /* VMS */
305: }
306:
307:
308: /* HP DeskJet routines */
309: TERM_PUBLIC void HPDJgraphics()
310: {
311: switch (hplj_dpp) {
312: case 1:
313: b_charsize(FNT13X25);
314: term->v_char = FNT13X25_VCHAR;
315: term->h_char = FNT13X25_HCHAR;
316: break;
317: case 2:
318: b_charsize(FNT13X25);
319: term->v_char = FNT13X25_VCHAR;
320: term->h_char = FNT13X25_HCHAR;
321: break;
322: case 3:
323: b_charsize(FNT9X17);
324: term->v_char = FNT9X17_VCHAR;
325: term->h_char = FNT9X17_HCHAR;
326: break;
327: case 4:
328: b_charsize(FNT5X9);
329: term->v_char = FNT5X9_VCHAR;
330: term->h_char = FNT5X9_HCHAR;
331: break;
332: }
333: /* rotate plot -90 degrees by reversing XMAX and YMAX and by
334: setting b_rastermode to TRUE */
335: b_makebitmap(HPLJII_YMAX, HPLJII_XMAX, 1);
336: b_rastermode = TRUE;
337: }
338:
339:
340: /* 0 compression raster bitmap dump. Compatible with HP DeskJet 500
341: hopefully compatible with other HP Deskjet printers */
342: TERM_PUBLIC void HPDJtext()
343: {
344: register int x, j, row;
345:
346: fprintf(gpoutfile, "\
347: \033*b0M\
348: \033*t%dR\
349: \033*r1A",
350: HPLJII_PPI);
351:
352: /* dump bitmap in raster mode */
353: for (x = b_xsize - 1; x >= 0; x--) {
354: row = (b_ysize / 8) - 1;
355: fprintf(gpoutfile, "\033*b%dW", b_ysize / 8);
356: for (j = row; j >= 0; j--) {
357: (void) fputc((char) (*((*b_p)[j] + x)), gpoutfile);
358: }
359: }
360: fputs("\033*rbC", gpoutfile);
361:
362: b_freebitmap();
363:
364: #ifndef VMS /* most vms spoolers add a formfeed character */
365: putc('\f', gpoutfile);
366: #endif /* !VMS */
367: }
368:
369: #endif
370:
371: #ifdef TERM_TABLE
372:
373: TERM_TABLE_START(hpljii_driver)
374: "hpljii", "HP Laserjet series II, [75 100 150 300]",
375: HPLJII_75PPI_XMAX, HPLJII_75PPI_YMAX, HPLJII_75PPI_VCHAR,
376: HPLJII_75PPI_HCHAR, HPLJII_75PPI_VTIC, HPLJII_75PPI_HTIC, HPLJIIoptions,
377: HPLJIIinit, HPLJIIreset, HPLJIItext, null_scale,
378: HPLJIIgraphics, HPLJIImove, HPLJIIvector, HPLJIIlinetype,
379: HPLJIIput_text, HPLJIItext_angle, null_justify_text, line_and_point,
380: do_arrow, set_font_null, 0, TERM_BINARY
381: TERM_TABLE_END(hpljii_driver)
382:
383: #undef LAST_TERM
384: #define LAST_TERM hpljii_driver
385:
386: TERM_TABLE_START(hpdj_driver)
387: "hpdj", "HP DeskJet 500, [75 100 150 300]",
388: HPLJII_75PPI_XMAX, HPLJII_75PPI_YMAX, HPLJII_75PPI_VCHAR,
389: HPLJII_75PPI_HCHAR, HPLJII_75PPI_VTIC, HPLJII_75PPI_HTIC, HPLJIIoptions,
390: HPLJIIinit, HPLJIIreset, HPDJtext, null_scale,
391: HPDJgraphics, HPLJIImove, HPLJIIvector, HPLJIIlinetype,
392: HPDJput_text, HPDJtext_angle, null_justify_text, line_and_point,
393: do_arrow, set_font_null, 0, TERM_BINARY
394: TERM_TABLE_END(hpdj_driver)
395:
396: #undef LAST_TERM
397: #define LAST_TERM hpdj_driver
398:
399: #endif
400: #endif
401:
402: #ifdef TERM_HELP
403: START_HELP(hpljii)
404: "1 hpljii",
405: "?commands set terminal hpljii",
406: "?set terminal hpljii",
407: "?set term hpljii",
408: "?terminal hpljii",
409: "?term hpljii",
410: "?hpljii",
411: "?commands set terminal hpdj",
412: "?set terminal hpdj",
413: "?set term hpdj",
414: "?terminal hpdj",
415: "?term hpdj",
416: "?hpdj",
417: " The `hpljii` terminal driver supports the HP Laserjet Series II printer. The",
418: " `hpdj` driver supports the HP DeskJet 500 printer. These drivers allow a",
419: " choice of resolutions.",
420: "",
421: " Syntax:",
422: " set terminal hpljii | hpdj {<res>}",
423: "",
424: " where `res` may be 75, 100, 150 or 300 dots per inch; the default is 75.",
425: " Rasterization at the higher resolutions may require a large amount of memory.",
426: "",
427: " The `hp500c` terminal is similar to `hpdj`; `hp500c` additionally supports",
428: " color and compression."
429: END_HELP(hpljii)
430: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to hpljii.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term