home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume24 / gnuplot3 / part18 < prev    next >
Text File  |  1991-10-27  |  50KB  |  2,011 lines
  1. Newsgroups: comp.sources.misc
  2. From: gershon%gr@cs.utah.edu (Elber Gershon)
  3. Subject:  v24i040:  gnuplot3 - interactive function plotting utility, Part18/26
  4. Message-ID: <1991Oct28.002342.12603@sparky.imd.sterling.com>
  5. X-Md4-Signature: f174e0f3272f7425b1b51e2304a17260
  6. Date: Mon, 28 Oct 1991 00:23:42 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: gershon%gr@cs.utah.edu (Elber Gershon)
  10. Posting-number: Volume 24, Issue 40
  11. Archive-name: gnuplot3/part18
  12. Environment: UNIX, MS-DOS, VMS
  13. Supersedes: gnuplot2: Volume 11, Issue 65-79
  14.  
  15. #!/bin/sh
  16. # this is Part.18 (part 18 of a multipart archive)
  17. # do not concatenate these parts, unpack them in order with /bin/sh
  18. # file gnuplot/term/dxf.trm continued
  19. #
  20. if test ! -r _shar_seq_.tmp; then
  21.     echo 'Please unpack part 1 first!'
  22.     exit 1
  23. fi
  24. (read Scheck
  25.  if test "$Scheck" != 18; then
  26.     echo Please unpack part "$Scheck" next!
  27.     exit 1
  28.  else
  29.     exit 0
  30.  fi
  31. ) < _shar_seq_.tmp || exit 1
  32. if test ! -f _shar_wnt_.tmp; then
  33.     echo 'x - still skipping gnuplot/term/dxf.trm'
  34. else
  35. echo 'x - continuing file gnuplot/term/dxf.trm'
  36. sed 's/^X//' << 'SHAR_EOF' >> 'gnuplot/term/dxf.trm' &&
  37. X
  38. X    stl = 0; while (str[stl] != '\0') ++stl; /* get string length */
  39. X
  40. X    if (vector_was_last) fprintf(outfile,"  0\nSEQEND\n");
  41. X    vector_was_last = FALSE;
  42. X    fprintf(outfile,"  0\nTEXT\n  8\n%s\n",layer_name[TEXT_LAYER]);
  43. X    if (dxf_angle != 90.0)
  44. X    {
  45. X       switch (dxf_justify)
  46. X       {
  47. X           case LEFT  : xleftpos = (float) x;
  48. X                 yleftpos = (float)(y-DXF_VCHAR/4.0);
  49. X                 xrightpos = (float)(x+stl*DXF_TEXTWIDTH);
  50. X                 yrightpos = yleftpos; break;
  51. X           case RIGHT : xleftpos = (float)(x-stl*DXF_TEXTWIDTH);
  52. X                 yleftpos = (float)(y-DXF_VCHAR/4.0);
  53. X                 xrightpos = (float) x;
  54. X                 yrightpos = yleftpos; break;
  55. X        case CENTRE: xleftpos = (float)(x-stl*DXF_TEXTWIDTH/2.0);
  56. X                 yleftpos = (float)(y-DXF_VCHAR/4.0);
  57. X                 xrightpos = (float) x;  /* center point */
  58. X                 yrightpos = yleftpos;
  59. X                 break;
  60. X        }
  61. X    }
  62. X    else
  63. X    {
  64. X        switch (dxf_justify)
  65. X        {
  66. X           case LEFT  : xleftpos = (float)(x+DXF_VCHAR/4.0);
  67. X                 yleftpos = (float) y;
  68. X                 xrightpos = xleftpos;
  69. X                 yrightpos = (float)(y+stl*DXF_TEXTWIDTH); break;
  70. X           case RIGHT : xleftpos = (float)(x+DXF_VCHAR/4.0);
  71. X                 yleftpos = (float)(y-stl*DXF_HCHAR);
  72. X                 xrightpos = xleftpos;
  73. X                 yrightpos = (float) y; break;
  74. X        case CENTRE: xleftpos = (float)(x+DXF_VCHAR/4.0);
  75. X                 yleftpos = (float)(y-stl*DXF_TEXTWIDTH/2.0);
  76. X                 xrightpos = xleftpos;
  77. X                 yrightpos = (float) y;  /* center point */
  78. X                 break;
  79. X        }
  80. X    }
  81. X    fprintf(outfile," 10\n%-6.3f\n 20\n%-6.3f\n 30\n0.000\n",
  82. X                xleftpos/DXF_UNIT,yleftpos/DXF_UNIT);
  83. X    fprintf(outfile," 40\n%-6.3f\n  1\n%s\n 50\n%-6.3f\n",
  84. X            DXF_TEXTHEIGHT/DXF_UNIT,str,dxf_angle);
  85. X    fprintf(outfile,"  7\n%s\n",text_style);
  86. X    if (dxf_justify != LEFT)
  87. X    {
  88. X        fprintf(outfile," 72\n%d\n",dxf_justify);
  89. X        fprintf(outfile," 11\n%-6.3f\n 21\n%-6.3f\n 31\n0.000\n",
  90. X                xrightpos/DXF_UNIT,yrightpos/DXF_UNIT);
  91. X    }
  92. }
  93. X
  94. DXF_text_angle(angle)
  95. X    int angle;
  96. {
  97. X    dxf_angle = 0.0;
  98. X    if (angle == 1) dxf_angle = 90.0;
  99. X    return(TRUE);
  100. }
  101. X
  102. DXF_justify_text(mode)
  103. X    enum JUSTIFY mode;
  104. {
  105. X    dxf_justify = mode;
  106. X    return(TRUE);
  107. }
  108. X
  109. DXF_reset()
  110. {
  111. X    DXF_posx = DXF_posy = 0;
  112. }
  113. X
  114. X
  115. SHAR_EOF
  116. echo 'File gnuplot/term/dxf.trm is complete' &&
  117. chmod 0644 gnuplot/term/dxf.trm ||
  118. echo 'restore of gnuplot/term/dxf.trm failed'
  119. Wc_c="`wc -c < 'gnuplot/term/dxf.trm'`"
  120. test 9980 -eq "$Wc_c" ||
  121.     echo 'gnuplot/term/dxf.trm: original size 9980, current size' "$Wc_c"
  122. rm -f _shar_wnt_.tmp
  123. fi
  124. # ============= gnuplot/term/qms.trm ==============
  125. if test -f 'gnuplot/term/qms.trm' -a X"$1" != X"-c"; then
  126.     echo 'x - skipping gnuplot/term/qms.trm (File already exists)'
  127.     rm -f _shar_wnt_.tmp
  128. else
  129. > _shar_wnt_.tmp
  130. echo 'x - extracting gnuplot/term/qms.trm (Text)'
  131. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/qms.trm' &&
  132. /* GNUPLOT - qms.trm */
  133. /*
  134. X * Copyright (C) 1990   
  135. X *
  136. X * Permission to use, copy, and distribute this software and its
  137. X * documentation for any purpose with or without fee is hereby granted, 
  138. X * provided that the above copyright notice appear in all copies and 
  139. X * that both that copyright notice and this permission notice appear 
  140. X * in supporting documentation.
  141. X *
  142. X * Permission to modify the software is granted, but not the right to
  143. X * distribute the modified code.  Modifications are to be distributed 
  144. X * as patches to released version.
  145. X *  
  146. X * This software  is provided "as is" without express or implied warranty.
  147. X * 
  148. X * This file is included by ../term.c.
  149. X *
  150. X * This terminal driver supports:
  151. X *  QMS laser printers
  152. X *
  153. X * AUTHORS
  154. X *  Colin Kelley, Thomas Williams, Russell Lang
  155. X * 
  156. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  157. X * 
  158. X */
  159. X
  160. #define QMS_XMAX 9000
  161. #define QMS_YMAX 6000
  162. X
  163. #define QMS_XLAST (QMS_XMAX - 1)
  164. #define QMS_YLAST (QMS_YMAX - 1)
  165. X
  166. #define QMS_VCHAR        120
  167. #define QMS_HCHAR        70
  168. #define QMS_VTIC        70
  169. #define QMS_HTIC        70
  170. X
  171. int qms_line = 0;    /* to remember current line type */
  172. X
  173. QMS_init()
  174. {
  175. /* This was just ^IOL, but at Rutgers at least we need some more stuff */
  176. X  fprintf(outfile,"^PY^-\n^IOL\n^ISYNTAX00000^F^IB11000^IJ00000^IT00000\n");
  177. /*                 ^ QUIC on    ^set defaults  ^ set botttom,top,left margins
  178. X                          ^landscape         ^free format   */
  179. /* set defaults are: implicit decimal point, units in inches, 
  180. X   numbers left justified, units in 1/1000 inch, do not ignore spaces */
  181. /* margins are in 1/1000 inch units */
  182. }
  183. X
  184. X
  185. QMS_graphics()
  186. {
  187. X    fprintf(outfile,"^IGV\n");
  188. /*                     ^enter graphics vector mode */
  189. }
  190. X
  191. X
  192. X
  193. QMS_text()
  194. {
  195. /* added ^-, because ^, after an ^I command doesn't actually print a page */
  196. /* Did anybody try this code out?  [uhh...-cdk] */
  197. X    fprintf(outfile,"^IGE\n^-^,");
  198. /*                     ^exit graphics vector mode
  199. X                           ^pass terminator
  200. X                             ^print page  */
  201. }
  202. X
  203. X
  204. QMS_linetype(linetype)
  205. int linetype;
  206. {
  207. static int width[2+9] = {7, 3, 3, 3, 3, 5, 5, 5, 7, 7, 7};
  208. static int type[2+9] =  {0, 1, 0, 2, 3, 0, 2, 3, 0, 2, 3};
  209. /*
  210. X * I don't know about Villanova, but on our printer, using ^V without
  211. X * previously setting up a pattern crashes the microcode.
  212. X * [nope, doesn't crash here. -cdk]
  213. X * [it generates a controller error here on dotted lines. - rjl]
  214. X */
  215. /* Code to define patterns added by rjl
  216. X * According to the manual it should work - but it doesn't
  217. X */
  218. X    qms_line = linetype;
  219. X    if (linetype >= 9)
  220. X        linetype %= 9;
  221. X    fprintf(outfile,"^PW%02d\n",width[linetype+2]); 
  222. /*                     ^width in dots */
  223. X    switch (type[linetype+2]) {
  224. X        case 1 :    /* short dash */
  225. X            fprintf(outfile,"^PV102025^G\n^V1\n");
  226. /* ^PV = define pattern vector, 1 = pattern number,
  227. X   02 = number of pen downs and ups, 025 = .025" length of ups/downs */
  228. X            break;
  229. X        case 2 :    /* medium dash */
  230. X            fprintf(outfile,"^PV202050^G\n^V2\n");
  231. X            break;
  232. X        case 3 :    /* long dash */
  233. X            fprintf(outfile,"^PV302100^G\n^V3\n");
  234. X            break;
  235. X        default:
  236. X        case 0 :
  237. X            fprintf(outfile,"^V0\n");
  238. X            break;
  239. X    }
  240. }
  241. X
  242. X
  243. QMS_move(x,y)
  244. int x,y;
  245. {
  246. X    fprintf(outfile,"^U%05d:%05d\n", 1000 + x, QMS_YLAST + 1000 - y);
  247. /*                     ^pen up vector*/
  248. }
  249. X
  250. X
  251. QMS_vector(x2,y2)
  252. int x2,y2;
  253. {
  254. X    fprintf(outfile,"^D%05d:%05d\n", 1000 + x2, QMS_YLAST + 1000 - y2);
  255. /*                     ^pen down vector*/
  256. }
  257. X
  258. X
  259. QMS_put_text(x,y,str)
  260. unsigned int x,y;
  261. char str[];
  262. {
  263. char ch;
  264. X    QMS_move(x,y + QMS_VCHAR/3);
  265. X    fputs("^IGE\n",outfile);
  266. X    ch = *str++;
  267. X    while(ch!='\0') {
  268. X        if (ch=='^')
  269. X            putc('^',outfile);
  270. X        putc(ch,outfile);
  271. X        ch = *str++;
  272. X    }
  273. X    fputs("\n^IGV\n",outfile);
  274. X    QMS_linetype(qms_line); /* restore line type */
  275. }
  276. X
  277. X
  278. QMS_reset()
  279. {
  280. X    fprintf(outfile,"^PN^-\n");
  281. /*                     ^QUIC off*/
  282. }
  283. X
  284. SHAR_EOF
  285. chmod 0666 gnuplot/term/qms.trm ||
  286. echo 'restore of gnuplot/term/qms.trm failed'
  287. Wc_c="`wc -c < 'gnuplot/term/qms.trm'`"
  288. test 3785 -eq "$Wc_c" ||
  289.     echo 'gnuplot/term/qms.trm: original size 3785, current size' "$Wc_c"
  290. rm -f _shar_wnt_.tmp
  291. fi
  292. # ============= gnuplot/term/regis.trm ==============
  293. if test -f 'gnuplot/term/regis.trm' -a X"$1" != X"-c"; then
  294.     echo 'x - skipping gnuplot/term/regis.trm (File already exists)'
  295.     rm -f _shar_wnt_.tmp
  296. else
  297. > _shar_wnt_.tmp
  298. echo 'x - extracting gnuplot/term/regis.trm (Text)'
  299. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/regis.trm' &&
  300. /* GNUPLOT - regis.trm */
  301. /*
  302. X * Copyright (C) 1990   
  303. X *
  304. X * Permission to use, copy, and distribute this software and its
  305. X * documentation for any purpose with or without fee is hereby granted, 
  306. X * provided that the above copyright notice appear in all copies and 
  307. X * that both that copyright notice and this permission notice appear 
  308. X * in supporting documentation.
  309. X *
  310. X * Permission to modify the software is granted, but not the right to
  311. X * distribute the modified code.  Modifications are to be distributed 
  312. X * as patches to released version.
  313. X *  
  314. X * This software  is provided "as is" without express or implied warranty.
  315. X * 
  316. X * This file is included by ../term.c.
  317. X *
  318. X * This terminal driver supports:
  319. X *  REGIS devices
  320. X *
  321. X * AUTHORS
  322. X *  Colin Kelley, Thomas Williams
  323. X * 
  324. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  325. X * 
  326. X */
  327. X
  328. #define REGISXMAX 800             
  329. #define REGISYMAX 440
  330. X
  331. #define REGISXLAST (REGISXMAX - 1)
  332. #define REGISYLAST (REGISYMAX - 1)
  333. X
  334. #define REGISVCHAR        20      
  335. #define REGISHCHAR        9
  336. #define REGISVTIC        8
  337. #define REGISHTIC        6
  338. X
  339. int REGISang = 0;
  340. X
  341. REGISinit()
  342. {
  343. X    fprintf(outfile,"\033[r\033[24;1H");
  344. /*                   1     2
  345. X    1. reset scrolling region
  346. X    2. locate cursor on bottom line
  347. */
  348. }
  349. X
  350. X
  351. /* thanks to calmasd!dko (Dan O'Neill) for adding S(E) for vt125s */
  352. REGISgraphics()
  353. {
  354. X    fprintf(outfile,"\033[2J\033P1pS(C0)S(E)");
  355. /*                   1      2      3    4   5
  356. X    1. clear screen
  357. X    2. enter ReGIS graphics
  358. X    3. turn off graphics diamond cursor
  359. X    4. clear graphics screen
  360. */
  361. X    (void) REGIStext_angle(0); /* select text size and angle */ 
  362. }
  363. X
  364. X
  365. REGIStext()
  366. {
  367. X    fprintf(outfile,"\033\\\033[24;1H");
  368. /*                       1    2
  369. X    1. Leave ReGIS graphics mode
  370. X     2. locate cursor on last line of screen
  371. */
  372. }
  373. X
  374. X
  375. REGISlinetype(linetype)
  376. int     linetype;
  377. {
  378. X      /* This will change color in order G,R,B,G-dot,R-dot,B-dot */
  379. static int in_map[9 + 2] = {2, 2, 3, 2, 1, 3, 2, 1, 3, 2, 1};
  380. static int lt_map[9 + 2] = {1, 4, 1, 1, 1, 4, 4, 4, 6, 6, 6};
  381. X
  382. X    if (linetype >= 9)
  383. X        linetype %= 9;
  384. X    fprintf(outfile, "W(I%d)", in_map[linetype + 2]);
  385. X    fprintf(outfile, "W(P%d)", lt_map[linetype + 2]);
  386. }
  387. X
  388. X
  389. REGISmove(x,y)
  390. int x,y;
  391. {
  392. X    fprintf(outfile,"P[%d,%d]",x,REGISYLAST-y,x,REGISYLAST-y);
  393. }
  394. X
  395. X
  396. REGISvector(x,y)
  397. int x,y;
  398. {
  399. X    fprintf(outfile,"v[]v[%d,%d]",x,REGISYLAST - y);
  400. /* the initial v[] is needed to get the first pixel plotted */
  401. }
  402. X
  403. X
  404. /* put_text and text_angle by rjl */
  405. REGISput_text(x,y,str)
  406. int x, y;
  407. char *str;
  408. {
  409. X    if (REGISang==1)
  410. X        REGISmove(x-REGISVCHAR/2-1,y);
  411. X    else
  412. X        REGISmove(x,y+REGISVCHAR/2-1);
  413. X    (void) putc('T',outfile); (void) putc('\'',outfile);
  414. X    while (*str) {
  415. X        (void) putc(*str,outfile);
  416. X        if (*str == '\'')
  417. X            (void) putc('\'',outfile);    /* send out another one */
  418. X        str++;
  419. X    }
  420. X    (void) putc('\'',outfile);
  421. }
  422. X
  423. X
  424. int REGIStext_angle(ang)
  425. int ang;
  426. {
  427. X    REGISang = ang;
  428. X    if (ang == 1)
  429. X        fputs("T(D90,S1)",outfile);
  430. X    else
  431. X        fputs("T(D0,S1)",outfile);
  432. X    return TRUE;
  433. }
  434. X
  435. X
  436. REGISreset()
  437. {
  438. X    fprintf(outfile,"\033[2J\033[24;1H");
  439. }
  440. X
  441. SHAR_EOF
  442. chmod 0666 gnuplot/term/regis.trm ||
  443. echo 'restore of gnuplot/term/regis.trm failed'
  444. Wc_c="`wc -c < 'gnuplot/term/regis.trm'`"
  445. test 2967 -eq "$Wc_c" ||
  446.     echo 'gnuplot/term/regis.trm: original size 2967, current size' "$Wc_c"
  447. rm -f _shar_wnt_.tmp
  448. fi
  449. # ============= gnuplot/term/sun.trm ==============
  450. if test -f 'gnuplot/term/sun.trm' -a X"$1" != X"-c"; then
  451.     echo 'x - skipping gnuplot/term/sun.trm (File already exists)'
  452.     rm -f _shar_wnt_.tmp
  453. else
  454. > _shar_wnt_.tmp
  455. echo 'x - extracting gnuplot/term/sun.trm (Text)'
  456. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/sun.trm' &&
  457. /* GNUPLOT - sun.trm */
  458. /*
  459. X * Copyright (C) 1990   
  460. X *
  461. X * Permission to use, copy, and distribute this software and its
  462. X * documentation for any purpose with or without fee is hereby granted, 
  463. X * provided that the above copyright notice appear in all copies and 
  464. X * that both that copyright notice and this permission notice appear 
  465. X * in supporting documentation.
  466. X *
  467. X * Permission to modify the software is granted, but not the right to
  468. X * distribute the modified code.  Modifications are to be distributed 
  469. X * as patches to released version.
  470. X *  
  471. X * This software  is provided "as is" without express or implied warranty.
  472. X * 
  473. X * This file is included by ../term.c.
  474. X *
  475. X * This terminal driver supports:
  476. X *   SUNview windowing system
  477. X *
  478. X * AUTHORS
  479. X *  Maurice Castro
  480. X * 
  481. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  482. X * 
  483. X */
  484. X
  485. #include <suntool/sunview.h>
  486. #include <suntool/canvas.h>
  487. #include <suntool/scrollbar.h>
  488. #include <suntool/panel.h>
  489. #include <pixrect/pixrect_hs.h>
  490. X
  491. #define SUN_XMAX 600
  492. #define SUN_YMAX 512
  493. X
  494. #define SUN_VCHAR (12)        /* default, will be changed */
  495. #define SUN_HCHAR (8)        /* default, will be changed */
  496. #define SUN_VTIC (SUN_YMAX/80)
  497. #define SUN_HTIC (SUN_XMAX/80)
  498. #define MARGIN 5
  499. #define MINWIN 128
  500. X
  501. static Frame frame;
  502. static Canvas canvas;
  503. static Pixwin *pw;
  504. static struct pixfont *sun_font = NULL;
  505. X
  506. static enum JUSTIFY sun_justify=LEFT;
  507. X
  508. static Notify_value local_notice_destroy();
  509. X
  510. extern Notify_error notify_dispatch();
  511. X  
  512. /* dotted line generator */
  513. unsigned int sun_value = 1;    /* this can be used for colour */
  514. unsigned int sun_line_mask = 0xffff;    /* 16 bit mask for dotted lines */
  515. static unsigned int sun_pattern[] = {0xffff, 0x1111,
  516. X    0xffff, 0x5555, 0x3333, 0x7777, 0x3f3f, 0x0f0f, 0x5f5f};
  517. int sun_mask_count = 0;
  518. unsigned int sun_lastx, sun_lasty;    /* last pixel set - used by sun_line */
  519. X
  520. X
  521. SUN_init()
  522. {
  523. X  struct termentry *t = &term_tbl[term];
  524. X  struct pr_subregion bound;
  525. X
  526. X  frame = window_create(NULL, FRAME, 
  527. X            FRAME_LABEL,               "Gnuplot",
  528. X            0);
  529. X  notify_interpose_destroy_func(frame,local_notice_destroy);
  530. X  canvas = window_create(frame, CANVAS,
  531. X            CANVAS_AUTO_EXPAND,        TRUE,
  532. X            CANVAS_AUTO_SHRINK,        TRUE,
  533. X            CANVAS_MARGIN,             MARGIN,
  534. X            0);
  535. X  notify_do_dispatch();
  536. X  pw = canvas_pixwin(canvas);
  537. X  window_set(frame, WIN_SHOW, TRUE, 0);
  538. X
  539. X  /* figure out font and rough size */
  540. X  sun_font = pf_default();
  541. X  pf_textbound(&bound, 1, sun_font, "M");
  542. X  t->v_char = bound.size.y;
  543. X  t->h_char = bound.size.x;
  544. X
  545. X  return;
  546. }
  547. X
  548. SUN_graphics()
  549. {
  550. X  term_tbl[term].xmax = (int) window_get(canvas,CANVAS_WIDTH);
  551. X  term_tbl[term].ymax = (int) window_get(canvas,CANVAS_HEIGHT);
  552. X  pw_writebackground(pw,0,0,term_tbl[term].xmax, term_tbl[term].ymax, PIX_SRC );
  553. X  notify_dispatch();
  554. X  /* do not let the user make the window too small */
  555. X  if ((term_tbl[term].xmax)<MINWIN)
  556. X  {
  557. X      window_set(frame,
  558. X            WIN_WIDTH,                MINWIN+2*MARGIN+24,
  559. X            0);
  560. X      notify_dispatch();
  561. X      SUN_graphics();
  562. X      }
  563. X  if ((term_tbl[term].ymax) <MINWIN)
  564. X  {
  565. X      window_set(frame,
  566. X            WIN_HEIGHT,               MINWIN+2*MARGIN+24,
  567. X            0);
  568. X      notify_dispatch();
  569. X      SUN_graphics();
  570. X      }
  571. X  notify_dispatch();
  572. X  return;
  573. }
  574. X
  575. SUN_text()
  576. {
  577. X  notify_dispatch();
  578. X  return; /* enter text from another window!!! */
  579. }
  580. X
  581. SUN_linetype(linetype)
  582. int linetype;
  583. {
  584. X    if (linetype>=7)
  585. X        linetype %= 7;
  586. X    sun_line_mask = sun_pattern[linetype+2];
  587. X    sun_mask_count=0;
  588. }
  589. X
  590. X
  591. SUN_move(x, y)
  592. unsigned int x, y;
  593. {
  594. X  sun_lastx = x;
  595. X  sun_lasty = y;
  596. X  notify_dispatch();
  597. X  return;
  598. }
  599. X
  600. SUN_vector(x, y)
  601. unsigned int x, y;
  602. {
  603. X  if ( (x>=term_tbl[term].xmax) || (y>=term_tbl[term].ymax) )
  604. X    return;
  605. X  sun_line(sun_lastx,x,sun_lasty,y);
  606. X  canvas_pixwin(canvas);
  607. X  notify_dispatch();
  608. X  return;
  609. }
  610. X
  611. X
  612. SUN_put_text(x,y,str)
  613. unsigned int x, y;
  614. char *str;
  615. {
  616. X  struct pr_subregion bound;
  617. X
  618. X  if ( (x>=term_tbl[term].xmax) || (y>=term_tbl[term].ymax) )
  619. X    return;
  620. X
  621. X  pf_textbound(&bound, strlen(str), sun_font, str);
  622. X  y = term_tbl[term].ymax-1-y + bound.size.y/3; /* vertical centering */
  623. X
  624. X  switch(sun_justify) {
  625. X     case LEFT:   break;
  626. X     case CENTRE: x -= bound.size.x/2; break;
  627. X     case RIGHT:  x -= bound.size.x; break;
  628. X  }
  629. X  pw_text(pw, x,y, PIX_SRC | PIX_DST, 0, str); 
  630. X  canvas_pixwin(canvas);
  631. X  notify_dispatch();
  632. X  return;
  633. }
  634. X 
  635. X
  636. int SUN_justify_text(mode)
  637. X    enum JUSTIFY mode;
  638. {
  639. X    sun_justify = mode;
  640. X    return (TRUE);
  641. }
  642. X  
  643. X  
  644. X
  645. X
  646. SUN_reset()
  647. {
  648. X  
  649. X  term_tbl[term].xmax = SUN_XMAX;
  650. X  term_tbl[term].ymax = SUN_YMAX;
  651. X  window_set(frame, WIN_SHOW, FALSE, 0);
  652. X  return;
  653. }
  654. X
  655. X
  656. X
  657. sun_setmaskpixel(x,y,value)
  658. unsigned int x,y,value;
  659. {
  660. X    /* dotted line generator */
  661. X    if ((sun_line_mask>>sun_mask_count)&(unsigned int)(1)) {
  662. X        pw_put(pw,x,term_tbl[term].ymax-1-y,sun_value);
  663. X    }
  664. X    sun_mask_count= (sun_mask_count+1) % 16;
  665. X    sun_lastx= x;  /* last pixel set with mask */
  666. X    sun_lasty= y;
  667. }
  668. X
  669. X
  670. X
  671. X
  672. sun_line(x1,x2,y1,y2)
  673. unsigned int x1,x2,y1,y2;
  674. {
  675. int runcount;
  676. int dx,dy;
  677. int xinc,yinc;
  678. unsigned int xplot,yplot;
  679. X
  680. X    runcount=0;
  681. X    dx = abs((int)(x1)-(int)(x2));
  682. X    if (x2>x1)  xinc=  1;
  683. X    if (x2==x1) xinc=  0;
  684. X    if (x2<x1)  xinc= -1;
  685. X    dy = abs((int)(y1)-(int)(y2));
  686. X    if (y2>y1)  yinc=  1;
  687. X    if (y2==y1) yinc=  0;
  688. X    if (y2<y1)  yinc= -1;
  689. X    xplot=x1;
  690. X    yplot=y1;
  691. X    if (dx>dy) {
  692. X        /* iterate x */
  693. X        if ( (sun_line_mask==0xffff) ||
  694. X            ((xplot!=sun_lastx) && (yplot!=sun_lasty)) )
  695. X            sun_setmaskpixel(xplot,yplot,sun_value);
  696. X        while (xplot!=x2) { 
  697. X            xplot+=xinc;
  698. X            runcount+=dy;
  699. X            if (runcount>=(dx-runcount)) {
  700. X                yplot+=yinc;
  701. X                runcount-=dx;
  702. X            }
  703. X            sun_setmaskpixel(xplot,yplot,sun_value);
  704. X        } 
  705. X    } else {
  706. X        /* iterate y */
  707. X        if ( (sun_line_mask==0xffff) ||
  708. X            ((xplot!=sun_lastx) && (yplot!=sun_lasty)) )
  709. X            sun_setmaskpixel(xplot,yplot,sun_value);
  710. X        while (yplot!=y2) {
  711. X            yplot+=yinc;
  712. X            runcount+=dx;
  713. X            if (runcount>=(dy-runcount)) {
  714. X                xplot+=xinc;
  715. X                runcount-=dy;
  716. X            }
  717. X            sun_setmaskpixel(xplot,yplot,sun_value);
  718. X        } 
  719. X    }
  720. }
  721. X
  722. X
  723. static Notify_value local_notice_destroy(frame, status)
  724. X   Frame frame;
  725. X   Destroy_status status;
  726. {
  727. X   if (status != DESTROY_CHECKING)
  728. X   {
  729. X      SUN_reset();
  730. X      term_init = FALSE;
  731. X      }
  732. X   return(NOTIFY_DONE);
  733. X   }
  734. X
  735. SHAR_EOF
  736. chmod 0666 gnuplot/term/sun.trm ||
  737. echo 'restore of gnuplot/term/sun.trm failed'
  738. Wc_c="`wc -c < 'gnuplot/term/sun.trm'`"
  739. test 6147 -eq "$Wc_c" ||
  740.     echo 'gnuplot/term/sun.trm: original size 6147, current size' "$Wc_c"
  741. rm -f _shar_wnt_.tmp
  742. fi
  743. # ============= gnuplot/term/t410x.trm ==============
  744. if test -f 'gnuplot/term/t410x.trm' -a X"$1" != X"-c"; then
  745.     echo 'x - skipping gnuplot/term/t410x.trm (File already exists)'
  746.     rm -f _shar_wnt_.tmp
  747. else
  748. > _shar_wnt_.tmp
  749. echo 'x - extracting gnuplot/term/t410x.trm (Text)'
  750. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/t410x.trm' &&
  751. /* GNUPLOT - t410x.trm */
  752. /*
  753. X * Copyright (C) 1990   
  754. X *
  755. X * Permission to use, copy, and distribute this software and its
  756. X * documentation for any purpose with or without fee is hereby granted, 
  757. X * provided that the above copyright notice appear in all copies and 
  758. X * that both that copyright notice and this permission notice appear 
  759. X * in supporting documentation.
  760. X *
  761. X * Permission to modify the software is granted, but not the right to
  762. X * distribute the modified code.  Modifications are to be distributed 
  763. X * as patches to released version.
  764. X *  
  765. X * This software  is provided "as is" without express or implied warranty.
  766. X * 
  767. X * This file is included by ../term.c.
  768. X *
  769. X * This terminal driver supports: Tektronix 410x and 420x series terminals
  770. X *
  771. X * AUTHORS
  772. X *   Colin Kelley, Thomas Williams
  773. X * 
  774. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  775. X * 
  776. X */
  777. X
  778. /* Tektronix 410X and 420X driver written by Cary D. Renzema.
  779. X * email address: caryr@vice.ico.tek.com
  780. X *
  781. X * I've tested this driver on the following terminals: 4106, 4107A, 4109
  782. X * and 4207.  It should work, without editing, on other terminals in the
  783. X * 410x and 420x families.  It will probably need to be changed to work
  784. X * on a 4105 (screen size and character rotation are two guesses).  This
  785. X * file can also be used as a start for a 411x driver.
  786. X *
  787. X * Cary R.
  788. X * April 5, 1990
  789. X */
  790. X
  791. #ifdef T410X
  792. X
  793. #define T410XXMAX 4095
  794. #define T410XYMAX 3131
  795. X
  796. #define T410XVCHAR    71
  797. #define T410XHCHAR    51
  798. #define T410XVTIC    36
  799. #define T410XHTIC    36    
  800. X
  801. static int T410X_angle=0;
  802. X
  803. T410X_init()
  804. {
  805. X    (void) fprintf(outfile, "\033%%!0\033MN0\033MCB7C;\033MQ1\033MT1");
  806. X    (void) fprintf(outfile, "\033MG1\033RK!\033SK!\033LZ\033%%!1");
  807. /*
  808. X     1. set tek mode
  809. X     2. set character path to 0 (characters placed equal to rotation)
  810. X     3. set character size to 59 height
  811. X     4. set character precision to string
  812. X     5. set character text index to 1
  813. X     6. set character write mode to overstrike
  814. X     7. clear the view
  815. X     8. clear the segments
  816. X     9. clear the dialog buffer
  817. X    10. set ansi mode
  818. */
  819. X    (void) fflush(outfile);
  820. }
  821. X
  822. X
  823. T410X_reset()
  824. {
  825. X    (void) fprintf(outfile, "\033%%!0\033LZ\033%%!1");
  826. /*
  827. X    1. set tek mode
  828. X    2. clear the dialog buffer
  829. X    3. set ansi mode
  830. */
  831. X    (void) fflush(outfile);
  832. }
  833. X
  834. X
  835. T410X_graphics()
  836. {
  837. X    (void) fprintf(outfile, "\033%%!0\033\014\033LV0");
  838. /*
  839. X    1. set tek mode
  840. X    2. clear the screen
  841. X    3. set dialog area invisible
  842. */
  843. X    (void) fflush(outfile);
  844. }
  845. X
  846. T410X_text()
  847. {
  848. X    (void) fprintf(outfile, "\033LV1\033%%!1");
  849. /*
  850. X    1. set dialog area visible
  851. X    2. set ansi mode
  852. */
  853. X    (void) fflush(outfile);
  854. }
  855. X
  856. X
  857. T410X_move(x, y)
  858. unsigned int x, y;
  859. {
  860. X    (void) fprintf(outfile, "\033LF");
  861. X    (void) T410X_encode_x_y(x, y);
  862. X    (void) fflush(outfile);
  863. }
  864. X
  865. X
  866. T410X_vector(x, y)
  867. unsigned int x, y;
  868. {
  869. X    (void) fprintf(outfile, "\033LG");
  870. X    (void) T410X_encode_x_y(x, y);
  871. X    (void) fflush(outfile);
  872. }
  873. X
  874. X
  875. T410X_point(x, y, number)
  876. unsigned int x, y;
  877. int number;
  878. {
  879. X    (void) fprintf(outfile, "\033MM");
  880. X    (void) T410X_encode_int(max(number, 0)%11);
  881. X    (void) fprintf(outfile, "\033LH");
  882. X    (void) T410X_encode_x_y(x, y);
  883. X    (void) fflush(outfile);
  884. }
  885. X
  886. X
  887. T410X_linetype(linetype)
  888. int linetype;
  889. {
  890. X    switch (linetype) {
  891. X        case -1:
  892. X            (void) fprintf(outfile, "\033ML5");
  893. X            break;
  894. X        case -2:
  895. X            (void) fprintf(outfile, "\033ML?");
  896. X            break;
  897. X        default:
  898. X            (void) fprintf(outfile, "\033ML");
  899. X            (void) T410X_encode_int(linetype%14+2);
  900. X            break;
  901. X    }
  902. X    (void) fprintf(outfile, "\033MV");
  903. X    (void) T410X_encode_int(max(linetype, 0)%8);
  904. X    (void) fflush(outfile);
  905. }
  906. X
  907. X
  908. T410X_put_text(x, y, str)
  909. unsigned int x, y;
  910. char str[];
  911. {
  912. X    extern int T410X_angle;
  913. X
  914. X    if (T410X_angle == 0) {
  915. X        (void) T410X_move(x, y-T410XVCHAR/2+6);
  916. X        (void) fprintf(outfile, "\033MR00");
  917. X    } else {
  918. X        (void) T410X_move(x+T410XHCHAR/2-6, y);
  919. X        (void) fprintf(outfile, "\033MRE:0");
  920. X    }
  921. X    (void) fprintf(outfile, "\033LT");
  922. X    (void) T410X_encode_int(strlen(str));
  923. X    (void) fputs(str, outfile);
  924. X    (void) fflush(outfile);
  925. }
  926. X
  927. T410X_text_angle(ang)
  928. int ang;
  929. {
  930. X    extern int T410X_angle;
  931. X
  932. X    T410X_angle = ang;
  933. X    return(TRUE);
  934. }
  935. X
  936. /* These last two routines are based on fortran code found in the
  937. X * 4106/4107/4109/CX PROGRAMMERS manual.
  938. X */
  939. X
  940. T410X_encode_x_y(x, y)
  941. unsigned int x, y;
  942. {
  943. X    static char chix=0, chiy=0, cloy=0, ceb=0;
  944. X
  945. X    register unsigned int hix, lox, hiy, loy, eb, lx, ly;
  946. X
  947. X    lx = (x <= T410XXMAX) ? x : T410XXMAX;
  948. X    ly = (y <= T410XYMAX) ? y : T410XYMAX;
  949. X
  950. X    hix = lx/128 + 32;
  951. X    lox = (lx/4)%32 + 64;
  952. X    hiy = ly/128 + 32;
  953. X    loy = (ly/4)%32 + 96;
  954. X    eb = (ly%4)*4 + lx%4 + 96;
  955. X
  956. X    if (chiy != hiy) (void) putc(hiy, outfile);
  957. X    if (ceb != eb) (void) putc(eb, outfile);
  958. X    if ((cloy!=loy) || (ceb!=eb) || (chix!=hix)) (void) putc(loy, outfile);
  959. X    if (chix != hix) (void) putc(hix, outfile);
  960. X    (void) putc(lox, outfile);
  961. X
  962. X    chix = hix;
  963. X    chiy = hiy;
  964. X    cloy = loy;
  965. X    ceb = eb;
  966. }
  967. X
  968. X
  969. T410X_encode_int(number)
  970. int number;
  971. {
  972. X    register unsigned int mag, hi1, hi2, lo;
  973. X
  974. X    mag = abs(number);
  975. X
  976. X    hi1 = mag/1024 + 64;
  977. X    hi2 = (mag/16)%64 + 64;
  978. X    lo = mag%16 + 32;
  979. X
  980. X    if (number >= 0) lo += 16;
  981. X
  982. X    if (hi1 != 64) (void) putc(hi1, outfile);
  983. X    if ((hi2 != 64) || (hi1 != 64)) (void) putc(hi2, outfile);
  984. X    (void) putc(lo, outfile);
  985. X
  986. }
  987. X
  988. X
  989. #endif /* T410X */
  990. SHAR_EOF
  991. chmod 0666 gnuplot/term/t410x.trm ||
  992. echo 'restore of gnuplot/term/t410x.trm failed'
  993. Wc_c="`wc -c < 'gnuplot/term/t410x.trm'`"
  994. test 5056 -eq "$Wc_c" ||
  995.     echo 'gnuplot/term/t410x.trm: original size 5056, current size' "$Wc_c"
  996. rm -f _shar_wnt_.tmp
  997. fi
  998. # ============= gnuplot/term/tek.trm ==============
  999. if test -f 'gnuplot/term/tek.trm' -a X"$1" != X"-c"; then
  1000.     echo 'x - skipping gnuplot/term/tek.trm (File already exists)'
  1001.     rm -f _shar_wnt_.tmp
  1002. else
  1003. > _shar_wnt_.tmp
  1004. echo 'x - extracting gnuplot/term/tek.trm (Text)'
  1005. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/tek.trm' &&
  1006. /* GNUPLOT - tek.trm */
  1007. /*
  1008. X * Copyright (C) 1990   
  1009. X *
  1010. X * Permission to use, copy, and distribute this software and its
  1011. X * documentation for any purpose with or without fee is hereby granted, 
  1012. X * provided that the above copyright notice appear in all copies and 
  1013. X * that both that copyright notice and this permission notice appear 
  1014. X * in supporting documentation.
  1015. X *
  1016. X * Permission to modify the software is granted, but not the right to
  1017. X * distribute the modified code.  Modifications are to be distributed 
  1018. X * as patches to released version.
  1019. X *  
  1020. X * This software  is provided "as is" without express or implied warranty.
  1021. X * 
  1022. X * This file is included by ../term.c.
  1023. X *
  1024. X * This terminal driver supports:
  1025. X *  tek40xx, bitgraph, kermit_color_tek40xx, kermit_mono_tek40xx, selanar
  1026. X *  ln03plus
  1027. X *
  1028. X * AUTHORS
  1029. X *   Colin Kelley, Thomas Williams, Russell Lang
  1030. X * 
  1031. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1032. X * 
  1033. X */
  1034. X
  1035. #ifdef TEK
  1036. X
  1037. #define TEK40XMAX 1024
  1038. #define TEK40YMAX 780
  1039. X
  1040. #define TEK40XLAST (TEK40XMAX - 1)
  1041. #define TEK40YLAST (TEK40YMAX - 1)
  1042. X
  1043. #define TEK40VCHAR        25
  1044. #define TEK40HCHAR        14
  1045. #define TEK40VTIC        11
  1046. #define TEK40HTIC        11    
  1047. X
  1048. #define HX 0x20        /* bit pattern to OR over 5-bit data */
  1049. #define HY 0x20
  1050. #define LX 0x40
  1051. #define LY 0x60
  1052. X
  1053. #define LOWER5 31
  1054. #define UPPER5 (31<<5)
  1055. X
  1056. X
  1057. TEK40init()
  1058. {
  1059. }
  1060. X
  1061. X
  1062. TEK40graphics()
  1063. {
  1064. #ifdef vms
  1065. X    term_pasthru();
  1066. #endif /* vms */
  1067. X    fprintf(outfile,"\033\014");
  1068. /*                   1
  1069. X    1. clear screen
  1070. */
  1071. X    (void) fflush(outfile);
  1072. X    sleep(1);  
  1073. X    /* sleep 1 second to allow screen time to clear on real 
  1074. X       tektronix terminals */
  1075. }
  1076. X
  1077. TEK40text()
  1078. {
  1079. X    TEK40move(0,12);
  1080. X    fprintf(outfile,"\037");
  1081. /*                   1
  1082. X    1. into alphanumerics
  1083. */
  1084. #ifdef vms
  1085. X    term_nopasthru();
  1086. #endif /* vms */
  1087. }
  1088. X
  1089. X
  1090. TEK40linetype(linetype)
  1091. int linetype;
  1092. {
  1093. }
  1094. X
  1095. TEK40move(x,y)
  1096. unsigned int x,y;
  1097. {
  1098. X    (void) putc('\035', outfile);    /* into graphics */
  1099. X    TEK40vector(x,y);
  1100. }
  1101. X
  1102. X
  1103. TEK40vector(x,y)
  1104. unsigned int x,y;
  1105. {
  1106. X    (void) putc((HY | (y & UPPER5)>>5), outfile);
  1107. X    (void) putc((LY | (y & LOWER5)), outfile);
  1108. X    (void) putc((HX | (x & UPPER5)>>5), outfile);
  1109. X    (void) putc((LX | (x & LOWER5)), outfile);
  1110. }
  1111. X
  1112. X
  1113. TEK40put_text(x,y,str)
  1114. unsigned int x,y;
  1115. char str[];
  1116. {
  1117. X    TEK40move(x,y-11);
  1118. X    fprintf(outfile,"\037%s\n",str);
  1119. }
  1120. X
  1121. X
  1122. TEK40reset()
  1123. {
  1124. }
  1125. X
  1126. #endif /* TEK */
  1127. X
  1128. X
  1129. X
  1130. /* thanks to dukecdu!evs (Ed Simpson) for the BBN BitGraph driver */
  1131. X
  1132. #ifdef BITGRAPH
  1133. X
  1134. #define BG_XMAX                 768 /* width of plot area */
  1135. #define BG_YMAX                 768 /* height of plot area */
  1136. #define BG_SCREEN_HEIGHT    1024 /* full screen height */
  1137. X
  1138. #define BG_XLAST     (BG_XMAX - 1)
  1139. #define BG_YLAST     (BG_YMAX - 1)
  1140. X
  1141. #define BG_VCHAR    16
  1142. #define BG_HCHAR     9
  1143. #define BG_VTIC         8
  1144. #define BG_HTIC         8    
  1145. X
  1146. X
  1147. #define BG_init TEK40init
  1148. X
  1149. #define BG_graphics TEK40graphics
  1150. X
  1151. X
  1152. #define BG_linetype TEK40linetype
  1153. X
  1154. #define BG_move TEK40move
  1155. X
  1156. #define BG_vector TEK40vector
  1157. X
  1158. X
  1159. BG_text()
  1160. {
  1161. X    BG_move(0, BG_SCREEN_HEIGHT - 2 * BG_VCHAR);
  1162. X    fprintf(outfile,"\037");
  1163. /*                   1
  1164. X    1. into alphanumerics
  1165. */
  1166. }
  1167. X
  1168. X
  1169. BG_put_text(x,y,str)
  1170. unsigned int x,y;
  1171. char str[];
  1172. {
  1173. X    BG_move(x,y-11);
  1174. X    fprintf(outfile,"\037%s\n",str);
  1175. }
  1176. X
  1177. X
  1178. #define BG_reset TEK40reset
  1179. X
  1180. #endif /* BITGRAPH */
  1181. X
  1182. X
  1183. /* Color and Monochrome specials for the MS-Kermit Tektronix Emulator
  1184. X   by Russell Lang,  eln272v@monu1.cc.monash.oz  */
  1185. X
  1186. #ifdef KERMIT
  1187. X
  1188. #define KTEK40HCHAR        13
  1189. X
  1190. KTEK40graphics()
  1191. {
  1192. #ifdef vms
  1193. X        term_mode_tek();
  1194. X    term_pasthru();
  1195. #endif /* vms */
  1196. X    fprintf(outfile,"\033\014");
  1197. /*                   1
  1198. X    1. clear screen
  1199. */
  1200. X    /* kermit tektronix emulation doesn't need to wait */
  1201. }
  1202. X
  1203. KTEK40Ctext()
  1204. {
  1205. X    TEK40text();
  1206. X    KTEK40Clinetype(0);  /* change to green */
  1207. #ifdef vms
  1208. X    term_nopasthru();
  1209. #endif /* vms */
  1210. }
  1211. X
  1212. /* special color linetypes for MS-DOS Kermit v2.31 tektronix emulator */
  1213. /*    0 = normal, 1 = bright 
  1214. X    foreground color (30-37) = 30 + colors
  1215. X        where colors are   1=red, 2=green, 4=blue */
  1216. static char *kermit_color[15]= {"\033[0;37m","\033[1;30m",
  1217. X        "\033[0;32m","\033[0;36m","\033[0;31m","\033[0;35m",
  1218. X        "\033[1;34m","\033[1;33m","\033[1;31m","\033[1;37m",
  1219. X        "\033[1;35m","\033[1;32m","\033[1;36m","\033[0;34m",
  1220. X        "\033[0;33m"};
  1221. X
  1222. KTEK40Clinetype(linetype)
  1223. int linetype;
  1224. {
  1225. X    if (linetype >= 13)
  1226. X        linetype %= 13;
  1227. X    fprintf(outfile,"%s",kermit_color[linetype+2]);
  1228. }
  1229. X
  1230. X
  1231. /* linetypes for MS-DOS Kermit v2.30 tektronix emulator */
  1232. /* `=solid, a=fine dots, b=short dashes, c=dash dot, 
  1233. X   d=long dash dot, e=dash dot dot */
  1234. static char *kerm_linetype = "`a`abcde" ;
  1235. X
  1236. KTEK40Mlinetype(linetype)
  1237. int linetype;
  1238. {
  1239. X    if (linetype >= 6)
  1240. X        linetype %= 6;
  1241. X    fprintf(outfile,"\033%c",kerm_linetype[linetype+2]);
  1242. }
  1243. X
  1244. KTEK40reset()
  1245. {
  1246. X    fprintf(outfile,"\030\n");  /* turn off Tek emulation */
  1247. #ifdef vms
  1248. X    term_mode_native();
  1249. #endif /* vms */
  1250. }
  1251. X
  1252. #endif /* KERMIT */
  1253. X
  1254. X
  1255. /* thanks to sask!macphed (Geoff Coleman and Ian Macphedran) for the
  1256. X   Selanar driver */
  1257. X
  1258. #ifdef SELANAR
  1259. X
  1260. SEL_init()
  1261. {
  1262. X    fprintf(outfile,"\033\062");
  1263. /*                    1
  1264. X    1. set to ansi mode
  1265. */
  1266. }
  1267. X
  1268. X
  1269. SEL_graphics()
  1270. {
  1271. X    fprintf(outfile,"\033[H\033[J\033\061\033\014");
  1272. /*                   1           2       3
  1273. X    1. clear ANSI screen
  1274. X    2. set to TEK mode
  1275. X    3. clear screen
  1276. */
  1277. }
  1278. X
  1279. X
  1280. SEL_text()
  1281. {
  1282. X    TEK40move(0,12);
  1283. X    fprintf(outfile,"\033\062");
  1284. /*                   1
  1285. X    1. into ANSI mode
  1286. */
  1287. }
  1288. X
  1289. SEL_reset()
  1290. {
  1291. X    fprintf(outfile,"\033\061\033\012\033\062\033[H\033[J");
  1292. /*                   1        2       3      4
  1293. 1       set tek mode
  1294. 2       clear screen
  1295. 3       set ansi mode
  1296. 4       clear screen
  1297. */
  1298. }
  1299. #endif /* SELANAR */
  1300. X
  1301. #ifdef VTTEK
  1302. X
  1303. VTTEK40init()
  1304. {
  1305. X        fprintf(outfile,"\033[?38h");
  1306. X        fflush(outfile);
  1307. X        sleep(1);
  1308. X        /* sleep 1 second to allow screen time to clear on some terminals */
  1309. #ifdef vms
  1310. X        term_mode_tek();
  1311. #endif /* vms */
  1312. }
  1313. X
  1314. VTTEK40reset()
  1315. {
  1316. X        fprintf(outfile,"\033[?38l");
  1317. X        fflush(outfile);
  1318. X        sleep(1);
  1319. X        /* sleep 1 second to allow screen time to clear on some terminals */
  1320. #ifdef vms
  1321. X        term_mode_native();
  1322. #endif /* vms */
  1323. }
  1324. X
  1325. /* linetypes for VT-type terminals in tektronix emulator mode */
  1326. /* `=solid, a=fine dots, b=short dashes, c=dash dot,
  1327. X   d=long dash dot, h=bold solid, i=bold fine dots, j=bold short dashes,
  1328. X   k=bold dash dot, l=bold long dash dot */
  1329. static char *vt_linetype = "`a`abcdhijkl" ;
  1330. static int last_vt_linetype = 0;
  1331. VTTEK40linetype(linetype)
  1332. int linetype;
  1333. {
  1334. X        if (linetype >= 10)
  1335. X                linetype %= 10;
  1336. X        fprintf(outfile,"\033%c",vt_linetype[linetype+2]);
  1337. X        last_vt_linetype = linetype;
  1338. }
  1339. X
  1340. VTTEK40put_text(x,y,str)
  1341. unsigned int x,y;
  1342. char str[];
  1343. {
  1344. X        int linetype;
  1345. X        linetype = last_vt_linetype;
  1346. X        VTTEK40linetype(0);
  1347. X        TEK40put_text(x,y,str);
  1348. X        VTTEK40linetype(linetype);
  1349. }
  1350. X
  1351. #endif /* VTTEK */
  1352. X
  1353. #ifdef LN03P
  1354. X
  1355. LN03Pinit()
  1356. {
  1357. X    fprintf(outfile,"\033[?38h");
  1358. }
  1359. X
  1360. LN03Preset()
  1361. {
  1362. X    fprintf(outfile,"\033[?38l");
  1363. }
  1364. #endif LN03P
  1365. SHAR_EOF
  1366. chmod 0644 gnuplot/term/tek.trm ||
  1367. echo 'restore of gnuplot/term/tek.trm failed'
  1368. Wc_c="`wc -c < 'gnuplot/term/tek.trm'`"
  1369. test 6716 -eq "$Wc_c" ||
  1370.     echo 'gnuplot/term/tek.trm: original size 6716, current size' "$Wc_c"
  1371. rm -f _shar_wnt_.tmp
  1372. fi
  1373. # ============= gnuplot/term/unixpc.trm ==============
  1374. if test -f 'gnuplot/term/unixpc.trm' -a X"$1" != X"-c"; then
  1375.     echo 'x - skipping gnuplot/term/unixpc.trm (File already exists)'
  1376.     rm -f _shar_wnt_.tmp
  1377. else
  1378. > _shar_wnt_.tmp
  1379. echo 'x - extracting gnuplot/term/unixpc.trm (Text)'
  1380. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/unixpc.trm' &&
  1381. /* GNUPLOT - unixpc.trm */
  1382. /*
  1383. X * Copyright (C) 1990   
  1384. X *
  1385. X * Permission to use, copy, and distribute this software and its
  1386. X * documentation for any purpose with or without fee is hereby granted, 
  1387. X * provided that the above copyright notice appear in all copies and 
  1388. X * that both that copyright notice and this permission notice appear 
  1389. X * in supporting documentation.
  1390. X *
  1391. X * Permission to modify the software is granted, but not the right to
  1392. X * distribute the modified code.  Modifications are to be distributed 
  1393. X * as patches to released version.
  1394. X *  
  1395. X * This software  is provided "as is" without express or implied warranty.
  1396. X * 
  1397. X * This file is included by ../term.c.
  1398. X *
  1399. X * This terminal driver supports:
  1400. X *  Unix PC's (ATT 3b1)
  1401. X *
  1402. X * AUTHORS
  1403. X *    John Campbell
  1404. X * 
  1405. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1406. X * 
  1407. X */
  1408. X
  1409. /*
  1410. >From: John Campbell (...!arizona!naucse!jdc)
  1411. X
  1412. I originally ported gnuplot to the ATT 3b1 (ATT7300) on 12/4/88, and then
  1413. added the minimal code needed to bring it up to 2.0 level on 1/28/90.  The 
  1414. 3b1, as I view it, is a 720x300 bitmapped, monochrome display (often people 
  1415. don't use the top 12 scan lines and thus the effective size is 720x288).  I 
  1416. tried to maximize the size of the graph area, by using these top 12 lines 
  1417. (normally reserved) and set up a signal handler to restore them upon exit, 
  1418. abort, etc.
  1419. X
  1420. Line styles were "fudged" (they do not know the aspect ratio).  The same
  1421. line style may look different depending upon the slope of the curve.  Due to
  1422. this only 4 line styles were implemented.  While more line types are possible,
  1423. the current styles were chosen as distinguishable.
  1424. X
  1425. The 3b1 has 4 "special" rows at the bottom that I could not use in graphics
  1426. mode.  It has been suggested that we use these lines for command prompting.
  1427. Others have requested that we have a graphics window and a command window.
  1428. My experience with gnuplot only includes relatively dumb graphics devices--
  1429. hence gnuplot "looks and feels" normal to me the way I implemented it.
  1430. I welcome either of these changes from someone else, however.
  1431. */
  1432. X
  1433. #include <sys/window.h>   /* Started with tam.h--too much trouble. */
  1434. #include <sys/signal.h>
  1435. #include <errno.h>
  1436. X
  1437. #define uPC_HIGH_BIT    (0x8000)
  1438. X
  1439. typedef unsigned short Scr_type;
  1440. typedef unsigned char Scr_kluge;
  1441. X
  1442. #define uPC_XMAX 720
  1443. #define uPC_YMAX 300
  1444. X
  1445. #define uPC_XSIZE       45 /* Short ints. */
  1446. #define uPC_YSIZE uPC_YMAX
  1447. X
  1448. Scr_type uPC_display[uPC_YSIZE][uPC_XSIZE];
  1449. int uPC_width = 2*uPC_XSIZE;
  1450. int uPC_sx=0, uPC_sy=0;
  1451. int uPC_cur_linetype=0;
  1452. int uPC_angle = 0;
  1453. unsigned short uPC_raster_count=0;
  1454. static Scr_type lookup[] = {
  1455. X      0x0001, 0x0002, 0x0004, 0x0008,
  1456. X      0x0010, 0x0020, 0x0040, 0x0080,
  1457. X      0x0100, 0x0200, 0x0400, 0x0800,
  1458. X      0x1000, 0x2000, 0x4000, 0x8000,
  1459. X   };
  1460. X
  1461. #define uPC_XLAST (uPC_XMAX - 1)
  1462. #define uPC_YLAST (uPC_YMAX - 1)
  1463. X
  1464. #define uPC_VCHAR FNT5X9_VCHAR
  1465. #define uPC_HCHAR FNT5X9_HCHAR
  1466. #define uPC_VTIC  uPC_VCHAR/2  /* Was 8  */
  1467. #define uPC_HTIC  uPC_HCHAR    /* Was 12 */
  1468. X
  1469. extern errno, sys_nerr;
  1470. extern char *sys_errlist[];
  1471. X
  1472. static struct urdata uPC_ur = {(unsigned short *)uPC_display, 2*uPC_XSIZE, 0, 0,
  1473. X                           0, 0, 0, 0, uPC_XMAX, uPC_YMAX, SRCSRC, DSTOR, 0};
  1474. X
  1475. #define IfErrOut(e1,e2,s1,s2) if (e1 e2) {\
  1476. fprintf(stderr, "%s:: %s %s\n", sys_errlist[errno], s1, s2);\
  1477. uPC_fixwind(0);\
  1478. exit(-1);}
  1479. X
  1480. uPC_init()
  1481. {
  1482. /* This routine will ioctl to change 0 size */
  1483. X   int i;
  1484. X   struct uwdata uw;
  1485. X   int uPC_fixwind();
  1486. X   short gw;
  1487. X
  1488. /* Check that we are on the bitmapped window. */
  1489. X   if (iswind() != 0) {
  1490. X      fprintf (stderr, "Sorry--must run from the bitmapped terminal\n");
  1491. X      exit(-1);
  1492. X   }
  1493. X   for (i=1; i<=16; i++) {
  1494. X      if (i != SIGINT && i != SIGFPE)  /* Two are caught in plot.c */
  1495. X         signal (i, uPC_fixwind);
  1496. X   }
  1497. X
  1498. /* Increase the screen size */
  1499. X   uw.uw_x = 0;
  1500. X   uw.uw_y = 0;   /* Leave room for top status line. */
  1501. X   uw.uw_width = uPC_XMAX;      /* 720 */
  1502. X   uw.uw_height = uPC_YMAX;     /* 288 normal--we clobber 12 (top row)*/
  1503. X   uw.uw_uflags = 1;         /* Creates with no border */
  1504. X
  1505. X   IfErrOut (ioctl(1, WIOCSETD, &uw), <0, "ioctl failed on", "WIOCSETD");
  1506. }
  1507. X
  1508. X
  1509. uPC_graphics()
  1510. {
  1511. /* This routine will clear the uPC_display buffer and window. */
  1512. X   register Scr_type *j;
  1513. X   register int i;
  1514. X
  1515. X   j = (Scr_type *)uPC_display;
  1516. X   i = uPC_YSIZE*uPC_XSIZE + 1;
  1517. X
  1518. X   while (--i)
  1519. X      *j++ = 0;
  1520. /*
  1521. X   Position the cursor to the bottom of the screen so when we come back to
  1522. X   text mode we are just below the graph.
  1523. */
  1524. X   printf ("\033[25;1H");
  1525. X
  1526. X   uPC_ur.ur_dstop = DSTSRC;   /* replace (clear screen). */
  1527. X   IfErrOut (ioctl(1, WIOCRASTOP, &uPC_ur), <0,
  1528. X      "ioctl failed", "WIOCRASTOP");
  1529. X   uPC_ur.ur_dstop = DSTOR;   /* Or in (show text) */
  1530. }
  1531. X
  1532. X
  1533. uPC_text()
  1534. {
  1535. /* This routine will flush the display. */
  1536. X
  1537. X   IfErrOut (ioctl(1, WIOCRASTOP, &uPC_ur), <0,
  1538. X      "ioctl failed", "WIOCRASTOP");
  1539. }
  1540. X
  1541. X
  1542. uPC_linetype(linetype)
  1543. int linetype;
  1544. {
  1545. /* This routine records the current linetype. */
  1546. X   if (uPC_cur_linetype != linetype) {
  1547. X      uPC_raster_count = 0;
  1548. X      uPC_cur_linetype = linetype;
  1549. X   }
  1550. }
  1551. X
  1552. X
  1553. uPC_move(x,y)
  1554. unsigned int x,y;
  1555. {
  1556. /* This routine just records x and y in uPC_sx, uPC_sy */
  1557. X   uPC_sx = x;
  1558. X   uPC_sy = y;
  1559. }
  1560. X
  1561. X
  1562. /* Was just (*(a)|=(b)) */
  1563. #define uPC_PLOT(a,b)   (uPC_cur_linetype != 0 ? uPC_plot_word (a,b) :\
  1564. X                                (*(a)|=(b)))
  1565. X
  1566. uPC_plot_word(a,b)
  1567. Scr_type *a, b;
  1568. /*
  1569. X   Weak attempt to make line styles.  The real problem is the aspect
  1570. X   ratio.  This routine is called only when a bit is to be turned on in
  1571. X   a horizontal word.  A better line style routine would know something
  1572. X   about the slope of the line around the current point (in order to
  1573. X   change weighting).
  1574. X
  1575. X   This yields 3 working linetypes plus a usable axis line type.
  1576. */
  1577. {
  1578. /* Various line types */
  1579. X   switch (uPC_cur_linetype) {
  1580. X   case -1:
  1581. X   /* Distinguish between horizontal and vertical axis. */
  1582. X      if (uPC_sx > uPC_XMAX/8 && uPC_sx < 7*uPC_XMAX/8) {
  1583. X      /* Fuzzy tolerance because we don't know exactly where the y axis is */
  1584. X         if (++uPC_raster_count % 2 == 0) *(a) |= b;
  1585. X      }
  1586. X      else {
  1587. X      /* Due to aspect ratio, take every other y pixel and every third x. */
  1588. X         *(a) |= (b & 0x9999);
  1589. X      }
  1590. X   break;
  1591. X   case 1:
  1592. X   case 5:
  1593. X   /* Make a |    |----|    |----| type of line. */
  1594. X      if ((1<<uPC_raster_count) & 0xF0F0) *(a) |= b;
  1595. X      if (++uPC_raster_count > 15) uPC_raster_count = 0;
  1596. X   break;
  1597. X   case 2:
  1598. X   case 6:
  1599. X   /* Make a |----|----|----|--- |    | type of line. */
  1600. X      if ((1<<uPC_raster_count) & 0x0EFFF) *(a) |= b;
  1601. X      if (++uPC_raster_count > 19) uPC_raster_count = 0;
  1602. X   break;
  1603. X   case 3:
  1604. X   case 7:
  1605. X   /* Make a | -  | -  | -  | -  | type of line. */
  1606. X      if ((1<<uPC_raster_count) & 0x4444) *(a) |= b;
  1607. X      if (++uPC_raster_count > 15) uPC_raster_count = 0;
  1608. X   break;
  1609. X   case 4:
  1610. X   case 8:
  1611. X   default:
  1612. X      *(a) |= b;
  1613. X   break;
  1614. X   }
  1615. }
  1616. X
  1617. uPC_vector(x,y)
  1618. unsigned int x,y;
  1619. {
  1620. /* This routine calls line with x,y */
  1621. X   int x1 = uPC_sx, y1=uPC_sy, x2 = x, y2 = y;
  1622. X   register int  c, e, dx, dy, width;
  1623. X   register Scr_type mask, *a;
  1624. X
  1625. /* Record new sx, sy for next call to the vector routine. */
  1626. X   uPC_sx = x2;
  1627. X   uPC_sy = y2;
  1628. X
  1629. X   a = &uPC_display[(uPC_YSIZE - 1) - y1][x1 >> 4];
  1630. X   mask = lookup[x1 & 0x0f];
  1631. X   width = uPC_width;
  1632. X
  1633. X   if ((dx = x2 - x1) > 0) {
  1634. X      if ((dy = y2 - y1) > 0) {
  1635. X         if (dx > dy) {         /* dx > 0, dy > 0, dx > dy */
  1636. X            dy <<= 1;
  1637. X            e = dy - dx;
  1638. X            c = dx + 2;
  1639. X            dx <<= 1;
  1640. X
  1641. X            while (--c) {
  1642. X               uPC_PLOT(a, mask);
  1643. X               if (e >= 0) {
  1644. X                  (Scr_kluge *)a -= width;
  1645. X                  e -= dx;
  1646. X               }
  1647. X               if (mask & uPC_HIGH_BIT) {
  1648. X                  mask = 1;
  1649. X                  a++;
  1650. X               } else
  1651. X                  mask <<= 1;
  1652. X               e += dy;
  1653. X            }
  1654. X         } else {            /* dx > 0, dy > 0, dx <= dy */
  1655. X            dx <<= 1;
  1656. X            e = dx - dy;
  1657. X            c = dy + 2;
  1658. X            dy <<= 1;
  1659. X
  1660. X            while (--c) {
  1661. X               uPC_PLOT(a, mask);
  1662. X               if (e >= 0) {
  1663. X                  if (mask & uPC_HIGH_BIT) {
  1664. X                     mask = 1;
  1665. X                     a++;
  1666. X                  } else
  1667. X                     mask <<= 1;
  1668. X                  e -= dy;
  1669. X               }
  1670. X               (Scr_kluge *)a -= width;
  1671. X               e += dx;
  1672. X            }
  1673. X         }
  1674. X      } else {
  1675. X         dy = -dy;
  1676. X         if (dx > dy) {         /* dx > 0, dy <= 0, dx > dy */
  1677. X            dy <<= 1;
  1678. X            e = dy - dx;
  1679. X            c = dx + 2;
  1680. X            dx <<= 1;
  1681. X
  1682. X            while (--c) {
  1683. X               uPC_PLOT(a, mask);
  1684. X               if (e >= 0) {
  1685. X                  (Scr_kluge *)a += width;
  1686. X                  e -= dx;
  1687. X               }
  1688. X               if (mask & uPC_HIGH_BIT) {
  1689. X                  mask = 1;
  1690. X                  a++;
  1691. X               } else
  1692. X                  mask <<= 1;
  1693. X               e += dy;
  1694. X            }
  1695. X         } else {            /* dx > 0, dy <= 0, dx <= dy */
  1696. X            dx <<= 1;
  1697. X            e = dx - dy;
  1698. X            c = dy + 2;
  1699. X            dy <<= 1;
  1700. X
  1701. X            while (--c) {
  1702. X               uPC_PLOT(a, mask);
  1703. X               if (e >= 0) {
  1704. X                  if (mask & uPC_HIGH_BIT) {
  1705. X                     mask = 1;
  1706. X                     a++;
  1707. X                  } else
  1708. X                     mask <<= 1;
  1709. X                  e -= dy;
  1710. X               }
  1711. X               (Scr_kluge *)a += width;
  1712. X               e += dx;
  1713. X            }
  1714. X         }
  1715. X      }
  1716. X   } else {
  1717. X      dx = -dx;
  1718. X      if ((dy = y2 - y1) > 0) {
  1719. X         if (dx > dy) {         /* dx <= 0, dy > 0, dx > dy */
  1720. X            dy <<= 1;
  1721. X            e = dy - dx;
  1722. X            c = dx + 2;
  1723. X            dx <<= 1;
  1724. X
  1725. X            while (--c) {
  1726. X               uPC_PLOT(a, mask);
  1727. X               if (e >= 0) {
  1728. X                  (Scr_kluge *)a -= width;
  1729. X                  e -= dx;
  1730. X               }
  1731. X               if (mask & 1) {
  1732. X                  mask = uPC_HIGH_BIT;
  1733. X                  a--;
  1734. X               } else
  1735. X                  mask >>= 1;
  1736. X               e += dy;
  1737. X            }
  1738. X         } else {            /* dx <= 0, dy > 0, dx <= dy */
  1739. X            dx <<= 1;
  1740. X            e = dx - dy;
  1741. X            c = dy + 2;
  1742. X            dy <<= 1;
  1743. X
  1744. X            while (--c) {
  1745. X               uPC_PLOT(a, mask);
  1746. X               if (e >= 0) {
  1747. X                  if (mask & 1) {
  1748. X                     mask = uPC_HIGH_BIT;
  1749. X                     a--;
  1750. X                  } else
  1751. X                     mask >>= 1;
  1752. X                  e -= dy;
  1753. X               }
  1754. X               (Scr_kluge *)a -= width;
  1755. X               e += dx;
  1756. X            }
  1757. X         }
  1758. X      } else {
  1759. X         dy = -dy;
  1760. X         if (dx > dy) {         /* dx <= 0, dy <= 0, dx > dy */
  1761. X            dy <<= 1;
  1762. X            e = dy - dx;
  1763. X            c = dx + 2;
  1764. X            dx <<= 1;
  1765. X
  1766. X            while (--c) {
  1767. X               uPC_PLOT(a, mask);
  1768. X               if (e >= 0) {
  1769. X                  (Scr_kluge *)a += width;
  1770. X                  e -= dx;
  1771. X               }
  1772. X               if (mask & 1) {
  1773. X                  mask = uPC_HIGH_BIT;
  1774. X                  a--;
  1775. X               } else
  1776. X                  mask >>= 1;
  1777. X               e += dy;
  1778. X            }
  1779. X         } else {            /* dx <= 0, dy <= 0, dx <= dy */
  1780. X            dx <<= 1;
  1781. X            e = dx - dy;
  1782. X            c = dy + 2;
  1783. X            dy <<= 1;
  1784. X
  1785. X            while (--c) {
  1786. X               uPC_PLOT(a, mask);
  1787. X               if (e >= 0) {
  1788. X                  if (mask & 1) {
  1789. X                     mask = uPC_HIGH_BIT;
  1790. X                     a--;
  1791. X                  } else
  1792. X                     mask >>= 1;
  1793. X                  e -= dy;
  1794. X               }
  1795. X               (Scr_kluge *)a += width;
  1796. X               e += dx;
  1797. X            }
  1798. X         }
  1799. X      }
  1800. X   }
  1801. }
  1802. X
  1803. X
  1804. #ifdef uPC_NOT_USED
  1805. /* Added by Russell Lang, eln272v@monu1.cc.monash.oz
  1806. X   This placement to the nearest character cell worked, and I'm leaving
  1807. X   it here so the calculations involved won't be lost!  (jdc)
  1808. */
  1809. uPC_put_text(x,y,str)
  1810. unsigned int x,y;
  1811. char str[];
  1812. {
  1813. /* This routine puts the text at the cursor location nearest
  1814. X   to (x,y).  Obviously the exact postion would look better */
  1815. X
  1816. /* Just use the ANSI escape sequence CUP (iswind said that was ok!) */
  1817. X   printf ("\033[%d;%dH%s\033[25;1H", (int)(24-(y-uPC_VCHAR/2)*25/uPC_YMAX), 
  1818. X                (int)(x*80/uPC_XMAX), str); 
  1819. X   fflush (stdout);
  1820. }
  1821. #endif
  1822. X
  1823. X
  1824. uPC_put_text(x,y,str)
  1825. unsigned int x,y;
  1826. char str[];
  1827. {
  1828. X   if (uPC_angle == 1)
  1829. X      x += uPC_VCHAR/2;
  1830. X   else
  1831. X      y -= uPC_VCHAR/2;
  1832. X
  1833. X   switch (uPC_angle) {
  1834. X      case 0:
  1835. X         for (; *str; ++str, x += uPC_HCHAR)
  1836. X            uPC_putc (x, y, *str, uPC_angle);
  1837. X      break;
  1838. X      case 1:
  1839. X         for (; *str; ++str, y += uPC_HCHAR)
  1840. X            uPC_putc (x, y, *str, uPC_angle);
  1841. X      break;
  1842. X   }
  1843. }
  1844. X
  1845. X
  1846. uPC_putc (x, y, c, angle)
  1847. unsigned int x, y;
  1848. int c, angle;
  1849. /*
  1850. X   Put a character at an x,y location in the bit map (using the fnt5x9
  1851. X   array.  This is mostly just copied from the bitmap.c driver.
  1852. */
  1853. {
  1854. X   int i, j, k;
  1855. X   register Scr_type mask, *a;
  1856. X   char_row fc;
  1857. X   unsigned int pixelon;
  1858. X
  1859. X   i = c - ' ';
  1860. X   for (j=0; j<FNT5X9_VBITS; j++) {
  1861. X      fc = fnt5x9[i][j];
  1862. X      for (k=0; k<FNT5X9_HBITS; k++) {
  1863. X         pixelon = ((unsigned int)(fc))>>k & 1;
  1864. X         if (pixelon) {
  1865. X            switch (angle) {
  1866. X            case 0:
  1867. X               mask = lookup[x+k+1 & 0x0f];
  1868. X               a = &uPC_display[(uPC_YSIZE - 1) - (y+j)][(x+k+1) >> 4];
  1869. X            break;
  1870. X            case 1:
  1871. X               mask = lookup[x-j & 0x0f];
  1872. X               a = &uPC_display[(uPC_YSIZE - 1) - (y+k+1)][(x-j) >> 4];
  1873. X            break;
  1874. X            }
  1875. X            *(a) |= (mask);  /* see uPC_PLOT macro */
  1876. X         }
  1877. X      }
  1878. X   }
  1879. }
  1880. X
  1881. X
  1882. uPC_text_angle (ang)
  1883. int ang;
  1884. {
  1885. X   uPC_angle = ang;
  1886. X   return TRUE;
  1887. }
  1888. X
  1889. X
  1890. uPC_reset()
  1891. {
  1892. /* Reset window to normal size. */
  1893. X   uPC_fixwind (0);
  1894. }
  1895. X
  1896. X
  1897. X
  1898. uPC_fixwind(signo)
  1899. int signo;
  1900. {
  1901. X   static struct uwdata wreset = { 0, 12, 720, 288, 0x1};
  1902. X   struct utdata ut;
  1903. X
  1904. /* Reset the window to the right size. */
  1905. X   ioctl(1, WIOCSETD, &wreset);   /* 0, not wncur here! */
  1906. X
  1907. /* Scroll the screen once. (avoids typing over the same line) */
  1908. X   fprintf (stderr, "\n");
  1909. X
  1910. X   if (signo) {
  1911. X      if (signo == SIGILL || signo == SIGTRAP || signo == SIGPWR)
  1912. X         signal (signo, SIG_DFL);
  1913. X      kill (0,signo);  /* Redo the signal (as if we never trapped it). */
  1914. X   }
  1915. }
  1916. SHAR_EOF
  1917. chmod 0644 gnuplot/term/unixpc.trm ||
  1918. echo 'restore of gnuplot/term/unixpc.trm failed'
  1919. Wc_c="`wc -c < 'gnuplot/term/unixpc.trm'`"
  1920. test 14242 -eq "$Wc_c" ||
  1921.     echo 'gnuplot/term/unixpc.trm: original size 14242, current size' "$Wc_c"
  1922. rm -f _shar_wnt_.tmp
  1923. fi
  1924. # ============= gnuplot/term/unixplot.trm ==============
  1925. if test -f 'gnuplot/term/unixplot.trm' -a X"$1" != X"-c"; then
  1926.     echo 'x - skipping gnuplot/term/unixplot.trm (File already exists)'
  1927.     rm -f _shar_wnt_.tmp
  1928. else
  1929. > _shar_wnt_.tmp
  1930. echo 'x - extracting gnuplot/term/unixplot.trm (Text)'
  1931. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/unixplot.trm' &&
  1932. /* GNUPLOT -- unixplot.trm */
  1933. /*
  1934. X * Copyright (C) 1990   
  1935. X *
  1936. X * Permission to use, copy, and distribute this software and its
  1937. X * documentation for any purpose with or without fee is hereby granted, 
  1938. X * provided that the above copyright notice appear in all copies and 
  1939. X * that both that copyright notice and this permission notice appear 
  1940. X * in supporting documentation.
  1941. X *
  1942. X * Permission to modify the software is granted, but not the right to
  1943. X * distribute the modified code.  Modifications are to be distributed 
  1944. X * as patches to released version.
  1945. X *  
  1946. X * This software  is provided "as is" without express or implied warranty.
  1947. X * 
  1948. X * This file is included by ../term.c.
  1949. X *
  1950. X * This terminal driver supports:
  1951. X *  Unix plot(5) graphics language
  1952. X *
  1953. X * AUTHORS
  1954. X *  Colin Kelley, Thomas Williams, Russell Lang
  1955. X * 
  1956. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1957. X * 
  1958. X */
  1959. X
  1960. /*
  1961. Unixplot library writes to stdout.  A fix was put in place by
  1962. ..!arizona!naucse!jdc to let set term and set output redirect
  1963. stdout.  All other terminals write to outfile.
  1964. */
  1965. X
  1966. #define UP_XMAX 4096
  1967. #define UP_YMAX 4096
  1968. X
  1969. #define UP_XLAST (UP_XMAX - 1)
  1970. #define UP_YLAST (UP_YMAX - 1)
  1971. X
  1972. #define UP_VCHAR (UP_YMAX/30)    /* just a guess--no way to know this! */
  1973. #define UP_HCHAR (UP_XMAX/60)    /* just a guess--no way to know this! */
  1974. #define UP_VTIC (UP_YMAX/80)
  1975. #define UP_HTIC (UP_XMAX/80)
  1976. X
  1977. UP_init()
  1978. {
  1979. X    openpl();
  1980. X    space(0, 0, UP_XMAX, UP_YMAX);
  1981. }
  1982. X
  1983. X
  1984. UP_graphics()
  1985. {
  1986. X    erase();
  1987. }
  1988. X
  1989. X
  1990. UP_text()
  1991. {
  1992. }
  1993. X
  1994. X
  1995. UP_linetype(linetype)
  1996. int linetype;
  1997. SHAR_EOF
  1998. true || echo 'restore of gnuplot/term/unixplot.trm failed'
  1999. fi
  2000. echo 'End of  part 18'
  2001. echo 'File gnuplot/term/unixplot.trm is continued in part 19'
  2002. echo 19 > _shar_seq_.tmp
  2003. exit 0
  2004.  
  2005. exit 0 # Just in case...
  2006. -- 
  2007. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  2008. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  2009. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  2010. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  2011.