Annotation of OpenXM_contrib/gnuplot/term/post.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: post.trm,v 1.46 1998/06/18 14:59:23 ddenholm Exp $
3: */
4:
5: /* GNUPLOT - post.trm */
6:
7: /*[
8: * Copyright 1990 - 1993, 1998
9: *
10: * Permission to use, copy, and distribute this software and its
11: * documentation for any purpose with or without fee is hereby granted,
12: * provided that the above copyright notice appear in all copies and
13: * that both that copyright notice and this permission notice appear
14: * in supporting documentation.
15: *
16: * Permission to modify the software is granted, but not the right to
17: * distribute the complete modified source code. Modifications are to
18: * be distributed as patches to the released version. Permission to
19: * distribute binaries produced by compiling modified sources is granted,
20: * provided you
21: * 1. distribute the corresponding source modifications from the
22: * released version in the form of a patch file along with the binaries,
23: * 2. add special version identification to distinguish your version
24: * in addition to the base release version number,
25: * 3. provide your name and address as the primary contact for the
26: * support of your modified version, and
27: * 4. retain our contact information in regard to use of the base
28: * software.
29: * Permission to distribute the released version of the source code along
30: * with corresponding source modifications in the form of a patch file is
31: * granted with same provisions 2 through 4 for binary distributions.
32: *
33: * This software is provided "as is" without express or implied warranty
34: * to the extent permitted by applicable law.
35: ]*/
36:
37: /*
38: * This terminal driver supports:
39: * postscript
40: *
41: * AUTHORS
42: * Russell Lang
43: *
44: * modified 10/5/95 by drd - put in support for other postscript drivers
45: * (enhpost, pslatex, ...) so they dont have to work quite so hard
46: *
47: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
48: *
49: * The 'postscript' driver produces landscape output 10" wide and 7" high.
50: * To change font to Times-Roman and font size to 20pts use
51: * 'set term postscript "Times-Roman" 20'.
52: * To get a smaller (5" x 3.5") eps output use 'set term post eps'
53: * and make only one plot per file. Font size for eps will be half
54: * the specified size.
55: *
56: * Erik Luijten 30/5/97: added %%CreationDate, made %%DocumentFonts conform
57: * to DSC, added version no. and patchl. to %%Creator
58: */
59:
60: #include "driver.h"
61:
62: #ifdef TERM_REGISTER
63: register_term(post)
64: #endif
65:
66: #ifdef TERM_PROTO
67: TERM_PUBLIC void PS_options __PROTO((void));
68: TERM_PUBLIC void PS_common_init __PROTO((int encap, int portrait, int uses_fonts, unsigned int xoff, unsigned int yoff, unsigned int bb_xmin, unsigned int bb_ymin, unsigned int bb_xmax, unsigned int bb_ymax, char **dict));
69: TERM_PUBLIC void PS_init __PROTO((void));
70: TERM_PUBLIC void PS_graphics __PROTO((void));
71: TERM_PUBLIC void PS_text __PROTO((void));
72: TERM_PUBLIC void PS_reset __PROTO((void));
73: TERM_PUBLIC void PS_linetype __PROTO((int linetype));
74: TERM_PUBLIC void PS_move __PROTO((unsigned int x, unsigned int y));
75: TERM_PUBLIC void PS_vector __PROTO((unsigned int x, unsigned int y));
76: TERM_PUBLIC void PS_put_text __PROTO((unsigned int x, unsigned int y, char *str));
77: TERM_PUBLIC void ENHPS_put_text __PROTO((unsigned int x, unsigned int y, char *str));
78: TERM_PUBLIC int PS_text_angle __PROTO((int ang));
79: TERM_PUBLIC int PS_justify_text __PROTO((enum JUSTIFY mode));
80: TERM_PUBLIC void PS_point __PROTO((unsigned int x, unsigned int y, int number));
81: TERM_PUBLIC int PS_set_font __PROTO((char * font));
82: TERM_PUBLIC int ENHPS_set_font __PROTO((char * font));
83: TERM_PUBLIC void PS_fillbox __PROTO((int style, unsigned int x1, unsigned int y1, unsigned int width, unsigned int height));
84: TERM_PUBLIC void PS_linewidth __PROTO((double linewidth)); /* JFi [linewidth] */
85: TERM_PUBLIC void PS_pointsize __PROTO((double ptsize)); /* JFi [pointsize] */
86:
87: #define PS_POINT_TYPES 8
88: #define PS_XOFF 50 /* page offset in pts */
89: #define PS_YOFF 50
90: #define PS_XMAX 7200 /* assumes landscape */
91: #define PS_YMAX 5040
92: #define PS_XLAST (PS_XMAX - 1)
93: #define PS_YLAST (PS_YMAX - 1)
94: #define PS_VTIC (PS_YMAX/80)
95: #define PS_HTIC (PS_YMAX/80)
96: #define PS_SC (10) /* scale is 1pt = 10 units */
97: #define PS_LW (0.5*PS_SC) /* linewidth = 0.5 pts */
98: #define PS_VCHAR (14*PS_SC) /* default is 14 point characters */
99: #define PS_HCHAR (14*PS_SC*6/10)
100:
101: #endif
102:
103:
104: #ifndef TERM_PROTO_ONLY
105:
106: #ifdef TERM_BODY
107: /* PostScript driver by Russell Lang, rjl@monu1.cc.monash.edu.au */
108:
109: /* From version.c */
110: extern char version[];
111: extern char patchlevel[];
112:
113: #define PS_FLUSH_PATH \
114: if (ps_path_count) { fprintf(gpoutfile, "stroke "); ps_path_count = 0; }
115:
116: static char *PS_RememberFont __PROTO((char *fname, int reencode));
117: static void ENHPS_put_text __PROTO((unsigned int x, unsigned int y, char *str));
118: static char *ENHPS_recurse __PROTO((char *p, TBOOLEAN brace, char *fontname, double fontsize, double base, TBOOLEAN widthflag, TBOOLEAN showflag));
119: static char ps_font[MAX_ID_LEN+1] = "Helvetica" ; /* name of font */
120: static int ps_fontsize = 14; /* size of font in pts */
121:
122: /* for enhanced mode, we keep a separate font name and size, which
123: * is restored to the default value on font of ""
124: */
125: static char ps_enh_font[MAX_ID_LEN+1];
126: static int ps_enh_fontsize;
127:
128: static TBOOLEAN ps_portrait = FALSE; /* vertical page */
129: static TBOOLEAN ps_color = FALSE;
130: static TBOOLEAN ps_solid = FALSE; /* use solid lines */
131: static TBOOLEAN ps_eps = FALSE; /* Is this for an eps file? */
132: /* Added by Robert Davis <davis@ecn.purdue.edu> */
133: static int ps_page=0; /* page count */
134: static int ps_path_count=0; /* count of lines in path */
135: static int ps_ang=0; /* text angle */
136: static enum JUSTIFY ps_justify=LEFT; /* text is flush left */
137:
138: /* added by Matt Heffron <heffron@falstaff.css.beckman.com> */
139: static TBOOLEAN ps_duplex_state = FALSE;
140: static TBOOLEAN ps_duplex_option = FALSE;
141:
142: static char GPFAR * GPFAR PS_header[] = {
143: "/M {moveto} bind def\n",
144: "/L {lineto} bind def\n",
145: "/R {rmoveto} bind def\n",
146: "/V {rlineto} bind def\n",
147: "/vpt2 vpt 2 mul def\n",
148: "/hpt2 hpt 2 mul def\n",
149: /* flush left show */
150: "/Lshow { currentpoint stroke M\n",
151: " 0 vshift R show } def\n",
152: /* flush right show */
153: "/Rshow { currentpoint stroke M\n",
154: " dup stringwidth pop neg vshift R show } def\n",
155: /* centred show */
156: "/Cshow { currentpoint stroke M\n",
157: " dup stringwidth pop -2 div vshift R show } def\n",
158: /* set pointsize */
159: "/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def\n",
160: " /hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def\n",
161: /* Dash or Color Line */
162: "/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }\n",
163: " {pop pop pop Solid {pop []} if 0 setdash} ifelse } def\n",
164: /* Border Lines */
165: "/BL { stroke gnulinewidth 2 mul setlinewidth } def\n",
166: /* Axes Lines */
167: "/AL { stroke gnulinewidth 2 div setlinewidth } def\n",
168: /* set user defined linewidth */
169: "/UL { gnulinewidth mul /userlinewidth exch def } def\n",
170: /* Plot Lines */
171: "/PL { stroke userlinewidth setlinewidth } def\n",
172: /* Line Types */
173: "/LTb { BL [] 0 0 0 DL } def\n", /* border */
174: "/LTa { AL [1 dl 2 dl] 0 setdash 0 0 0 setrgbcolor } def\n", /* axes */
175: "/LT0 { PL [] 1 0 0 DL } def\n",
176: "/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def\n",
177: "/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def\n",
178: "/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def\n",
179: "/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def\n",
180: "/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def\n",
181: "/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def\n",
182: "/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def\n",
183: "/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def\n",
184: /* Point (Round) */ /* Matt Heffron make it round */
185: "/Pnt { stroke [] 0 setdash\n",
186: " gsave 1 setlinecap M 0 0 V stroke grestore } def\n",
187:
188: /* Diamond */
189: "/Dia { stroke [] 0 setdash 2 copy vpt add M\n",
190: " hpt neg vpt neg V hpt vpt neg V\n",
191: " hpt vpt V hpt neg vpt V closepath stroke\n",
192: " Pnt } def\n",
193:
194: /* Plus */
195: "/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V\n",
196: " currentpoint stroke M\n",
197: " hpt neg vpt neg R hpt2 0 V stroke\n",
198: " } def\n",
199:
200: /* Box */
201: "/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M\n",
202: " 0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
203: " hpt2 neg 0 V closepath stroke\n",
204: " Pnt } def\n",
205:
206: /* Cross (X) */
207: "/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
208: " hpt2 vpt2 neg V currentpoint stroke M\n",
209: " hpt2 neg 0 R hpt2 vpt2 V stroke } def\n",
210:
211: /* Triangle Up*/
212: "/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M\n",
213: " hpt neg vpt -1.62 mul V\n",
214: " hpt 2 mul 0 V\n",
215: " hpt neg vpt 1.62 mul V closepath stroke\n",
216: " Pnt } def\n",
217:
218: /* Star */
219: "/Star { 2 copy Pls Crs } def\n",
220:
221: /* div added filed box */
222: /* Filled Box */
223: "/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
224: " 0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
225: " hpt2 neg 0 V closepath fill } def\n",
226:
227: /* div added filled triangle */
228: /* Triangle Up, Filled */
229: "/TriUF { stroke [] 0 setdash vpt 1.12 mul add M\n",
230: " hpt neg vpt -1.62 mul V\n",
231: " hpt 2 mul 0 V\n",
232: " hpt neg vpt 1.62 mul V closepath fill } def\n",
233:
234: /* Matt Heffron: added a few more types */
235: /* Triangle Down */
236: "/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M\n",
237: " hpt neg vpt 1.62 mul V\n",
238: " hpt 2 mul 0 V\n",
239: " hpt neg vpt -1.62 mul V closepath stroke\n",
240: " Pnt } def\n",
241:
242: /* Triangle Down, Filled*/
243: "/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M\n",
244: " hpt neg vpt 1.62 mul V\n",
245: " hpt 2 mul 0 V\n",
246: " hpt neg vpt -1.62 mul V closepath fill} def\n",
247:
248: /* Diamond, Filled */
249: "/DiaF { stroke [] 0 setdash vpt add M\n",
250: " hpt neg vpt neg V hpt vpt neg V\n",
251: " hpt vpt V hpt neg vpt V closepath fill } def\n",
252:
253: /* Pentagon */
254: "/Pent { stroke [] 0 setdash 2 copy gsave\n",
255: " translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
256: " closepath stroke grestore Pnt } def\n",
257:
258: /* Pentagon, Filled */
259: "/PentF { stroke [] 0 setdash gsave\n",
260: " translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
261: " closepath fill grestore } def\n",
262:
263: /* Circle */
264: "/Circle { stroke [] 0 setdash 2 copy\n",
265: " hpt 0 360 arc stroke Pnt } def\n",
266:
267: /* Circle,Filled */
268: "/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def\n",
269: /* 16 differently filled circles */
270: "/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def\n",
271: "/C1 { BL [] 0 setdash 2 copy moveto\n",
272: " 2 copy vpt 0 90 arc closepath fill\n",
273: " vpt 0 360 arc closepath } bind def\n",
274: "/C2 { BL [] 0 setdash 2 copy moveto\n",
275: " 2 copy vpt 90 180 arc closepath fill\n",
276: " vpt 0 360 arc closepath } bind def\n",
277: "/C3 { BL [] 0 setdash 2 copy moveto\n",
278: " 2 copy vpt 0 180 arc closepath fill\n",
279: " vpt 0 360 arc closepath } bind def\n",
280: "/C4 { BL [] 0 setdash 2 copy moveto\n",
281: " 2 copy vpt 180 270 arc closepath fill\n",
282: " vpt 0 360 arc closepath } bind def\n",
283: "/C5 { BL [] 0 setdash 2 copy moveto\n",
284: " 2 copy vpt 0 90 arc\n",
285: " 2 copy moveto\n",
286: " 2 copy vpt 180 270 arc closepath fill\n",
287: " vpt 0 360 arc } bind def\n",
288: "/C6 { BL [] 0 setdash 2 copy moveto\n",
289: " 2 copy vpt 90 270 arc closepath fill\n",
290: " vpt 0 360 arc closepath } bind def\n",
291: "/C7 { BL [] 0 setdash 2 copy moveto\n",
292: " 2 copy vpt 0 270 arc closepath fill\n",
293: " vpt 0 360 arc closepath } bind def\n",
294: "/C8 { BL [] 0 setdash 2 copy moveto\n",
295: " 2 copy vpt 270 360 arc closepath fill\n",
296: " vpt 0 360 arc closepath } bind def\n",
297: "/C9 { BL [] 0 setdash 2 copy moveto\n",
298: " 2 copy vpt 270 450 arc closepath fill\n",
299: " vpt 0 360 arc closepath } bind def\n",
300: "/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill\n",
301: " 2 copy moveto\n",
302: " 2 copy vpt 90 180 arc closepath fill\n",
303: " vpt 0 360 arc closepath } bind def\n",
304: "/C11 { BL [] 0 setdash 2 copy moveto\n",
305: " 2 copy vpt 0 180 arc closepath fill\n",
306: " 2 copy moveto\n",
307: " 2 copy vpt 270 360 arc closepath fill\n",
308: " vpt 0 360 arc closepath } bind def\n",
309: "/C12 { BL [] 0 setdash 2 copy moveto\n",
310: " 2 copy vpt 180 360 arc closepath fill\n",
311: " vpt 0 360 arc closepath } bind def\n",
312: "/C13 { BL [] 0 setdash 2 copy moveto\n",
313: " 2 copy vpt 0 90 arc closepath fill\n",
314: " 2 copy moveto\n",
315: " 2 copy vpt 180 360 arc closepath fill\n",
316: " vpt 0 360 arc closepath } bind def\n",
317: "/C14 { BL [] 0 setdash 2 copy moveto\n",
318: " 2 copy vpt 90 360 arc closepath fill\n",
319: " vpt 0 360 arc } bind def\n",
320: "/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill\n",
321: " vpt 0 360 arc closepath } bind def\n",
322:
323: /* Auxiliary definitions for rectangles */
324:
325: "/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n",
326: " neg 0 rlineto closepath } bind def\n",
327: "/Square { dup Rec } bind def\n",
328: "/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def\n",
329:
330: /* 16 differently filled squares */
331:
332: "/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def\n",
333: "/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def\n",
334: "/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def\n",
335: "/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def\n",
336: "/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def\n",
337: "/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill\n",
338: " exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def\n",
339: "/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def\n",
340: "/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill\n",
341: " 2 copy vpt Square fill\n",
342: " Bsquare } bind def\n",
343: "/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def\n",
344: "/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def\n",
345: "/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill\n",
346: " Bsquare } bind def\n",
347: "/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill\n",
348: " Bsquare } bind def\n",
349: "/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def\n",
350: "/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill\n",
351: " 2 copy vpt Square fill Bsquare } bind def\n",
352: "/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill\n",
353: " 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def\n",
354: "/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def\n",
355:
356: /* 16 different diamonds (actually just rotated squares) */
357:
358: "/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def\n",
359: "/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def\n",
360: "/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def\n",
361: "/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def\n",
362: "/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def\n",
363: "/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def\n",
364: "/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def\n",
365: "/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def\n",
366: "/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def\n",
367: "/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def\n",
368: "/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def\n",
369: "/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def\n",
370: "/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def\n",
371: "/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def\n",
372: "/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def\n",
373: "/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def\n",
374:
375: /* closed figures w/o the point in the middle (added by Dick Crawford) */
376:
377: /* Diamond */
378: "/DiaE { stroke [] 0 setdash vpt add M\n",
379: " hpt neg vpt neg V hpt vpt neg V\n",
380: " hpt vpt V hpt neg vpt V closepath stroke } def\n",
381:
382: /* Box */
383: "/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
384: " 0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
385: " hpt2 neg 0 V closepath stroke } def\n",
386:
387: /* Triangle Up*/
388: "/TriUE { stroke [] 0 setdash vpt 1.12 mul add M\n",
389: " hpt neg vpt -1.62 mul V\n",
390: " hpt 2 mul 0 V\n",
391: " hpt neg vpt 1.62 mul V closepath stroke } def\n",
392:
393: /* Triangle Down */
394: "/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M\n",
395: " hpt neg vpt 1.62 mul V\n",
396: " hpt 2 mul 0 V\n",
397: " hpt neg vpt -1.62 mul V closepath stroke } def\n",
398:
399: /* Pentagon */
400: "/PentE { stroke [] 0 setdash gsave\n",
401: " translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
402: " closepath stroke grestore } def\n",
403:
404: /* Circle */
405: "/CircE { stroke [] 0 setdash \n",
406: " hpt 0 360 arc stroke } def\n",
407:
408: /* opaque closed figures w/o the point in the middle (added by Dick Crawford) */
409:
410: "/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def\n",
411:
412: /* Diamond */
413: "/DiaW { stroke [] 0 setdash vpt add M\n",
414: " hpt neg vpt neg V hpt vpt neg V\n",
415: " hpt vpt V hpt neg vpt V Opaque stroke } def\n",
416:
417: /* Box */
418: "/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
419: " 0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
420: " hpt2 neg 0 V Opaque stroke } def\n",
421:
422: /* Triangle Up*/
423: "/TriUW { stroke [] 0 setdash vpt 1.12 mul add M\n",
424: " hpt neg vpt -1.62 mul V\n",
425: " hpt 2 mul 0 V\n",
426: " hpt neg vpt 1.62 mul V Opaque stroke } def\n",
427:
428: /* Triangle Down */
429: "/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M\n",
430: " hpt neg vpt 1.62 mul V\n",
431: " hpt 2 mul 0 V\n",
432: " hpt neg vpt -1.62 mul V Opaque stroke } def\n",
433:
434: /* Pentagon */
435: "/PentW { stroke [] 0 setdash gsave\n",
436: " translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
437: " Opaque stroke grestore } def\n",
438:
439: /* Circle */
440: "/CircW { stroke [] 0 setdash \n",
441: " hpt 0 360 arc Opaque stroke } def\n",
442:
443: /* filled box : usage x1 y1 x2 y2 BoxFill */
444: "/BoxFill { gsave Rec 1 setgray fill grestore } def\n",
445:
446: NULL
447: };
448:
449: static char GPFAR * GPFAR ENHPS_header[] = {
450: /* For MFshow and MFwidth the tos is an array with the string and font info: */
451: /* [<fontname (a string)> <fontsize> <vertical offset> <width significant?> <printed?> <text string>] */
452:
453: "/MFshow {{dup dup 0 get findfont exch 1 get scalefont setfont\n",
454: " [ currentpoint ] exch dup 2 get 0 exch rmoveto dup dup 5 get exch 4 get\n",
455: " {show} {stringwidth pop 0 rmoveto}ifelse dup 3 get\n",
456: " {2 get neg 0 exch rmoveto pop} {pop aload pop moveto}ifelse} forall} bind def\n",
457: "/MFwidth {0 exch {dup 3 get{dup dup 0 get findfont exch 1 get scalefont setfont\n",
458: " 5 get stringwidth pop add}\n",
459: " {pop} ifelse} forall} bind def\n",
460:
461: /* flush left show */
462: "/MLshow { currentpoint stroke M\n",
463: " 0 exch R MFshow } bind def\n",
464:
465: /* flush right show */
466: "/MRshow { currentpoint stroke M\n",
467: " exch dup MFwidth neg 3 -1 roll R MFshow } def\n",
468:
469: /* centred show */
470: "/MCshow { currentpoint stroke M\n",
471: " exch dup MFwidth -2 div 3 -1 roll R MFshow } def\n",
472: NULL
473: };
474:
475: /* added to enhpost by Matt Heffron <heffron@falstaff.css.beckman.com> */
476: /* moved to post.trm by drd */
477:
478: static struct PS_FontName {
479: char *name;
480: struct PS_FontName *next;
481: } *PS_DocFonts = NULL;
482:
483: /* given a font, look in store to see if it is there already
484: * if so, return NULL. If not, reencode it if allowed to, otherwise
485: * return an appropriate re-encode string
486: */
487:
488: TERM_PUBLIC char *PS_RememberFont(fname, can_reencode)
489: char *fname;
490: int can_reencode;
491: {
492: struct PS_FontName *fnp;
493: char *recode = NULL;
494:
495: for (fnp=PS_DocFonts; fnp ; fnp = fnp->next)
496: if (strcmp(fnp->name, fname)==0)
497: return NULL;
498:
499: /* we did not find the name */
500:
501: fnp = (struct PS_FontName *)gp_alloc(sizeof(struct PS_FontName), "PostScript Font record");
502: fnp->name = gp_alloc(1+strlen(fname), "PostScript Font name");
503: strcpy(fnp->name, fname);
504: fnp->next = PS_DocFonts;
505: PS_DocFonts = fnp;
506:
507: switch(encoding)
508: {
509: case ENCODING_ISO_8859_1:
510: recode = "reencodeISO def\n";
511: break;
512: case ENCODING_CP_437:
513: recode = "reencodeCP437 def\n";
514: break;
515: case ENCODING_CP_850 :
516: recode = "reencodeCP850 def\n";
517: break;
518: }
519:
520: if (can_reencode && recode)
521: { fprintf(gpoutfile,"/%s %s",fname, recode);
522: return NULL;
523: }
524: else
525: return recode;
526: }
527:
528: static int PS_pen_x, PS_pen_y;
529: static int PS_taken;
530: static int PS_linetype_last;
531: static TBOOLEAN PS_relative_ok;
532:
533: TERM_PUBLIC void PS_options()
534: {
535: if (!END_OF_COMMAND) {
536: if (almost_equals(c_token,"p$ortrait")) {
537: ps_portrait=TRUE;
538: ps_eps=FALSE;
539: c_token++;
540: }
541: else if (almost_equals(c_token,"l$andscape")) {
542: ps_portrait=FALSE;
543: ps_eps=FALSE;
544: c_token++;
545: }
546: else if (almost_equals(c_token,"ep$sf")) {
547: ps_portrait=TRUE;
548: ps_eps = TRUE;
549: c_token++;
550: }
551: else if (almost_equals(c_token,"d$efault")) {
552: ps_portrait=FALSE;
553: ps_eps=FALSE;
554: ps_color=FALSE;
555: ps_solid=FALSE;
556: ps_duplex_option=FALSE;
557: strcpy(ps_font,"Helvetica");
558: ps_fontsize = 14;
559: term->v_char = (unsigned int)(ps_fontsize*PS_SC);
560: term->h_char = (unsigned int)(ps_fontsize*PS_SC*6/10);
561: term->put_text = PS_put_text;
562: c_token++;
563: }
564: }
565:
566: if (almost_equals(c_token, "enh$anced")) {
567: term->put_text = ENHPS_put_text;
568: term->set_font = ENHPS_set_font;
569: ++c_token;
570: } else if (almost_equals(c_token, "noenh$anced")) {
571: term->put_text = PS_put_text;
572: term->set_font = PS_set_font;
573: ++c_token;
574: }
575:
576: if (!END_OF_COMMAND) {
577: if (almost_equals(c_token,"m$onochrome")) {
578: ps_color=FALSE;
579: c_token++;
580: }
581: else if (almost_equals(c_token,"c$olor")
582: || almost_equals(c_token,"c$olour")) {
583: ps_color=TRUE;
584: c_token++;
585: }
586: }
587:
588: if (!END_OF_COMMAND) {
589: if (almost_equals(c_token,"so$lid")) {
590: ps_solid=TRUE;
591: c_token++;
592: }
593: else if (almost_equals(c_token,"da$shed")) {
594: ps_solid=FALSE;
595: c_token++;
596: }
597: }
598:
599: if (!END_OF_COMMAND) {
600: if (almost_equals(c_token,"si$mplex")) {
601: ps_duplex_state = FALSE;
602: ps_duplex_option = TRUE;
603: c_token++;
604: }
605: else if (almost_equals(c_token,"du$plex")) {
606: ps_duplex_state = TRUE;
607: ps_duplex_option = TRUE;
608: c_token++;
609: }
610: else if (almost_equals(c_token,"defaultp$lex")) {
611: ps_duplex_option = FALSE;
612: c_token++;
613: }
614: }
615:
616: if (!END_OF_COMMAND && isstring(c_token)) {
617: quote_str(ps_font,c_token, MAX_ID_LEN);
618: c_token++;
619: }
620:
621: if (!END_OF_COMMAND) {
622: /* We have font size specified */
623: struct value a;
624: ps_fontsize = (int)real(const_express(&a));
625: term->v_char = (unsigned int)(ps_fontsize*PS_SC);
626: term->h_char = (unsigned int)(ps_fontsize*PS_SC*6/10);
627: }
628:
629: sprintf(default_font,"%s,%d",ps_font,ps_fontsize);
630: /* default_font holds the font and size set at 'set term' */
631: /* Entry font added by DJL */
632: sprintf(term_options,"%s %senhanced %s %s %s \"%s\" %d",
633: ps_eps ? "eps" : (ps_portrait ? "portrait" : "landscape"),
634: term->put_text == ENHPS_put_text ? "" : "no",
635: ps_color ? "color" : "monochrome",
636: ps_solid ? "solid" : "dashed",
637: ps_duplex_option ? (ps_duplex_state ? "duplex" : "simplex")
638: : "defaultplex",
639: ps_font,ps_fontsize);
640: }
641:
642: /* store settings passed to common_init() for use in PS_graphics()
643: * ps_eps, ps_portrait, etc are reserved for storing the term options
644: */
645: static int ps_common_encap;
646: static int ps_common_portrait;
647: static int ps_common_uses_fonts;
648: static unsigned int ps_common_xoff, ps_common_yoff;
649:
650:
651: TERM_PUBLIC void PS_common_init(encap, portrait, uses_fonts, xoff, yoff, bb_xmin, bb_ymin, bb_xmax, bb_ymax, dict)
652: int encap; /* encapsulated or not - 1 for pslatex */
653: int portrait; /* 1 for pslatex */
654: int uses_fonts; /* 0 for ps(la)tex */
655: unsigned int xoff, yoff; /* how much to translate by */
656: unsigned int bb_xmin, bb_ymin, bb_xmax, bb_ymax; /* bounding box */
657: char **dict; /* extra entries for the dictionary */
658: {
659: static char GPFAR psi1[] = "%%%%Creator: gnuplot %s patchlevel %s\n\
660: %%%%CreationDate: %s\
661: %%%%DocumentFonts: %s\n";
662: static char GPFAR psi2[] = "%%%%EndComments\n\
663: /gnudict 256 dict def\ngnudict begin\n\
664: /Color %s def\n\
665: /Solid %s def\n\
666: /gnulinewidth %.3f def\n\
667: /userlinewidth gnulinewidth def\n\
668: /vshift %d def\n\
669: /dl {%d mul} def\n\
670: /hpt_ %.1f def\n\
671: /vpt_ %.1f def\n\
672: /hpt hpt_ def\n\
673: /vpt vpt_ def\n";
674: static char GPFAR * GPFAR PS_iso_8859_1_encoding[] = {
675: "/reencodeISO {\n",
676: "dup dup findfont dup length dict begin\n",
677: "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n",
678: "currentdict /CharStrings known {\n",
679: "\tCharStrings /Idieresis known {\n",
680: "\t\t/Encoding ISOLatin1Encoding def } if\n} if\n",
681: "currentdict end definefont\n",
682: "} def\n",
683: "/ISOLatin1Encoding [\n",
684: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
685: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
686: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
687: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
688: "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n",
689: "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n",
690: "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n",
691: "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n",
692: "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n",
693: "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n",
694: "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde\n",
695: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
696: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
697: "/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve\n",
698: "/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut\n",
699: "/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar\n",
700: "/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot\n",
701: "/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior\n",
702: "/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine\n",
703: "/guillemotright/onequarter/onehalf/threequarters/questiondown\n",
704: "/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla\n",
705: "/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex\n",
706: "/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis\n",
707: "/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute\n",
708: "/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis\n",
709: "/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave\n",
710: "/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex\n",
711: "/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis\n",
712: "/yacute/thorn/ydieresis\n",
713: "] def\n",
714: NULL };
715:
716: /* encoding for code page 437 */
717: /* */
718: /* version 1.0: - Mainly letters are mapped. The following positions */
719: /* (JFi) are left blank (undefined): */
720: /* -- first 32 positions, */
721: /* -- frame characters, */
722: /* -- greek characters, */
723: /* -- some more special characters. */
724: /* */
725: /* version 1.1: - added some more special characters */
726: /* */
727: static char GPFAR * GPFAR PS_cp_437_encoding[] = {
728: "/reencodeCP437 {\n",
729: "dup dup findfont dup length dict begin\n",
730: "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n",
731: "currentdict /CharStrings known {\n",
732: "\tCharStrings /Idieresis known {\n",
733: "\t\t/Encoding CP437Encoding def } if\n} if\n",
734: "currentdict end definefont\n",
735: "} def\n",
736: "/CP437Encoding [\n",
737: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
738: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
739: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
740: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
741: "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n",
742: "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n",
743: "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n",
744: "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n",
745: "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n",
746: "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n",
747: "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef\n",
748: "/Ccedilla/udieresis/eacute/acircumflex/adieresis/agrave/aring/ccedilla\n",
749: "/ecircumflex/edieresis/egrave/idieresis/icircumflex/igrave/Adieresis/Aring\n",
750: "/Eacute/ae/AE/ocircumflex/odieresis/ograve/ucircumflex/ugrave\n",
751: "/ydieresis/Odieresis/Udieresis/cent/sterling/yen/.notdef/florin\n",
752: "/aacute/iacute/oacute/uacute/ntilde/Ntilde/ordfeminine/ordmasculine\n",
753: "/questiondown/.notdef/logicalnot/onehalf/onequarter/exclamdown/guillemotleft/guillemotright\n",
754: "/space/space/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
755: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
756: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
757: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
758: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
759: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
760: "/.notdef/germandbls/.notdef/.notdef/.notdef/.notdef/mu/.notdef\n",
761: "/.notdef/.notdef/.notdef/.notdef/infinity/.notdef/.notdef/.notdef\n",
762: "/.notdef/plusminus/greaterequal/lessequal/.notdef/.notdef/divide/.notdef\n",
763: "/degree/bullet/periodcentered/.notdef/nsuperior/twosuperior/.notdef\n",
764: "] def\n",
765: NULL };
766:
767: /* encoding for code page 850 */
768: /* */
769: /* version 1.0: - Mainly letters are mapped. The following positions */
770: /* (JFi) are left blank (undefined): */
771: /* -- first 32 positions, */
772: /* -- frame characters, */
773: /* -- a few special characters. */
774: /* */
775: static char GPFAR * GPFAR PS_cp_850_encoding[] = {
776: "/reencodeCP850 {\n",
777: "dup dup findfont dup length dict begin\n",
778: "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n",
779: "currentdict /CharStrings known {\n",
780: "\tCharStrings /Idieresis known {\n",
781: "\t\t/Encoding CP850Encoding def } if\n} if\n",
782: "currentdict end definefont\n",
783: "} def\n",
784: "/CP850Encoding [\n",
785: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
786: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
787: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
788: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
789: "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n",
790: "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n",
791: "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n",
792: "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n",
793: "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n",
794: "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n",
795: "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef\n",
796: "/Ccedilla/udieresis/eacute/acircumflex/adieresis/agrave/aring/ccedilla\n",
797: "/ecircumflex/edieresis/egrave/idieresis/icircumflex/igrave/Adieresis/Aring\n",
798: "/Eacute/ae/AE/ocircumflex/odieresis/ograve/ucircumflex/ugrave\n",
799: "/ydieresis/Odieresis/Udieresis/oslash/sterling/Oslash/multiply/florin\n",
800: "/aacute/iacute/oacute/uacute/ntilde/Ntilde/ordfeminine/ordmasculine\n",
801: "/questiondown/registered/logicalnot/onehalf/onequarter/exclamdown/guillemotleft/guillemotright\n",
802: "/space/space/.notdef/.notdef/.notdef/Aacute/Acircumflex/Agrave\n",
803: "/.notdef/.notdef/.notdef/.notdef/.notdef/cent/yen/.notdef\n",
804: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/atilde/Atilde\n",
805: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/currency\n",
806: "/eth/Eth/Ecircumflex/Edieresis/Egrave/dotlessi/Iacute/Icircumflex\n",
807: "/Idieresis/.notdef/.notdef/.notdef/.notdef/brokenbar/Igrave/.notdef\n",
808: "/Oacute/germandbls/Ocircumflex/Ograve/otilde/Otilde/mu/thorn\n",
809: "/Thorn/Uacute/Ucircumflex/Ugrave/yacute/Yacute/macron/acute\n",
810: "/hyphen/plusminus/equal/threequarters/paragraph/section/divide/.notdef\n",
811: "/degree/.notdef/periodcentered/onesuperior/threesuperior/twosuperior/.notdef\n",
812: "] def\n",
813: NULL };
814:
815: struct termentry *t = term;
816: int i;
817: time_t now;
818:
819: ps_common_encap = encap; /* store for later */
820: ps_common_portrait = portrait; /* store for later */
821: ps_common_uses_fonts = uses_fonts;
822: ps_common_xoff = xoff;
823: ps_common_yoff = yoff;
824:
825: ps_page = 0;
826:
827: if (!encap)
828: fprintf(gpoutfile,"%%!PS-Adobe-2.0\n");
829: else
830: fprintf(gpoutfile,"%%!PS-Adobe-2.0 EPSF-2.0\n");
831:
832: if (outstr) fprintf(gpoutfile, "%%%%Title: %s\n", outstr ); /* JFi */
833: time(&now);
834: fprintf(gpoutfile, psi1, version, patchlevel, asctime(localtime(&now)), uses_fonts ? "(atend)" : "");
835:
836: fprintf(gpoutfile,"%%%%BoundingBox: %d %d %d %d\n", xoff + bb_xmin, yoff + bb_ymin, xoff + bb_xmax, yoff + bb_ymax);
837:
838: fprintf(gpoutfile,"%%%%Orientation: %s\n", ps_portrait ? "Portrait" : "Landscape");
839:
840: if (!encap)
841: fprintf(gpoutfile,"%%%%Pages: (atend)\n");
842: fprintf(gpoutfile, psi2,
843: ps_color ? "true" : "false",
844: ps_solid ? "true" : "false",
845: PS_LW, /* line width */
846: (int)(t->v_char)/(-3), /* shift for vertical centring */
847: PS_SC, /* dash length */
848: PS_HTIC/2.0, /* half point width */
849: PS_VTIC/2.0); /* half point height */
850:
851: if (uses_fonts && (encoding == ENCODING_ISO_8859_1)) {
852: for (i=0; PS_iso_8859_1_encoding[i] != NULL; i++) {
853: fprintf(gpoutfile,"%s",PS_iso_8859_1_encoding[i]);
854: }
855: }
856: if (uses_fonts && (encoding == ENCODING_CP_437)) { /* JFi */
857: for (i=0; PS_cp_437_encoding[i] != NULL; i++) {
858: fprintf(gpoutfile,"%s",PS_cp_437_encoding[i]);
859: }
860: }
861: if (uses_fonts && (encoding == ENCODING_CP_850)) { /* JFi */
862: for (i=0; PS_cp_850_encoding[i] != NULL; i++) {
863: fprintf(gpoutfile,"%s",PS_cp_850_encoding[i]);
864: }
865: }
866: /* Duplicate code!
867: As long as only two code pages are implemented, that's not a big
868: problem. Otherwise a small procedure might be beneficial.
869: */
870:
871: for ( i=0; PS_header[i] != NULL; i++)
872: fprintf(gpoutfile,"%s",PS_header[i]);
873: if (ps_duplex_option)
874: fprintf(gpoutfile, "statusdict begin %s setduplexmode end\n",
875: ps_duplex_state ? "true" : "false");
876: PS_RememberFont(ps_font, 1);
877:
878: if (dict)
879: while (*dict)
880: fputs(*(dict++), gpoutfile);
881:
882: fprintf(gpoutfile,"end\n%%%%EndProlog\n");
883: }
884:
885: /* the init fn for the postscript driver */
886: TERM_PUBLIC void PS_init()
887: {
888: unsigned int xmin_t, ymin_t, xmax_t, ymax_t;
889:
890: if (ps_eps)
891: {
892: term->xmax = PS_XMAX;
893: term->ymax = PS_YMAX;
894: xmin_t = PS_XMAX * xoffset / (2*PS_SC);
895: xmax_t = PS_XMAX * (xsize + xoffset) / (2*PS_SC);
896: ymin_t = PS_YMAX * yoffset / (2*PS_SC);
897: ymax_t = PS_YMAX * (yoffset + ysize) / (2*PS_SC);
898: }
899: else if (ps_portrait)
900: {
901: term->xmax = PS_YMAX;
902: term->ymax = PS_XMAX;
903: xmin_t = PS_YMAX * xoffset / PS_SC;
904: xmax_t = PS_YMAX * (xsize + xoffset) / PS_SC;
905: ymin_t = PS_XMAX * yoffset / PS_SC;
906: ymax_t = PS_XMAX * (ysize + yoffset) / PS_SC;
907: }
908: else
909: {
910: term->xmax = PS_XMAX;
911: term->ymax = PS_YMAX;
912: ymin_t = PS_XMAX * xoffset / PS_SC;
913: ymax_t = PS_XMAX * (xsize+xoffset) / PS_SC;
914: xmin_t = PS_YMAX * (1-ysize-yoffset) / PS_SC;
915: xmax_t = PS_YMAX * (1-yoffset) / PS_SC;
916: }
917:
918: /* for enhanced postscript, copy ps_font to ps_enh_font
919: * does no harm for non-enhanced
920: */
921: strcpy(ps_enh_font, ps_font);
922: ps_enh_fontsize = ps_fontsize;
923:
924: PS_common_init(ps_eps, ps_portrait, 1, PS_XOFF, PS_YOFF,
925: xmin_t, ymin_t, xmax_t, ymax_t,
926: (term->put_text == ENHPS_put_text) ? ENHPS_header : NULL);
927: }
928:
929:
930: TERM_PUBLIC void PS_graphics()
931: {
932: static char GPFAR psg1[] = "0 setgray\nnewpath\n";
933: struct termentry *t = term;
934: ps_page++;
935: if (!ps_common_encap)
936: fprintf(gpoutfile,"%%%%Page: %d %d\n",ps_page,ps_page);
937: fprintf(gpoutfile,"gnudict begin\ngsave\n");
938: fprintf(gpoutfile,"%d %d translate\n",ps_common_xoff, ps_common_yoff);
939: fprintf(gpoutfile,"%.3f %.3f scale\n", (ps_eps ? 0.5 : 1.0)/PS_SC,
940: (ps_eps ? 0.5 : 1.0)/PS_SC);
941: if (!ps_common_portrait) {
942: fprintf(gpoutfile,"90 rotate\n0 %d translate\n", (int)(-PS_YMAX));
943: }
944: fprintf(gpoutfile, psg1);
945: if (ps_common_uses_fonts)
946: fprintf(gpoutfile, "(%s) findfont %d scalefont setfont\n", ps_font, (t->v_char) );
947: ps_path_count = 0;
948: PS_relative_ok = FALSE;
949: PS_pen_x = PS_pen_y = -4000;
950: PS_taken = 0;
951: PS_linetype_last = -1;
952: }
953:
954:
955: TERM_PUBLIC void PS_text()
956: {
957: ps_path_count = 0;
958: fprintf(gpoutfile,"stroke\ngrestore\nend\nshowpage\n");
959: /* fprintf(stderr,"taken %d times\n",PS_taken); */
960: /* informational: tells how many times it was "cheaper"
961: to do a relative moveto or lineto rather than an
962: absolute one */
963: }
964:
965:
966: TERM_PUBLIC void PS_reset()
967: {
968: fprintf(gpoutfile,"%%%%Trailer\n");
969:
970: /* I think the following commands should be executed
971: `if (ps_common_uses_fonts)`. So I changed the next line.
972: Please see "PS_RememberFont", too. */ /* JFi */
973:
974: /* if (!ps_common_uses_fonts) { */ /* JFi */
975: if (ps_common_uses_fonts) {
976: fprintf(gpoutfile,"%%%%DocumentFonts: ");
977: while (PS_DocFonts) {
978: struct PS_FontName *fnp;
979: fnp = PS_DocFonts->next;
980: fprintf(gpoutfile, "%s%s", PS_DocFonts->name, fnp ? " " : "\n");
981: free(PS_DocFonts->name);
982: free(PS_DocFonts);
983: PS_DocFonts=fnp;
984: }
985: }
986: if (!ps_common_encap)
987: fprintf(gpoutfile,"%%%%Pages: %d\n",ps_page);
988: }
989:
990:
991: TERM_PUBLIC void PS_linetype(linetype)
992: int linetype;
993: {
994: linetype = (linetype % 9) + 2;
995: if (linetype < 0) linetype = 0;
996: PS_relative_ok = FALSE;
997: #if 0
998: /* In order to make 'PS_linewidth' work properly, I need to comment
999: * this line out. Especially in combination with the line width
1000: * extension of the `set arrow` command this is necessary.
1001: * Can we live with that drawback? (JFi)
1002: */
1003: if (PS_linetype_last == linetype) return;
1004: #endif
1005: PS_linetype_last = linetype;
1006: fprintf(gpoutfile,"LT%c\n", "ba012345678"[linetype]);
1007: ps_path_count = 0;
1008: }
1009:
1010:
1011: TERM_PUBLIC void PS_linewidth (linewidth)
1012: double linewidth;
1013: {
1014: fprintf(gpoutfile,"%.3f UL\n",linewidth);
1015:
1016: /*
1017: Documentation of the 'change linewidth' strategy of the postscript terminal:
1018:
1019: 1. define a new postscript variable with a default value:
1020: /userlinewidth gnulinewidth def
1021:
1022: 2. define a new postscript command to change the contents of that variable:
1023: /UL { gnulinewidth mul /userlinewidth exch def } def
1024: usage: multiplication_factor UL
1025:
1026: 3. modify the already known postscript command /PL for the plot lines:
1027: /PL { stroke userlinewidth setlinewidth } def
1028:
1029: 4. issue the new command before every change of the plot linestyle:
1030: example:
1031: 4.0 UL
1032: LT0
1033: result:
1034: Linetype 0 is drawn four times as thick as defined by the contents
1035: of the postscript variable 'gnulinewidth'.
1036: */
1037: }
1038:
1039:
1040: TERM_PUBLIC void PS_pointsize (ptsize)
1041: double ptsize;
1042: {
1043: fprintf(gpoutfile,"%.3f UP\n",ptsize);
1044:
1045: /*
1046: Documentation of the 'change pointsize' strategy of the postscript terminal:
1047:
1048: 1. define two new postscript variables to hold the overall pointsize:
1049: /hpt_ and /vpt_
1050:
1051: 2. define a new postscript command to use the contents of these variables:
1052: /UP { cf. definition above } def
1053: usage: multiplication_factor UP
1054:
1055: [3.] [doesn't exist, skip to next number]
1056:
1057: 4. issue the new command whereever you change the symbols (and linetype):
1058: example:
1059: 2.5 UP
1060: 4.0 UL % optionally change linewidth, too
1061: LT0
1062: result:
1063: Next symbols will be drawn 2.5 times as big as defined by the
1064: GNUPLOT `set pointsize` command (= overall pointsize).
1065: */
1066: }
1067:
1068:
1069: TERM_PUBLIC void PS_move(x,y)
1070: unsigned int x,y;
1071: {
1072: int dx, dy;
1073: /* Make this semi-dynamic and independent of architecture */
1074: char abso[5+2*INT_STR_LEN], rel[5+2*INT_STR_LEN];
1075: dx = x - PS_pen_x;
1076: dy = y - PS_pen_y;
1077: /* can't cancel all null moves--need a move after stroke'ing */
1078: if (dx==0 && dy==0 && PS_relative_ok)
1079: return;
1080: sprintf(abso, "%d %d M\n", x, y);
1081: sprintf(rel, "%d %d R\n", dx, dy);
1082: if (strlen(rel) < strlen(abso) && PS_relative_ok){
1083: fputs(rel, gpoutfile);
1084: PS_taken++;
1085: }else
1086: fputs(abso, gpoutfile);
1087: PS_relative_ok = TRUE;
1088: ps_path_count += 1;
1089:
1090: PS_pen_x = x;
1091: PS_pen_y = y;
1092: }
1093:
1094: TERM_PUBLIC void PS_vector(x,y)
1095: unsigned int x,y;
1096: {
1097: int dx, dy;
1098: char abso[5+2*INT_STR_LEN], rel[5+2*INT_STR_LEN];
1099: dx = x - PS_pen_x;
1100: dy = y - PS_pen_y;
1101: if (dx==0 && dy==0) return;
1102: sprintf(abso, "%d %d L\n", x, y);
1103: sprintf(rel, "%d %d V\n", dx, dy);
1104: if (strlen(rel) < strlen(abso) && PS_relative_ok){
1105: fputs(rel, gpoutfile);
1106: PS_taken++;
1107: }else
1108: fputs(abso, gpoutfile);
1109: PS_relative_ok = TRUE;
1110: ps_path_count += 1;
1111: PS_pen_x = x;
1112: PS_pen_y = y;
1113: if (ps_path_count >= 400) {
1114: fprintf(gpoutfile,"currentpoint stroke M\n");
1115: ps_path_count = 0;
1116: }
1117: }
1118:
1119:
1120: TERM_PUBLIC void PS_put_text(x,y,str)
1121: unsigned int x, y;
1122: char *str;
1123: {
1124: char ch;
1125: if (!strlen(str)) return;
1126: PS_move(x,y);
1127: if (ps_ang != 0)
1128: fprintf(gpoutfile,"currentpoint gsave translate %d rotate 0 0 M\n"
1129: ,ps_ang*90);
1130: putc('(',gpoutfile);
1131: ch = *str++;
1132: while(ch!='\0') {
1133: if ( (ch=='(') || (ch==')') || (ch=='\\') )
1134: putc('\\',gpoutfile);
1135: putc(ch,gpoutfile);
1136: ch = *str++;
1137: }
1138: switch(ps_justify) {
1139: case LEFT : fprintf(gpoutfile,") Lshow\n");
1140: break;
1141: case CENTRE : fprintf(gpoutfile,") Cshow\n");
1142: break;
1143: case RIGHT : fprintf(gpoutfile,") Rshow\n");
1144: break;
1145: }
1146: if (ps_ang != 0)
1147: fprintf(gpoutfile,"grestore\n");
1148: ps_path_count = 0;
1149: PS_relative_ok = FALSE;
1150: }
1151:
1152:
1153: TERM_PUBLIC int PS_text_angle(ang)
1154: int ang;
1155: {
1156: ps_ang=ang;
1157: return TRUE;
1158: }
1159:
1160:
1161: TERM_PUBLIC int PS_justify_text(mode)
1162: enum JUSTIFY mode;
1163: {
1164: ps_justify=mode;
1165: return TRUE;
1166: }
1167:
1168:
1169: TERM_PUBLIC int PS_set_font(font) /* Entry font added by DJL */
1170: char *font;
1171: {
1172: char name[32];
1173: int size,sep;
1174:
1175: sep=strcspn(font,",");
1176: strncpy(name,font,sep); name[sep]=NUL;
1177: size=ps_fontsize; sscanf (&(font[sep+1]),"%d",&size);
1178: fprintf(gpoutfile,"/%s findfont %d scalefont setfont\n",name,size*PS_SC);
1179: PS_RememberFont(name,1 );
1180: return TRUE;
1181: }
1182:
1183:
1184: /* postscript point routines */
1185:
1186:
1187: TERM_PUBLIC void PS_point(x,y,number)
1188: unsigned int x,y;
1189: int number;
1190: {
1191: static char GPFAR * GPFAR pointFNS[] = {"Pnt", "Pls", "Crs", "Star",
1192: "Box", "BoxF", "Circle", "CircleF",
1193: "TriU", "TriUF", "TriD", "TriDF",
1194: "Dia", "DiaF", "Pent", "PentF",
1195: "C0", "C1", "C2", "C3",
1196: "C4", "C5", "C6", "C7",
1197: "C8", "C9", "C10", "C11",
1198: "C12", "C13", "C14", "C15",
1199: "S0", "S1", "S2", "S3",
1200: "S4", "S5", "S6", "S7",
1201: "S8", "S9", "S10", "S11",
1202: "S12", "S13", "S14", "S15",
1203: "D0", "D1", "D2", "D3",
1204: "D4", "D5", "D6", "D7",
1205: "D8", "D9", "D10", "D11",
1206: "D12", "D13", "D14", "D15",
1207: "BoxE", "CircE", "TriUE", "TriDE",
1208: "DiaE", "PentE", "BoxW", "CircW",
1209: "TriUW", "TriDW", "DiaW", "PentW"
1210: };
1211: if (number < 0)
1212: number = -1; /* negative types are all 'dot' */
1213: else
1214: number %= sizeof(pointFNS)/sizeof(pointFNS[0]) -1;
1215: fprintf(gpoutfile,"%d %d %s\n", x, y, pointFNS[number+1]);
1216:
1217: PS_relative_ok = 0;
1218: ps_path_count = 0;
1219: PS_linetype_last = -1; /* force next linetype change */
1220: }
1221:
1222: TERM_PUBLIC void PS_fillbox(style, x1,y1,x2,y2)
1223: int style;
1224: unsigned int x1,y1,x2,y2;
1225: {
1226: PS_FLUSH_PATH
1227:
1228: fprintf(gpoutfile, "%d %d %d %d BoxFill\n", x1,y1, x2,y2);
1229:
1230: PS_relative_ok = 0;
1231: PS_linetype_last = -1;
1232: }
1233:
1234:
1235: /* ENHPOST */
1236:
1237:
1238: #ifdef DEBUG_ENHPS
1239: #define ENHPS_DEBUG(x) printf x;
1240: #else
1241: #define ENHPS_DEBUG(x)
1242: #endif
1243:
1244:
1245: static TBOOLEAN ENHps_opened_string; /* try to cut out empty ()'s */
1246:
1247: /* used in determining height of processed text */
1248:
1249: static float ENHps_max_height, ENHps_min_height;
1250:
1251:
1252: /* process a bit of string, and return the last character used.
1253: * p is start of string
1254: * brace is TRUE to keep processing to }, FALSE for do one character
1255: * fontname & fontsize are obvious
1256: * base is the current baseline
1257: * widthflag is TRUE if the width of this should count,
1258: * FALSE for zero width boxes
1259: * showflag is TRUE if this should be shown,
1260: * FALSE if it should not be shown (like TeX \phantom)
1261: */
1262:
1263: static char *ENHPS_recurse(p, brace, fontname, fontsize, base, widthflag, showflag)
1264: char *p, *fontname;
1265: TBOOLEAN brace, widthflag, showflag;
1266: double fontsize, base;
1267: {
1268:
1269: /* close a postscript string if it has been opened */
1270: #define ENHPS_FLUSH \
1271: { if (ENHps_opened_string) \
1272: { fputs(")]\n", gpoutfile); \
1273: ENHps_opened_string = FALSE; \
1274: } \
1275: }
1276:
1277: #define ENHPS_OPEN \
1278: { if (!ENHps_opened_string) \
1279: { fprintf(gpoutfile, "[(%s) %.1f %.1f %s %s (", \
1280: fontname, fontsize, base, \
1281: widthflag ? "true" : "false", \
1282: showflag ? "true" : "false"); \
1283: ENHps_opened_string = TRUE; \
1284: } \
1285: }
1286:
1287: ENHPS_DEBUG(("RECURSE WITH [%p] \"%s\", %d %s %.1f %.1f %d %d\n", p, p, brace, fontname, fontsize, base, widthflag, showflag))
1288:
1289: /* Start each recursion with a clean string */
1290: ENHPS_FLUSH
1291:
1292: if (base + fontsize > ENHps_max_height)
1293: { ENHps_max_height = base + fontsize;
1294: ENHPS_DEBUG(("Setting max height to %.1f\n", ENHps_max_height));
1295: }
1296:
1297: if (base < ENHps_min_height)
1298: { ENHps_min_height = base;
1299: ENHPS_DEBUG(("Setting min height to %.1f\n", ENHps_min_height));
1300: }
1301:
1302: while (*p)
1303: { float shift;
1304:
1305: switch (*p)
1306: {
1307: case '}' :
1308: /*{{{ deal with it*/
1309: if (brace)
1310: return (p);
1311:
1312: fprintf(stderr, "enhpost printer driver - spurious }\n");
1313: break;
1314: /*}}}*/
1315:
1316: case '_' :
1317: case '^' :
1318: /*{{{ deal with super/sub script*/
1319:
1320: shift = (*p == '^') ? 0.5 : -0.3;
1321:
1322: ENHPS_FLUSH
1323:
1324: p = ENHPS_recurse(p+1, FALSE, fontname, fontsize*0.8, base+shift*fontsize, widthflag, showflag);
1325:
1326: break;
1327: /*}}}*/
1328:
1329: case '{' :
1330: {
1331: char *savepos=NULL, save=0;
1332: char *localfontname=fontname, ch;
1333: int recode=1;
1334: float f=fontsize;
1335:
1336: /*{{{ recurse (possibly with a new font) */
1337:
1338: ENHPS_DEBUG(("Dealing with {\n"))
1339:
1340: if (*++p == '/')
1341: { /* then parse a fontname, optional fontsize */
1342: while (*++p == ' ');
1343: if (*p=='-')
1344: {
1345: recode=0;
1346: while (*++p == ' ');
1347: }
1348: localfontname = p;
1349: while ((ch = *p) > ' ' && ch != '=' && ch != '*')
1350: ++p;
1351: save = *(savepos=p);
1352: if (ch == '=')
1353: {
1354: *p++ = '\0';
1355: /*{{{ get optional font size*/
1356: ENHPS_DEBUG(("Calling strtod(\"%s\") ...", p))
1357: f = (float)strtod(p, &p);
1358: ENHPS_DEBUG(("Returned %.1f and \"%s\"\n", f, p))
1359:
1360: if (f)
1361: f *= PS_SC; /* remember the scaling */
1362: else
1363: f = fontsize;
1364:
1365: ENHPS_DEBUG(("Font size %.1f\n", f))
1366: /*}}}*/
1367: }
1368: else if (ch == '*')
1369: {
1370: *p++ = '\0';
1371: /*{{{ get optional font size scale factor*/
1372: ENHPS_DEBUG(("Calling strtod(\"%s\") ...", p))
1373: f = (float)strtod(p, &p);
1374: ENHPS_DEBUG(("Returned %.1f and \"%s\"\n", f, p))
1375:
1376: if (f)
1377: f *= fontsize; /* apply the scale factor */
1378: else
1379: f = fontsize;
1380:
1381: ENHPS_DEBUG(("Font size %.1f\n", f))
1382: /*}}}*/
1383: }
1384: else
1385: {
1386: *p++ = '\0';
1387: f = fontsize;
1388: }
1389:
1390: while (*p == ' ')
1391: ++p;
1392: if (*localfontname)
1393: {
1394: /* only allow RememberFont to re-encode it if no string active */
1395: char *recodestring = PS_RememberFont(localfontname, recode && !ENHps_opened_string);
1396: if (recode && recodestring)
1397: {
1398: ENHPS_FLUSH
1399: fprintf(gpoutfile, "/%s %s", localfontname, recodestring);
1400: }
1401: }
1402: else
1403: localfontname = fontname;
1404: }
1405: /*}}}*/
1406:
1407: ENHPS_DEBUG(("Before recursing, we are at [%p] \"%s\"\n", p, p))
1408:
1409: p = ENHPS_recurse(p, TRUE, localfontname, f, base, widthflag, showflag);
1410:
1411: ENHPS_DEBUG(("BACK WITH \"%s\"\n", p));
1412:
1413: ENHPS_FLUSH
1414:
1415: if (savepos)
1416: /* restore overwritten character */
1417: *savepos = save;
1418:
1419: break;
1420: }
1421:
1422: case '@' :
1423: /*{{{ phantom box - prints next 'char', then restores currentpoint */
1424:
1425: ENHPS_FLUSH
1426:
1427: p = ENHPS_recurse(++p, FALSE, fontname, fontsize, base, FALSE, showflag);
1428:
1429: break;
1430: /*}}}*/
1431:
1432: case '&' :
1433: /*{{{ character skip - skips space equal to length of character(s) */
1434:
1435: ENHPS_FLUSH
1436:
1437: p = ENHPS_recurse(++p, FALSE, fontname, fontsize, base, widthflag, FALSE);
1438:
1439: break;
1440: /*}}}*/
1441:
1442: case '(' :
1443: case ')' :
1444: /*{{{ an escape and print it */
1445: /* special cases */
1446: ENHPS_OPEN
1447: fputc('\\', gpoutfile);
1448: fputc(*p, gpoutfile);
1449: break;
1450: /*}}}*/
1451:
1452: case '\\' :
1453: /*{{{ is it an escape */
1454: /* special cases */
1455:
1456: if (p[1]=='\\' || p[1]=='(' || p[1]==')')
1457: {
1458: ENHPS_OPEN
1459: fputc('\\', gpoutfile);
1460: }
1461: else if (p[1] >= '0' && p[1] <= '7')
1462: {
1463: /* up to 3 octal digits */
1464: ENHPS_OPEN
1465: fputc('\\', gpoutfile);
1466: fputc(p[1], gpoutfile);
1467: ++p;
1468: if (p[1] >= '0' && p[1] <= '7')
1469: {
1470: fputc(p[1], gpoutfile);
1471: ++p;
1472: if (p[1] >= '0' && p[1] <= '7')
1473: {
1474: fputc(p[1], gpoutfile);
1475: ++p;
1476: }
1477: }
1478: break;
1479: }
1480:
1481: ++p;
1482: /* just go and print it (fall into the 'default' case) */
1483:
1484: /*}}}*/
1485: default:
1486: /*{{{ print it */
1487: ENHPS_OPEN
1488:
1489: fputc(*p, gpoutfile);
1490:
1491: /*}}}*/
1492:
1493: }
1494:
1495: /* like TeX, we only do one character in a recursion, unless it's
1496: * in braces
1497: */
1498:
1499: if (!brace)
1500: {
1501: ENHPS_FLUSH
1502: return(p); /* the ++p in the outer copy will increment us */
1503: }
1504:
1505: if (*p) /* only not true if { not terminated, I think */
1506: ++p;
1507: }
1508: ENHPS_FLUSH
1509: return p;
1510: }
1511:
1512:
1513: /* a set-font routine for enhanced post : simply copies
1514: * the font into a global, or restores the globals
1515: * to the ps_font default
1516: */
1517:
1518: TERM_PUBLIC int ENHPS_set_font(font) /* Entry font added by DJL */
1519: char *font;
1520: {
1521: ENHPS_DEBUG(("ENHPS_set_font(\"%s\")\n", font));
1522:
1523: if (*font)
1524: {
1525: int sep=strcspn(font,",");
1526: strncpy(ps_enh_font,font,sep); ps_enh_font[sep]=NUL;
1527: ps_enh_fontsize=ps_fontsize; sscanf (font+sep+1,"%d",&ps_enh_fontsize);
1528: PS_RememberFont(ps_enh_font, 1);
1529: }
1530: else
1531: {
1532: /* return to defaults */
1533: strcpy(ps_enh_font, ps_font);
1534: ps_enh_fontsize = ps_fontsize;
1535: }
1536:
1537: return TRUE;
1538: }
1539:
1540: TERM_PUBLIC void ENHPS_put_text(x, y, str)
1541: unsigned int x, y;
1542: char *str;
1543: {
1544: /* flush any pending graphics (all the XShow routines do this...) */
1545:
1546: if (!strlen(str))
1547: return;
1548:
1549: if (ps_path_count)
1550: {
1551: fputs(" stroke\n",gpoutfile);
1552: ps_path_count=0;
1553: PS_relative_ok=FALSE;
1554: }
1555:
1556: /* if there are no magic characters, we should just be able
1557: * punt the string to PS_put_text(), which will give shorter
1558: * ps output [eg tics and stuff rarely need extra processing],
1559: * but we need to make sure that the current font is the
1560: * default one before we can do that. {ie I tried it and it
1561: * used the wrong font !}
1562: * if (!strpbrk(str, "{}^_@&"))
1563: * {
1564: * - do something to ensure default font is selected
1565: * PS_put_text(x,y,str);
1566: * return;
1567: * }
1568: */
1569:
1570:
1571: PS_move(x,y);
1572:
1573: if (ps_ang != 0)
1574: fprintf(gpoutfile,"currentpoint gsave translate %d rotate 0 0 moveto\n",
1575: ps_ang*90);
1576:
1577: fputs("[ ",gpoutfile);
1578:
1579: /* set up the globals */
1580:
1581: ENHps_opened_string = FALSE;
1582: ENHps_max_height = -1000;
1583: ENHps_min_height = 1000;
1584:
1585: /* Set the recursion going. We say to keep going until a
1586: * closing brace, but we don't really expect to find one.
1587: * If the return value is not the nul-terminator of the
1588: * string, that can only mean that we did find an unmatched
1589: * closing brace in the string. We increment past it (else
1590: * we get stuck in an infinite loop) and try again.
1591: *
1592: * ps_enh_font and ps_enh_fontsize are either set to the
1593: * the defaults set on option line, or have been set to
1594: * "font,size". That is to say, ps_font is used only
1595: * at startup and by ENHPS_set_font
1596: */
1597: while (*(str = ENHPS_recurse(str, TRUE, ps_enh_font,
1598: (double)(ps_enh_fontsize*PS_SC),
1599: 0.0, TRUE, TRUE)))
1600: {
1601: ENHPS_FLUSH
1602:
1603: /* I think we can only get here if *str == '}' */
1604: if (*str == '}')
1605: fprintf(stderr, "enhpost printer driver - ignoring spurious }\n");
1606: else
1607: fprintf(stderr, "internal error in enhpost driver - *str=0x%x\n", *str);
1608:
1609: if (!*++str)
1610: break; /* end of string */
1611:
1612: /* else carry on and process the rest of the string */
1613: }
1614:
1615: ENHps_max_height += ENHps_min_height;
1616:
1617: fprintf(gpoutfile, "] %.1f ", -ENHps_max_height/3);
1618:
1619: switch(ps_justify)
1620: {
1621: case LEFT : fprintf(gpoutfile, "MLshow\n");
1622: break;
1623: case CENTRE : fprintf(gpoutfile, "MCshow\n");
1624: break;
1625: case RIGHT : fprintf(gpoutfile, "MRshow\n");
1626: break;
1627: }
1628:
1629: if (ps_ang != 0)
1630: fputs("grestore\n", gpoutfile);
1631: ps_path_count = 0;
1632: PS_relative_ok=FALSE;
1633: }
1634:
1635:
1636:
1637:
1638:
1639: #endif /* TERM_BODY */
1640:
1641: #ifdef TERM_TABLE
1642:
1643: TERM_TABLE_START(post_driver)
1644:
1645: "postscript",
1646: "PostScript graphics language [mode \042fontname\042 font_size]",
1647: PS_XMAX, PS_YMAX, PS_VCHAR, PS_HCHAR,
1648: PS_VTIC, PS_HTIC, PS_options, PS_init, PS_reset,
1649: PS_text, null_scale, PS_graphics, PS_move, PS_vector,
1650: PS_linetype, PS_put_text, PS_text_angle,
1651: PS_justify_text, PS_point, do_arrow, PS_set_font, PS_pointsize,
1652: 0 /*flags*/, 0 /*suspend*/, 0 /*resume*/, PS_fillbox, PS_linewidth
1653:
1654: TERM_TABLE_END(post_driver)
1655:
1656: #undef LAST_TERM
1657: #define LAST_TERM post_driver
1658:
1659: #endif /* TERM_TABLE */
1660:
1661: #endif /* TERM_PROTO_ONLY */
1662:
1663: #ifdef TERM_HELP
1664: START_HELP(post)
1665: "1 postscript",
1666: "?commands set terminal postscript",
1667: "?set terminal postscript",
1668: "?set term postscript",
1669: "?terminal postscript",
1670: "?term postscript",
1671: "?postscript",
1672: " Several options may be set in the `postscript` driver.",
1673: "",
1674: " Syntax:",
1675: " set terminal postscript {<mode>} {enhanced | noenhanced}",
1676: " {color | monochrome} {solid | dashed}",
1677: " {<duplexing>}",
1678: " {\"<fontname>\"} {<fontsize>}",
1679: "",
1680: " where <mode> is `landscape`, `portrait`, `eps` or `default`;",
1681: " `solid` draws all plots with solid lines, overriding any dashed patterns;",
1682: " <duplexing> is `defaultplex`, `simplex` or `duplex` (\"duplexing\" in",
1683: " PostScript is the ability of the printer to print on both sides of the same",
1684: " page---don't set this if your printer can't do it);",
1685: " `enhanced` activates the \"enhanced PostScript\" features (subscripts,",
1686: " superscripts and mixed fonts);",
1687: " `\"<fontname>\"` is the name of a valid PostScript font; and `<fontsize>` is",
1688: " the size of the font in PostScript points.",
1689: "",
1690: " `default` mode sets all options to their defaults: `landscape`, `monochrome`,",
1691: " `dashed`, `defaultplex`, `noenhanced`, \"Helvetica\" and 14pt.",
1692: " Default size of a PostScript plot is 10 inches wide and 7 inches high.",
1693: "",
1694: " `eps` mode generates EPS (Encapsulated PostScript) output, which is just",
1695: " regular PostScript with some additional lines that allow the file to be",
1696: " imported into a variety of other applications. (The added lines are",
1697: " PostScript comment lines, so the file may still be printed by itself.) To",
1698: " get EPS output, use the `eps` mode and make only one plot per file. In `eps`",
1699: " mode the whole plot, including the fonts, is reduced to half of the default",
1700: " size.",
1701: "",
1702: " Examples:",
1703: " set terminal postscript default # old postscript",
1704: " set terminal postscript enhanced # old enhpost",
1705: " set terminal postscript landscape 22 # old psbig",
1706: " set terminal postscript eps 14 # old epsf1",
1707: " set terminal postscript eps 22 # old epsf2",
1708: " set size 0.7,1.4; set term post portrait color \"Times-Roman\" 14",
1709: "",
1710: " Linewidths and pointsizes may be changed with `set linestyle`.",
1711: "",
1712: " The `postscript` driver supports about 70 distinct pointtypes, selectable",
1713: " through the `pointtype` option on `plot` and `set linestyle`.",
1714: "",
1715: " Several possibly useful files about `gnuplot`'s PostScript are included",
1716: " in the /docs/ps subdirectory of the `gnuplot` distribution and at the",
1717: " distribution sites. These are \"ps_symbols.gpi\" (a `gnuplot` command file",
1718: " that, when executed, creates the file \"ps_symbols.ps\" which shows all the",
1719: " symbols available through the `postscript` terminal), \"ps_guide.ps\" (a",
1720: " PostScript file that contains a summary of the enhanced syntax and a page",
1721: " showing what the octal codes produce with text and symbol fonts) and",
1722: " \"ps_file.doc\" (a text file that contains a discussion of the organization",
1723: " of a PostScript file written by `gnuplot`).",
1724: "",
1725: " A PostScript file is editable, so once `gnuplot` has created one, you are",
1726: " free to modify it to your heart's desire. See the \"editing postscript\"",
1727: " section for some hints.",
1728: "2 enhanced postscript",
1729: "?commands set terminal postscript enhanced",
1730: "?set terminal postscript enhanced",
1731: "?set term postscript enhanced",
1732: "?terminal postscript enhanced",
1733: "?term postscript enhanced",
1734: "?enhanced_postscript",
1735: "@start table - first is interactive cleartext form",
1736: " Control Examples Explanation",
1737: " ^ a^x superscript",
1738: " _ a_x subscript",
1739: " @ @x or a@^b_c phantom box (occupies no width)",
1740: " & &{space} inserts space of specified length",
1741: "#\\begin{tabular}{|ccl|} \\hline",
1742: "#\\multicolumn{3}{|c|}{Enhanced Text Control Codes} \\\\ \\hline",
1743: "#Control & Examples & Explanation \\\\ \\hline",
1744: "#\\verb~^~ & \\verb~a^x~ & superscript\\\\",
1745: "#\\verb~_~ & \\verb~a_x~ & subscript\\\\",
1746: "#\\verb~@~ & \\verb~@x or a@^b_c~ & phantom box (occupies no width)\\\\",
1747: "#\\verb~&~ & \\verb~&{space}~ & inserts space of specified length\\\\",
1748: "%c c l .",
1749: "%.TE", /* ugly - doc2ms uses @ for column separator, but here we */
1750: "%.TS", /* need @ in table, so end and restart the table ! */
1751: "%center box tab ($) ;",
1752: "%c c l .",
1753: "%Control$Examples$Explanation",
1754: "%_",
1755: "%^$a^x$superscript",
1756: "%\\&_$a\\&_x$subscript",
1757: "% @ $ @x or a\\&@^b\\&_c$phantom box (occupies no width)",
1758: "% & $ &{space}$inserts space of specified length",
1759: "@end table",
1760: "",
1761: " Braces can be used to place multiple-character text where a single character",
1762: " is expected (e.g., 2^{10}). To change the font and/or size, use the full",
1763: " form: {/[fontname][=fontsize | *fontscale] text}. Thus {/Symbol=20 G} is a",
1764: " 20-point GAMMA) and {/*0.75 K} is a K at three-quarters of whatever fontsize",
1765: " is currently in effect. (The '/' character MUST be the first character after",
1766: " the '{'.)",
1767: "",
1768: " If the encoding vector has been changed by `set encoding`, the default",
1769: " encoding vector can be used instead by following the slash with a dash. This",
1770: " is unnecessary if you use the Symbol font, however---since /Symbol uses its",
1771: " own encoding vector, `gnuplot` will not apply any other encoding vector to",
1772: " it.",
1773: "",
1774: " The phantom box is useful for a@^b_c to align superscripts and subscripts",
1775: " but does not work well for overwriting an accent on a letter. (To do the",
1776: " latter, it is much better to use `set encoding iso_8859_1` to change to the",
1777: " ISO Latin-1 encoding vector, which contains a large variety of letters with",
1778: " accents or other diacritical marks.) Since the box is non-spacing, it is",
1779: " sensible to put the shorter of the subscript or superscript in the box (that",
1780: " is, after the @).",
1781: "",
1782: " Space equal in length to a string can be inserted using the '&' character.",
1783: " Thus",
1784: " 'abc&{def}ghi'",
1785: " would produce",
1786: " 'abc ghi'.",
1787: "",
1788: " You can access special symbols numerically by specifying \\character-code (in",
1789: " octal), e.g., {/Symbol \\245} is the symbol for infinity.",
1790: "",
1791: " You can escape control characters using \\, e.g., \\\\, \\{, and so on.",
1792: "",
1793: " But be aware that strings in double-quotes are parsed differently than those",
1794: " enclosed in single-quotes. The major difference is that backslashes may need",
1795: " to be doubled when in double-quoted strings.",
1796: "",
1797: " Examples (these are hard to describe in words---try them!):",
1798: " set xlabel 'Time (10^6 {/Symbol m}s)'",
1799: " set title '{/Symbol=18 \\362@_{/=9.6 0}^{/=12 x}} \\",
1800: " {/Helvetica e^{-{/Symbol m}^2/2} d}{/Symbol m}'",
1801: "",
1802: " The file \"ps_guide.ps\" in the /docs/ps subdirectory of the `gnuplot` source",
1803: " distribution contains more examples of the enhanced syntax.",
1804: "2 editing postscript",
1805: "?commands set terminal postscript editing",
1806: "?set terminal postscript editing",
1807: "?set term postscript editing",
1808: "?terminal postscript editing",
1809: "?term postscript editing",
1810: "?editing_postscript",
1811: " The PostScript language is a very complex language---far too complex to",
1812: " describe in any detail in this document. Nevertheless there are some things",
1813: " in a PostScript file written by `gnuplot` that can be changed without risk of",
1814: " introducing fatal errors into the file.",
1815: "",
1816: " For example, the PostScript statement \"/Color true def\" (written into the",
1817: " file in response to the command `set terminal postscript color`), may be",
1818: " altered in an obvious way to generate a black-and-white version of a plot.",
1819: " Similarly line colors, text colors, line weights and symbol sizes can also be",
1820: " altered in straight-forward ways. Text (titles and labels) can be edited to",
1821: " correct misspellings or to change fonts. Anything can be repositioned, and",
1822: " of course anything can be added or deleted, but modifications such as these",
1823: " may require deeper knowledge of the PostScript language.",
1824: "",
1825: " The organization of a PostScript file written by `gnuplot` is discussed in",
1826: " the text file \"ps_file.doc\" in the /docs/ps subdirectory."
1827: END_HELP(post)
1828: #endif
1829:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to post.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term