Annotation of OpenXM_contrib/gnuplot/term/win.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: $
! 3: */
! 4:
! 5: /* GNUPLOT - win.trm */
! 6:
! 7: /*[
! 8: * Copyright 1992 - 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: *
! 39: * AUTHORS
! 40: *
! 41: * Gnuplot for Windows:
! 42: * Maurice Castro, Russell Lang
! 43: *
! 44: * There is a mailing list for gnuplot users. Note, however, that the
! 45: * newsgroup
! 46: * comp.graphics.apps.gnuplot
! 47: * is identical to the mailing list (they
! 48: * both carry the same set of messages). We prefer that you read the
! 49: * messages through that newsgroup, to subscribing to the mailing list.
! 50: * (If you can read that newsgroup, and are already on the mailing list,
! 51: * please send a message to majordomo@dartmouth.edu, asking to be
! 52: * removed from the mailing list.)
! 53: *
! 54: * The address for mailing to list members is
! 55: * info-gnuplot@dartmouth.edu
! 56: * and for mailing administrative requests is
! 57: * majordomo@dartmouth.edu
! 58: * The mailing list for bug reports is
! 59: * bug-gnuplot@dartmouth.edu
! 60: * The list of those interested in beta-test versions is
! 61: * info-gnuplot-beta@dartmouth.edu
! 62: */
! 63:
! 64:
! 65: /* This file implements the terminal and printer display for gnuplot */
! 66: /* under Microsoft Windows. The code currently compiles only with the */
! 67: /* Borland C++ 3.1 compiler. */
! 68: /* */
! 69: /* The modifications to allow Gnuplot to run under Windows were made */
! 70: /* by Maurice Castro (maurice@bruce.cs.monash.edu.au) */
! 71: /* and Russell Lang (rjl@monu1.cc.monash.edu.au) 19 Nov 1992 */
! 72: /* */
! 73:
! 74: /* Edit this file with tabstop=4 (vi :se ts=4) */
! 75:
! 76: /*
! 77: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 78: */
! 79:
! 80: #include "driver.h"
! 81:
! 82: #ifdef TERM_REGISTER
! 83: register_term(windows)
! 84: #endif
! 85:
! 86: #ifdef TERM_PROTO
! 87: TERM_PUBLIC void WIN_options __PROTO((void));
! 88: TERM_PUBLIC int WIN_scale __PROTO((void));
! 89: TERM_PUBLIC void WIN_init __PROTO((void));
! 90: TERM_PUBLIC void WIN_reset __PROTO((void));
! 91: TERM_PUBLIC void WIN_text __PROTO((void));
! 92: TERM_PUBLIC void WIN_graphics __PROTO((void));
! 93: TERM_PUBLIC void WIN_move __PROTO((unsigned int x, unsigned int y));
! 94: TERM_PUBLIC void WIN_vector __PROTO((unsigned int x, unsigned int y));
! 95: TERM_PUBLIC void WIN_linetype __PROTO((int lt));
! 96: TERM_PUBLIC void WIN_put_text __PROTO((unsigned int x, unsigned int y, char *str));
! 97: TERM_PUBLIC int WIN_justify_text __PROTO((enum JUSTIFY mode));
! 98: TERM_PUBLIC int WIN_text_angle __PROTO((int ang));
! 99: TERM_PUBLIC void WIN_point __PROTO((unsigned int x, unsigned int y, int number));
! 100: TERM_PUBLIC void WIN_resume __PROTO((void));
! 101: TERM_PUBLIC void WIN_set_pointsize __PROTO((double));
! 102:
! 103:
! 104: /* Initialization values - Guess Now Scale later */
! 105: #define WIN_XMAX (24000)
! 106: #define WIN_YMAX (18000)
! 107: #define WIN_HCHAR (WIN_XMAX/75)
! 108: #define WIN_VCHAR (WIN_YMAX/25)
! 109: #define WIN_HTIC (WIN_XMAX/160)
! 110: #define WIN_VTIC WIN_HTIC
! 111: #endif /* TERM_PROTO */
! 112:
! 113: #ifndef TERM_PROTO_ONLY
! 114: #ifdef TERM_BODY
! 115:
! 116: #include <windows.h>
! 117: #include "../win/wgnuplib.h"
! 118:
! 119: #ifdef __MSC__
! 120: #include <io.h> /* for mktemp() */
! 121: #endif
! 122:
! 123: extern GW graphwin;
! 124:
! 125: #define WIN_POINT_TYPES 12
! 126:
! 127: /* Interface routines - create list of actions for Windows */
! 128:
! 129: TERM_PUBLIC void WIN_options()
! 130: {
! 131: if (!END_OF_COMMAND) {
! 132: if (almost_equals(c_token, "d$efault")) {
! 133: graphwin.color = TRUE;
! 134: strcpy(graphwin.fontname, WINFONT);
! 135: graphwin.fontsize = WINFONTSIZE;
! 136: c_token++;
! 137: }
! 138: }
! 139: if (!END_OF_COMMAND) {
! 140: if (almost_equals(c_token, "m$onochrome")) {
! 141: graphwin.color = FALSE;
! 142: c_token++;
! 143: } else if (almost_equals(c_token, "c$olor")
! 144: || almost_equals(c_token, "c$olour")) {
! 145: graphwin.color = TRUE;
! 146: c_token++;
! 147: }
! 148: }
! 149: if (!END_OF_COMMAND && isstring(c_token)) {
! 150: quote_str(graphwin.fontname, c_token, MAX_ID_LEN);
! 151: c_token++;
! 152: }
! 153: if (!END_OF_COMMAND) {
! 154: /* We have font size specified */
! 155: struct value a;
! 156: graphwin.fontsize = (int) real(const_express(&a));
! 157: }
! 158: if (graphwin.fontname[0] == '\0')
! 159: sprintf(term_options, "%s", graphwin.color ? "color" : "monochrome");
! 160: else
! 161: sprintf(term_options, "%s \"%s\" %d", graphwin.color ? "color" : "monochrome",
! 162: graphwin.fontname, graphwin.fontsize);
! 163: if (IsWindow(graphwin.hWndGraph) && IsIconic(graphwin.hWndGraph)) {
! 164: ShowWindow(graphwin.hWndGraph, SW_SHOWNORMAL);
! 165: }
! 166: GraphRedraw(&graphwin);
! 167: }
! 168:
! 169: /* We don't actually do scaling, but we need to fix up the text size
! 170: * if the user has resized the window */
! 171: int WIN_scale()
! 172: {
! 173: term->h_char = graphwin.hchar;
! 174: term->v_char = graphwin.vchar;
! 175: term->h_tic = graphwin.htic;
! 176: term->v_tic = graphwin.vtic;
! 177: sprintf(term_options, "%s \"%s\" %d",
! 178: graphwin.color ? "color" : "monochrome",
! 179: graphwin.fontname, graphwin.fontsize);
! 180: return FALSE; /* can't be done */
! 181: }
! 182:
! 183: TERM_PUBLIC void WIN_init()
! 184: {
! 185: if (!graphwin.hWndGraph) {
! 186: graphwin.xmax = WIN_XMAX;
! 187: graphwin.ymax = WIN_YMAX;
! 188: graphwin.htic = WIN_HTIC;
! 189: graphwin.vtic = WIN_VTIC;
! 190: GraphInit(&graphwin);
! 191: #ifdef WIN32
! 192: SetClassLong(graphwin.hWndGraph, GCL_HICON, (LONG) LoadIcon(graphwin.hInstance, "GRPICON"));
! 193: #else
! 194: SetClassWord(graphwin.hWndGraph, GCW_HICON, LoadIcon(graphwin.hInstance, "GRPICON"));
! 195: #endif
! 196: graphwin.resized = FALSE;
! 197: }
! 198: }
! 199:
! 200:
! 201: TERM_PUBLIC void WIN_reset()
! 202: {
! 203: }
! 204:
! 205: TERM_PUBLIC void WIN_text()
! 206: {
! 207: GraphEnd(&graphwin);
! 208: }
! 209:
! 210: TERM_PUBLIC void WIN_graphics()
! 211: {
! 212: GraphStart(&graphwin, pointsize);
! 213: }
! 214:
! 215: TERM_PUBLIC void WIN_move(x, y)
! 216: unsigned int x, y;
! 217: {
! 218: GraphOp(&graphwin, W_move, x, y, NULL);
! 219: }
! 220:
! 221: TERM_PUBLIC void WIN_vector(x, y)
! 222: unsigned int x, y;
! 223: {
! 224: GraphOp(&graphwin, W_vect, x, y, NULL);
! 225: }
! 226:
! 227: TERM_PUBLIC void WIN_linetype(lt)
! 228: int lt;
! 229: {
! 230: GraphOp(&graphwin, W_line_type, lt, 0, NULL);
! 231: }
! 232:
! 233: TERM_PUBLIC void WIN_put_text(x, y, str)
! 234: unsigned int x, y;
! 235: char *str;
! 236: {
! 237: GraphOp(&graphwin, W_put_text, x, y, str);
! 238: }
! 239:
! 240: TERM_PUBLIC int WIN_justify_text(mode)
! 241: enum JUSTIFY mode;
! 242: {
! 243: GraphOp(&graphwin, W_justify, mode, 0, NULL);
! 244: return (TRUE);
! 245: }
! 246:
! 247: TERM_PUBLIC int WIN_text_angle(ang)
! 248: int ang;
! 249: {
! 250: if (graphwin.rotate)
! 251: GraphOp(&graphwin, W_text_angle, ang, 0, NULL);
! 252: return graphwin.rotate;
! 253: }
! 254:
! 255: TERM_PUBLIC void WIN_point(x, y, number)
! 256: unsigned int x, y;
! 257: int number;
! 258: {
! 259: /* draw point shapes later to save memory */
! 260: /* size of point symbols */
! 261: graphwin.htic = pointsize * term->h_tic / 2;
! 262: graphwin.vtic = pointsize * term->v_tic / 2;
! 263: if (number >= 0)
! 264: number %= WIN_POINT_TYPES;
! 265: number += 1;
! 266: GraphOp(&graphwin, W_dot + number, x, y, NULL);
! 267: }
! 268:
! 269: TERM_PUBLIC void WIN_resume(void)
! 270: {
! 271: GraphResume(&graphwin);
! 272: }
! 273:
! 274: TERM_PUBLIC void WIN_set_pointsize(s)
! 275: double s;
! 276: {
! 277: /* Save new pointsize as string */
! 278: char scale[30];
! 279: sprintf(scale, "%.15g", s);
! 280: #if 1
! 281: /* HBB 980309: it seems passing it as a string is a bad idea
! 282: * in Win16: it means the wgnuplot.dll has to parse the string
! 283: * via sscanf(), leading to crash (by stack overflow?). Alternative:
! 284: * pass it as a scaled-up integer. For the sake of compatibility,
! 285: * pass the string as well. */
! 286: GraphOp(&graphwin, W_pointsize, (int) 100 * s, 0, scale);
! 287: #else
! 288: GraphOp(&graphwin, W_pointsize, 0, 0, scale);
! 289: #endif
! 290: }
! 291:
! 292: #endif /* TERM_BODY */
! 293:
! 294: #ifdef TERM_TABLE
! 295:
! 296: TERM_TABLE_START(win_driver)
! 297: "windows", "Microsoft Windows",
! 298: WIN_XMAX, WIN_YMAX, WIN_VCHAR, WIN_HCHAR,
! 299: WIN_VTIC, WIN_HTIC, WIN_options, WIN_init, WIN_reset,
! 300: WIN_text, null_scale, WIN_graphics, WIN_move, WIN_vector,
! 301: WIN_linetype, WIN_put_text, WIN_text_angle,
! 302: WIN_justify_text, WIN_point, do_arrow, set_font_null,
! 303: WIN_set_pointsize, TERM_CAN_MULTIPLOT,
! 304: WIN_text /* suspend */ , WIN_resume, 0 /*boxfill */
! 305: TERM_TABLE_END(win_driver)
! 306:
! 307: #undef LAST_TERM
! 308: #define LAST_TERM win_driver
! 309:
! 310: #endif /* TERM_TABLE */
! 311: #endif /* TERM_PROTO_ONLY */
! 312:
! 313: #ifdef TERM_HELP
! 314: START_HELP(windows)
! 315: "1 windows",
! 316: "?commands set terminal windows",
! 317: "?set terminal windows",
! 318: "?set term windows",
! 319: "?terminal windows",
! 320: "?term windows",
! 321: "?windows",
! 322: " Three options may be set in the `windows` terminal driver.",
! 323: "",
! 324: " Syntax:",
! 325: " set terminal windows {<color>} {\"<fontname>\"} {<fontsize>}",
! 326: "",
! 327: " where `<color>` is either `color` or `monochrome`, `\"<fontname>\"` is the",
! 328: " name of a valid Windows font, and `<fontsize>` is the size of the font in",
! 329: " points.",
! 330: "",
! 331: " Other options may be set with the graph-menu, the initialization file,",
! 332: " and `set linestyle`.",
! 333: /* Does this really belong here? If not, someone move it where it does. */
! 334: "",
! 335: " The Windows version normally terminates immediately as soon as the end of",
! 336: " any files given as command line arguments is reached (i.e. in non-interactive",
! 337: " mode). It will also not show the text-window at all, in this mode, only",
! 338: " the plot. By giving the optional argument",
! 339: " `/noend` or `-noend`, you can disable this behaviour.",
! 340: "2 graph-menu",
! 341: "?commands set terminal windows graph-menu",
! 342: "?set terminal windows graph-menu",
! 343: "?set term windows graph-menu",
! 344: "?windows graph-menu",
! 345: "?graph-menu",
! 346: " The `gnuplot graph` window has the following options on a pop-up menu",
! 347: " accessed by pressing the right mouse button or selecting `Options` from the",
! 348: " system menu:",
! 349: "",
! 350: " `Bring to Top` when checked brings the graph window to the top after every",
! 351: " plot.",
! 352: "",
! 353: " `Color` when checked enables color linestyles. When unchecked it forces",
! 354: " monochrome linestyles.",
! 355: "",
! 356: " `Copy to Clipboard` copies a bitmap and a Metafile picture.",
! 357: "",
! 358: " `Background...` sets the window background color.",
! 359: "",
! 360: " `Choose Font...` selects the font used in the graphics window.",
! 361: "",
! 362: " `Line Styles...` allows customization of the line colors and styles.",
! 363: "",
! 364: " `Print...` prints the graphics windows using a Windows printer driver and",
! 365: " allows selection of the printer and scaling of the output. The output",
! 366: " produced by `Print` is not as good as that from `gnuplot`'s own printer",
! 367: " drivers.",
! 368: "",
! 369: " `Update wgnuplot.ini` saves the current window locations, window sizes, text",
! 370: " window font, text window font size, graph window font, graph window font",
! 371: " size, background color and linestyles to the initialization file",
! 372: " `WGNUPLOT.INI`.",
! 373: "2 printing",
! 374: "?commands set terminal windows printing",
! 375: "?set terminal windows printing",
! 376: "?set term windows printing",
! 377: "?windows printing",
! 378: "?printing",
! 379: " In order of preference, graphs may be be printed in the following ways.",
! 380: "",
! 381: " `1.` Use the `gnuplot` command `set terminal` to select a printer and `set",
! 382: " output` to redirect output to a file.",
! 383: "",
! 384: " `2.` Select the `Print...` command from the `gnuplot graph` window. An extra",
! 385: " command `screendump` does this from the text window.",
! 386: "",
! 387: " `3.` If `set output \"PRN\"` is used, output will go to a temporary file. When",
! 388: " you exit from `gnuplot` or when you change the output with another `set",
! 389: " output` command, a dialog box will appear for you to select a printer port.",
! 390: " If you choose OK, the output will be printed on the selected port, passing",
! 391: " unmodified through the print manager. It is possible to accidentally (or",
! 392: " deliberately) send printer output meant for one printer to an incompatible",
! 393: " printer.",
! 394: "2 text-menu",
! 395: "?commands set terminal windows text-menu",
! 396: "?set terminal windows text-menu",
! 397: "?set term windows text-menu",
! 398: "?windows text-menu",
! 399: "?text-menu",
! 400: " The `gnuplot text` window has the following options on a pop-up menu accessed",
! 401: " by pressing the right mouse button or selecting `Options` from the system",
! 402: " menu:",
! 403: "",
! 404: " `Copy to Clipboard` copies marked text to the clipboard.",
! 405: "",
! 406: " `Paste` copies text from the clipboard as if typed by the user.",
! 407: "",
! 408: " `Choose Font...` selects the font used in the text window.",
! 409: "",
! 410: " `System Colors` when selected makes the text window honor the System Colors",
! 411: " set using the Control Panel. When unselected, text is black or blue on a",
! 412: " white background.",
! 413: "",
! 414: " `Update wgnuplot.ini` saves the current text window location, text window",
! 415: " size, text window font and text window font size to the initialisation file",
! 416: " `WGNUPLOT.INI`.",
! 417: "",
! 418: " `MENU BAR`",
! 419: "",
! 420: " If the menu file `WGNUPLOT.MNU` is found in the same directory as",
! 421: " WGNUPLOT.EXE, then the menu specified in `WGNUPLOT.MNU` will be loaded.",
! 422: " Menu commands:",
! 423: "",
! 424: " [Menu] starts a new menu with the name on the following line.",
! 425: "",
! 426: " [EndMenu] ends the current menu.",
! 427: "",
! 428: " [--] inserts a horizontal menu separator.",
! 429: "",
! 430: " [|] inserts a vertical menu separator.",
! 431: "",
! 432: " [Button] puts the next macro on a push button instead of a menu.",
! 433: "",
! 434: " Macros take two lines with the macro name (menu entry) on the first line and",
! 435: " the macro on the second line. Leading spaces are ignored. Macro commands:",
! 436: "",
! 437: " [INPUT] --- Input string with prompt terminated by [EOS] or {ENTER}",
! 438: "",
! 439: " [EOS] --- End Of String terminator. Generates no output.",
! 440: "",
! 441: " [OPEN] --- Get name of file to open from list box, with title of list box",
! 442: " terminated by [EOS], followed by default filename terminated by [EOS] or",
! 443: " {ENTER}. This uses COMMDLG.DLL from Windows 3.1.",
! 444: "",
! 445: " [SAVE] --- Get name of file to save. Similar to [OPEN]",
! 446: "",
! 447: " Macro character substitutions:",
! 448: "",
! 449: " {ENTER} --- Carriage Return '\\r'",
! 450: "",
! 451: " {TAB} --- Tab '\\011'",
! 452: "",
! 453: " {ESC} --- Escape '\\033'",
! 454: "",
! 455: " {^A} --- '\\001'",
! 456: "",
! 457: " ...",
! 458: "",
! 459: " {^_} --- '\\031'",
! 460: "",
! 461: " Macros are limited to 256 characters after expansion.",
! 462: "2 wgnuplot.ini",
! 463: "?commands set terminal windows wgnuplot.ini",
! 464: "?set terminal windows wgnuplot.ini",
! 465: "?set term windows wgnuplot.ini",
! 466: "?windows wgnuplot.ini",
! 467: "?wgnuplot.ini",
! 468: " Windows `gnuplot` will read some of its options from the `[WGNUPLOT]` section",
! 469: " of `WGNUPLOT.INI` in the Windows directory. A sample `WGNUPLOT.INI` file:",
! 470: "",
! 471: " [WGNUPLOT]",
! 472: " TextOrigin=0 0",
! 473: " TextSize=640 150",
! 474: " TextFont=Terminal,9",
! 475: " GraphOrigin=0 150",
! 476: " GraphSize=640 330",
! 477: " GraphFont=Arial,10",
! 478: " GraphColor=1",
! 479: " GraphToTop=1",
! 480: " GraphBackground=255 255 255",
! 481: " Border=0 0 0 0 0",
! 482: " Axis=192 192 192 2 2",
! 483: " Line1=0 0 255 0 0",
! 484: " Line2=0 255 0 0 1",
! 485: " Line3=255 0 0 0 2",
! 486: " Line4=255 0 255 0 3",
! 487: " Line5=0 0 128 0 4",
! 488: "",
! 489: " The `GraphFont` entry specifies the font name and size in points. The five",
! 490: " numbers given in the `Border`, `Axis` and `Line` entries are the `Red`",
! 491: " intensity (0--255), `Green` intensity, `Blue` intensity, `Color Linestyle`",
! 492: " and `Mono Linestyle`. `Linestyles` are 0=SOLID, 1=DASH, 2=DOT, 3=DASHDOT,",
! 493: " 4=DASHDOTDOT. In the sample `WGNUPLOT.INI` file above, Line 2 is a green",
! 494: " solid line in color mode, or a dashed line in monochrome mode. The default",
! 495: " line width is 1 pixel. If `Linestyle` is negative, it specifies the width of",
! 496: " a SOLID line in pixels. Line1 and any linestyle used with the `points` style",
! 497: " must be SOLID with unit width.",
! 498: "2 windows3.0",
! 499: "?commands set terminal windows windows3.0",
! 500: "?set terminal windows windows3.0",
! 501: "?set term windows windows3.0",
! 502: "?windows windows3.0",
! 503: "?windows3.0",
! 504: " Windows 3.1 is preferred, but WGNUPLOT will run under Windows 3.0 with the",
! 505: " following restrictions:",
! 506: " `1.` COMMDLG.DLL and SHELL.DLL (available with Windows 3.1 or Borland C++",
! 507: " 3.1) must be in the windows directory.",
! 508: "",
! 509: " `2.` WGNUPLOT.HLP produced by Borland C++ 3.1 is in Windows 3.1 format.",
! 510: " You need to use the WINHELP.EXE supplied with Borland C++ 3.1.",
! 511: "",
! 512: " `3.` It will not run in real mode due to lack of memory.",
! 513: "",
! 514: " `4.` TrueType fonts are not available in the graph window.",
! 515: "",
! 516: " `5.` Drag-drop does not work."
! 517: END_HELP(windows)
! 518: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to win.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term