Annotation of OpenXM_contrib/gnuplot/term/eepic.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: eepic.trm,v 1.18 1998/04/14 00:17:39 drd Exp $
! 3: *
! 4: */
! 5:
! 6: /* GNUPLOT - eepic.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: * The EEPIC macros for LaTeX.
! 43: *
! 44: * AUTHORS
! 45: * David Kotz
! 46: *
! 47: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 48: *
! 49: */
! 50: /*
! 51: * This file contains the eepic terminal driver, intended for use with the
! 52: * eepic.sty macro package for LaTeX. This is an alternative to the
! 53: * latex driver. You need eepic.sty, epic.sty, and a printer driver that
! 54: * supports the tpic \specials.
! 55: *
! 56: * Although dotted and dashed lines are possible with EEPIC, and are
! 57: * tempting, they do not work well for high-sample-rate curves, mushing
! 58: * the dashes all together into a solid line. For now anyway, the EEPIC
! 59: * driver will have only solid lines. Anyone got a solution?
! 60: *
! 61: * LATEX must also be defined.
! 62: */
! 63: /*
! 64: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 65: */
! 66:
! 67: #include "driver.h"
! 68:
! 69: #ifdef TERM_REGISTER
! 70: register_term(eepic)
! 71: #endif
! 72:
! 73: #ifdef TERM_PROTO
! 74: TERM_PUBLIC void EEPIC_init __PROTO((void));
! 75: TERM_PUBLIC void EEPIC_graphics __PROTO((void));
! 76: TERM_PUBLIC void EEPIC_text __PROTO((void));
! 77: TERM_PUBLIC void EEPIC_linetype __PROTO((int linetype));
! 78: TERM_PUBLIC void EEPIC_move __PROTO((unsigned int x, unsigned int y));
! 79: TERM_PUBLIC void EEPIC_point __PROTO((unsigned int x, unsigned int y,
! 80: int number));
! 81: TERM_PUBLIC void EEPIC_vector __PROTO((unsigned int ux, unsigned int uy));
! 82: TERM_PUBLIC void EEPIC_arrow __PROTO((unsigned int sx, unsigned int sy,
! 83: unsigned int ex, unsigned int ey,
! 84: TBOOLEAN head));
! 85: TERM_PUBLIC void EEPIC_put_text __PROTO((unsigned int x, unsigned int y,
! 86: char str[]));
! 87: TERM_PUBLIC int EEPIC_justify_text __PROTO((enum JUSTIFY mode));
! 88: TERM_PUBLIC int EEPIC_text_angle __PROTO((int ang));
! 89: TERM_PUBLIC void EEPIC_reset __PROTO((void));
! 90:
! 91: #define EEPIC_PTS_PER_INCH (72.27)
! 92: /* resolution of printer we expect to use */
! 93: #define DOTS_PER_INCH (300)
! 94: /* dot size in pt */
! 95: #define EEPIC_UNIT (EEPIC_PTS_PER_INCH/DOTS_PER_INCH)
! 96:
! 97: /* 5 inches wide by 3 inches high (default) */
! 98: /* (EEPIC_PTS_PER_INCH/EEPIC_UNIT*5.0) */
! 99: #define EEPIC_XMAX (5*DOTS_PER_INCH)
! 100: /* (EEPIC_PTS_PER_INCH/EEPIC_UNIT*3.0) */
! 101: #define EEPIC_YMAX (3*DOTS_PER_INCH)
! 102:
! 103: #define EEPIC_HTIC (5*DOTS_PER_INCH/72) /* (5./EEPIC_UNIT) */
! 104: #define EEPIC_VTIC (5*DOTS_PER_INCH/72) /* (5./EEPIC_UNIT) */
! 105: #define EEPIC_HCHAR (DOTS_PER_INCH*53/10/72) /* (5.3/EEPIC_UNIT) */
! 106: #define EEPIC_VCHAR (DOTS_PER_INCH*11/72) /* (11./EEPIC_UNIT) */
! 107: #endif /* TERM_PROTO */
! 108:
! 109: #ifndef TERM_PROTO_ONLY
! 110: #ifdef TERM_BODY
! 111:
! 112: static unsigned int EEPIC_posx;
! 113: static unsigned int EEPIC_posy;
! 114: enum JUSTIFY eepic_justify = LEFT;
! 115: static int eepic_angle = 0;
! 116:
! 117: /* for DOTS point style */
! 118: #define EEPIC_TINY_DOT "\\rule{.1pt}{.1pt}"
! 119:
! 120: /* POINTS */
! 121: #define EEPIC_POINT_TYPES 12 /* we supply more point types */
! 122: static char GPFAR *GPFAR EEPIC_points[] =
! 123: {
! 124: "\\raisebox{-1.2pt}{\\makebox(0,0){$\\Diamond$}}",
! 125: "\\makebox(0,0){$+$}",
! 126: "\\raisebox{-1.2pt}{\\makebox(0,0){$\\Box$}}",
! 127: "\\makebox(0,0){$\\times$}",
! 128: "\\makebox(0,0){$\\triangle$}",
! 129: "\\makebox(0,0){$\\star$}",
! 130: "\\circle{12}", "\\circle{18}", "\\circle{24}",
! 131: "\\circle*{12}", "\\circle*{18}", "\\circle*{24}"
! 132: };
! 133:
! 134: /* LINES */
! 135: #define EEPIC_NUMLINES 5 /* number of linetypes below */
! 136: static char GPFAR *GPFAR EEPIC_lines[] =
! 137: {
! 138: "\\thicklines \\path", /* -2 border */
! 139: "\\thinlines \\drawline[-50]", /* -1 axes */
! 140: "\\thinlines \\path", /* 0 solid thin */
! 141: "\\thicklines \\path", /* 1 solid thick */
! 142: "\\Thicklines \\path", /* 2 solid Thick */
! 143: };
! 144: /* These are other possibilities
! 145: "\\thinlines \\dottedline{30}",
! 146: "\\thinlines \\drawline[-30]",
! 147: "\\thinlines \\dottedline{60}",
! 148: "\\thinlines \\drawline[-60]",
! 149: "\\thinlines \\dashline[-10]{20}[6]"
! 150: */
! 151: static int EEPIC_type; /* current line type */
! 152: static TBOOLEAN EEPIC_inline = FALSE; /* are we in the middle of a line */
! 153: void EEPIC_endline __PROTO((void)); /* terminate any line in progress */
! 154: static int EEPIC_linecount = 0; /* number of points in line so far */
! 155: #define EEPIC_LINEMAX 50 /* max value for linecount */
! 156:
! 157: /* ARROWS */
! 158: /* we use the same code as for LATEX */
! 159: /* figure out the best arrow */
! 160: void best_latex_arrow __PROTO((int sx, int sy, int ex, int ey, int who,
! 161: TBOOLEAN head));
! 162:
! 163: TERM_PUBLIC void EEPIC_init()
! 164: {
! 165: EEPIC_posx = EEPIC_posy = 0;
! 166: EEPIC_linetype(-1);
! 167: fprintf(gpoutfile, "%% GNUPLOT: LaTeX picture using EEPIC macros\n\
! 168: \\setlength{\\unitlength}{%fpt}\n", EEPIC_UNIT);
! 169: }
! 170:
! 171:
! 172: TERM_PUBLIC void EEPIC_graphics()
! 173: {
! 174: register struct termentry *t = term;
! 175:
! 176: fprintf(gpoutfile, "\\begin{picture}(%d,%d)(0,0)\n\
! 177: \\footnotesize\n", t->xmax, t->ymax);
! 178:
! 179: }
! 180:
! 181:
! 182: TERM_PUBLIC void EEPIC_text()
! 183: {
! 184: EEPIC_endline();
! 185: fputs("\\end{picture}\n", gpoutfile);
! 186: }
! 187:
! 188:
! 189: TERM_PUBLIC void EEPIC_linetype(linetype)
! 190: int linetype;
! 191: {
! 192: EEPIC_endline();
! 193:
! 194: if (linetype >= EEPIC_NUMLINES - 2)
! 195: linetype %= (EEPIC_NUMLINES - 2);
! 196:
! 197: EEPIC_type = linetype;
! 198: }
! 199:
! 200:
! 201:
! 202: TERM_PUBLIC void EEPIC_move(x, y)
! 203: unsigned int x, y;
! 204: {
! 205: EEPIC_endline();
! 206:
! 207: EEPIC_posx = x;
! 208: EEPIC_posy = y;
! 209: }
! 210:
! 211:
! 212: TERM_PUBLIC void EEPIC_point(x, y, number) /* version of line_and_point */
! 213: unsigned int x, y;
! 214: int number; /* type of point */
! 215: {
! 216: EEPIC_move(x, y);
! 217:
! 218: /* Print the character defined by 'number'; number < 0 means
! 219: to use a dot, otherwise one of the defined points. */
! 220: fprintf(gpoutfile, "\\put(%d,%d){%s}\n", x, y,
! 221: (number < 0 ? EEPIC_TINY_DOT
! 222: : EEPIC_points[number % EEPIC_POINT_TYPES]));
! 223: }
! 224:
! 225:
! 226: TERM_PUBLIC void EEPIC_vector(ux, uy)
! 227: unsigned int ux, uy;
! 228: {
! 229: if (!EEPIC_inline) {
! 230: EEPIC_inline = TRUE;
! 231:
! 232: /* Start a new line. This depends on line type */
! 233: fprintf(gpoutfile, "%s(%u,%u)",
! 234: EEPIC_lines[EEPIC_type + 2],
! 235: EEPIC_posx, EEPIC_posy);
! 236: EEPIC_linecount = 1;
! 237: } else {
! 238: /* Even though we are in middle of a path,
! 239: * we may want to start a new path command.
! 240: * If they are too long then latex will choke.
! 241: */
! 242: if (EEPIC_linecount++ >= EEPIC_LINEMAX) {
! 243: fprintf(gpoutfile, "\n%s(%u,%u)",
! 244: EEPIC_lines[EEPIC_type + 2],
! 245: EEPIC_posx, EEPIC_posy);
! 246: EEPIC_linecount = 1;
! 247: }
! 248: }
! 249: fprintf(gpoutfile, "(%u,%u)", ux, uy);
! 250: EEPIC_posx = ux;
! 251: EEPIC_posy = uy;
! 252: }
! 253:
! 254: void EEPIC_endline()
! 255: {
! 256: if (EEPIC_inline) {
! 257: putc('\n', gpoutfile);
! 258: EEPIC_inline = FALSE;
! 259: }
! 260: }
! 261:
! 262:
! 263: TERM_PUBLIC void EEPIC_arrow(sx, sy, ex, ey, head)
! 264: unsigned int sx, sy, ex, ey;
! 265: TBOOLEAN head;
! 266: {
! 267: best_latex_arrow(sx, sy, ex, ey, 2, head); /* call latex routine */
! 268:
! 269: EEPIC_posx = ex;
! 270: EEPIC_posy = ey;
! 271: }
! 272:
! 273:
! 274: TERM_PUBLIC void EEPIC_put_text(x, y, str)
! 275: unsigned int x, y; /* reference point of string */
! 276: char str[]; /* the text */
! 277: {
! 278: EEPIC_endline();
! 279:
! 280: fprintf(gpoutfile, "\\put(%d,%d)", x, y);
! 281: if ((str[0] == '{') || (str[0] == '[')) {
! 282: fprintf(gpoutfile, "{\\makebox(0,0)%s}\n", str);
! 283: } else
! 284: switch (eepic_angle) {
! 285: case 0:{
! 286: switch (eepic_justify) {
! 287: case LEFT:{
! 288: fprintf(gpoutfile,
! 289: "{\\makebox(0,0)[l]{%s}}\n", str);
! 290: break;
! 291: }
! 292: case CENTRE:{
! 293: fprintf(gpoutfile,
! 294: "{\\makebox(0,0){%s}}\n", str);
! 295: break;
! 296: }
! 297: case RIGHT:{
! 298: fprintf(gpoutfile,
! 299: "{\\makebox(0,0)[r]{%s}}\n", str);
! 300: break;
! 301: }
! 302: }
! 303: break;
! 304: }
! 305: case 1:{ /* put text in a short stack */
! 306: switch (eepic_justify) {
! 307: case LEFT:{
! 308: fprintf(gpoutfile,
! 309: "{\\makebox(0,0)[lb]{\\shortstack{%s}}}\n", str);
! 310: break;
! 311: }
! 312: case CENTRE:{
! 313: fprintf(gpoutfile,
! 314: "{\\makebox(0,0)[l]{\\shortstack{%s}}}\n", str);
! 315: break;
! 316: }
! 317: case RIGHT:{
! 318: fprintf(gpoutfile,
! 319: "{\\makebox(0,0)[lt]{\\shortstack{%s}}}\n", str);
! 320: break;
! 321: }
! 322: }
! 323: break;
! 324: }
! 325: }
! 326: }
! 327:
! 328:
! 329:
! 330: TERM_PUBLIC int EEPIC_justify_text(mode)
! 331: enum JUSTIFY mode;
! 332: {
! 333: eepic_justify = mode;
! 334: return (TRUE);
! 335: }
! 336:
! 337: TERM_PUBLIC int EEPIC_text_angle(ang)
! 338: int ang;
! 339: {
! 340: /* we can't really write text vertically, but this will
! 341: put the ylabel centred at the left of the plot, and
! 342: then we'll make a \shortstack */
! 343: eepic_angle = ang;
! 344: return (TRUE);
! 345: }
! 346:
! 347: TERM_PUBLIC void EEPIC_reset()
! 348: {
! 349: EEPIC_endline();
! 350: EEPIC_posx = EEPIC_posy = 0;
! 351: }
! 352:
! 353: #endif
! 354:
! 355: #ifdef TERM_TABLE
! 356:
! 357: TERM_TABLE_START(eepic_driver)
! 358: "eepic", "EEPIC -- extended LaTeX picture environment",
! 359: EEPIC_XMAX, EEPIC_YMAX, EEPIC_VCHAR, EEPIC_HCHAR,
! 360: EEPIC_VTIC, EEPIC_HTIC, options_null, EEPIC_init, EEPIC_reset,
! 361: EEPIC_text, null_scale, EEPIC_graphics, EEPIC_move, EEPIC_vector,
! 362: EEPIC_linetype, EEPIC_put_text, EEPIC_text_angle,
! 363: EEPIC_justify_text, EEPIC_point, EEPIC_arrow, set_font_null
! 364: TERM_TABLE_END(eepic_driver)
! 365:
! 366: #undef LAST_TERM
! 367: #define LAST_TERM eepic_driver
! 368:
! 369: #endif
! 370: #endif
! 371:
! 372: #ifdef TERM_HELP
! 373: START_HELP(eepic)
! 374: "1 eepic",
! 375: "?commands set terminal eepic",
! 376: "?set terminal eepic",
! 377: "?set term eepic",
! 378: "?terminal eepic",
! 379: "?term eepic",
! 380: "?eepic",
! 381: " The `eepic` terminal driver supports the extended LaTeX picture environment.",
! 382: " It is an alternative to the `latex` driver.",
! 383: "",
! 384: " The output of this terminal is intended for use with the \"eepic.sty\" macro",
! 385: " package for LaTeX. To use it, you need \"eepic.sty\", \"epic.sty\" and a",
! 386: " printer driver that supports the \"tpic\" \\specials. If your printer driver",
! 387: " doesn't support those \\specials, \"eepicemu.sty\" will enable you to use some",
! 388: " of them.",
! 389: "",
! 390: " Although dotted and dashed lines are possible with `eepic` and are tempting,",
! 391: " they do not work well for high-sample-rate curves, fusing the dashes all",
! 392: " together into a solid line. For now, the `eepic` driver creates only solid",
! 393: " lines. There is another gnuplot driver (`tpic`) that supports dashed lines,",
! 394: " but it cannot be used if your DVI driver doesn't support \"tpic\" \\specials.",
! 395: "",
! 396: " All drivers for LaTeX offer a special way of controlling text positioning:",
! 397: " If any text string begins with '{', you also need to include a '}' at the",
! 398: " end of the text, and the whole text will be centered both horizontally",
! 399: " and vertically by LaTeX. --- If the text string begins with '[', you need",
! 400: " to continue it with: a position specification (up to two out of t,b,l,r),",
! 401: " ']{', the text itself, and finally, '}'. The text itself may be anything",
! 402: " LaTeX can typeset as an LR-box. \\rule{}{}'s may help for best positioning.",
! 403: "",
! 404: " The `eepic` terminal has no options.",
! 405: "",
! 406: " Examples:",
! 407: " About label positioning:",
! 408: " Use gnuplot defaults (mostly sensible, but sometimes not really best):",
! 409: " set title '\\LaTeX\\ -- $ \\gamma $'",
! 410: " Force centering both horizontally and vertically:",
! 411: " set label '{\\LaTeX\\ -- $ \\gamma $}' at 0,0",
! 412: " Specify own positioning (top here):",
! 413: " set xlabel '[t]{\\LaTeX\\ -- $ \\gamma $}'",
! 414: " The other label -- account for long ticlabels:",
! 415: " set ylabel '[r]{\\LaTeX\\ -- $ \\gamma $\\rule{7mm}{0pt}'"
! 416: END_HELP(eepic)
! 417: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to eepic.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term