home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume24 / gnuplot3 / part19 < prev    next >
Text File  |  1991-10-27  |  49KB  |  1,729 lines
  1. Newsgroups: comp.sources.misc
  2. From: gershon%gr@cs.utah.edu (Elber Gershon)
  3. Subject:  v24i041:  gnuplot3 - interactive function plotting utility, Part19/26
  4. Message-ID: <1991Oct28.002356.12670@sparky.imd.sterling.com>
  5. X-Md4-Signature: be5330d9be4344824f9193dd4c28c6ed
  6. Date: Mon, 28 Oct 1991 00:23:56 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 41
  11. Archive-name: gnuplot3/part19
  12. Environment: UNIX, MS-DOS, VMS
  13. Supersedes: gnuplot2: Volume 11, Issue 65-79
  14.  
  15. #!/bin/sh
  16. # this is Part.19 (part 19 of a multipart archive)
  17. # do not concatenate these parts, unpack them in order with /bin/sh
  18. # file gnuplot/term/unixplot.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" != 19; 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/unixplot.trm'
  34. else
  35. echo 'x - continuing file gnuplot/term/unixplot.trm'
  36. sed 's/^X//' << 'SHAR_EOF' >> 'gnuplot/term/unixplot.trm' &&
  37. {
  38. static char *lt[2+5] = {"solid", "longdashed", "solid", "dotted","shortdashed",
  39. X    "dotdashed", "longdashed"};
  40. X
  41. X    if (linetype >= 5)
  42. X        linetype %= 5;
  43. X    linemod(lt[linetype+2]);
  44. }
  45. X
  46. X
  47. UP_move(x,y)
  48. unsigned int x,y;
  49. {
  50. X    move(x,y);
  51. }
  52. X
  53. X
  54. UP_vector(x,y)
  55. unsigned int x,y;
  56. {
  57. X    cont(x,y);
  58. }
  59. X
  60. X
  61. UP_put_text(x,y,str)
  62. unsigned int x,y;
  63. char str[];
  64. {
  65. X    UP_move(x+UP_HCHAR/2,y+UP_VCHAR/5);
  66. X    label(str);
  67. }
  68. X
  69. UP_reset()
  70. {
  71. X    closepl();
  72. }
  73. X
  74. SHAR_EOF
  75. echo 'File gnuplot/term/unixplot.trm is complete' &&
  76. chmod 0666 gnuplot/term/unixplot.trm ||
  77. echo 'restore of gnuplot/term/unixplot.trm failed'
  78. Wc_c="`wc -c < 'gnuplot/term/unixplot.trm'`"
  79. test 1929 -eq "$Wc_c" ||
  80.     echo 'gnuplot/term/unixplot.trm: original size 1929, current size' "$Wc_c"
  81. rm -f _shar_wnt_.tmp
  82. fi
  83. # ============= gnuplot/term/v384.trm ==============
  84. if test -f 'gnuplot/term/v384.trm' -a X"$1" != X"-c"; then
  85.     echo 'x - skipping gnuplot/term/v384.trm (File already exists)'
  86.     rm -f _shar_wnt_.tmp
  87. else
  88. > _shar_wnt_.tmp
  89. echo 'x - extracting gnuplot/term/v384.trm (Text)'
  90. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/v384.trm' &&
  91. /* GNUPLOT - v384.trm */
  92. /*
  93. X * Copyright (C) 1990   
  94. X *
  95. X * Permission to use, copy, and distribute this software and its
  96. X * documentation for any purpose with or without fee is hereby granted, 
  97. X * provided that the above copyright notice appear in all copies and 
  98. X * that both that copyright notice and this permission notice appear 
  99. X * in supporting documentation.
  100. X *
  101. X * Permission to modify the software is granted, but not the right to
  102. X * distribute the modified code.  Modifications are to be distributed 
  103. X * as patches to released version.
  104. X *  
  105. X * This software  is provided "as is" without express or implied warranty.
  106. X * 
  107. X * This file is included by ../term.c.
  108. X *
  109. X * This terminal driver supports:
  110. X *  Vectrix 384 - works with tandy color printer as well
  111. X *
  112. X * AUTHORS
  113. X *   roland@moncskermit.OZ (Roland Yap) 
  114. X * 
  115. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  116. X * 
  117. X */
  118. X
  119. /*
  120. X *    Vectrix 384 driver - works with tandy color printer as well
  121. X *  in reverse printing 8 color mode.
  122. X *  This doesn't work on Vectrix 128 because it redefines the
  123. X *  color table. It can be hacked to work on the 128 by changing
  124. X *  the colours but then it will probably not print best. The color
  125. X *  table is purposely designed so that it will print well
  126. X *
  127. X */
  128. X
  129. #define V384_XMAX 630
  130. #define V384_YMAX 480
  131. X
  132. #define V384_XLAST (V384_XMAX - 1)
  133. #define V384_YLAST (V384_YMAX - 1)
  134. X
  135. #define V384_VCHAR    12
  136. #define V384_HCHAR    7
  137. #define V384_VTIC    8
  138. #define V384_HTIC    7
  139. X
  140. X
  141. V384_init()
  142. {
  143. X    fprintf(outfile,"%c%c  G0   \n",27,18);
  144. X    fprintf(outfile,"Q 0 8\n");
  145. X    fprintf(outfile,"0 0 0\n");
  146. X    fprintf(outfile,"255 0 0\n");
  147. X    fprintf(outfile,"0 255 0\n");
  148. X    fprintf(outfile,"0 0 255\n");
  149. X    fprintf(outfile,"0 255 255\n");
  150. X    fprintf(outfile,"255 0 255\n");
  151. X    fprintf(outfile,"255 255 0\n");
  152. X    fprintf(outfile,"255 255 255\n");
  153. }
  154. X
  155. X
  156. V384_graphics()
  157. {
  158. X    fprintf(outfile,"%c%c E0 RE N 65535\n",27,18);
  159. }
  160. X
  161. X
  162. V384_text()
  163. {
  164. X    fprintf(outfile,"%c%c\n",27,17);
  165. }
  166. X
  167. X
  168. V384_linetype(linetype)
  169. int linetype;
  170. {
  171. static int color[]= {
  172. X        1 /* red */,
  173. X        2 /* green */,
  174. X        3 /* blue */,
  175. X        4 /* cyan */,
  176. X        5 /* magenta */,
  177. X        6 /* yellow */, /* not a good color so not in use at the moment */
  178. X        7 /* white */
  179. X    };
  180. X        
  181. X    if (linetype < 0)
  182. X        linetype=6;
  183. X    else
  184. X        linetype %= 5;
  185. X    fprintf(outfile,"C %d\n",color[linetype]);
  186. }
  187. X
  188. X
  189. V384_move(x,y)
  190. unsigned int x,y;
  191. {
  192. X    fprintf(outfile,"M %d %d\n",x+20,y);
  193. }
  194. X
  195. X
  196. V384_vector(x,y)
  197. unsigned int x,y;
  198. {
  199. X    fprintf(outfile,"L %d %d\n",x+20,y);
  200. }
  201. X
  202. X
  203. V384_put_text (x, y, str)
  204. unsigned int x, y;
  205. char str[];
  206. {
  207. X    V384_move (x, y + V384_VCHAR/2);
  208. X    fprintf (outfile, "$%s\n", str);
  209. }
  210. X
  211. X
  212. V384_reset()
  213. {
  214. }
  215. X
  216. SHAR_EOF
  217. chmod 0666 gnuplot/term/v384.trm ||
  218. echo 'restore of gnuplot/term/v384.trm failed'
  219. Wc_c="`wc -c < 'gnuplot/term/v384.trm'`"
  220. test 2579 -eq "$Wc_c" ||
  221.     echo 'gnuplot/term/v384.trm: original size 2579, current size' "$Wc_c"
  222. rm -f _shar_wnt_.tmp
  223. fi
  224. # ============= gnuplot/term/vws.trm ==============
  225. if test -f 'gnuplot/term/vws.trm' -a X"$1" != X"-c"; then
  226.     echo 'x - skipping gnuplot/term/vws.trm (File already exists)'
  227.     rm -f _shar_wnt_.tmp
  228. else
  229. > _shar_wnt_.tmp
  230. echo 'x - extracting gnuplot/term/vws.trm (Text)'
  231. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/vws.trm' &&
  232. /* GNUPLOT - vws.trm */
  233. /*
  234. X * Copyright (C) 1990
  235. X *
  236. X * Permission to use, copy, and distribute this software and its
  237. X * documentation for any purpose with or without fee is hereby granted,
  238. X * provided that the above copyright notice appear in all copies and
  239. X * that both that copyright notice and this permission notice appear
  240. X * in supporting documentation.
  241. X *
  242. X * Permission to modify the software is granted, but not the right to
  243. X * distribute the modified code.  Modifications are to be distributed
  244. X * as patches to released version.
  245. X *
  246. X * This software  is provided "as is" without express or implied warranty.
  247. X *
  248. X * This file is included by ../term.c.
  249. X *
  250. X * This terminal driver supports:
  251. X *   IRIS terminals
  252. X *
  253. X * AUTHORS
  254. X *   Walter Speth
  255. X *           BITNET: SPETH@DBNPIB5
  256. X *
  257. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  258. X *
  259. X */
  260. X 
  261. #define VWS_XMAX   1024
  262. #define VWS_YMAX   780
  263. #define VWS_VCHAR  25
  264. #define VWS_HCHAR  15
  265. #define VWS_VTIC   10
  266. #define VWS_HTIC   10
  267. X 
  268. #include stdio
  269. /*
  270. #include math
  271. #include ssdef
  272. */
  273. #include descrip
  274. X 
  275. #include <uisentry.h>
  276. #include <uisusrdef.h>
  277. X 
  278. X 
  279. #define DEFAULT_ATTR 0
  280. #define OVER_ATTR 1
  281. #define ERAS_ATTR 2
  282. #define BIS_ATTR 3
  283. #define COLOR_ATTR 4
  284. #define TEXT_ATTR 5
  285. #define LINE_ATTR 6
  286. #define BACK_ATTR 7
  287. X 
  288. X 
  289. float current_x, current_y;
  290. X 
  291. X 
  292. int vd_id, wd_id;
  293. int vcm_id;
  294. X 
  295. static $DESCRIPTOR(ws_devname, "SYS$WORKSTATION");
  296. static $DESCRIPTOR(vd_title, "gnuplot");
  297. X 
  298. static float x0, y0, xsiz, ysiz,
  299. X             wc_xmin_new, wc_ymin_new, wc_xmax_new, wc_ymax_new,
  300. X             wc_xmin, wc_ymin, wc_xmax, wc_ymax,
  301. X             vd_width, vd_height;
  302. X 
  303. VWS_resize_ast()
  304. { uis$resize_window(&vd_id, &wd_id, &x0, &y0, &xsiz, &ysiz,
  305. X                     &wc_xmin, &wc_ymin, &wc_xmax, &wc_ymax);
  306. X  replotrequest();
  307. }
  308. /****************************************************************************/
  309. VWS_init()
  310. X 
  311. X 
  312. {
  313. X  int i;
  314. X  int cattr;
  315. X  $DESCRIPTOR(a_font,"DTABER0003WK00PG0001UZZZZ02A000");
  316. X 
  317. X  vd_width  = 14;
  318. X  vd_height = 10; /* aspect sqrt(2) as DIN A paper */
  319. X 
  320. X  wc_xmin = 0.0;
  321. X  wc_ymin = 0.0;
  322. X  wc_xmax = (float) VWS_XMAX;
  323. X  wc_ymax = (float) VWS_YMAX;
  324. X 
  325. X  vcm_id = uis$create_color_map(&8);
  326. X 
  327. X  vd_id = uis$create_display(&wc_xmin, &wc_ymin, &wc_xmax, &wc_ymax,
  328. X                             &vd_width, &vd_height, &vcm_id);
  329. X 
  330. X  uis$set_color(&vd_id, &0, &.5, &.5, &.5);
  331. X  uis$set_color(&vd_id, &1, &0.0, &0.0, &0.0);
  332. X  uis$set_color(&vd_id, &2, &0.0, &0.0, &0.0);
  333. X  uis$set_color(&vd_id, &3, &0.0, &0.0, &0.0);
  334. X  uis$set_color(&vd_id, &4, &0.0, &0.0, &0.0);
  335. X  uis$set_color(&vd_id, &5, &0.0, &0.0, &0.0);
  336. X  uis$set_color(&vd_id, &6, &0.0, &0.0, &0.0);
  337. X  uis$set_color(&vd_id, &7, &0.0, &0.0, &0.0);
  338. X 
  339. /*
  340. X  uis$set_color(&vd_id, &2, &.2, &.2, &.2);
  341. X  uis$set_color(&vd_id, &3, &.3, &.3, &.3);
  342. X  uis$set_color(&vd_id, &4, &.4, &.4, &.4);
  343. X  uis$set_color(&vd_id, &5, &.5, &.5, &.5);
  344. X  uis$set_color(&vd_id, &6, &.6, &.6, &.6);
  345. X  uis$set_color(&vd_id, &7, &.7, &.7, &.7);
  346. X 
  347. /* perhaps better for color terms (which I do not have)
  348. X  uis$set_color(&vd_id, &0, &0.0, &0.0, &0.0);
  349. X  uis$set_color(&vd_id, &1, &0.9, &0.0, &0.0);
  350. X  uis$set_color(&vd_id, &2, &0.0, &0.9, &0.0);
  351. X  uis$set_color(&vd_id, &3, &0.9, &0.9, &0.0);
  352. X  uis$set_color(&vd_id, &4, &0.0, &0.0, &0.9);
  353. X  uis$set_color(&vd_id, &5, &0.9, &0.0, &0.9);
  354. X  uis$set_color(&vd_id, &6, &0.0, &0.9, &0.9);
  355. X  uis$set_color(&vd_id, &7, &0.9, &0.9, &0.9);
  356. /*
  357. */
  358. X  uis$disable_display_list(&vd_id);
  359. X 
  360. X  wd_id = uis$create_window(&vd_id, &ws_devname, &vd_title,
  361. X                            &wc_xmin, &wc_ymin, &wc_xmax, &wc_ymax,
  362. X                            &vd_width, &vd_height);
  363. X 
  364. X  uis$set_resize_ast(&vd_id, &wd_id, &VWS_resize_ast, &0,
  365. X                     &x0, &y0, &xsiz, &ysiz,
  366. X                     &wc_xmin_new, &wc_ymin_new, &wc_xmax_new, &wc_ymax_new);
  367. X 
  368. X  uis$set_writing_mode(&vd_id, &DEFAULT_ATTR, &OVER_ATTR, &UIS$C_MODE_OVER);
  369. X  uis$set_writing_mode(&vd_id, &DEFAULT_ATTR, &ERAS_ATTR, &UIS$C_MODE_ERAS);
  370. X  uis$set_writing_mode(&vd_id, &DEFAULT_ATTR, &BIS_ATTR, &UIS$C_MODE_BIS);
  371. /*
  372. X  for (i=0; i<8; i++) {
  373. X    cattr = COLOR_ATTR+i;
  374. X    uis$set_writing_index(&vd_id, ©_ATTR, &cattr, &i);
  375. X    }
  376. */
  377. X  uis$set_background_index(&vd_id, &DEFAULT_ATTR, &BACK_ATTR, &0);
  378. X  uis$set_writing_mode(&vd_id, &DEFAULT_ATTR, &TEXT_ATTR, &UIS$C_MODE_OVER);
  379. X  uis$set_font(&vd_id,&TEXT_ATTR,&TEXT_ATTR,&a_font);
  380. X  uis$set_char_size(&vd_id,&TEXT_ATTR,&TEXT_ATTR,&0,
  381. X                    &(float)VWS_HCHAR,&(float)VWS_VCHAR);
  382. X  uis$set_line_style(&vd_id,&LINE_ATTR,&LINE_ATTR,&0xFFFFFFFF);
  383. }
  384. X 
  385. /****************************************************************************/
  386. X 
  387. VWS_reset()
  388. {
  389. X  uis$delete_display(&vd_id);
  390. }
  391. /****************************************************************************/
  392. VWS_scale(xs,ys)
  393. int xs,ys;
  394. {
  395. X        return FALSE;
  396. }
  397. /****************************************************************************/
  398. VWS_graphics()
  399. {
  400. X    uis$erase(&vd_id, &wc_xmin, &wc_ymin, &wc_xmax, &wc_ymax);
  401. }
  402. /****************************************************************************/
  403. VWS_text()
  404. {
  405. }
  406. /****************************************************************************/
  407. VWS_move(x,y)
  408. int x,y;
  409. {
  410. X  current_x= (float)(x);
  411. X  current_y= (float)(y);
  412. }
  413. /****************************************************************************/
  414. VWS_vector(x,y)
  415. int x,y;
  416. { int col;
  417. X  float fx,fy;
  418. X  fx=(float) x;
  419. X  fy=(float) y;
  420. X 
  421. X      uis$line(&vd_id, &LINE_ATTR,
  422. X               ¤t_x, ¤t_y, &fx, &fy);
  423. X      VWS_move (x,y);
  424. }
  425. /****************************************************************************/
  426. VWS_linetype(lt)
  427. int lt;
  428. {
  429. long int lstyle[9]={    0xffffffff,
  430. X                        0Xff00ff00,
  431. X                        0xffffff00,
  432. X                        0xffff0000,
  433. X                        0xf0f0f0f0,
  434. X                        0Xfff0fff0,
  435. X                        0xf000f000,
  436. X                        0xa5a5a5af,
  437. X                        0xf00f00f0 };
  438. X 
  439. X  switch(lt) {
  440. case -1: uis$set_line_style(&vd_id,&LINE_ATTR,&LINE_ATTR,&0xFFFFFFFF);
  441. X         uis$set_line_width(&vd_id,&LINE_ATTR,&LINE_ATTR,&1.5);
  442. X         break;
  443. case -2: uis$set_line_style(&vd_id,&LINE_ATTR,&LINE_ATTR,&0xFFFFFFFF);
  444. X         uis$set_line_width(&vd_id,&LINE_ATTR,&LINE_ATTR,&2.0);
  445. X         break;
  446. /*
  447. default:  uis$set_line_style(&vd_id,&LINE_ATTR,&LINE_ATTR,&lstyle[lt % 8]);
  448. X          makes part of curve disappear on my workstation
  449. */
  450. default:  uis$set_line_style(&vd_id,&LINE_ATTR,&LINE_ATTR,&0xFFFFFFFF);
  451. X         uis$set_line_width(&vd_id,&LINE_ATTR,&LINE_ATTR,&1.0);
  452. }
  453. }
  454. X 
  455. /****************************************************************************/
  456. static int justify_mode =CENTRE,up;;
  457. X 
  458. VWS_put_text(x,y,str)
  459. int x,y; char* str;
  460. {
  461. X  float fx,fy, thih, twid;
  462. X 
  463. X 
  464. /* uis$text parameter is descriptor string not character string */
  465. X 
  466. X  struct dsc$descriptor_s textline = {0,DSC$K_DTYPE_T,DSC$K_CLASS_S,""};
  467. X 
  468. X 
  469. X  textline.dsc$a_pointer = str;
  470. X  textline.dsc$w_length = strlen(textline.dsc$a_pointer);
  471. X  uis$measure_text(&vd_id,&TEXT_ATTR,&textline,&twid,&thih);
  472. X  fx=(float)x;
  473. X  fy=(float)y;
  474. X 
  475. X  switch (justify_mode) {
  476. X  case LEFT : fy+=thih/2.;
  477. X              break;
  478. X  case RIGHT : fy+=thih/2.;
  479. X               fx-=twid;
  480. X              break;
  481. X 
  482. X  case CENTRE : fy+=thih/2.;
  483. X               fx-=twid/2;
  484. X              break;
  485. X  };
  486. X 
  487. X  uis$text(&vd_id,&TEXT_ATTR,&textline,&fx,&fy);
  488. X     /* write to Example Viewport window */
  489. X 
  490. X 
  491. }
  492. /****************************************************************************/
  493. VWS_text_angle(ang)
  494. int ang;
  495. {
  496. X  float degrees;
  497. X  degrees=90.*(up=ang);
  498. X  uis$set_text_slope (&vd_id, &TEXT_ATTR, &TEXT_ATTR, °rees);
  499. return TRUE;
  500. }
  501. /****************************************************************************/
  502. VWS_justify_text(mode)
  503. int mode;
  504. { justify_mode=mode;
  505. return TRUE;
  506. }
  507. /****************************************************************************/
  508. VWS_point(x,y,point)
  509. int x,y,point;
  510. {
  511. do_point(x,y,point);
  512. }
  513. /****************************************************************************/
  514. VWS_arrow(sx,sy,ex,ey)
  515. int sx,sy,ex,ey;
  516. {
  517. do_arrow(sx,sy,ex,ey);
  518. }
  519. SHAR_EOF
  520. chmod 0644 gnuplot/term/vws.trm ||
  521. echo 'restore of gnuplot/term/vws.trm failed'
  522. Wc_c="`wc -c < 'gnuplot/term/vws.trm'`"
  523. test 8014 -eq "$Wc_c" ||
  524.     echo 'gnuplot/term/vws.trm: original size 8014, current size' "$Wc_c"
  525. rm -f _shar_wnt_.tmp
  526. fi
  527. # ============= gnuplot/term/x11.trm ==============
  528. if test -f 'gnuplot/term/x11.trm' -a X"$1" != X"-c"; then
  529.     echo 'x - skipping gnuplot/term/x11.trm (File already exists)'
  530.     rm -f _shar_wnt_.tmp
  531. else
  532. > _shar_wnt_.tmp
  533. echo 'x - extracting gnuplot/term/x11.trm (Text)'
  534. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/x11.trm' &&
  535. /*
  536. X *    x11.trm  --- inboard terminal driver for X11
  537. X */
  538. X
  539. #define X11_XMAX 4096
  540. #define X11_YMAX 4096
  541. X
  542. /* approximations for typical font/screen sizes */
  543. #define X11_VCHAR (X11_YMAX/25) 
  544. #define X11_HCHAR (X11_XMAX/100) 
  545. #define X11_VTIC (X11_YMAX/100)
  546. #define X11_HTIC (X11_XMAX/150)
  547. X
  548. #define X11_nopts 22
  549. char X11_opts[X11_nopts][20] = {
  550. X   "-iconic", "-rv", "-reverse", "+rv", "-synchronous", 
  551. X   "-display", "-geometry", "-bg", "-background", "-bd", "-bordercolor", "-bw",
  552. X   "-borderwidth", "-fg", "-foreground", "-fn", "-font", "-name", 
  553. X   "-selectionTimeout", "-title", "-xnllanguage", "-xrm" 
  554. X   };
  555. int X11_optarg[X11_nopts] = { 
  556. X   0, 0, 0, 0, 0,
  557. X   1, 1, 1, 1, 1, 1, 1,
  558. X   1, 1, 1, 1, 1, 1, 
  559. X   1, 1, 1, 1
  560. X   };
  561. X
  562. FILE *X11_pipe, *popen();
  563. char X11_command[1024]= "gnuplot_x11 -name gnuplot";
  564. X
  565. X
  566. /*   X11_args - scan gnuplot command line for standard X Toolkit options */
  567. X
  568. XX11_args(argc, argv) int argc; char *argv[]; {
  569. X   int nx11 = 0, n;
  570. X
  571. X   while(++argv, --argc > 0) {
  572. X      for (n=0; n<X11_nopts; n++) {
  573. X     if (!strcmp(*argv, X11_opts[n])) {
  574. X        strcat(X11_command, " ");
  575. X        strcat(X11_command, *argv); 
  576. X        if (X11_optarg[n]) {
  577. X           if (--argc <= 0) return(nx11);
  578. X           strcat(X11_command, " \"");
  579. X           strcat(X11_command, *++argv); 
  580. X           strcat(X11_command, "\"");
  581. X           nx11++;
  582. X           }
  583. X        nx11++; break;
  584. X        }
  585. X     }
  586. X      if (n == X11_nopts) break; 
  587. X      }
  588. X   return(nx11);
  589. X   }
  590. X
  591. #ifdef ULTRIX_KLUDGE
  592. #define X11_ULTRIX_KLUDGE fprintf (X11_pipe, "E\n"); fflush (X11_pipe);
  593. #else
  594. #define X11_ULTRIX_KLUDGE 
  595. #endif
  596. X
  597. XX11_init() { X11_pipe = popen(X11_command, "w"); }
  598. X
  599. XX11_reset() { fprintf(X11_pipe, "R\n"); fflush(X11_pipe); pclose(X11_pipe); }
  600. X
  601. XX11_text() { fprintf(X11_pipe, "E\n"); fflush(X11_pipe); X11_ULTRIX_KLUDGE }
  602. X
  603. XX11_graphics() { fprintf(X11_pipe, "G\n"); }
  604. X
  605. XX11_move(x,y) unsigned int x,y; { fprintf(X11_pipe, "M%04d%04d\n", x, y); }
  606. X
  607. XX11_vector(x,y) unsigned int x,y; { fprintf(X11_pipe, "V%04d%04d\n", x, y); }
  608. X
  609. XX11_linetype(lt) int lt; { fprintf(X11_pipe, "L%04d\n", lt); }
  610. X
  611. XX11_put_text(x,y,str) unsigned int x,y; char str[]; {
  612. X   fprintf(X11_pipe, "T%04d%04d%s\n", x, y, str);
  613. X   }
  614. XX11_justify_text(mode) enum JUSTIFY mode; {
  615. X   fprintf(X11_pipe, "J%04d\n", mode);
  616. X   return(TRUE);
  617. X   }
  618. SHAR_EOF
  619. chmod 0644 gnuplot/term/x11.trm ||
  620. echo 'restore of gnuplot/term/x11.trm failed'
  621. Wc_c="`wc -c < 'gnuplot/term/x11.trm'`"
  622. test 2240 -eq "$Wc_c" ||
  623.     echo 'gnuplot/term/x11.trm: original size 2240, current size' "$Wc_c"
  624. rm -f _shar_wnt_.tmp
  625. fi
  626. # ============= gnuplot/term/gpr.trm ==============
  627. if test -f 'gnuplot/term/gpr.trm' -a X"$1" != X"-c"; then
  628.     echo 'x - skipping gnuplot/term/gpr.trm (File already exists)'
  629.     rm -f _shar_wnt_.tmp
  630. else
  631. > _shar_wnt_.tmp
  632. echo 'x - extracting gnuplot/term/gpr.trm (Text)'
  633. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/gpr.trm' &&
  634. /* GNUPLOT - gpr.trm */
  635. /*
  636. X * Copyright (C) 1990   
  637. X *
  638. X * Permission to use, copy, and distribute this software and its
  639. X * documentation for any purpose with or without fee is hereby granted, 
  640. X * provided that the above copyright notice appear in all copies and 
  641. X * that both that copyright notice and this permission notice appear 
  642. X * in supporting documentation.
  643. X *
  644. X * Permission to modify the software is granted, but not the right to
  645. X * distribute the modified code.  Modifications are to be distributed 
  646. X * as patches to released version.
  647. X *  
  648. X * This software  is provided "as is" without express or implied warranty.
  649. X * 
  650. X * This file is included by ../term.c.
  651. X *
  652. X * This terminal driver supports:
  653. X *   APOLLO's GPR windowing system
  654. X *
  655. X * AUTHORS
  656. X *  Michael Aramini
  657. X *  Roque D Oliveira , oliveria@caen.engin.umich.edu
  658. X * 
  659. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  660. X * 
  661. X */
  662. #include <apollo/base.h>
  663. #include <apollo/error.h>
  664. #include <apollo/gpr.h>
  665. #include <apollo/pad.h>
  666. /* landscape window */
  667. /*
  668. #define GPR_XMAX 720
  669. #define GPR_YMAX 450
  670. */
  671. /* portrait window */
  672. #define GPR_XMAX 585
  673. #define GPR_YMAX 735
  674. X
  675. #define GPR_XLAST (GPR_XMAX - 1)
  676. #define GPR_YLAST (GPR_YMAX - 1)
  677. X
  678. #define GPR_VCHAR 19
  679. #define GPR_HCHAR 10
  680. #define GPR_VTIC (GPR_YMAX/80)
  681. #define GPR_HTIC (GPR_XMAX/80)
  682. X
  683. gpr_$direction_t  gpr_path=gpr_$right;
  684. int               gpr_ang=0;            /* text angle, 0=horizontal, 1=vertical */
  685. enum JUSTIFY      gpr_justify=LEFT;     /* text is flush left */
  686. X
  687. static status_$t  status;
  688. unsigned int      DEBUG    = 0;         /* set it to 1 when debugging program */
  689. X
  690. X
  691. static void check(messagex)
  692. char *messagex;
  693. {
  694. X  if (status.all = status_$ok)
  695. X  {
  696. X    error_$print(status);
  697. X    printf("Error occurred while %s.\n", messagex);
  698. X  }
  699. }
  700. X
  701. /* return whether stdout is a DM pad . Called by term.c */
  702. gpr_isa_pad()
  703. {
  704. X    pad_$isa(1, &status);
  705. X    return (status.all == status_$ok);
  706. }
  707. X
  708. X
  709. GPR_init()
  710. {
  711. X  gpr_$offset_t dm_bitmap_size;
  712. X  gpr_$bitmap_desc_t dm_bitmap_desc;
  713. X  pad_$window_desc_t window;
  714. X  short font_id;
  715. X  stream_$id_t stream_id;
  716. X  static gpr_$rgb_plane_t  hi_plane;
  717. X  static gpr_$disp_char_t  display_characteristics;
  718. X  static float             screen_size_r_width,screen_size_r_height ;
  719. X  static short int         disp_len = sizeof(gpr_$disp_char_t);
  720. X  static short int         disp_len_returned;
  721. X
  722. X
  723. X  /* open a pad to do graphics in */
  724. X  window.top    = 0;
  725. X  window.left   = 0;
  726. X  window.width  = GPR_XMAX + 10; /* 10 accounts for width of window border */
  727. X  window.height = GPR_YMAX + 35; /* 35 accounts for height of window border */
  728. X  pad_$create_window("",(short)0,pad_$transcript,(short)1,window,&stream_id,&status);
  729. X  check("pad_$create_window");
  730. X
  731. /*  pad_$set_full_window(stream_id,(short) 1,&window, &status); */
  732. /*  pad_$set_border (stream_id,(short) 1, true, &status); */
  733. X  pad_$set_scale (stream_id,(short) 1,(short) 1, &status);
  734. X  pad_$set_auto_close(stream_id, (short) 1, true, &status );
  735. X
  736. X  gpr_$inq_disp_characteristics(gpr_$direct,stream_id,disp_len,&display_characteristics,&disp_len_returned,&status);
  737. X  check("in gpr_$inq_display_characteristics");
  738. X  screen_size_r_width    = (float) display_characteristics.x_window_size;    /*x_window_size in pixels */
  739. X  screen_size_r_height   = (float) display_characteristics.y_window_size;    /*y_window_size in pixels */
  740. X  hi_plane  = display_characteristics.n_planes - 1;  
  741. X  if(DEBUG) printf("width=%f height=%f \n",screen_size_r_width,screen_size_r_height);
  742. X
  743. X  dm_bitmap_size.x_size = 1280;
  744. X  dm_bitmap_size.y_size = 1024;
  745. X  gpr_$init(gpr_$direct,stream_id,dm_bitmap_size,hi_plane,&dm_bitmap_desc,&status); 
  746. X  check("in gpr_$init");
  747. /*
  748. X  gpr_$set_obscured_opt(gpr_$pop_if_obs, &status); 
  749. X  check("in gpr_$set_obscured_opt");
  750. */
  751. X  gpr_$set_auto_refresh(true, &status); 
  752. X  check("in gpr_$set_auto_refresh");
  753. X
  754. X  /* load a font and make it current */
  755. X  gpr_$load_font_file("f7x13", 5, &font_id, &status);
  756. X  check("in gpr_$load_font_file");
  757. X  gpr_$set_text_font(font_id, &status);
  758. X  check("in gpr_$set_text_font");
  759. X
  760. X  /* set up color values */
  761. X  gpr_$set_draw_value((gpr_$pixel_value_t)7, &status);  /* white */
  762. X  check("in gpr_set_draw_value");
  763. X  gpr_$set_text_background_value((gpr_$pixel_value_t)(-1), &status); /* trans */
  764. X  check("in gpr_$set_text_background_value");
  765. X  gpr_$set_text_value((gpr_$pixel_value_t)7, &status);  /* white */
  766. X  check("in gpr_$set_text_value");
  767. }
  768. X
  769. X
  770. GPR_graphics()
  771. {
  772. X  gpr_$coordinate_t locx,locy,marker_size;
  773. X
  774. X  (void) gpr_$acquire_display(&status);
  775. X  check("in gpr_$acquire display");
  776. X  gpr_$clear((gpr_$pixel_value_t)0, &status);  /* black */
  777. X  check("in gpr_$clear");
  778. X
  779. X  if(DEBUG) 
  780. X   {
  781. X    marker_size = (short) 10;  
  782. X
  783. X    locx = (short) 5;
  784. X    locy = (short) 5;
  785. X    gpr_$set_draw_value((gpr_$pixel_value_t)2, &status);  /* white */
  786. X    gpr_$move( (locx - marker_size/2) ,locy,&status);
  787. X    gpr_$line( (locx + marker_size/2) ,locy,&status);
  788. X    gpr_$move( locx, (locy + marker_size/2),&status);
  789. X    gpr_$line( locx, (locy - marker_size/2),&status);
  790. X    
  791. X    locx = (short) (GPR_XMAX -1 - 5);
  792. X    locy = (short) 5;
  793. X    gpr_$set_draw_value((gpr_$pixel_value_t)3, &status);  /* white */
  794. X    gpr_$move( (locx - marker_size/2) ,locy,&status);
  795. X    gpr_$line( (locx + marker_size/2) ,locy,&status);
  796. X    gpr_$move( locx, (locy + marker_size/2),&status);
  797. X    gpr_$line( locx, (locy - marker_size/2),&status);
  798. X    
  799. X    locx = (short) 5;
  800. X    locy = (short) (GPR_YMAX -1 - 5);
  801. X    gpr_$set_draw_value((gpr_$pixel_value_t)4, &status);  /* white */
  802. X    gpr_$move( (locx - marker_size/2) ,locy,&status);
  803. X    gpr_$line( (locx + marker_size/2) ,locy,&status);
  804. X    gpr_$move( locx, (locy + marker_size/2),&status);
  805. X    gpr_$line( locx, (locy - marker_size/2),&status);
  806. X    
  807. X    locx = (short) (GPR_XMAX -1 - 5);
  808. X    locy = (short) (GPR_YMAX -1 - 5);
  809. X    gpr_$set_draw_value((gpr_$pixel_value_t)5, &status);  /* white */
  810. X    gpr_$move( (locx - marker_size/2) ,locy,&status);
  811. X    gpr_$line( (locx + marker_size/2) ,locy,&status);
  812. X    gpr_$move( locx, (locy + marker_size/2),&status);
  813. X    gpr_$line( locx, (locy - marker_size/2),&status);
  814. X    
  815. X    gpr_$set_draw_value((gpr_$pixel_value_t)7, &status);  /* white */
  816. X    check("in gpr_$set_draw_value");
  817. X   } /* end if(DEBUG) */
  818. X
  819. }
  820. X
  821. X
  822. GPR_text()
  823. {
  824. X  gpr_$release_display(&status);
  825. X  check("gpr_$release_display");
  826. }
  827. X
  828. X
  829. GPRold_linetype(linetype)
  830. int linetype;
  831. {
  832. X  static gpr_$line_pattern_t patterns[2+5] = {
  833. X      { 0xFFFF },   /* solid              1111111111111111 */
  834. X      { 0x3FFF },   /* very long dashed   0011111111111111 */
  835. X      { 0xFFFF },   /* solid              1111111111111111 */
  836. X      { 0x5555 },   /* dotted             0101010101010101 */
  837. X      { 0x3333 },   /* short dashed       0011001100110011 */
  838. X      { 0xB5AD },   /* dot short-dashed   1011010110101101 */
  839. X      { 0x3FFF }    /* very long dashed   0011111111111111 */
  840. X                                             };
  841. X  if (linetype >= 5) linetype %= 5;
  842. X  gpr_$set_line_pattern((short)1, patterns[linetype+2], (short)16, &status);
  843. X  check("in gpr_$set_line_pattern");
  844. }
  845. X
  846. GPR_linetype(linetype)
  847. int linetype;
  848. {
  849. X  static gpr_$line_pattern_t patterns[2+7] = {
  850. X      { 0xFFFF },   /* solid              1111111111111111 */
  851. X      { 0x1111 },   /* long-spaced dotted 0001000100010001 */
  852. X      { 0xFFFF },   /* solid              1111111111111111 */
  853. X      { 0x5555 },   /* dotted             0101010101010101 */
  854. X      { 0x3333 },   /* short  dashed      0011001100110011 */
  855. X      { 0x7777 },   /* medium dashed      0111011101110111 */
  856. X      { 0x3F3F },   /* long   dashed      0011111100111111 */
  857. X      { 0x0F0F },   /* long-spaced dashed 0000111100001111 */
  858. X      { 0x5F5F }    /* dot dashed         0101111101011111 */
  859. X                                             };
  860. X  if (linetype >= 7) linetype %= 7;
  861. X  gpr_$set_line_pattern((short)1, patterns[linetype+2], (short)16, &status);
  862. X  check("in gpr_$set_line_pattern");
  863. X
  864. /*
  865. X  gpr_$set_draw_value((gpr_$pixel_value_t)(linetype + 1), &status);
  866. X  check("in gpr_$set_draw_value");
  867. */
  868. }
  869. X
  870. X
  871. GPR_move(x, y)
  872. unsigned int x, y;
  873. {
  874. X  gpr_$move((short)x, (short)(GPR_YMAX -1 - y), &status);
  875. X  check("in gpr_$move");
  876. }
  877. X
  878. X
  879. GPR_vector(x, y)
  880. unsigned int x, y;
  881. {
  882. X  gpr_$line((short)x, (short)(GPR_YMAX -1 - y), &status);
  883. X  check("in gpr_$line");
  884. }
  885. X
  886. X
  887. GPR_put_text(x,y,str)
  888. unsigned int x,y;        /* reference point of string */
  889. char str[];              /* the text */
  890. {
  891. X  gpr_$coordinate_t xgpr,ygpr;
  892. X  gpr_$offset_t     str_size_in_pixels;
  893. X  short int         str_len;     
  894. X
  895. X  gpr_$coordinate_t locx,locy,marker_size;
  896. X
  897. X  if(DEBUG) 
  898. X   {
  899. X    locx = (short) x;
  900. X    locy = (short) (GPR_YMAX -1 - y);
  901. X    marker_size = (short) 20;  
  902. X    gpr_$set_draw_value((gpr_$pixel_value_t)1, &status);  /* white */
  903. X    gpr_$move( (locx - marker_size/2) ,locy,&status);
  904. X    gpr_$line( (locx + marker_size/2) ,locy,&status);
  905. X    gpr_$move( locx, (locy + marker_size/2),&status);
  906. X    gpr_$line( locx, (locy - marker_size/2),&status);
  907. X    gpr_$set_draw_value((gpr_$pixel_value_t)7, &status);  /* white */
  908. X   }
  909. X
  910. X  xgpr = (short) x;
  911. X  ygpr = (short) (GPR_YMAX -1 - y); 
  912. X  gpr_$set_text_path(gpr_path, &status); 
  913. X  check("gpr_$set_text_path");
  914. X
  915. X  str_len = (short) strlen(str);
  916. X  gpr_$inq_text_extent(str,str_len,&str_size_in_pixels,&status); /* Calculate how much space (in pixels) the string requires */    
  917. X  check("in gpr_$inq_text_extent");
  918. X
  919. X  switch (gpr_justify) 
  920. X   {
  921. X    case LEFT :
  922. X        {
  923. X         switch (gpr_path) 
  924. X          {
  925. X           case gpr_$up :           /* vertical */
  926. X               {
  927. X                if(DEBUG) printf("LEFT and up , str=%s\n",str);
  928. X                break;
  929. X               }
  930. X           case gpr_$right :        /* horizontal */
  931. X               {
  932. X                ygpr = ygpr + str_size_in_pixels.y_size/2;
  933. X                if(DEBUG) printf("LEFT and right, str=%s \n",str);
  934. X                break;
  935. X               }
  936. X          }
  937. X         break;
  938. X        }
  939. X
  940. X    case CENTRE :
  941. X        {  
  942. X         switch (gpr_path) 
  943. X          {
  944. X           case gpr_$up :           /* vertical */
  945. X               {
  946. X                xgpr = xgpr + str_size_in_pixels.x_size/2;
  947. X                ygpr = ygpr + str_size_in_pixels.y_size/2;
  948. X                if(DEBUG) printf("CENTRE and up, str=%s \n",str);
  949. X                break;
  950. X               }
  951. X           case gpr_$right :        /* horizontal */
  952. X               {
  953. X                xgpr = xgpr - str_size_in_pixels.x_size/2;
  954. X                ygpr = ygpr + str_size_in_pixels.y_size/2;
  955. X                if(DEBUG) printf("CENTRE and right, str=%s \n",str);
  956. X                break;
  957. X               }
  958. X          }
  959. X         break;
  960. X        }
  961. X    case RIGHT :
  962. X        {
  963. X         switch (gpr_path) 
  964. X          {
  965. X           case gpr_$up :           /* vertical */
  966. X               {
  967. X                ygpr = ygpr + str_size_in_pixels.y_size;
  968. X                if(DEBUG) printf("RIGHT and up, str=%s \n",str);
  969. X                break;
  970. X               }
  971. X           case gpr_$right :        /* horizontal */
  972. X               {
  973. X                xgpr = xgpr - str_size_in_pixels.x_size;
  974. X                ygpr = ygpr + str_size_in_pixels.y_size/2;
  975. X                if(DEBUG) printf("RIGHT and right, str=%s \n",str);
  976. X                break;
  977. X               }
  978. X          }
  979. X         break;
  980. X        }
  981. X   }
  982. X
  983. X  gpr_$move(xgpr,ygpr,&status);
  984. X  check("in gpr_$move");
  985. X  gpr_$text(str, str_len, &status);
  986. X  check("in gpr_$text");
  987. }
  988. X
  989. int GPR_text_angle(ang)
  990. int ang;
  991. {   
  992. X    if (gpr_ang != ang)
  993. X      {
  994. X        gpr_ang  = ang;
  995. X        gpr_path = (gpr_ang == 1 ? gpr_$up : gpr_$right);
  996. X      }
  997. X    return (TRUE);
  998. }
  999. X
  1000. int GPR_justify_text(mode)
  1001. enum JUSTIFY mode;
  1002. {
  1003. X    gpr_justify = mode;
  1004. X    return (TRUE);
  1005. }
  1006. X
  1007. GPR_reset()
  1008. {
  1009. X  gpr_$terminate(false, &status);
  1010. X  check("in gpr_$terminate");
  1011. }
  1012. SHAR_EOF
  1013. chmod 0644 gnuplot/term/gpr.trm ||
  1014. echo 'restore of gnuplot/term/gpr.trm failed'
  1015. Wc_c="`wc -c < 'gnuplot/term/gpr.trm'`"
  1016. test 11637 -eq "$Wc_c" ||
  1017.     echo 'gnuplot/term/gpr.trm: original size 11637, current size' "$Wc_c"
  1018. rm -f _shar_wnt_.tmp
  1019. fi
  1020. # ============= gnuplot/term/dumb.trm ==============
  1021. if test -f 'gnuplot/term/dumb.trm' -a X"$1" != X"-c"; then
  1022.     echo 'x - skipping gnuplot/term/dumb.trm (File already exists)'
  1023.     rm -f _shar_wnt_.tmp
  1024. else
  1025. > _shar_wnt_.tmp
  1026. echo 'x - extracting gnuplot/term/dumb.trm (Text)'
  1027. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/dumb.trm' &&
  1028. /* GNUPLOT - dumb.trm */
  1029. /*
  1030. X * Copyright (C) 1991
  1031. X *
  1032. X * Permission to use, copy, and distribute this software and its
  1033. X * documentation for any purpose with or without fee is hereby granted,
  1034. X * provided that the above copyright notice appear in all copies and
  1035. X * that both that copyright notice and this permission notice appear
  1036. X * in supporting documentation.
  1037. X *
  1038. X * Permission to modify the software is granted, but not the right to
  1039. X * distribute the modified code.  Modifications are to be distributed
  1040. X * as patches to released version.
  1041. X *
  1042. X * This software  is provided "as is" without express or implied warranty.
  1043. X *
  1044. X * This file is included by ../term.c.
  1045. X *
  1046. X * This terminal driver supports:
  1047. X *   DUMB terminals
  1048. X *
  1049. X * AUTHORS
  1050. X *   Francois Pinard, 91-04-03
  1051. X *           INTERNET: pinard@iro.umontreal.ca
  1052. X *
  1053. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1054. X *
  1055. X */
  1056. X
  1057. #define DUMB_AXIS_CONST '\1'
  1058. #define DUMB_BORDER_CONST '\2'
  1059. X
  1060. #define DUMB_XMAX 79
  1061. #define DUMB_YMAX 24
  1062. X
  1063. static char *dumb_matrix = NULL;      /* matrix of characters */
  1064. static char *dumb_priority = NULL;    /* matrix of priority at each position */
  1065. static char dumb_pen;                 /* current character used to draw */
  1066. static int dumb_x;                    /* current X position */
  1067. static int dumb_y;                    /* current Y position */
  1068. static int dumb_xmax = DUMB_XMAX;
  1069. static int dumb_ymax = DUMB_YMAX;
  1070. X
  1071. #define DUMB_PIXEL(x,y) dumb_matrix[dumb_xmax*(y)+(x)]
  1072. X
  1073. X
  1074. dumb_set_pixel(x,y,v,p)
  1075. int x,y,v,p;
  1076. {
  1077. X  if (p > dumb_priority[dumb_xmax*y+x])
  1078. X    {
  1079. X      dumb_matrix[dumb_xmax*y+x] = v;
  1080. X      dumb_priority[dumb_xmax*y+x] = p;
  1081. X    }
  1082. }
  1083. X
  1084. X
  1085. DUMB_options()
  1086. {
  1087. X  int x,y;
  1088. X  struct value a;
  1089. X  extern struct value *const_express();
  1090. X  extern double real();
  1091. X
  1092. X  if (!END_OF_COMMAND) {
  1093. X    x = (int) real(const_express(&a));
  1094. X    if (!END_OF_COMMAND) {
  1095. X      y = (int) real(const_express(&a));
  1096. X      dumb_xmax = term_tbl[term].xmax = x;
  1097. X      dumb_ymax = term_tbl[term].ymax = y;
  1098. X    }
  1099. X  }
  1100. X
  1101. X  sprintf(term_options, "%d %d",dumb_xmax,dumb_ymax);
  1102. }
  1103. X
  1104. X
  1105. DUMB_init()
  1106. {
  1107. X  if (dumb_matrix)
  1108. X    free(dumb_matrix);
  1109. X
  1110. X  dumb_matrix = alloc (dumb_xmax * dumb_ymax * 2, "dumb terminal");
  1111. X
  1112. X  dumb_priority = dumb_matrix + dumb_xmax * dumb_ymax;
  1113. }
  1114. X
  1115. X
  1116. char *
  1117. DUMB_str_state()
  1118. {
  1119. X   static char str[80];
  1120. X
  1121. X   sprintf( str, "%d %d", dumb_xmax, dumb_ymax );
  1122. X
  1123. X   return str;
  1124. }
  1125. X
  1126. X
  1127. DUMB_graphics ()
  1128. {
  1129. X  int i;
  1130. X  char *pm = dumb_matrix, *pp = dumb_priority;
  1131. X
  1132. X  for ( i = dumb_xmax * dumb_ymax; i > 0; i-- ) {
  1133. X    *pm++ = ' ';
  1134. X    *pp++ = 0;
  1135. X  }
  1136. }
  1137. X
  1138. X
  1139. DUMB_text ()
  1140. {
  1141. X  int x, y, l;
  1142. X
  1143. X  putc ('\f', outfile);
  1144. X  for (y = dumb_ymax - 1; y >= 0; y--)
  1145. X    {
  1146. X      for (l = dumb_xmax; l > 0 && DUMB_PIXEL (l - 1, y) == ' '; l--)
  1147. X       ;
  1148. X      for (x = 0; x < l; x++)
  1149. X       putc (DUMB_PIXEL (x, y), outfile);
  1150. X      if (y > 0)
  1151. X       putc ('\n', outfile);
  1152. X    }
  1153. X  fflush (outfile);
  1154. }
  1155. X
  1156. X
  1157. DUMB_reset()
  1158. {
  1159. X  free (dumb_matrix);
  1160. X  dumb_matrix = NULL;
  1161. }
  1162. X
  1163. X
  1164. DUMB_linetype(linetype)
  1165. int linetype;
  1166. {
  1167. X  static char pen_type[7] = {'*', '#', '$', '%', '@', '&', '='};
  1168. X
  1169. X  if (linetype == -2)
  1170. X    dumb_pen = DUMB_BORDER_CONST;
  1171. X  else if (linetype == -1)
  1172. X    dumb_pen = DUMB_AXIS_CONST;
  1173. X  else
  1174. X    {
  1175. X      linetype = linetype % 7;
  1176. X      dumb_pen = pen_type[linetype];
  1177. X    }
  1178. }
  1179. X
  1180. X
  1181. DUMB_move(x, y)
  1182. int x, y;
  1183. {
  1184. X  dumb_x = x;
  1185. X  dumb_y = y;
  1186. }
  1187. X
  1188. X
  1189. DUMB_point(x,y,point)
  1190. int x,y,point;
  1191. {
  1192. X  dumb_set_pixel (x, y, point == -1 ? '.' : point % 26 + 'A', 4);
  1193. }
  1194. X
  1195. X
  1196. DUMB_vector(x,y)
  1197. int x,y;
  1198. {
  1199. X  char pen, pen1;
  1200. X  int priority;
  1201. X  int delta;
  1202. X
  1203. X  if (abs (y - dumb_y) > abs (x - dumb_x))
  1204. X    {
  1205. X      switch (dumb_pen)
  1206. X       {
  1207. X       case DUMB_AXIS_CONST:
  1208. X         pen = ':';
  1209. X         pen1 = '+';
  1210. X         priority = 1;
  1211. X         break;
  1212. X
  1213. X       case DUMB_BORDER_CONST:
  1214. X         pen = '|';
  1215. X         pen1 = '+';
  1216. X         priority = 2;
  1217. X         break;
  1218. X
  1219. X       default:
  1220. X         pen = dumb_pen;
  1221. X         pen1 = dumb_pen;
  1222. X         priority = 3;
  1223. X         break;
  1224. X       }
  1225. X      dumb_set_pixel (dumb_x, dumb_y, pen1, priority);
  1226. X      for (delta = 1; delta < abs (y - dumb_y); delta++)
  1227. X       dumb_set_pixel (dumb_x
  1228. X                       + (int) ((double) (x - dumb_x) * delta / abs(y - dumb_y)
  1229. X                                + 0.5),
  1230. X                       dumb_y + delta * sign (y - dumb_y),
  1231. X                       pen, priority);
  1232. X      dumb_set_pixel (x, y, pen1, priority);
  1233. X    }
  1234. X  else if (abs (x - dumb_x) > abs (y - dumb_y))
  1235. X    {
  1236. X      switch (dumb_pen)
  1237. X       {
  1238. X       case DUMB_AXIS_CONST:
  1239. X         pen = '.';
  1240. X         pen1 = '+';
  1241. X         priority = 1;
  1242. X         break;
  1243. X
  1244. X       case DUMB_BORDER_CONST:
  1245. X         pen = '-';
  1246. X         pen1 = '+';
  1247. X         priority = 2;
  1248. X         break;
  1249. X
  1250. X       default:
  1251. X         pen = dumb_pen;
  1252. X         pen1 = dumb_pen;
  1253. X         priority = 3;
  1254. X         break;
  1255. X       }
  1256. X      dumb_set_pixel (dumb_x, dumb_y, pen1, priority);
  1257. X      for (delta = 1; delta < abs (x - dumb_x); delta++)
  1258. X       dumb_set_pixel (dumb_x + delta * sign (x - dumb_x),
  1259. X                       dumb_y +
  1260. X                       (int) ((double) (y - dumb_y) * delta / abs(x - dumb_x)
  1261. X                              + 0.5),
  1262. X                       pen, priority);
  1263. X      dumb_set_pixel (x, y, pen1, priority);
  1264. X    }
  1265. X  else
  1266. X    {
  1267. X      switch (dumb_pen)
  1268. X       {
  1269. X       case DUMB_AXIS_CONST:    /* zero length axis */
  1270. X         pen = '+';
  1271. X         priority = 1;
  1272. X         break;
  1273. X
  1274. X       case DUMB_BORDER_CONST:    /* zero length border */
  1275. X         pen = '+';
  1276. X         priority = 2;
  1277. X         break;
  1278. X
  1279. X       default:
  1280. X         pen = dumb_pen;
  1281. X         priority = 3;
  1282. X         break;
  1283. X       }
  1284. X      for (delta = 0; delta <= abs (x - dumb_x); delta++)
  1285. X    dumb_set_pixel (dumb_x + delta * sign (x - dumb_x),
  1286. X            dumb_y + delta * sign (y - dumb_y),
  1287. X            pen, priority);
  1288. X    }
  1289. X  dumb_x = x;
  1290. X  dumb_y = y;
  1291. }
  1292. X
  1293. X
  1294. DUMB_put_text(x,y,str)
  1295. int x, y;
  1296. char *str;
  1297. {
  1298. X  int length;
  1299. X  int delta;
  1300. X
  1301. X  length = strlen(str);
  1302. X  if (x + length > dumb_xmax)
  1303. X    x = max (0, dumb_xmax - length);
  1304. X
  1305. X  for (; x < dumb_xmax && *str; x++, str++)
  1306. X    dumb_set_pixel (x, y, *str, 5);
  1307. }
  1308. X
  1309. X
  1310. DUMB_arrow (sx,sy,ex,ey)
  1311. int sx,sy,ex,ey;
  1312. {
  1313. X  char saved_pen;
  1314. X  char saved_x;
  1315. X  char saved_y;
  1316. X
  1317. X  saved_pen = dumb_pen;
  1318. X  saved_x = dumb_x;
  1319. X  saved_y = dumb_y;
  1320. X
  1321. X  dumb_pen = '>';
  1322. X  dumb_x = sx;
  1323. X  dumb_y = sy;
  1324. X  DUMB_vector (ex,ey);
  1325. X
  1326. X  dumb_pen = saved_pen;
  1327. X  dumb_x = saved_x;
  1328. X  dumb_y = saved_y;
  1329. }
  1330. SHAR_EOF
  1331. chmod 0644 gnuplot/term/dumb.trm ||
  1332. echo 'restore of gnuplot/term/dumb.trm failed'
  1333. Wc_c="`wc -c < 'gnuplot/term/dumb.trm'`"
  1334. test 6235 -eq "$Wc_c" ||
  1335.     echo 'gnuplot/term/dumb.trm: original size 6235, current size' "$Wc_c"
  1336. rm -f _shar_wnt_.tmp
  1337. fi
  1338. # ============= gnuplot/term/amiga.trm ==============
  1339. if test -f 'gnuplot/term/amiga.trm' -a X"$1" != X"-c"; then
  1340.     echo 'x - skipping gnuplot/term/amiga.trm (File already exists)'
  1341.     rm -f _shar_wnt_.tmp
  1342. else
  1343. > _shar_wnt_.tmp
  1344. echo 'x - extracting gnuplot/term/amiga.trm (Text)'
  1345. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/amiga.trm' &&
  1346. /* GNUPLOT - amiga.trm */
  1347. /*
  1348. X * Copyright (C) 1991
  1349. X *
  1350. X * Permission to use, copy, and distribute this software and its
  1351. X * documentation for any purpose with or without fee is hereby granted, 
  1352. X * provided that the above copyright notice appear in all copies and 
  1353. X * that both that copyright notice and this permission notice appear 
  1354. X * in supporting documentation.
  1355. X *
  1356. X * Permission to modify the software is granted, but not the right to
  1357. X * distribute the modified code.  Modifications are to be distributed 
  1358. X * as patches to released version.
  1359. X *  
  1360. X * This software  is provided "as is" without express or implied warranty.
  1361. X * 
  1362. X * This file is included by ../term.c.
  1363. X *
  1364. X * This terminal driver supports:
  1365. X *   Amiga Custom Screen
  1366. X *
  1367. X * AUTHORS
  1368. X *   Carsten Steger
  1369. X * 
  1370. X *   Pat R. Empleo      Slightly modified for Aztec C v5.2a (beta); sort of
  1371. X *   08/27/91           supports overscan; for large WB 2.0 virtual screens,
  1372. X *                      we limit the plot size so we don't have to scroll
  1373. X *                      around (not fun).
  1374. X *
  1375. X *   Carsten Steger     Modified to support Kickstart 2.0.
  1376. X *   09/11/91           Opens a text overscan screen when used with WB 2.0.
  1377. X *                      Discerns between NTSC and PAL Amigas when used with
  1378. X *                      WB 1.3 and lower.
  1379. X *
  1380. X *   Pat R. Empleo      Defined some 2.0 stuff in order to get Aztec C to
  1381. X *   09/20/91           work with Carsten's new code (see above).  When
  1382. X *                      KS/WB 2.0 support gets implemented in Aztec C, this
  1383. X *                      kludge will get deleted! 
  1384. X *                      (Aztec C release 5.2 beta)
  1385. X *
  1386. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1387. X * 
  1388. X */
  1389. X
  1390. #ifdef AMIGA_AC_5
  1391. #include <intuition/intuitionbase.h>
  1392. #include <intuition/screens.h>
  1393. #include <graphics/text.h>
  1394. #include <graphics/gfxbase.h>
  1395. X
  1396. #define OSCAN_TEXT     (1)                   /*                            */
  1397. #define SA_Dummy       (TAG_USER + 32)       /* This stuff is temporary    */
  1398. #define SA_Overscan    (SA_Dummy + 0x0014)   /* until Aztec C implements   */
  1399. #define STDSCREENWIDTH -1                    /* KS/WB 2.0 support.         */
  1400. #define TAG_DONE       (0L)                  /*                            */
  1401. #define TAG_USER       (1L<<31)              /*                            */
  1402. X                                             /*                            */
  1403. typedef ULONG Tag;                           /*                            */
  1404. X                                             /*                            */
  1405. struct TagItem                               /*                            */
  1406. X   {                                         /*                            */
  1407. X   Tag   ti_Tag;                             /*                            */
  1408. X   ULONG ti_Data;                            /*                            */
  1409. X   };                                        /*                            */
  1410. X
  1411. #else
  1412. /* You will have to use the Kickstart 2.0 header files for this to compile */
  1413. #include <exec/types.h>
  1414. #include <intuition/intuitionbase.h>
  1415. #include <graphics/gfxbase.h>
  1416. #include <proto/intuition.h>
  1417. #include <proto/graphics.h>
  1418. #include <proto/exec.h>
  1419. #include <proto/diskfont.h>
  1420. #endif
  1421. X
  1422. extern char *getenv(),*strchr();
  1423. X
  1424. #define AMIGA_XMAX 640
  1425. #define AMIGA_YMAX 512
  1426. X
  1427. #define AMIGA_VCHAR (12)
  1428. #define AMIGA_HCHAR (8)
  1429. #define AMIGA_VTIC (AMIGA_YMAX/80)
  1430. #define AMIGA_HTIC (AMIGA_XMAX/80)
  1431. /* The origin is in the upper left hand corner, so we have to translate */
  1432. /* and flip the coordinates: */
  1433. #define AMIGA_VTF(y) (AMIGA_ymax-1-(y))
  1434. X
  1435. X
  1436. struct IntuitionBase *IntuitionBase;
  1437. struct GfxBase *GfxBase;
  1438. struct Library *DiskfontBase;
  1439. static struct TextAttr AMIGA_Font = {
  1440. X  "topaz.font",TOPAZ_EIGHTY,FS_NORMAL,FPF_ROMFONT
  1441. };
  1442. static struct TextFont *AMIGA_TextFont;
  1443. static struct NewScreen AMIGA_NewScreen = {
  1444. X  0,0,AMIGA_XMAX,AMIGA_YMAX,4,15,0,HIRES|LACE,
  1445. X  CUSTOMSCREEN|SCREENBEHIND|SCREENQUIET,NULL,NULL,NULL,NULL
  1446. };
  1447. static struct Screen *AMIGA_Screen;
  1448. static UWORD AMIGA_Colors [] = {
  1449. X  0x000,0xfff,0xbbb,0x0f0,0xf00,0x00f,0x3ca,0xf0f,
  1450. X  0x94d,0x0ff,0x82f,0xff0,0x0af,0xc5e,0xfa2,0xf44
  1451. };
  1452. static int AMIGA_slinetype;
  1453. static enum JUSTIFY AMIGA_justify = LEFT;
  1454. static unsigned int AMIGA_ymax,AMIGA_xmax; 
  1455. static WORD AMIGA_cwd,AMIGA_cht,AMIGA_bsl,AMIGA_vadj;
  1456. static struct TagItem AMIGA_ScrTagList[] = {
  1457. X  {SA_Overscan,OSCAN_TEXT},{TAG_DONE,0}
  1458. };
  1459. X
  1460. X
  1461. AMIGA_reset()
  1462. {
  1463. X  if (AMIGA_TextFont != NULL) CloseFont(AMIGA_TextFont);
  1464. X  if (DiskfontBase != NULL) CloseLibrary(DiskfontBase);
  1465. X  if (AMIGA_Screen != NULL) CloseScreen(AMIGA_Screen);
  1466. X  if (IntuitionBase != NULL) CloseLibrary(IntuitionBase);
  1467. X  if (GfxBase != NULL) CloseLibrary(GfxBase);
  1468. X  AMIGA_TextFont = NULL;
  1469. X  DiskfontBase = NULL;
  1470. X  AMIGA_Screen = NULL;
  1471. X  IntuitionBase = NULL;
  1472. X  GfxBase = NULL;
  1473. }
  1474. X
  1475. X
  1476. AMIGA_init()
  1477. {
  1478. X  static char fontname[80],*gnufont,*search;
  1479. X  static int fsize;
  1480. X  static char *test_str =
  1481. X    " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
  1482. X  static WORD test_len,test_pxl;
  1483. X
  1484. X
  1485. #ifdef AMIGA_LC_5_1
  1486. X  /* Install exit trap in case of abnormal termination (see below). */
  1487. X  int AMIGA_exit();
  1488. X  if (!onexit(&AMIGA_exit)) {
  1489. X    fprintf(stderr,"Couldn't set exit trap\n");
  1490. X    exit(20);
  1491. X  }
  1492. #endif
  1493. X  GfxBase = OpenLibrary("graphics.library",0);
  1494. X  if (GfxBase == NULL) {
  1495. X    fprintf(stderr,"No Graphics-Library\n");
  1496. X    AMIGA_reset();
  1497. X    exit(20);
  1498. X  }
  1499. X  IntuitionBase = OpenLibrary("intuition.library",0);
  1500. X  if (IntuitionBase == NULL) {
  1501. X    fprintf(stderr,"No Intuition-Library\n");
  1502. X    AMIGA_reset();
  1503. X    exit(20);
  1504. X  }
  1505. X  if (IntuitionBase->LibNode.lib_Version <= 34) {
  1506. X    /* We compute the vertical resolution for those poor NTSC-souls   :-)   */
  1507. X    if (GfxBase->DisplayFlags && PAL) AMIGA_ymax = 512;
  1508. X    else AMIGA_ymax = 400;
  1509. X    AMIGA_xmax = 640;
  1510. X    AMIGA_NewScreen.Width = AMIGA_xmax;
  1511. X    AMIGA_NewScreen.Height = AMIGA_ymax;
  1512. X    AMIGA_Screen = OpenScreen(&AMIGA_NewScreen);
  1513. X    if (AMIGA_Screen == NULL) {
  1514. X      fprintf(stderr,"No Screen\n");
  1515. X      AMIGA_reset();
  1516. X      exit(20);
  1517. X    }
  1518. X  } else {
  1519. X    /* Kickstart 2.0 support */
  1520. X    AMIGA_NewScreen.Width = STDSCREENWIDTH;
  1521. X    AMIGA_NewScreen.Height = STDSCREENHEIGHT;
  1522. X    /* I had to set TopEdge equal to 1 with my (probably outdated) software */
  1523. X    /* version of Kickstart 2.0 in order for the last line to be displayed */
  1524. X    /* correctly. Remove the next two lines and check if it still works */
  1525. X    /* with newer ROM-versions of Kickstart 2.0 */
  1526. #ifdef AMIGA_LC_5_1
  1527. X    AMIGA_NewScreen.TopEdge = 1;
  1528. X    AMIGA_NewScreen.LeftEdge = 0;
  1529. #endif
  1530. X    AMIGA_Screen = OpenScreenTagList(&AMIGA_NewScreen,AMIGA_ScrTagList);
  1531. X    if (AMIGA_Screen == NULL) {
  1532. X      fprintf(stderr,"No Screen\n");
  1533. X      AMIGA_reset();
  1534. X      exit(20);
  1535. X    }
  1536. X    AMIGA_xmax = AMIGA_Screen->Width;
  1537. X    AMIGA_ymax = AMIGA_Screen->Height;
  1538. X  }
  1539. X  term_tbl[term].xmax = AMIGA_xmax;
  1540. X  term_tbl[term].ymax = AMIGA_ymax;
  1541. X  gnufont = getenv("GNUFONT");
  1542. X  if (gnufont != NULL ) {
  1543. X    search = strchr(gnufont,'/');
  1544. X    if (search != NULL) {
  1545. X      *search++ = '\0';
  1546. X      strncpy(fontname,gnufont,74);
  1547. X      strcat(fontname,".font");
  1548. X      sscanf(search,"%d",&fsize);
  1549. X      /* Avoid opening "diskfont.library" if a built-in font is desired */
  1550. X      if ((strcmp("topaz.font",fontname) == 0) &&
  1551. X        ((fsize == TOPAZ_EIGHTY) || (fsize == TOPAZ_SIXTY))) {
  1552. X        AMIGA_Font.ta_Name = fontname;
  1553. X        AMIGA_Font.ta_YSize = fsize;
  1554. X        AMIGA_Font.ta_Style = FS_NORMAL;
  1555. X        AMIGA_Font.ta_Flags = FPF_ROMFONT;
  1556. X        AMIGA_TextFont = OpenFont(&AMIGA_Font);
  1557. X        if (AMIGA_TextFont != NULL) 
  1558. X          SetFont(&AMIGA_Screen->RastPort,AMIGA_TextFont);
  1559. X      } else {
  1560. X        DiskfontBase = OpenLibrary("diskfont.library",0);
  1561. X        if (DiskfontBase != NULL) {
  1562. X          AMIGA_Font.ta_Name = fontname;
  1563. X          AMIGA_Font.ta_YSize = fsize;
  1564. X          AMIGA_Font.ta_Style = FS_NORMAL;
  1565. X          AMIGA_Font.ta_Flags = FPF_ROMFONT|FPF_DISKFONT;
  1566. X          AMIGA_TextFont = OpenDiskFont(&AMIGA_Font);
  1567. X          if (AMIGA_TextFont != NULL)
  1568. X            SetFont(&AMIGA_Screen->RastPort,AMIGA_TextFont);
  1569. X        }
  1570. X      }
  1571. X    }
  1572. X  }
  1573. X  /* Width of characters: This works better for proportional fonts than */
  1574. X  /* AMIGA_Screen->RastPort.TxWidth + AMIGA_Screen->RastPort.TxSpacing */
  1575. X  test_len = strlen(test_str);
  1576. X  test_pxl = TextLength(&AMIGA_Screen->RastPort,test_str,test_len);
  1577. X  AMIGA_cwd = test_pxl / test_len;
  1578. X  AMIGA_cht = AMIGA_Screen->RastPort.TxHeight; /* Height of characters */
  1579. X  AMIGA_bsl = AMIGA_Screen->RastPort.TxBaseline; /* Reference line */
  1580. X  /* Amount by which characters have to be shifted upwards to be */
  1581. X  /* vertically justified: */
  1582. X  AMIGA_vadj = AMIGA_bsl / 2;
  1583. X  term_tbl[term].v_char = AMIGA_cht + 4; /* So lines won't be too close */
  1584. X  term_tbl[term].h_char = AMIGA_cwd;
  1585. X  LoadRGB4(&AMIGA_Screen->ViewPort,AMIGA_Colors,16);
  1586. X  RemakeDisplay();
  1587. X  AMIGA_slinetype = 1;
  1588. X  SetAPen(&AMIGA_Screen->RastPort,AMIGA_slinetype);
  1589. X  SetDrMd(&AMIGA_Screen->RastPort,JAM1);
  1590. }
  1591. X
  1592. X
  1593. AMIGA_text()
  1594. {
  1595. X  char c;
  1596. X
  1597. X  c = getc(stdin); /* This is extremely ugly... Yuk !!!!   >:-(   */
  1598. X  ungetc(c,stdin); /* Maybe someone else will find a better solution */
  1599. X  ScreenToBack(AMIGA_Screen);
  1600. }
  1601. X
  1602. X
  1603. AMIGA_graphics()
  1604. {
  1605. X  SetRast(&AMIGA_Screen->RastPort,0);
  1606. X  SetAPen(&AMIGA_Screen->RastPort,AMIGA_slinetype);
  1607. X  ScreenToFront(AMIGA_Screen);
  1608. }
  1609. X
  1610. X
  1611. AMIGA_move(x,y)
  1612. unsigned int x,y;
  1613. {
  1614. X  if ((x>=AMIGA_xmax) || (y>=AMIGA_ymax)) return;
  1615. X  Move(&AMIGA_Screen->RastPort,x,AMIGA_VTF(y));
  1616. }
  1617. X
  1618. X
  1619. AMIGA_vector(x,y)
  1620. unsigned int x,y;
  1621. {
  1622. X  if ((x>=AMIGA_xmax) || (y>=AMIGA_ymax)) return;
  1623. X  Draw(&AMIGA_Screen->RastPort,x,AMIGA_VTF(y));
  1624. }
  1625. X
  1626. X
  1627. AMIGA_linetype(linetype)
  1628. int linetype;
  1629. {
  1630. X  if (linetype >= 13) linetype %= 13;
  1631. X  AMIGA_slinetype = linetype+3;
  1632. X  SetAPen(&AMIGA_Screen->RastPort,AMIGA_slinetype);
  1633. }
  1634. X
  1635. X
  1636. AMIGA_put_text(x,y,str)
  1637. unsigned int x,y;
  1638. char *str;
  1639. {
  1640. X  LONG len,tx_len;
  1641. X  WORD xmin,xmax,ymin,ymax;
  1642. X
  1643. X  len = strlen(str);
  1644. X  tx_len = TextLength(&AMIGA_Screen->RastPort,str,len);
  1645. X  switch (AMIGA_justify) {
  1646. X    case LEFT:
  1647. X      xmin = x;
  1648. X      xmax = x + tx_len;
  1649. X      break;
  1650. X    case CENTRE:
  1651. X      xmin = x - tx_len / 2;
  1652. X      xmax = x + tx_len - tx_len / 2; /* aviod roundoff errors ! */
  1653. X      break;
  1654. X    case RIGHT:
  1655. X      xmin = x - tx_len;
  1656. X      xmax = x;
  1657. X      break;
  1658. X  }
  1659. X  ymin = AMIGA_VTF(y) - AMIGA_vadj;
  1660. X  ymax = ymin + AMIGA_cht;
  1661. X  /* Check if character-string lies completely within the screen: */
  1662. X  if ((xmax >= AMIGA_xmax) || (ymin < 0) || (ymax >= AMIGA_ymax)) return;
  1663. X  Move(&AMIGA_Screen->RastPort,xmin,ymin+AMIGA_bsl);
  1664. X  Text(&AMIGA_Screen->RastPort,str,len);
  1665. }
  1666. X
  1667. X
  1668. int AMIGA_justify_text(mode)
  1669. enum JUSTIFY mode;
  1670. {
  1671. X  AMIGA_justify = mode;
  1672. X  return TRUE;
  1673. }
  1674. X
  1675. X
  1676. /* This function is mainly included if the program terminates abnormally */
  1677. /* and the screen and libraries are still open. It closes down all opened */
  1678. /* libraries and screens. This happens e.g. when loading "bivariat.demo" */
  1679. /* and the stack is smaller than 70000 bytes. */
  1680. #ifdef AMIGA_LC_5_1
  1681. int AMIGA_exit(rc)
  1682. int rc;
  1683. {
  1684. X  AMIGA_reset();
  1685. X  return rc;
  1686. }
  1687. #endif
  1688. SHAR_EOF
  1689. chmod 0644 gnuplot/term/amiga.trm ||
  1690. echo 'restore of gnuplot/term/amiga.trm failed'
  1691. Wc_c="`wc -c < 'gnuplot/term/amiga.trm'`"
  1692. test 10991 -eq "$Wc_c" ||
  1693.     echo 'gnuplot/term/amiga.trm: original size 10991, current size' "$Wc_c"
  1694. rm -f _shar_wnt_.tmp
  1695. fi
  1696. # ============= gnuplot/term/apollo.trm ==============
  1697. if test -f 'gnuplot/term/apollo.trm' -a X"$1" != X"-c"; then
  1698.     echo 'x - skipping gnuplot/term/apollo.trm (File already exists)'
  1699.     rm -f _shar_wnt_.tmp
  1700. else
  1701. > _shar_wnt_.tmp
  1702. echo 'x - extracting gnuplot/term/apollo.trm (Text)'
  1703. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/apollo.trm' &&
  1704. /* GNUPLOT - apollo.trm */
  1705. /*
  1706. X    Apollo terminal driver for GNUplot.
  1707. X
  1708. X    Open a pad for the graphics, and use GPR routines.  For additional
  1709. X    speed, we do the graphics to a separate bitmap, and the blt the
  1710. X    entire bitmap to the display.  When the user specifies an output
  1711. X    file name, however, we draw directly to the screen, so the graphics
  1712. X    are written to the file correctly.  Thus, the user can save the
  1713. X    graphics in a file, to be viewed later.  If we try the bitmap
  1714. X    trick, it looks funny.
  1715. SHAR_EOF
  1716. true || echo 'restore of gnuplot/term/apollo.trm failed'
  1717. fi
  1718. echo 'End of  part 19'
  1719. echo 'File gnuplot/term/apollo.trm is continued in part 20'
  1720. echo 20 > _shar_seq_.tmp
  1721. exit 0
  1722.  
  1723. exit 0 # Just in case...
  1724. -- 
  1725. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1726. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1727. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1728. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1729.