Annotation of OpenXM_contrib/gnuplot/term/corel.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: corel.trm,v 1.12 1998/04/14 00:17:35 drd Exp $
3: */
4:
5: /*
6: corel.trm
7:
8: A modified ai.trm for CorelDraw import filters
9: by Chris Parks, parks@physics.purdue.edu
10: Import from CorelDraw with the CorelTrace filter
11:
12: syntax: set terminal default
13: set terminal mode "fontname" fontsize,xsize,ysize,linewidth
14:
15: mode= color or monochrome (default=mono)
16: "fontname"= postscript font name (default="SwitzerlandLight")
17: fontsize = size of font in points (default=22pt)
18: xsize = width of page in inches (default=8.2in)
19: ysize = height of page in inches (default=10in)
20: linewidth = width of lines in points (default=1.2pt)
21:
22: */
23:
24: /*
25: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
26: */
27:
28: #include "driver.h"
29:
30: #ifdef TERM_REGISTER
31: register_term(corel)
32: #endif
33:
34: #ifdef TERM_PROTO
35: TERM_PUBLIC void COREL_options __PROTO((void));
36: TERM_PUBLIC void COREL_init __PROTO((void));
37: TERM_PUBLIC void COREL_graphics __PROTO((void));
38: TERM_PUBLIC void COREL_text __PROTO((void));
39: TERM_PUBLIC void COREL_reset __PROTO((void));
40: TERM_PUBLIC void COREL_linetype __PROTO((int linetype));
41: TERM_PUBLIC void COREL_move __PROTO((unsigned int x, unsigned int y));
42: TERM_PUBLIC void COREL_vector __PROTO((unsigned int x, unsigned int y));
43: TERM_PUBLIC void COREL_put_text __PROTO((unsigned int x, unsigned int y,
44: char *str));
45: TERM_PUBLIC int COREL_text_angle __PROTO((int ang));
46: TERM_PUBLIC int COREL_justify_text __PROTO((enum JUSTIFY mode));
47: #define CORELD_XMAX 5960 /* 8.2 inches wide */
48: #define CORELD_YMAX 7200 /* 10 inches high */
49: #define CORELD_VTIC (CORELD_YMAX/80)
50: #define CORELD_HTIC (CORELD_YMAX/80)
51: #define CORELD_VCHAR (22*COREL_SC) /* default is 22 point characters */
52: #define CORELD_HCHAR (22*COREL_SC*6/10)
53: #endif
54:
55: #ifndef TERM_PROTO_ONLY
56: #ifdef TERM_BODY
57:
58: /* plots for publication should be sans-serif (don't use TimesRoman) */
59: char corel_font[MAX_ID_LEN + 1] = "SwitzerlandLight"; /* name of font */
60: int corel_fontsize = 22; /* size of font in pts */
61: TBOOLEAN corel_color = FALSE;
62: TBOOLEAN corel_stroke = FALSE;
63: int corel_path_count = 0; /* count of lines in path */
64: int corel_ang = 0; /* text angle */
65: enum JUSTIFY corel_justify = LEFT; /* text is flush left */
66:
67:
68: /* default mode constants */
69: #define CORELD_XOFF 0 /* page offset in pts */
70: #define CORELD_YOFF 0
71: #define COREL_SC (10.0) /* scale is 1pt = 10 units */
72: #define CORELD_LW (1.2*COREL_SC) /* linewidth = 1.2 pts */
73:
74: unsigned int corel_xmax = CORELD_XMAX;
75: unsigned int corel_ymax = CORELD_YMAX;
76: float corel_lw = CORELD_LW;
77:
78: TERM_PUBLIC void COREL_options()
79: {
80: struct value a;
81:
82: if (!END_OF_COMMAND && almost_equals(c_token, "def$ault")) {
83: corel_color = FALSE;
84: strcpy(corel_font, "SwitzerlandLight");
85: corel_fontsize = 22;
86: corel_lw = CORELD_LW;
87: corel_xmax = CORELD_XMAX;
88: corel_ymax = CORELD_YMAX;
89: c_token++;
90: }
91: if (!END_OF_COMMAND && almost_equals(c_token, "mono$chrome")) {
92: corel_color = FALSE;
93: c_token++;
94: } else if (!END_OF_COMMAND && (almost_equals(c_token, "color$")
95: || almost_equals(c_token, "colour$"))) {
96: corel_color = TRUE;
97: c_token++;
98: }
99: if (!END_OF_COMMAND && isstring(c_token)) {
100: quote_str(corel_font, c_token, MAX_ID_LEN);
101: c_token++;
102: }
103: if (!END_OF_COMMAND) {
104: /* We have font size specified */
105: corel_fontsize = (int) real(const_express(&a));
106: c_token++;
107: term->v_char = (unsigned int) (corel_fontsize * COREL_SC);
108: term->h_char = (unsigned int) (corel_fontsize * COREL_SC * 6 / 10);
109: }
110: if (!END_OF_COMMAND) {
111: corel_xmax = (unsigned int) (real(const_express(&a)) * 720);
112: c_token++;
113: if (!END_OF_COMMAND) {
114: corel_ymax = (unsigned int) (real(const_express(&a)) * 720);
115: c_token++;
116: }
117: term->xmax = corel_xmax;
118: term->ymax = corel_ymax;
119: term->v_tic = corel_ymax / 80;
120: term->h_tic = corel_ymax / 80;
121: }
122: if (!END_OF_COMMAND) {
123: corel_lw = real(const_express(&a)) * COREL_SC;
124: c_token++;
125: }
126: sprintf(term_options, "%s \"%s\" %d,%0.1f,%0.1f,%0.1f",
127: corel_color ? "color" : "monochrome", corel_font,
128: corel_fontsize, corel_xmax / 720.0, corel_ymax / 720.0,
129: corel_lw / COREL_SC);
130: }
131:
132: TERM_PUBLIC void COREL_init()
133: {
134: fprintf(gpoutfile, "\
135: %%!PS-Adobe-2.0 EPSF-1.2\n\
136: %%%%BoundingBox: %d %d %d %d\n\
137: %%%%TemplateBox: %d %d %d %d\n\
138: %%%%EndComments\n\
139: %%%%EndProlog\n\
140: %%%%BeginSetup\n%%%%EndSetup\n",
141: CORELD_XOFF, CORELD_YOFF,
142: (int) ((corel_xmax) / COREL_SC + 0.5 + CORELD_XOFF),
143: (int) ((corel_ymax) / COREL_SC + 0.5 + CORELD_YOFF),
144: CORELD_XOFF, CORELD_YOFF,
145: (int) ((corel_xmax) / COREL_SC + 0.5 + CORELD_XOFF),
146: (int) ((corel_ymax) / COREL_SC + 0.5 + CORELD_YOFF));
147: }
148:
149:
150: TERM_PUBLIC void COREL_graphics()
151: {
152: corel_path_count = 0;
153: corel_stroke = FALSE;
154: }
155:
156:
157: TERM_PUBLIC void COREL_text()
158: {
159: if (corel_stroke) {
160: fputs("S\n", gpoutfile);
161: corel_stroke = FALSE;
162: }
163: corel_path_count = 0;
164: }
165:
166:
167: TERM_PUBLIC void COREL_reset()
168: {
169: fputs("%%%%Trailer\n", gpoutfile);
170: }
171:
172:
173: TERM_PUBLIC void COREL_linetype(linetype)
174: int linetype;
175: {
176: if (corel_stroke) {
177: fputs("S\n", gpoutfile);
178: corel_stroke = FALSE;
179: }
180: switch (linetype) {
181: case -2:
182: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
183: if (corel_color) {
184: fputs("0 0 0 1 K\n", gpoutfile);
185: } else {
186: fputs("\
187: [] 0 d\n\
188: 0 j\n0 G\n", gpoutfile);
189: }
190: break;
191:
192: case -1:
193: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
194: if (corel_color) {
195: fputs("0 0 0 1 K\n", gpoutfile);
196: } else {
197: fputs("\
198: [1 2] 0 d\n\
199: 0 j\n0 G\n", gpoutfile);
200: }
201: break;
202:
203: case 0:
204: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
205: if (corel_color) {
206: fputs("1 0 1 0 K\n", gpoutfile);
207: } else {
208: fputs("\
209: [] 0 d\n\
210: 2 j\n0 G\n", gpoutfile);
211: }
212: break;
213:
214: case 1:
215: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
216: if (corel_color) {
217: fputs("1 1 0 0 K\n", gpoutfile);
218: } else {
219: fputs("\
220: [4 2] 0 d\n\
221: 2 j\n0 G\n", gpoutfile);
222: }
223: break;
224:
225: case 2:
226: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
227: if (corel_color) {
228: fputs("0 1 1 0 K\n", gpoutfile);
229: } else {
230: fputs("\
231: [2 3] 0 d\n\
232: 2 j\n0 G\n", gpoutfile);
233: }
234: break;
235:
236: case 3:
237: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
238: if (corel_color) {
239: fputs("0 1 0 0 K\n", gpoutfile);
240: } else {
241: fputs("\
242: [1 1.5] 0 d\n\
243: 2 j\n0 G\n", gpoutfile);
244: }
245: break;
246:
247: case 4:
248: fprintf(gpoutfile, "%f w\n", corel_lw / COREL_SC);
249: if (corel_color) {
250: fputs("1 0 0 0 K\n", gpoutfile);
251: } else {
252: fputs("\
253: [5 2 1 2] 0 d\n\
254: 2 j\n0 G\n", gpoutfile);
255: }
256: break;
257:
258: case 5:
259: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
260: if (corel_color) {
261: fputs("0 0 1 0 K\n", gpoutfile);
262: } else {
263: fputs("\
264: [4 3 1 3] 0 d\n\
265: 2 j\n0 G\n", gpoutfile);
266: }
267: break;
268:
269: case 6:
270: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
271: if (corel_color) {
272: fputs("0 0 0 1 K\n", gpoutfile);
273: } else {
274: fputs("\
275: [2 2 2 4] 0 d\n\
276: 2 j\n0 G\n", gpoutfile);
277: }
278: break;
279:
280: case 7:
281: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
282: if (corel_color) {
283: fputs("0 0.7 1 0 K\n", gpoutfile);
284: } else {
285: fputs("\
286: [2 2 2 2 2 4] 0 d\n\
287: 2 j\n0 G\n", gpoutfile);
288: }
289: break;
290:
291: case 8:
292: fprintf(gpoutfile, "%.2f w\n", corel_lw / COREL_SC);
293: if (corel_color) {
294: fputs("0.5 0.5 0.5 0 K\n", gpoutfile);
295: } else {
296: fputs("\
297: [2 2 2 2 2 2 2 4] 0 d\n\
298: 2 j\n0 G\n", gpoutfile);
299: }
300: break;
301: }
302: corel_path_count = 0;
303: }
304:
305:
306: TERM_PUBLIC void COREL_move(x, y)
307: unsigned int x, y;
308: {
309: if (corel_stroke)
310: fputs("S\n", gpoutfile);
311: fprintf(gpoutfile, "%0.2f %0.2f m\n", x / COREL_SC, y / COREL_SC);
312: corel_path_count += 1;
313: corel_stroke = TRUE;
314: }
315:
316:
317: TERM_PUBLIC void COREL_vector(x, y)
318: unsigned int x, y;
319: {
320: fprintf(gpoutfile, "%.2f %.2f l\n", x / COREL_SC, y / COREL_SC);
321: corel_path_count += 1;
322: corel_stroke = TRUE;
323: if (corel_path_count >= 400) {
324: fprintf(gpoutfile, "S\n%.2f %.2f m\n", x / COREL_SC, y / COREL_SC);
325: corel_path_count = 0;
326: }
327: }
328:
329:
330: TERM_PUBLIC void COREL_put_text(x, y, str)
331: unsigned int x, y;
332: char *str;
333: {
334: char ch;
335: if (corel_stroke) {
336: fputs("S\n", gpoutfile);
337: corel_stroke = FALSE;
338: }
339: switch (corel_justify) {
340: case LEFT:
341: fprintf(gpoutfile, "/_%s %d %d 0 0 z\n",
342: corel_font, corel_fontsize, corel_fontsize);
343: break;
344: case CENTRE:
345: fprintf(gpoutfile, "/_%s %d %d 0 1 z\n",
346: corel_font, corel_fontsize, corel_fontsize);
347: break;
348: case RIGHT:
349: fprintf(gpoutfile, "/_%s %d %d 0 2 z\n",
350: corel_font, corel_fontsize, corel_fontsize);
351: break;
352: }
353: if (corel_ang == 0) {
354: fprintf(gpoutfile, "[1 0 0 1 %.2f %.2f]e\n0 g\n",
355: x / COREL_SC, y / COREL_SC - corel_fontsize / 3.0);
356: } else {
357: fprintf(gpoutfile, "[0 1 -1 0 %.2f %.2f]e\n0 g\n",
358: x / COREL_SC - corel_fontsize / 3.0, y / COREL_SC);
359: }
360:
361: putc('(', gpoutfile);
362: ch = *str++;
363: while (ch != NUL) {
364: if ((ch == '(') || (ch == ')') || (ch == '\\'))
365: putc('\\', gpoutfile);
366: putc(ch, gpoutfile);
367: ch = *str++;
368: }
369: fputs(")t\nT\n", gpoutfile);
370: corel_path_count = 0;
371: }
372:
373: TERM_PUBLIC int COREL_text_angle(ang)
374: int ang;
375: {
376: corel_ang = ang;
377: return TRUE;
378: }
379:
380: TERM_PUBLIC int COREL_justify_text(mode)
381: enum JUSTIFY mode;
382: {
383: corel_justify = mode;
384: return TRUE;
385: }
386:
387: #endif /* TERM_BODY */
388:
389: #ifdef TERM_TABLE
390:
391: TERM_TABLE_START(corel_driver)
392: "corel", "EPS format for CorelDRAW",
393: CORELD_XMAX, CORELD_YMAX, CORELD_VCHAR, CORELD_HCHAR,
394: CORELD_VTIC, CORELD_HTIC, COREL_options, COREL_init, COREL_reset,
395: COREL_text, null_scale, COREL_graphics, COREL_move, COREL_vector,
396: COREL_linetype, COREL_put_text, COREL_text_angle,
397: COREL_justify_text, do_point, do_arrow, set_font_null
398: TERM_TABLE_END(corel_driver)
399:
400: #undef LAST_TERM
401: #define LAST_TERM corel_driver
402:
403: #endif /* TERM_TABLE */
404: #endif /* TERM_PROTO_ONLY */
405:
406: #ifdef TERM_HELP
407: START_HELP(corel)
408: "1 corel",
409: "?commands set terminal corel",
410: "?set terminal corel",
411: "?set term corel",
412: "?terminal corel",
413: "?term corel",
414: "?corel",
415: " The `corel` terminal driver supports CorelDraw.",
416: "",
417: " Syntax:",
418: " set terminal corel { default",
419: " | {monochrome | color",
420: " {<fontname> {\"<fontsize>\" ",
421: " {<xsize> <ysize> {<linewidth> }}}}}",
422: "",
423: " where the fontsize and linewidth are specified in points and the sizes in",
424: " inches. The defaults are monochrome, \"SwitzerlandLight\", 22, 8.2, 10 and 1.2."
425: END_HELP(corel)
426: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to corel.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term