Annotation of OpenXM_contrib/gnuplot/term/vws.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: vws.trm,v 1.14 1998/04/14 00:18:14 drd Exp $
! 3: *
! 4: */
! 5:
! 6: /* GNUPLOT - vws.trm */
! 7:
! 8: /*[
! 9: * Copyright 1990 - 1993, 1998
! 10: *
! 11: * Permission to use, copy, and distribute this software and its
! 12: * documentation for any purpose with or without fee is hereby granted,
! 13: * provided that the above copyright notice appear in all copies and
! 14: * that both that copyright notice and this permission notice appear
! 15: * in supporting documentation.
! 16: *
! 17: * Permission to modify the software is granted, but not the right to
! 18: * distribute the complete modified source code. Modifications are to
! 19: * be distributed as patches to the released version. Permission to
! 20: * distribute binaries produced by compiling modified sources is granted,
! 21: * provided you
! 22: * 1. distribute the corresponding source modifications from the
! 23: * released version in the form of a patch file along with the binaries,
! 24: * 2. add special version identification to distinguish your version
! 25: * in addition to the base release version number,
! 26: * 3. provide your name and address as the primary contact for the
! 27: * support of your modified version, and
! 28: * 4. retain our contact information in regard to use of the base
! 29: * software.
! 30: * Permission to distribute the released version of the source code along
! 31: * with corresponding source modifications in the form of a patch file is
! 32: * granted with same provisions 2 through 4 for binary distributions.
! 33: *
! 34: * This software is provided "as is" without express or implied warranty
! 35: * to the extent permitted by applicable law.
! 36: ]*/
! 37:
! 38: /*
! 39: * This file is included by ../term.c.
! 40: *
! 41: * This terminal driver supports:
! 42: * IRIS terminals
! 43: *
! 44: * AUTHORS
! 45: * Walter Speth
! 46: * BITNET: SPETH@DBNPIB5
! 47: *
! 48: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 49: *
! 50: */
! 51: /*
! 52: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 53: * adapted to VAX VMS 4.7, VAX C 2.4 and activated the INTENSITY and COLOR
! 54: * monitor features (Lucas P. Hart, June 1997)
! 55: */
! 56:
! 57: #include "driver.h"
! 58:
! 59: #ifdef TERM_REGISTER
! 60: register_term(vws)
! 61: #endif
! 62:
! 63: #ifdef TERM_PROTO
! 64: TERM_PUBLIC void VWS_init __PROTO((void));
! 65: TERM_PUBLIC void VWS_reset __PROTO((void));
! 66: TERM_PUBLIC int VWS_scale __PROTO((double xs, double ys));
! 67: TERM_PUBLIC void VWS_graphics __PROTO((void));
! 68: TERM_PUBLIC void VWS_text __PROTO((void));
! 69: TERM_PUBLIC void VWS_move __PROTO((unsigned int x, unsigned int y));
! 70: TERM_PUBLIC void VWS_vector __PROTO((unsigned int x, unsigned int y));
! 71: TERM_PUBLIC void VWS_linetype __PROTO((int lt));
! 72: TERM_PUBLIC void VWS_put_text __PROTO((unsigned int x, unsigned int y, char *str));
! 73: TERM_PUBLIC int VWS_text_angle __PROTO((int ang));
! 74: TERM_PUBLIC int VWS_justify_text __PROTO((enum JUSTIFY mode));
! 75: TERM_PUBLIC void VWS_point __PROTO((unsigned int x, unsigned int y, int point));
! 76: TERM_PUBLIC void VWS_arrow __PROTO((unsigned int sx, unsigned int sy,
! 77: unsigned int ex, unsigned int ey, int head));
! 78:
! 79: #define VWS_XMAX 1024
! 80: #define VWS_YMAX 780 /* VAXstation 2000 is 864 */
! 81: #define VWS_VCHAR 25
! 82: #define VWS_HCHAR 15
! 83: #define VWS_VTIC 10
! 84: #define VWS_HTIC 10
! 85: #endif /* TERM_PROTO */
! 86:
! 87: #ifndef TERM_PROTO_ONLY
! 88: #ifdef TERM_BODY
! 89: void VWS_resize_ast __PROTO((void));
! 90:
! 91: #include <ssdef.h>
! 92: /* */
! 93: #include <descrip.h>
! 94:
! 95: #include <uisentry.h>
! 96: #include <uisusrdef.h>
! 97:
! 98: #define DEFAULT_ATTR 0
! 99: #define OVER_ATTR 1
! 100: #define ERAS_ATTR 2
! 101: #define BIS_ATTR 3
! 102: #define COLOR_ATTR 4
! 103: #define TEXT_ATTR 5
! 104: #define LINE_ATTR 6
! 105: #define BACK_ATTR 7
! 106:
! 107: float current_x, current_y;
! 108:
! 109: int vd_id, wd_id;
! 110: int vcm_id, ws_type;
! 111:
! 112: static $DESCRIPTOR(ws_devname, "SYS$WORKSTATION");
! 113: static $DESCRIPTOR(vd_title, "gnuplot");
! 114:
! 115: static float x0, y0, xsiz, ysiz, wc_xmin_new, wc_ymin_new, wc_xmax_new, wc_ymax_new, wc_xmin,
! 116: wc_ymin, wc_xmax, wc_ymax, vd_width, vd_height;
! 117:
! 118: void VWS_resize_ast()
! 119: {
! 120: extern void replotrequest(); /* in command.c */
! 121: uis$resize_window(&vd_id, &wd_id, &x0, &y0, &xsiz, &ysiz,
! 122: &wc_xmin, &wc_ymin, &wc_xmax, &wc_ymax);
! 123: replotrequest();
! 124: }
! 125:
! 126: /****************************************************************************/
! 127: TERM_PUBLIC void VWS_init()
! 128: {
! 129: int i;
! 130: int cattr;
! 131: $DESCRIPTOR(a_font, "DTABER0003WK00PG0001UZZZZ02A000");
! 132: const int i0 = 0, i1 = 1, i2 = 2, i3 = 3, i4 = 4, i5 = 5, i6 = 6, i7 = 7, i8 = 8;
! 133: const float p0 = 0.0, p1 = 0.1, p2 = 0.2, p3 = 0.3, p4 = 0.4;
! 134: const float p5 = 0.5, p6 = 0.6, p7 = 0.7, p8 = 0.8, p9 = 0.9;
! 135: const int n1 = 0xFFFFFFFF;
! 136: const int uis$c_mode_over = UIS$C_MODE_OVER;
! 137: const int uis$c_mode_eras = UIS$C_MODE_ERAS;
! 138: const int uis$c_mode_bis = UIS$C_MODE_BIS;
! 139: const float vws_hchar = (float) VWS_HCHAR;
! 140: const float vws_vchar = (float) VWS_VCHAR;
! 141: const int default_attr = DEFAULT_ATTR;
! 142: const int over_attr = OVER_ATTR;
! 143: const int eras_attr = ERAS_ATTR;
! 144: const int bis_attr = BIS_ATTR;
! 145: const int color_attr = COLOR_ATTR;
! 146: const int text_attr = TEXT_ATTR;
! 147: const int line_attr = LINE_ATTR;
! 148: const int back_attr = BACK_ATTR;
! 149:
! 150: /* lph: the similar notation may lead to some confusion
! 151: * attributes are grouped in "attribute block" data structures
! 152: * which are referenced by block number
! 153: * attribute block 0 contains default attribute settings
! 154: *
! 155: * To customize settings, a function will read the source
! 156: * attribute block, set the particular attribute, and
! 157: * write to the destination attribute block.
! 158: * Both the block number and attribute are integers, so it
! 159: * is easy to confuse an attribute and an attribute blcok
! 160: */
! 161:
! 162: /* lph: Color map corresponding to an example in
! 163: * MicroVMS Graphics Progamming Guide (V3.0) */
! 164:
! 165: const float r_map[8] = { 0.40, 0.50, 0.50, 0.00, 0.25, 0.90, 0.80, 0.35 };
! 166: const float g_map[8] = { 0.30, 0.50, 0.25, 0.70, 0.25, 0.50, 0.30, 0.65 };
! 167: const float b_map[8] = { 0.00, 0.50, 0.50, 0.30, 0.90, 0.00, 0.00, 0.95 };
! 168:
! 169: /* the array format is easier to customize */
! 170:
! 171: vd_width = 14;
! 172: vd_height = 10; /* aspect sqrt(2) as DIN A paper */
! 173:
! 174: wc_xmin = 0.0;
! 175: wc_ymin = 0.0;
! 176: wc_xmax = (float) VWS_XMAX;
! 177: wc_ymax = (float) VWS_YMAX;
! 178:
! 179: vcm_id = uis$create_color_map(&i8);
! 180:
! 181: vd_id = uis$create_display(&wc_xmin, &wc_ymin, &wc_xmax, &wc_ymax,
! 182: &vd_width, &vd_height, &vcm_id);
! 183: uis$get_hw_color_info(&ws_devname, &ws_type);
! 184:
! 185: /* lph: ws's color table for monochrome */
! 186: /* by default, color table index 0 is backgound, and 1 is foregound */
! 187: /* a color {index into the color table} is assigned to the active line */
! 188: /* in VWS_linetype */
! 189:
! 190: if (ws_type == UIS$C_DEV_MONO) {
! 191: uis$set_color(&vd_id, &i0, &p5, &p5, &p5);
! 192: uis$set_color(&vd_id, &i1, &p0, &p0, &p0);
! 193: uis$set_color(&vd_id, &i2, &p0, &p0, &p0);
! 194: uis$set_color(&vd_id, &i3, &p0, &p0, &p0);
! 195: uis$set_color(&vd_id, &i4, &p0, &p0, &p0);
! 196: uis$set_color(&vd_id, &i5, &p0, &p0, &p0);
! 197: uis$set_color(&vd_id, &i6, &p0, &p0, &p0);
! 198: uis$set_color(&vd_id, &i7, &p0, &p0, &p0);
! 199: } else if (ws_type == UIS$C_DEV_INTENSITY) {
! 200: /* Intensity scale, untested */
! 201: uis$set_color(&vd_id, &i2, &p2, &p2, &p2);
! 202: uis$set_color(&vd_id, &i3, &p3, &p3, &p3);
! 203: uis$set_color(&vd_id, &i4, &p4, &p4, &p4);
! 204: uis$set_color(&vd_id, &i5, &p5, &p5, &p5);
! 205: uis$set_color(&vd_id, &i6, &p6, &p6, &p6);
! 206: uis$set_color(&vd_id, &i7, &p7, &p7, &p7);
! 207: }
! 208: /* ws: perhaps better for color terms (which I do not have) */
! 209:
! 210: else if (ws_type == UIS$C_DEV_COLOR) {
! 211: /* */
! 212: uis$set_color(&vd_id, &i0, &p0, &p0, &p0);
! 213: uis$set_color(&vd_id, &i1, &p9, &p0, &p0);
! 214: uis$set_color(&vd_id, &i2, &p0, &p9, &p0);
! 215: uis$set_color(&vd_id, &i3, &p9, &p9, &p0);
! 216: uis$set_color(&vd_id, &i4, &p0, &p0, &p9);
! 217: uis$set_color(&vd_id, &i5, &p9, &p0, &p9);
! 218: uis$set_color(&vd_id, &i6, &p0, &p9, &p9);
! 219: uis$set_color(&vd_id, &i7, &p9, &p9, &p9);
! 220: /*
! 221: * lph: Another way to set up the color table is to use arrays,
! 222: * which simplifies customizing the appearance.
! 223: *
! 224: uis$set_colors(&vd_id, &i0, &i8, &r_map, &g_map, &b_map);
! 225: */
! 226: }
! 227: uis$disable_display_list(&vd_id);
! 228:
! 229: wd_id = uis$create_window(&vd_id, &ws_devname, &vd_title,
! 230: &wc_xmin, &wc_ymin, &wc_xmax, &wc_ymax,
! 231: &vd_width, &vd_height);
! 232:
! 233: uis$set_resize_ast(&vd_id, &wd_id, &VWS_resize_ast, &i0,
! 234: &x0, &y0, &xsiz, &ysiz,
! 235: &wc_xmin_new, &wc_ymin_new, &wc_xmax_new, &wc_ymax_new);
! 236: /*
! 237: * lph: This sets up three different attribute blocks, each having a different
! 238: * mode, but they are never utilized and it is not clear when they might
! 239: * be of use.
! 240: * The attribute blocks used for writing are line_attr, text_attr.
! 241: *
! 242: uis$set_writing_mode(&vd_id, &default_attr, &over_attr, &uis$c_mode_over);
! 243: uis$set_writing_mode(&vd_id, &default_attr, &eras_attr, &uis$c_mode_eras);
! 244: uis$set_writing_mode(&vd_id, &default_attr, &bis_attr, &uis$c_mode_bis);
! 245: */
! 246:
! 247: /* lph: this was commented out; it changes the COLOR_ATTR BLOCK and
! 248: * the following BLOCKS
! 249: *
! 250: if (ws_type >= UIS$C_DEV_INTENSITY) {
! 251: for (i=0; i<8; i++) {
! 252: cattr = COLOR_ATTR+i;
! 253: uis$set_writing_index(&vd_id, &default_attr, &cattr, &i);
! 254: }
! 255: }
! 256: *
! 257: */
! 258:
! 259: /* lph: default value for the background index into the virtual color
! 260: /* table is 0, and the back_attr block is never used
! 261: *
! 262: uis$set_background_index(&vd_id, &default_attr, &back_attr, &i0);
! 263: *
! 264: * the rest look OK, setting up the two attribute blocks
! 265: */
! 266: uis$set_writing_mode(&vd_id, &default_attr, &text_attr, &uis$c_mode_over);
! 267: uis$set_font(&vd_id, &text_attr, &text_attr, &a_font);
! 268: uis$set_char_size(&vd_id, &text_attr, &text_attr, &i0, &vws_hchar, &vws_vchar);
! 269: uis$set_line_style(&vd_id, &line_attr, &line_attr, &n1);
! 270: }
! 271:
! 272: /****************************************************************************/
! 273:
! 274: TERM_PUBLIC void VWS_reset()
! 275: {
! 276: uis$delete_display(&vd_id);
! 277: }
! 278:
! 279: /****************************************************************************/
! 280: TERM_PUBLIC int VWS_scale(xs, ys)
! 281: double xs, ys;
! 282: {
! 283: return FALSE;
! 284: }
! 285: /****************************************************************************/
! 286: TERM_PUBLIC void VWS_graphics()
! 287: {
! 288: uis$erase(&vd_id, &wc_xmin, &wc_ymin, &wc_xmax, &wc_ymax);
! 289: }
! 290:
! 291: /****************************************************************************/
! 292: TERM_PUBLIC void VWS_text()
! 293: {
! 294: }
! 295:
! 296: /****************************************************************************/
! 297: TERM_PUBLIC void VWS_move(x, y)
! 298: unsigned int x, y;
! 299: {
! 300: current_x = (float) (x);
! 301: current_y = (float) (y);
! 302: }
! 303:
! 304: /****************************************************************************/
! 305: TERM_PUBLIC void VWS_vector(x, y)
! 306: unsigned int x, y;
! 307: {
! 308: int col;
! 309: int line_attr = LINE_ATTR;
! 310: float fx, fy;
! 311: fx = (float) x;
! 312: fy = (float) y;
! 313:
! 314: uis$line(&vd_id, &line_attr, ¤t_x, ¤t_y, &fx, &fy);
! 315: VWS_move(x, y);
! 316: }
! 317:
! 318: /****************************************************************************/
! 319: TERM_PUBLIC void VWS_linetype(lt)
! 320: int lt;
! 321: {
! 322: const int n1 = 0xFFFFFFFF;
! 323: /* indices into the color map */
! 324: const int i[8] = {0, 1, 2, 3, 4, 5, 6, 7};
! 325: const float p15 = 2.0, p20 = 3.0, p10 = 1.0;
! 326: long int lstyle[9] =
! 327: {0xffffffff,
! 328: 0Xff00ff00,
! 329: 0xffffff00,
! 330: 0xffff0000,
! 331: 0xf0f0f0f0,
! 332: 0Xfff0fff0,
! 333: 0xf000f000,
! 334: 0xa5a5a5af,
! 335: 0xf00f00f0
! 336: };
! 337: int line_attr = LINE_ATTR;
! 338: /* use multiplier of normal line width; default is width in pixels */
! 339: const int uis$c_width_world = UIS$C_WIDTH_WORLD;
! 340:
! 341: if (lt < 0) {
! 342: switch (lt) {
! 343: case -1: /* used for axis */
! 344: uis$set_line_style(&vd_id, &line_attr, &line_attr, &n1);
! 345: uis$set_line_width(&vd_id, &line_attr, &line_attr, &p15,
! 346: &uis$c_width_world);
! 347: if (ws_type >= UIS$C_DEV_INTENSITY) {
! 348: uis$set_writing_index(&vd_id, &line_attr, &line_attr, &i[1]);
! 349: }
! 350: break;
! 351: case -2: /* the borders */
! 352: uis$set_line_style(&vd_id, &line_attr, &line_attr, &n1);
! 353: uis$set_line_width(&vd_id, &line_attr, &line_attr, &p20,
! 354: &uis$c_width_world);
! 355: if (ws_type >= UIS$C_DEV_INTENSITY) {
! 356: uis$set_writing_index(&vd_id, &line_attr, &line_attr, &i[1]);
! 357: }
! 358: break;
! 359: default: /* else a thick line ? */
! 360: uis$set_line_style(&vd_id, &line_attr, &line_attr, &n1);
! 361: uis$set_line_width(&vd_id, &line_attr, &line_attr, &p20,
! 362: &uis$c_width_world);
! 363: if (ws_type >= UIS$C_DEV_INTENSITY) {
! 364: uis$set_writing_index(&vd_id, &line_attr, &line_attr,
! 365: &i[1 + ((-lt) % 7)]);
! 366: }
! 367: break;
! 368: }
! 369: } else {
! 370: /* assign the color index (excluding the background index, 0*/
! 371: if (ws_type >= UIS$C_DEV_INTENSITY) {
! 372: uis$set_writing_index(&vd_id, &line_attr, &line_attr, &i[1 + lt % 7]);
! 373: }
! 374: /* assign the line style
! 375: uis$set_line_style(&vd_id,&line_attr,&line_attr,&lstyle[lt % 8]);
! 376: * ws: makes part of curve disappear on my workstation
! 377: * lph: also observed w/ VS2000 and 4 plane graphics coprocesssor; line
! 378: * types change appropriately, but has problems as pixels/line segment
! 379: * decreases. Better with full screen display and "set samples" smaller
! 380: * but start out with only solid lines
! 381: */
! 382: uis$set_line_style(&vd_id, &line_attr, &line_attr, &n1);
! 383:
! 384: uis$set_line_width(&vd_id, &line_attr, &line_attr, &p10,
! 385: &uis$c_width_world);
! 386: }
! 387: }
! 388:
! 389: /****************************************************************************/
! 390: static int justify_mode = CENTRE, up;
! 391:
! 392: TERM_PUBLIC void VWS_put_text(x, y, str)
! 393: unsigned int x, y;
! 394: char *str;
! 395: {
! 396: float fx, fy, thih, twid;
! 397: int text_attr = TEXT_ATTR;
! 398:
! 399: /* uis$text parameter is descriptor string not character string */
! 400:
! 401: struct dsc$descriptor_s textline =
! 402: {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, ""};
! 403:
! 404:
! 405: textline.dsc$a_pointer = str;
! 406: textline.dsc$w_length = strlen(textline.dsc$a_pointer);
! 407: uis$measure_text(&vd_id, &text_attr, &textline, &twid, &thih);
! 408: fx = (float) x;
! 409: fy = (float) y;
! 410:
! 411: switch (justify_mode) {
! 412: case LEFT:
! 413: fy += thih / 2.;
! 414: break;
! 415: case RIGHT:
! 416: fy += thih / 2.;
! 417: fx -= twid;
! 418: break;
! 419:
! 420: case CENTRE:
! 421: fy += thih / 2.;
! 422: fx -= twid / 2;
! 423: break;
! 424: };
! 425:
! 426: uis$text(&vd_id, &text_attr, &textline, &fx, &fy);
! 427: /* write to Example Viewport window */
! 428:
! 429:
! 430: }
! 431: /****************************************************************************/
! 432: TERM_PUBLIC int VWS_text_angle(ang)
! 433: int ang;
! 434: {
! 435: float degrees;
! 436: int text_attr = TEXT_ATTR;
! 437: degrees = 90. * (up = ang);
! 438: uis$set_text_slope(&vd_id, &text_attr, &text_attr, °rees);
! 439: return TRUE;
! 440: }
! 441: /****************************************************************************/
! 442: TERM_PUBLIC int VWS_justify_text(mode)
! 443: enum JUSTIFY mode;
! 444: {
! 445: justify_mode = mode;
! 446: return TRUE;
! 447: }
! 448: /****************************************************************************/
! 449: TERM_PUBLIC void VWS_point(x, y, point)
! 450: unsigned int x, y;
! 451: int point;
! 452: {
! 453: do_point(x, y, point);
! 454: }
! 455:
! 456: /****************************************************************************/
! 457: TERM_PUBLIC void VWS_arrow(sx, sy, ex, ey, head)
! 458: unsigned int sx, sy, ex, ey;
! 459: int head;
! 460: {
! 461: do_arrow(sx, sy, ex, ey, head);
! 462: }
! 463:
! 464: #endif /* TERM_BODY */
! 465:
! 466: #ifdef TERM_TABLE
! 467:
! 468: TERM_TABLE_START(vws_driver)
! 469: "VWS", "VAX Windowing System (UIS)",
! 470: VWS_XMAX, VWS_YMAX, VWS_VCHAR, VWS_HCHAR,
! 471: VWS_VTIC, VWS_HTIC, options_null, VWS_init, VWS_reset,
! 472: VWS_text, null_scale, VWS_graphics, VWS_move, VWS_vector,
! 473: VWS_linetype, VWS_put_text, VWS_text_angle,
! 474: VWS_justify_text, do_point, do_arrow, set_font_null
! 475: TERM_TABLE_END(vws_driver)
! 476:
! 477: #undef LAST_TERM
! 478: #define LAST_TERM vws_driver
! 479:
! 480: #endif /* TERM_TABLE */
! 481: #endif /* TERM_PROTO_ONLY */
! 482:
! 483: #ifdef TERM_HELP
! 484: START_HELP(VWS)
! 485: "1 VWS",
! 486: "?commands set terminal VWS",
! 487: "?set terminal VWS",
! 488: "?set term VWS",
! 489: "?terminal VWS",
! 490: "?term VWS",
! 491: "?VWS",
! 492: " The `VWS` terminal driver supports the VAX Windowing System. It has",
! 493: " no options. It will sense the display type (monochrome, gray scale,",
! 494: " or color.) All line styles are plotted as solid lines."
! 495: END_HELP(VWS)
! 496: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to vws.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term