Annotation of OpenXM_contrib/gnuplot/term/tkcanvas.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: tkcanvas.trm,v 1.7 1998/04/14 00:18:11 drd Exp $
3: *
4: */
5:
6: /* GNUPLOT - tkcanvas.trm */
7:
8: /*[
9: * Copyright 1990 - 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: * Tk/Tcl canvas widgets
43: *
44: * AUTHORS - original dxy.trm
45: * Martin Yii, eln557h@monu3.OZ
46: * Further modified Jan 1990 by Russell Lang, rjl@monu1.cc.monash.oz
47: *
48: * Port to the Tk/Tcl canvas widget
49: * D. Jeff Dionne, July 1995 jeff@ryeham.ee.ryerson.ca
50: * Alex Woo, woo@playfair.stanford.edu
51: *
52: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
53: *
54: */
55:
56: /*
57: * adapted to the new terminal layout by Alex Woo (Sept. 1996)
58: */
59:
60: #include "driver.h"
61:
62: #ifdef TERM_REGISTER
63: register_term(tkcanvas)
64: #endif
65:
66: #ifdef TERM_PROTO
67: TERM_PUBLIC void TK_init __PROTO((void));
68: TERM_PUBLIC void TK_graphics __PROTO((void));
69: TERM_PUBLIC void TK_text __PROTO((void));
70: TERM_PUBLIC void TK_linetype __PROTO((int linetype));
71: TERM_PUBLIC void TK_move __PROTO((unsigned int x, unsigned int y));
72: TERM_PUBLIC void TK_vector __PROTO((unsigned int x, unsigned int y));
73: TERM_PUBLIC void TK_put_text __PROTO((unsigned int x, unsigned int y, char *str));
74: TERM_PUBLIC void TK_reset __PROTO((void));
75:
76: #define TK_XMAX 1000
77: #define TK_YMAX 1000
78:
79: #define TK_XLAST (TK_XMAX - 1)
80: #define TK_YLAST (TK_XMAX - 1)
81:
82: #define TK_VCHAR (25) /* double actual height of characters */
83: #define TK_HCHAR (16) /* actual width including spacing */
84: #define TK_VTIC (18)
85: #define TK_HTIC (18)
86: #endif /* TERM_PROTO */
87:
88: #ifndef TERM_PROTO_ONLY
89: #ifdef TERM_BODY
90:
91: static int tk_angle = 0;
92: static int tk_lastx;
93: static int tk_lasty;
94: static int tk_color = 0;
95: static char *tk_colors[] = { "black", "gray", "red", "blue", "green", "brown", "magenta", "cyan" };
96:
97: TERM_PUBLIC void TK_init()
98: {
99: fputs("\
100: proc gnuplot can {\n\
101: $can delete all\n\
102: set cmx [lindex [$can configure -width] 4]\n\
103: set cmy [lindex [$can configure -height] 4]\n",
104: gpoutfile);
105:
106: tk_lastx = tk_lasty = tk_color = 0;
107: }
108:
109:
110: TERM_PUBLIC void TK_graphics()
111: {
112: }
113:
114:
115: TERM_PUBLIC void TK_reset()
116: {
117: }
118:
119: TERM_PUBLIC void TK_linetype(linetype)
120: int linetype;
121: {
122: tk_color = (linetype + 2) & 7;
123: }
124:
125: TERM_PUBLIC void TK_move(x, y)
126: unsigned int x, y;
127: {
128: tk_lastx = x;
129: tk_lasty = 1000 - y;
130: }
131:
132:
133: TERM_PUBLIC void TK_vector(x, y)
134: unsigned int x, y;
135: {
136: y = 1000 - y;
137: fprintf(gpoutfile,
138: "$can create line [expr $cmx * %d /1000] [expr $cmy * %d /1000] [expr $cmx * %d /1000] [expr $cmy * %d /1000] -fill %s\n",
139: tk_lastx, tk_lasty, x, y, tk_colors[tk_color]);
140: tk_lastx = x;
141: tk_lasty = y;
142: }
143:
144:
145: TERM_PUBLIC void TK_put_text(x, y, str)
146: unsigned int x, y;
147: char *str;
148: {
149: y = 1000 - y;
150: fprintf(gpoutfile,
151: "$can create text [expr $cmx * %d /1000] [expr $cmy * %d /1000] -text {%s} -fill %s -anchor w\n",
152: x, y, str, tk_colors[tk_color]);
153: }
154:
155: TERM_PUBLIC void TK_text()
156: {
157: fputs("}\n", gpoutfile);
158: fflush(gpoutfile);
159: }
160:
161:
162: #endif /* TERM_BODY */
163:
164: #ifdef TERM_TABLE
165: TERM_TABLE_START(tkcanvas)
166: "tkcanvas", "Tk/Tcl canvas widget",
167: TK_XMAX, TK_YMAX, TK_VCHAR, TK_HCHAR,
168: TK_VTIC, TK_HTIC, options_null, TK_init, TK_reset,
169: TK_text, null_scale, TK_graphics, TK_move, TK_vector,
170: TK_linetype, TK_put_text, null_text_angle,
171: null_justify_text, do_point, do_arrow, set_font_null
172: TERM_TABLE_END(tkcanvas)
173:
174: #undef LAST_TERM
175: #define LAST_TERM tkcanvas
176:
177: #endif /* TERM_TABLE */
178: #endif /* TERM_PROTO_ONLY */
179:
180: #ifdef TERM_HELP
181: START_HELP(tkcanvas)
182: "1 tkcanvas",
183: "?commands set terminal tkcanvas",
184: "?set terminal tkcanvas",
185: "?set term tkcanvas",
186: "?terminal tkcanvas",
187: "?term tkcanvas",
188: "?tkcanvas",
189: " This terminal driver generates tk canvas widget commands. To use it, rebuild",
190: " `gnuplot` (after uncommenting or inserting the appropriate line in \"term.h\"),",
191: " then",
192: "",
193: " gnuplot> set term tkcanvas",
194: " gnuplot> set output 'plot.file'",
195: "",
196: " After invoking \"wish\", execute the following sequence of tcl commands:",
197: "",
198: " % source plot.file",
199: " % canvas .c",
200: " % pack .c",
201: " % gnuplot .c",
202: "",
203: " The code generated by `gnuplot` creates a tcl procedure called \"gnuplot\"",
204: " that takes the name of a canvas as its argument. When the procedure is,",
205: " called, it clears the canvas, finds the size of the canvas and draws the plot",
206: " in it, scaled to fit.",
207: "",
208: " The current version of `tkcanvas` supports neither `multiplot` nor `replot`."
209: END_HELP(tkcanvas)
210: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to tkcanvas.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term