Annotation of OpenXM_contrib/gnuplot/term/epslatex.trm, Revision 1.1
1.1 ! ohara 1: /*
! 2: * $Id: epslatex.trm,v 1.1.2.4 2002/01/26 19:05:34 lhecking Exp $
! 3: */
! 4:
! 5: /* GNUPLOT - epslatex.trm */
! 6:
! 7: /*[
! 8: * Copyright 2000
! 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 terminal driver supports:
! 39: * epslatex
! 40: */
! 41:
! 42: /* Written by Gregor Thalhammer
! 43: * you'll find a lot of similarities with the pslatex, postscript and pstricks terminal drivers
! 44: */
! 45:
! 46: #include "driver.h"
! 47:
! 48: #ifdef TERM_REGISTER
! 49: register_term(epslatex)
! 50: #endif
! 51:
! 52: #ifdef TERM_PROTO
! 53: TERM_PUBLIC void EPSL_options __PROTO((void));
! 54: TERM_PUBLIC void EPSL_init __PROTO((void));
! 55: TERM_PUBLIC void EPSL_graphics __PROTO((void));
! 56: TERM_PUBLIC void EPSL_text __PROTO((void));
! 57: TERM_PUBLIC void EPSL_reset __PROTO((void));
! 58: TERM_PUBLIC void EPSL_linetype __PROTO((int linetype));
! 59: TERM_PUBLIC void EPSL_move __PROTO((unsigned int x, unsigned int y));
! 60: TERM_PUBLIC void EPSL_vector __PROTO((unsigned int x, unsigned int y));
! 61: TERM_PUBLIC void EPSL_arrow __PROTO((unsigned int xstart, unsigned int ystart, unsigned int xend, unsigned int yend, TBOOLEAN head));
! 62: TERM_PUBLIC void EPSL_put_text __PROTO((unsigned int x, unsigned int y, char *str));
! 63: TERM_PUBLIC int EPSL_text_angle __PROTO((int ang));
! 64: TERM_PUBLIC int EPSL_justify_text __PROTO((enum JUSTIFY mode));
! 65: TERM_PUBLIC void EPSL_point __PROTO((unsigned int x, unsigned int y, int number));
! 66: TERM_PUBLIC int EPSL_set_font __PROTO((char *font));
! 67: TERM_PUBLIC void EPSL_fillbox __PROTO((int style, unsigned int x1, unsigned int y1, unsigned int width, unsigned int height));
! 68: TERM_PUBLIC void EPSL_linewidth __PROTO((double linewidth));
! 69: TERM_PUBLIC void EPSL_pointsize __PROTO((double ptsize));
! 70:
! 71: #ifdef PM3D
! 72: /* Not needed --- PS terminal version reused:
! 73: TERM_PUBLIC int EPSL_make_palette __PROTO((t_sm_palette *));
! 74: TERM_PUBLIC void EPSL_previous_palette __PROTO((void));
! 75: TERM_PUBLIC void EPSL_set_color __PROTO((double));
! 76: */
! 77: TERM_PUBLIC void EPSL_filled_polygon __PROTO((int, gpiPoint *));
! 78: #endif
! 79:
! 80: #define EPSL_SC (50) /* scale is 1pt = 10 units */
! 81: /* changed to 50, but gs now renders terribly slowly to display (x11alpha) !! */
! 82: #define EPSL_POINT_TYPES 8 /* never used! */
! 83: #define EPSL_XOFF 72 /* page offset in pts */
! 84: #define EPSL_YOFF 72
! 85: #define EPSL_XMAX (5*72*EPSL_SC) /* default plot size 5*3 inch */
! 86: #define EPSL_YMAX (3*72*EPSL_SC)
! 87: #define EPSL_XLAST (EPSL_XMAX - 1)
! 88: #define EPSL_YLAST (EPSL_YMAX - 1)
! 89: #define EPSL_VTIC (6.0*EPSL_SC)
! 90: #define EPSL_HTIC (6.0*EPSL_SC)
! 91: #define EPSL_POINTSIZE (2.0*EPSL_SC)
! 92: #define EPSL_LW (0.4*EPSL_SC) /* linewidth = 0.4 pts */
! 93: #define EPSL_VCHAR (11*EPSL_SC) /* default is 11 point characters */
! 94: #define EPSL_HCHAR (11*EPSL_SC*5/10)
! 95:
! 96: #endif /* TERM_PROTO */
! 97:
! 98: #ifndef TERM_PROTO_ONLY
! 99:
! 100: #ifdef TERM_BODY
! 101:
! 102: #define EPSL_FLUSH_PATH \
! 103: if (EPSL_path_count) {fputs("Gpstroke\n",gpoutfile); EPSL_path_count = 0; EPSL_relative_ok = FALSE;}
! 104:
! 105: /* From version.c */
! 106: extern char gnuplot_version[];
! 107: extern char gnuplot_patchlevel[];
! 108:
! 109: static char EPSL_font[MAX_ID_LEN + 1] = "default"; /* name of font */
! 110: static int EPSL_fontsize = 11; /* size of font in pts */
! 111:
! 112: static TBOOLEAN EPSL_color = FALSE; /* don't use colors */
! 113: static TBOOLEAN EPSL_solid = FALSE; /* use solid lines */
! 114:
! 115: static int EPSL_path_count = 0; /* count of lines in path */
! 116: static int EPSL_ang = 0; /* text angle */
! 117:
! 118: static enum JUSTIFY EPSL_justify = LEFT; /* text is flush left */
! 119: /* static int x = 0; */
! 120:
! 121: /* for testing */
! 122: /*
! 123: char GPFAR * GPFAR EPSL_header[] = {"(prolog.ps) run\n", NULL};
! 124: */
! 125:
! 126: char GPFAR *GPFAR EPSL_header[] = {
! 127: " /hpt hpt_ def \n",
! 128: " /vpt vpt_ def \n",
! 129: " /Gppointsize_ 1 def \n",
! 130: " /Gplinewidth_ 1 def \n",
! 131: " \n",
! 132: " /ArrowDict 25 dict def \n",
! 133: " \n",
! 134: " /M /moveto load def \n",
! 135: " /L /lineto load def \n",
! 136: " /R /rmoveto load def \n",
! 137: " /V /rlineto load def \n",
! 138: " /ED { exch def} bind def \n",
! 139: " \n",
! 140: " /Atan {/atan load stopped {pop pop 0} if } def \n",
! 141: " /Div {dup 0 eq { pop } { div } ifelse } def \n",
! 142: " /Pyth {dup mul exch dup mul add sqrt} def \n",
! 143: " \n",
! 144: " %Sizes \n",
! 145: " /Gpsetlinewidth \n",
! 146: " { \n",
! 147: " dup \n",
! 148: " % /Gplinewidth_ ED %save \n",
! 149: " Gplinewidth mul setlinewidth \n",
! 150: " } def \n",
! 151: " \n",
! 152: " /Gpsetpointsize \n",
! 153: " { \n",
! 154: " dup \n",
! 155: " /Gppointsize_ ED %save \n",
! 156: " dup \n",
! 157: " vpt_ mul /vpt ED \n",
! 158: " hpt_ mul /hpt ED \n",
! 159: " } def \n",
! 160: " \n",
! 161: " %Color \n",
! 162: " /SetHsbColor { Color {sethsbcolor} {pop pop pop} ifelse } def \n",
! 163: " /SetCmykColor { Color {setcmykcolor} {pop pop pop pop} ifelse } def \n",
! 164: " /SimpleSetColor {6 div 1 1 SetHsbColor} def \n",
! 165: " /Black {0 0 0 0 SetCmykColor} def \n",
! 166: " /Red {0 SimpleSetColor} def \n",
! 167: " /Blue {1 1 0 0 SetCmykColor} def \n",
! 168: " /Cyan {1 0 0 0 SetCmykColor} def \n",
! 169: " /Magenta {0 1 0 0 SetCmykColor} def \n",
! 170: " \n",
! 171: " %Stroking \n",
! 172: " /PathLength@ % z = z + sqrt{(x-xlast)^2 + (y-ylast)^2} \n",
! 173: " { \n",
! 174: " /z \n",
! 175: " z \n",
! 176: " y ylast sub \n",
! 177: " x xlast sub \n",
! 178: " Pyth \n",
! 179: " add \n",
! 180: " def \n",
! 181: " /ylast y def \n",
! 182: " /xlast x def \n",
! 183: " } def \n",
! 184: " \n",
! 185: " /PathLength \n",
! 186: " { \n",
! 187: " flattenpath \n",
! 188: " /z 0 def \n",
! 189: " { %move \n",
! 190: " /ystart ED \n",
! 191: " /xstart ED \n",
! 192: " /xlast xstart def \n",
! 193: " /ylast ystart def \n",
! 194: " } \n",
! 195: " { %line \n",
! 196: " /y ED \n",
! 197: " /x ED \n",
! 198: " PathLength@ \n",
! 199: " } \n",
! 200: " { %curve \n",
! 201: " } \n",
! 202: " { %close \n",
! 203: " /x xstart def \n",
! 204: " /y ystart def \n",
! 205: " PathLength@ \n",
! 206: " } \n",
! 207: " /pathforall load \n",
! 208: " stopped {pop pop pop pop} if \n",
! 209: " z \n",
! 210: " } def \n",
! 211: " \n",
! 212: " %dotsep DotLine \n",
! 213: " /DotLine \n",
! 214: " { \n",
! 215: " PathLength /b ED \n",
! 216: " /z ED \n",
! 217: " /y currentlinewidth def \n",
! 218: " /z y z add def \n",
! 219: " [ 0 b b z Div round Div dup 0 le { pop 1 } if] 0 setdash \n",
! 220: " 1 setlinecap \n",
! 221: " } def \n",
! 222: " \n",
! 223: " /DashLine \n",
! 224: " { \n",
! 225: " PathLength /b ED \n",
! 226: " /x ED \n",
! 227: " /y ED \n",
! 228: " /z y x add def \n",
! 229: " b y sub z Div round z mul y add b exch Div \n",
! 230: " dup \n",
! 231: " y mul /y ED \n",
! 232: " x mul /x ED \n",
! 233: " x 0 gt y 0 gt and \n",
! 234: " { [ y x ] 0 } \n",
! 235: " { [ 1 0 ] 0 } \n",
! 236: " ifelse \n",
! 237: " setdash \n",
! 238: " } def \n",
! 239: " \n",
! 240: " /DashLineTwo \n",
! 241: " { \n",
! 242: " PathLength /b ED \n",
! 243: " /u ED \n",
! 244: " /v ED \n",
! 245: " /x ED \n",
! 246: " /y ED \n",
! 247: " /z y x add u add v add def \n",
! 248: " b y sub z Div round z mul y add b exch Div \n",
! 249: " dup \n",
! 250: " y mul /y ED \n",
! 251: " x mul /x ED \n",
! 252: " x 0 gt y 0 gt and \n",
! 253: " { [ y x v u] 0 } \n",
! 254: " { [ 1 0 ] 0 } \n",
! 255: " ifelse \n",
! 256: " setdash \n",
! 257: " } def \n",
! 258: " \n",
! 259: " \n",
! 260: " /DotLineStroke \n",
! 261: " { \n",
! 262: " gsave \n",
! 263: " Dashed {currentlinewidth 2 mul DotLine} if \n",
! 264: " stroke \n",
! 265: " grestore \n",
! 266: " } def \n",
! 267: " \n",
! 268: " /SolidLineStroke \n",
! 269: " { \n",
! 270: " gsave \n",
! 271: " [] 0 setdash \n",
! 272: " stroke \n",
! 273: " grestore \n",
! 274: " } def \n",
! 275: " \n",
! 276: " /DashLineStroke \n",
! 277: " { \n",
! 278: " gsave \n",
! 279: " Dashed {Gplinewidth 8 mul Gplinewidth 5 mul DashLine} if \n",
! 280: " stroke \n",
! 281: " grestore \n",
! 282: " } def \n",
! 283: " \n",
! 284: " /DashDotLineStroke \n",
! 285: " { \n",
! 286: " gsave \n",
! 287: " Dashed {Gplinewidth 8 mul Gplinewidth 5 mul 0 Gplinewidth 5 mul DashLineTwo} if \n",
! 288: " stroke \n",
! 289: " grestore \n",
! 290: " } def \n",
! 291: " \n",
! 292: " /DashShortLineStroke \n",
! 293: " { \n",
! 294: " gsave \n",
! 295: " Dashed {Gplinewidth 4 mul dup DashLine} if \n",
! 296: " stroke \n",
! 297: " grestore \n",
! 298: " } def \n",
! 299: " \n",
! 300: " /ArrowHead \n",
! 301: " { \n",
! 302: " currentlinewidth mul add dup 2 div /w ED \n",
! 303: " mul dup /h ED \n",
! 304: " mul /a ED \n",
! 305: " w neg h moveto \n",
! 306: " 0 0 L \n",
! 307: " w h L \n",
! 308: " w neg a neg rlineto \n",
! 309: " gsave fill grestore \n",
! 310: " } def \n",
! 311: " \n",
! 312: " %/DrawArrowHead {1 dup scale 0.2 1.4 50 3 ArrowHead} def \n",
! 313: " %%%%% \n",
! 314: " %inset length dim num \n",
! 315: " %arrowwidth = dim + num*linewidth \n",
! 316: " %arrowlength = length*arrowwidth \n",
! 317: " %arrowinset = width * inset \n",
! 318: " \n",
! 319: " /DrawArrowHead {0.2 1.4 Gplinewidth 3 mul 4 ArrowHead} def \n",
! 320: " \n",
! 321: " /Arrow \n",
! 322: " { \n",
! 323: " currentpoint \n",
! 324: " 4 2 roll \n",
! 325: " ArrowDict \n",
! 326: " begin \n",
! 327: " /@mtrx matrix currentmatrix def \n",
! 328: " gsave \n",
! 329: " 2 copy translate \n",
! 330: " 2 index sub neg exch \n",
! 331: " 3 index sub exch Atan \n",
! 332: " rotate \n",
! 333: " newpath \n",
! 334: " DrawArrowHead \n",
! 335: " @mtrx setmatrix \n",
! 336: " currentpoint \n",
! 337: " grestore \n",
! 338: " end %ArrowDicht \n",
! 339: " lineto \n",
! 340: " Gpstroke \n",
! 341: " } def \n",
! 342: " \n",
! 343: " %axis \n",
! 344: " /LTa \n",
! 345: " { \n",
! 346: " Gpstroke \n",
! 347: " newpath \n",
! 348: " 0 setgray \n",
! 349: " /Gpstroke {DotLineStroke newpath} def \n",
! 350: " } def \n",
! 351: " \n",
! 352: " %border \n",
! 353: " /LTb \n",
! 354: " { \n",
! 355: " Gpstroke \n",
! 356: " newpath \n",
! 357: " 0 setgray \n",
! 358: " /Gpstroke {SolidLineStroke newpath} def \n",
! 359: " } def \n",
! 360: " \n",
! 361: " /LT0 \n",
! 362: " { \n",
! 363: " Gpstroke \n",
! 364: " newpath \n",
! 365: " Red \n",
! 366: " /Gpstroke {SolidLineStroke newpath} def \n",
! 367: " } def \n",
! 368: " \n",
! 369: " /LT1 \n",
! 370: " { \n",
! 371: " Gpstroke \n",
! 372: " newpath \n",
! 373: " Blue \n",
! 374: " /Gpstroke {DashLineStroke newpath} def \n",
! 375: " } def \n",
! 376: " \n",
! 377: " /LT2 \n",
! 378: " { \n",
! 379: " Gpstroke \n",
! 380: " newpath \n",
! 381: " Cyan \n",
! 382: " /Gpstroke {DashShortLineStroke newpath} def \n",
! 383: " } def \n",
! 384: " \n",
! 385: " /LT3 \n",
! 386: " { \n",
! 387: " Gpstroke \n",
! 388: " newpath \n",
! 389: " Magenta \n",
! 390: " /Gpstroke {DashDotLineStroke newpath} def \n",
! 391: " } def \n",
! 392: " \n",
! 393: " /Pnt \n",
! 394: " { \n",
! 395: " gsave \n",
! 396: " [] 0 setdash \n",
! 397: " 1 setlinecap \n",
! 398: " Gplinewidth Gppointsize_ mul setlinewidth \n",
! 399: " M \n",
! 400: " 0 0 V \n",
! 401: " stroke \n",
! 402: " grestore \n",
! 403: " } def \n",
! 404: " \n",
! 405: " /DiaPath \n",
! 406: " { \n",
! 407: " [] 0 setdash \n",
! 408: " Gplinewidth setlinewidth \n",
! 409: " 2 copy \n",
! 410: " newpath \n",
! 411: " vpt add moveto \n",
! 412: " hpt neg vpt neg rlineto \n",
! 413: " hpt vpt neg rlineto \n",
! 414: " hpt vpt rlineto \n",
! 415: " hpt neg vpt rlineto \n",
! 416: " closepath \n",
! 417: " } def \n",
! 418: " \n",
! 419: " /Dia \n",
! 420: " { \n",
! 421: " gsave \n",
! 422: " DiaPath \n",
! 423: " stroke \n",
! 424: " grestore \n",
! 425: " } def \n",
! 426: " \n",
! 427: " /DaF \n",
! 428: " { \n",
! 429: " gsave \n",
! 430: " DiaPath \n",
! 431: " fill \n",
! 432: " grestore \n",
! 433: " } def \n",
! 434: " \n",
! 435: " /Crc \n",
! 436: " { \n",
! 437: " gsave \n",
! 438: " [] 0 setdash \n",
! 439: " Gplinewidth setlinewidth \n",
! 440: " newpath \n",
! 441: " vpt 0.85 mul 0 360 arc \n",
! 442: " closepath \n",
! 443: " stroke \n",
! 444: " grestore \n",
! 445: " } def \n",
! 446: " \n",
! 447: " \n",
! 448: " /Crs \n",
! 449: " { \n",
! 450: " gsave \n",
! 451: " [] 0 setdash \n",
! 452: " Gplinewidth setlinewidth \n",
! 453: " 0 setlinecap \n",
! 454: " newpath \n",
! 455: " vpt sub \n",
! 456: " moveto \n",
! 457: " 0 vpt 2 mul rlineto \n",
! 458: " hpt vpt neg rmoveto \n",
! 459: " hpt 2 mul neg 0 rlineto \n",
! 460: " stroke \n",
! 461: " grestore \n",
! 462: " } def \n",
! 463: " \n",
! 464: " /CrX \n",
! 465: " { \n",
! 466: " gsave \n",
! 467: " translate \n",
! 468: " 45 rotate \n",
! 469: " 0 0 Crs \n",
! 470: " grestore \n",
! 471: " } def \n",
! 472: " \n",
! 473: " /CcF \n",
! 474: " { \n",
! 475: " gsave \n",
! 476: " [] 0 setdash \n",
! 477: " Gplinewidth setlinewidth \n",
! 478: " newpath \n",
! 479: " vpt 0.85 mul 0 360 arc \n",
! 480: " closepath \n",
! 481: " fill \n",
! 482: " grestore \n",
! 483: " } def \n",
! 484: " \n",
! 485: " /Box \n",
! 486: " { \n",
! 487: " gsave \n",
! 488: " translate \n",
! 489: " 45 rotate \n",
! 490: " 0 0 DiaPath \n",
! 491: " stroke \n",
! 492: " grestore \n",
! 493: " } def \n",
! 494: " \n",
! 495: " /BxF \n",
! 496: " { \n",
! 497: " gsave \n",
! 498: " translate \n",
! 499: " 45 rotate \n",
! 500: " 0 0 DiaPath \n",
! 501: " fill \n",
! 502: " grestore \n",
! 503: " } def \n",
! 504: " \n",
! 505: " /Gpstroke {stroke} def \n",
! 506: " 1 setlinecap \n",
! 507: " 1 setlinejoin \n",
! 508: NULL
! 509: };
! 510:
! 511: static int EPSL_pen_x, EPSL_pen_y;
! 512: static int EPSL_taken;
! 513: static int EPSL_linetype_last;
! 514: static TBOOLEAN EPSL_relative_ok;
! 515: static char *EPSL_texfilename = NULL;
! 516: static FILE *EPSL_texfile;
! 517:
! 518: TERM_PUBLIC void
! 519: EPSL_options()
! 520: {
! 521: if (!END_OF_COMMAND) { /* set all options to their default values */
! 522: if (almost_equals(c_token, "d$efault")) {
! 523: EPSL_color = FALSE;
! 524: EPSL_solid = FALSE;
! 525: strcpy(EPSL_font, "default");
! 526: EPSL_fontsize = 11;
! 527: term->v_char = (unsigned int) (EPSL_fontsize * EPSL_SC);
! 528: term->h_char = (unsigned int) (EPSL_fontsize * EPSL_SC * 5 / 10);
! 529: c_token++;
! 530: }
! 531: }
! 532:
! 533: if (!END_OF_COMMAND) {
! 534: if (almost_equals(c_token, "m$onochrome")) {
! 535: EPSL_color = FALSE;
! 536: c_token++;
! 537: } else if (almost_equals(c_token, "c$olor")
! 538: || almost_equals(c_token, "c$olour")) {
! 539: EPSL_color = TRUE;
! 540: c_token++;
! 541: }
! 542: }
! 543:
! 544: if (!END_OF_COMMAND) {
! 545: if (almost_equals(c_token, "so$lid")) {
! 546: EPSL_solid = TRUE;
! 547: c_token++;
! 548: } else if (almost_equals(c_token, "da$shed")) {
! 549: EPSL_solid = FALSE;
! 550: c_token++;
! 551: }
! 552: }
! 553:
! 554: if (!END_OF_COMMAND && isstring(c_token)) {
! 555: quote_str(EPSL_font, c_token, MAX_ID_LEN);
! 556: c_token++;
! 557: }
! 558:
! 559: if (!END_OF_COMMAND) {
! 560: /* We have font size specified */
! 561: struct value a;
! 562: EPSL_fontsize = (int) real(const_express(&a));
! 563: term->v_char = (unsigned int) (EPSL_fontsize * EPSL_SC);
! 564: term->h_char = (unsigned int) (EPSL_fontsize * EPSL_SC * 5 / 10);
! 565: }
! 566:
! 567: sprintf(default_font, "%s,%d", EPSL_font, EPSL_fontsize); /* 'default_font' declared in set.c */
! 568:
! 569: sprintf(term_options, "%s %s \"%s\" %d",
! 570: EPSL_color ? "color" : "monochrome",
! 571: EPSL_solid ? "solid" : "dashed",
! 572: EPSL_font, EPSL_fontsize);
! 573: }
! 574:
! 575:
! 576: /* the init fn for the epslatex driver */
! 577: TERM_PUBLIC void
! 578: EPSL_init()
! 579: {
! 580: char *dotIndex=NULL;
! 581: char *name;
! 582:
! 583: /* Why is EPSL_header global, and psi1, psi2 not? */
! 584:
! 585: static char GPFAR psi1[] = "%%%%Creator: gnuplot %s patchlevel %s\n\
! 586: %%%%CreationDate: %s";
! 587: static char GPFAR psi2[] = "%%%%EndComments\n\
! 588: /Gpdict 100 dict def\n\
! 589: Gpdict begin\n\
! 590: /Color %s def\n\
! 591: /Dashed %s def\n\
! 592: /Gplinewidth %.3f def\n\
! 593: /hpt_ %.3f def\n\
! 594: /vpt_ %.3f def\n";
! 595:
! 596: time_t now;
! 597:
! 598: unsigned int xmin_t, ymin_t, xmax_t, ymax_t;
! 599: int i;
! 600: term->xmax = EPSL_XMAX;
! 601: term->ymax = EPSL_YMAX;
! 602: xmin_t = EPSL_XMAX * xoffset / (EPSL_SC);
! 603: xmax_t = EPSL_XMAX * (xsize + xoffset) / (EPSL_SC);
! 604: ymin_t = EPSL_YMAX * yoffset / (EPSL_SC);
! 605: ymax_t = EPSL_YMAX * (yoffset + ysize) / (EPSL_SC);
! 606:
! 607: fputs("%%!PS-Adobe-3.0 EPSF-3.0\n", gpoutfile);
! 608: if (outstr)
! 609: fprintf(gpoutfile, "%%%%Title: (%s)\n", outstr);
! 610: time(&now);
! 611: fprintf(gpoutfile, psi1, gnuplot_version, gnuplot_patchlevel, asctime(localtime(&now)));
! 612:
! 613: fprintf(gpoutfile, "%%%%BoundingBox: %d %d %d %d\n",
! 614: EPSL_XOFF + xmin_t, EPSL_XOFF + ymin_t,
! 615: EPSL_XOFF + xmax_t, EPSL_YOFF + ymax_t);
! 616:
! 617: fprintf(gpoutfile, psi2,
! 618: EPSL_color ? "true" : "false",
! 619: EPSL_solid ? "false" : "true",
! 620: (double) EPSL_LW, (double) EPSL_POINTSIZE, (double) EPSL_POINTSIZE);
! 621:
! 622: for (i = 0; EPSL_header[i] != NULL; i++)
! 623: fprintf(gpoutfile, "%s", EPSL_header[i]);
! 624:
! 625: fputs("end\n%%%%EndProlog\n", gpoutfile);
! 626:
! 627: EPSL_texfile = NULL;
! 628:
! 629: if (outstr && (dotIndex = strrchr(outstr, '.'))) {
! 630: /* assume file name is ending in ".eps" */
! 631: if (EPSL_texfilename)
! 632: free(EPSL_texfilename);
! 633: EPSL_texfilename = gp_alloc(dotIndex - outstr + 5, "epslatex texfilename");
! 634: if (EPSL_texfilename) {
! 635: /* including . */
! 636: safe_strncpy(EPSL_texfilename, outstr, dotIndex - outstr + 2);
! 637: strcpy(EPSL_texfilename + (dotIndex - outstr) + 1, "tex");
! 638: if ((EPSL_texfile = fopen(EPSL_texfilename, "w")) == (FILE *) NULL) {
! 639: fprintf(stderr, "Cannot open tex file %s for output\n", EPSL_texfilename);
! 640: }
! 641: } else {
! 642: fprintf(stderr, "Cannot make LaTeX file name from %s\nTurning off LaTeX output\n", outstr);
! 643: }
! 644: }
! 645: if (EPSL_texfile) {
! 646: name = gp_alloc(dotIndex - outstr + 1, "epslatex temp filename");
! 647: safe_strncpy(name, outstr, dotIndex - outstr + 1);
! 648: name[dotIndex - outstr] = 0;
! 649: fprintf(EPSL_texfile, "%%GNUPLOT: LaTeX picture with Postscript\n\
! 650: \\begin{picture}(0,0)%%\n\
! 651: \\includegraphics{%s}%%\n\
! 652: \\end{picture}%%\n\
! 653: \\setlength{\\unitlength}{%.4fbp}%%\n", name, 1.0 / EPSL_SC);
! 654: }
! 655: #ifdef PM3D
! 656: /* to optimize output for postscript terminals family */
! 657: postscript_gpoutfile = gpoutfile;
! 658: #endif
! 659: }
! 660:
! 661:
! 662: TERM_PUBLIC void
! 663: EPSL_graphics()
! 664: {
! 665: static char GPFAR psg1[] = "0 setgray\nnewpath\n";
! 666: struct termentry *t = term;
! 667:
! 668: fprintf(gpoutfile, "\
! 669: Gpdict begin\ngsave\n\
! 670: %d %d translate\n\
! 671: %.4f %.4f scale\n\
! 672: %s",
! 673: EPSL_XOFF, EPSL_YOFF,
! 674: 1.0 / EPSL_SC, 1.0 / EPSL_SC,
! 675: psg1);
! 676: EPSL_pointsize(pointsize);
! 677: EPSL_linewidth(1.0);
! 678: EPSL_path_count = 0;
! 679: EPSL_relative_ok = FALSE;
! 680: EPSL_pen_x = EPSL_pen_y = -4000;
! 681: EPSL_taken = 0;
! 682: EPSL_linetype_last = -1;
! 683:
! 684: if (EPSL_texfile)
! 685: fprintf(EPSL_texfile, "\\begin{picture}(%d,%d)(0,0)%%\n",
! 686: (int) (xsize * t->xmax), (int) (ysize * t->ymax));
! 687: }
! 688:
! 689:
! 690: TERM_PUBLIC void
! 691: EPSL_text()
! 692: {
! 693: EPSL_FLUSH_PATH;
! 694: fputs("grestore\nend\nshowpage\n%%%%EOF\n", gpoutfile);
! 695: if (EPSL_texfile) {
! 696: fputs("\\end{picture}%\n\\endinput\n", EPSL_texfile);
! 697: }
! 698: }
! 699:
! 700: TERM_PUBLIC void
! 701: EPSL_reset()
! 702: {
! 703: if (EPSL_texfile) {
! 704: fclose(EPSL_texfile);
! 705: EPSL_texfile = NULL;
! 706: }
! 707: }
! 708:
! 709:
! 710: TERM_PUBLIC void
! 711: EPSL_linetype(linetype)
! 712: int linetype;
! 713: {
! 714: EPSL_FLUSH_PATH;
! 715: linetype = (linetype % 4) + 2;
! 716: if (linetype < 0)
! 717: linetype = 0;
! 718: EPSL_relative_ok = FALSE;
! 719: #if 0
! 720: if (EPSL_linetype_last == linetype)
! 721: return;
! 722: #endif
! 723: EPSL_linetype_last = linetype;
! 724: fprintf(gpoutfile, "LT%c\n", "ba0123"[linetype]);
! 725: EPSL_path_count = 0;
! 726: }
! 727:
! 728:
! 729: TERM_PUBLIC void
! 730: EPSL_linewidth(linewidth)
! 731: double linewidth;
! 732: {
! 733: EPSL_FLUSH_PATH;
! 734: fprintf(gpoutfile, "%.3f Gpsetlinewidth\n", linewidth);
! 735: }
! 736:
! 737: TERM_PUBLIC void
! 738: EPSL_pointsize(ptsize)
! 739: double ptsize;
! 740: {
! 741: fprintf(gpoutfile, "%.3f Gpsetpointsize\n", ptsize);
! 742: }
! 743:
! 744: TERM_PUBLIC void
! 745: EPSL_move(x, y)
! 746: unsigned int x, y;
! 747: {
! 748: int dx, dy;
! 749: /* Make this semi-dynamic and independent of architecture */
! 750: char abso[5 + 2 * INT_STR_LEN], rel[5 + 2 * INT_STR_LEN];
! 751:
! 752: /*if (EPSL_path_count) {EPSL_FLUSH_PATH}; */
! 753: EPSL_FLUSH_PATH;
! 754: dx = x - EPSL_pen_x;
! 755: dy = y - EPSL_pen_y;
! 756: /* can't cancel all null moves--need a move after stroke'ing */
! 757: if (dx == 0 && dy == 0 && EPSL_relative_ok)
! 758: return;
! 759: sprintf(abso, "%d %d M\n", x, y);
! 760: sprintf(rel, "%d %d R\n", dx, dy);
! 761: if (strlen(rel) < strlen(abso) && EPSL_relative_ok) {
! 762: fputs(rel, gpoutfile);
! 763: EPSL_taken++;
! 764: } else
! 765: fputs(abso, gpoutfile);
! 766: EPSL_relative_ok = TRUE;
! 767: EPSL_path_count += 1;
! 768:
! 769: EPSL_pen_x = x;
! 770: EPSL_pen_y = y;
! 771: }
! 772:
! 773: TERM_PUBLIC void
! 774: EPSL_vector(x, y)
! 775: unsigned int x, y;
! 776: {
! 777: int dx, dy;
! 778: char abso[5 + 2 * INT_STR_LEN], rel[5 + 2 * INT_STR_LEN];
! 779:
! 780: dx = x - EPSL_pen_x;
! 781: dy = y - EPSL_pen_y;
! 782: if (dx == 0 && dy == 0)
! 783: return;
! 784: sprintf(abso, "%d %d L\n", x, y);
! 785: sprintf(rel, "%d %d V\n", dx, dy);
! 786: if (strlen(rel) < strlen(abso) && EPSL_relative_ok) {
! 787: fputs(rel, gpoutfile);
! 788: EPSL_taken++;
! 789: } else
! 790: fputs(abso, gpoutfile);
! 791: EPSL_relative_ok = TRUE;
! 792: EPSL_path_count += 1;
! 793: EPSL_pen_x = x;
! 794: EPSL_pen_y = y;
! 795: /* if (ps_path_count >= 400) {
! 796: fprintf(gpoutfile,"currentpoint stroke M\n");
! 797: ps_path_count = 0;
! 798: }
! 799: */
! 800: }
! 801:
! 802: TERM_PUBLIC void
! 803: EPSL_arrow(xstart, ystart, xend, yend, head)
! 804: unsigned int xstart, ystart, xend, yend;
! 805: TBOOLEAN head;
! 806: {
! 807: fprintf(gpoutfile, "%d %d M\n%d %d %s\n", xstart, ystart, xend, yend, head ? "Arrow" : "L Gpstroke");
! 808: }
! 809:
! 810: TERM_PUBLIC void
! 811: EPSL_put_text(x, y, str)
! 812: unsigned int x, y;
! 813: char *str;
! 814: {
! 815: if (EPSL_texfile) {
! 816: fprintf(EPSL_texfile, "\\put(%d,%d){", x, y);
! 817: if (EPSL_ang) {
! 818: fputs("\\rotatebox{90}{", EPSL_texfile);
! 819: }
! 820: if (((str[0] == '{') || (str[0] == '['))) {
! 821: fprintf(EPSL_texfile, "\\makebox(0,0)%s", str);
! 822: } else
! 823: switch (EPSL_justify) {
! 824: case LEFT:
! 825: fprintf(EPSL_texfile, "\\makebox(0,0)[l]{\\strut{}%s}", str);
! 826: break;
! 827: case CENTRE:
! 828: fprintf(EPSL_texfile, "\\makebox(0,0){\\strut{}%s}", str);
! 829: break;
! 830: case RIGHT:
! 831: fprintf(EPSL_texfile, "\\makebox(0,0)[r]{\\strut{}%s}", str);
! 832: break;
! 833: }
! 834: if (EPSL_ang) {
! 835: fputs("}", EPSL_texfile);
! 836: }
! 837: fputs("}%\n", EPSL_texfile);
! 838: }
! 839: }
! 840:
! 841:
! 842: TERM_PUBLIC int
! 843: EPSL_text_angle(ang)
! 844: int ang;
! 845: {
! 846: EPSL_ang = ang;
! 847: return TRUE;
! 848: }
! 849:
! 850:
! 851: TERM_PUBLIC int
! 852: EPSL_justify_text(mode)
! 853: enum JUSTIFY mode;
! 854: {
! 855: EPSL_justify = mode;
! 856: return TRUE;
! 857: }
! 858:
! 859:
! 860: TERM_PUBLIC int
! 861: EPSL_set_font(font) /* Entry font added by DJL */
! 862: char *font;
! 863: {
! 864: char name[32];
! 865: int size, sep;
! 866:
! 867: sep = strcspn(font, ",");
! 868: strncpy(name, font, sep);
! 869: name[sep] = 0;
! 870: size = EPSL_fontsize;
! 871: sscanf(&(font[sep + 1]), "%d", &size);
! 872: return TRUE;
! 873: }
! 874:
! 875: TERM_PUBLIC void
! 876: EPSL_point(x, y, number)
! 877: unsigned int x, y;
! 878: int number;
! 879: {
! 880: static char GPFAR *GPFAR pointFNS[] = { "Pnt", "Dia", "Crc", "Crs", "CrX", "Box", "DaF", "CcF", "BxF" };
! 881:
! 882: EPSL_FLUSH_PATH;
! 883: if (number < 0)
! 884: number = -1; /* negative types are all 'dot' */
! 885: else
! 886: number %= sizeof(pointFNS) / sizeof(pointFNS[0]) - 1;
! 887: fprintf(gpoutfile, "%d %d %s\n", x, y, pointFNS[number + 1]);
! 888:
! 889: EPSL_relative_ok = 0;
! 890: EPSL_path_count = 0;
! 891: EPSL_linetype_last = -1; /* force next linetype change */
! 892: }
! 893:
! 894: TERM_PUBLIC void
! 895: EPSL_fillbox(style, x1, y1, x2, y2)
! 896: int style;
! 897: unsigned int x1, y1, x2, y2;
! 898: {
! 899: /* ULIG: the style parameter is now used for the fillboxes style
! 900: * (not implemented here), see the documentation */
! 901: EPSL_FLUSH_PATH fprintf(gpoutfile, "%d %d %d %d BoxFill\n", x1, y1, x2, y2);
! 902:
! 903: EPSL_relative_ok = 0;
! 904: EPSL_linetype_last = -1;
! 905: }
! 906:
! 907: #ifdef PM3D
! 908:
! 909: TERM_PUBLIC void
! 910: EPSL_filled_polygon(points, corners)
! 911: int points;
! 912: gpiPoint *corners;
! 913: {
! 914: PS_filled_polygon(points, corners);
! 915: EPSL_relative_ok = FALSE;
! 916: }
! 917:
! 918: #endif /* PM3D */
! 919:
! 920: #endif /* TERM_BODY */
! 921:
! 922: #ifdef TERM_TABLE
! 923:
! 924: TERM_TABLE_START(epslatex_driver)
! 925: "epslatex",
! 926: "LaTeX (Text) and encapsulated PostScript",
! 927: EPSL_XMAX, EPSL_YMAX, EPSL_VCHAR, EPSL_HCHAR,
! 928: EPSL_VTIC, EPSL_HTIC, EPSL_options, EPSL_init, EPSL_reset,
! 929: EPSL_text, null_scale, EPSL_graphics, EPSL_move, EPSL_vector,
! 930: EPSL_linetype, EPSL_put_text, EPSL_text_angle,
! 931: EPSL_justify_text, EPSL_point, EPSL_arrow, EPSL_set_font, EPSL_pointsize,
! 932: 0 /*flags */ , 0 /*suspend */ , 0 /*resume */ , EPSL_fillbox, EPSL_linewidth
! 933: #ifdef PM3D
! 934: #ifdef USE_MOUSE
! 935: , 0, 0, 0, 0, 0 /* no mouse support for epslatex */
! 936: #endif
! 937: , PS_make_palette,
! 938: PS_previous_palette,
! 939: PS_set_color,
! 940: EPSL_filled_polygon
! 941: #endif
! 942: TERM_TABLE_END(epslatex_driver)
! 943:
! 944: #undef LAST_TERM
! 945: #define LAST_TERM epslatex_driver
! 946: #endif /* TERM_TABLE */
! 947: #endif /* TERM_PROTO_ONLY */
! 948:
! 949: #ifdef TERM_HELP
! 950: START_HELP(post)
! 951: "1 epslatex",
! 952: "?commands set terminal epslatex",
! 953: "?set terminal epslatex",
! 954: "?set term epslatex",
! 955: "?terminal epslatex",
! 956: "?term epslatex",
! 957: "?epslatex",
! 958: " Two options may be set in the `epslatex` driver.",
! 959: "",
! 960: " Syntax:",
! 961: " set terminal epslatex {default}",
! 962: " {color | monochrome} {solid | dashed}",
! 963: " {\"<fontname>\"} {<fontsize>}",
! 964: "",
! 965: " `default` mode sets all options to their defaults: `monochrome`, `dashed`,",
! 966: " \"default\" and 11pt.",
! 967: " Default size of a plot is 5 inches wide and 3 inches high.",
! 968: "",
! 969: " `solid` draws all plots with solid lines, overriding any dashed patterns;",
! 970: " `\"<fontname>\"` is the name of font; and `<fontsize>` is",
! 971: " the size of the font in PostScript points. Font selection isn't supported yet.",
! 972: " Font size selection is supported only for the calculation of proper spacing.",
! 973: " The actual LaTeX font at the point of inclusion is taken, so use LaTeX commands",
! 974: " for changing fonts. If you use e.g. 12pt as font size for your LaTeX documents, ",
! 975: " use '\"default\" 12' as options.",
! 976: "",
! 977: " All drivers for LaTeX offer a special way of controlling text positioning:",
! 978: " If any text string begins with '{', you also need to include a '}' at the",
! 979: " end of the text, and the whole text will be centered both horizontally",
! 980: " and vertically by LaTeX. --- If the text string begins with '[', you need",
! 981: " to continue it with: a position specification (up to two out of t,b,l,r),",
! 982: " ']{', the text itself, and finally, '}'. The text itself may be anything",
! 983: " LaTeX can typeset as an LR-box. \\rule{}{}'s may help for best positioning.",
! 984: " See also the documenation of the pslatex terminal driver.",
! 985: " To create multiline labels, use \\shortstack, example",
! 986: " set ylabel '[r]{\\shortstack{first line \\\\ second line}}' ",
! 987: "",
! 988: " The driver produces two different files, one for the LaTeX part and one for",
! 989: " the eps part of the figure. ",
! 990: " The name of the LaTeX file is derived from the name of",
! 991: " the eps file given on the `set output` command; it is determined by replacing",
! 992: " the trailing `.eps` (actually just the final extent in the file name---and",
! 993: " the option will be turned off if there is no extent) with `.tex` in the output",
! 994: " file name. Remember to close the file before leaving `gnuplot`.",
! 995: " There is no LaTeX output if no output file is given!",
! 996: " In your LaTeX documents use '\\input{filename}' for inclusion of the figure.",
! 997: " Include \\usepackage{graphics} in the preambel!",
! 998: " Via 'epstopdf' (contained e.g. in the teTeX package, requires ghostscript)",
! 999: " pdf files can made out of the eps files. If the graphics package is properly",
! 1000: " configured, the LaTeX files can also be processed by pdflatex without",
! 1001: " changes, and the pdf files are included instead of the eps files"
! 1002: END_HELP(post)
! 1003: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to epslatex.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term