Annotation of OpenXM_contrib/gnuplot/term/texdraw.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: texdraw.trm,v 1.15 1998/06/18 14:59:26 ddenholm Exp $
3: */
4:
5: /* GNUPLOT - texdraw.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 file is included by ../term.c.
39: *
40: * This terminal driver supports:
41: * The TEXDRAW macros for LaTeX.
42: *
43: * AUTHORS
44: * Khun Yee Fung. Modified from eepic.trm.
45: * clipper@csd.uwo.ca
46: * January 20, 1992
47: *
48: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
49: *
50: */
51:
52: /*
53: * This file contains the texdraw terminal driver, intended for use with the
54: * texdraw macro package for LaTeX. This is an alternative to the
55: * latex driver. You need texdraw.sty, and texdraw.tex in the texdraw package.
56: *
57: */
58: #include "driver.h"
59:
60: #ifdef TERM_REGISTER
61: register_term(texdraw)
62: #endif
63:
64: #ifdef TERM_PROTO
65: TERM_PUBLIC void TEXDRAW_init __PROTO((void));
66: TERM_PUBLIC void TEXDRAW_graphics __PROTO((void));
67: TERM_PUBLIC void TEXDRAW_text __PROTO((void));
68: TERM_PUBLIC void TEXDRAW_linetype __PROTO((int linetype));
69: TERM_PUBLIC void TEXDRAW_move __PROTO((unsigned int x, unsigned int y));
70: TERM_PUBLIC void TEXDRAW_point __PROTO((unsigned int x, unsigned int y,
71: int number));
72: TERM_PUBLIC void TEXDRAW_vector __PROTO((unsigned int ux, unsigned int uy));
73: TERM_PUBLIC void TEXDRAW_arrow __PROTO((unsigned int sx, unsigned int sy,
74: unsigned int ex, unsigned int ey,
75: TBOOLEAN head));
76: TERM_PUBLIC void TEXDRAW_put_text __PROTO((unsigned int x, unsigned int y,
77: char str[]));
78: TERM_PUBLIC int TEXDRAW_justify_text __PROTO((enum JUSTIFY mode));
79: TERM_PUBLIC int TEXDRAW_text_angle __PROTO((int ang));
80: TERM_PUBLIC void TEXDRAW_reset __PROTO((void));
81:
82: #define TEXDRAW_PTS_PER_INCH (72.27)
83: /* resolution of printer we expect to use */
84: #define DOTS_PER_INCH (300)
85: /* dot size in pt */
86: #define TEXDRAW_UNIT (TEXDRAW_PTS_PER_INCH/DOTS_PER_INCH)
87:
88: /* 5 inches wide by 3 inches high (default) */
89: #define TEXDRAW_XMAX (5*DOTS_PER_INCH)
90: #define TEXDRAW_YMAX (3*DOTS_PER_INCH)
91:
92: #define TEXDRAW_HTIC (5*DOTS_PER_INCH/72) /* (5./TEXDRAW_UNIT) */
93: #define TEXDRAW_VTIC (5*DOTS_PER_INCH/72) /* (5./TEXDRAW_UNIT) */
94: #define TEXDRAW_HCHAR (DOTS_PER_INCH*53/10/72) /* (5.3/TEXDRAW_UNIT) */
95: #define TEXDRAW_VCHAR (DOTS_PER_INCH*11/72) /* (11./TEXDRAW_UNIT) */
96:
97: #define GOT_TEXDRAW_PROTO
98: #endif
99:
100: #ifndef TERM_PROTO_ONLY
101: #ifdef TERM_BODY
102: static void TEXDRAW_endline __PROTO((void));
103: static unsigned int TEXDRAW_posx;
104: static unsigned int TEXDRAW_posy;
105: enum JUSTIFY TEXDRAW_justify = LEFT;
106: enum JUSTIFY TEXDRAW_last_justify = LEFT;
107: static int TEXDRAW_angle = 0;
108: static float TEXDRAW_scalefactor = 0.2409;
109: static double TEXDRAW_xscale = 1.0, TEXDRAW_yscale = 1.0;
110:
111: /* for DOTS point style */
112: #define TEXDRAW_TINY_DOT "\\htext{$\\cdot$}"
113:
114: /* POINTS */
115: #define TEXDRAW_POINT_TYPES 12 /* we supply more point types */
116: static char GPFAR *GPFAR TEXDRAW_points[] =
117: {
118: "\\rmove(0 4)\\htext{$\\Diamond$}",
119: "\\htext{$+$}",
120: "\\rmove(0 4)\\htext{$\\Box$}",
121: "\\htext{$\\times$}",
122: "\\htext{$\\triangle$}",
123: "\\htext{$\\star$}",
124: "\\lcir r:9",
125: "\\lcir r:12",
126: "\\lcir r:16",
127: "\\fcir f:0.9 r:9",
128: "\\fcir f:0.9 r:12",
129: "\\fcir f:0.9 r:16"
130: };
131:
132: /* LINES */
133: #define TEXDRAW_NUMLINES 5 /* number of linetypes below */
134: static int TEXDRAW_lines[] =
135: {
136: 4, /* -2 border */
137: 3, /* -1 axes */
138: 3, /* 0 solid thin */
139: 4, /* 1 solid thick */
140: 6, /* 2 solid Thick */
141: };
142:
143: /* The line type selected most recently */
144: static int TEXDRAW_last_type = 0;
145: /* current line type */
146: static int TEXDRAW_type;
147: /* are we in the middle of a line */
148: static TBOOLEAN TEXDRAW_inline = FALSE;
149: /* terminate any line in progress */
150: static void TEXDRAW_endline __PROTO((void));
151: /* number of points in line so far */
152: static int TEXDRAW_linecount = 0;
153: /* max value for linecount */
154: #define TEXDRAW_LINEMAX 5
155:
156: TERM_PUBLIC void TEXDRAW_init()
157: {
158: TEXDRAW_posx = TEXDRAW_posy = 0;
159: TEXDRAW_linetype(-1);
160: fputs("%% GNUPLOT: LaTeX using TEXDRAW macros\n", gpoutfile);
161: }
162:
163: TERM_PUBLIC void TEXDRAW_graphics()
164: {
165: static char GPFAR tdg1[] = "\
166: \\begin{texdraw}\n\
167: \\normalsize\n\
168: \\ifx\\pathDEFINED\\relax\\else\\let\\pathDEFINED\\relax\n\
169: \\def\\QtGfr{\\ifx (\\TGre \\let\\YhetT\\cpath\\else\\let\\YhetT\\relax\\fi\\YhetT}\n\
170: \\def\\path (#1 #2){\\move (#1 #2)\\futurelet\\TGre\\QtGfr}\n\
171: \\def\\cpath (#1 #2){\\lvec (#1 #2)\\futurelet\\TGre\\QtGfr}\n\
172: \\fi\n\
173: \\drawdim pt\n\
174: \\setunitscale %2.2f\n\
175: \\linewd %d\n\
176: \\textref h:L v:C\n";
177: fprintf(gpoutfile, tdg1,
178: TEXDRAW_scalefactor,
179: TEXDRAW_lines[2]);
180: TEXDRAW_last_type = 0;
181: TEXDRAW_type = 0;
182: }
183:
184: TERM_PUBLIC void TEXDRAW_text()
185: {
186: TEXDRAW_endline();
187: fputs("\\end{texdraw}\n", gpoutfile);
188: }
189:
190: TERM_PUBLIC void TEXDRAW_linetype(linetype)
191: int linetype;
192: {
193: TEXDRAW_endline();
194:
195: if (linetype >= TEXDRAW_NUMLINES - 2)
196: linetype %= (TEXDRAW_NUMLINES - 2);
197:
198: TEXDRAW_type = linetype;
199: }
200:
201: TERM_PUBLIC void TEXDRAW_move(x, y)
202: unsigned int x, y;
203: {
204: TEXDRAW_endline();
205:
206: TEXDRAW_posx = x;
207: TEXDRAW_posy = y;
208: }
209:
210: TERM_PUBLIC void TEXDRAW_point(x, y, number)
211: unsigned int x, y;
212: int number;
213: {
214: TEXDRAW_move(x, y);
215:
216: /* Print the character defined by 'number'; number < 0 means
217: * to use a dot, otherwise one of the defined points. */
218: fprintf(gpoutfile, "\\move (%d %d)\n",
219: (int) ((double) x * TEXDRAW_xscale),
220: (int) ((double) y * TEXDRAW_yscale));
221: if (TEXDRAW_last_justify != CENTRE) {
222: fprintf(gpoutfile, "\\textref h:C v:C ");
223: TEXDRAW_last_justify = CENTRE;
224: }
225: fprintf(gpoutfile, "%s\n",
226: (number < 0 ?
227: TEXDRAW_TINY_DOT :
228: TEXDRAW_points[number % TEXDRAW_POINT_TYPES]));
229: }
230:
231: TERM_PUBLIC void TEXDRAW_vector(ux, uy)
232: unsigned int ux, uy;
233: {
234: if (!TEXDRAW_inline) {
235: TEXDRAW_inline = TRUE;
236:
237: /* Start a new line. This depends on line type */
238: if (TEXDRAW_type != TEXDRAW_last_type) {
239: if (TEXDRAW_lines[TEXDRAW_type + 2] != TEXDRAW_lines[TEXDRAW_last_type + 2])
240: fprintf(gpoutfile, "\\linewd %d\n", TEXDRAW_lines[TEXDRAW_type + 2]);
241: TEXDRAW_last_type = TEXDRAW_type;
242: }
243: fprintf(gpoutfile, "\\path (%d %d)",
244: (int) ((double) TEXDRAW_posx * TEXDRAW_xscale),
245: (int) ((double) TEXDRAW_posy * TEXDRAW_yscale));
246: TEXDRAW_linecount = 1;
247: } else {
248: /* Even though we are in middle of a path,
249: * we may want to start a new path command.
250: * If they are too long then latex will choke.
251: */
252: if (TEXDRAW_linecount++ >= TEXDRAW_LINEMAX) {
253: fputs("\n\\cpath ", gpoutfile);
254: TEXDRAW_linecount = 1;
255: }
256: }
257: fprintf(gpoutfile, "(%d %d)",
258: (int) ((double) ux * TEXDRAW_xscale),
259: (int) ((double) uy * TEXDRAW_yscale));
260: TEXDRAW_posx = ux;
261: TEXDRAW_posy = uy;
262: }
263:
264: static void TEXDRAW_endline()
265: {
266: if (TEXDRAW_inline) {
267: putc('\n', gpoutfile);
268: TEXDRAW_inline = FALSE;
269: }
270: }
271:
272: TERM_PUBLIC void TEXDRAW_arrow(sx, sy, ex, ey, head)
273: unsigned int sx, sy, ex, ey;
274: TBOOLEAN head;
275: {
276: char text;
277:
278: if (head)
279: text = 'a';
280: else
281: text = 'l';
282: fprintf(gpoutfile, "\\move (%d %d)\\%cvec (%d %d)",
283: (int) ((double) sx * TEXDRAW_xscale),
284: (int) ((double) sy * TEXDRAW_yscale),
285: text,
286: (int) ((double) ex * TEXDRAW_xscale),
287: (int) ((double) ey * TEXDRAW_yscale));
288: TEXDRAW_posx = ex;
289: TEXDRAW_posy = ey;
290: }
291:
292: TERM_PUBLIC void TEXDRAW_put_text(x, y, str)
293: unsigned int x, y; /* reference point of string */
294: char str[]; /* the text */
295: {
296: char text;
297:
298: TEXDRAW_endline();
299:
300: fprintf(gpoutfile, "\\move (%d %d)",
301: (int) ((double) x * TEXDRAW_xscale),
302: (int) ((double) y * TEXDRAW_yscale));
303:
304: if (!TEXDRAW_angle)
305: text = 'h';
306: else
307: text = 'v';
308:
309: if (TEXDRAW_last_justify != TEXDRAW_justify) {
310: TEXDRAW_last_justify = TEXDRAW_justify;
311: if (TEXDRAW_justify == LEFT)
312: fputs("\\textref h:L v:C ", gpoutfile);
313: else if (TEXDRAW_justify == CENTRE)
314: fputs("\\textref h:C v:C ", gpoutfile);
315: else if (TEXDRAW_justify == RIGHT)
316: fputs("\\textref h:R v:C ", gpoutfile);
317: }
318: fprintf(gpoutfile, "\\%ctext{%s}\n", text, str);
319: }
320:
321:
322: TERM_PUBLIC int TEXDRAW_justify_text(mode)
323: enum JUSTIFY mode;
324: {
325: TEXDRAW_justify = mode;
326: return (TRUE);
327: }
328:
329: TERM_PUBLIC int TEXDRAW_text_angle(ang)
330: int ang;
331: {
332: TEXDRAW_angle = ang;
333: return (TRUE);
334: }
335:
336: TERM_PUBLIC void TEXDRAW_reset()
337: {
338: TEXDRAW_endline();
339: TEXDRAW_posx = TEXDRAW_posy = 0;
340: }
341:
342: #endif /* TERM_BODY */
343:
344: #ifdef TERM_TABLE
345:
346: TERM_TABLE_START(texdraw_driver)
347: "texdraw",
348: "LaTeX texdraw environment",
349: TEXDRAW_XMAX, TEXDRAW_YMAX, TEXDRAW_VCHAR, TEXDRAW_HCHAR,
350: TEXDRAW_VTIC, TEXDRAW_HTIC, options_null, TEXDRAW_init, TEXDRAW_reset,
351: TEXDRAW_text, null_scale, TEXDRAW_graphics, TEXDRAW_move, TEXDRAW_vector,
352: TEXDRAW_linetype, TEXDRAW_put_text, TEXDRAW_text_angle,
353: TEXDRAW_justify_text, TEXDRAW_point, TEXDRAW_arrow, set_font_null
354: TERM_TABLE_END(texdraw_driver)
355:
356: #undef LAST_TERM
357: #define LAST_TERM texdraw_driver
358:
359: #endif /* TERM_TABLE */
360:
361: #endif /* TERM_PROTO_ONLY */
362:
363: #ifdef TERM_HELP
364: START_HELP(texdraw)
365: "1 texdraw",
366: "?commands set terminal texdraw",
367: "?set terminal texdraw",
368: "?set term texdraw",
369: "?terminal texdraw",
370: "?term texdraw",
371: "?texdraw",
372: " The `texdraw` terminal driver supports the LaTeX texdraw environment. It is",
373: " intended for use with \"texdraw.sty\" and \"texdraw.tex\" in the texdraw package.",
374: "",
375: " It has no options."
376: END_HELP(texdraw)
377: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to texdraw.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term