Annotation of OpenXM_contrib/gnuplot/term/gpr.trm, Revision 1.1
1.1 ! maekawa 1: /*
! 2: * $Id: gpr.trm,v 1.13 1998/04/14 00:17:46 drd Exp $
! 3: *
! 4: */
! 5:
! 6: /* GNUPLOT - gpr.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: * APOLLO's GPR windowing system
! 43: *
! 44: * AUTHORS
! 45: * Michael Aramini
! 46: * Roque D Oliveira , oliveria@caen.engin.umich.edu
! 47: *
! 48: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
! 49: *
! 50: */
! 51:
! 52: /*
! 53: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
! 54: */
! 55:
! 56: #include "driver.h"
! 57:
! 58: #ifdef TERM_REGISTER
! 59: register_term(gpr)
! 60: #endif
! 61:
! 62: #ifdef TERM_PROTO
! 63: TERM_PUBLIC void GPR_init __PROTO((void));
! 64: TERM_PUBLIC void GPR_graphics __PROTO((void));
! 65: TERM_PUBLIC void GPR_text __PROTO((void));
! 66: TERM_PUBLIC void GPR_linetype __PROTO((int linetype));
! 67: TERM_PUBLIC void GPR_move __PROTO((unsigned int x, unsigned int y));
! 68: TERM_PUBLIC void GPR_vector __PROTO((unsigned int x, unsigned int y));
! 69: TERM_PUBLIC void GPR_put_text __PROTO((unsigned int x, unsigned int y, char str[]));
! 70: TERM_PUBLIC int GPR_text_angle __PROTO((int ang));
! 71: TERM_PUBLIC int GPR_justify_text __PROTO((enum JUSTIFY mode));
! 72: TERM_PUBLIC void GPR_reset __PROTO((void));
! 73: /* landscape window */
! 74: /*
! 75: #define GPR_XMAX 720
! 76: #define GPR_YMAX 450
! 77: */
! 78: /* portrait window */
! 79: #define GPR_XMAX 585
! 80: #define GPR_YMAX 735
! 81: #define GPR_VCHAR 19
! 82: #define GPR_HCHAR 10
! 83: #define GPR_VTIC (GPR_YMAX/80)
! 84: #define GPR_HTIC (GPR_XMAX/80)
! 85: #endif /* TERM_PROTO */
! 86:
! 87: #ifndef TERM_PROTO_ONLY
! 88: #ifdef TERM_BODY
! 89: void GPRold_linetype __PROTO((int linetype));
! 90: static void check __PROTO((char *messagex));
! 91: int gpr_isa_pad __PROTO((void));
! 92: #include <apollo/base.h>
! 93: #include <apollo/error.h>
! 94: #include <apollo/gpr.h>
! 95: #include <apollo/pad.h>
! 96:
! 97: #define GPR_XLAST (GPR_XMAX - 1)
! 98: #define GPR_YLAST (GPR_YMAX - 1)
! 99:
! 100:
! 101: gpr_$direction_t gpr_path = gpr_$right;
! 102: /* text angle, 0=horizontal, 1=vertical */
! 103: int gpr_ang = 0;
! 104: /* text is flush left */
! 105: enum JUSTIFY gpr_justify = LEFT;
! 106:
! 107: static status_$t status;
! 108: /* set it to 1 when debugging program */
! 109: unsigned int Debug = 0;
! 110:
! 111:
! 112: static void check(messagex)
! 113: char *messagex;
! 114: {
! 115: if (status.all = status_$ok) {
! 116: error_$print(status);
! 117: printf("Error occurred while %s.\n", messagex);
! 118: }
! 119: }
! 120:
! 121: /* return whether stdout is a DM pad . Called by term.c */
! 122: int gpr_isa_pad()
! 123: {
! 124: pad_$isa(1, &status);
! 125: return (status.all == status_$ok);
! 126: }
! 127:
! 128:
! 129: TERM_PUBLIC void GPR_init()
! 130: {
! 131: gpr_$offset_t dm_bitmap_size;
! 132: gpr_$bitmap_desc_t dm_bitmap_desc;
! 133: pad_$window_desc_t window;
! 134: short font_id;
! 135: stream_$id_t stream_id;
! 136: static gpr_$rgb_plane_t hi_plane;
! 137: static gpr_$disp_char_t display_characteristics;
! 138: static float screen_size_r_width, screen_size_r_height;
! 139: static short int disp_len = sizeof(gpr_$disp_char_t);
! 140: static short int disp_len_returned;
! 141:
! 142:
! 143: /* open a pad to do graphics in */
! 144: window.top = 0;
! 145: window.left = 0;
! 146: /* 10 accounts for width of window border */
! 147: window.width = GPR_XMAX + 10;
! 148: /* 35 accounts for height of window border */
! 149: window.height = GPR_YMAX + 35;
! 150: pad_$create_window("", (short) 0, pad_$transcript, (short) 1, window, &stream_id, &status);
! 151: check("pad_$create_window");
! 152:
! 153: /* pad_$set_full_window(stream_id,(short) 1,&window, &status); */
! 154: /* pad_$set_border (stream_id,(short) 1, true, &status); */
! 155: pad_$set_scale(stream_id, (short) 1, (short) 1, &status);
! 156: pad_$set_auto_close(stream_id, (short) 1, true, &status);
! 157:
! 158: gpr_$inq_disp_characteristics(gpr_$direct, stream_id, disp_len, &display_characteristics, &disp_len_returned, &status);
! 159: check("in gpr_$inq_display_characteristics");
! 160: /*x_window_size in pixels */
! 161: screen_size_r_width = (float) display_characteristics.x_window_size;
! 162: /*y_window_size in pixels */
! 163: screen_size_r_height = (float) display_characteristics.y_window_size;
! 164: hi_plane = display_characteristics.n_planes - 1;
! 165: if (Debug)
! 166: printf("width=%f height=%f \n", screen_size_r_width, screen_size_r_height);
! 167:
! 168: dm_bitmap_size.x_size = 1280;
! 169: dm_bitmap_size.y_size = 1024;
! 170: gpr_$init(gpr_$direct, stream_id, dm_bitmap_size, hi_plane, &dm_bitmap_desc, &status);
! 171: check("in gpr_$init");
! 172: /*
! 173: gpr_$set_obscured_opt(gpr_$pop_if_obs, &status);
! 174: check("in gpr_$set_obscured_opt");
! 175: */
! 176: gpr_$set_auto_refresh(true, &status);
! 177: check("in gpr_$set_auto_refresh");
! 178:
! 179: /* load a font and make it current */
! 180: gpr_$load_font_file("f7x13", 5, &font_id, &status);
! 181: check("in gpr_$load_font_file");
! 182: gpr_$set_text_font(font_id, &status);
! 183: check("in gpr_$set_text_font");
! 184:
! 185: /* set up color values */
! 186: gpr_$set_draw_value((gpr_$pixel_value_t) 7, &status); /* white */
! 187: check("in gpr_set_draw_value");
! 188: gpr_$set_text_background_value((gpr_$pixel_value_t) (-1), &status); /* trans */
! 189: check("in gpr_$set_text_background_value");
! 190: gpr_$set_text_value((gpr_$pixel_value_t) 7, &status); /* white */
! 191: check("in gpr_$set_text_value");
! 192: }
! 193:
! 194:
! 195: TERM_PUBLIC void GPR_graphics()
! 196: {
! 197: gpr_$coordinate_t locx, locy, marker_size;
! 198:
! 199: (void) gpr_$acquire_display(&status);
! 200: check("in gpr_$acquire display");
! 201: gpr_$clear((gpr_$pixel_value_t) 0, &status); /* black */
! 202: check("in gpr_$clear");
! 203:
! 204: if (Debug) {
! 205: marker_size = (short) 10;
! 206:
! 207: locx = (short) 5;
! 208: locy = (short) 5;
! 209: gpr_$set_draw_value((gpr_$pixel_value_t) 2, &status); /* white */
! 210: gpr_$move((locx - marker_size / 2), locy, &status);
! 211: gpr_$line((locx + marker_size / 2), locy, &status);
! 212: gpr_$move(locx, (locy + marker_size / 2), &status);
! 213: gpr_$line(locx, (locy - marker_size / 2), &status);
! 214:
! 215: locx = (short) (GPR_XMAX - 1 - 5);
! 216: locy = (short) 5;
! 217: gpr_$set_draw_value((gpr_$pixel_value_t) 3, &status); /* white */
! 218: gpr_$move((locx - marker_size / 2), locy, &status);
! 219: gpr_$line((locx + marker_size / 2), locy, &status);
! 220: gpr_$move(locx, (locy + marker_size / 2), &status);
! 221: gpr_$line(locx, (locy - marker_size / 2), &status);
! 222:
! 223: locx = (short) 5;
! 224: locy = (short) (GPR_YMAX - 1 - 5);
! 225: gpr_$set_draw_value((gpr_$pixel_value_t) 4, &status); /* white */
! 226: gpr_$move((locx - marker_size / 2), locy, &status);
! 227: gpr_$line((locx + marker_size / 2), locy, &status);
! 228: gpr_$move(locx, (locy + marker_size / 2), &status);
! 229: gpr_$line(locx, (locy - marker_size / 2), &status);
! 230:
! 231: locx = (short) (GPR_XMAX - 1 - 5);
! 232: locy = (short) (GPR_YMAX - 1 - 5);
! 233: gpr_$set_draw_value((gpr_$pixel_value_t) 5, &status); /* white */
! 234: gpr_$move((locx - marker_size / 2), locy, &status);
! 235: gpr_$line((locx + marker_size / 2), locy, &status);
! 236: gpr_$move(locx, (locy + marker_size / 2), &status);
! 237: gpr_$line(locx, (locy - marker_size / 2), &status);
! 238:
! 239: gpr_$set_draw_value((gpr_$pixel_value_t) 7, &status); /* white */
! 240: check("in gpr_$set_draw_value");
! 241: } /* end if(Debug) */
! 242: }
! 243:
! 244:
! 245: TERM_PUBLIC void GPR_text()
! 246: {
! 247: gpr_$release_display(&status);
! 248: check("gpr_$release_display");
! 249: }
! 250:
! 251:
! 252: void GPRold_linetype(linetype)
! 253: int linetype;
! 254: {
! 255: static gpr_$line_pattern_t patterns[2 + 5] =
! 256: {
! 257: {0xFFFF}, /* solid 1111111111111111 */
! 258: {0x3FFF}, /* very long dashed 0011111111111111 */
! 259: {0xFFFF}, /* solid 1111111111111111 */
! 260: {0x5555}, /* dotted 0101010101010101 */
! 261: {0x3333}, /* short dashed 0011001100110011 */
! 262: {0xB5AD}, /* dot short-dashed 1011010110101101 */
! 263: {0x3FFF} /* very long dashed 0011111111111111 */
! 264: };
! 265: if (linetype >= 5)
! 266: linetype %= 5;
! 267: gpr_$set_line_pattern((short) 1, patterns[linetype + 2], (short) 16, &status);
! 268: check("in gpr_$set_line_pattern");
! 269: }
! 270:
! 271: TERM_PUBLIC void GPR_linetype(linetype)
! 272: int linetype;
! 273: {
! 274: static gpr_$line_pattern_t patterns[2 + 7] =
! 275: {
! 276: {0xFFFF}, /* solid 1111111111111111 */
! 277: {0x1111}, /* long-spaced dotted 0001000100010001 */
! 278: {0xFFFF}, /* solid 1111111111111111 */
! 279: {0x5555}, /* dotted 0101010101010101 */
! 280: {0x3333}, /* short dashed 0011001100110011 */
! 281: {0x7777}, /* medium dashed 0111011101110111 */
! 282: {0x3F3F}, /* long dashed 0011111100111111 */
! 283: {0x0F0F}, /* long-spaced dashed 0000111100001111 */
! 284: {0x5F5F} /* dot dashed 0101111101011111 */
! 285: };
! 286: if (linetype >= 7)
! 287: linetype %= 7;
! 288: gpr_$set_line_pattern((short) 1, patterns[linetype + 2], (short) 16, &status);
! 289: check("in gpr_$set_line_pattern");
! 290:
! 291: /*
! 292: gpr_$set_draw_value((gpr_$pixel_value_t)(linetype + 1), &status);
! 293: check("in gpr_$set_draw_value");
! 294: */
! 295: }
! 296:
! 297:
! 298: TERM_PUBLIC void GPR_move(x, y)
! 299: unsigned int x, y;
! 300: {
! 301: gpr_$move((short) x, (short) (GPR_YMAX - 1 - y), &status);
! 302: check("in gpr_$move");
! 303: }
! 304:
! 305:
! 306: TERM_PUBLIC void GPR_vector(x, y)
! 307: unsigned int x, y;
! 308: {
! 309: gpr_$line((short) x, (short) (GPR_YMAX - 1 - y), &status);
! 310: check("in gpr_$line");
! 311: }
! 312:
! 313:
! 314: TERM_PUBLIC void GPR_put_text(x, y, str)
! 315: unsigned int x, y; /* reference point of string */
! 316: char str[]; /* the text */
! 317: {
! 318: gpr_$coordinate_t xgpr, ygpr;
! 319: gpr_$offset_t str_size_in_pixels;
! 320: short int str_len;
! 321:
! 322: gpr_$coordinate_t locx, locy, marker_size;
! 323:
! 324: if (Debug) {
! 325: locx = (short) x;
! 326: locy = (short) (GPR_YMAX - 1 - y);
! 327: marker_size = (short) 20;
! 328: gpr_$set_draw_value((gpr_$pixel_value_t) 1, &status); /* white */
! 329: gpr_$move((locx - marker_size / 2), locy, &status);
! 330: gpr_$line((locx + marker_size / 2), locy, &status);
! 331: gpr_$move(locx, (locy + marker_size / 2), &status);
! 332: gpr_$line(locx, (locy - marker_size / 2), &status);
! 333: gpr_$set_draw_value((gpr_$pixel_value_t) 7, &status); /* white */
! 334: }
! 335: xgpr = (short) x;
! 336: ygpr = (short) (GPR_YMAX - 1 - y);
! 337: gpr_$set_text_path(gpr_path, &status);
! 338: check("gpr_$set_text_path");
! 339:
! 340: str_len = (short) strlen(str);
! 341: /* Calculate how much space (in pixels) the string requires */
! 342: gpr_$inq_text_extent(str, str_len, &str_size_in_pixels, &status);
! 343: check("in gpr_$inq_text_extent");
! 344:
! 345: switch (gpr_justify) {
! 346: case LEFT:
! 347: {
! 348: switch (gpr_path) {
! 349: case gpr_$up: /* vertical */
! 350: {
! 351: if (Debug)
! 352: printf("LEFT and up , str=%s\n", str);
! 353: break;
! 354: }
! 355: case gpr_$right: /* horizontal */
! 356: {
! 357: ygpr = ygpr + str_size_in_pixels.y_size / 2;
! 358: if (Debug)
! 359: printf("LEFT and right, str=%s \n", str);
! 360: break;
! 361: }
! 362: }
! 363: break;
! 364: }
! 365:
! 366: case CENTRE:
! 367: {
! 368: switch (gpr_path) {
! 369: case gpr_$up: /* vertical */
! 370: {
! 371: xgpr = xgpr + str_size_in_pixels.x_size / 2;
! 372: ygpr = ygpr + str_size_in_pixels.y_size / 2;
! 373: if (Debug)
! 374: printf("CENTRE and up, str=%s \n", str);
! 375: break;
! 376: }
! 377: case gpr_$right: /* horizontal */
! 378: {
! 379: xgpr = xgpr - str_size_in_pixels.x_size / 2;
! 380: ygpr = ygpr + str_size_in_pixels.y_size / 2;
! 381: if (Debug)
! 382: printf("CENTRE and right, str=%s \n", str);
! 383: break;
! 384: }
! 385: }
! 386: break;
! 387: }
! 388: case RIGHT:
! 389: {
! 390: switch (gpr_path) {
! 391: case gpr_$up: /* vertical */
! 392: {
! 393: ygpr = ygpr + str_size_in_pixels.y_size;
! 394: if (Debug)
! 395: printf("RIGHT and up, str=%s \n", str);
! 396: break;
! 397: }
! 398: case gpr_$right: /* horizontal */
! 399: {
! 400: xgpr = xgpr - str_size_in_pixels.x_size;
! 401: ygpr = ygpr + str_size_in_pixels.y_size / 2;
! 402: if (Debug)
! 403: printf("RIGHT and right, str=%s \n", str);
! 404: break;
! 405: }
! 406: }
! 407: break;
! 408: }
! 409: }
! 410:
! 411: gpr_$move(xgpr, ygpr, &status);
! 412: check("in gpr_$move");
! 413: gpr_$text(str, str_len, &status);
! 414: check("in gpr_$text");
! 415: }
! 416:
! 417: TERM_PUBLIC int GPR_text_angle(ang)
! 418: int ang;
! 419: {
! 420: if (gpr_ang != ang) {
! 421: gpr_ang = ang;
! 422: gpr_path = (gpr_ang == 1 ? gpr_$up : gpr_$right);
! 423: }
! 424: return (TRUE);
! 425: }
! 426:
! 427: TERM_PUBLIC int GPR_justify_text(mode)
! 428: enum JUSTIFY mode;
! 429: {
! 430: gpr_justify = mode;
! 431: return (TRUE);
! 432: }
! 433:
! 434: TERM_PUBLIC void GPR_reset()
! 435: {
! 436: gpr_$terminate(false, &status);
! 437: check("in gpr_$terminate");
! 438: }
! 439:
! 440: #endif /* TERM_BODY */
! 441:
! 442: #ifdef TERM_TABLE
! 443:
! 444: TERM_TABLE_START(gpr_driver)
! 445: "gpr", "Apollo Graphics Primitive Resource, fixed-size window",
! 446: GPR_XMAX, GPR_YMAX, GPR_VCHAR, GPR_HCHAR,
! 447: GPR_VTIC, GPR_HTIC, options_null, GPR_init, GPR_reset,
! 448: GPR_text, null_scale, GPR_graphics, GPR_move, GPR_vector,
! 449: GPR_linetype, GPR_put_text, GPR_text_angle,
! 450: GPR_justify_text, line_and_point, do_arrow, set_font_null
! 451: TERM_TABLE_END(gpr_driver)
! 452:
! 453: #undef LAST_TERM
! 454: #define LAST_TERM gpr_driver
! 455:
! 456: #endif /* TERM_TABLE */
! 457: #endif /* TERM_PROTO_ONLY */
! 458:
! 459: #ifdef TERM_HELP
! 460: START_HELP(gpr)
! 461: "1 gpr",
! 462: "?commands set terminal gpr",
! 463: "?set terminal gpr",
! 464: "?set term gpr",
! 465: "?terminal gpr",
! 466: "?term gpr",
! 467: "?gpr",
! 468: " The `gpr` terminal driver supports the Apollo Graphics Primitive Resource",
! 469: " for a fixed-size window. It has no options.",
! 470: "",
! 471: " If a variable window size is desired, use the `apollo` terminal instead."
! 472: END_HELP(gpr)
! 473: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to gpr.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term