Annotation of OpenXM_contrib/gnuplot/term/cgm.trm, Revision 1.1
1.1 ! maekawa 1: /* Hey Emacs this is -*- C -*-
! 2: * $Id: cgm.trm,v 1.16 1998/06/18 14:59:18 ddenholm Exp $
! 3: */
! 4:
! 5: /* GNUPLOT - cgm.trm */
! 6:
! 7: /*[
! 8: * Copyright 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 and ../docs/termdoc.c.
! 39: *
! 40: * This terminal driver supports:
! 41: * Computer Graphics Metafile
! 42: *
! 43: * TODO
! 44: * better control over plot size (never cutting off labels, correct font
! 45: * sizes)
! 46: * Fix font sizes for portrait orientation
! 47: *
! 48: * AUTHOR
! 49: * Jim Van Zandt <jrv@vanzandt.mv.com>
! 50: *
! 51: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 52: */
! 53:
! 54: #include "driver.h"
! 55:
! 56: #ifdef TERM_REGISTER
! 57: register_term(cgm)
! 58: #endif
! 59:
! 60: #ifdef TERM_PROTO
! 61: TERM_PUBLIC void CGM_options __PROTO((void));
! 62: TERM_PUBLIC void CGM_init __PROTO((void));
! 63: TERM_PUBLIC void CGM_reset __PROTO((void));
! 64: TERM_PUBLIC void CGM_text __PROTO((void));
! 65: TERM_PUBLIC void CGM_graphics __PROTO((void));
! 66: TERM_PUBLIC void CGM_move __PROTO((unsigned int x, unsigned int y));
! 67: TERM_PUBLIC void CGM_dashed_vector __PROTO((unsigned int ux, unsigned int uy));
! 68: TERM_PUBLIC void CGM_solid_vector __PROTO((unsigned int ux, unsigned int uy));
! 69: TERM_PUBLIC void CGM_linetype __PROTO((int linetype));
! 70: TERM_PUBLIC void CGM_linecolor __PROTO((int color));
! 71: TERM_PUBLIC void CGM_dashtype __PROTO((int dashtype));
! 72: TERM_PUBLIC void CGM_linewidth __PROTO((double width));
! 73: TERM_PUBLIC void CGM_put_text __PROTO((unsigned int x, unsigned int y,
! 74: char *str));
! 75: TERM_PUBLIC int CGM_text_angle __PROTO((int ang));
! 76: TERM_PUBLIC int CGM_justify_text __PROTO((enum JUSTIFY mode));
! 77: TERM_PUBLIC void CGM_point __PROTO((unsigned int x, unsigned int y,
! 78: int number));
! 79: TERM_PUBLIC int CGM_find_font __PROTO((char *font, int numchar));
! 80: TERM_PUBLIC int CGM_set_font __PROTO((char *font));
! 81: TERM_PUBLIC void CGM_set_pointsize __PROTO((double size));
! 82:
! 83: #define CGM_LARGE 32767
! 84: #define CGM_SMALL 32767/18*13 /* aspect ratio 1:.7222 */
! 85: #define CGM_MARGIN (CGM_LARGE/180)
! 86: /* convert from plot units to pt */
! 87: #define CGM_PT ((term->xmax + CGM_MARGIN)/cgm_plotwidth)
! 88: #define CGM_LINE_TYPES 9 /* number of line types we support */
! 89: #define CGM_COLORS 7 /* number of colors we support */
! 90: #define CGM_POINTS 8 /* number of markers we support */
! 91: #define CGM_MAX_SEGMENTS 104 /* maximum # polyline coordinates */
! 92: #define CGM_VCHAR (CGM_SMALL/360*12)
! 93: #define CGM_HCHAR (CGM_SMALL/360*12*5/9)
! 94: #define CGM_VTIC (CGM_LARGE/80)
! 95: #define CGM_HTIC (CGM_LARGE/80)
! 96: #endif
! 97:
! 98: #ifndef TERM_PROTO_ONLY
! 99: #ifdef TERM_BODY
! 100:
! 101: /*
! 102: * on NeXTstep, id is an identifier (in ObjC) and causes a parse error
! 103: * since some asserts below are mistaken as casts. datum is a type
! 104: * defined in ndbm.h which also causes a parse error (ndbm.h is
! 105: * included as part of appkit.h, I think). Strangely enough, both
! 106: * errors only happen with cpp-precomp -smart, not with the regular
! 107: * cpp. (AL)
! 108: */
! 109:
! 110: #ifdef NEXT
! 111: #define id id_
! 112: #define datum datum_
! 113: #endif
! 114:
! 115: #include <ctype.h> /* for isspace() */
! 116:
! 117: #ifndef assert
! 118: #define assert(x) 0 /* defeat assertions */
! 119: #endif
! 120:
! 121: /* uncomment the following to enable assertions for this module only,
! 122: regardless of compiler switches */
! 123: #ifdef NDEBUG
! 124: #define DEFEAT_ASSERTIONS
! 125: #endif
! 126: #undef NDEBUG
! 127: #include <assert.h>
! 128:
! 129:
! 130: #define CGM_ADJ (sizeof(int)/sizeof(short))
! 131:
! 132: static unsigned int cgm_posx;
! 133: static unsigned int cgm_posy;
! 134: static unsigned int cgm_linetype = 1;
! 135: static unsigned int cgm_dashtype = 0;
! 136: static unsigned int cgm_color = 0;
! 137: static int cgm_polyline[CGM_MAX_SEGMENTS]; /* stored polyline coordinates */
! 138: static int cgm_coords = 0; /* # polyline coordinates saved */
! 139: enum JUSTIFY cgm_justify = LEFT;
! 140: static int cgm_vert_text = 0; /* text orientation -- nonzero for vertical */
! 141: static int cgm_vert_text_requested = 0;
! 142: static int cgm_step_sizes[8]; /* array of currently used dash
! 143: lengths in plot units */
! 144: static int cgm_step_index = 0; /* index into cgm_step_sizes[] */
! 145: static int cgm_step = 0; /* amount of current dash not yet
! 146: drawn, in plot units */
! 147: static int cgm_tic, cgm_tic707, cgm_tic866, cgm_tic500, cgm_tic1241, cgm_tic1077, cgm_tic621; /* marker dimensions */
! 148: /* Each font string is preceded by a byte with its length */
! 149: static char GPFAR cgm_font_data[] =
! 150: {"\
! 151: \005Arial\
! 152: \014Arial Italic\
! 153: \012Arial Bold\
! 154: \021Arial Bold Italic\
! 155: \013Times Roman\
! 156: \022Times Roman Italic\
! 157: \020Times Roman Bold\
! 158: \027Times Roman Bold Italic\
! 159: \011Helvetica\
! 160: \005Roman\
! 161: "};
! 162:
! 163: /* variables to record the options */
! 164: static char cgm_font[32] = "Arial Bold";
! 165: static unsigned int cgm_fontsize = 10;
! 166: static unsigned cgm_linewidth; /* line width in plot units */
! 167: static unsigned cgm_linewidth_pt = 1; /* line width in pt */
! 168: static TBOOLEAN cgm_monochrome = FALSE; /* colors enabled? */
! 169: static int cgm_plotwidth = 432; /* assumed width of plot in pt. */
! 170: static TBOOLEAN cgm_portrait = FALSE; /* portrait orientation? */
! 171: static TBOOLEAN cgm_rotate = TRUE; /* text rotation enabled? */
! 172: static TBOOLEAN cgm_dashed = TRUE; /* dashed linestyles enabled? */
! 173: static TBOOLEAN cgm_winword6_mode = FALSE; /* workaround for WinWord bug? */
! 174:
! 175: /* prototypes for static functions */
! 176: static void CGM_flush_polyline __PROTO((void));
! 177: static void CGM_flush_polygon __PROTO((void));
! 178: static void CGM_write_char_record __PROTO((int class, int cgm_id, int length,
! 179: char *data));
! 180: static void CGM_write_code __PROTO((int class, int cgm_id, int length));
! 181: static void CGM_write_int __PROTO((int value));
! 182: static void CGM_write_int_record __PROTO((int class, int cgm_id, int length,
! 183: int *data));
! 184: static void CGM_write_mixed_record __PROTO((int class, int cgm_id,
! 185: int numint, int *int_data,
! 186: int numchar, char *char_data));
! 187:
! 188:
! 189:
! 190: TERM_PUBLIC void CGM_init()
! 191: {
! 192: cgm_posx = cgm_posy = 0;
! 193: cgm_linetype = 0;
! 194: cgm_vert_text = 0;
! 195: }
! 196:
! 197: TERM_PUBLIC void CGM_graphics()
! 198: {
! 199: register struct termentry *t = term;
! 200: static int version_data[] = { 1 };
! 201: static char GPFAR description_data[] = "Computer Graphics Metafile version of Gnuplot";
! 202: static int vdc_type_data[] = { 0 };
! 203: static int integer_precision_data[] = { 16 };
! 204: static int real_precision_data[] = { 1, 16, 16 };
! 205: static int index_precision_data[] = { 16 };
! 206: static int color_precision_data[] = { 16 };
! 207: static int color_index_precision_data[] = { 16 };
! 208: static int maximum_color_index_data_data[] = { CGM_COLORS };
! 209: static int scaling_mode_data[] = { 0, 0, 0 };
! 210: static int color_value_extent_data[] = { 0, 0, 0, 255, 255, 255 };
! 211: static int GPFAR color_table_data[] =
! 212: /* for testing
! 213: {
! 214: 8, 0,0,0, 64,64,64, 128,128,128, 196,196,196, 0,255,255, 255,0,255,
! 215: 255,255,0, 255,255,255
! 216: };
! 217: */
! 218: {
! 219: CGM_COLORS,
! 220: 0, 0, 0, 255, 0, 0, 0, 255, 0, 0, 0, 255, 255, 255, 0, 255, 0, 255, 0, 255, 255
! 221: /* black red green blue yellow magenta cyan */
! 222: };
! 223:
! 224: static int color_selection_mode_data[] = { 0 };
! 225: static int linewidth_specification_mode_data[] = { 0 };
! 226: static int marker_size_specification_mode_data[] = { 0 };
! 227: static int vdc_extent_data[] = { 0, 0, 0, 0 };
! 228: static int vdc_integer_precision_data[] = { 16 };
! 229: static int transparency_data[] = { 0 }; /* text background: 1=transparent */
! 230: static int clip_indicator_data[] = { 0 };
! 231: /* static int line_color_data[] = { 1 }; */
! 232: static int line_type_data[] = { 1 };
! 233: static int interior_style_data[] = { 1 }; /* 1=filled */
! 234:
! 235: static int GPFAR elements_list_data[] =
! 236: {
! 237: 0, /* will be set to # elements in this list */
! 238: 0, 1, /* Begin Metafile */
! 239: 0, 2, /* End Metafile */
! 240: 0, 3, /* Begin Picture */
! 241: 0, 4, /* Begin Picture Body */
! 242: 0, 5, /* End Picture */
! 243: 1, 1, /* Metafile Version */
! 244: 1, 2, /* Metafile Description */
! 245: 1, 3, /* VDC Type */
! 246: 1, 4, /* Integer Precision */
! 247: 1, 5, /* Real Precision */
! 248: 1, 6, /* Index Precision */
! 249: 1, 7, /* Color Precision */
! 250: 1, 8, /* Color Index Precision */
! 251: 1, 9, /* Maximum Color Index */
! 252: 2, 1, /* Scaling Mode */
! 253: 2, 2, /* Color Selection Mode */
! 254: 2, 3, /* Line Width Specification Mode */
! 255: 2, 4, /* Marker Size Specification Mode */
! 256: 2, 6, /* VDC Extent */
! 257: 3, 1, /* VDC Integer Precision */
! 258: 3, 4, /* Transparency */
! 259: 3, 6, /* Clip Indicator */
! 260: 4, 1, /* Polyline */
! 261: 4, 3, /* Polymarker */
! 262: 4, 4, /* Text */
! 263: 4, 7, /* Polygon */
! 264: 4, 11, /* Rectangle */
! 265: 4, 12, /* Circle */
! 266: 4, 15, /* Circular Arc Center */
! 267: 4, 16, /* Circular Arc Center Close */
! 268: 4, 17, /* Ellipse */
! 269: 4, 18, /* Elliptical Arc */
! 270: 4, 19, /* Elliptical Arc Close */
! 271: 5, 2, /* Line Type */
! 272: 5, 3, /* Line Width */
! 273: 5, 4, /* Line Color */
! 274: 5, 6, /* Marker Type */
! 275: 5, 7, /* Marker Size */
! 276: 5, 8, /* Marker Color */
! 277: 5, 10, /* Text Font Index */
! 278: 5, 14, /* Text Color */
! 279: 5, 15, /* Character Height */
! 280: 5, 16, /* Character Orientation */
! 281: 5, 18, /* Text Alignment */
! 282: 5, 22, /* Interior Style */
! 283: 5, 23, /* Fill Color */
! 284: 5, 24, /* Hatch Index */
! 285: 6, 1, /* Escape */
! 286: 7, 2 /* Application Data */
! 287: };
! 288:
! 289: /* metafile description (class 1) */
! 290: if (!outstr)
! 291: CGM_write_char_record(0, 1, 1, outstr);
! 292: else
! 293: CGM_write_char_record(0, 1, strlen(outstr) + 1, outstr);
! 294: CGM_write_int_record(1, 1, 2, version_data);
! 295: CGM_write_char_record(1, 2, sizeof(description_data), description_data);
! 296: CGM_write_int_record(1, 3, 2, vdc_type_data);
! 297: CGM_write_int_record(1, 4, 2, integer_precision_data);
! 298: CGM_write_int_record(1, 5, 6, real_precision_data);
! 299: CGM_write_int_record(1, 6, 2, index_precision_data);
! 300: CGM_write_int_record(1, 7, 2, color_precision_data);
! 301: CGM_write_int_record(1, 8, 2, color_index_precision_data);
! 302: CGM_write_int_record(1, 9, 2, maximum_color_index_data_data);
! 303: CGM_write_int_record(1, 10, sizeof(color_value_extent_data) / CGM_ADJ,
! 304: color_value_extent_data);
! 305: elements_list_data[0] = (sizeof(elements_list_data) / CGM_ADJ - 2) / 4;
! 306: CGM_write_int_record(1, 11, sizeof(elements_list_data) / CGM_ADJ,
! 307: elements_list_data);
! 308: if (cgm_winword6_mode == FALSE)
! 309: CGM_write_char_record(1, 13, strlen(cgm_font_data), cgm_font_data);
! 310:
! 311: /* picture description (classes 2 and 3) */
! 312: CGM_write_char_record(0, 3, 8, "PICTURE1");
! 313: CGM_write_int_record(2, 1, 6, scaling_mode_data);
! 314: CGM_write_int_record(2, 2, 2, color_selection_mode_data);
! 315: CGM_write_int_record(2, 3, 2, linewidth_specification_mode_data);
! 316: CGM_write_int_record(2, 4, 2, marker_size_specification_mode_data);
! 317: vdc_extent_data[2] = t->xmax + CGM_MARGIN;
! 318: vdc_extent_data[3] = t->ymax + CGM_MARGIN;
! 319: CGM_write_int_record(2, 6, 8, vdc_extent_data);
! 320: CGM_write_int_record(3, 1, 2, vdc_integer_precision_data);
! 321: CGM_write_int_record(3, 4, sizeof(transparency_data) / CGM_ADJ,
! 322: transparency_data);
! 323: CGM_write_int_record(3, 6, sizeof(clip_indicator_data) / CGM_ADJ,
! 324: clip_indicator_data);
! 325:
! 326: /* picture body (classes 4 and 5) */
! 327: CGM_write_int_record(0, 4, 0, NULL);
! 328: /* The WinWord 6.0 and PublishIt input
! 329: filters seem to mostly ignore the
! 330: color table. With the table, WinWord
! 331: maps color 7 to black. */
! 332: if (!cgm_winword6_mode)
! 333: CGM_write_int_record(5, 34, sizeof(color_table_data) / CGM_ADJ,
! 334: color_table_data);
! 335: CGM_write_int_record(5, 2, sizeof(line_type_data) / CGM_ADJ,
! 336: line_type_data);
! 337: cgm_linewidth = cgm_linewidth_pt * CGM_PT;
! 338: CGM_write_int_record(5, 3, sizeof(cgm_linewidth) / CGM_ADJ,
! 339: (int *) &cgm_linewidth);
! 340: CGM_linecolor(0);
! 341: /* CGM_write_int_record(5, 4, sizeof(line_color_data)/CGM_ADJ, line_color_data); */
! 342: CGM_write_int_record(5, 15, 2, (int *) &t->v_char);
! 343: CGM_write_int_record(5, 22, 2, interior_style_data);
! 344: {
! 345: char buf[45];
! 346: sprintf(buf, "%.31s,%d", cgm_font, cgm_fontsize);
! 347: CGM_set_font(buf);
! 348: }
! 349: CGM_set_pointsize(pointsize);
! 350: }
! 351:
! 352: TERM_PUBLIC int CGM_find_font(font, numchar)
! 353: char *font;
! 354: int numchar;
! 355: {
! 356: int font_index = 1;
! 357: char *s;
! 358: for (s = cgm_font_data; s < cgm_font_data + strlen(cgm_font_data); s += (int) *s + 1) {
! 359: /* strnicmp is not standard, but defined by stdfn.c if not available */
! 360: if (numchar == (int) *s && strnicmp(font, s + 1, numchar - 1) == 0)
! 361: return font_index;
! 362: font_index++;
! 363: }
! 364: return 0;
! 365: }
! 366:
! 367: TERM_PUBLIC int CGM_set_font(font)
! 368: char *font;
! 369: {
! 370: register struct termentry *t = term;
! 371: int size, font_index;
! 372: char *comma;
! 373: int sep;
! 374:
! 375: comma = strchr(font, ',');
! 376: if (comma == NULL)
! 377: return FALSE; /* bad format */
! 378: sep = comma - font;
! 379: /* find font in font table, or use 1st font */
! 380: font_index = CGM_find_font(font, sep);
! 381: if (font_index == 0)
! 382: font_index = 1;
! 383: CGM_write_int_record(5, 10, 2, &font_index);
! 384:
! 385: /* set font size */
! 386: size = cgm_fontsize;
! 387: sscanf(comma + 1, "%d", &size);
! 388: if (sep > 31)
! 389: sep = 31;
! 390: strncpy(cgm_font, font, sep);
! 391: cgm_font[sep] = NUL;
! 392: t->v_char = size * CGM_PT;
! 393: t->h_char = (t->v_char * 5) / 9;
! 394: CGM_write_int_record(5, 15, 2, (int *) &t->v_char);
! 395: return TRUE;
! 396: }
! 397:
! 398: TERM_PUBLIC void CGM_text()
! 399: {
! 400: CGM_flush_polyline();
! 401: CGM_write_int_record(0, 5, 0, NULL); /* end picture */
! 402: CGM_write_int_record(0, 2, 0, NULL); /* end metafile */
! 403: }
! 404:
! 405: TERM_PUBLIC void CGM_linetype(linetype)
! 406: int linetype;
! 407: {
! 408: assert(linetype >= -2);
! 409: if (linetype == cgm_linetype)
! 410: return;
! 411: cgm_linetype = linetype;
! 412:
! 413: CGM_linecolor(linetype);
! 414: if (cgm_dashed) {
! 415: CGM_dashtype(linetype); /* DBT 10-8-98 use dashes */
! 416: } else {
! 417: /* dashes for gridlines, solid for everything else */
! 418: CGM_dashtype(linetype == -1 ? 2 : 0);
! 419: }
! 420: /* CGM_dashtype(cgm_monochrome ? linetype : 0); first fix, color->no dashes */
! 421: /* CGM_dashtype(linetype); orig distribution */
! 422: }
! 423:
! 424: TERM_PUBLIC void CGM_linecolor(linecolor)
! 425: int linecolor;
! 426: {
! 427: assert(linecolor >= -2);
! 428: linecolor = (linecolor < 1) ? 1 : linecolor % CGM_COLORS + 1;
! 429: if (cgm_monochrome || linecolor == cgm_color)
! 430: return;
! 431: cgm_color = linecolor;
! 432:
! 433: CGM_flush_polyline();
! 434: CGM_write_int_record(5, 4, 2, (int *) &cgm_color);
! 435: CGM_write_int_record(5, 23, 2, (int *) &cgm_color);
! 436: }
! 437:
! 438: TERM_PUBLIC void CGM_linewidth(width)
! 439: double width;
! 440: {
! 441: int new_linewidth;
! 442:
! 443: assert(width >= 1.);
! 444: new_linewidth = width * cgm_linewidth_pt * CGM_PT;
! 445: if (new_linewidth == cgm_linewidth)
! 446: return;
! 447: cgm_linewidth = new_linewidth;
! 448: CGM_write_int_record(5, 3, sizeof(cgm_linewidth) / CGM_ADJ,
! 449: (int *) &cgm_linewidth);
! 450: CGM_dashtype(cgm_dashtype); /* have dash lengths recalculated */
! 451: }
! 452:
! 453: TERM_PUBLIC void CGM_dashtype(dashtype)
! 454: int dashtype;
! 455: {
! 456: int i, j;
! 457: /* Each group of 8 entries in dot_length[] defines a dash
! 458: pattern. Entries in each group are alternately length of
! 459: whitespace and length of line, in units of 2/3 of the
! 460: linewidth. */
! 461: static int dot_length[CGM_LINE_TYPES * 8] =
! 462: { /* 0 - solid */
! 463: 5, 8, 5, 8, 5, 8, 5, 8, /* 1 - dashes */
! 464: 5, 3, 5, 3, 5, 3, 5, 3, /* 2 - short dashes */
! 465: 4, 1, 4, 1, 4, 1, 4, 1, /* 3 - dotted */
! 466: 4, 8, 4, 1, 4, 8, 4, 1, /* 4 - dash-dot */
! 467: 4, 9, 4, 1, 4, 1, 0, 0, /* 5 - dash-dot-dot */
! 468: 4, 10, 4, 1, 4, 1, 4, 1, /* 6 - dash-dot-dot-dot */
! 469: 4, 10, 4, 10, 4, 1, 0, 0, /* 7 - dash-dash-dot */
! 470: 4, 10, 4, 10, 4, 1, 4, 1}; /* 8 - dash-dash-dot-dot */
! 471:
! 472:
! 473: assert(dashtype >= -2);
! 474: if (dashtype == cgm_dashtype)
! 475: return;
! 476: cgm_dashtype = dashtype;
! 477:
! 478: CGM_flush_polyline();
! 479:
! 480: if (dashtype >= CGM_LINE_TYPES)
! 481: dashtype = dashtype % CGM_LINE_TYPES;
! 482: if (dashtype < 1) {
! 483: term->vector = CGM_solid_vector;
! 484: return;
! 485: }
! 486: term->vector = CGM_dashed_vector;
! 487:
! 488: /* set up dash dimensions */
! 489: j = (dashtype - 1) * 8;
! 490: for (i = 0; i < 8; i++, j++) {
! 491: if (dot_length[j])
! 492: cgm_step_sizes[i] = (dot_length[j] * cgm_linewidth) * 2 / 3;
! 493: else
! 494: cgm_step_sizes[i] = 0;
! 495: }
! 496: /* first thing drawn will be a line */
! 497: cgm_step = cgm_step_sizes[1];
! 498: cgm_step_index = 1;
! 499: }
! 500:
! 501: TERM_PUBLIC void CGM_move(x, y)
! 502: unsigned int x, y;
! 503: {
! 504: assert(x < term->xmax && y < term->ymax);
! 505: if (x == cgm_posx && y == cgm_posy)
! 506: return;
! 507: CGM_flush_polyline();
! 508: cgm_posx = x;
! 509: cgm_posy = y;
! 510: }
! 511:
! 512: static void CGM_flush_polyline()
! 513: {
! 514: if (cgm_coords == 0)
! 515: return;
! 516: CGM_write_int_record(4, 1, cgm_coords * 2, cgm_polyline);
! 517: cgm_coords = 0;
! 518: }
! 519:
! 520: static void CGM_write_char_record(class, cgm_id, numbytes, data)
! 521: int class, cgm_id, numbytes;
! 522: char *data;
! 523: {
! 524: int pad, padded_length;
! 525: static unsigned char flag = 0xff;
! 526: char short_len;
! 527:
! 528: pad = 0;
! 529: padded_length = numbytes + 1;
! 530: if (numbytes >= 255)
! 531: padded_length += 2; /* long string */
! 532: if (padded_length & 1)
! 533: padded_length += pad = 1; /* needs pad */
! 534: CGM_write_code(class, cgm_id, padded_length);
! 535: short_len = numbytes;
! 536: if (numbytes < 255)
! 537: fwrite(&short_len, 1, 1, gpoutfile); /* write true length */
! 538: else {
! 539: fwrite(&flag, 1, 1, gpoutfile);
! 540: CGM_write_int(numbytes);
! 541: }
! 542: fwrite(data, 1, numbytes + pad, gpoutfile); /* write string */
! 543: }
! 544:
! 545: static void CGM_write_int_record(class, cgm_id, numbytes, data)
! 546: int class, cgm_id, numbytes, *data;
! 547: {
! 548: int i;
! 549: assert((numbytes & 1) == 0);
! 550: CGM_write_code(class, cgm_id, numbytes);
! 551: numbytes >>= 1;
! 552: for (i = 0; i < numbytes; i++)
! 553: CGM_write_int(data[i]);
! 554: }
! 555:
! 556: static void CGM_write_mixed_record(class, cgm_id, numint, int_data,
! 557: numchar, char_data)
! 558: int class, cgm_id, numint, *int_data, numchar;
! 559: char *char_data;
! 560: {
! 561: int i, pad, padded_length;
! 562: static unsigned char flag = 0xff;
! 563: char short_len;
! 564:
! 565: pad = 0;
! 566: padded_length = numchar + 1;
! 567: if (numchar >= 255)
! 568: padded_length += 2; /* long string */
! 569: if (padded_length & 1)
! 570: padded_length += pad = 1; /* needs pad */
! 571:
! 572: CGM_write_code(class, cgm_id, numint * 2 + padded_length);
! 573:
! 574: for (i = 0; i < numint; i++)
! 575: CGM_write_int(int_data[i]); /* write integers */
! 576:
! 577: short_len = numchar;
! 578: if (numchar < 255)
! 579: fwrite(&short_len, 1, 1, gpoutfile); /* write string length */
! 580: else {
! 581: fwrite(&flag, 1, 1, gpoutfile);
! 582: CGM_write_int(numchar);
! 583: }
! 584: fwrite(char_data, 1, numchar + pad, gpoutfile); /* write string */
! 585: }
! 586:
! 587: /*
! 588: Write the code word that starts a CGM record.
! 589: bits in code word are as follows...
! 590: cccciiiiiiilllll
! 591: where
! 592: cccc is a 4-bit class number
! 593: iiiiiii is a 7-bit ID number
! 594: lllll is a 5-bit length (# bytes following the code word, or
! 595: 31 followed by a word with the actual number)
! 596: */
! 597: static void CGM_write_code(class, cgm_id, length)
! 598: int class, cgm_id, length;
! 599: {
! 600: unsigned code;
! 601:
! 602: assert((0 <= class) &&(class <16));
! 603: assert((0 <= cgm_id) && (cgm_id < 128));
! 604: assert(0 <= length);
! 605: if (length < 31) {
! 606: code = ((class &0x0f) <<12) |
! 607: ((cgm_id & 0x7f) << 5) |
! 608: ((length & 0x1f));
! 609: CGM_write_int(code);
! 610: } else {
! 611: code = ((class &0x0f) <<12) |
! 612: ((cgm_id & 0x7f) << 5) |
! 613: 0x1f;
! 614: CGM_write_int(code);
! 615: CGM_write_int(length);
! 616: }
! 617: }
! 618:
! 619: static void CGM_write_int(value)
! 620: int value;
! 621: {
! 622: union {
! 623: short s;
! 624: char c[2];
! 625: } u;
! 626:
! 627: #if !defined(DOS16) && !defined(WIN16)
! 628: assert(-32768 <= value && value <= 32767);
! 629: #endif
! 630:
! 631: u.c[0] = (value >> 8) & 255; /* convert to network order */
! 632: u.c[1] = value & 255;
! 633:
! 634: fwrite(&u.s, 1, 2, gpoutfile);
! 635: }
! 636:
! 637: /* Draw a dashed line to (ux,uy). CGM has linestyles, but
! 638: they are not usable -- at least with the Word for Windows
! 639: 6.0 filter, where lines of significant width (even 1 pt)
! 640: always come out solid. Therefore, we implement dashed
! 641: lines here instead. */
! 642: TERM_PUBLIC void CGM_dashed_vector(ux, uy)
! 643: unsigned int ux, uy;
! 644: {
! 645: int xa, ya;
! 646: int dx, dy, adx, ady;
! 647: int dist; /* approximate distance in plot units
! 648: from starting point to specified end
! 649: point. */
! 650: long remain; /* approximate distance in plot units
! 651: remaining to specified end point. */
! 652:
! 653: assert(ux < term->xmax && uy < term->ymax);
! 654:
! 655: dx = (ux - cgm_posx);
! 656: dy = (uy - cgm_posy);
! 657: adx = abs(dx);
! 658: ady = abs(dy * 10);
! 659:
! 660: /* using the approximation
! 661: sqrt(x**2 + y**2) ~ x + (5*x*x)/(12*y) when x > y.
! 662: Note ordering of calculations to avoid overflow on 16 bit
! 663: architectures */
! 664: if (10 * adx < ady)
! 665: dist = (ady / 2 + 25 * adx / ady * adx / 6 * 5) / 5;
! 666: else {
! 667: if (adx == 0)
! 668: return;
! 669: dist = (adx * 10 + (ady / 24) * (ady / adx)) / 10;
! 670: }
! 671: remain = dist;
! 672: xa = cgm_posx;
! 673: ya = cgm_posy;
! 674: while (remain > cgm_step) {
! 675: remain -= cgm_step;
! 676: if (cgm_step_index & 1)
! 677: CGM_solid_vector((int) (ux - (remain * dx) / dist),
! 678: (int) (uy - (remain * dy) / dist));
! 679: else {
! 680: xa = (int) (ux - (remain * dx) / dist);
! 681: ya = (int) (uy - (remain * dy) / dist);
! 682: CGM_move(xa, ya);
! 683: }
! 684: if (++cgm_step_index >= 8)
! 685: cgm_step_index = 0;
! 686: cgm_step = cgm_step_sizes[cgm_step_index];
! 687: }
! 688: if (cgm_step_index & 1)
! 689: CGM_solid_vector(ux, uy);
! 690: else
! 691: CGM_move(ux, uy);
! 692: cgm_step -= (int) remain;
! 693: }
! 694:
! 695: TERM_PUBLIC void CGM_solid_vector(ux, uy)
! 696: unsigned int ux, uy;
! 697: {
! 698: assert(ux < term->xmax && uy < term->ymax);
! 699: if (ux == cgm_posx && uy == cgm_posy)
! 700: return;
! 701: if (cgm_coords > CGM_MAX_SEGMENTS - 2) {
! 702: CGM_flush_polyline();
! 703: cgm_polyline[cgm_coords++] = cgm_posx;
! 704: cgm_polyline[cgm_coords++] = cgm_posy + CGM_MARGIN;
! 705: } else if (cgm_coords == 0) {
! 706: cgm_polyline[cgm_coords++] = cgm_posx;
! 707: cgm_polyline[cgm_coords++] = cgm_posy + CGM_MARGIN;
! 708: }
! 709: cgm_polyline[cgm_coords++] = ux;
! 710: cgm_polyline[cgm_coords++] = uy + CGM_MARGIN;
! 711: cgm_posx = ux;
! 712: cgm_posy = uy;
! 713: }
! 714:
! 715: TERM_PUBLIC void CGM_put_text(x, y, str)
! 716: unsigned int x, y;
! 717: char str[];
! 718: {
! 719: static int where[3] = { 0, 0, 1 };
! 720: int data[4];
! 721: char *s = str;
! 722:
! 723: while (*s)
! 724: if (!isspace((int) *s++))
! 725: goto showit;
! 726: return;
! 727:
! 728: showit:
! 729: if (cgm_vert_text != cgm_vert_text_requested) {
! 730: cgm_vert_text = cgm_vert_text_requested;
! 731: if (cgm_vert_text) {
! 732: data[0] = -term->v_char;
! 733: data[1] = data[2] = 0;
! 734: data[3] = term->v_char;
! 735: } else {
! 736: data[1] = data[2] = term->v_char;
! 737: data[0] = data[3] = 0;
! 738: }
! 739: CGM_write_int_record(5, 16, 8, data);
! 740: }
! 741: CGM_flush_polyline();
! 742: where[0] = x;
! 743: where[1] = y + CGM_MARGIN;
! 744: CGM_write_mixed_record(4, 4, 3, where, strlen(str), str);
! 745:
! 746: cgm_posx = cgm_posy = -2000;
! 747: }
! 748:
! 749: TERM_PUBLIC int CGM_text_angle(ang)
! 750: int ang;
! 751: {
! 752: if (cgm_rotate) {
! 753: cgm_vert_text_requested = ang;
! 754: return TRUE;
! 755: }
! 756: return ang ? FALSE : TRUE;
! 757: }
! 758:
! 759: TERM_PUBLIC int CGM_justify_text(mode)
! 760: enum JUSTIFY mode;
! 761: {
! 762: static int data[6] = { 1, 3, 0, 0, 0, 0 };
! 763:
! 764: switch (mode) {
! 765: case LEFT:
! 766: data[0] = 1;
! 767: break;
! 768: case CENTRE:
! 769: data[0] = 2;
! 770: break;
! 771: case RIGHT:
! 772: data[0] = 3;
! 773: break;
! 774: default:
! 775: assert(0);
! 776: }
! 777: CGM_write_int_record(5, 18, 12, data);
! 778: return (TRUE);
! 779: }
! 780:
! 781: TERM_PUBLIC void CGM_reset()
! 782: {
! 783: cgm_posx = cgm_posy = 0;
! 784: }
! 785:
! 786: TERM_PUBLIC void CGM_point(x, y, number)
! 787: unsigned int x, y;
! 788: int number;
! 789: {
! 790: int old_dashtype;
! 791:
! 792: if (number < 0) { /* draw dot */
! 793: CGM_move(x, y);
! 794: CGM_solid_vector(x + 1, y);
! 795: return;
! 796: }
! 797: number %= CGM_POINTS;
! 798:
! 799: CGM_flush_polyline();
! 800: old_dashtype = cgm_dashtype;
! 801: CGM_dashtype(0);
! 802:
! 803: switch (number) {
! 804: case 0: /* draw diamond */
! 805: CGM_move(x - cgm_tic, y);
! 806: CGM_solid_vector(x, y - cgm_tic);
! 807: CGM_solid_vector(x + cgm_tic, y);
! 808: CGM_solid_vector(x, y + cgm_tic);
! 809: CGM_flush_polygon();
! 810: break;
! 811: case 1: /* draw plus */
! 812: CGM_move(x - cgm_tic, y);
! 813: CGM_solid_vector(x + cgm_tic, y);
! 814: CGM_move(x, y - cgm_tic);
! 815: CGM_solid_vector(x, y + cgm_tic);
! 816: break;
! 817: case 2: /* draw box */
! 818: CGM_move(x - cgm_tic707, y - cgm_tic707);
! 819: CGM_solid_vector(x + cgm_tic707, y - cgm_tic707);
! 820: CGM_solid_vector(x + cgm_tic707, y + cgm_tic707);
! 821: CGM_solid_vector(x - cgm_tic707, y + cgm_tic707);
! 822: CGM_flush_polygon();
! 823: break;
! 824: case 3: /* draw X */
! 825: CGM_move(x - cgm_tic707, y - cgm_tic707);
! 826: CGM_solid_vector(x + cgm_tic707, y + cgm_tic707);
! 827: CGM_move(x - cgm_tic707, y + cgm_tic707);
! 828: CGM_solid_vector(x + cgm_tic707, y - cgm_tic707);
! 829: break;
! 830: case 4: /* draw triangle (point up) */
! 831: CGM_move(x, y + cgm_tic1241);
! 832: CGM_solid_vector(x - cgm_tic1077, y - cgm_tic621);
! 833: CGM_solid_vector(x + cgm_tic1077, y - cgm_tic621);
! 834: CGM_flush_polygon();
! 835: break;
! 836: case 5: /* draw star (asterisk) */
! 837: CGM_move(x, y - cgm_tic);
! 838: CGM_solid_vector(x, y + cgm_tic);
! 839: CGM_move(x + cgm_tic866, y - cgm_tic500);
! 840: CGM_solid_vector(x - cgm_tic866, y + cgm_tic500);
! 841: CGM_move(x + cgm_tic866, y + cgm_tic500);
! 842: CGM_solid_vector(x - cgm_tic866, y - cgm_tic500);
! 843: break;
! 844: case 6: /* draw triangle (point down) */
! 845: CGM_move(x, y - cgm_tic1241);
! 846: CGM_solid_vector(x - cgm_tic1077, y + cgm_tic621);
! 847: CGM_solid_vector(x + cgm_tic1077, y + cgm_tic621);
! 848: CGM_flush_polygon();
! 849: break;
! 850: case 7: /* draw circle (actually, dodecagon)
! 851: (WinWord 6 accepts the CGM "circle"
! 852: element, but the resulting circle
! 853: is not correctly centered!) */
! 854: CGM_move(x, y - cgm_tic);
! 855: CGM_solid_vector(x + cgm_tic500, y - cgm_tic866);
! 856: CGM_solid_vector(x + cgm_tic866, y - cgm_tic500);
! 857: CGM_solid_vector(x + cgm_tic, y);
! 858: CGM_solid_vector(x + cgm_tic866, y + cgm_tic500);
! 859: CGM_solid_vector(x + cgm_tic500, y + cgm_tic866);
! 860: CGM_solid_vector(x, y + cgm_tic);
! 861: CGM_solid_vector(x - cgm_tic500, y + cgm_tic866);
! 862: CGM_solid_vector(x - cgm_tic866, y + cgm_tic500);
! 863: CGM_solid_vector(x - cgm_tic, y);
! 864: CGM_solid_vector(x - cgm_tic866, y - cgm_tic500);
! 865: CGM_solid_vector(x - cgm_tic500, y - cgm_tic866);
! 866: CGM_flush_polygon();
! 867: break;
! 868: }
! 869: CGM_dashtype(old_dashtype);
! 870: }
! 871:
! 872:
! 873: TERM_PUBLIC void CGM_set_pointsize(size)
! 874: double size;
! 875: {
! 876: /* Markers were chosen to have approximately equal
! 877: areas. Dimensions are as follows, in units of
! 878: cgm_tic:
! 879:
! 880: plus, diamond: half height = 1
! 881:
! 882: square, cross: half height = sqrt(1/2) ~ 12/17
! 883:
! 884: triangle: half width = sqrt(sqrt(4/3)) ~ 14/13,
! 885: height = sqrt(3*sqrt(4/3)) ~ 54/29
! 886:
! 887: star: half height = 1, half width = sqrt(3/4) ~ 13/15
! 888:
! 889: dodecagon: coordinates of vertices are 0,
! 890: sin(30) = 1/2, cos(30) = sqrt(3/4) ~ 13/15, or 1
! 891:
! 892: The fractions are approximates of the equivalent
! 893: continued fractions. */
! 894: cgm_tic = (size * term->h_tic / 2);
! 895: cgm_tic707 = cgm_tic * 12 / 17;
! 896: cgm_tic866 = cgm_tic * 13 / 15;
! 897: cgm_tic500 = cgm_tic / 2;
! 898: cgm_tic1241 = cgm_tic * 36 / 29;
! 899: cgm_tic1077 = cgm_tic * 14 / 13;
! 900: cgm_tic621 = cgm_tic * 18 / 29;
! 901: }
! 902:
! 903: static void CGM_flush_polygon()
! 904: {
! 905: if (cgm_coords == 0)
! 906: return;
! 907: CGM_write_int_record(4, 7, cgm_coords * 2, cgm_polyline);
! 908: cgm_coords = 0;
! 909: }
! 910:
! 911: TERM_PUBLIC void CGM_options()
! 912: {
! 913: strcpy(cgm_font, "Arial Bold");
! 914: cgm_fontsize = 10;
! 915: term->v_char = (unsigned int) (cgm_fontsize * CGM_PT);
! 916: term->h_char = (unsigned int) (cgm_fontsize * CGM_PT * 5 / 9);
! 917: cgm_linewidth_pt = 1;
! 918: cgm_monochrome = FALSE;
! 919: cgm_plotwidth = 6 * 72;
! 920: cgm_portrait = FALSE;
! 921: cgm_rotate = TRUE;
! 922: cgm_dashed = TRUE;
! 923: cgm_winword6_mode = FALSE;
! 924: while (!END_OF_COMMAND) {
! 925: if (almost_equals(c_token, "p$ortrait")) {
! 926: cgm_portrait = TRUE;
! 927: c_token++;
! 928: continue;
! 929: }
! 930: if (almost_equals(c_token, "la$ndscape")) {
! 931: cgm_portrait = FALSE;
! 932: c_token++;
! 933: continue;
! 934: }
! 935: if (almost_equals(c_token, "de$fault")) {
! 936: strcpy(cgm_font, "Arial Bold");
! 937: cgm_fontsize = 10;
! 938: term->v_char = (unsigned int) (cgm_fontsize * CGM_PT);
! 939: term->h_char = (unsigned int) (cgm_fontsize * CGM_PT * 5 / 9);
! 940: cgm_linewidth_pt = 1;
! 941: cgm_monochrome = FALSE;
! 942: cgm_plotwidth = 6 * 72;
! 943: cgm_portrait = FALSE;
! 944: cgm_rotate = TRUE;
! 945: cgm_dashed = TRUE;
! 946: cgm_winword6_mode = FALSE;
! 947: c_token++;
! 948: continue;
! 949: }
! 950: if (almost_equals(c_token, "w$inword6")) {
! 951: cgm_winword6_mode = TRUE;
! 952: c_token++;
! 953: continue;
! 954: }
! 955: if (almost_equals(c_token, "m$onochrome")) {
! 956: cgm_monochrome = TRUE;
! 957: c_token++;
! 958: continue;
! 959: }
! 960: if (almost_equals(c_token, "c$olor")
! 961: || almost_equals(c_token, "c$olour")) {
! 962: cgm_monochrome = FALSE;
! 963: c_token++;
! 964: continue;
! 965: }
! 966: if (almost_equals(c_token, "r$otate")) {
! 967: cgm_rotate = TRUE;
! 968: c_token++;
! 969: continue;
! 970: }
! 971: if (almost_equals(c_token, "nor$otate")) {
! 972: cgm_rotate = FALSE;
! 973: c_token++;
! 974: continue;
! 975: }
! 976: if (almost_equals(c_token, "da$shed")) {
! 977: cgm_dashed = TRUE;
! 978: c_token++;
! 979: continue;
! 980: }
! 981: if (almost_equals(c_token, "s$olid")) {
! 982: cgm_dashed = FALSE;
! 983: c_token++;
! 984: continue;
! 985: }
! 986: if (almost_equals(c_token, "li$newidth")) {
! 987: c_token++;
! 988: if (!END_OF_COMMAND) {
! 989: struct value a;
! 990: cgm_linewidth_pt = (unsigned int) real(const_express(&a));
! 991: if (cgm_linewidth_pt > 10000) {
! 992: fputs("gnuplot(cgm.trm): linewidth out of range\n", stderr);
! 993: cgm_linewidth_pt = 1;
! 994: }
! 995: }
! 996: continue;
! 997: }
! 998: if (almost_equals(c_token, "wid$th")) {
! 999: c_token++;
! 1000: if (!END_OF_COMMAND) {
! 1001: struct value a;
! 1002: cgm_plotwidth = (int) real(const_express(&a));
! 1003: if (cgm_plotwidth < 0 || cgm_plotwidth > 10000) {
! 1004: fputs("gnuplot(cgm.trm): width out of range\n", stderr);
! 1005: cgm_plotwidth = 6 * 72;
! 1006: }
! 1007: }
! 1008: continue;
! 1009: }
! 1010: break;
! 1011: }
! 1012:
! 1013: if (!END_OF_COMMAND && isstring(c_token)) {
! 1014: quote_str(cgm_font, c_token, MAX_ID_LEN);
! 1015: if (CGM_find_font(cgm_font, strlen(cgm_font)) == 0) {
! 1016: /* insert the font in the font table */
! 1017: int n;
! 1018: n = strlen(cgm_font);
! 1019: if (n + 1 <= sizeof(cgm_font_data) && n <= 255) {
! 1020: cgm_font_data[0] = n;
! 1021: strncpy(cgm_font_data + 1, cgm_font, n);
! 1022: cgm_font_data[n + 1] = 0;
! 1023: }
! 1024: }
! 1025: c_token++;
! 1026: }
! 1027: if (!END_OF_COMMAND) {
! 1028: /* We have font size specified */
! 1029: struct value a;
! 1030: cgm_fontsize = (int) real(const_express(&a));
! 1031: term->v_char = (unsigned int) (cgm_fontsize * CGM_PT);
! 1032: term->h_char = (unsigned int) (cgm_fontsize * CGM_PT * 5 / 9);
! 1033: }
! 1034: if (cgm_portrait) {
! 1035: term->xmax = CGM_SMALL - CGM_MARGIN;
! 1036: term->ymax = CGM_LARGE - CGM_MARGIN;
! 1037: } else {
! 1038: term->xmax = CGM_LARGE - CGM_MARGIN;
! 1039: term->ymax = CGM_SMALL - CGM_MARGIN;
! 1040: }
! 1041:
! 1042: sprintf(default_font, "%s,%d", cgm_font, cgm_fontsize);
! 1043: /* default_font holds the font and size set at 'set term' */
! 1044: sprintf(term_options, "%s %s %s %s %s width %d linewidth %d \"%s\" %d",
! 1045: cgm_portrait ? "portrait" : "landscape",
! 1046: cgm_monochrome ? "monochrome" : "color",
! 1047: cgm_rotate ? "rotate" : "norotate",
! 1048: cgm_dashed ? "dashed" : "solid",
! 1049: cgm_winword6_mode ? "winword6" : "",
! 1050: cgm_plotwidth,
! 1051: cgm_linewidth_pt,
! 1052: cgm_font, cgm_fontsize);
! 1053: }
! 1054:
! 1055: #ifdef DEFEAT_ASSERTIONS
! 1056: #define NDEBUG
! 1057: #include <assert.h>
! 1058: #undef DEFEAT_ASSERTIONS
! 1059: #endif /* DEFEAT_ASSERTIONS */
! 1060:
! 1061: #ifdef NEXT
! 1062: #undef id
! 1063: #undef datum
! 1064: #endif
! 1065:
! 1066: #endif /* TERM_BODY */
! 1067:
! 1068: #ifdef TERM_TABLE
! 1069: TERM_TABLE_START(cgm_driver)
! 1070: "cgm", "Computer Graphics Metafile",
! 1071: CGM_LARGE - CGM_MARGIN, CGM_SMALL - CGM_MARGIN, CGM_VCHAR, CGM_HCHAR,
! 1072: CGM_VTIC, CGM_HTIC, CGM_options, CGM_init, CGM_reset,
! 1073: CGM_text, null_scale, CGM_graphics, CGM_move, CGM_solid_vector,
! 1074: CGM_linetype, CGM_put_text, CGM_text_angle,
! 1075: CGM_justify_text, CGM_point, do_arrow, CGM_set_font,
! 1076: CGM_set_pointsize,
! 1077: TERM_BINARY, /* various flags */
! 1078: NULL, /* after one plot of multiplot */
! 1079: NULL, /* before subsequent plot of multiplot */
! 1080: NULL, /* clear part of multiplot */
! 1081: CGM_linewidth
! 1082: TERM_TABLE_END(cgm_driver)
! 1083:
! 1084: #undef LAST_TERM
! 1085: #define LAST_TERM cgm_driver
! 1086:
! 1087: #endif /* TERM_TABLE */
! 1088: #endif /* TERM_PROTO_ONLY */
! 1089:
! 1090: #ifdef TERM_HELP
! 1091: START_HELP(cgm)
! 1092: "1 cgm",
! 1093: "?commands set terminal cgm",
! 1094: "?set terminal cgm",
! 1095: "?set term cgm",
! 1096: "?terminal cgm",
! 1097: "?term cgm",
! 1098: "?cgm",
! 1099: " The `cgm` terminal generates a Computer Graphics Metafile. This file format",
! 1100: " is a subset of the ANSI X3.122-1986 standard entitled \"Computer Graphics -",
! 1101: " Metafile for the Storage and Transfer of Picture Description Information\".",
! 1102: " Several options may be set in `cgm`.",
! 1103: "",
! 1104: " Syntax:",
! 1105: " set terminal cgm {<mode>} {<color>} {<rotation>} {solid | dashed}",
! 1106: " {width <plot_width>} {linewidth <line_width>}",
! 1107: " {\"<font>\"} {<fontsize>}",
! 1108: "",
! 1109: " where <mode> is `landscape`, `portrait`, or `default`;",
! 1110: " <color> is either `color` or `monochrome`; ",
! 1111: " <rotation> is either `rotate` or `norotate`;",
! 1112: " `solid` draws all curves with solid lines, overriding any dashed patterns;",
! 1113: " <plot_width> is the width of the page in points; ",
! 1114: " <line_width> is the line width in points; ",
! 1115: " <font> is the name of a font; and ",
! 1116: " `<fontsize>` is the size of the font in points.",
! 1117: "",
! 1118: " By default, `cgm` uses rotated text for the Y axis label.",
! 1119: "",
! 1120: " The first six options can be in any order. Selecting `default` sets all",
! 1121: " options to their default values.",
! 1122: "",
! 1123: " Examples:",
! 1124: " set terminal cgm landscape color rotate dashed width 432 \\",
! 1125: " linewidth 1 'Arial Bold' 12 # defaults",
! 1126: " set terminal cgm 14 linewidth 2 14 # wider lines & larger font",
! 1127: " set terminal cgm portrait 'Times Roman Italic' 12",
! 1128: " set terminal cgm color solid # no pesky dashes!",
! 1129: "2 font",
! 1130: "?commands set terminal cgm font",
! 1131: "?set terminal cgm font",
! 1132: "?set term cgm font",
! 1133: "?cgm font",
! 1134: " The first part of a Computer Graphics Metafile, the metafile description,",
! 1135: " includes a font table. In the picture body, a font is designated by an",
! 1136: " index into this table. By default, this terminal generates a table with",
! 1137: " the following fonts:",
! 1138: "@start table - first is interactive cleartext form",
! 1139: " Arial",
! 1140: " Arial Italic",
! 1141: " Arial Bold",
! 1142: " Arial Bold Italic",
! 1143: " Times Roman",
! 1144: " Times Roman Italic",
! 1145: " Times Roman Bold",
! 1146: " Times Roman Bold Italic",
! 1147: " Helvetica",
! 1148: " Roman",
! 1149: "#\\begin{tabular}{|ccl|} \\hline",
! 1150: "#\\multicolumn{2}{|c|}{CGM fonts}\\\\",
! 1151: "#&Arial&\\\\",
! 1152: "#&Arial Italic&\\\\",
! 1153: "#&Arial Bold&\\\\",
! 1154: "#&Arial Bold Italic&\\\\",
! 1155: "#&Times Roman&\\\\",
! 1156: "#&Times Roman Italic&\\\\",
! 1157: "#&Times Roman Bold&\\\\",
! 1158: "#&Times Roman Bold Italic&\\\\",
! 1159: "#&Helvetica&\\\\",
! 1160: "#&Roman&\\\\",
! 1161: "%c c l .",
! 1162: "%@@CGM fonts",
! 1163: "%_",
! 1164: "%@@Arial",
! 1165: "%@@Arial Italic",
! 1166: "%@@Arial Bold",
! 1167: "%@@Arial Bold Italic",
! 1168: "%@@Times Roman",
! 1169: "%@@Times Roman Italic",
! 1170: "%@@Times Roman Bold",
! 1171: "%@@Times Roman Bold Italic",
! 1172: "%@@Helvetica",
! 1173: "%@@Roman",
! 1174: "@end table",
! 1175: " Case is not distinct, but the modifiers must appear in the above order (that",
! 1176: " is, not 'Arial Italic Bold'). 'Arial Bold' is the default font.",
! 1177: "",
! 1178: " You may also specify a font name which does not appear in the default font",
! 1179: " table. In that case, a new font table is constructed with the specified",
! 1180: " font as its only entry. You must ensure that the spelling, capitalization,",
! 1181: " and spacing of the name are appropriate for the application that will read",
! 1182: " the CGM file.",
! 1183: "2 fontsize",
! 1184: "?commands set terminal cgm fontsize",
! 1185: "?set terminal cgm fontsize",
! 1186: "?set term cgm fontsize",
! 1187: "?cgm fontsize",
! 1188: " Fonts are scaled assuming the page is 6 inches wide. If the `size` command",
! 1189: " is used to change the aspect ratio of the page or the CGM file is converted",
! 1190: " to a different width (e.g. it is imported into a document in which the",
! 1191: " margins are not 6 inches apart), the resulting font sizes will be different.",
! 1192: " To change the assumed width, use the `width` option.",
! 1193: "2 linewidth",
! 1194: "?commands set terminal cgm linewidth",
! 1195: "?set terminal cgm linewidth",
! 1196: "?set term cgm linewidth",
! 1197: "?cgm linewidth",
! 1198: " The `linewidth` option sets the width of lines in pt. The default width is",
! 1199: " 1 pt. Scaling is affected by the actual width of the page, as discussed",
! 1200: " under the `fontsize` and `width` options",
! 1201: "2 rotate",
! 1202: "?commands set terminal cgm rotate",
! 1203: "?set terminal cgm rotate",
! 1204: "?set term cgm rotate",
! 1205: "?cgm rotate",
! 1206: " The `norotate` option may be used to disable text rotation. For example,",
! 1207: " the CGM input filter for Word for Windows 6.0c can accept rotated text, but",
! 1208: " the DRAW editor within Word cannot. If you edit a graph (for example, to",
! 1209: " label a curve), all rotated text is restored to horizontal. The Y axis",
! 1210: " label will then extend beyond the clip boundary. With `norotate`, the Y",
! 1211: " axis label starts in a less attractive location, but the page can be edited",
! 1212: " without damage. The `rotate` option confirms the default behavior.",
! 1213: "2 solid",
! 1214: "?set terminal cgm solid",
! 1215: "?set term cgm solid",
! 1216: "?cgm solid",
! 1217: " The `solid` option may be used to disable dashed line styles in the",
! 1218: " plots. This is useful when color is enabled and the dashing of the lines",
! 1219: " detracts from the appearance of the plot. The `dashed` option confirms the",
! 1220: " default behavior, which gives a different dash pattern to each curve.",
! 1221: "2 size",
! 1222: "?commands set terminal cgm size",
! 1223: "?set terminal cgm size",
! 1224: "?set term cgm size",
! 1225: "?scgm size",
! 1226: " Default size of a CGM page is 32599 units wide and 23457 units high for",
! 1227: " landscape, or 23457 units wide by 32599 units high for portrait.",
! 1228: "2 width",
! 1229: "?commands set terminal cgm width",
! 1230: "?set terminal cgm width",
! 1231: "?set term cgm width",
! 1232: "?cgm width",
! 1233: " All distances in the CGM file are in abstract units. The application that",
! 1234: " reads the file determines the size of the final page. By default, the width",
! 1235: " of the final page is assumed to be 6 inches (15.24 cm). This distance is",
! 1236: " used to calculate the correct font size, and may be changed with the `width`",
! 1237: " option. The keyword should be followed by the width in points. (Here, a",
! 1238: " point is 1/72 inch, as in PostScript. This unit is known as a \"big point\"",
! 1239: " in TeX.) `gnuplot` arithmetic can be used to convert from other units, as",
! 1240: " follows:",
! 1241: " set terminal cgm width 432 # default",
! 1242: " set terminal cgm width 6*72 # same as above",
! 1243: " set terminal cgm width 10/2.54*72 # 10 cm wide",
! 1244: "2 winword6",
! 1245: "?commands set terminal cgm winword6",
! 1246: "?set terminal cgm winword6",
! 1247: "?set term cgm winword6",
! 1248: "?cgm winword6",
! 1249: " The default font table was chosen to match, where possible, the default font",
! 1250: " assignments made by the Computer Graphics Metafile input filter for",
! 1251: " Microsoft Word 6.0c, although the filter makes available only 'Arial' and",
! 1252: " 'Times Roman' fonts and their bold and/or italic variants. Other fonts such",
! 1253: " as 'Helvetica' and 'Roman' are not available. If the CGM file includes a",
! 1254: " font table, the filter mostly ignores it. However, it changes certain font",
! 1255: " assignments so that they disagree with the table. As a workaround, the",
! 1256: " `winword6` option deletes the font table from the CGM file. In this case,",
! 1257: " the filter makes predictable font assignments. 'Arial Bold' is correctly",
! 1258: " assigned even with the font table present, which is one reason it was chosen",
! 1259: " as the default.",
! 1260: "",
! 1261: " `winword6` disables the color tables for a similar reason---with the color",
! 1262: " table included, Microsoft Word displays black for color 7.",
! 1263: "",
! 1264: " Linewidths and pointsizes may be changed with `set linestyle`."
! 1265: END_HELP(cgm)
! 1266: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to cgm.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term