home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume24 / gnuplot3 / part15 < prev    next >
Encoding:
Text File  |  1991-10-27  |  48.8 KB  |  2,047 lines
  1. Newsgroups: comp.sources.misc
  2. From: gershon%gr@cs.utah.edu (Elber Gershon)
  3. Subject:  v24i037:  gnuplot3 - interactive function plotting utility, Part15/26
  4. Message-ID: <1991Oct28.002252.12402@sparky.imd.sterling.com>
  5. X-Md4-Signature: 5e63790cfeb8a0ccbd5a506a41303504
  6. Date: Mon, 28 Oct 1991 00:22:52 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 37
  11. Archive-name: gnuplot3/part15
  12. Environment: UNIX, MS-DOS, VMS
  13. Supersedes: gnuplot2: Volume 11, Issue 65-79
  14.  
  15. #!/bin/sh
  16. # this is Part.15 (part 15 of a multipart archive)
  17. # do not concatenate these parts, unpack them in order with /bin/sh
  18. # file gnuplot/term/bigfig.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" != 15; 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/bigfig.trm'
  34. else
  35. echo 'x - continuing file gnuplot/term/bigfig.trm'
  36. sed 's/^X//' << 'SHAR_EOF' >> 'gnuplot/term/bigfig.trm' &&
  37. X  FIG_poly_vec_cnt++;
  38. X  if (FIG_poly_vec_cnt > 50)
  39. X    FIG_poly_clean(FIG_polyvec_stat);
  40. X 
  41. X  FIG_posx = x;
  42. X  FIG_posy = y;
  43. }
  44. X 
  45. X 
  46. X 
  47. X 
  48. BFIG_arrow(sx, sy, ex, ey, head)
  49. X        int sx, sy;     /* start coord */
  50. X        int ex, ey;     /* end coord */
  51. X    BOOLEAN head;
  52. {
  53. X    FIG_poly_clean(FIG_polyvec_stat);
  54. X        fprintf(outfile, "%d %d %d %d %d %d %d %d %6.3f  %d %d\n",
  55. X                O_POLYLINE, T_POLYLINE,
  56. X                FIG_type, 1, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_spacing,
  57. X                head ? 1 : 0, 0);
  58. X        /* arrow line */
  59. X    if ( head )
  60. X        fprintf(outfile, "%d %d %.3f %.3f %.3f\n",
  61. X                    0, 0, 1.0,
  62. X            (double)BFIG_ARROW_WIDTH, (double)BFIG_ARROW_HEIGHT);
  63. X        fprintf(outfile, "%d %d %d %d 9999 9999\n",
  64. X                BFIG_XOFF + sx, BFIG_YOFF + BFIG_YMAX - sy,
  65. X        BFIG_XOFF + ex, BFIG_YOFF + BFIG_YMAX - ey);
  66. X 
  67. X        FIG_posx = ex;
  68. X        FIG_posy = ey;
  69. }
  70. X 
  71. BFIG_put_text(x, y, str)
  72. X        int x, y;
  73. X        char *str;
  74. {
  75. X  if (strlen(str) == 0) return;
  76. X  FIG_poly_clean(FIG_polyvec_stat);
  77. X    y = y - BFIG_VCHAR/2;               /* assuming vertical center justified */
  78. X 
  79. X    fprintf(outfile, "%d %d %d %d %d %d %d %6.3f %d %d %d %d %d %s\01\n",
  80. X                  O_TEXT, FIG_justify,
  81. X                  FIG_ROMAN_FONT, BFIG_FONT_S, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_angle,
  82. X                  1, BFIG_VCHAR, BFIG_HCHAR*strlen(str), BFIG_XOFF + x,
  83. X        BFIG_YMAX + BFIG_YOFF-y, str);
  84. }
  85. X 
  86. SHAR_EOF
  87. echo 'File gnuplot/term/bigfig.trm is complete' &&
  88. chmod 0666 gnuplot/term/bigfig.trm ||
  89. echo 'restore of gnuplot/term/bigfig.trm failed'
  90. Wc_c="`wc -c < 'gnuplot/term/bigfig.trm'`"
  91. test 3598 -eq "$Wc_c" ||
  92.     echo 'gnuplot/term/bigfig.trm: original size 3598, current size' "$Wc_c"
  93. rm -f _shar_wnt_.tmp
  94. fi
  95. # ============= gnuplot/term/cgi.trm ==============
  96. if test -f 'gnuplot/term/cgi.trm' -a X"$1" != X"-c"; then
  97.     echo 'x - skipping gnuplot/term/cgi.trm (File already exists)'
  98.     rm -f _shar_wnt_.tmp
  99. else
  100. > _shar_wnt_.tmp
  101. echo 'x - extracting gnuplot/term/cgi.trm (Text)'
  102. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/cgi.trm' &&
  103. /* GNUPLOT - cgi.trm */
  104. /*
  105. X * Copyright (C) 1990 Ronald Florence
  106. X *
  107. X * Permission is hereby granted for unlimited non-commercial
  108. X * use of this code, on condition that the copyright
  109. X * notices are left intact and any modifications to the source
  110. X * code are noted as such.  No warranty of any kind is implied
  111. X * or granted for this material.
  112. X *
  113. X * This file is included by ../term.c.
  114. X *
  115. X * This terminal driver supports SCO CGI drivers
  116. X *
  117. X * AUTHOR
  118. X *   Ronald Florence <ron@mlfarm.com>
  119. X */
  120. X
  121. #ifdef VGA_MONO
  122. static short rgb[16][3] = {
  123. X  0,    0,      0,      /* Black        */
  124. X  1000,    1000,    1000,    /* White    */
  125. X  800,    800,    0,    /* Red        */
  126. X  0,    600,    0,    /* Green    */
  127. X  0,    800,    800,    /* Blue        */
  128. X  1000,    1000,    400,    /* Yellow    */
  129. X  0,    600,    600,    /* Cyan        */
  130. X  600,    600,    600,    /* Magenta    */
  131. X  800,    800,    0,    /* Brown    */
  132. X  600,    600,    600,    /* Lt. Grey    */
  133. X  400,    600,    400,    /* Dark Grey    */
  134. X  400,    600,    1000,    /* Lt. Blue    */
  135. X  400,    1000,    400,    /* Lt Green    */
  136. X  400,    1000,    1000,    /* Lt Cyan    */
  137. X  1000,    600,    400,    /* Lt Red    */
  138. X  600,    600,    1000    /* Lt Magenta    */
  139. };
  140. #endif
  141. X
  142. #define CGI_XMAX    32767
  143. #define CGI_YMAX    32767
  144. #define CGI_VTIC    (CGI_YMAX / 75)
  145. #define CGI_HTIC    term_tbl[term].h_tic
  146. #define CGI_VCHAR    term_tbl[term].v_char
  147. #define CGI_HCHAR    term_tbl[term].h_char
  148. #define CRT        (gout[45] == 0)
  149. #define CGICOLORS    gout[13]
  150. #define CGILINES    gout[6]
  151. #define CGIROTATES    gout[36]
  152. #define CGITEXTALIGN    gout[48]
  153. X
  154. static short gout[66];
  155. static short cgidev;
  156. static short vect[4];
  157. static short gin[19] = {
  158. X 0,    /* default aspect ratio */
  159. X 1,    /* solid line */
  160. X 1,    /* line color */
  161. X 1,    /* marker type . */
  162. X 1,    /* marker color */
  163. X 1,    /* graphics text font */
  164. X 1,    /* graphics text color */
  165. X 0,    /* fill interior style */
  166. X 0,    /* fill style index */
  167. X 1,    /* fill color index */
  168. X 1     /* prompt for paper changes */
  169. X };
  170. X
  171. char    *cgidriver, *getenv();
  172. X
  173. X
  174. CGI_init()
  175. {
  176. X  if (getenv(cgidriver = "CGIDISP") == NULL)
  177. X    HCGI_init();
  178. }
  179. X
  180. X
  181. HCGI_init()
  182. {
  183. X  if (getenv(cgidriver = "CGIPRNT") == NULL)
  184. X    int_error("no CGI driver", NO_CARET);
  185. }
  186. X
  187. X
  188. CGI_graphics()
  189. {
  190. X  int    i, aspect;
  191. X  char *s;
  192. X  short font_cap[9];
  193. X  char    err_str[80];
  194. X
  195. X  if ( (s=getenv("ASPECT")) != NULL && (aspect=atoi(s)) >= 0 && aspect <= 3 )
  196. X    gin[0] = aspect;
  197. X  for (i = 0; cgidriver[i]; i++) 
  198. X    gin[11+i] = cgidriver[i];
  199. X  gin[18] = ' ';
  200. X
  201. X  if (v_opnwk(gin, &cgidev, gout) < 0) 
  202. X    {
  203. X      sprintf(err_str, "CGI error %d opening %s", -vq_error(), cgidriver);
  204. X      int_error(err_str, NO_CARET);
  205. X    }
  206. X  vqt_representation(cgidev, 9, font_cap);
  207. X  CGI_VCHAR = font_cap[8] * 3 / 2;
  208. X  CGI_HCHAR = font_cap[7];
  209. X  CGI_HTIC = CGI_VTIC * ((double) gout[1] / (double) gout[4]) / 
  210. X            ((double) gout[0] / (double) gout[3]);
  211. #ifdef VGA_MONO
  212. X  if (CGICOLORS > 2)
  213. X    vsc_table(cgidev, 0, CGICOLORS, rgb);
  214. #endif
  215. }
  216. X
  217. X
  218. CGI_text()
  219. {
  220. X  if (CRT)  
  221. X    {
  222. X      short ptin[2];
  223. X      char  strin[2];
  224. X      
  225. X      ptin[0] = 0;
  226. X      ptin[1] = 0;
  227. X      vrq_string(cgidev, 1, 0, ptin, strin);
  228. X    }
  229. X  v_clswk(cgidev);
  230. }
  231. X
  232. X
  233. CGI_reset()
  234. {
  235. }
  236. X
  237. X
  238. CGI_move(x, y)
  239. X     int x, y;
  240. {
  241. X  vect[0] = x;
  242. X  vect[1] = y;
  243. }
  244. X
  245. CGI_vector(x, y)
  246. X     int x, y;
  247. {
  248. X  vect[2] = x;
  249. X  vect[3] = y;
  250. X  v_pline(cgidev, 2, vect);
  251. X  vect[0] = x;
  252. X  vect[1] = y;
  253. }
  254. X
  255. X
  256. CGI_linetype(linetype)
  257. X     int linetype;
  258. {
  259. X  short lcolor;
  260. X
  261. X  if (CGICOLORS > 2) 
  262. X    {
  263. X      lcolor = (linetype + 2) % CGICOLORS + 1;
  264. X      vsl_color(cgidev, lcolor);
  265. X      vsm_color(cgidev, lcolor);
  266. X    }
  267. X  vsl_type(cgidev, (linetype < 1) ? 1 : (linetype % CGILINES) + 1);
  268. }
  269. X
  270. X
  271. CGI_put_text(x, y, str)
  272. int x, y;
  273. char *str;
  274. {
  275. X  v_gtext(cgidev, (short) x, (short) y, str);
  276. }
  277. X
  278. X
  279. CGI_text_angle(ang)
  280. int    ang;
  281. {
  282. X  if (!CGIROTATES)
  283. X    return FALSE;
  284. X                /* angles are 1/10 degree ccw */
  285. X  vst_rotation(cgidev, (ang) ? 900 : 0);
  286. X  return TRUE;
  287. }
  288. X
  289. X
  290. CGI_justify_text(mode)
  291. enum JUSTIFY mode;
  292. {
  293. X  short hor_in, hor_out, vert_out;
  294. X
  295. X  if (!CGITEXTALIGN)
  296. X    return FALSE;
  297. X
  298. X  switch (mode)
  299. X    {
  300. X    case LEFT:   hor_in = 0; break;
  301. X    case CENTRE: hor_in = 1; break;
  302. X    case RIGHT:  hor_in = 2; break;
  303. X    }
  304. X  vst_alignment(cgidev, hor_in, 1, &hor_out, &vert_out); 
  305. X  return TRUE;
  306. }
  307. X
  308. X
  309. #define POINT_TYPES 6
  310. X
  311. CGI_point(x,y,num)
  312. X     int x, y, num;
  313. {
  314. X  short  point[2];
  315. X  static short cgimarker[POINT_TYPES] = {1, 2, 6, 4, 5, 3};
  316. X                          /* .  +  <> [] X  * */
  317. X  if (num < 0)
  318. X    {
  319. X      CGI_move(x, y);
  320. X      CGI_vector(x, y);
  321. X    }
  322. X  else
  323. X    {
  324. X      vsm_type(cgidev, cgimarker[num % POINT_TYPES]);
  325. X      point[0] = x;
  326. X      point[1] = y;
  327. X      v_pmarker(cgidev, 1, point);
  328. X    }
  329. }
  330. SHAR_EOF
  331. chmod 0666 gnuplot/term/cgi.trm ||
  332. echo 'restore of gnuplot/term/cgi.trm failed'
  333. Wc_c="`wc -c < 'gnuplot/term/cgi.trm'`"
  334. test 4407 -eq "$Wc_c" ||
  335.     echo 'gnuplot/term/cgi.trm: original size 4407, current size' "$Wc_c"
  336. rm -f _shar_wnt_.tmp
  337. fi
  338. # ============= gnuplot/term/dxy.trm ==============
  339. if test -f 'gnuplot/term/dxy.trm' -a X"$1" != X"-c"; then
  340.     echo 'x - skipping gnuplot/term/dxy.trm (File already exists)'
  341.     rm -f _shar_wnt_.tmp
  342. else
  343. > _shar_wnt_.tmp
  344. echo 'x - extracting gnuplot/term/dxy.trm (Text)'
  345. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/dxy.trm' &&
  346. /* GNUPLOT - dxy.trm */
  347. /*
  348. X * Copyright (C) 1990   
  349. X *
  350. X * Permission to use, copy, and distribute this software and its
  351. X * documentation for any purpose with or without fee is hereby granted, 
  352. X * provided that the above copyright notice appear in all copies and 
  353. X * that both that copyright notice and this permission notice appear 
  354. X * in supporting documentation.
  355. X *
  356. X * Permission to modify the software is granted, but not the right to
  357. X * distribute the modified code.  Modifications are to be distributed 
  358. X * as patches to released version.
  359. X *  
  360. X * This software  is provided "as is" without express or implied warranty.
  361. X * 
  362. X * This file is included by ../term.c.
  363. X *
  364. X * This terminal driver supports:
  365. X *  Roland DXY800A plotter 
  366. X *
  367. X * AUTHORS
  368. X *  Martin Yii, eln557h@monu3.OZ
  369. X *  Further modified Jan 1990 by Russell Lang, rjl@monu1.cc.monash.oz
  370. X * 
  371. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  372. X * 
  373. X */
  374. X
  375. #define DXY_XMAX 2470
  376. #define DXY_YMAX 1700
  377. X
  378. #define DXY_XLAST (DXY_XMAX - 1)
  379. #define DXY_YLAST (DXY_XMAX - 1)
  380. X
  381. #define DXY_VCHAR    (56)    /* double actual height of characters */
  382. #define DXY_HCHAR    (28)    /* actual width including spacing */
  383. #define DXY_VTIC    (28)        
  384. #define DXY_HTIC    (28)        
  385. X
  386. int dxy_angle = 0;
  387. X
  388. DXY_init()
  389. {
  390. /*
  391. X    No initialisation sequences for DXY 800A
  392. */
  393. }
  394. X
  395. X
  396. DXY_graphics()
  397. {
  398. X    /* HOME, Character size 3 */
  399. X    fprintf(outfile,"H\nS3\n");
  400. }
  401. X
  402. X
  403. DXY_text()
  404. {
  405. /*
  406. X    No sequences needed
  407. */
  408. }
  409. X
  410. X
  411. DXY_linetype(linetype)
  412. int linetype;
  413. {
  414. X    /* select pen */
  415. X    fprintf(outfile,"J%d\n",(linetype+2)%8+1);
  416. X    switch(linetype) {
  417. X       case -1 :  /* use dotted line for axis */
  418. X               fprintf(outfile,"L1\nB50\n");
  419. X            break;
  420. X       default :  /* use solid line for all others */
  421. X            fprintf(outfile,"L0\n");
  422. X                break;
  423. X       }
  424. }
  425. X
  426. X
  427. DXY_move(x,y)
  428. int x,y;
  429. {
  430. X    fprintf(outfile,"M%d,%d\n",x,y);
  431. }
  432. X
  433. X
  434. DXY_vector(x,y)
  435. int x,y;
  436. {
  437. X    fprintf(outfile,"D%d,%d\n",x,y);
  438. }
  439. X
  440. X
  441. DXY_put_text(x,y,str)
  442. int x, y;
  443. char *str;
  444. {
  445. X    if (dxy_angle == 1 ) 
  446. X        /* vertical */
  447. X        DXY_move(x + DXY_VCHAR/4,y);
  448. X    else
  449. X        /* horiz */
  450. X        DXY_move(x,y - DXY_VCHAR/4);
  451. X    fprintf(outfile,"P%s\n",str);
  452. }
  453. X
  454. X
  455. int DXY_text_angle(ang)
  456. int ang;
  457. {
  458. X    dxy_angle = ang;
  459. X    fprintf(outfile,"Q%d\n",ang);
  460. X    return TRUE;
  461. }
  462. X
  463. X
  464. DXY_reset()
  465. {
  466. X    /* Home pen */
  467. X    fprintf(outfile,"H\n");
  468. }
  469. X
  470. SHAR_EOF
  471. chmod 0666 gnuplot/term/dxy.trm ||
  472. echo 'restore of gnuplot/term/dxy.trm failed'
  473. Wc_c="`wc -c < 'gnuplot/term/dxy.trm'`"
  474. test 2238 -eq "$Wc_c" ||
  475.     echo 'gnuplot/term/dxy.trm: original size 2238, current size' "$Wc_c"
  476. rm -f _shar_wnt_.tmp
  477. fi
  478. # ============= gnuplot/term/eepic.trm ==============
  479. if test -f 'gnuplot/term/eepic.trm' -a X"$1" != X"-c"; then
  480.     echo 'x - skipping gnuplot/term/eepic.trm (File already exists)'
  481.     rm -f _shar_wnt_.tmp
  482. else
  483. > _shar_wnt_.tmp
  484. echo 'x - extracting gnuplot/term/eepic.trm (Text)'
  485. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/eepic.trm' &&
  486. /* GNUPLOT - eepic.trm */
  487. /*
  488. X * Copyright (C) 1990   
  489. X *
  490. X * Permission to use, copy, and distribute this software and its
  491. X * documentation for any purpose with or without fee is hereby granted, 
  492. X * provided that the above copyright notice appear in all copies and 
  493. X * that both that copyright notice and this permission notice appear 
  494. X * in supporting documentation.
  495. X *
  496. X * Permission to modify the software is granted, but not the right to
  497. X * distribute the modified code.  Modifications are to be distributed 
  498. X * as patches to released version.
  499. X *  
  500. X * This software  is provided "as is" without express or implied warranty.
  501. X * 
  502. X * This file is included by ../term.c.
  503. X *
  504. X * This terminal driver supports:
  505. X *   The EEPIC macros for LaTeX. 
  506. X *
  507. X * AUTHORS
  508. X *   David Kotz
  509. X *
  510. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  511. X * 
  512. X */
  513. /*
  514. X *  This file contains the eepic terminal driver, intended for use with the 
  515. X *  eepic.sty macro package for LaTeX. This is an alternative to the 
  516. X *  latex driver. You need eepic.sty, epic.sty, and a printer driver that
  517. X *  supports the tpic \specials.
  518. X *
  519. X * Although dotted and dashed lines are possible with EEPIC, and are
  520. X * tempting, they do not work well for high-sample-rate curves, mushing
  521. X * the dashes all together into a solid line. For now anyway, the EEPIC
  522. X * driver will have only solid lines. Anyone got a solution?
  523. X *
  524. X * LATEX must also be defined.
  525. X */
  526. X
  527. #define EEPIC_PTS_PER_INCH (72.27)
  528. #define DOTS_PER_INCH (300)    /* resolution of printer we expect to use */
  529. #define EEPIC_UNIT (EEPIC_PTS_PER_INCH/DOTS_PER_INCH) /* dot size in pt */
  530. X
  531. /* 5 inches wide by 3 inches high (default) */
  532. #define EEPIC_XMAX (5*DOTS_PER_INCH)  /* (EEPIC_PTS_PER_INCH/EEPIC_UNIT*5.0) */
  533. #define EEPIC_YMAX (3*DOTS_PER_INCH)  /* (EEPIC_PTS_PER_INCH/EEPIC_UNIT*3.0) */
  534. X
  535. #define EEPIC_HTIC (5*DOTS_PER_INCH/72)        /* (5./EEPIC_UNIT) */
  536. #define EEPIC_VTIC (5*DOTS_PER_INCH/72)        /* (5./EEPIC_UNIT) */
  537. #define EEPIC_HCHAR (DOTS_PER_INCH*53/10/72)    /* (5.3/EEPIC_UNIT) */
  538. #define EEPIC_VCHAR (DOTS_PER_INCH*11/72)    /* (11./EEPIC_UNIT) */
  539. X
  540. static unsigned int EEPIC_posx;
  541. static unsigned int EEPIC_posy;
  542. enum JUSTIFY eepic_justify=LEFT;
  543. static int eepic_angle=0;
  544. X
  545. /* for DOTS point style */
  546. #define EEPIC_TINY_DOT "\\rule{.1pt}{.1pt}"
  547. X
  548. /* POINTS */
  549. #define EEPIC_POINT_TYPES 12    /* we supply more point types */
  550. static char *EEPIC_points[] = {
  551. X    "\\raisebox{-1.2pt}{\\makebox(0,0){$\\Diamond$}}",
  552. X    "\\makebox(0,0){$+$}",
  553. X    "\\raisebox{-1.2pt}{\\makebox(0,0){$\\Box$}}",
  554. X    "\\makebox(0,0){$\\times$}",
  555. X    "\\makebox(0,0){$\\triangle$}",
  556. X    "\\makebox(0,0){$\\star$}",
  557. X    "\\circle{12}", "\\circle{18}", "\\circle{24}",
  558. X    "\\circle*{12}", "\\circle*{18}", "\\circle*{24}"
  559. };
  560. X
  561. /* LINES */
  562. #define EEPIC_NUMLINES 5        /* number of linetypes below */
  563. static char *EEPIC_lines[] = {
  564. X    "\\thicklines \\path",            /* -2 border */
  565. X    "\\thinlines \\drawline[-50]",        /* -1 axes */
  566. X    "\\thinlines \\path",            /*  0 solid thin  */
  567. X    "\\thicklines \\path",            /*  1 solid thick */
  568. X    "\\Thicklines \\path",            /*  2 solid Thick */
  569. };
  570. /* These are other possibilities
  571. X    "\\thinlines \\dottedline{30}",
  572. X    "\\thinlines \\drawline[-30]",    
  573. X    "\\thinlines \\dottedline{60}",
  574. X    "\\thinlines \\drawline[-60]",    
  575. X    "\\thinlines \\dashline[-10]{20}[6]"
  576. */
  577. static int EEPIC_type;        /* current line type */
  578. static BOOLEAN EEPIC_inline = FALSE; /* are we in the middle of a line */
  579. static void EEPIC_endline();    /* terminate any line in progress */
  580. static int EEPIC_linecount = 0; /* number of points in line so far */
  581. #define EEPIC_LINEMAX 50        /* max value for linecount */
  582. X
  583. /* ARROWS */
  584. /* we use the same code as for LATEX */
  585. static void best_latex_arrow(); /* figure out the best arrow */
  586. X
  587. EEPIC_init()
  588. {
  589. X    EEPIC_posx = EEPIC_posy = 0;
  590. X    EEPIC_linetype(-1);
  591. X    fprintf(outfile, "%% GNUPLOT: LaTeX picture using EEPIC macros\n");
  592. X    fprintf(outfile, "\\setlength{\\unitlength}{%fpt}\n", EEPIC_UNIT);
  593. }
  594. X
  595. X
  596. EEPIC_scale(xs, ys)
  597. X    double xs, ys;            /* scaling factors */
  598. {
  599. X    register struct termentry *t = &term_tbl[term];
  600. X
  601. X    /* we change the table for use in graphics.c and EEPIC_graphics */
  602. X    t->xmax = (unsigned int)(EEPIC_XMAX * xs);
  603. X    t->ymax = (unsigned int)(EEPIC_YMAX * ys);
  604. X
  605. X    return(TRUE);
  606. }
  607. X
  608. EEPIC_graphics()
  609. {
  610. X    register struct termentry *t = &term_tbl[term];
  611. X
  612. X    fprintf(outfile, "\\begin{picture}(%d,%d)(0,0)\n", t->xmax, t->ymax);
  613. X    fprintf(outfile, "\\tenrm\n");
  614. }
  615. X
  616. X
  617. EEPIC_text()
  618. {
  619. X    EEPIC_endline();
  620. X    fprintf(outfile, "\\end{picture}\n");
  621. }
  622. X
  623. X
  624. EEPIC_linetype(linetype)
  625. X    int linetype;
  626. {
  627. X    EEPIC_endline();
  628. X
  629. X    if (linetype >= EEPIC_NUMLINES-2)
  630. X     linetype %= (EEPIC_NUMLINES-2);
  631. X
  632. X    EEPIC_type = linetype;
  633. }
  634. X
  635. X
  636. X
  637. EEPIC_move(x,y)
  638. X    unsigned int x,y;
  639. {
  640. X    EEPIC_endline();
  641. X
  642. X    EEPIC_posx = x;
  643. X    EEPIC_posy = y;
  644. }
  645. X
  646. X
  647. EEPIC_point(x,y, number)        /* version of line_and_point */
  648. X    unsigned int x,y;
  649. X    int number;                /* type of point */
  650. {
  651. X    EEPIC_move(x,y);
  652. X    
  653. X    /* Print the character defined by 'number'; number < 0 means 
  654. X      to use a dot, otherwise one of the defined points. */
  655. X    fprintf(outfile, "\\put(%d,%d){%s}\n", x, y, 
  656. X          (number < 0 ? EEPIC_TINY_DOT
  657. X           : EEPIC_points[number % EEPIC_POINT_TYPES]));
  658. }
  659. X
  660. X
  661. EEPIC_vector(ux,uy)
  662. X    unsigned int ux,uy;
  663. {
  664. X    if (!EEPIC_inline) {
  665. X       EEPIC_inline = TRUE;
  666. X
  667. X       /* Start a new line. This depends on line type */
  668. X       fprintf(outfile, "%s(%u,%u)", 
  669. X             EEPIC_lines[EEPIC_type+2], 
  670. X             EEPIC_posx, EEPIC_posy);
  671. X       EEPIC_linecount = 1;
  672. X    } else {
  673. X       /* Even though we are in middle of a path, 
  674. X        * we may want to start a new path command. 
  675. X        * If they are too long then latex will choke.
  676. X        */
  677. X       if (EEPIC_linecount++ >= EEPIC_LINEMAX) {
  678. X          fprintf(outfile, "\n");
  679. X          fprintf(outfile, "%s(%u,%u)", 
  680. X                EEPIC_lines[EEPIC_type+2], 
  681. X                EEPIC_posx, EEPIC_posy);
  682. X          EEPIC_linecount = 1;
  683. X       }
  684. X    }
  685. X    fprintf(outfile, "(%u,%u)", ux,uy);
  686. X    EEPIC_posx = ux;
  687. X    EEPIC_posy = uy;
  688. }
  689. X
  690. static void
  691. EEPIC_endline()
  692. {
  693. X    if (EEPIC_inline) {
  694. X       fprintf(outfile, "\n");
  695. X       EEPIC_inline = FALSE;
  696. X    }
  697. }
  698. X
  699. X
  700. EEPIC_arrow(sx,sy, ex,ey, head)
  701. X    int sx,sy, ex,ey;
  702. X    BOOLEAN head;
  703. {
  704. X    best_latex_arrow(sx,sy, ex,ey, 2, head); /* call latex routine */
  705. X
  706. X    EEPIC_posx = ex;
  707. X    EEPIC_posy = ey;
  708. }
  709. X
  710. X
  711. EEPIC_put_text(x, y, str)
  712. X    int x,y;                /* reference point of string */
  713. X    char str[];            /* the text */
  714. {
  715. X    EEPIC_endline();
  716. X
  717. X    fprintf(outfile, "\\put(%d,%d)",x,y);
  718. X    switch(eepic_angle) {  
  719. X        case 0: {
  720. X          switch(eepic_justify) {
  721. X             case LEFT: {
  722. X                fprintf(outfile,
  723. X                       "{\\makebox(0,0)[l]{%s}}\n", str);
  724. X                break;
  725. X             }
  726. X             case CENTRE: {
  727. X                fprintf(outfile,
  728. X                       "{\\makebox(0,0){%s}}\n", str);
  729. X                break;
  730. X             }
  731. X             case RIGHT: {
  732. X                fprintf(outfile,
  733. X                       "{\\makebox(0,0)[r]{%s}}\n", str);
  734. X                break;
  735. X             }
  736. X          }
  737. X          break;
  738. X       }
  739. X       case 1: {            /* put text in a short stack */
  740. X          switch(eepic_justify) {
  741. X             case LEFT: {
  742. X                fprintf(outfile,
  743. X                       "{\\makebox(0,0)[lb]{\\shortstack{%s}}}\n", str);
  744. X                break;
  745. X             }
  746. X             case CENTRE: {
  747. X                fprintf(outfile,
  748. X                       "{\\makebox(0,0)[l]{\\shortstack{%s}}}\n", str);
  749. X                break;
  750. X             }
  751. X             case RIGHT: {
  752. X                fprintf(outfile,
  753. X                       "{\\makebox(0,0)[lt]{\\shortstack{%s}}}\n", str);
  754. X                break;
  755. X             }
  756. X          }
  757. X          break;
  758. X       }    
  759. X    }
  760. }
  761. X
  762. X
  763. X
  764. int EEPIC_justify_text(mode)
  765. X    enum JUSTIFY mode;
  766. {
  767. X    eepic_justify = mode;
  768. X    return (TRUE);
  769. }
  770. X
  771. int EEPIC_text_angle(angle)
  772. X    int angle;
  773. {
  774. X    /* we can't really write text vertically, but this will 
  775. X      put the ylabel centred at the left of the plot, and
  776. X      then we'll make a \shortstack */
  777. X    eepic_angle = angle;
  778. X    return (TRUE);
  779. }
  780. X
  781. EEPIC_reset()
  782. {
  783. X    EEPIC_endline();
  784. X    EEPIC_posx = EEPIC_posy = 0;
  785. }
  786. X
  787. SHAR_EOF
  788. chmod 0644 gnuplot/term/eepic.trm ||
  789. echo 'restore of gnuplot/term/eepic.trm failed'
  790. Wc_c="`wc -c < 'gnuplot/term/eepic.trm'`"
  791. test 7640 -eq "$Wc_c" ||
  792.     echo 'gnuplot/term/eepic.trm: original size 7640, current size' "$Wc_c"
  793. rm -f _shar_wnt_.tmp
  794. fi
  795. # ============= gnuplot/term/epson.trm ==============
  796. if test -f 'gnuplot/term/epson.trm' -a X"$1" != X"-c"; then
  797.     echo 'x - skipping gnuplot/term/epson.trm (File already exists)'
  798.     rm -f _shar_wnt_.tmp
  799. else
  800. > _shar_wnt_.tmp
  801. echo 'x - extracting gnuplot/term/epson.trm (Text)'
  802. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/epson.trm' &&
  803. /* GNUPLOT - epson.trm */
  804. /*
  805. X * Copyright (C) 1990   
  806. X *
  807. X * Permission to use, copy, and distribute this software and its
  808. X * documentation for any purpose with or without fee is hereby granted, 
  809. X * provided that the above copyright notice appear in all copies and 
  810. X * that both that copyright notice and this permission notice appear 
  811. X * in supporting documentation.
  812. X *
  813. X * Permission to modify the software is granted, but not the right to
  814. X * distribute the modified code.  Modifications are to be distributed 
  815. X * as patches to released version.
  816. X *  
  817. X * This software  is provided "as is" without express or implied warranty.
  818. X * 
  819. X * This file is included by ../term.c.
  820. X *
  821. X * This terminal driver supports:
  822. X *  epson_lx800, nec_cp6c, nec_cp6d, nec_cp6b, starc,
  823. X *  epson_60dpi, tandy_60dpi
  824. X *
  825. X * AUTHORS
  826. X *  Russell Lang
  827. X *  William Wilson
  828. X *
  829. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  830. X * 
  831. X */
  832. X
  833. /* The following epson lx800 driver uses generic bit mapped graphics
  834. X   routines to build up a bit map in memory. */
  835. /* by Russell Lang, rjl@monu1.cc.monash.edu.au */
  836. /* On PC, print using 'copy file /b lpt1:', do NOT use 'print' */
  837. /* EPSON_init changes outfile to binary mode on PC's */
  838. X
  839. #ifdef EPSONP
  840. X
  841. #define EPSONXMAX    512 
  842. #define EPSONYMAX    384
  843. X
  844. #define EPSONXLAST (EPSONXMAX - 1)
  845. #define EPSONYLAST (EPSONYMAX - 1)
  846. X
  847. #define EPSONVCHAR        FNT5X9_VCHAR      
  848. #define EPSONHCHAR        FNT5X9_HCHAR        
  849. #define EPSONVTIC        6
  850. #define EPSONHTIC        6
  851. X
  852. EPSONinit()
  853. {
  854. #ifdef PC
  855. X    reopen_binary();
  856. #endif
  857. #ifdef vms
  858. X    reopen_binary();
  859. #endif
  860. }
  861. X
  862. X
  863. EPSONgraphics()
  864. {
  865. X    b_charsize(FNT5X9);
  866. X    b_makebitmap((unsigned int)(EPSONXMAX*xsize),
  867. X                 (unsigned int)(EPSONYMAX*ysize),1);
  868. }
  869. X
  870. X
  871. EPSONtext()
  872. {
  873. X    epson_dump();
  874. X    b_freebitmap();
  875. }
  876. X
  877. X
  878. #define EPSONlinetype b_setlinetype
  879. #define EPSONmove b_move
  880. #define EPSONvector b_vector
  881. #define EPSONput_text b_put_text
  882. #define EPSON_text_angle b_text_angle
  883. X
  884. EPSONreset()
  885. {
  886. #ifdef vms
  887. X    fflush_binary();
  888. #endif
  889. }
  890. X
  891. X
  892. /* output file must be binary mode for epson_dump */
  893. epson_dump()
  894. {
  895. X  register unsigned int x;
  896. X  int j;
  897. X    for (j=(b_ysize/8)-1; j>=0; j--) {
  898. X        /* select plotter graphics mode (square pixels) */
  899. X        fprintf(outfile,"\033J\030");    /* line feed 8/72" = 8 dots */
  900. X        fprintf(outfile,"\r\033*\005");
  901. X        (void) fputc((char)(b_xsize%256),outfile);
  902. X        (void) fputc((char)(b_xsize/256),outfile);
  903. X        for (x=0; x<b_xsize; x++) {
  904. X            (void) fputc( (char)(*((*b_p)[j]+x)), outfile );
  905. X        }
  906. X    }
  907. #ifdef PC
  908. X    fprintf(stderr,"Print using: COPY /B\n");
  909. #endif
  910. }
  911. X
  912. #endif /* EPSONP */
  913. X
  914. X
  915. /* The following NEC CP6 Pinwriter driver uses generic bit mapped graphics
  916. X   routines to build up a bit map in memory. */
  917. /* by Russell Lang, rjl@monu1.cc.monash.edu.au */
  918. /* On PC, print using 'copy file /b lpt1:', do NOT use 'print' */
  919. /* NECinit changes outfile to binary mode for PC's */
  920. X
  921. /* Add a Monochrome NEC printer (for faster speed and line types) jdc */
  922. X
  923. #ifdef NEC
  924. X
  925. #define NECXMAX    400 
  926. #define NECYMAX    320
  927. X
  928. #define NECXLAST (NECXMAX - 1)
  929. #define NECYLAST (NECYMAX - 1)
  930. X
  931. #define NECVCHAR        FNT5X9_VCHAR      
  932. #define NECHCHAR        FNT5X9_HCHAR        
  933. #define NECVTIC        6
  934. #define NECHTIC        6
  935. X
  936. /* plane 0=black, 1=cyan(blue), 2=magenta(red), 3=yellow */
  937. static unsigned int neccolor[] = {1,8,4,2,10,12,6,14};
  938. static unsigned int necpcolor[]= {0,2,1,4};
  939. X
  940. NECinit()
  941. {
  942. #ifdef PC
  943. X    reopen_binary();
  944. #endif
  945. #ifdef vms
  946. X    reopen_binary();
  947. #endif
  948. }
  949. X
  950. X
  951. /* Monochrome only NEC CP6 printer (set term nec_cp6m or nec_cp6d). */
  952. /* will probably work with NEC P6 printer */
  953. NECMgraphics()
  954. {
  955. X    b_charsize(FNT5X9);
  956. X    b_makebitmap((unsigned int)(NECXMAX*xsize),
  957. X                 (unsigned int)(NECYMAX*ysize),1);
  958. }
  959. X
  960. /* Color ribbon in NEC CP6 printer (set term nec_cp6c) */
  961. NECCgraphics()
  962. {
  963. X    b_charsize(FNT5X9);
  964. X    b_makebitmap((unsigned int)(NECXMAX*xsize),
  965. X                 (unsigned int)(NECYMAX*ysize),4);
  966. }
  967. X
  968. X
  969. NECdraft_text()
  970. {
  971. X    nec_draft_dump();
  972. X    b_freebitmap();
  973. }
  974. X
  975. NECtext()
  976. {
  977. X    nec_dump();
  978. X    b_freebitmap();
  979. }
  980. X
  981. NECClinetype(linetype)
  982. int linetype;
  983. {
  984. X    if (linetype>=6)
  985. X        linetype %= 6;
  986. X    b_setvalue(neccolor[linetype+2]);
  987. }
  988. X
  989. #define NECMlinetype b_setlinetype
  990. #define NECmove b_move
  991. #define NECvector b_vector
  992. #define NECput_text b_put_text
  993. #define NEC_text_angle b_text_angle
  994. X
  995. X    
  996. NECreset()
  997. {
  998. #ifdef vms
  999. X    fflush_binary();
  1000. #endif
  1001. }
  1002. X
  1003. X
  1004. /* output file must be binary mode for nec_dump */
  1005. nec_dump()
  1006. {
  1007. unsigned int x;
  1008. unsigned int plane,offset;
  1009. int j;
  1010. unsigned int column8;
  1011. unsigned long column24;
  1012. char column3, column2, column1;
  1013. X    fprintf(outfile,"\033P\033l\005");  /* 10cpi, left margin 5 char */
  1014. X    for (j=(b_ysize/8)-1;j>=0;j--) {
  1015. X            fprintf(outfile,"\033J\030");  /* 24/180" line feed */
  1016. X            for (plane=0; plane<b_planes; plane++) {
  1017. X                offset=plane*b_psize;
  1018. X                if (b_planes>1) {
  1019. X                    /* select colour for plane */
  1020. X                    fprintf(outfile,"\033r");
  1021. X                    (void) fputc((char)necpcolor[plane],outfile);
  1022. X                }
  1023. X                /* select plotter graphics mode (square pixels) */
  1024. X                fprintf(outfile,"\r\033*\047");
  1025. X                (void) fputc((char)((b_xsize*3)%256),outfile);
  1026. X                (void) fputc((char)((b_xsize*3)/256),outfile);
  1027. X                for (x=0; x<b_xsize; x++) {
  1028. X                    column8= (unsigned int)(*((*b_p)[j+offset]+x));
  1029. X                    column24=0;
  1030. X                    if (column8&0x01) column24|=(long)0x000007;
  1031. X                    if (column8&0x02) column24|=(long)0x000038;
  1032. X                    if (column8&0x04) column24|=(long)0x0001c0;
  1033. X                    if (column8&0x08) column24|=(long)0x000e00;
  1034. X                    if (column8&0x10) column24|=(long)0x007000;
  1035. X                    if (column8&0x20) column24|=(long)0x038000;
  1036. X                    if (column8&0x40) column24|=(long)0x1c0000;
  1037. X                    if (column8&0x80) column24|=(long)0xe00000;
  1038. X                    column1 = (char) ( column24      & (long)0xff);
  1039. X                    column2 = (char) ((column24>>8)  & (long)0xff);
  1040. X                    column3 = (char) ((column24>>16) & (long)0xff);
  1041. X                    (void) fputc(column3,outfile);
  1042. X                    (void) fputc(column2,outfile);
  1043. X                    (void) fputc(column1,outfile);
  1044. X                    (void) fputc(column3,outfile);
  1045. X                    (void) fputc(column2,outfile);
  1046. X                    (void) fputc(column1,outfile);
  1047. X                    (void) fputc(column3,outfile);
  1048. X                    (void) fputc(column2,outfile);
  1049. X                    (void) fputc(column1,outfile);
  1050. X                }
  1051. X            }
  1052. X    }
  1053. X    fprintf(outfile,"\r\033l");
  1054. X    (void) fputc('\0',outfile);                /* set left margin to 0 */
  1055. X    if (b_planes > 1) {
  1056. X        fprintf(outfile,"\033r");
  1057. X        (void) fputc('\0',outfile);                /* set color to black */
  1058. X    }
  1059. #ifdef PC
  1060. X    fprintf(stderr,"Print using: COPY /B\n");
  1061. #endif
  1062. #ifdef vms
  1063. X    fflush_binary();
  1064. #endif
  1065. }
  1066. X
  1067. /* output file must be binary mode for nec_dump */
  1068. nec_draft_dump()
  1069. {
  1070. unsigned int x;
  1071. unsigned int plane,offset;
  1072. int j;
  1073. X    fprintf(outfile,"\033P\033l\005\r");  /* 10cpi, left margin 5 char */
  1074. X    for (j=(b_ysize/8)-1;j>=0;j--) {
  1075. X            fprintf(outfile,"\033J\030");  /* 24/180" line feed */
  1076. X            for (plane=0; plane<b_planes; plane++) {
  1077. X                offset=plane*b_psize;
  1078. X                if (b_planes>1) {
  1079. X                    /* select colour for plane */
  1080. X                    fprintf(outfile,"\033r");
  1081. X                    (void) fputc((char)necpcolor[plane],outfile);
  1082. X                }
  1083. X                /* select plotter graphics mode (square pixels) */
  1084. X                fprintf(outfile,"\r\033*");
  1085. X                (void) fputc('\0',outfile);
  1086. X                (void) fputc((char)(b_xsize%256),outfile);
  1087. X                (void) fputc((char)(b_xsize/256),outfile);
  1088. X                for (x=0; x<b_xsize; x++) {
  1089. X                    (void) fputc( (char)(*((*b_p)[j+offset]+x)), outfile );
  1090. X                }
  1091. X            }
  1092. X    }
  1093. X    fprintf(outfile,"\r\033l");
  1094. X    (void) fputc('\0',outfile);                /* set left margin to 0 */
  1095. X    if (b_planes > 1) {
  1096. X        fprintf(outfile,"\033r");
  1097. X        (void) fputc('\0',outfile);                /* set color to black */
  1098. X    }
  1099. #ifdef PC
  1100. X    fprintf(stderr,"Print using: COPY /B\n");
  1101. #endif
  1102. }
  1103. X
  1104. #endif /* NEC */
  1105. X
  1106. #ifdef STARC
  1107. /* The following Star color driver uses generic bit mapped graphics
  1108. X   routines to build up a bit map in memory. */
  1109. /* Star Color changes made by William Wilson, wew@naucse.cse.nau.edu */
  1110. /* On PC, print using 'copy file /b lpt1:', do NOT use 'print' */
  1111. /* STARC_init changes outfile to binary mode on PC's */
  1112. X
  1113. #define STARCXMAX    512 
  1114. #define STARCYMAX    384
  1115. X
  1116. #define STARCXLAST (STARCXMAX - 1)
  1117. #define STARCYLAST (STARCYMAX - 1)
  1118. X
  1119. #define STARCVCHAR        FNT5X9_VCHAR      
  1120. #define STARCHCHAR        FNT5X9_HCHAR        
  1121. #define STARCVTIC        6
  1122. #define STARCHTIC        6
  1123. X
  1124. /* plane 0=black, 1=cyan(blue), 2=magenta(red), 3=yellow */
  1125. static unsigned int STARCcolor[] = {1,8,4,2,10,12,6,14};
  1126. static unsigned int STARCpcolor[]= {0,2,1,4};
  1127. X
  1128. STARCinit()
  1129. {
  1130. #ifdef PC
  1131. X    reopen_binary();
  1132. #endif
  1133. #ifdef vms
  1134. X    reopen_binary();
  1135. #endif
  1136. }
  1137. X
  1138. X
  1139. STARCgraphics()
  1140. {
  1141. X    b_charsize(FNT5X9);
  1142. X    b_makebitmap((unsigned int)(STARCXMAX*xsize),
  1143. X                 (unsigned int)(STARCYMAX*ysize),4);
  1144. }
  1145. X
  1146. X
  1147. STARCtext()
  1148. {
  1149. X    STARC_dump();
  1150. X    b_freebitmap();
  1151. }
  1152. X
  1153. STARClinetype(linetype)
  1154. int linetype;
  1155. {
  1156. X    if (linetype>=6)
  1157. X        linetype %= 6;
  1158. X    b_setvalue(STARCcolor[linetype+2]);
  1159. }
  1160. X
  1161. X
  1162. #define STARCmove b_move
  1163. #define STARCvector b_vector
  1164. #define STARCput_text b_put_text
  1165. #define STARC_text_angle b_text_angle
  1166. X
  1167. STARCreset()
  1168. {
  1169. #ifdef vms
  1170. X    fflush_binary();
  1171. #endif
  1172. }
  1173. X
  1174. X
  1175. /* output file must be binary mode for STARC_dump */
  1176. STARC_dump()
  1177. {
  1178. unsigned int x;
  1179. unsigned int plane,offset;
  1180. int j;
  1181. X    for (j=(b_ysize/8)-1;j>=0;j--) {
  1182. X        fprintf(outfile,"\033J\030");    /* line feed 8/72" = 8 dots */
  1183. X        for (plane=0; plane<b_planes; plane++) {
  1184. X            offset=plane*b_psize;
  1185. X            if (b_planes>1) {
  1186. X                /* select colour for plane */
  1187. X                fprintf(outfile,"\033r");
  1188. X                (void) fputc((char)STARCpcolor[plane],outfile);
  1189. X            }
  1190. X            /* select plotter graphics mode (square pixels) */
  1191. X            fprintf(outfile,"\r\033*\005");
  1192. X            (void) fputc((char)(b_xsize%256),outfile);
  1193. X            (void) fputc((char)(b_xsize/256),outfile);
  1194. X            for (x=0; x<b_xsize; x++) {
  1195. X                (void) fputc( (char)(*((*b_p)[j+offset]+x)), outfile );
  1196. X            }
  1197. X        }
  1198. X    }
  1199. X    if (b_planes > 1) {
  1200. X        fprintf(outfile,"\033r");
  1201. X        (void) fputc('\0',outfile);                /* set color to black */
  1202. X    }
  1203. #ifdef PC
  1204. X    fprintf(stderr,"Print using: COPY /B\n");
  1205. #endif
  1206. }
  1207. X
  1208. #endif /* STARC */
  1209. X
  1210. X
  1211. #ifdef EPS60
  1212. X
  1213. /* make the total dimensions 8 inches by 5 inches */
  1214. #define EPS60XMAX    480
  1215. #define EPS60YMAX    360
  1216. X
  1217. #define EPS60XLAST (EPS60XMAX - 1)
  1218. #define EPS60YLAST (EPS60YMAX - 1)
  1219. X
  1220. EPS60graphics()
  1221. {
  1222. X    b_charsize(FNT5X9);
  1223. X    b_makebitmap((unsigned int)(EPS60XMAX*xsize),
  1224. X                 (unsigned int)(EPS60YMAX*ysize),1);
  1225. }
  1226. X
  1227. X
  1228. EPS60text()
  1229. {
  1230. X    eps60_dump();
  1231. X    b_freebitmap();
  1232. }
  1233. X
  1234. X
  1235. X
  1236. /* output file must be binary mode for eps60_dump */
  1237. eps60_dump()
  1238. {
  1239. X  register unsigned int x;
  1240. X  int j;
  1241. X    fprintf(outfile,"\033%c\030",'3'); /* set line spacing 24/216" = 8 dots */
  1242. X    for (j=(b_ysize/8)-1; j>=0; j--) {
  1243. X        /* select printer graphics mode 'K' */
  1244. X        fprintf(outfile,"\r\n\033K");
  1245. X        (void) fputc((char)(b_xsize%256),outfile);
  1246. X        (void) fputc((char)(b_xsize/256),outfile);
  1247. X        for (x=0; x<b_xsize; x++) {
  1248. X            (void) fputc( (char)(*((*b_p)[j]+x)), outfile );
  1249. X        }
  1250. X    }
  1251. X    fprintf(outfile,"\033%c\044\r\n",'3'); /* set line spacing 36/216" = 1/6" */
  1252. #ifdef PC
  1253. X    fprintf(stderr,"Print using: COPY /B\n");
  1254. #endif
  1255. }
  1256. X
  1257. #endif /* EPS60 */
  1258. X
  1259. #ifdef TANDY60
  1260. X
  1261. /* The only difference between TANDY60 and EPS60 is the inclusion
  1262. X   of codes to swap the Tandy printer into IBM mode and back
  1263. X   into Tandy mode.  For a Tandy already in IBM mode, use EPS60. */
  1264. X
  1265. X
  1266. TANDY60text()
  1267. {
  1268. #ifdef PC
  1269. X    fprintf(stderr, "Inserting Tandy/IBM mode conversion codes\n");
  1270. #endif
  1271. X    /* Switch to IBM mode, and leave 3 inches above the plot so as
  1272. X       to get rough vertical centring on the page.  Perform the
  1273. X       centring by setting 1" line feeds and issuing 3 of them. */
  1274. X    fprintf(outfile, "\033!\033%c%c\n\n\n", '3',216);
  1275. X    eps60_dump();
  1276. X    b_freebitmap();
  1277. X    /* A form feed must be sent before switching back to Tandy mode,
  1278. X       or else the form setting will be messed up. */
  1279. X    fprintf(outfile, "\f\033!");
  1280. }
  1281. X
  1282. X
  1283. #endif  /* TANDY60 */
  1284. SHAR_EOF
  1285. chmod 0666 gnuplot/term/epson.trm ||
  1286. echo 'restore of gnuplot/term/epson.trm failed'
  1287. Wc_c="`wc -c < 'gnuplot/term/epson.trm'`"
  1288. test 11330 -eq "$Wc_c" ||
  1289.     echo 'gnuplot/term/epson.trm: original size 11330, current size' "$Wc_c"
  1290. rm -f _shar_wnt_.tmp
  1291. fi
  1292. # ============= gnuplot/term/fig.trm ==============
  1293. if test -f 'gnuplot/term/fig.trm' -a X"$1" != X"-c"; then
  1294.     echo 'x - skipping gnuplot/term/fig.trm (File already exists)'
  1295.     rm -f _shar_wnt_.tmp
  1296. else
  1297. > _shar_wnt_.tmp
  1298. echo 'x - extracting gnuplot/term/fig.trm (Text)'
  1299. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/fig.trm' &&
  1300. /* GNUPLOT - fig.trm */
  1301. /*
  1302. X * Copyright (C) 1990
  1303. X *
  1304. X * Permission to use, copy, and distribute this software and its
  1305. X * documentation for any purpose with or without fee is hereby granted,
  1306. X * provided that the above copyright notice appear in all copies and
  1307. X * that both that copyright notice and this permission notice appear
  1308. X * in supporting documentation.
  1309. X *
  1310. X * Permission to modify the software is granted, but not the right to
  1311. X * distribute the modified code.  Modifications are to be distributed
  1312. X * as patches to released version.
  1313. X *
  1314. X * This software  is provided "as is" without express or implied warranty.
  1315. X *
  1316. X * This file is included by ../term.c.
  1317. X *
  1318. X * This terminal driver supports:
  1319. X *  Fig graphics language
  1320. X *
  1321. X * AUTHORS
  1322. X *  Micah Beck, David Kotz
  1323. X *
  1324. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1325. X *
  1326. X */
  1327. X
  1328. #ifdef MSDOS
  1329. #define long int
  1330. #endif /* MSDOS */
  1331. X
  1332. /*
  1333. X * Original for Fig code output by Micah Beck, 1989
  1334. X * Department of Computer Science, Cornell University
  1335. X * Updated by David Kotz for gnuplot 2.0
  1336. X * More efficient output Ian by Dall
  1337. X */
  1338. #include "object.h"                     /* from the TransFig distribution */
  1339. #define FIG_DEFAULT (-1)
  1340. #define FIG_ROMAN_FONT (0)
  1341. X 
  1342. #ifndef FIG_RES
  1343. /* Must be 80 for the Fig editor, but may be increased if used
  1344. X * only by TransFig filters.
  1345. X * Represents resolution per inch.
  1346. X */
  1347. #define FIG_RES         80
  1348. #endif
  1349. X 
  1350. #define FIG_COORD_SYS   2
  1351. X 
  1352. #define FIG_MAGIC       "#FIG 1.4-TFX"
  1353. #define FIG_HTIC        (5*FIG_RES/80)
  1354. #define FIG_VTIC        (5*FIG_RES/80)
  1355. #define FIG_FONT_S      FIG_DEFAULT
  1356. #define FIG_HCHAR       (6*FIG_RES/80) /* Change if FIG_FONT_S is changed */
  1357. #define FIG_VCHAR       (12*FIG_RES/80) /* Change if FIG_FONT_S is changed */
  1358. #define FIG_ARROW_WIDTH FIG_HTIC
  1359. #define FIG_ARROW_HEIGHT FIG_HTIC
  1360. X 
  1361. static long FIG_xbase = FIG_RES/2;
  1362. static long FIG_ybase = FIG_RES/2;
  1363. X 
  1364. static long FIG_posx;
  1365. static long FIG_posy;
  1366. static int FIG_poly_vec_cnt;
  1367. enum FIG_poly_stat {FIG_poly_new, FIG_poly_part};
  1368. static enum FIG_poly_stat FIG_polyvec_stat;
  1369. /* 5 inches wide by 3 inches high */
  1370. #define FIG_XMAX (5 * FIG_RES)
  1371. #define FIG_YMAX (3 * FIG_RES)
  1372. X 
  1373. #define FIG_XOFF (FIG_RES/4)
  1374. #define FIG_YOFF (FIG_RES/4)
  1375. X 
  1376. static int FIG_type;            /* negative types use real lines */
  1377. static float FIG_spacing;       /* length of dash or dot spacing */
  1378. static int FIG_justify;         /* Fig justification T_*_JUSTIFIED */
  1379. static float FIG_angle;         /* Fig text angle 0=horiz, Pi/2=vert */
  1380. X 
  1381. #define FIG_POINT_TYPES POINT_TYPES /* we use the same points */
  1382. X 
  1383. static
  1384. X  FIG_poly_clean(stat)
  1385. enum FIG_poly_stat stat;
  1386. {
  1387. X  if(stat == FIG_poly_part)
  1388. X        fprintf(outfile, " 9999 9999\n");
  1389. X  FIG_polyvec_stat = FIG_poly_new;
  1390. }
  1391. X 
  1392. FIG_init()
  1393. {
  1394. X    FIG_posx = FIG_posy = 0;
  1395. X    FIG_polyvec_stat = FIG_poly_new;
  1396. X    FIG_linetype(-1);
  1397. X    FIG_justify_text(LEFT);
  1398. X    FIG_text_angle(0);
  1399. X 
  1400. X    fprintf(outfile, "%s\n", FIG_MAGIC);
  1401. X    fprintf(outfile, "%d %d\n", FIG_RES, FIG_COORD_SYS);
  1402. }
  1403. X 
  1404. X 
  1405. FIG_graphics()
  1406. {
  1407. X    FIG_posx = FIG_posy = 0;
  1408. X    FIG_polyvec_stat = FIG_poly_new;
  1409. X    /* there is no way to have separate pictures in a FIG file */
  1410. }
  1411. X 
  1412. X 
  1413. FIG_text()
  1414. {
  1415. X    /* there is no way to have separate pictures in a FIG file */
  1416. X    FIG_poly_clean(FIG_polyvec_stat);
  1417. X    FIG_posx = FIG_posy = 0;
  1418. X    fflush(outfile);
  1419. }
  1420. X 
  1421. X 
  1422. /* Line types for FIG work like this:
  1423. X *  -2 : solid (border)
  1424. X *  -1 : dashed 4 (axes)
  1425. X *   0 : solid (first curve)
  1426. X *   1 : dotted 3
  1427. X *   2 : dashed 3
  1428. X *   3 : dotted 6
  1429. X *   4 : dashed 6
  1430. X *   ... ...
  1431. X */
  1432. X 
  1433. FIG_linetype(linetype)
  1434. X        int linetype;                   /* expect linetype >= -2 */
  1435. {
  1436. X    int last_FIG_type = FIG_type;
  1437. X    int last_FIG_spacing = FIG_spacing;
  1438. X    switch (linetype) {
  1439. X           case 0:
  1440. X           case -2: {
  1441. X                  FIG_type = 0; /* solid line */
  1442. X                  FIG_spacing = 0.0;
  1443. X                  break;
  1444. X           }
  1445. X           case -1: {
  1446. X                  FIG_type = 1; /* dashed */
  1447. X                  FIG_spacing = 4.0; /* dash length */
  1448. X                  break;
  1449. X           }
  1450. X           default: {
  1451. X                  linetype = abs(linetype); /* shouldn't be negative anyway */
  1452. X                  /* now linetype >= 1 */
  1453. X                  FIG_type = linetype % 2 + 1; /* dotted, dashed, ... */
  1454. X                  FIG_spacing = (linetype+1) / 2 * 3;
  1455. X                  break;
  1456. X           }
  1457. X    }
  1458. X    if (FIG_type != last_FIG_type || FIG_spacing != last_FIG_spacing)
  1459. X      FIG_poly_clean(FIG_polyvec_stat);
  1460. }
  1461. X 
  1462. FIG_move(x,y)
  1463. X        unsigned int x,y;
  1464. {
  1465. X    int last_FIG_posx = FIG_posx;
  1466. X    int last_FIG_posy = FIG_posy;
  1467. X    FIG_posx = x;
  1468. X    FIG_posy = y;
  1469. X    if (FIG_posx != last_FIG_posx || FIG_posy != last_FIG_posy)
  1470. X          FIG_poly_clean(FIG_polyvec_stat);
  1471. }
  1472. X 
  1473. X 
  1474. FIG_vector(ux,uy)
  1475. X     unsigned int ux,uy;
  1476. {
  1477. X  int x=ux, y=uy;
  1478. X 
  1479. X  if (FIG_polyvec_stat != FIG_poly_part)
  1480. X    {
  1481. X      fprintf(outfile, "%d %d %d %d %d %d %d %d %6.3f  %d %d\n",
  1482. X              O_POLYLINE, T_POLYLINE,
  1483. X              FIG_type, 1, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_spacing,
  1484. X              0, 0);
  1485. X      fprintf(outfile, "%d %d",
  1486. X              FIG_XOFF + FIG_posx, FIG_YMAX + FIG_YOFF - FIG_posy);
  1487. X      FIG_poly_vec_cnt = 1;
  1488. X      FIG_polyvec_stat = FIG_poly_part;
  1489. X    }
  1490. X  fprintf(outfile, " %d %d",
  1491. X          FIG_XOFF +  x, FIG_YMAX + FIG_YOFF-y);
  1492. X  FIG_poly_vec_cnt++;
  1493. X  if (FIG_poly_vec_cnt > 50)
  1494. X    FIG_poly_clean(FIG_polyvec_stat);
  1495. X 
  1496. X  FIG_posx = x;
  1497. X  FIG_posy = y;
  1498. }
  1499. X 
  1500. X 
  1501. FIG_arrow(sx, sy, ex, ey, head)
  1502. X        int sx, sy;     /* start coord */
  1503. X        int ex, ey;     /* end coord */
  1504. X    BOOLEAN head;
  1505. {
  1506. X    FIG_poly_clean(FIG_polyvec_stat);
  1507. X        fprintf(outfile, "%d %d %d %d %d %d %d %d %6.3f  %d %d\n",
  1508. X                O_POLYLINE, T_POLYLINE,
  1509. X                FIG_type, 1, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_spacing,
  1510. X                head ? 1 : 0, 0);
  1511. X        /* arrow line */
  1512. X    if ( head )
  1513. X            fprintf(outfile, "%d %d %.3f %.3f %.3f\n",
  1514. X                    0, 0, 1.0,
  1515. X            (double)FIG_ARROW_WIDTH, (double)FIG_ARROW_HEIGHT);
  1516. X        fprintf(outfile, "%d %d %d %d 9999 9999\n",
  1517. X                FIG_XOFF + sx, FIG_YOFF + FIG_YMAX - sy,
  1518. X        FIG_XOFF + ex, FIG_YOFF + FIG_YMAX - ey);
  1519. X 
  1520. X        FIG_posx = ex;
  1521. X        FIG_posy = ey;
  1522. }
  1523. X 
  1524. X 
  1525. FIG_put_text(x, y, str)
  1526. X        int x, y;
  1527. X        char *str;
  1528. {
  1529. X  if (strlen(str) == 0) return;
  1530. X  FIG_poly_clean(FIG_polyvec_stat);
  1531. X    y = y - FIG_VCHAR/2;                /* assuming vertical center justified */
  1532. X 
  1533. X    fprintf(outfile, "%d %d %d %d %d %d %d %6.3f %d %d %d %d %d %s\01\n",
  1534. X                  O_TEXT, FIG_justify,
  1535. X                  FIG_ROMAN_FONT, FIG_FONT_S, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_angle,
  1536. X                  FIG_DEFAULT, FIG_VCHAR, FIG_HCHAR*strlen(str), FIG_XOFF + x,
  1537. X        FIG_YMAX + FIG_YOFF-y, str);
  1538. }
  1539. X 
  1540. int FIG_justify_text(mode)
  1541. X        enum JUSTIFY mode;
  1542. {
  1543. X    switch(mode) {
  1544. X           case LEFT: FIG_justify = T_LEFT_JUSTIFIED; break;
  1545. X           case CENTRE: FIG_justify = T_CENTER_JUSTIFIED; break;
  1546. X           case RIGHT: FIG_justify = T_RIGHT_JUSTIFIED; break;
  1547. X           /* shouldn't happen */
  1548. X           default: FIG_justify = T_LEFT_JUSTIFIED; break;
  1549. X    }
  1550. X    return (TRUE);
  1551. }
  1552. X 
  1553. int FIG_text_angle(angle)
  1554. X        int angle;
  1555. {
  1556. X    if (angle)
  1557. X         FIG_angle = Pi / 2.0;  /* vertical is pi/2 radians */
  1558. X    else
  1559. X         FIG_angle = 0.0;               /* horizontal */
  1560. X    return (TRUE);
  1561. }
  1562. X 
  1563. FIG_reset()
  1564. {
  1565. X    FIG_poly_clean(FIG_polyvec_stat);
  1566. X    FIG_posx = FIG_posy = 0;
  1567. X    fflush(outfile);
  1568. }
  1569. X
  1570. #ifdef MSDOS
  1571. #undef long
  1572. #endif /* MSDOS */
  1573. SHAR_EOF
  1574. chmod 0644 gnuplot/term/fig.trm ||
  1575. echo 'restore of gnuplot/term/fig.trm failed'
  1576. Wc_c="`wc -c < 'gnuplot/term/fig.trm'`"
  1577. test 7494 -eq "$Wc_c" ||
  1578.     echo 'gnuplot/term/fig.trm: original size 7494, current size' "$Wc_c"
  1579. rm -f _shar_wnt_.tmp
  1580. fi
  1581. # ============= gnuplot/term/hp26.trm ==============
  1582. if test -f 'gnuplot/term/hp26.trm' -a X"$1" != X"-c"; then
  1583.     echo 'x - skipping gnuplot/term/hp26.trm (File already exists)'
  1584.     rm -f _shar_wnt_.tmp
  1585. else
  1586. > _shar_wnt_.tmp
  1587. echo 'x - extracting gnuplot/term/hp26.trm (Text)'
  1588. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/hp26.trm' &&
  1589. /* GNUPLOT - hp26.trm */
  1590. /*
  1591. X * Copyright (C) 1990   
  1592. X *
  1593. X * Permission to use, copy, and distribute this software and its
  1594. X * documentation for any purpose with or without fee is hereby granted, 
  1595. X * provided that the above copyright notice appear in all copies and 
  1596. X * that both that copyright notice and this permission notice appear 
  1597. X * in supporting documentation.
  1598. X *
  1599. X * Permission to modify the software is granted, but not the right to
  1600. X * distribute the modified code.  Modifications are to be distributed 
  1601. X * as patches to released version.
  1602. X *  
  1603. X * This software  is provided "as is" without express or implied warranty.
  1604. X * 
  1605. X * This file is included by ../term.c.
  1606. X *
  1607. X * This terminal driver supports:
  1608. X *  HP2623A 
  1609. X *
  1610. X * AUTHORS
  1611. X *   hplvlch!ch (Chuck Heller) 
  1612. X * 
  1613. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1614. X * 
  1615. X */
  1616. X
  1617. X
  1618. #define HP26_XMAX 512
  1619. #define HP26_YMAX 390
  1620. X
  1621. #define HP26_XLAST (HP26_XMAX - 1)
  1622. #define HP26_YLAST (HP26_XMAX - 1)
  1623. X
  1624. /* Assume a character size of 1, or a 7 x 10 grid. */
  1625. #define HP26_VCHAR    10
  1626. #define HP26_HCHAR    7
  1627. #define HP26_VTIC    (HP26_YMAX/70)        
  1628. #define HP26_HTIC    (HP26_XMAX/75)        
  1629. X
  1630. HP26_init()
  1631. {
  1632. X    /*    The HP2623A needs no initialization. */
  1633. }
  1634. X
  1635. X
  1636. HP26_graphics()
  1637. {
  1638. X    /*    Clear and enable the display */
  1639. X
  1640. X    fputs("\033*daZ\033*dcZ",outfile);
  1641. }
  1642. X
  1643. X
  1644. HP26_text()
  1645. {
  1646. X    fputs("\033*dT",outfile);    /* back to text mode */
  1647. }
  1648. X
  1649. X
  1650. HP26_linetype(linetype)
  1651. int linetype;
  1652. {
  1653. #define    SOLID    1
  1654. #define LINE4    4
  1655. #define LINE5    5
  1656. #define LINE6    6
  1657. #define LINE8    8
  1658. #define    DOTS    7
  1659. #define LINE9    9
  1660. #define LINE10    10
  1661. X
  1662. static int map[2+9] = {    SOLID,    /* border */
  1663. X                        SOLID,    /* axes */
  1664. X                        DOTS,    /* plot 0 */
  1665. X                        LINE4,    /* plot 1 */
  1666. X                        LINE5,    /* plot 2 */
  1667. X                        LINE6,    /* plot 3 */
  1668. X                        LINE8,    /* plot 4 */
  1669. X                        LINE9,    /* plot 5 */
  1670. X                        LINE10,    /* plot 6 */
  1671. X                        SOLID,    /* plot 7 */
  1672. X                        SOLID    /* plot 8 */ };
  1673. X
  1674. X    if (linetype >= 9)
  1675. X        linetype %= 9;
  1676. X    fprintf(outfile,"\033*m%dB",map[linetype + 2]);
  1677. }
  1678. X
  1679. X
  1680. HP26_move(x,y)
  1681. int x,y;
  1682. {
  1683. X    fprintf(outfile,"\033*pa%d,%dZ",x,y);
  1684. }
  1685. X
  1686. X
  1687. HP26_vector(x,y)
  1688. int x,y;
  1689. {
  1690. X    fprintf(outfile,"\033*pb%d,%dZ",x,y);
  1691. }
  1692. X
  1693. X
  1694. HP26_put_text(x,y,str)
  1695. int x, y;
  1696. char *str;
  1697. {
  1698. X    HP26_move(x,y - HP26_VCHAR/2);
  1699. X    fputs("\033*dS",outfile);
  1700. X    fprintf(outfile,"\033*m3Q\033*l%s\n",str);
  1701. X    fputs("\033*dT",outfile);
  1702. }
  1703. X
  1704. X
  1705. X
  1706. HP26_reset()
  1707. {
  1708. }
  1709. X
  1710. SHAR_EOF
  1711. chmod 0666 gnuplot/term/hp26.trm ||
  1712. echo 'restore of gnuplot/term/hp26.trm failed'
  1713. Wc_c="`wc -c < 'gnuplot/term/hp26.trm'`"
  1714. test 2262 -eq "$Wc_c" ||
  1715.     echo 'gnuplot/term/hp26.trm: original size 2262, current size' "$Wc_c"
  1716. rm -f _shar_wnt_.tmp
  1717. fi
  1718. # ============= gnuplot/term/hp2648.trm ==============
  1719. if test -f 'gnuplot/term/hp2648.trm' -a X"$1" != X"-c"; then
  1720.     echo 'x - skipping gnuplot/term/hp2648.trm (File already exists)'
  1721.     rm -f _shar_wnt_.tmp
  1722. else
  1723. > _shar_wnt_.tmp
  1724. echo 'x - extracting gnuplot/term/hp2648.trm (Text)'
  1725. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/hp2648.trm' &&
  1726. /* GNUPLOT -  hp2648.trm */
  1727. /*
  1728. X * Copyright (C) 1990   
  1729. X *
  1730. X * Permission to use, copy, and distribute this software and its
  1731. X * documentation for any purpose with or without fee is hereby granted, 
  1732. X * provided that the above copyright notice appear in all copies and 
  1733. X * that both that copyright notice and this permission notice appear 
  1734. X * in supporting documentation.
  1735. X *
  1736. X * Permission to modify the software is granted, but not the right to
  1737. X * distribute the modified code.  Modifications are to be distributed 
  1738. X * as patches to released version.
  1739. X *  
  1740. X * This software  is provided "as is" without express or implied warranty.
  1741. X * 
  1742. X * This file is included by ../term.c.
  1743. X *
  1744. X * This terminal driver supports:
  1745. X *  HP2648 and HP2647
  1746. X *
  1747. X * AUTHORS
  1748. X *  Russell Lang
  1749. X * 
  1750. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1751. X * 
  1752. X */
  1753. X
  1754. #define HP2648XMAX 720             
  1755. #define HP2648YMAX 360
  1756. X
  1757. #define HP2648XLAST (HP2648XMAX - 1)
  1758. #define HP2648YLAST (HP2648YMAX - 1)
  1759. X
  1760. #define HP2648VCHAR        12      
  1761. #define HP2648HCHAR        7        
  1762. #define HP2648VTIC        8
  1763. #define HP2648HTIC        8
  1764. X
  1765. X
  1766. HP2648init()
  1767. {
  1768. X    fprintf(outfile,"\033*m1m1n136,1cZ");
  1769. /*                   1     2 3     4
  1770. X    1. mode
  1771. X    2. textsize=1
  1772. X    3. textangle=1
  1773. X        4. define line type 2 to be *   *   *   * etc.
  1774. */
  1775. }
  1776. X
  1777. X
  1778. HP2648graphics()
  1779. {
  1780. X    fprintf(outfile,"\033*dacZ");
  1781. /*                   1     23
  1782. X    1. mode
  1783. X    2. clear grahics screen
  1784. X    3. graphics video on
  1785. */
  1786. }
  1787. X
  1788. X
  1789. HP2648text()
  1790. {
  1791. }
  1792. X
  1793. X
  1794. HP2648linetype(linetype)
  1795. int linetype;
  1796. {
  1797. X    static int hpline[] = {1,7,1,4,5,6,8,9,10,7,2};
  1798. X    fprintf(outfile,"\033*m%dbZ",hpline[(linetype+2)%11]);
  1799. }
  1800. X
  1801. X
  1802. HP2648move(x,y)
  1803. int x,y;
  1804. {
  1805. X    fprintf(outfile,"\033*paf%d,%dZ",x,y);
  1806. X    /*               1     23     4
  1807. X    1    plot mode
  1808. X    2    "pen up"
  1809. X    3    goto absolute x,y
  1810. X    4    end command
  1811. X    */
  1812. }
  1813. X
  1814. X
  1815. HP2648vector(x,y)
  1816. int x,y;
  1817. {
  1818. X    fprintf(outfile,"\033*pbf%d,%dZ",x,y);
  1819. X    /*                     1 
  1820. X    1    "pen down"
  1821. X    */
  1822. }
  1823. X
  1824. X
  1825. HP2648put_text(x,y,str)
  1826. int x, y;
  1827. char *str;
  1828. {
  1829. X    HP2648move(x,y-HP2648VCHAR/2 + 1);
  1830. X    fprintf(outfile,"\033*l%s\n",str);
  1831. }
  1832. X
  1833. X
  1834. int HP2648_text_angle(ang)
  1835. int ang;
  1836. {
  1837. X    fprintf(outfile,"\033*m%dnZ\n",ang+1);
  1838. X    return TRUE;
  1839. }
  1840. X    
  1841. HP2648reset()
  1842. {
  1843. }
  1844. X
  1845. SHAR_EOF
  1846. chmod 0666 gnuplot/term/hp2648.trm ||
  1847. echo 'restore of gnuplot/term/hp2648.trm failed'
  1848. Wc_c="`wc -c < 'gnuplot/term/hp2648.trm'`"
  1849. test 2113 -eq "$Wc_c" ||
  1850.     echo 'gnuplot/term/hp2648.trm: original size 2113, current size' "$Wc_c"
  1851. rm -f _shar_wnt_.tmp
  1852. fi
  1853. # ============= gnuplot/term/hpgl.trm ==============
  1854. if test -f 'gnuplot/term/hpgl.trm' -a X"$1" != X"-c"; then
  1855.     echo 'x - skipping gnuplot/term/hpgl.trm (File already exists)'
  1856.     rm -f _shar_wnt_.tmp
  1857. else
  1858. > _shar_wnt_.tmp
  1859. echo 'x - extracting gnuplot/term/hpgl.trm (Text)'
  1860. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/hpgl.trm' &&
  1861. /* GNUPLOT - hpgl.trm */
  1862. /*
  1863. X * Copyright (C) 1990   
  1864. X *
  1865. X * Permission to use, copy, and distribute this software and its
  1866. X * documentation for any purpose with or without fee is hereby granted, 
  1867. X * provided that the above copyright notice appear in all copies and 
  1868. X * that both that copyright notice and this permission notice appear 
  1869. X * in supporting documentation.
  1870. X *
  1871. X * Permission to modify the software is granted, but not the right to
  1872. X * distribute the modified code.  Modifications are to be distributed 
  1873. X * as patches to released version.
  1874. X *  
  1875. X * This software  is provided "as is" without express or implied warranty.
  1876. X * 
  1877. X * This file is included by ../term.c.
  1878. X *
  1879. X * This terminal driver supports:
  1880. X *  hpgl, hp7580b, HP Laserjet III
  1881. X *
  1882. X * AUTHORS
  1883. X *  Colin Kelley, Thomas Williams, Russell Lang
  1884. X * 
  1885. X * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1886. X * 
  1887. X */
  1888. X
  1889. #define HPGL_XMAX 15200
  1890. #define HPGL_YMAX 10000
  1891. X
  1892. #define HPGL_XLAST (HPGL_XMAX - 1)
  1893. #define HPGL_YLAST (HPGL_XMAX - 1)
  1894. X
  1895. /* HPGL_VCHAR, HPGL_HCHAR  are not used */
  1896. #define HPGL_VCHAR    (HPGL_YMAX/100*32/10) /* 3.2% */
  1897. #define HPGL_HCHAR    (HPGL_XMAX/100*12/10) /* 1.2% */
  1898. #define HPGL_VTIC    (HPGL_YMAX/70)        
  1899. #define HPGL_HTIC    (HPGL_YMAX/70)        
  1900. X
  1901. int HPGL_ang = 0;
  1902. X
  1903. HPGL_init()
  1904. {
  1905. X    fputs("\033.Y\n",outfile);
  1906. /*           1
  1907. X    1. enable eavesdropping
  1908. */
  1909. }
  1910. X
  1911. HPLJIII_PORT_init()
  1912. {
  1913. X      fputs("\033E\033&l1X\033&l0O\033%0B;PW0.15\n",outfile);
  1914. }
  1915. X
  1916. HPLJIII_LAND_init()
  1917. {
  1918. X    fputs("\033E\033&l1X\033&l1O\033%0B;PW0.15\n",outfile);
  1919. }
  1920. X
  1921. X
  1922. HPGL_graphics()
  1923. {
  1924. X    fprintf(outfile,
  1925. X    "IN;\nSC0,%d,0,%d;\nSR%f,%f;\n",
  1926. X        HPGL_XMAX,HPGL_YMAX,
  1927. X        ((double)(HPGL_HCHAR)*200/3/HPGL_XMAX),
  1928. X        ((double)(HPGL_VCHAR)*100/2/HPGL_YMAX) );
  1929. /*     1    2             3 
  1930. X    1. reset to power-up defaults
  1931. X    2. set SCaling
  1932. X    3. set character size
  1933. */
  1934. X    HPGL_ang = 0;
  1935. }
  1936. X
  1937. X
  1938. HPGL_text()
  1939. {
  1940. X    fputs("PU;\nSP0;\n\033.Z\0",outfile);
  1941. /*           1    2     3
  1942. X    1. pen up
  1943. X    2. park pen
  1944. X    3. disable eavesdropping
  1945. */
  1946. }
  1947. X
  1948. X
  1949. HPGL_linetype(linetype)
  1950. int linetype;
  1951. {
  1952. /* allow for 6 pens */
  1953. X    fprintf(outfile,"PU;\nSP%d;\n",(linetype+2)%6+1); 
  1954. }
  1955. X
  1956. X
  1957. HP75_linetype(linetype)
  1958. int linetype;
  1959. {
  1960. /* allow for 4 pens */
  1961. X    fprintf(outfile,"PU;\nSP%d;\n",(linetype+2)%4+1); 
  1962. }
  1963. X
  1964. X
  1965. /* some early HPGL plotters (e.g. HP7220C) require the
  1966. X * Pen Up/Down and Pen (move) Absolute commands to be separate
  1967. X */
  1968. HPGL_move(x,y)
  1969. int x,y;
  1970. {
  1971. X    fprintf(outfile,"PU;PA%d,%d;\n",x,y);
  1972. }
  1973. X
  1974. X
  1975. HPGL_vector(x,y)
  1976. int x,y;
  1977. {
  1978. X    fprintf(outfile,"PD;PA%d,%d;\n",x,y);
  1979. }
  1980. X
  1981. X
  1982. HPGL_put_text(x,y,str)
  1983. int x, y;
  1984. char *str;
  1985. {
  1986. X    if (HPGL_ang == 1)
  1987. X        HPGL_move(x + HPGL_VCHAR/4,y);
  1988. X    else
  1989. X        HPGL_move(x,y - HPGL_VCHAR/4);
  1990. X    fprintf(outfile,"LB%s\003\n",str);
  1991. }
  1992. X
  1993. X
  1994. int HPGL_text_angle(ang)
  1995. int ang;
  1996. {
  1997. X    HPGL_ang = ang;
  1998. X    if (ang == 1)
  1999. X        /* vertical */
  2000. X        fprintf(outfile,"DI0,1;\n");
  2001. X    else
  2002. X        /* horizontal */
  2003. X        fprintf(outfile,"DI1,0;\n");
  2004. X    return TRUE;
  2005. }
  2006. X
  2007. X
  2008. HPGL_reset()
  2009. {
  2010. }
  2011. X
  2012. HPLJIII_reset()
  2013. {
  2014. X    fputs("\033E\n",outfile);
  2015. }
  2016. SHAR_EOF
  2017. chmod 0644 gnuplot/term/hpgl.trm ||
  2018. echo 'restore of gnuplot/term/hpgl.trm failed'
  2019. Wc_c="`wc -c < 'gnuplot/term/hpgl.trm'`"
  2020. test 2857 -eq "$Wc_c" ||
  2021.     echo 'gnuplot/term/hpgl.trm: original size 2857, current size' "$Wc_c"
  2022. rm -f _shar_wnt_.tmp
  2023. fi
  2024. # ============= gnuplot/term/hpljii.trm ==============
  2025. if test -f 'gnuplot/term/hpljii.trm' -a X"$1" != X"-c"; then
  2026.     echo 'x - skipping gnuplot/term/hpljii.trm (File already exists)'
  2027.     rm -f _shar_wnt_.tmp
  2028. else
  2029. > _shar_wnt_.tmp
  2030. echo 'x - extracting gnuplot/term/hpljii.trm (Text)'
  2031. sed 's/^X//' << 'SHAR_EOF' > 'gnuplot/term/hpljii.trm' &&
  2032. /* GNUPLOT - hpljii.trm */
  2033. SHAR_EOF
  2034. true || echo 'restore of gnuplot/term/hpljii.trm failed'
  2035. fi
  2036. echo 'End of  part 15'
  2037. echo 'File gnuplot/term/hpljii.trm is continued in part 16'
  2038. echo 16 > _shar_seq_.tmp
  2039. exit 0
  2040.  
  2041. exit 0 # Just in case...
  2042. -- 
  2043. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  2044. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  2045. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  2046. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  2047.