Annotation of OpenXM_contrib/gnuplot/term/ai.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: ai.trm,v 1.18 1998/04/14 00:17:28 drd Exp $
3: *
4: */
5:
6: /* GNUPLOT - ai.trm */
7:
8: /*[
9: * Copyright 1991, 1992, 1993, 1998
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: * aifm
43: *
44: * AUTHORS
45: * Ray Ghanbari
46: *
47: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
48: *
49: * The 'aifm' driver produces files editable by Adobe Illustrator 3.0
50: * To change font to Courier and font size to 20pts use
51: * 'set term aifm "Courier" 20'.
52: * To switch to color output use
53: * 'set term aifm color'.
54: */
55:
56: /* AIFM driver by Ray Ghanbari, ray@mtl.mit.edu,
57: * based on PostScript driver by Russell Lang, rjl@monu1.cc.monash.edu.au */
58:
59: /* Changed to 3.6 terminal format, David C. Schooley, 9/29/95 */
60: /* Improved multiple plot support, David C. Schooley, 6/5/95 */
61: /* Compatiblity with Illustrator 7.0, David C. Schooley, 6/5/95 */
62: /* Font and size support for labels, David C. Schooley, 6/5/95 */
63:
64: #include "driver.h"
65:
66: #ifdef TERM_REGISTER
67: register_term(aifm)
68: #endif
69:
70: #ifdef TERM_PROTO
71: TERM_PUBLIC void AI_init __PROTO((void));
72: TERM_PUBLIC void AI_graphics __PROTO((void));
73: TERM_PUBLIC void AI_text __PROTO((void));
74: TERM_PUBLIC void AI_linetype __PROTO((int linetype));
75: TERM_PUBLIC void AI_move __PROTO((unsigned int x, unsigned int y));
76: TERM_PUBLIC void AI_vector __PROTO((unsigned int x, unsigned int y));
77: TERM_PUBLIC void AI_put_text __PROTO((unsigned int x, unsigned int y, char *str));
78: TERM_PUBLIC int AI_text_angle __PROTO((int ang));
79: TERM_PUBLIC void AI_reset __PROTO((void));
80: TERM_PUBLIC void AI_options __PROTO((void));
81: TERM_PUBLIC int AI_justify_text __PROTO((enum JUSTIFY mode));
82: TERM_PUBLIC void AI_suspend __PROTO(());
83: TERM_PUBLIC void AI_resume __PROTO(());
84: TERM_PUBLIC int AI_set_font __PROTO((char *font));
85:
86: #define AI_XOFF 50 /* page offset in pts */
87: #define AI_YOFF 50
88:
89: #define AI_XMAX 5000
90: #define AI_YMAX 3500
91:
92: #define AI_XLAST (AI_XMAX - 1)
93: #define AI_YLAST (AI_YMAX - 1)
94:
95: #define AI_VTIC (AI_YMAX/80)
96: #define AI_HTIC (AI_YMAX/80)
97:
98: #define AI_SC (10.0) /* scale is 1pt = 10 units */
99: #define AI_LW (0.5*AI_SC) /* linewidth = 0.5 pts */
100:
101: #define AI_VCHAR (14*AI_SC) /* default is 14 point characters */
102: #define AI_HCHAR (14*AI_SC*6/10)
103:
104: #endif
105:
106:
107:
108: #ifndef TERM_PROTO_ONLY
109: #ifdef TERM_BODY
110:
111: /* From version.c */
112: extern char version[];
113: extern char patchlevel[];
114:
115: char ai_font[MAX_ID_LEN + 1] = "Times-Roman"; /* name of font */
116: int ai_fontsize = 14; /* size of font in pts */
117: char ai_oldfont[MAX_ID_LEN + 1] = "Times-Roman"; /* name of font */
118: int ai_oldfontsize = 14; /* size of font in pts */
119: TBOOLEAN ai_color = FALSE;
120: TBOOLEAN ai_stroke = FALSE;
121: int ai_page = 0; /* page count */
122: int ai_path_count = 0; /* count of lines in path */
123: int ai_ang = 0; /* text angle */
124: int ai_subgroup_level = 0; /* depth of sub-groups */
125: int ai_multiplot_group = 0; /* group for multiplot */
126: enum JUSTIFY ai_justify = LEFT; /* text is flush left */
127:
128:
129: TERM_PUBLIC void AI_options()
130: {
131: if (!END_OF_COMMAND) {
132: if (almost_equals(c_token, "d$efault")) {
133: ai_color = FALSE;
134: strcpy(ai_font, "Times-Roman");
135: ai_fontsize = 14;
136: strcpy(ai_oldfont, "Times-Roman");
137: ai_oldfontsize = 14;
138: c_token++;
139: }
140: }
141: if (!END_OF_COMMAND) {
142: if (almost_equals(c_token, "m$onochrome")) {
143: ai_color = FALSE;
144: c_token++;
145: } else if (almost_equals(c_token, "c$olor")
146: || almost_equals(c_token, "c$olour")) {
147: ai_color = TRUE;
148: c_token++;
149: }
150: }
151: if (!END_OF_COMMAND && isstring(c_token)) {
152: quote_str(ai_font, c_token, MAX_ID_LEN);
153: strcpy(ai_oldfont, ai_font);
154: c_token++;
155: }
156: if (!END_OF_COMMAND) {
157: /* We have font size specified */
158: struct value a;
159: ai_fontsize = (int) real(const_express(&a));
160: ai_oldfontsize = ai_fontsize;
161: c_token++;
162: term->v_char = (unsigned int) (ai_fontsize * AI_SC);
163: term->h_char = (unsigned int) (ai_fontsize * AI_SC * 6 / 10);
164: }
165: sprintf(term_options, "%s \"%s\" %d",
166: ai_color ? "color" : "monochrome", ai_font, ai_fontsize);
167: }
168:
169:
170: TERM_PUBLIC void AI_init()
171: {
172: ai_page = 0;
173:
174: fprintf(gpoutfile, "%%!PS-Adobe-2.0 EPSF-1.2\n\
175: %%%%Creator: Adobe Illustrator(TM) 3.2\n\
176: %%%%TrueCreator: gnuplot %s patchlevel %s ai terminal\n\
177: %%%%BoundingBox: %d %d %d %d\n\
178: %%%%Template:\n\
179: %%%%EndComments\n\
180: %%%%EndProlog\n",
181: version, patchlevel,
182: AI_XOFF, AI_YOFF,
183: (int) ((AI_XMAX) / AI_SC + 0.5 + AI_XOFF),
184: (int) ((AI_YMAX) / AI_SC + 0.5 + AI_YOFF));
185: }
186:
187:
188: TERM_PUBLIC void AI_graphics()
189: {
190: ai_page++;
191: /* fprintf(gpoutfile,"%%%%Page: %d %d\n",ai_page,ai_page);*/
192: fputs("\
193: 0 G\n\
194: 1 j\n\
195: 1 J\n\
196: u\n", gpoutfile);
197: ai_path_count = 0;
198: ai_stroke = FALSE;
199: }
200:
201:
202: TERM_PUBLIC void AI_text()
203: {
204: if (ai_stroke) {
205: fputs("S\n", gpoutfile);
206: ai_stroke = FALSE;
207: }
208: while (ai_subgroup_level) {
209: fputs("U\n", gpoutfile);
210: ai_subgroup_level--;
211: }
212: fputs("U\n", gpoutfile);
213: ai_path_count = 0;
214: ai_multiplot_group = 0;
215: }
216:
217:
218: TERM_PUBLIC void AI_reset()
219: {
220: fputs("%%%%Trailer\n", gpoutfile);
221: /* fprintf(gpoutfile,"%%%%Pages: %d\n",ai_page);*/
222: }
223:
224:
225: TERM_PUBLIC void AI_linetype(linetype)
226: int linetype;
227: {
228: if (ai_stroke) {
229: fputs("S\n", gpoutfile);
230: ai_stroke = FALSE;
231: }
232: if (ai_subgroup_level) {
233: fputs("U\n", gpoutfile);
234: ai_subgroup_level--;
235: }
236: if (linetype == -2 && multiplot) {
237: /* for each new plot, line_type gets called twice with a value of -2.
238: It gets called once for the border and again for the tics.
239: This code will need to be changed if gnuplot's behavior changes.
240: */
241: switch (ai_multiplot_group) {
242: case 0:
243: fputs("u\n", gpoutfile);
244: ai_subgroup_level++;
245: ai_multiplot_group = 1;
246: break;
247: case 1:
248: ai_multiplot_group = 2;
249: break;
250: case 2:
251: ai_multiplot_group = 1;
252: fputs("U\nu\n", gpoutfile);
253: break;
254: }
255: }
256: if (linetype == -2 && !multiplot) {
257: if (ai_multiplot_group) {
258: fputs("U\n", gpoutfile);
259: ai_subgroup_level--;
260: ai_multiplot_group = 0;
261: }
262: }
263: fputs("u\n", gpoutfile);
264: ai_subgroup_level++;
265:
266: switch (linetype) {
267: case -2:
268: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC * 2.0);
269: if (ai_color) {
270: fputs("0 0 0 1 K\n", gpoutfile);
271: } else {
272: fputs("[] 0 d\n", gpoutfile);
273: }
274: break;
275:
276: case -1:
277: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC / 2.0);
278: if (ai_color) {
279: fputs("0 0 0 1 K\n", gpoutfile);
280: } else {
281: fputs("[1 2] 0 d\n", gpoutfile);
282: }
283: break;
284:
285: case 0:
286: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC);
287: if (ai_color) {
288: fputs("1 0 1 0 K\n", gpoutfile);
289: } else {
290: fputs("[] 0 d\n", gpoutfile);
291: }
292: break;
293:
294: case 1:
295: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC);
296: if (ai_color) {
297: fputs("1 1 0 0 K\n", gpoutfile);
298: } else {
299: fputs("[4 2] 0 d\n", gpoutfile);
300: }
301: break;
302:
303: case 2:
304: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC);
305: if (ai_color) {
306: fputs("0 1 1 0 K\n", gpoutfile);
307: } else {
308: fputs("[2 3] 0 d\n", gpoutfile);
309: }
310: break;
311:
312: case 3:
313: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC);
314: if (ai_color) {
315: fputs("0 1 0 0 K\n", gpoutfile);
316: } else {
317: fputs("[1 1.5] 0 d\n", gpoutfile);
318: }
319: break;
320:
321: case 4:
322: fprintf(gpoutfile, "%f w\n", AI_LW / AI_SC);
323: if (ai_color) {
324: fputs("1 0 0 0 K\n", gpoutfile);
325: } else {
326: fputs("[5 2 1 2] 0 d\n", gpoutfile);
327: }
328: break;
329:
330: case 5:
331: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC);
332: if (ai_color) {
333: fputs("0 0 1 0 K\n", gpoutfile);
334: } else {
335: fputs("[4 3 1 3] 0 d\n", gpoutfile);
336: }
337: break;
338:
339: case 6:
340: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC);
341: if (ai_color) {
342: fputs("0 0 0 1 K\n", gpoutfile);
343: } else {
344: fputs("[2 2 2 4] 0 d\n", gpoutfile);
345: }
346: break;
347:
348: case 7:
349: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC);
350: if (ai_color) {
351: fputs("0 0.7 1 0 K\n", gpoutfile);
352: } else {
353: fputs("[2 2 2 2 2 4] 0 d\n", gpoutfile);
354: }
355: break;
356:
357: case 8:
358: fprintf(gpoutfile, "%.2f w\n", AI_LW / AI_SC);
359: if (ai_color) {
360: fputs("0.5 0.5 0.5 0 K\n", gpoutfile);
361: } else {
362: fputs("[2 2 2 2 2 2 2 4] 0 d\n", gpoutfile);
363: }
364: break;
365: }
366:
367: ai_path_count = 0;
368: }
369:
370:
371: TERM_PUBLIC void AI_move(x, y)
372: unsigned int x, y;
373: {
374: if (ai_stroke)
375: fputs("S\n", gpoutfile);
376: fprintf(gpoutfile, "%.2f %.2f m\n", x / AI_SC, y / AI_SC);
377: ai_path_count += 1;
378: ai_stroke = TRUE;
379: }
380:
381:
382: TERM_PUBLIC void AI_vector(x, y)
383: unsigned int x, y;
384: {
385: fprintf(gpoutfile, "%.2f %.2f l\n", x / AI_SC, y / AI_SC);
386: ai_path_count += 1;
387: ai_stroke = TRUE;
388: if (ai_path_count >= 400) {
389: fprintf(gpoutfile, "S\n%.2f %.2f m\n", x / AI_SC, y / AI_SC);
390: ai_path_count = 0;
391: }
392: }
393:
394:
395: TERM_PUBLIC void AI_put_text(x, y, str)
396: unsigned int x, y;
397: char *str;
398: {
399: char ch;
400: if (ai_stroke) {
401: fputs("S\n", gpoutfile);
402: ai_stroke = FALSE;
403: }
404: switch (ai_justify) {
405: case LEFT:
406: fprintf(gpoutfile, "/_%s %d 0 0 0 z\n", ai_font, ai_fontsize);
407: break;
408: case CENTRE:
409: fprintf(gpoutfile, "/_%s %d 0 0 1 z\n", ai_font, ai_fontsize);
410: break;
411: case RIGHT:
412: fprintf(gpoutfile, "/_%s %d 0 0 2 z\n", ai_font, ai_fontsize);
413: break;
414: }
415: if (ai_ang == 0) {
416: fprintf(gpoutfile, "[ 1 0 0 1 %.2f %.2f] e\n",
417: x / AI_SC, y / AI_SC - ai_fontsize / 3.0);
418: } else {
419: fprintf(gpoutfile, "[ 0 1 -1 0 %.2f %.2f] e\n",
420: x / AI_SC - ai_fontsize / 3.0, y / AI_SC);
421: }
422:
423: putc('(', gpoutfile);
424: ch = *str++;
425: while (ch != '\0') {
426: if ((ch == '(') || (ch == ')') || (ch == '\\'))
427: putc('\\', gpoutfile);
428: putc(ch, gpoutfile);
429: ch = *str++;
430: }
431: fputs(") t\nT\n", gpoutfile);
432: ai_path_count = 0;
433: }
434:
435: TERM_PUBLIC int AI_text_angle(ang)
436: int ang;
437: {
438: ai_ang = ang;
439: return TRUE;
440: }
441:
442: TERM_PUBLIC int AI_justify_text(mode)
443: enum JUSTIFY mode;
444: {
445: ai_justify = mode;
446: return TRUE;
447: }
448:
449: TERM_PUBLIC int AI_set_font(font) /* Entry font added by DJL */
450: char *font;
451: {
452: char name[32];
453: int size, sep;
454:
455: if (font && *font) {
456: sep = strcspn(font, ",");
457: strncpy(name, font, sep);
458: name[sep] = '\0';
459: size = ai_fontsize;
460: sscanf(&(font[sep + 1]), "%d", &size);
461: if (*name)
462: strcpy(ai_font, name);
463: if (size)
464: ai_fontsize = size;
465: } else {
466: ai_fontsize = ai_oldfontsize;
467: strcpy(ai_font, ai_oldfont);
468: }
469: return TRUE;
470: }
471:
472:
473: TERM_PUBLIC void AI_suspend()
474: {
475: }
476:
477: TERM_PUBLIC void AI_resume()
478: {
479: }
480:
481:
482: #endif
483:
484:
485: #ifdef TERM_TABLE
486:
487: TERM_TABLE_START(aifm_driver)
488: "aifm", "Adobe Illustrator 3.0 Format",
489: AI_XMAX, AI_YMAX, AI_VCHAR, AI_HCHAR,
490: AI_VTIC, AI_HTIC, AI_options, AI_init, AI_reset,
491: AI_text, null_scale, AI_graphics, AI_move, AI_vector,
492: AI_linetype, AI_put_text, AI_text_angle,
493: AI_justify_text, do_point, do_arrow, AI_set_font,
494: NULL, 0, AI_suspend, AI_resume
495: TERM_TABLE_END(aifm_driver)
496:
497: #undef LAST_TERM
498: #define LAST_TERM aifm_driver
499:
500: #endif /* TERM_TABLE */
501: #endif /* TERM_PROTO_ONLY */
502:
503: #ifdef TERM_HELP
504: START_HELP(aifm)
505: "1 aifm",
506: "?commands set terminal aifm",
507: "?set terminal aifm",
508: "?set term aifm",
509: "?terminal aifm",
510: "?term aifm",
511: "?aifm",
512: " Several options may be set in `aifm`---the Adobe Illustrator 3.0+ driver.",
513: "",
514: " Syntax:",
515: " set terminal aifm {<color>} {\"<fontname>\"} {<fontsize>}",
516: "",
517: " <color> is either `color` or `monochrome`; \"<fontname>\" is the name of a",
518: " valid PostScript font; <fontsize> is the size of the font in PostScript",
519: " points, before scaling by the `set size` command. Selecting `default` sets",
520: " all options to their default values: `monochrome`, \"Helvetica\", and 14pt.",
521: "",
522: " Since AI does not really support multiple pages, multiple graphs will be",
523: " drawn directly on top of one another. However, each graph will be grouped",
524: " individually, making it easy to separate them inside AI (just pick them up",
525: " and move them).",
526: "",
527: " Examples:",
528: " set term aifm",
529: " set term aifm 22",
530: " set size 0.7,1.4; set term aifm color \"Times-Roman\" 14"
531: END_HELP(ai)
532: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ai.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term