Annotation of OpenXM_contrib/gnuplot/term/gpic.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: gpic.trm,v 1.16 1998/04/14 00:17:46 drd Exp $
! 3: */
! 4:
! 5: /* GNUPLOT - gpic.trm -*-C-*- */
! 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:
! 41: /*
! 42: * This terminal driver supports:
! 43: * The GPIC graphics language for groff
! 44: *
! 45: * AUTHOR
! 46: * Sigfrid Lundberg
! 47: *
! 48: * send your comments or suggestions to (siglun@volterra.teorekol.lu.se).
! 49: *
! 50: */
! 51:
! 52: /*
! 53: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 54: */
! 55:
! 56: #include "driver.h"
! 57:
! 58: #ifdef TERM_REGISTER
! 59: register_term(gpic)
! 60: #endif
! 61:
! 62: #ifdef TERM_PROTO
! 63: TERM_PUBLIC void GPIC_options __PROTO((void));
! 64: TERM_PUBLIC void GPIC_init __PROTO((void));
! 65: TERM_PUBLIC void GPIC_graphics __PROTO((void));
! 66: TERM_PUBLIC void GPIC_text __PROTO((void));
! 67: TERM_PUBLIC void GPIC_linetype __PROTO((int linetype));
! 68: TERM_PUBLIC void GPIC_move __PROTO((unsigned int x, unsigned int y));
! 69: TERM_PUBLIC void GPIC_vector __PROTO((unsigned int ux, unsigned int uy));
! 70: TERM_PUBLIC void GPIC_arrow __PROTO((unsigned int sx, unsigned int sy,
! 71: unsigned int ex, unsigned int ey,
! 72: TBOOLEAN head));
! 73: TERM_PUBLIC void GPIC_put_text __PROTO((unsigned int x, unsigned int y,
! 74: char str[]));
! 75: TERM_PUBLIC int GPIC_justify_text __PROTO((enum JUSTIFY mode));
! 76: TERM_PUBLIC int GPIC_text_angle __PROTO((int ang));
! 77: TERM_PUBLIC void GPIC_reset __PROTO((void));
! 78: #define GPIC_DOTS_PER_INCH (300)
! 79:
! 80: /* 5 inches wide by 3 inches high (default) */
! 81: #define GPIC_XMAX (5*GPIC_DOTS_PER_INCH)
! 82: #define GPIC_YMAX (3*GPIC_DOTS_PER_INCH)
! 83:
! 84: #define GPIC_HTIC (5*GPIC_DOTS_PER_INCH/72)
! 85: #define GPIC_VTIC (5*GPIC_DOTS_PER_INCH/72)
! 86: #define GPIC_HCHAR (GPIC_DOTS_PER_INCH*53/10/72)
! 87: #define GPIC_VCHAR (GPIC_DOTS_PER_INCH*11/72)
! 88: #endif /* TERM_PROTO */
! 89:
! 90: #ifndef TERM_PROTO_ONLY
! 91: #ifdef TERM_BODY
! 92:
! 93: #define GPIC_PTS_PER_INCH (72.27)
! 94: /* dot size in pt */
! 95: #define GPIC_UNIT (GPIC_PTS_PER_INCH/GPIC_DOTS_PER_INCH)
! 96: #define GPIC_coord(x) ((float)x)/((float)GPIC_DOTS_PER_INCH)
! 97:
! 98: void GPIC_close_line __PROTO((void));
! 99: static float GPIC_x, GPIC_y;
! 100: static unsigned int GPIC_ltype;
! 101: enum JUSTIFY GPIC_justify = LEFT;
! 102:
! 103: /* for DOTS point style */
! 104:
! 105: static char *GPIC_lines[] =
! 106: {
! 107: "thickness 1.0", /* -2 border */
! 108: "", /* -1 axes */
! 109: "", /* 0 solid thin */
! 110: "dotted",
! 111: "dashed 0.05", /* 1 solid thick */
! 112: "dashed 0.075", /* 2 solid Thick */
! 113: };
! 114:
! 115: /* number of linetypes above */
! 116: #define GPIC_NUMLINES (sizeof(GPIC_lines)/sizeof(char *))
! 117:
! 118:
! 119: static int GPIC_linecount = 0; /* number of points in line so far */
! 120:
! 121:
! 122: TERM_PUBLIC void GPIC_options()
! 123: {
! 124: float x, y;
! 125: struct value a;
! 126:
! 127: GPIC_x = 0;
! 128: GPIC_y = 0;
! 129:
! 130: if (!END_OF_COMMAND) {
! 131: x = real(const_express(&a));
! 132: if (!END_OF_COMMAND) {
! 133: y = real(const_express(&a));
! 134: GPIC_x = x;
! 135: GPIC_y = y;
! 136: }
! 137: }
! 138: sprintf(term_options, "Origin is at (%f,%f)", GPIC_x, GPIC_y);
! 139:
! 140: }
! 141:
! 142: TERM_PUBLIC void GPIC_init()
! 143: {
! 144: GPIC_linetype(-1);
! 145: fputs(".\\\"GNUPLOT: GROFF picture using the gpic preprocessor\n", gpoutfile);
! 146: }
! 147:
! 148:
! 149:
! 150: TERM_PUBLIC void GPIC_graphics()
! 151: {
! 152: register struct termentry *t = term;
! 153:
! 154: fprintf(gpoutfile, ".PS %f %f\n", GPIC_coord(t->xmax),
! 155: GPIC_coord(t->ymax));
! 156: fprintf(gpoutfile, "x=%f; y=%f\n", GPIC_x, GPIC_y);
! 157: }
! 158:
! 159:
! 160: TERM_PUBLIC void GPIC_text()
! 161: {
! 162: GPIC_close_line();
! 163: fputs(".PE\n", gpoutfile);
! 164: }
! 165:
! 166: TERM_PUBLIC void GPIC_linetype(linetype)
! 167: int linetype;
! 168: {
! 169: if (linetype >= GPIC_NUMLINES - 2)
! 170: linetype %= (GPIC_NUMLINES - 2);
! 171: GPIC_ltype = linetype;
! 172: }
! 173:
! 174: void GPIC_close_line()
! 175: {
! 176: if (GPIC_linecount > 0) {
! 177: fputs("; reset linewid\n", gpoutfile);
! 178: GPIC_linecount = 0;
! 179: }
! 180: }
! 181:
! 182: TERM_PUBLIC void GPIC_move(x, y)
! 183: unsigned int x, y;
! 184: {
! 185: GPIC_close_line();
! 186: fprintf(gpoutfile, "move to (x+%f,y+%f)\n", GPIC_coord(x), GPIC_coord(y));
! 187: GPIC_linecount = 1;
! 188: }
! 189:
! 190:
! 191: TERM_PUBLIC void GPIC_vector(ux, uy)
! 192: unsigned int ux, uy;
! 193: {
! 194: if (GPIC_linecount == 1) {
! 195: fprintf(gpoutfile, "line %s to (x+%f,y+%f)",
! 196: GPIC_lines[GPIC_ltype + 2],
! 197: GPIC_coord(ux), GPIC_coord(uy));
! 198: } else {
! 199: fprintf(gpoutfile, "\
! 200: \\\n\
! 201: then to (x+%f,y+%f)",
! 202: GPIC_coord(ux), GPIC_coord(uy));
! 203: }
! 204: GPIC_linecount++;
! 205: }
! 206:
! 207:
! 208: TERM_PUBLIC void GPIC_arrow(sx, sy, ex, ey, head)
! 209: unsigned int sx, sy, ex, ey;
! 210: TBOOLEAN head;
! 211: {
! 212: GPIC_close_line();
! 213: if (head) {
! 214: fprintf(gpoutfile, "arrowhead=7; arrow from x+%f,y+%f to x+%f,y+%f\n",
! 215: GPIC_coord(sx), GPIC_coord(sy), GPIC_coord(ex), GPIC_coord(ey));
! 216: } else {
! 217: fprintf(gpoutfile, "line from x+%f,y+%f to x+%f,y+%f\n",
! 218: GPIC_coord(sx), GPIC_coord(sy), GPIC_coord(ex), GPIC_coord(ey));
! 219: }
! 220: }
! 221:
! 222:
! 223: TERM_PUBLIC void GPIC_put_text(x, y, str)
! 224: unsigned int x, y; /* reference point of string */
! 225: char str[]; /* the text */
! 226: {
! 227: GPIC_close_line();
! 228: fprintf(gpoutfile, "\"%s\" ", str);
! 229: switch (GPIC_justify) {
! 230: case LEFT:{
! 231: fputs("ljust ", gpoutfile);
! 232: break;
! 233: }
! 234: case CENTRE:{
! 235: fputs(" ", gpoutfile);
! 236: break;
! 237: }
! 238: case RIGHT:{
! 239: fputs("rjust ", gpoutfile);
! 240: break;
! 241: }
! 242: }
! 243: fprintf(gpoutfile, "at x+%f,y+%f\n", GPIC_coord(x), GPIC_coord(y));
! 244: }
! 245:
! 246:
! 247:
! 248: TERM_PUBLIC int GPIC_justify_text(mode)
! 249: enum JUSTIFY mode;
! 250: {
! 251: GPIC_justify = mode;
! 252: return (TRUE);
! 253: }
! 254:
! 255: TERM_PUBLIC int GPIC_text_angle(ang)
! 256: int ang;
! 257: {
! 258: GPIC_close_line();
! 259: return (FALSE);
! 260: }
! 261:
! 262: TERM_PUBLIC void GPIC_reset()
! 263: {
! 264: fflush(gpoutfile);
! 265: }
! 266:
! 267: #endif /* TERM_BODY */
! 268:
! 269: #ifdef TERM_TABLE
! 270:
! 271: TERM_TABLE_START(gpic_driver)
! 272: "gpic", "GPIC -- Produce graphs in groff using the gpic preprocessor",
! 273: GPIC_XMAX, GPIC_YMAX, GPIC_VCHAR, GPIC_HCHAR,
! 274: GPIC_VTIC, GPIC_HTIC, GPIC_options, GPIC_init, GPIC_reset,
! 275: GPIC_text, null_scale, GPIC_graphics, GPIC_move, GPIC_vector,
! 276: GPIC_linetype, GPIC_put_text, GPIC_text_angle,
! 277: GPIC_justify_text, line_and_point, GPIC_arrow, set_font_null
! 278: TERM_TABLE_END(gpic_driver)
! 279: #undef LAST_TERM
! 280: #define LAST_TERM gpic_driver
! 281:
! 282: #endif /* TERM_TABLE */
! 283: #endif /* TERM_PROTO_ONLY */
! 284:
! 285: #ifdef TERM_HELP
! 286: START_HELP(gpic)
! 287: "1 gpic",
! 288: "?commands set terminal gpic",
! 289: "?set terminal gpic",
! 290: "?set term gpic",
! 291: "?terminal gpic",
! 292: "?term gpic",
! 293: "?gpic",
! 294: " The `gpic` terminal driver generates GPIC graphs in the Free Software",
! 295: " Foundations's \"groff\" package. The default size is 5 x 3 inches. The only",
! 296: " option is the origin, which defaults to (0,0).",
! 297: "",
! 298: " Syntax:",
! 299: " set terminal gpic {<x> <y>}",
! 300: "",
! 301: " where `x` and `y` are in inches.",
! 302: "",
! 303: " A simple graph can be formatted using",
! 304: "",
! 305: " groff -p -mpic -Tps file.pic > file.ps.",
! 306: "",
! 307: " The output from pic can be pipe-lined into eqn, so it is possible to put",
! 308: " complex functions in a graph with the `set label` and `set {x/y}label`",
! 309: " commands. For instance,",
! 310: "",
! 311: " set ylab '@space 0 int from 0 to x alpha ( t ) roman d t@'",
! 312: "",
! 313: " will label the y axis with a nice integral if formatted with the command:",
! 314: "",
! 315: " gpic filename.pic | geqn -d@@ -Tps | groff -m[macro-package] -Tps",
! 316: " > filename.ps",
! 317: "",
! 318: " Figures made this way can be scaled to fit into a document. The pic language",
! 319: " is easy to understand, so the graphs can be edited by hand if need be. All",
! 320: " co-ordinates in the pic-file produced by `gnuplot` are given as x+gnuplotx",
! 321: " and y+gnuploty. By default x and y are given the value 0. If this line is",
! 322: " removed with an editor in a number of files, one can put several graphs in",
! 323: " one figure like this (default size is 5.0x3.0 inches):",
! 324: "",
! 325: " .PS 8.0",
! 326: " x=0;y=3",
! 327: " copy \"figa.pic\"",
! 328: " x=5;y=3",
! 329: " copy \"figb.pic\"",
! 330: " x=0;y=0",
! 331: " copy \"figc.pic\"",
! 332: " x=5;y=0",
! 333: " copy \"figd.pic\"",
! 334: " .PE",
! 335: "",
! 336: " This will produce an 8-inch-wide figure with four graphs in two rows on top",
! 337: " of each other.",
! 338: "",
! 339: " One can also achieve the same thing by the command",
! 340: "",
! 341: " set terminal gpic x y",
! 342: "",
! 343: " for example, using",
! 344: "",
! 345: " .PS 6.0",
! 346: " copy \"trig.pic\"",
! 347: " .PE"
! 348: END_HELP(gpic)
! 349: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to gpic.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term