Annotation of OpenXM_contrib/gnuplot/term/gnugraph.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: $
! 3: */
! 4:
! 5: /* GNUPLOT -- gnugraph.trm */
! 6:
! 7: /*[
! 8: * Copyright 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: * GNU plot(5) graphics language
! 42: *
! 43: * AUTHORS
! 44: * Tony Richardson from the unixplot.trm by Colin Kelley, Thomas Williams,
! 45: * and Russell Lang and from post.trm by Russell Lang.
! 46: *
! 47: * send your comments or suggestions to (info-gnuplot@ames.arc.nasa.gov).
! 48: */
! 49:
! 50: /*
! 51: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 52: */
! 53:
! 54: /*
! 55: * This version of the 'unixplot' driver produces device independent
! 56: * output. I've chosen parameter values so that the PostScript output
! 57: * produced by plot2ps is 5" x 3". You can use the 'set size' command
! 58: * to get output up to 8.25" x 8.25", i.e. size values larger than
! 59: * 1 are okay.
! 60: */
! 61:
! 62: /*
! 63: Unixplot library writes to stdout. A fix was put in place by
! 64: ..!arizona!naucse!jdc to let set term and set output redirect
! 65: stdout. All other terminals write to gpoutfile.
! 66: */
! 67:
! 68: /* This is a device independent format, so the output should look
! 69: * look "reasonable" on any output device. I set things up there so
! 70: * that the output of plot2ps is 5" x 3" (standard GNUPLOT size).
! 71: * You can use GNUPLOT's size command to obtain plots to almost the
! 72: * 8.25" x 8.25" limit.
! 73: */
! 74:
! 75: #include "driver.h"
! 76:
! 77: #ifdef TERM_REGISTER
! 78: register_term(unixplot)
! 79: #endif
! 80:
! 81: #ifdef TERM_PROTO
! 82: TERM_PUBLIC void UP_options __PROTO((void));
! 83: TERM_PUBLIC void UP_init __PROTO((void));
! 84: TERM_PUBLIC void UP_graphics __PROTO((void));
! 85: TERM_PUBLIC void UP_text __PROTO((void));
! 86: TERM_PUBLIC void UP_linetype __PROTO((int linetype));
! 87: TERM_PUBLIC void UP_move __PROTO((unsigned int x, unsigned int y));
! 88: TERM_PUBLIC void UP_vector __PROTO((unsigned int x, unsigned int y));
! 89: TERM_PUBLIC void UP_put_text __PROTO((unsigned int x, unsigned int y, char str[]));
! 90: TERM_PUBLIC int UP_text_angle __PROTO((int ang));
! 91: TERM_PUBLIC int UP_justify_text __PROTO((enum JUSTIFY mode));
! 92: TERM_PUBLIC void UP_reset __PROTO((void));
! 93: #define UP_XMAX 19859
! 94: #define UP_YMAX 11565
! 95: /* UP_VCHAR = ((UP_FONTSIZE*UP_YMAX)/(UP_YINCHES*72))
! 96: = UP_FONTSIZE*UP_VFONTSC
! 97: UP_HCHAR = ((UP_FONTSIZE/2)*UP_XMAX)/(UP_XINCHES*72))
! 98: = UP_FONTSIZE*UP_HFONTSC
! 99: */
! 100:
! 101: #define UP_VFONTSC 53.5
! 102: #define UP_VCHAR 535 /* 10 * VFONTSC */
! 103: #define UP_HFONTSC 27.6
! 104: #define UP_HCHAR 276 /* 10 * HFONTSC */
! 105:
! 106: #define UP_VTIC (UP_YMAX/80)
! 107: #define UP_HTIC (UP_XMAX/80)
! 108: #endif /* TERM_PROTO */
! 109:
! 110: #ifndef TERM_PROTO_ONLY
! 111: #ifdef TERM_BODY
! 112:
! 113:
! 114: char up_font[MAX_ID_LEN+1] = "Courier"; /* name of font */
! 115: int up_fontsize = 10;
! 116:
! 117: /* plot2ps produces a 8.25" x 8.25" square. */
! 118: #define UP_SCREENX 32768
! 119: #define UP_SCREENY 32768
! 120: #define UP_SCRXINC 8.25
! 121: #define UP_SCRYINC 8.25
! 122:
! 123: /* We want a 5" x 3" graph by default. */
! 124: #define UP_XINCHES 5
! 125: #define UP_YINCHES 3
! 126: /* UP_XMAX = (UP_SCREENX*UP_XINCHES)/UP_SCRXINC
! 127: UP_YMAX (UP_SCREENY*UP_YINCHES)/UP_SCRYINC */
! 128:
! 129: #define UP_XLAST (UP_XMAX - 1)
! 130: #define UP_YLAST (UP_YMAX - 1)
! 131:
! 132: /* These offsets center plot2ps output in the middle of the page. The
! 133: * amount of resizing that can be done is limited. */
! 134: /*
! 135: * #define UP_XOFF 6454
! 136: * #define UP_YOFF 10601
! 137: */
! 138:
! 139: /* These offsets give a 1" offset from the lower left corner. This
! 140: * gives a greater range of permissible values in GNUPLOT's size
! 141: * command. */
! 142: #define UP_XOFF 3972
! 143: #define UP_YOFF 3972
! 144:
! 145: enum JUSTIFY up_justify = LEFT;
! 146:
! 147: #ifdef GNU_PLOTUTILS
! 148: # define ROTATE(angle) textangle(90*angle)
! 149: #else
! 150: # define ROTATE(angle) rotate(0,0,90*angle)
! 151: #endif
! 152:
! 153: #ifdef GNU_PLOTUTILS
! 154: /* We don't include plot.h from plotutils because of
! 155: * the name clash with ../plot.h.
! 156: */
! 157: extern int openpl __PROTO((void));
! 158: extern int space __PROTO((int, int, int, int));
! 159: extern int fontname __PROTO((const char *));
! 160: extern int fontsize __PROTO((int));
! 161: extern int erase __PROTO((void));
! 162: extern int linemod __PROTO((const char *));
! 163: extern int move __PROTO((int, int));
! 164: extern int cont __PROTO((int, int));
! 165: extern int alabel __PROTO((int, int, const char *));
! 166: extern int textangle __PROTO((int));
! 167: extern int closepl __PROTO((void));
! 168: #endif
! 169:
! 170: TERM_PUBLIC void UP_options()
! 171: {
! 172: if (!END_OF_COMMAND) {
! 173: if (almost_equals(c_token, "d$efault")) {
! 174: strcpy(up_font, "Courier");
! 175: up_fontsize = 10;
! 176: term->v_char = (unsigned int) (up_fontsize * UP_VFONTSC);
! 177: term->h_char = (unsigned int) (up_fontsize * UP_HFONTSC);
! 178: c_token++;
! 179: }
! 180: }
! 181: if (!END_OF_COMMAND && isstring(c_token)) {
! 182: quote_str(up_font, c_token, MAX_ID_LEN);
! 183: c_token++;
! 184: }
! 185: if (!END_OF_COMMAND) {
! 186: /* We have font size specified */
! 187: struct value a;
! 188: up_fontsize = (int) real(const_express(&a));
! 189: term->v_char = (unsigned int) (up_fontsize * UP_VFONTSC);
! 190: term->h_char = (unsigned int) (up_fontsize * UP_HFONTSC);
! 191: }
! 192: sprintf(term_options, "\"%s\" %d", up_font, up_fontsize);
! 193: }
! 194:
! 195: TERM_PUBLIC void UP_init()
! 196: {
! 197: openpl();
! 198: space(0, 0, UP_SCREENX - 1, UP_SCREENY - 1);
! 199: fontname(up_font);
! 200: /*
! 201: #ifdef GNU_PLOTUTILS
! 202: fontsize((int)((up_fontsize / 72.0 * 8.0) * (UP_SCREENY-1)));
! 203: #else
! 204: */
! 205: fontsize(up_fontsize);
! 206: /*
! 207: #endif
! 208: */
! 209: }
! 210:
! 211:
! 212: TERM_PUBLIC void UP_graphics()
! 213: {
! 214: erase();
! 215: }
! 216:
! 217:
! 218: TERM_PUBLIC void UP_text()
! 219: {
! 220: /* Flush here so that output will be complete. */
! 221: fflush(stdout);
! 222: }
! 223:
! 224:
! 225: TERM_PUBLIC void UP_linetype(linetype)
! 226: int linetype;
! 227: {
! 228: static char *lt[2+5] = { "solid", "longdashed", "solid", "dotted",
! 229: "shortdashed", "dotdashed", "longdashed"};
! 230:
! 231: if (linetype >= 5)
! 232: linetype %= 5;
! 233: linemod(lt[linetype + 2]);
! 234: }
! 235:
! 236:
! 237: TERM_PUBLIC void UP_move(x, y)
! 238: unsigned int x, y;
! 239: {
! 240: move(x + UP_XOFF, y + UP_YOFF);
! 241: }
! 242:
! 243:
! 244: TERM_PUBLIC void UP_vector(x, y)
! 245: unsigned int x, y;
! 246: {
! 247: cont(x + UP_XOFF, y + UP_YOFF);
! 248: }
! 249:
! 250:
! 251: TERM_PUBLIC void UP_put_text(x, y, str)
! 252: unsigned int x, y;
! 253: char str[];
! 254: {
! 255: UP_move(x, y); /* Don't adjust x and y! It's done in UP_move. */
! 256: switch (up_justify) {
! 257: case LEFT:
! 258: alabel('l', 'c', str);
! 259: break;
! 260: case CENTRE:
! 261: alabel('c', 'c', str);
! 262: break;
! 263: case RIGHT:
! 264: alabel('r', 'c', str);
! 265: break;
! 266: }
! 267:
! 268: }
! 269:
! 270: TERM_PUBLIC int UP_text_angle(ang)
! 271: int ang;
! 272: {
! 273: ROTATE(ang);
! 274: return TRUE;
! 275: }
! 276:
! 277: TERM_PUBLIC int UP_justify_text(mode)
! 278: enum JUSTIFY mode;
! 279: {
! 280: up_justify = mode;
! 281: return TRUE;
! 282: }
! 283:
! 284: TERM_PUBLIC void UP_reset()
! 285: {
! 286: closepl();
! 287: }
! 288:
! 289: #endif /* TERM_BODY */
! 290:
! 291: #ifdef TERM_TABLE
! 292:
! 293: TERM_TABLE_START(unixplot_driver)
! 294: "unixplot", "GNU plot(1) format [\042fontname\042 font_size]",
! 295: UP_XMAX, UP_YMAX, UP_VCHAR, UP_HCHAR,
! 296: UP_VTIC, UP_HTIC, UP_options, UP_init, UP_reset,
! 297: UP_text, null_scale, UP_graphics, UP_move, UP_vector,
! 298: UP_linetype, UP_put_text, UP_text_angle,
! 299: UP_justify_text, line_and_point, do_arrow, set_font_null
! 300: TERM_TABLE_END(unixplot_driver)
! 301:
! 302: #undef LAST_TERM
! 303: #define LAST_TERM unixplot_driver
! 304:
! 305: #endif /* TERM_TABLE */
! 306: #endif /* TERM_PROTO_ONLY */
! 307:
! 308: #ifdef TERM_HELP
! 309: START_HELP(unixplot)
! 310: "1 unixplot",
! 311: "?commands set terminal unixplot",
! 312: "?set terminal unixplot",
! 313: "?set term unixplot",
! 314: "?terminal unixplot",
! 315: "?term unixplot",
! 316: "?unixplot",
! 317: " The `unixplot` driver produces device-independent output in the GNU plot",
! 318: " graphics language. The default size of the PostScript results generated by",
! 319: " \"plot2ps\" is 5 x 3 inches; this can be increased up to about 8.25 x 8.25 by",
! 320: " `set size`.",
! 321: "",
! 322: " Syntax:",
! 323: " set terminal unixplot {\"<fontname>\"} {<fontsize>}",
! 324: "",
! 325: " which defaults to 10-point \"Courier\".",
! 326: "",
! 327: " There is a non-GNU version of the `unixplot` driver which cannot be compiled",
! 328: " unless this version is left out."
! 329: END_HELP(unixplot)
! 330: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to gnugraph.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term