Annotation of OpenXM_contrib/gnuplot/term/fig.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: fig.trm,v 1.57 1998/06/18 14:59:20 ddenholm Exp $
! 3: */
! 4:
! 5: /* GNUPLOT - fig.trm */
! 6:
! 7: /*[
! 8: * Copyright 1990 - 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: * Fig graphics language
! 42: *
! 43: * AUTHORS
! 44: * Micah Beck, David Kotz
! 45: *
! 46: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 47: *
! 48: */
! 49:
! 50: /*
! 51: * Original for Fig code output by Micah Beck, 1989
! 52: * Department of Computer Science, Cornell University
! 53: * Updated by David Kotz for gnuplot 2.0
! 54: * More efficient output by Ian Dall
! 55: * Updated to FIG 2.1 (with color) format by Vivek Khera
! 56: * Updated to FIG 3.1 (higher resolution) format by Ian MacPhedran, Jan 1995
! 57: * Updated to conform to newterm format Ian MacPhedran, Apr 1995
! 58: * Point-count option joachim.selinger@ins.uni-stuttgart.de (JFS) Feb 9 1996
! 59: * More options (portrait/landscape, metric/inches, size, fontsize, thickness)
! 60: * plus symbols and depth/thickness by bernlohr@eu1.mpi-hd.mpg.de (KB) Aug 15 1996
! 61: */
! 62:
! 63: #include "driver.h"
! 64:
! 65: #ifdef TERM_REGISTER
! 66: register_term(fig)
! 67: #endif /* TERM_REGISTER */
! 68:
! 69: #ifdef TERM_PROTO
! 70: TERM_PUBLIC void FIG_options __PROTO((void));
! 71: TERM_PUBLIC void FIG_init __PROTO((void));
! 72: TERM_PUBLIC void FIG_graphics __PROTO((void));
! 73: TERM_PUBLIC void FIG_text __PROTO((void));
! 74: TERM_PUBLIC void FIG_linetype __PROTO((int linetype));
! 75: TERM_PUBLIC void FIG_move __PROTO((unsigned int x, unsigned int y));
! 76: TERM_PUBLIC void FIG_vector __PROTO((unsigned int ux, unsigned int uy));
! 77: TERM_PUBLIC void FIG_arrow __PROTO((unsigned int sx, unsigned int sy, unsigned int ex, unsigned int ey, TBOOLEAN head));
! 78: TERM_PUBLIC void FIG_put_text __PROTO((unsigned int x, unsigned int y, char *str));
! 79: TERM_PUBLIC int FIG_justify_text __PROTO((enum JUSTIFY mode));
! 80: TERM_PUBLIC int FIG_text_angle __PROTO((int ang));
! 81: TERM_PUBLIC void FIG_pointsize __PROTO((double arg_pointsize));
! 82: TERM_PUBLIC void FIG_linewidth __PROTO((double linewidth));
! 83: TERM_PUBLIC void FIG_reset __PROTO((void));
! 84: TERM_PUBLIC void FIG_lpoint __PROTO((unsigned int x, unsigned int y, int number));
! 85:
! 86: #define GOT_FIG_PROTO
! 87: #endif /* TERM_PROTO */
! 88:
! 89: #ifndef TERM_PROTO_ONLY
! 90: #ifdef TERM_BODY
! 91:
! 92: #include "object.h" /* modified from the XFig distribution */
! 93: #define FIG_DEFAULT DEFAULT
! 94: #define FIG_ROMAN_FONT (0) /* actually, the default font */
! 95:
! 96: #ifndef FIG_RES
! 97: /* This is now 1200 per inch */
! 98: #define FIG_RES (1200)
! 99: #endif
! 100:
! 101: #define FIG_COORD_SYS 2
! 102: #define FIG_ORIENT (FIG_portrait?"Portrait":"Landscape")
! 103: /* Could be "Portrait" */
! 104: #define FIG_JUST "Center"
! 105: /* Could be "Flush Left" */
! 106: #define FIG_UNIT (FIG_inches?"Inches":"Metric")
! 107: /* Could be "Inches" */
! 108:
! 109: #define FIG_MAGIC "#FIG 3.1"
! 110: #define FIG_HTIC (5*FIG_RES/80)
! 111: #define FIG_VTIC (5*FIG_RES/80)
! 112: #define FIG_FONT_S (10) /* size in points */
! 113: #define FIG_MAX_POINTS 99999L /* almost infinite ;-) */
! 114:
! 115: #define FIG_to_pixel_v(s) ((s)*FIG_RES/72*3/4) /* height of font in pixels */
! 116: /* This is fudged to enlarge the drawing area, but gives fairly good results */
! 117: #define FIG_to_pixel_h(s) (FIG_to_pixel_v(s)*6/10) /* this is a guess at the width */
! 118:
! 119: #define FIG_VCHAR FIG_to_pixel_v(FIG_FONT_S) /* just for default, */
! 120: #define FIG_HCHAR FIG_to_pixel_h(FIG_FONT_S) /* not really used */
! 121:
! 122: enum FIG_poly_stat {
! 123: FIG_poly_new, FIG_poly_part
! 124: };
! 125:
! 126: static int FIG_posx;
! 127: static int FIG_posy;
! 128: static long FIG_poly_vec_cnt;
! 129: static int FIG_depth = 10;
! 130: static int FIG_linedepth = 10;
! 131: static int FIG_thickness = 1;
! 132: static int FIG_default_thickness = 1;
! 133: static double FIG_current_pointsize = 1.;
! 134: static double FIG_current_linewidth = 1.;
! 135:
! 136: /* Maximum number of points per POLYLINE.
! 137: Default 1000 (hardcoded in help section as well) */
! 138: static int FIG_poly_vec_max = 999; /* JFS */
! 139:
! 140: static enum FIG_poly_stat FIG_polyvec_stat;
! 141:
! 142: /* 5 inches wide by 3 inches high */
! 143: #define FIG_XMAX (5 * FIG_RES)
! 144: #define FIG_YMAX (3 * FIG_RES)
! 145:
! 146: #define FIG_XOFF (FIG_RES/4)
! 147: #define FIG_YOFF (FIG_RES/4)
! 148:
! 149:
! 150: #define BFIG_HTIC (7*FIG_RES/80)
! 151: #define BFIG_VTIC (7*FIG_RES/80)
! 152: #define BFIG_FONT_S (16) /* size in points */
! 153: #define BFIG_VCHAR FIG_to_pixel_v(BFIG_FONT_S) /* height in pixels of font */
! 154: #define BFIG_HCHAR FIG_to_pixel_h(BFIG_FONT_S) /* this is a guess at the width */
! 155:
! 156: static F_point *FIG_points = NULL; /* Array for the collection of points for
! 157: POLYLINE, allocated on demand. */
! 158: static F_line FIG_line;
! 159:
! 160: /* 8 inches wide by 5 inches high */
! 161: #define BFIG_XMAX (8 * FIG_RES)
! 162: #define BFIG_YMAX (5 * FIG_RES)
! 163:
! 164: #define BFIG_XOFF (FIG_RES/2)
! 165: #define BFIG_YOFF (FIG_RES/2)
! 166:
! 167:
! 168: static int FIG_type; /* negative types use real lines */
! 169: static float FIG_spacing; /* length of dash or dot spacing */
! 170: static int FIG_justify; /* Fig justification T_*_JUSTIFIED */
! 171: static float FIG_angle; /* Fig text angle 0=horiz, Pi/2=vert */
! 172: static int FIG_use_color = FALSE; /* do we use color or not? */
! 173: static int FIG_is_big = FALSE; /* big plot ? */
! 174: static int FIG_color = DEFAULT; /* which color to use */
! 175: static int FIG_xoff = FIG_XOFF;
! 176: static int FIG_yoff = FIG_YOFF;
! 177: static int FIG_font_s = FIG_FONT_S;
! 178: static int FIG_portrait = FALSE;
! 179: static int FIG_inches = FALSE;
! 180:
! 181: static void FIG_poly_clean __PROTO((enum FIG_poly_stat fig_stat));
! 182:
! 183:
! 184: #define FIG_POINT_TYPES POINT_TYPES /* we use the same points */
! 185:
! 186:
! 187: static void FIG_poly_clean(fig_stat)
! 188: enum FIG_poly_stat fig_stat;
! 189: {
! 190: int i, j;
! 191: if (fig_stat == FIG_poly_part) {
! 192: fprintf(gpoutfile, "%d %d %d %d %d %d %d %d %d %9.3f %d %d %d %d %d %ld\n\t",
! 193: O_POLYLINE, FIG_line.type, FIG_line.style, FIG_line.thickness,
! 194: FIG_line.pen_color, FIG_line.fill_color, FIG_line.depth,
! 195: FIG_line.pen_style, FIG_line.fill_style, FIG_line.style_val,
! 196: FIG_line.join_style, FIG_line.cap_style, FIG_line.radius,
! 197: 0, 0, FIG_poly_vec_cnt);
! 198:
! 199: j = 0;
! 200: for (i = 0; i < FIG_poly_vec_cnt; i++) {
! 201: fprintf(gpoutfile, " %d %d", FIG_points[i].x, FIG_points[i].y);
! 202: if (j++ > 4 && i != FIG_poly_vec_cnt - 1) {
! 203: fputs("\n\t", gpoutfile);
! 204: j = 0; /* JFS */
! 205: }
! 206: }
! 207: if (j != 0) {
! 208: putc('\n', gpoutfile);
! 209: }
! 210: /* Give the memory back to the system because we are done with this
! 211: * polyline. Make sure FIG_points contains NULL afterwards!
! 212: */
! 213: free(FIG_points);
! 214: FIG_points = NULL;
! 215: }
! 216: FIG_polyvec_stat = FIG_poly_new;
! 217: }
! 218:
! 219: TERM_PUBLIC void FIG_options()
! 220: {
! 221: static char *options_list = /* sun cc does not concat strings */
! 222: "expecting monochrome, color, small, big, portrait, landscape,\n\
! 223: \t inches, metric, size <number> <number>, fontsize <number>,\n\
! 224: \t thickness <numer>, depth <number> or pointsmax <number>";
! 225:
! 226: int parse_error = FALSE;
! 227: long temp_max;
! 228: struct value a;
! 229: unsigned int tmax_t;
! 230: double xsize_t, ysize_t;
! 231:
! 232: FIG_use_color = FALSE; /* default */
! 233: FIG_is_big = FALSE; /* default */
! 234: FIG_portrait = FALSE;
! 235: FIG_font_s = 0;
! 236: FIG_default_thickness = 1;
! 237: xsize_t = ysize_t = 0.;
! 238: #if METRIC
! 239: FIG_inches = FALSE;
! 240: #else
! 241: FIG_inches = TRUE;
! 242: #endif
! 243: while (!END_OF_COMMAND) {
! 244: if (almost_equals(c_token, "mo$nochrome")) {
! 245: FIG_use_color = FALSE;
! 246: c_token++;
! 247: } else if (almost_equals(c_token, "c$olor")
! 248: || almost_equals(c_token, "c$olour")) {
! 249: FIG_use_color = TRUE;
! 250: c_token++;
! 251: } else if (almost_equals(c_token, "sm$all")) {
! 252: FIG_is_big = FALSE;
! 253: c_token++;
! 254: } else if (almost_equals(c_token, "b$ig")) {
! 255: FIG_is_big = TRUE;
! 256: c_token++;
! 257: } else if (almost_equals(c_token, "in$ches")) { /* KB */
! 258: FIG_inches = TRUE;
! 259: c_token++;
! 260: } else if (almost_equals(c_token, "me$tric")) { /* KB */
! 261: FIG_inches = FALSE;
! 262: c_token++;
! 263: } else if (almost_equals(c_token, "por$trait")) { /* KB */
! 264: /* KB: Would have preferred "p$ortrait" but that would */
! 265: /* collide with "p$ointsmax" below. */
! 266: FIG_portrait = TRUE;
! 267: c_token++;
! 268: } else if (almost_equals(c_token, "l$andscape")) { /* KB */
! 269: FIG_portrait = FALSE;
! 270: c_token++;
! 271: } else if (almost_equals(c_token, "si$ze")) { /* KB */
! 272: c_token++;
! 273: if (END_OF_COMMAND) {
! 274: int_error("size: 2 numbers expected", c_token);
! 275: } else {
! 276: xsize_t = real(const_express(&a));
! 277: if (END_OF_COMMAND) {
! 278: int_error("size: 2 numbers expected", c_token);
! 279: xsize_t = 0.;
! 280: } else {
! 281: ysize_t = real(const_express(&a));
! 282: }
! 283: if (xsize_t < 2. || ysize_t < 2. || xsize_t > 99. || ysize_t > 99.) {
! 284: if (xsize_t != 0. || ysize_t != 0.)
! 285: int_error("size: out of range", c_token);
! 286: xsize_t = ysize_t = 0.;
! 287: }
! 288: }
! 289: } else if (almost_equals(c_token, "f$ontsize")) { /* KB */
! 290: c_token++;
! 291: if (END_OF_COMMAND) {
! 292: int_error("fontsize: number expected", c_token);
! 293: } else {
! 294: FIG_font_s = (int) real(const_express(&a));
! 295: if (FIG_font_s < 5 || FIG_font_s > 36) {
! 296: int_error("fontsize out of range", c_token - 1);
! 297: FIG_font_s = 0;
! 298: }
! 299: }
! 300: } else if (almost_equals(c_token, "t$hickness")) { /* KB */
! 301: c_token++;
! 302: if (END_OF_COMMAND) {
! 303: int_error("thickness: number expected", c_token);
! 304: } else {
! 305: FIG_default_thickness = (int) real(const_express(&a));
! 306: if (FIG_default_thickness < 1 || FIG_default_thickness > 10) {
! 307: int_error("thickness out of range", c_token - 1);
! 308: FIG_default_thickness = 1;
! 309: }
! 310: }
! 311: } else if (almost_equals(c_token, "d$epth")) { /* KB */
! 312: c_token++;
! 313: if (END_OF_COMMAND) {
! 314: int_error("depth: number expected", c_token);
! 315: } else {
! 316: FIG_depth = (int) real(const_express(&a));
! 317: if (FIG_depth < 0 || FIG_depth > 99) {
! 318: int_error("depth out of range", c_token - 1);
! 319: FIG_depth = 10;
! 320: }
! 321: FIG_linedepth = FIG_depth;
! 322: }
! 323: } else if (almost_equals(c_token, "poi$ntsmax")) { /* JFS */
! 324: /* Skip the word and then expect the number ! */
! 325: c_token++;
! 326: if (END_OF_COMMAND) {
! 327: int_error("max. points per polyline: number expected", c_token);
! 328: } else {
! 329: temp_max = (long) real(const_express(&a));
! 330: /* Now check the range for the number */
! 331: if ((temp_max > 1) && (temp_max < (FIG_MAX_POINTS + 2))) {
! 332: /* OK. subtract one to the right number! See other numbers... */
! 333: FIG_poly_vec_max = temp_max - 1;
! 334: } else {
! 335: char t[128];
! 336:
! 337: sprintf(t, "pointsmax: number out of range (2,%ld)",
! 338: (FIG_MAX_POINTS + 1));
! 339: int_error(t, c_token);
! 340: }
! 341: }
! 342: } else {
! 343: parse_error = TRUE;
! 344: int_error(options_list, c_token);
! 345: }
! 346: }
! 347:
! 348: sprintf(term_options, "%s %s %s %d %s %s %s %d %s %d %s %d",
! 349: FIG_use_color ? "color" : "monochrome",
! 350: FIG_is_big ? "big" : "small",
! 351: "pointsmax",
! 352: FIG_poly_vec_max + 1,
! 353: FIG_portrait ? "portrait" : "landscape",
! 354: FIG_inches ? "inches" : "metric",
! 355: "fontsize", (FIG_font_s > 0 ? FIG_font_s :
! 356: (FIG_is_big ? BFIG_FONT_S : FIG_FONT_S)),
! 357: "thickness", FIG_default_thickness, "depth", FIG_depth); /* JFS, KB */
! 358: if (xsize_t > 0. && ysize_t > 0.) {
! 359: if (xsize_t - (int) xsize_t == 0. && ysize_t - (int) ysize_t == 0.)
! 360: sprintf(term_options + strlen(term_options),
! 361: " size %d %d", (int) xsize_t, (int) ysize_t);
! 362: else
! 363: sprintf(term_options + strlen(term_options),
! 364: " size %f %f", xsize_t, ysize_t);
! 365: }
! 366: if (!FIG_is_big) {
! 367: if (FIG_font_s == 0) /* KB */
! 368: FIG_font_s = FIG_FONT_S;
! 369: term->xmax = FIG_XMAX;
! 370: term->ymax = FIG_YMAX;
! 371: term->v_tic = FIG_VTIC;
! 372: term->h_tic = FIG_HTIC;
! 373: FIG_xoff = FIG_XOFF;
! 374: FIG_yoff = FIG_YOFF;
! 375: } else {
! 376: if (FIG_font_s == 0) /* KB */
! 377: FIG_font_s = BFIG_FONT_S;
! 378: term->xmax = BFIG_XMAX;
! 379: term->ymax = BFIG_YMAX;
! 380: term->v_tic = BFIG_VTIC;
! 381: term->h_tic = BFIG_HTIC;
! 382: FIG_xoff = BFIG_XOFF;
! 383: FIG_yoff = BFIG_YOFF;
! 384: }
! 385: if (FIG_portrait) { /* KB */
! 386: tmax_t = term->xmax;
! 387: term->xmax = term->ymax;
! 388: term->ymax = tmax_t;
! 389: }
! 390: if (xsize_t > 0. && ysize_t > 0.) {
! 391: if (FIG_inches) {
! 392: term->xmax = (unsigned int) (xsize_t * FIG_RES);
! 393: term->ymax = (unsigned int) (ysize_t * FIG_RES);
! 394: } else {
! 395: term->xmax = (unsigned int) (xsize_t / 2.54 * FIG_RES);
! 396: term->ymax = (unsigned int) (ysize_t / 2.54 * FIG_RES);
! 397: }
! 398: }
! 399: term->v_char = FIG_to_pixel_v(FIG_font_s);
! 400: term->h_char = FIG_to_pixel_h(FIG_font_s);
! 401: FIG_thickness = FIG_default_thickness;
! 402: if (parse_error) { /* JFS, KB */
! 403: int_error(options_list, c_token);
! 404: }
! 405: }
! 406:
! 407: TERM_PUBLIC void FIG_init()
! 408: {
! 409: FIG_posx = FIG_posy = 0;
! 410: FIG_polyvec_stat = FIG_poly_new;
! 411: FIG_linetype(-1);
! 412: FIG_justify_text(LEFT);
! 413: FIG_text_angle(0);
! 414:
! 415: FIG_line.tagged = FIG_DEFAULT;
! 416: FIG_line.distrib = FIG_DEFAULT;
! 417: FIG_line.type = T_POLYLINE;
! 418: FIG_line.style = 0;
! 419: FIG_line.thickness = FIG_thickness;
! 420: FIG_line.fill_style = -1;
! 421: FIG_line.depth = FIG_linedepth;
! 422: FIG_line.pen_style = 0;
! 423: FIG_line.for_arrow = NULL;
! 424: FIG_line.back_arrow = NULL;
! 425: FIG_line.cap_style = 0;
! 426: FIG_line.join_style = 0;
! 427: FIG_line.style_val = 0.0;
! 428: FIG_line.radius = 0;
! 429: FIG_line.pic = NULL;
! 430: FIG_line.next = NULL;
! 431:
! 432: fprintf(gpoutfile, "\
! 433: %s\n\
! 434: %s\n%s\n%s\n%d %d\n",
! 435: FIG_MAGIC,
! 436: FIG_ORIENT, FIG_JUST,
! 437: FIG_UNIT, FIG_RES, FIG_COORD_SYS);
! 438: }
! 439:
! 440:
! 441: TERM_PUBLIC void FIG_graphics()
! 442: {
! 443: FIG_posx = FIG_posy = 0;
! 444: FIG_polyvec_stat = FIG_poly_new;
! 445: /* there is no way to have separate pictures in a FIG file */
! 446: }
! 447:
! 448:
! 449: TERM_PUBLIC void FIG_text()
! 450: {
! 451: /* there is no way to have separate pictures in a FIG file */
! 452: FIG_poly_clean(FIG_polyvec_stat);
! 453: FIG_posx = FIG_posy = 0;
! 454: fflush(gpoutfile);
! 455: }
! 456:
! 457:
! 458: /* Line types for FIG work like this:
! 459: * for monochrome:
! 460: * -2 : solid (border)
! 461: * -1 : dotted 4 (axes)
! 462: * 0 : solid (first curve)
! 463: * 1 : dotted 3
! 464: * 2 : dashed 3
! 465: * 3 : dotted 6
! 466: * 4 : dashed 6
! 467: * ... ...
! 468: * for color, cycle through colors. once colors are used up, repeat colors
! 469: * but start using dashed lines of different dash length. don't use white
! 470: * as a color.
! 471: */
! 472:
! 473: TERM_PUBLIC void FIG_linetype(linetype)
! 474: int linetype; /* expect linetype >= -2 */
! 475: {
! 476: int last_FIG_type = FIG_type;
! 477: int last_FIG_spacing = FIG_spacing;
! 478: int last_FIG_color = FIG_color;
! 479: int last_FIG_depth = FIG_linedepth;
! 480: int last_FIG_thickness = FIG_thickness;
! 481:
! 482: FIG_linedepth = FIG_depth;
! 483: FIG_thickness = FIG_current_linewidth * FIG_default_thickness;
! 484: if (FIG_thickness < 1)
! 485: FIG_thickness = 1;
! 486: FIG_color = DEFAULT;
! 487:
! 488: if (linetype < -2)
! 489: linetype = -2;
! 490:
! 491: switch (linetype) {
! 492: case 0:
! 493: case -2:{
! 494: FIG_type = SOLID_LINE;
! 495: FIG_spacing = 0.0;
! 496: if (FIG_use_color)
! 497: FIG_color = BLACK;
! 498: break;
! 499: }
! 500: case -1:{
! 501: FIG_type = DOTTED_LINE;
! 502: FIG_spacing = 4.0; /* gap */
! 503: if (FIG_use_color)
! 504: FIG_color = BLACK;
! 505: break;
! 506: }
! 507: default:{
! 508: /* now linetype >= 1 *//* shouldn't be negative anyway */
! 509: FIG_linedepth = FIG_depth + linetype / 1000;
! 510: linetype %= 1000;
! 511: /* Thickness of lines is either included in the linetype */
! 512: /* (in Fig units) or the default is scaled with the */
! 513: /* current 'linewidth'. */
! 514: if ((FIG_thickness = linetype / 100) == 0)
! 515: FIG_thickness = FIG_current_linewidth * FIG_default_thickness;
! 516: if (FIG_thickness < 1) /* Less than 1 would be invisible */
! 517: FIG_thickness = 1;
! 518: linetype %= 100;
! 519: if (FIG_use_color) {
! 520: FIG_type = (linetype >= WHITE); /* dashed line */
! 521: FIG_color = linetype % WHITE;
! 522: FIG_spacing = (linetype / WHITE) * 3;
! 523: } else { /* monochrome */
! 524: FIG_type = linetype % 2 + 1; /* dotted, dashed, ... */
! 525: FIG_spacing = (linetype + 1) / 2 * 3;
! 526: }
! 527: break;
! 528: }
! 529: }
! 530: if (FIG_type != last_FIG_type || FIG_spacing != last_FIG_spacing ||
! 531: FIG_color != last_FIG_color || FIG_linedepth != last_FIG_depth ||
! 532: FIG_thickness != last_FIG_thickness)
! 533: FIG_poly_clean(FIG_polyvec_stat);
! 534: }
! 535:
! 536: TERM_PUBLIC void FIG_move(x, y)
! 537: unsigned int x, y;
! 538: {
! 539: int last_FIG_posx = FIG_posx;
! 540: int last_FIG_posy = FIG_posy;
! 541: FIG_posx = x;
! 542: FIG_posy = y;
! 543: if (FIG_posx != last_FIG_posx || FIG_posy != last_FIG_posy)
! 544: FIG_poly_clean(FIG_polyvec_stat);
! 545: }
! 546:
! 547:
! 548: TERM_PUBLIC void FIG_vector(ux, uy)
! 549: unsigned int ux, uy;
! 550: {
! 551: int x = ux, y = uy;
! 552:
! 553: if (FIG_polyvec_stat != FIG_poly_part) {
! 554: FIG_line.pen_color = FIG_color;
! 555: FIG_line.fill_color = FIG_color;
! 556: FIG_line.style = FIG_type;
! 557: FIG_line.style_val = FIG_spacing;
! 558: FIG_line.depth = FIG_linedepth;
! 559: FIG_line.thickness = FIG_thickness;
! 560: FIG_poly_vec_cnt = 0;
! 561: /* allocate memory for the first point */
! 562: FIG_points = (F_point *) gp_realloc(FIG_points, sizeof(F_point), "FIG_points"); /* JFS */
! 563: FIG_points[FIG_poly_vec_cnt].x = FIG_xoff + FIG_posx;
! 564: FIG_points[FIG_poly_vec_cnt].y = term->ymax
! 565: + FIG_yoff - FIG_posy;
! 566:
! 567: FIG_poly_vec_cnt = 1;
! 568: FIG_polyvec_stat = FIG_poly_part;
! 569: }
! 570: /* allocate memory for the next point */
! 571: FIG_points = (F_point *) gp_realloc(FIG_points, (FIG_poly_vec_cnt + 1) *
! 572: sizeof(F_point), "FIG_points"); /* JFS */
! 573: FIG_points[FIG_poly_vec_cnt].x = FIG_xoff + x;
! 574: FIG_points[FIG_poly_vec_cnt].y = term->ymax + FIG_yoff - y;
! 575:
! 576: FIG_poly_vec_cnt++;
! 577: if (FIG_poly_vec_cnt > FIG_poly_vec_max)
! 578: FIG_poly_clean(FIG_polyvec_stat);
! 579:
! 580: FIG_posx = x;
! 581: FIG_posy = y;
! 582: }
! 583:
! 584:
! 585: TERM_PUBLIC void FIG_arrow(sx, sy, ex, ey, head)
! 586: unsigned int sx, sy; /* start coord */
! 587: unsigned int ex, ey; /* end coord */
! 588: TBOOLEAN head;
! 589: {
! 590: FIG_poly_clean(FIG_polyvec_stat);
! 591: fprintf(gpoutfile, "%d %d %d %d %d %d %d %d %d %9.3f %d %d %d %d %d %d\n",
! 592: O_POLYLINE, FIG_line.type, FIG_line.style, FIG_line.thickness,
! 593: FIG_line.pen_color, FIG_line.fill_color, FIG_line.depth,
! 594: FIG_line.pen_style, FIG_line.fill_style, FIG_line.style_val,
! 595: FIG_line.join_style, FIG_line.cap_style, FIG_line.radius,
! 596: head ? 1 : 0, 0, 2);
! 597:
! 598: /* arrow line */
! 599: if (head)
! 600: fprintf(gpoutfile, "%d %d %.3f %.3f %.3f\n",
! 601: 0, 0, 1.0,
! 602: (double) (term->h_tic / 2 + 1),
! 603: (double) term->h_tic);
! 604: fprintf(gpoutfile, "%d %d %d %d\n",
! 605: FIG_xoff + sx, FIG_yoff + term->ymax - sy,
! 606: FIG_yoff + ex, FIG_yoff + term->ymax - ey);
! 607:
! 608: FIG_posx = ex;
! 609: FIG_posy = ey;
! 610: }
! 611:
! 612:
! 613: TERM_PUBLIC void FIG_put_text(x, y, str)
! 614: unsigned int x, y;
! 615: char *str;
! 616: {
! 617: if (strlen(str) == 0)
! 618: return;
! 619: FIG_poly_clean(FIG_polyvec_stat);
! 620: y -= term->v_char / 2; /* assuming vertical center justified */
! 621:
! 622: fprintf(gpoutfile, "%d %d %d %d %d %d %6.3f %6.3f %d %6.3f %6.3f %d %d %s\\001\n",
! 623: O_TEXT, FIG_justify, FIG_color, 0, FIG_DEFAULT,
! 624: FIG_ROMAN_FONT, (float) FIG_font_s,
! 625: FIG_angle, SPECIAL_TEXT, (float) term->v_char,
! 626: (float) term->h_char * strlen(str),
! 627: FIG_xoff + x, term->ymax + FIG_yoff - y, str);
! 628: }
! 629:
! 630: TERM_PUBLIC int FIG_justify_text(mode)
! 631: enum JUSTIFY mode;
! 632: {
! 633: switch (mode) {
! 634: case LEFT:
! 635: FIG_justify = T_LEFT_JUSTIFIED;
! 636: break;
! 637: case CENTRE:
! 638: FIG_justify = T_CENTER_JUSTIFIED;
! 639: break;
! 640: case RIGHT:
! 641: FIG_justify = T_RIGHT_JUSTIFIED;
! 642: break;
! 643: /* shouldn't happen */
! 644: default:
! 645: FIG_justify = T_LEFT_JUSTIFIED;
! 646: return (FALSE);
! 647: break;
! 648: }
! 649: return (TRUE);
! 650: }
! 651:
! 652: TERM_PUBLIC int FIG_text_angle(ang)
! 653: int ang;
! 654: {
! 655: if (ang)
! 656: FIG_angle = Pi / 2.0; /* vertical is pi/2 radians */
! 657: else
! 658: FIG_angle = 0.0; /* horizontal */
! 659: return (TRUE);
! 660: }
! 661:
! 662: TERM_PUBLIC void FIG_lpoint(x, y, number)
! 663: unsigned int x, y;
! 664: int number;
! 665: {
! 666: FIG_type = 0; /* Solid lines for marker outline */
! 667: if (number % 100 >= 49 && number % 100 < 99) { /* circles, squares, triangles */
! 668: int r, d, h, xpc, ypc;
! 669: int line_color, fill_color, fill_style;
! 670: int cnum, tnum, color, depth;
! 671:
! 672: FIG_poly_clean(FIG_polyvec_stat);
! 673: depth = FIG_linedepth - 1; /* Above error bars */
! 674: if (number > 1000)
! 675: depth = FIG_depth + number / 1000 - 1;
! 676: number %= 1000;
! 677: if (depth < 0)
! 678: depth = 0;
! 679: if (number < 100)
! 680: color = FIG_color;
! 681: else if (FIG_use_color)
! 682: color = number / 100 - 1;
! 683: else if (number / 100 >= WHITE)
! 684: color = WHITE;
! 685: else
! 686: color = DEFAULT;
! 687: number %= 100;
! 688: cnum = (number + 1) % 10;
! 689: tnum = (number - 49) / 10;
! 690: if (cnum < 5)
! 691: line_color = (FIG_use_color ? BLACK : DEFAULT);
! 692: else
! 693: line_color = FIG_color;
! 694: fill_color = color;
! 695: if (cnum == 0 || cnum == 5)
! 696: fill_style = -1;
! 697: else
! 698: fill_style = (cnum % 5) * 5;
! 699:
! 700: xpc = FIG_xoff + x;
! 701: ypc = term->ymax + FIG_yoff - y;
! 702:
! 703: if (tnum == 0) { /* circle */
! 704: r = FIG_current_pointsize * term->v_char / 4 + 1;
! 705: fprintf(gpoutfile,
! 706: "1 3 %d %d %d %d %d %d %d %6.3f 1 0.000 %d %d %d %d %d %d %d %d\n",
! 707: FIG_type, FIG_thickness, line_color,
! 708: fill_color, depth, 0, fill_style, FIG_spacing,
! 709: xpc, ypc, r, r, xpc, ypc, xpc, ypc - r);
! 710: } else {
! 711: fprintf(gpoutfile, "2 3 %d %d %d %d %d %d %d %6.3f 0 0 0 0 0 ",
! 712: FIG_type, FIG_thickness, line_color,
! 713: fill_color, depth, 0, fill_style, FIG_spacing);
! 714:
! 715: if (tnum == 1) { /* square */
! 716: d = FIG_current_pointsize * term->v_char / 4 + 1;
! 717: fprintf(gpoutfile, "5\n\t%d %d %d %d %d %d %d %d %d %d\n",
! 718: xpc - d, ypc - d, xpc - d, ypc + d, xpc + d, ypc + d, xpc + d, ypc - d,
! 719: xpc - d, ypc - d);
! 720: } else if (tnum == 2) { /* diamond */
! 721: d = FIG_current_pointsize * term->v_char / 3 + 1;
! 722: fprintf(gpoutfile, "5\n\t%d %d %d %d %d %d %d %d %d %d\n",
! 723: xpc - d, ypc, xpc, ypc + d, xpc + d, ypc, xpc, ypc - d, xpc - d, ypc);
! 724: } else if (tnum == 3) { /* triangle up */
! 725: d = FIG_current_pointsize * term->v_char / 3 + 1;
! 726: h = d * 4 / 7; /* About d times one 3rd of sqrt(3) */
! 727: fprintf(gpoutfile, "4\n\t%d %d %d %d %d %d %d %d\n",
! 728: xpc - d, ypc + h, xpc, ypc - 2 * h, xpc + d, ypc + h, xpc - d, ypc + h);
! 729: } else if (tnum == 4) { /* triangle down */
! 730: d = FIG_current_pointsize * term->v_char / 3 + 1;
! 731: h = d * 4 / 7;
! 732: fprintf(gpoutfile, "4\n\t%d %d %d %d %d %d %d %d\n",
! 733: xpc - d, ypc - h, xpc, ypc + 2 * h, xpc + d, ypc - h, xpc - d, ypc - h);
! 734: }
! 735: }
! 736: } else
! 737: do_point(x, y, number);
! 738: }
! 739:
! 740: TERM_PUBLIC void FIG_pointsize(arg_pointsize)
! 741: double arg_pointsize;
! 742: {
! 743: FIG_current_pointsize = arg_pointsize;
! 744: /* Bug-fix by hkeller@gwdg.de and K.B.: set pointsize for do_point() */
! 745: do_pointsize(arg_pointsize * FIG_font_s / (double) FIG_FONT_S);
! 746: }
! 747:
! 748: TERM_PUBLIC void FIG_linewidth(linewidth)
! 749: double linewidth;
! 750: {
! 751: FIG_current_linewidth = linewidth;
! 752: }
! 753:
! 754: TERM_PUBLIC void FIG_reset()
! 755: {
! 756: FIG_poly_clean(FIG_polyvec_stat);
! 757: FIG_posx = FIG_posy = 0;
! 758: fflush(gpoutfile);
! 759: }
! 760:
! 761: #endif /* TERM_BODY */
! 762:
! 763: #ifdef TERM_TABLE
! 764:
! 765: TERM_TABLE_START(fig_driver)
! 766: "fig", "FIG 3.1 graphics language: X graphics editor",
! 767: FIG_XMAX, FIG_YMAX, FIG_VCHAR, FIG_HCHAR,
! 768: FIG_VTIC, FIG_HTIC, FIG_options, FIG_init, FIG_reset,
! 769: FIG_text, null_scale, FIG_graphics, FIG_move, FIG_vector,
! 770: FIG_linetype, FIG_put_text, FIG_text_angle, FIG_justify_text,
! 771: FIG_lpoint, FIG_arrow, set_font_null, FIG_pointsize,
! 772: 0 /*flags */ , 0 /*suspend */ , 0 /*resume */ , 0 /*fillbox */ ,
! 773: FIG_linewidth
! 774: TERM_TABLE_END(fig_driver)
! 775:
! 776: #undef LAST_TERM
! 777: #define LAST_TERM fig_driver
! 778: #endif /* TERM_TABLE */
! 779: #endif /* TERM_PROTO_ONLY */
! 780:
! 781: #ifdef TERM_HELP
! 782: START_HELP(fig)
! 783: "1 fig",
! 784: "?commands set terminal fig",
! 785: "?set terminal fig",
! 786: "?set term fig",
! 787: "?terminal fig",
! 788: "?term fig",
! 789: "?fig",
! 790: " The `fig` terminal device generates output in the Fig graphics language.",
! 791: "",
! 792: " Syntax:",
! 793: " set terminal fig {monochrome | color} {small | big}",
! 794: " {pointsmax <max_points>}",
! 795: " {landscape | portrait}",
! 796: " {metric | inches}",
! 797: " {fontsize <fsize>}",
! 798: " {size <xsize> <ysize>}",
! 799: " {thickness <units>}",
! 800: " {depth <layer>}",
! 801: "",
! 802: " `monochrome` and `color` determine whether the picture is black-and-white or",
! 803: " `color`. `small` and `big` produce a 5x3 or 8x5 inch graph in the default",
! 804: " `landscape` mode and 3x5 or 5x8 inches in `portrait` mode. <max_points>",
! 805: " sets the maximum number of points per polyline. Default units for editing",
! 806: " with \"xfig\" may be `metric` or `inches`. `fontsize` sets the size of the",
! 807: " text font to <fsize> points. `size` sets (overrides) the size of the drawing",
! 808: " area to <xsize>*<ysize> in units of inches or centimeters depending on the",
! 809: " `inches` or `metric` setting in effect. `depth` sets the default depth layer",
! 810: " for all lines and text. The default depth is 10 to leave room for adding",
! 811: " material with \"xfig\" on top of the plot.",
! 812: "",
! 813: " `thickness` sets the default line thickness, which is 1 if not specified.",
! 814: " Overriding the thickness can be achieved by adding a multiple of 100 to the",
! 815: " to the `linetype` value for a `plot` command. In a similar way the `depth`",
! 816: " of plot elements (with respect to the default depth) can be controlled by",
! 817: " adding a multiple of 1000 to <linetype>. The depth is then <layer> +",
! 818: " <linetype>/1000 and the thickness is (<linetype>%1000)/100 or, if that is",
! 819: " zero, the default line thickness.",
! 820: "",
! 821: " Additional point-plot symbols are also available with the `fig` driver. The",
! 822: " symbols can be used through `pointtype` values % 100 above 50, with different",
! 823: " fill intensities controlled by <pointtype> % 5 and outlines in black (for",
! 824: " <pointtype> % 10 < 5) or in the current color. Available symbols are",
! 825: " 50 - 59: circles",
! 826: " 60 - 69: squares",
! 827: " 70 - 79: diamonds",
! 828: " 80 - 89: upwards triangles",
! 829: " 90 - 99: downwards triangles",
! 830: " The size of these symbols is linked to the font size. The depth of symbols",
! 831: " is by default one less than the depth for lines to achieve nice error bars.",
! 832: " If <pointtype> is above 1000, the depth is <layer> + <pointtype>/1000-1. If",
! 833: " <pointtype>%1000 is above 100, the fill color is (<pointtype>%1000)/100-1.",
! 834: "",
! 835: " Available fill colors are (from 1 to 9): black, blue, green, cyan, red,",
! 836: " magenta, yellow, white and dark blue (in monochrome mode: black for 1 to 6",
! 837: " and white for 7 to 9).",
! 838: "",
! 839: " See `plot with` for details of <linetype> and <pointtype>.",
! 840: "",
! 841: " The `big` option is a substitute for the `bfig` terminal in earlier versions,",
! 842: " which is no longer supported.",
! 843: "",
! 844: " Examples:",
! 845: " set terminal fig monochrome small pointsmax 1000 # defaults",
! 846: "",
! 847: " plot 'file.dat' with points linetype 102 pointtype 759",
! 848: " would produce circles with a blue outline of width 1 and yellow fill color.",
! 849: "",
! 850: " plot 'file.dat' using 1:2:3 with err linetype 1 pointtype 554",
! 851: " would produce errorbars with black lines and circles filled red. These",
! 852: " circles are one layer above the lines (at depth 9 by default).",
! 853: "",
! 854: " To plot the error bars on top of the circles use",
! 855: " plot 'file.dat' using 1:2:3 with err linetype 1 pointtype 2554"
! 856: END_HELP(fig)
! 857: #endif /* TERM_HELP */
! 858:
! 859:
! 860:
! 861:
! 862: #if 0
! 863:
! 864: /* I hope this is enough to stop compilers looking in here
! 865: * (I think that anything inside #if 0 is still strictly
! 866: * required to be valid C, rather than just any old junk
! 867: * like this.)
! 868: */
! 869:
! 870: /*
! 871: * FIG : Facility for Interactive Generation of figures
! 872: * Copyright (c) 1985 by Supoj Sutanthavibul
! 873: * Parts Copyright (c) 1994 by Brian V. Smith
! 874: * Parts Copyright (c) 1991 by Paul King
! 875: *
! 876: * The X Consortium, and any party obtaining a copy of these files from
! 877: * the X Consortium, directly or indirectly, is granted, free of charge, a
! 878: * full and unrestricted irrevocable, world-wide, paid up, royalty-free,
! 879: * nonexclusive right and license to deal in this software and
! 880: * documentation files (the "Software"), including without limitation the
! 881: * rights to use, copy, modify, merge, publish, distribute, sublicense,
! 882: * and/or sell copies of the Software, and to permit persons who receive
! 883: * copies from any such party to do so, with the only requirement being
! 884: * that this copyright notice remain intact. This license includes without
! 885: * limitation a license to do the foregoing actions under any patents of
! 886: * the party supplying this software to the X Consortium.
! 887: */
! 888:
! 889: /*
! 890: The only difference from version 3.0 to version 3.1 is that the position
! 891: of the "magnet" has been shifted by 14 Fig units.
! 892: In the 2.1 and older versions of xfig the grid was in multiples of 5 Fig
! 893: units, but they were on intervals 4, 9, 14, 19, etc.
! 894: When version 3.0 was created, coordinates were simply multiplied by the
! 895: ratio of the resolutions (1200/80 = 15) so values like 4 became 60 instead
! 896: of 74 ((4+1)*15 - 1).
! 897:
! 898: This means that figures converted from 2.1 and older files are offset by
! 899: 14 Fig units but new objects entered with version 3.0 are correct.
! 900:
! 901: In version 3.1 the magnet grid is at intervals 0, 75, 150, etc instead of
! 902: -1, 74, 149, etc.
! 903: Figures from 2.1 and older are correctly converted now and a warning is popped
! 904: up when you read in a version 3.0 file that says you may have to offset the
! 905: figure when you load it, using the x and y offsets in the file panel.
! 906:
! 907: --------------------------------------------------------------------------------
! 908: Description of the Fig Format Follows
! 909: --------------------------------------------------------------------------------
! 910:
! 911: (1) The very first line is a comment line containing the name and version:
! 912: #FIG 3.1
! 913:
! 914: The character # at the first column of a line indicates that the line
! 915: is a comment line which will be ignored.
! 916:
! 917: (2) The first non-comment line consists of two numbers and two strings:
! 918:
! 919: int fig_resolution (Fig units/inch)
! 920: string orientation ("Landscape" or "Portrait")
! 921: string justification ("Center" or "Flush Left")
! 922: string units ("Metric" or "Inches")
! 923: int coordinate_system (1: origin is the lower left corner (NOT USED)
! 924: 2: upper left)
! 925:
! 926: Fig_resolution is the resolution of the figure in the file.
! 927: Xfig will always write the file with a resolution of 1200ppi so it
! 928: will scale the figure upon reading it in if its resolution is different
! 929: from 1200ppi. Pixels are assumed to be square.
! 930:
! 931: Xfig will read the orientation string and change the canvas to match
! 932: either the Landscape or Portrait mode of the figure file.
! 933:
! 934: The units specification is self-explanatory.
! 935:
! 936: The coordinate_system variable is ignored - the origin is ALWAYS the
! 937: upper-left corner.
! 938:
! 939: ** Coordinates are given in "fig_resolution" units.
! 940: ** Line thicknesses are given in 1/80 of an inch ("display units"). The
! 941: minimum line thickness is 0 (no line is drawn) and the maximum is 500.
! 942: ** dash-lengths/dot-gaps are given in 1/80 of an inch.
! 943:
! 944:
! 945: (3) The rest of the file contains various objects. An object can be one
! 946: of six classes (or types).
! 947:
! 948: 0) Color pseudo-object.
! 949: 1) Arc.
! 950: 2) Ellipse which is a generalization of circle.
! 951: 3) Polyline which includes polygon and box.
! 952: 4) Spline which includes closed/open control/interpolated spline.
! 953: 5) Text.
! 954: 6) Compound object which is composed of one or more objects.
! 955:
! 956: In the following elaboration on object formats, every value of Fig
! 957: output are separated by blank characters or new line ('\n'). The
! 958: value of the unused parameters will be -1.
! 959:
! 960: Some fields are described as "enumeration type" or "bit vector"; the
! 961: values which these fields can take are defined in the header file object.h.
! 962: The pen_style field is unused.
! 963: These values may be defined in some future version of Fig.
! 964:
! 965: The two color fields (pen and fill; pen only, for texts) are
! 966: defined as follows:
! 967:
! 968: -1 = Default
! 969: 0 = Black
! 970: 1 = Blue
! 971: 2 = Green
! 972: 3 = Cyan
! 973: 4 = Red
! 974: 5 = Magenta
! 975: 6 = Yellow
! 976: 7 = White
! 977: 8-11 = four shades of blue (dark to lighter)
! 978: 12-14 = three shades of green (dark to lighter)
! 979: 15-17 = three shades of cyan (dark to lighter)
! 980: 18-20 = three shades of red (dark to lighter)
! 981: 21-23 = three shades of magenta (dark to lighter)
! 982: 24-26 = three shades of brown (dark to lighter)
! 983: 27-30 = four shades of pink (dark to lighter)
! 984: 31 = Gold
! 985:
! 986: values from 32 to 543 (512 total) are user colors and
! 987: are defined in color pseudo-objects (type 0)
! 988:
! 989: For WHITE color, the area fill field is defined as follows:
! 990:
! 991: -1 = not filled
! 992: 0 = black
! 993: ... values from 1 to 19 are shades of grey, from darker to lighter
! 994: 20 = white
! 995: 21-40 not used
! 996: 41-56 see patterns for colors, below
! 997:
! 998: For BLACK or DEFAULT color, the area fill field is defined as follows:
! 999:
! 1000: -1 = not filled
! 1001: 0 = white
! 1002: ... values from 1 to 19 are shades of grey, from lighter to darker
! 1003: 20 = black
! 1004: 21-40 not used
! 1005: 41-56 see patterns for colors, below
! 1006:
! 1007: For all other colors, the area fill field is defined as follows:
! 1008:
! 1009: -1 = not filled
! 1010: 0 = black
! 1011: ... values from 1 to 19 are "shades" of the color, from darker to lighter.
! 1012: A shade is defined as the color mixed with black
! 1013: 20 = full saturation of the color
! 1014: ... values from 21 to 39 are "tints" of the color from the color to white.
! 1015: A tint is defined as the color mixed with white
! 1016: 40 = white
! 1017: 41 = 30 degree left diagonal pattern
! 1018: 42 = 30 degree right diagonal pattern
! 1019: 43 = 30 degree crosshatch
! 1020: 44 = 45 degree left diagonal pattern
! 1021: 45 = 45 degree right diagonal pattern
! 1022: 46 = 45 degree crosshatch
! 1023: 47 = bricks
! 1024: 48 = circles
! 1025: 49 = horizontal lines
! 1026: 50 = vertical lines
! 1027: 51 = crosshatch
! 1028: 52 = fish scales
! 1029: 53 = small fish scales
! 1030: 54 = octagons
! 1031: 55 = horizontal "tire treads"
! 1032: 56 = vertical "tire treads"
! 1033:
! 1034: The depth field is defined as follows:
! 1035:
! 1036: 0 ... 999 where larger value means object is deeper than (under)
! 1037: objects with smaller depth
! 1038:
! 1039: The line_style field is defined as follows:
! 1040:
! 1041: -1 = Default
! 1042: 0 = Solid
! 1043: 1 = Dashed
! 1044: 2 = Dotted
! 1045:
! 1046: The style_val field is defined as the length, in 1/80 inches, of the on/off
! 1047: dashes for dashed lines, and the distance between the dots, in 1/80 inches,
! 1048: for dotted lines.
! 1049:
! 1050: The join_style field is defined FOR LINES only as follows:
! 1051:
! 1052: 0 = Miter (the default in xfig 2.1 and earlier)
! 1053: 1 = Bevel
! 1054: 2 = Round
! 1055:
! 1056: The cap_style field is defined FOR LINES, OPEN SPLINES and ARCS only as follows:
! 1057:
! 1058: 0 = Butt (the default in xfig 2.1 and earlier)
! 1059: 1 = Round
! 1060: 2 = Projecting
! 1061:
! 1062: The arrow_type field is defined for LINES, ARCS and OPEN SPLINES
! 1063: only as follows:
! 1064:
! 1065: 0 = Stick-type (the default in xfig 2.1 and earlier)
! 1066: 1 = Closed triangle:
! 1067: |\
! 1068: | \
! 1069: | \
! 1070: | /
! 1071: | /
! 1072: |/
! 1073: 2 = Closed with "indented" butt:
! 1074: |\
! 1075: \ \
! 1076: \ \
! 1077: \ \
! 1078: / /
! 1079: / /
! 1080: / /
! 1081: |/
! 1082: 3 = Closed with "pointed" butt:
! 1083: |\
! 1084: / \
! 1085: / \
! 1086: / \
! 1087: \ /
! 1088: \ /
! 1089: \ /
! 1090: |/
! 1091:
! 1092: The arrow_style field is defined for LINES, ARCS and OPEN SPLINES
! 1093: only as follows:
! 1094:
! 1095: 0 = Hollow (actually filled with white)
! 1096: 1 = Filled with pen_color
! 1097:
! 1098: (3.0) OBJECT DEFINITION:
! 1099:
! 1100: (3.1) Color Pseudo-objects (user-defined colors)
! 1101: This is used to define arbitrary colors beyond the 32 standard colors.
! 1102: The color objects must be defined before any other Fig objects.
! 1103:
! 1104: First line:
! 1105: type name (brief description)
! 1106: ---- ---- -------------------
! 1107: int object_code (always 0)
! 1108: int color_number (color number, from 32-543 (512 total))
! 1109: hex string rgb values (hexadecimal string describing red,
! 1110: green and blue values (e.g. #330099) )
! 1111:
! 1112: (3.2) ARC
! 1113:
! 1114: First line:
! 1115: type name (brief description)
! 1116: ---- ---- -------------------
! 1117: int object_code (always 5)
! 1118: int sub_type (0: pie-wedge (closed)
! 1119: 1: open ended arc)
! 1120: int line_style (enumeration type)
! 1121: int line_thickness (1/80 inch)
! 1122: int pen_color (enumeration type, pen color)
! 1123: int fill_color (enumeration type, fill color)
! 1124: int depth (enumeration type)
! 1125: int pen_style (pen style, not used)
! 1126: int area_fill (enumeration type, -1 = no fill)
! 1127: float style_val (1/80 inch)
! 1128: int cap_style (enumeration type)
! 1129: int direction (0: clockwise, 1: counterclockwise)
! 1130: int forward_arrow (0: no forward arrow, 1: on)
! 1131: int backward_arrow (0: no forward arrow, 1: on)
! 1132: float center_x, center_y (center of the arc)
! 1133: int x1, y1 (Fig units, the 1st point the user entered)
! 1134: int x2, y2 (Fig units, the 2nd point)
! 1135: int x3, y3 (Fig units, the last point)
! 1136:
! 1137: Forward arrow line (Optional; absent if forward_arrow is 0):
! 1138: type name (brief description)
! 1139: ---- ---- -------------------
! 1140: int arrow_type (enumeration type)
! 1141: int arrow_style (enumeration type)
! 1142: float arrow_thickness (1/80 inch)
! 1143: float arrow_width (Fig units)
! 1144: float arrow_height (Fig units)
! 1145:
! 1146: Backward arrow line (Optional; absent if backward_arrow is 0):
! 1147: type name (brief description)
! 1148: ---- ---- -------------------
! 1149: int arrow_type (enumeration type)
! 1150: int arrow_style (enumeration type)
! 1151: float arrow_thickness (1/80 inch)
! 1152: float arrow_width (Fig units)
! 1153: float arrow_height (Fig units)
! 1154:
! 1155: (3.3) COMPOUND
! 1156:
! 1157: A line with object code 6 signifies the start of a compound.
! 1158: There are four more numbers on this line which indicate the
! 1159: upper right corner and the lower left corner of the bounding
! 1160: box of this compound. A line with object code -6 signifies
! 1161: the end of the compound. Compound may be nested.
! 1162:
! 1163: First line:
! 1164: type name (brief description)
! 1165: ---- ---- -------------------
! 1166: int object_code (always 6)
! 1167: int upperright_corner_x (Fig units)
! 1168: int upperright_corner_y (Fig units)
! 1169: int lowerleft_corner_x (Fig units)
! 1170: int lowerleft_corner_y (Fig units)
! 1171:
! 1172: Subsequent lines:
! 1173: objects
! 1174: .
! 1175: .
! 1176:
! 1177: Last line:
! 1178: -6
! 1179:
! 1180: (3.4) ELLIPSE
! 1181:
! 1182: First line:
! 1183: type name (brief description)
! 1184: ---- ---- -------------------
! 1185: int object_code (always 1)
! 1186: int sub_type (1: ellipse defined by radiuses
! 1187: 2: ellipse defined by diameters
! 1188: 3: circle defined by radius
! 1189: 4: circle defined by diameter)
! 1190: int line_style (enumeration type)
! 1191: int thickness (1/80 inch)
! 1192: int pen_color (enumeration type, pen color)
! 1193: int fill_color (enumeration type, fill color)
! 1194: int depth (enumeration type)
! 1195: int pen_style (pen style, not used)
! 1196: int area_fill (enumeration type, -1 = no fill)
! 1197: float style_val (1/80 inch)
! 1198: int direction (always 1)
! 1199: float angle (radians, the angle of the x-axis)
! 1200: int center_x, center_y (Fig units)
! 1201: int radius_x, radius_y (Fig units)
! 1202: int start_x, start_y (Fig units; the 1st point entered)
! 1203: int end_x, end_y (Fig units; the last point entered)
! 1204:
! 1205: (3.5) POLYLINE
! 1206:
! 1207: First line:
! 1208: type name (brief description)
! 1209: ---- ---- -------------------
! 1210: int object_code (always 2)
! 1211: int sub_type (1: polyline
! 1212: 2: box
! 1213: 3: polygon
! 1214: 4: arc-box)
! 1215: 5: imported-picture bounding-box)
! 1216: int line_style (enumeration type)
! 1217: int thickness (1/80 inch)
! 1218: int pen_color (enumeration type, pen color)
! 1219: int fill_color (enumeration type, fill color)
! 1220: int depth (enumeration type)
! 1221: int pen_style (pen style, not used)
! 1222: int area_fill (enumeration type, -1 = no fill)
! 1223: float style_val (1/80 inch)
! 1224: int join_style (enumeration type)
! 1225: int cap_style (enumeration type, only used for POLYLINE)
! 1226: int radius (1/80 inch, radius of arc-boxes)
! 1227: int forward_arrow (0: off, 1: on)
! 1228: int backward_arrow (0: off, 1: on)
! 1229: int npoints (number of points in line)
! 1230:
! 1231: Forward arrow line: same as ARC object
! 1232:
! 1233: Backward arrow line: same as ARC object
! 1234:
! 1235: Points line:
! 1236: type name (brief description)
! 1237: ---- ---- -------------------
! 1238: int x1, y1 (Fig units)
! 1239: int x2, y2 (Fig units)
! 1240: .
! 1241: .
! 1242: int xnpoints ynpoints (this will be the same as the 1st
! 1243: point for polygon and box)
! 1244:
! 1245: PIC line:
! 1246: type name (brief description)
! 1247: ---- ---- -------------------
! 1248: boolean flipped orientation = normal (0) or flipped (1)
! 1249: char file[] name of picture file to import
! 1250:
! 1251: (3.6) SPLINE
! 1252:
! 1253: First line:
! 1254: type name (brief description)
! 1255: ---- ---- -------------------
! 1256: int object_code (always 3)
! 1257: int sub_type (0: open spline
! 1258: 1: closed spline
! 1259: 2: open interpolated spline
! 1260: 3: closed interpolated spline)
! 1261: int line_style (See the end of this section)
! 1262: int thickness (1/80 inch)
! 1263: int pen_color (enumeration type, pen color)
! 1264: int fill_color (enumeration type, fill color)
! 1265: int depth (enumeration type)
! 1266: int pen_style (pen style, not used)
! 1267: int area_fill (enumeration type, -1 = no fill)
! 1268: float style_val (1/80 inch)
! 1269: int cap_style (enumeration type, only used for open splines)
! 1270: int forward_arrow (0: off, 1: on)
! 1271: int backward_arrow (0: off, 1: on)
! 1272: int npoints (number of control points in spline)
! 1273:
! 1274: Forward arrow line: same as ARC object
! 1275:
! 1276: Backward arrow line: same as ARC object
! 1277:
! 1278: Points line: same as POLYLINE object
! 1279:
! 1280: Control points line (absent if sub_type is 0 or 1):
! 1281: Control points of interpolated spline. There are two control
! 1282: points for each knots. A section i, of the spline is drawn
! 1283: using Bezier cubic with the following four points:
! 1284: (x ,y ), (rx ,ry ), (lx , ly ), (x , y ).
! 1285: i i i i i+1 i+1 i+1 i+1
! 1286: For closed interpolated spline the last pair of control points,
! 1287: (lxnpoints,lynpoints) and (rxnpoints,rynpoints) (which can be ignored),
! 1288: are the same as (lx1,ly1) and (rx1,ry1) respectively.
! 1289:
! 1290: type name (brief description)
! 1291: ---- ---- -------------------
! 1292: float lx1, ly1 (Fig units)
! 1293: float rx1, ry1 (Fig units)
! 1294: float lx2, ly2 (Fig units)
! 1295: float rx2, ry2 (Fig units)
! 1296: .
! 1297: .
! 1298: float lxnpoints, lynpoints (Fig units)
! 1299: float rxnpoints, rynpoints (Fig units)
! 1300:
! 1301: (3.7) TEXT
! 1302: type name (brief description)
! 1303: ---- ---- -------------------
! 1304: int object (always 4)
! 1305: int sub_type (0: Left justified
! 1306: 1: Center justified
! 1307: 2: Right justified)
! 1308: int color (enumeration type)
! 1309: int depth (enumeration type)
! 1310: int pen_style (enumeration , not used)
! 1311: int font (enumeration type)
! 1312: float font_size (font size in points)
! 1313: float angle (radians, the angle of the text)
! 1314: int font_flags (bit vector)
! 1315: float height (Fig units)
! 1316: float length (Fig units)
! 1317: int x, y (Fig units, coordinate of the origin
! 1318: of the string. If sub_type = 0, it is
! 1319: the lower left corner of the string.
! 1320: If sub_type = 1, it is the lower
! 1321: center. Otherwise it is the lower
! 1322: right corner of the string.)
! 1323: char string[] (ASCII characters; starts after a blank
! 1324: character following the last number and
! 1325: ends before the sequence '\001'. This
! 1326: sequence is not part of the string.
! 1327: Characters above octal 177 are
! 1328: represented by \xxx where xxx is the
! 1329: octal value. This permits Fig files to
! 1330: be edited with 7-bit editors and sent
! 1331: by e-mail without data loss.
! 1332: Note that the string may contain '\n'.)
! 1333:
! 1334: The font_flags field is defined as follows:
! 1335:
! 1336: Bit Description
! 1337:
! 1338: 0 Rigid text (text doesn't scale when scaling compound objects)
! 1339: 1 Special text (for LaTeX)
! 1340: 2 PostScript font (otherwise LaTeX font is used)
! 1341: 3 Hidden text
! 1342:
! 1343: The font field is defined as follows:
! 1344:
! 1345: For font_flags bit 2 = 0 (LaTeX fonts):
! 1346:
! 1347: 0 Default font
! 1348: 1 Roman
! 1349: 2 Bold
! 1350: 3 Italic
! 1351: 4 Sans Serif
! 1352: 5 Typewriter
! 1353:
! 1354: For font_flags bit 3 = 1 (PostScript fonts):
! 1355:
! 1356: -1 Default font
! 1357: 0 Times Roman
! 1358: 1 Times Italic
! 1359: 2 Times Bold
! 1360: 3 Times Bold Italic
! 1361: 4 AvantGarde Book
! 1362: 5 AvantGarde Book Oblique
! 1363: 6 AvantGarde Demi
! 1364: 7 AvantGarde Demi Oblique
! 1365: 8 Bookman Light
! 1366: 9 Bookman Light Italic
! 1367: 10 Bookman Demi
! 1368: 11 Bookman Demi Italic
! 1369: 12 Courier
! 1370: 13 Courier Oblique
! 1371: 14 Courier Bold
! 1372: 15 Courier Bold Oblique
! 1373: 16 Helvetica
! 1374: 17 Helvetica Oblique
! 1375: 18 Helvetica Bold
! 1376: 19 Helvetica Bold Oblique
! 1377: 20 Helvetica Narrow
! 1378: 21 Helvetica Narrow Oblique
! 1379: 22 Helvetica Narrow Bold
! 1380: 23 Helvetica Narrow Bold Oblique
! 1381: 24 New Century Schoolbook Roman
! 1382: 25 New Century Schoolbook Italic
! 1383: 26 New Century Schoolbook Bold
! 1384: 27 New Century Schoolbook Bold Italic
! 1385: 28 Palatino Roman
! 1386: 29 Palatino Italic
! 1387: 30 Palatino Bold
! 1388: 31 Palatino Bold Italic
! 1389: 32 Symbol
! 1390: 33 Zapf Chancery Medium Italic
! 1391: 34 Zapf Dingbats
! 1392: */
! 1393:
! 1394: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to fig.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term