home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / source / gnuplotp.lzh / gnuplot#1.4 / patch1c
Encoding:
Text File  |  1990-10-12  |  72.2 KB  |  2,624 lines
  1. diff -c ./term/eepic.trm ../patch/term/eepic.trm
  2. *** ./term/eepic.trm    Tue Mar 27 09:03:33 1990
  3. --- ../patch/term/eepic.trm    Wed Sep 12 09:38:06 1990
  4. ***************
  5. *** 44,51
  6.   #define EEPIC_UNIT (EEPIC_PTS_PER_INCH/DOTS_PER_INCH) /* dot size in pt */
  7.   
  8.   /* 5 inches wide by 3 inches high (default) */
  9. ! #define EEPIC_XMAX (unsigned int)(EEPIC_PTS_PER_INCH/EEPIC_UNIT*5.0)
  10. ! #define EEPIC_YMAX (unsigned int)(EEPIC_PTS_PER_INCH/EEPIC_UNIT*3.0)
  11.   
  12.   #define EEPIC_HTIC (5./EEPIC_UNIT)
  13.   #define EEPIC_VTIC (5./EEPIC_UNIT)
  14.  
  15. --- 44,51 -----
  16.   #define EEPIC_UNIT (EEPIC_PTS_PER_INCH/DOTS_PER_INCH) /* dot size in pt */
  17.   
  18.   /* 5 inches wide by 3 inches high (default) */
  19. ! #define EEPIC_XMAX (5*DOTS_PER_INCH)  /* (EEPIC_PTS_PER_INCH/EEPIC_UNIT*5.0) */
  20. ! #define EEPIC_YMAX (3*DOTS_PER_INCH)  /* (EEPIC_PTS_PER_INCH/EEPIC_UNIT*3.0) */
  21.   
  22.   #define EEPIC_HTIC (5*DOTS_PER_INCH/72)        /* (5./EEPIC_UNIT) */
  23.   #define EEPIC_VTIC (5*DOTS_PER_INCH/72)        /* (5./EEPIC_UNIT) */
  24. ***************
  25. *** 47,56
  26.   #define EEPIC_XMAX (unsigned int)(EEPIC_PTS_PER_INCH/EEPIC_UNIT*5.0)
  27.   #define EEPIC_YMAX (unsigned int)(EEPIC_PTS_PER_INCH/EEPIC_UNIT*3.0)
  28.   
  29. ! #define EEPIC_HTIC (5./EEPIC_UNIT)
  30. ! #define EEPIC_VTIC (5./EEPIC_UNIT)
  31. ! #define EEPIC_HCHAR (5.3/EEPIC_UNIT)
  32. ! #define EEPIC_VCHAR (11./EEPIC_UNIT)
  33.   
  34.   static unsigned int EEPIC_posx;
  35.   static unsigned int EEPIC_posy;
  36.  
  37. --- 47,56 -----
  38.   #define EEPIC_XMAX (5*DOTS_PER_INCH)  /* (EEPIC_PTS_PER_INCH/EEPIC_UNIT*5.0) */
  39.   #define EEPIC_YMAX (3*DOTS_PER_INCH)  /* (EEPIC_PTS_PER_INCH/EEPIC_UNIT*3.0) */
  40.   
  41. ! #define EEPIC_HTIC (5*DOTS_PER_INCH/72)        /* (5./EEPIC_UNIT) */
  42. ! #define EEPIC_VTIC (5*DOTS_PER_INCH/72)        /* (5./EEPIC_UNIT) */
  43. ! #define EEPIC_HCHAR (DOTS_PER_INCH*53/10/72)    /* (5.3/EEPIC_UNIT) */
  44. ! #define EEPIC_VCHAR (DOTS_PER_INCH*11/72)    /* (11./EEPIC_UNIT) */
  45.   
  46.   static unsigned int EEPIC_posx;
  47.   static unsigned int EEPIC_posy;
  48. ***************
  49. *** 92,97
  50.   static int EEPIC_type;        /* current line type */
  51.   static BOOLEAN EEPIC_inline = FALSE; /* are we in the middle of a line */
  52.   static void EEPIC_endline();    /* terminate any line in progress */
  53.   
  54.   /* ARROWS */
  55.   /* we use the same code as for LATEX */
  56.  
  57. --- 92,99 -----
  58.   static int EEPIC_type;        /* current line type */
  59.   static BOOLEAN EEPIC_inline = FALSE; /* are we in the middle of a line */
  60.   static void EEPIC_endline();    /* terminate any line in progress */
  61. + static int EEPIC_linecount = 0; /* number of points in line so far */
  62. + #define EEPIC_LINEMAX 50        /* max value for linecount */
  63.   
  64.   /* ARROWS */
  65.   /* we use the same code as for LATEX */
  66. ***************
  67. *** 181,186
  68.          fprintf(outfile, "%s(%u,%u)", 
  69.                EEPIC_lines[EEPIC_type+2], 
  70.                EEPIC_posx, EEPIC_posy);
  71.       }
  72.   
  73.       /* add new point to line */
  74.  
  75. --- 183,201 -----
  76.          fprintf(outfile, "%s(%u,%u)", 
  77.                EEPIC_lines[EEPIC_type+2], 
  78.                EEPIC_posx, EEPIC_posy);
  79. +        EEPIC_linecount = 1;
  80. +     } else {
  81. +        /* Even though we are in middle of a path, 
  82. +         * we may want to start a new path command. 
  83. +         * If they are too long then latex will choke.
  84. +         */
  85. +        if (EEPIC_linecount++ >= EEPIC_LINEMAX) {
  86. +           fprintf(outfile, "\n");
  87. +           fprintf(outfile, "%s(%u,%u)", 
  88. +                 EEPIC_lines[EEPIC_type+2], 
  89. +                 EEPIC_posx, EEPIC_posy);
  90. +           EEPIC_linecount = 1;
  91. +        }
  92.       }
  93.       fprintf(outfile, "(%u,%u)", ux,uy);
  94.       EEPIC_posx = ux;
  95. ***************
  96. *** 182,189
  97.                EEPIC_lines[EEPIC_type+2], 
  98.                EEPIC_posx, EEPIC_posy);
  99.       }
  100. - 
  101. -     /* add new point to line */
  102.       fprintf(outfile, "(%u,%u)", ux,uy);
  103.       EEPIC_posx = ux;
  104.       EEPIC_posy = uy;
  105.  
  106. --- 197,202 -----
  107.             EEPIC_linecount = 1;
  108.          }
  109.       }
  110.       fprintf(outfile, "(%u,%u)", ux,uy);
  111.       EEPIC_posx = ux;
  112.       EEPIC_posy = uy;
  113. diff -c ./term/eps60.trm ../patch/term/eps60.trm
  114. *** ./term/eps60.trm    Mon Sep  3 16:07:23 1990
  115. --- ../patch/term/eps60.trm    Mon Sep  3 15:54:14 1990
  116. ***************
  117. *** 0
  118.  
  119. --- 1,106 -----
  120. + #ifdef EPS60
  121. + 
  122. + /* make the total dimensions 8 inches by 5 inches */
  123. + #define EPS60XMAX    480
  124. + #define EPS60YMAX    360
  125. + 
  126. + #define EPS60XLAST (EPS60XMAX - 1)
  127. + #define EPS60YLAST (EPS60YMAX - 1)
  128. + 
  129. + EPS60init()
  130. + {
  131. + char filename[MAX_ID_LEN+1];
  132. +     bm_xmax=EPS60XMAX;
  133. +     bm_ymax=EPS60YMAX;
  134. +     bm_planes=1;        /* one plane */
  135. +     bm_value=1;
  136. +     bm_setup();
  137. +     /* output for EPSON must be binary to stop non Unix computers
  138. +         changing \n to \r\n. 
  139. +         At present we only do this for PC's. 
  140. +         (Ultrix generates a run time error on the "wb" mode).
  141. +         if the output is not STDOUT, then the following code 
  142. +         reopens outfile with binary mode. */
  143. + #ifdef PC
  144. +     if (strcmp(outstr,"STDOUT")) {
  145. +         (void) fclose(outfile);
  146. +         (void) strcpy(filename,outstr+1);    /* remove quotes */
  147. +         filename[strlen(filename)-1] = '\0';
  148. +         if ( (outfile = fopen(filename,"wb")) == (FILE *)NULL ) {
  149. +             if ( (outfile = fopen(filename,"w")) == (FILE *)NULL ) {
  150. +                 os_error("cannot reopen file with binary type; output unknown",
  151. +                     NO_CARET);
  152. +             } 
  153. +             else {
  154. +     os_error("cannot reopen file with binary type; output reset to ascii", 
  155. +                     NO_CARET);
  156. +             }
  157. +         }
  158. +     }
  159. + #endif
  160. + }
  161. + 
  162. + 
  163. + /* output file must be binary mode for eps60_dump */
  164. + eps60_dump()
  165. + {
  166. + unsigned int x;
  167. + int j,k;
  168. + int num_bits = (sizeof(unsigned int)-1)*8;
  169. + #ifdef PC
  170. +     fprintf(stderr,"Dumping Epson-style 60-dpi graphics (21kbytes)\n");
  171. + #endif
  172. +     fprintf(outfile,"\0333\030"); /* set line spacing to 24/216" = 8 dots */
  173. +     for (j=bm_ipc-1;j>=0;j--) {
  174. +         for (k=num_bits;k>=0;k-=8) {
  175. +             /* select printer graphics mode 'K' */
  176. +             fprintf(outfile,"\r\n\033K");
  177. +             (void) fputc((char)(bm_xmax%256),outfile);
  178. +             (void) fputc((char)(bm_xmax/256),outfile);
  179. +             for (x=0; x<bm_xmax; x++) {
  180. +                 (void) fputc( (char)((bm_array[x*bm_ipc+j] >>k) &0xff), outfile );
  181. +             }
  182. +         }
  183. +     }
  184. +     fprintf(outfile,"\0333\044\r\n");  /* set line spacing to 36/216" = 1/6" */
  185. + #ifdef PC
  186. +     fprintf(stderr,"Print using: COPY /B\n");
  187. + #endif
  188. + }
  189. + 
  190. + 
  191. + EPS60text()
  192. + {
  193. +     eps60_dump();
  194. + }
  195. + 
  196. + 
  197. + #endif /* EPS60 */
  198. + 
  199. + 
  200. + 
  201. + 
  202. + #ifdef TANDY60
  203. + 
  204. + /* The only difference between TANDY60 and EPS60 is the inclusion
  205. +    of codes to swap the Tandy printer into IBM mode and back
  206. +    into Tandy mode.  For a Tandy already in IBM mode, use EPS60. */
  207. + 
  208. + 
  209. + TANDY60text()
  210. + {
  211. + #ifdef PC
  212. +     fprintf(stderr, "Inserting Tandy/IBM mode conversion codes\n");
  213. + #endif
  214. +     /* Switch to IBM mode, and leave 3 inches above the plot so as
  215. +        to get rough vertical centring on the page.  Perform the
  216. +        centring by setting 1" line feeds and issuing 3 of them. */
  217. +     fprintf(outfile, "\033!\0333%c\n\n\n", 216);
  218. +     eps60_dump();
  219. +     /* A form feed must be sent before switching back to Tandy mode,
  220. +        or else the form setting will be messed up. */
  221. +     fprintf(outfile, "\f\033!");
  222. + }
  223. + 
  224. + 
  225. + #endif  /* TANDY60 */
  226. diff -c ./term/epson.trm ../patch/term/epson.trm
  227. *** ./term/epson.trm    Tue Mar 27 09:02:27 1990
  228. --- ../patch/term/epson.trm    Wed Aug 29 10:04:57 1990
  229. ***************
  230. *** 696,698
  231.   
  232.   #endif /* NEC */
  233.   
  234.  
  235. --- 696,890 -----
  236.   
  237.   #endif /* NEC */
  238.   
  239. + /* The following Star color driver uses generic bit mapped graphics
  240. +    routines to build up a bit map in memory. */
  241. + /* Core from Epson driver by Russell Lang, eln272v@monu1.cc.monash.oz */
  242. + /* Star Color changes made by William Wilson, wew@naucse.cse.nau.edu */
  243. + /* On PC, print using 'copy file /b lpt1:', do NOT use 'print' */
  244. + /* STARC_init changes outfile to binary mode on PC's */
  245. + 
  246. + #ifdef STARC
  247. + #ifndef EPSON
  248. + #define EPSON
  249. + #endif
  250. + 
  251. + /* EPSON must be defined */
  252. + 
  253. + #define STARCXMAX    400 
  254. + #define STARCYMAX    320
  255. + 
  256. + #define STARCXLAST (STARCXMAX - 1)
  257. + #define STARCYLAST (STARCYMAX - 1)
  258. + 
  259. + #define STARCVCHAR        11      
  260. + #define STARCHCHAR        7        
  261. + #define STARCVTIC        6
  262. + #define STARCHTIC        6
  263. + 
  264. + /* plane 0=black, 1=cyan(blue), 2=magenta(red), 3=yellow */
  265. + static unsigned int STARCcolor[] = {1,8,4,2,10,12,6,14};
  266. + static unsigned int STARCpcolor[]= {0,2,1,4};
  267. + unsigned int STARC_x=0, STARC_y=0;
  268. + int STARC_angle=0;
  269. + 
  270. + STARCinit()
  271. + {
  272. + char filename[MAX_ID_LEN+1];
  273. +   bm_planes=4;
  274. +     bm_xmax=STARCXMAX;
  275. +     bm_ymax=STARCYMAX;
  276. +     bm_value=1;                /* black */
  277. +     bm_line_mask=0xffff;    /* solid lines */
  278. +     bm_setup();
  279. +     /* output for STARC must be binary to stop non Unix computers
  280. +         changing \n to \r\n. 
  281. +         At present we only do this for PC's. 
  282. +         (Ultrix generates a run time error on the "wb" mode).
  283. +         if the output is not STDOUT, then the following code 
  284. +         reopens outfile with binary mode. */
  285. + #ifdef PC
  286. +     if (strcmp(outstr,"STDOUT")) {
  287. +         (void) fclose(outfile);
  288. +         (void) strcpy(filename,outstr+1);    /* remove quotes */
  289. +         filename[strlen(filename)-1] = '\0';
  290. +         if ( (outfile = fopen(filename,"wb")) == (FILE *)NULL) {
  291. +             if ( (outfile = fopen(filename,"w")) == (FILE *)NULL ) {
  292. +                 os_error("cannot reopen file with binary type; output unknown",
  293. +                     NO_CARET);
  294. +             } 
  295. +             else {
  296. +     os_error("cannot reopen file with binary type; output reset to ascii", 
  297. +                     NO_CARET);
  298. +             }
  299. +         }
  300. +     }
  301. + #endif
  302. + }
  303. + 
  304. + 
  305. + STARCgraphics()
  306. + {
  307. + unsigned int plane;
  308. + unsigned int fill=0;
  309. +     for (plane=0; plane<bm_planes; plane++)
  310. +         bm_cls(plane,fill);
  311. +     STARC_x=0;
  312. +     STARC_y=0;
  313. +     STARC_angle=0;
  314. + }
  315. + 
  316. + 
  317. + STARCtext()
  318. + {
  319. +     STARC_dump();
  320. + }
  321. + 
  322. + 
  323. + STARClinetype(linetype)
  324. + int linetype;
  325. + {
  326. +     if (linetype>=6)
  327. +         linetype %= 6;
  328. +     bm_value=STARCcolor[linetype+2];
  329. + }
  330. + 
  331. + 
  332. + STARCmove(x,y)
  333. + unsigned int x,y;
  334. + {
  335. +     STARC_x=x;
  336. +     STARC_y=y;
  337. + }
  338. + 
  339. + 
  340. + STARCvector(x,y)
  341. + unsigned int x,y;
  342. + {
  343. +     bm_line(STARC_x,x,STARC_y,y);
  344. +     STARC_x=x;
  345. +     STARC_y=y;
  346. + }
  347. + 
  348. + 
  349. + STARCput_text(x,y,str)
  350. + unsigned int x, y;
  351. + char *str;
  352. + {
  353. +     if (STARC_angle == 1)
  354. +         x += STARCVCHAR/2;
  355. +     else
  356. +         y -= STARCVCHAR/2;
  357. +    switch (STARC_angle) {
  358. +       case 0:
  359. +          for (; *str; ++str, x += STARCHCHAR)
  360. +             bm_putc (x, y, *str, STARC_angle);
  361. +                     break;
  362. +       case 1:
  363. +          for (; *str; ++str, y += STARCHCHAR)
  364. +             bm_putc (x, y, *str, STARC_angle);
  365. +                     break;
  366. +     }
  367. + }
  368. + 
  369. + 
  370. + int STARC_text_angle(ang)
  371. + int ang;
  372. + {
  373. +     STARC_angle=ang;
  374. +     return TRUE;
  375. + }
  376. + 
  377. +     
  378. + STARCreset()
  379. + {
  380. +     bm_release();
  381. + }
  382. + 
  383. + 
  384. + /* output file must be binary mode for STARC_dump */
  385. + STARC_dump()
  386. + {
  387. + unsigned int x;
  388. + unsigned int plane,offset;
  389. + int j,k;
  390. + int num_bits = (sizeof(unsigned int)-1)*8; 
  391. + unsigned int column8;
  392. + unsigned long column24;
  393. + char column3, column2, column1;
  394. + #ifdef PC
  395. + /*    if (bm_planes==4)*/
  396. +         fprintf(stderr,"Dumping STAR color graphics (65 kbytes)\n");
  397. + #endif
  398. +     fprintf(outfile,"\033A\010"); /* set line spacing to 8/72" = 8 dots */
  399. +     for (j=bm_ipc-1;j>=0;j--) {
  400. +         for (k=num_bits;k>=0;k-=8) {
  401. +             fprintf(outfile,"\n");
  402. +             for (plane=0; plane<bm_planes; plane++) {
  403. +                 offset=plane*bm_psize;
  404. +                 if (bm_planes>1) {
  405. +                     /* select colour for plane */
  406. +                     fprintf(outfile,"\033r");
  407. +                     (void) fputc((char)STARCpcolor[plane],outfile);
  408. +                     fprintf(outfile,"\r");
  409. +                 }
  410. +                 /* select plotter graphics mode (square pixels) */
  411. +                 fprintf(outfile,"\r\033*\005");
  412. +                 (void) fputc((char)(bm_xmax%256),outfile);
  413. +                 (void) fputc((char)(bm_xmax/256),outfile);
  414. +                 for (x=0; x<bm_xmax; x++) {
  415. +                     (void) fputc( (char)((bm_array[offset+x*bm_ipc+j] >>k) &0xff), outfile);
  416. +                 }
  417. +             }
  418. +         }
  419. +     }
  420. +     if (bm_planes > 1) {
  421. +         fprintf(outfile,"\033r");
  422. +         (void) fputc('\0',outfile);                /* set color to black */
  423. +     }
  424. +     fprintf(outfile,"\033A\014\r\n");    /* setline spacing to 12/72" */
  425. + #ifdef PC
  426. +     fprintf(stderr,"Print using: COPY /B\n");
  427. + #endif
  428. + }
  429. + 
  430. + #endif /* STARC */
  431. diff -c ./term/hpgl.trm ../patch/term/hpgl.trm
  432. *** ./term/hpgl.trm    Tue Mar 27 09:02:36 1990
  433. --- ../patch/term/hpgl.trm    Wed Sep 12 09:10:47 1990
  434. ***************
  435. *** 33,40
  436.   #define HPGL_YLAST (HPGL_XMAX - 1)
  437.   
  438.   /* HPGL_VCHAR, HPGL_HCHAR  are not used */
  439. ! #define HPGL_VCHAR    (int)(HPGL_YMAX*0.032+0.5) /* 3.2% */
  440. ! #define HPGL_HCHAR    (int)(HPGL_XMAX*0.012+0.5) /* 1.2% */
  441.   #define HPGL_VTIC    (HPGL_YMAX/70)        
  442.   #define HPGL_HTIC    (HPGL_YMAX/70)        
  443.   
  444.  
  445. --- 33,40 -----
  446.   #define HPGL_YLAST (HPGL_XMAX - 1)
  447.   
  448.   /* HPGL_VCHAR, HPGL_HCHAR  are not used */
  449. ! #define HPGL_VCHAR    (HPGL_YMAX/100*32/10) /* 3.2% */
  450. ! #define HPGL_HCHAR    (HPGL_XMAX/100*12/10) /* 1.2% */
  451.   #define HPGL_VTIC    (HPGL_YMAX/70)        
  452.   #define HPGL_HTIC    (HPGL_YMAX/70)        
  453.   
  454. diff -c ./term/hpljet.trm ../patch/term/hpljet.trm
  455. *** ./term/hpljet.trm    Tue Mar 27 09:02:43 1990
  456. --- ../patch/term/hpljet.trm    Tue Aug 28 21:00:50 1990
  457. ***************
  458. *** 397,404
  459.   {
  460.   }
  461.   
  462. ! /* put_text was added by Russell Lang, eln272v@monu1.cc.monash.oz
  463. !  * IT IS UNTESTED
  464.    */
  465.   /* Put text "str" at pixel position x,y
  466.   **/
  467.  
  468. --- 397,404 -----
  469.   {
  470.   }
  471.   
  472. ! /* put_text was added by Russell Lang, rjl@monu1.cc.monash.edu.au
  473. !  * Tested and repaired by Steve Wampler sbw@naucse.cse.nau.edu
  474.    */
  475.   /* Put text "str" at pixel position x,y
  476.   **/
  477. ***************
  478. *** 407,413
  479.   char str[];
  480.   {
  481.       fprintf(outfile, "\033&a%dH\033&a%dV",
  482. !             HPLJET_PX2DP(x), HPLJET_PX2DP(y) );
  483.       fputs(str, outfile);
  484.   }
  485.       
  486.  
  487. --- 407,415 -----
  488.   char str[];
  489.   {
  490.       fprintf(outfile, "\033&a%dH\033&a%dV",
  491. !             HPLJET_LMARG+HPLJET_PX2DP(x),
  492. !         HPLJET_PX2DP(HPLJETYMAX) + HPLJET_VC2DP(2) + 30 -
  493. !             HPLJET_PX2DP(y) );
  494.       fputs(str, outfile);
  495.   }
  496.       
  497. ***************
  498. *** 411,446
  499.       fputs(str, outfile);
  500.   }
  501.       
  502. - 
  503. - /*
  504. - ** Put text "str" to the lower right corner of the screen.
  505. - ** "row" is the row number [0:1].
  506. - ** Actually in the laserjet, put the text above the upper right corner.
  507. - */
  508. - HPLJETlrput_text(row,str)
  509. - unsigned int row;
  510. - char str[];
  511. - {
  512. -     
  513. -     fprintf(outfile, "\033&a%dH\033&a%dV",
  514. -             HPLJET_RMARG - HPLJET_HC2DP(strlen(str)), HPLJET_VC2DP(row));
  515. -     fputs(str, outfile);
  516. - }
  517. - 
  518. - /*
  519. - ** Put text "str" to the upper left corner of the screen.
  520. - ** "row" is the (serial) number of function to be plotted.
  521. - ** Actually in the laserjet, put the text under the lower left corner.
  522. - */
  523. - HPLJETulput_text(row,str)
  524. - unsigned int row;
  525. - char str[];
  526. - {
  527. -     fprintf(outfile, "\033&a%dH\033&a%dV",
  528. -             HPLJET_LMARG,
  529. -             HPLJET_VC2DP(row+3)+HPLJET_PX2DP(HPLJETYMAX));
  530. -     fputs(str, outfile);
  531. - }
  532.   
  533.   /*
  534.   ** RETURN to normal mode (exit gnuplot)
  535.  
  536. --- 413,418 -----
  537.       fputs(str, outfile);
  538.   }
  539.       
  540.   
  541.   /*
  542.   ** RETURN to normal mode (exit gnuplot)
  543. diff -c ./term/imagen.trm ../patch/term/imagen.trm
  544. *** ./term/imagen.trm    Tue Mar 27 09:03:23 1990
  545. --- ../patch/term/imagen.trm    Wed Sep 12 09:39:37 1990
  546. ***************
  547. *** 39,46
  548.   
  549.   #define IMAGEN_PTS_PER_INCH (300)
  550.   
  551. ! #define IMAGEN_XMAX (10.0 * IMAGEN_PTS_PER_INCH) /* 10.0 inches */
  552. ! #define IMAGEN_YMAX (7.5 * IMAGEN_PTS_PER_INCH) /* 7.5 inches */
  553.   
  554.   #define IMAGEN_FONTSIZE 12
  555.   
  556.  
  557. --- 39,46 -----
  558.   
  559.   #define IMAGEN_PTS_PER_INCH (300)
  560.   
  561. ! #define IMAGEN_XMAX (IMAGEN_PTS_PER_INCH * 10) /* 10.0 inches */
  562. ! #define IMAGEN_YMAX (IMAGEN_PTS_PER_INCH * 75 / 10) /* 7.5 inches */
  563.   
  564.   #define IMAGEN_FONTSIZE 12
  565.   
  566. diff -c ./term/latex.trm ../patch/term/latex.trm
  567. *** ./term/latex.trm    Tue Mar 27 09:03:31 1990
  568. --- ../patch/term/latex.trm    Wed Sep 12 09:27:09 1990
  569. ***************
  570. *** 17,23
  571.    * This file is included by ../term.c.
  572.    *
  573.    * This terminal driver supports:
  574. !  *   LaTeX pictures
  575.    *
  576.    * AUTHORS
  577.    *   David Kotz, Russell Lang
  578.  
  579. --- 17,24 -----
  580.    * This file is included by ../term.c.
  581.    *
  582.    * This terminal driver supports:
  583. !  *   LaTeX pictures (latex).
  584. !  *   LaTeX pictures with emTeX specials (emtex). 
  585.    *
  586.    * AUTHORS
  587.    *   David Kotz, Russell Lang
  588. ***************
  589. *** 39,46
  590.   #define LATEX_UNIT (LATEX_PTS_PER_INCH/DOTS_PER_INCH) /* dot size in pt */
  591.   
  592.   /* 5 inches wide by 3 inches high (default) */
  593. ! #define LATEX_XMAX (unsigned int)(LATEX_PTS_PER_INCH/LATEX_UNIT*5.0)
  594. ! #define LATEX_YMAX (unsigned int)(LATEX_PTS_PER_INCH/LATEX_UNIT*3.0)
  595.   
  596.   #define LATEX_HTIC (5./LATEX_UNIT)
  597.   #define LATEX_VTIC (5./LATEX_UNIT)
  598.  
  599. --- 40,47 -----
  600.   #define LATEX_UNIT (LATEX_PTS_PER_INCH/DOTS_PER_INCH) /* dot size in pt */
  601.   
  602.   /* 5 inches wide by 3 inches high (default) */
  603. ! #define LATEX_XMAX (5*DOTS_PER_INCH)  /* (LATEX_PTS_PER_INCH/LATEX_UNIT*5.0) */
  604. ! #define LATEX_YMAX (3*DOTS_PER_INCH)  /* (LATEX_PTS_PER_INCH/LATEX_UNIT*3.0) */
  605.   
  606.   #define LATEX_HTIC (5*DOTS_PER_INCH/72)        /* (5./LATEX_UNIT) */
  607.   #define LATEX_VTIC (5*DOTS_PER_INCH/72)        /* (5./LATEX_UNIT) */
  608. ***************
  609. *** 42,51
  610.   #define LATEX_XMAX (unsigned int)(LATEX_PTS_PER_INCH/LATEX_UNIT*5.0)
  611.   #define LATEX_YMAX (unsigned int)(LATEX_PTS_PER_INCH/LATEX_UNIT*3.0)
  612.   
  613. ! #define LATEX_HTIC (5./LATEX_UNIT)
  614. ! #define LATEX_VTIC (5./LATEX_UNIT)
  615. ! #define LATEX_HCHAR (5.3/LATEX_UNIT)
  616. ! #define LATEX_VCHAR (11./LATEX_UNIT)
  617.   
  618.   static int LATEX_posx;
  619.   static int LATEX_posy;
  620.  
  621. --- 43,52 -----
  622.   #define LATEX_XMAX (5*DOTS_PER_INCH)  /* (LATEX_PTS_PER_INCH/LATEX_UNIT*5.0) */
  623.   #define LATEX_YMAX (3*DOTS_PER_INCH)  /* (LATEX_PTS_PER_INCH/LATEX_UNIT*3.0) */
  624.   
  625. ! #define LATEX_HTIC (5*DOTS_PER_INCH/72)        /* (5./LATEX_UNIT) */
  626. ! #define LATEX_VTIC (5*DOTS_PER_INCH/72)        /* (5./LATEX_UNIT) */
  627. ! #define LATEX_HCHAR (DOTS_PER_INCH*53/10/72)    /* (5.3/LATEX_UNIT) */
  628. ! #define LATEX_VCHAR (DOTS_PER_INCH*11/72)    /* (11./LATEX_UNIT) */
  629.   
  630.   static int LATEX_posx;
  631.   static int LATEX_posy;
  632. ***************
  633. *** 60,66
  634.   /* POINTS */
  635.   #define LATEX_POINT_TYPES 12    /* we supply more point types */
  636.   static char *LATEX_points[] = {
  637. !     "\\makebox(0,0){$\\Diamond$}",
  638.       "\\makebox(0,0){$+$}",
  639.       "\\makebox(0,0){$\\Box$}",
  640.       "\\makebox(0,0){$\\times$}",
  641.  
  642. --- 61,67 -----
  643.   /* POINTS */
  644.   #define LATEX_POINT_TYPES 12    /* we supply more point types */
  645.   static char *LATEX_points[] = {
  646. !     "\\raisebox{-1.2pt}{\\makebox(0,0){$\\Diamond$}}",
  647.       "\\makebox(0,0){$+$}",
  648.       "\\raisebox{-1.2pt}{\\makebox(0,0){$\\Box$}}",
  649.       "\\makebox(0,0){$\\times$}",
  650. ***************
  651. *** 62,68
  652.   static char *LATEX_points[] = {
  653.       "\\makebox(0,0){$\\Diamond$}",
  654.       "\\makebox(0,0){$+$}",
  655. !     "\\makebox(0,0){$\\Box$}",
  656.       "\\makebox(0,0){$\\times$}",
  657.       "\\makebox(0,0){$\\triangle$}",
  658.       "\\makebox(0,0){$\\star$}",
  659.  
  660. --- 63,69 -----
  661.   static char *LATEX_points[] = {
  662.       "\\raisebox{-1.2pt}{\\makebox(0,0){$\\Diamond$}}",
  663.       "\\makebox(0,0){$+$}",
  664. !     "\\raisebox{-1.2pt}{\\makebox(0,0){$\\Box$}}",
  665.       "\\makebox(0,0){$\\times$}",
  666.       "\\makebox(0,0){$\\triangle$}",
  667.       "\\makebox(0,0){$\\star$}",
  668. ***************
  669. *** 78,89
  670.       float size;            /* size of dot, or thick of line in points */
  671.       float dotspace;            /* inter-dot space in points; 0 for lines */
  672.   } LATEX_lines[] = {
  673. !     {.4, 0},                /* thin solid line */
  674. !     {1.0, 0},                /* thick solid line */
  675. !     {2.0, 0},                /* Thick solid line */
  676. !     {.4, 5},                /* dotted line */
  677. !     {.4, 10},                /* widely dotted line */
  678. !     {.4, 15}                /* really widely dotted line */
  679.   };
  680.   /* for drawing dotted and solid lines */
  681.   static void LATEX_dot_line();
  682.  
  683. --- 79,90 -----
  684.       float size;            /* size of dot, or thick of line in points */
  685.       float dotspace;            /* inter-dot space in points; 0 for lines */
  686.   } LATEX_lines[] = {
  687. !     {.4, 0.0},                /* thin solid line */
  688. !     {1.0, 0.0},                /* thick solid line */
  689. !     {2.0, 0.0},                /* Thick solid line */
  690. !     {.4, 5.0},                /* dotted line */
  691. !     {.4, 10.0},                /* widely dotted line */
  692. !     {.4, 15.0}                /* really widely dotted line */
  693.   };
  694.   /* for drawing dotted and solid lines */
  695.   static void LATEX_dot_line();
  696. ***************
  697. *** 93,98
  698.   static BOOLEAN LATEX_moved = TRUE;    /* pen is up after move */
  699.   static float LATEX_dotsize;    /* size of LATEX_DOT in units */
  700.   
  701.   /* ARROWS */
  702.   /* the set of non-vertical/non-horizontal LaTeX vector slopes */
  703.   /* except negatives - they are handled specially */
  704.  
  705. --- 94,104 -----
  706.   static BOOLEAN LATEX_moved = TRUE;    /* pen is up after move */
  707.   static float LATEX_dotsize;    /* size of LATEX_DOT in units */
  708.   
  709. + #ifdef EMTEX
  710. + BOOLEAN emtex=FALSE; /* not currently using emtex */
  711. + static void EMTEX_solid_line();
  712. + #endif
  713. + 
  714.   /* ARROWS */
  715.   /* the set of non-vertical/non-horizontal LaTeX vector slopes */
  716.   /* except negatives - they are handled specially */
  717. ***************
  718. *** 109,114
  719.   
  720.   LATEX_init()
  721.   {
  722.       LATEX_posx = LATEX_posy = 0;
  723.       LATEX_linetype(-1);
  724.       fprintf(outfile, "%% GNUPLOT: LaTeX picture\n");
  725.  
  726. --- 115,123 -----
  727.   
  728.   LATEX_init()
  729.   {
  730. + #ifdef EMTEX
  731. +     emtex = FALSE;
  732. + #endif
  733.       LATEX_posx = LATEX_posy = 0;
  734.       LATEX_linetype(-1);
  735.       fprintf(outfile, "%% GNUPLOT: LaTeX picture\n");
  736. ***************
  737. *** 152,157
  738.       if (linetype >= LATEX_LINE_TYPES)
  739.        linetype %= LATEX_LINE_TYPES;
  740.   
  741.       LATEX_flushrule();
  742.   
  743.       if (linetype >= 0 && 
  744.  
  745. --- 161,169 -----
  746.       if (linetype >= LATEX_LINE_TYPES)
  747.        linetype %= LATEX_LINE_TYPES;
  748.   
  749. + #ifdef EMTEX
  750. +     if (!emtex)
  751. + #endif
  752.       LATEX_flushrule();
  753.   
  754.       if (linetype >= 0 && 
  755. ***************
  756. *** 155,167
  757.       LATEX_flushrule();
  758.   
  759.       if (linetype >= 0 && 
  760. !        LATEX_lines[linetype].size != LATEX_lines[LATEX_type].size) 
  761. !      /* redefine \plotpoint */
  762. !      fprintf(outfile, "\\sbox{\\plotpoint}{\\rule[%.3fpt]{%.3fpt}{%.3fpt}}\n",
  763. !             -LATEX_lines[linetype].size/2,
  764. !             LATEX_lines[linetype].size,
  765. !             LATEX_lines[linetype].size);
  766. ! 
  767.       LATEX_type = linetype;
  768.       LATEX_dotsize = LATEX_lines[linetype].size / LATEX_UNIT;
  769.       LATEX_moved = TRUE;            /* reset */
  770.  
  771. --- 167,187 -----
  772.       LATEX_flushrule();
  773.   
  774.       if (linetype >= 0 && 
  775. !        (LATEX_type < 0 ||
  776. !         LATEX_lines[linetype].size != LATEX_lines[LATEX_type].size)) {
  777. !         /* redefine \plotpoint */
  778. !         fprintf(outfile, 
  779. !             "\\sbox{\\plotpoint}{\\rule[%.3fpt]{%.3fpt}{%.3fpt}}%%\n",
  780. !             -LATEX_lines[linetype].size/2,
  781. !             LATEX_lines[linetype].size,
  782. !             LATEX_lines[linetype].size);
  783. ! #ifdef EMTEX
  784. !         if (emtex)         /* change line width */
  785. !             fprintf(outfile, "\\special{em:linewidth %.1fpt}%%\n",
  786. !                 LATEX_lines[linetype].size);
  787. ! #endif
  788. !     }
  789. !     
  790.       LATEX_type = linetype;
  791.       LATEX_dotsize 
  792.        = ((linetype >= 0) ? LATEX_lines[linetype].size / LATEX_UNIT : 0);
  793. ***************
  794. *** 163,169
  795.               LATEX_lines[linetype].size);
  796.   
  797.       LATEX_type = linetype;
  798. !     LATEX_dotsize = LATEX_lines[linetype].size / LATEX_UNIT;
  799.       LATEX_moved = TRUE;            /* reset */
  800.   }
  801.   
  802.  
  803. --- 183,190 -----
  804.       }
  805.       
  806.       LATEX_type = linetype;
  807. !     LATEX_dotsize 
  808. !      = ((linetype >= 0) ? LATEX_lines[linetype].size / LATEX_UNIT : 0);
  809.       LATEX_moved = TRUE;            /* reset */
  810.   }
  811.   
  812. ***************
  813. *** 209,215
  814.          }
  815.       } else {                /* drawing real curves */
  816.          if (LATEX_lines[LATEX_type].dotspace == 0.0)
  817. !         LATEX_solid_line(LATEX_posx, (int)ux, LATEX_posy, (int)uy);
  818.          else
  819.           LATEX_dot_line(LATEX_posx, (int)ux, LATEX_posy, (int)uy);
  820.       }
  821.  
  822. --- 230,241 -----
  823.          }
  824.       } else {                /* drawing real curves */
  825.          if (LATEX_lines[LATEX_type].dotspace == 0.0)
  826. ! #ifdef EMTEX
  827. !         if (emtex)
  828. !            EMTEX_solid_line(LATEX_posx, (int)ux, LATEX_posy, (int)uy);
  829. !         else
  830. ! #endif
  831. !            LATEX_solid_line(LATEX_posx, (int)ux, LATEX_posy, (int)uy);
  832.          else
  833.           LATEX_dot_line(LATEX_posx, (int)ux, LATEX_posy, (int)uy);
  834.       }
  835. ***************
  836. *** 301,315
  837.        if (width == 0 || height == 0)
  838.          return;            /* ignore this rule */
  839.   
  840. -     if (width < 0) {
  841. -        x += width;
  842. -        width = -width;
  843. -     }
  844. -     if (height < 0) {
  845. -        y += height;
  846. -        height = -height;
  847. -     }
  848. - 
  849.       if (valid && combine) {
  850.          /* try to combine new rule with old rule */
  851.          if ((int)lastx == (int)x && lastw == width) { /* vertical rule */
  852.  
  853. --- 327,332 -----
  854.        if (width == 0 || height == 0)
  855.          return;            /* ignore this rule */
  856.   
  857.       if (valid && combine) {
  858.          /* try to combine new rule with old rule */
  859.          if ((int)lastx == (int)x && lastw == width) { /* vertical rule */
  860. ***************
  861. *** 313,320
  862.       if (valid && combine) {
  863.          /* try to combine new rule with old rule */
  864.          if ((int)lastx == (int)x && lastw == width) { /* vertical rule */
  865. !           lasth += height;
  866. !           return;
  867.          } else if ((int)lasty == (int)y && lasth == height){ /* horiz rule */
  868.             lastw += width;
  869.             return;
  870.  
  871. --- 330,339 -----
  872.       if (valid && combine) {
  873.          /* try to combine new rule with old rule */
  874.          if ((int)lastx == (int)x && lastw == width) { /* vertical rule */
  875. !           if (lasth * height >= 0) { /* same sign */
  876. !              lasth += height;
  877. !              return;
  878. !           }
  879.          } else if ((int)lasty == (int)y && lasth == height){ /* horiz rule */
  880.             if (lastw * width >= 0) { /* same sign */
  881.                lastw += width;
  882. ***************
  883. *** 316,323
  884.             lasth += height;
  885.             return;
  886.          } else if ((int)lasty == (int)y && lasth == height){ /* horiz rule */
  887. !           lastw += width;
  888. !           return;
  889.          }
  890.          /* oh well, output last and remember the new one */
  891.       }
  892.  
  893. --- 335,344 -----
  894.                return;
  895.             }
  896.          } else if ((int)lasty == (int)y && lasth == height){ /* horiz rule */
  897. !           if (lastw * width >= 0) { /* same sign */
  898. !              lastw += width;
  899. !              return;
  900. !           }
  901.          }
  902.          /* oh well, output last and remember the new one */
  903.       }
  904. ***************
  905. *** 322,336
  906.          /* oh well, output last and remember the new one */
  907.       }
  908.   
  909. !     if (valid)
  910. !      /* if very small use canned dot */
  911. !      if (lastw < LATEX_dotsize || lasth < LATEX_dotsize)
  912. !        fprintf(outfile, "\\put(%d,%d){%s}\n",       
  913. !              (int)lastx, (int)lasty, LATEX_DOT);
  914. !      else
  915. !        fprintf(outfile, "\\put(%d,%d){\\rule[%.3fpt]{%.3fpt}{%.3fpt}}\n",
  916. !              (int)lastx, (int)lasty, -LATEX_dotsize*LATEX_UNIT/2,
  917. !              lastw*LATEX_UNIT, lasth*LATEX_UNIT);
  918.       
  919.       if (flush) {
  920.          valid = FALSE;
  921.  
  922. --- 343,368 -----
  923.          /* oh well, output last and remember the new one */
  924.       }
  925.   
  926. !     if (valid) {
  927. !        /* output the rule */
  928. !        if (lastw < 0) {
  929. !           lastx += lastw;
  930. !           lastw = -lastw;
  931. !        }
  932. !        if (lasth < 0) {
  933. !           lasty += lasth;
  934. !           lasth = -lasth;
  935. !        }
  936. ! 
  937. !        /* if very small use canned dot */
  938. !        if (lastw < LATEX_dotsize || lasth < LATEX_dotsize)
  939. !         fprintf(outfile, "\\put(%d,%d){%s}\n",       
  940. !                (int)lastx, (int)lasty, LATEX_DOT);
  941. !        else
  942. !         fprintf(outfile, "\\put(%d,%d){\\rule[%.3fpt]{%.3fpt}{%.3fpt}}\n",
  943. !                (int)lastx, (int)lasty, -LATEX_dotsize*LATEX_UNIT/2,
  944. !                lastw*LATEX_UNIT, lasth*LATEX_UNIT);
  945. !     }
  946.       
  947.       if (flush) {
  948.          valid = FALSE;
  949. ***************
  950. *** 418,424
  951.       int x, y;                /* points near sx,sy */
  952.       float m;                /* slope of line */
  953.       float arrowslope;        /* slope of arrow */
  954. !     float minerror;            /* best-case error */
  955.       struct vslope *slope;    /* one of the slopes */
  956.       struct vslope *bestslope;    /* the slope with min error */
  957.       BOOLEAN horiz;            /* was it the horiz line that was best? */
  958.  
  959. --- 450,456 -----
  960.       int x, y;                /* points near sx,sy */
  961.       float m;                /* slope of line */
  962.       float arrowslope;        /* slope of arrow */
  963. !     float minerror = 0;        /* best-case error */
  964.       struct vslope *slope;    /* one of the slopes */
  965.       struct vslope *bestslope;    /* the slope with min error */
  966.       BOOLEAN horiz;            /* was it the horiz line that was best? */
  967. ***************
  968. *** 440,445
  969.           * we try to find the closest-slope arrowhead.
  970.           */
  971.          bestslope = NULL;
  972.          m = abs((float)dy/dx); /* the slope we want */
  973.          for (slope = LATEX_slopes; slope->dx != 0.0; slope++) {
  974.             /* find the slope of the arrow */
  975.  
  976. --- 472,478 -----
  977.           * we try to find the closest-slope arrowhead.
  978.           */
  979.          bestslope = NULL;
  980. +        minerror = 0; /* to shut up turbo C */
  981.          m = abs((float)dy/dx); /* the slope we want */
  982.          for (slope = LATEX_slopes; slope->dx != 0.0; slope++) {
  983.             /* find the slope of the arrow */
  984. ***************
  985. *** 459,465
  986.                  abs(ex-sx));
  987.          else {
  988.             /* we draw the line the usual way, with thin lines */
  989. !           if (who == 1) {
  990.                LATEX_linetype(LATEX_THIN_LINE);
  991.                LATEX_solid_line(sx,ex,sy,ey);
  992.             }
  993.  
  994. --- 492,499 -----
  995.                  abs(ex-sx));
  996.          else {
  997.             /* we draw the line the usual way, with thin lines */
  998. ! #ifdef EMTEX
  999. !           if (emtex) {
  1000.                LATEX_linetype(LATEX_THIN_LINE);
  1001.                EMTEX_solid_line(sx,ex,sy,ey);
  1002.             } else 
  1003. ***************
  1004. *** 461,468
  1005.             /* we draw the line the usual way, with thin lines */
  1006.             if (who == 1) {
  1007.                LATEX_linetype(LATEX_THIN_LINE);
  1008. !              LATEX_solid_line(sx,ex,sy,ey);
  1009. !           }
  1010.   #ifdef EEPIC
  1011.             else {
  1012.                EEPIC_move(sx,sy);
  1013.  
  1014. --- 495,507 -----
  1015.   #ifdef EMTEX
  1016.             if (emtex) {
  1017.                LATEX_linetype(LATEX_THIN_LINE);
  1018. !              EMTEX_solid_line(sx,ex,sy,ey);
  1019. !           } else 
  1020. ! #endif
  1021. !             if (who == 1) {
  1022. !                LATEX_linetype(LATEX_THIN_LINE);
  1023. !                LATEX_solid_line(sx,ex,sy,ey);
  1024. !             }
  1025.   #ifdef EEPIC
  1026.               else {
  1027.                  EEPIC_move(sx,sy);
  1028. ***************
  1029. *** 464,473
  1030.                LATEX_solid_line(sx,ex,sy,ey);
  1031.             }
  1032.   #ifdef EEPIC
  1033. !           else {
  1034. !              EEPIC_move(sx,sy);
  1035. !              EEPIC_vector(ex,ey);
  1036. !           }
  1037.   #endif /* EEPIC */
  1038.             /* and then draw an arrowhead (a short vector) there */
  1039.             fprintf(outfile, "\\put(%d,%d){\\vector(%d,%d){0}}\n",
  1040.  
  1041. --- 503,512 -----
  1042.                  LATEX_solid_line(sx,ex,sy,ey);
  1043.               }
  1044.   #ifdef EEPIC
  1045. !             else {
  1046. !                EEPIC_move(sx,sy);
  1047. !                EEPIC_vector(ex,ey);
  1048. !             }
  1049.   #endif /* EEPIC */
  1050.             /* and then draw an arrowhead (a short vector) there */
  1051.             fprintf(outfile, "\\put(%d,%d){\\vector(%d,%d){0}}\n",
  1052. ***************
  1053. *** 555,557
  1054.       LATEX_posx = LATEX_posy = 0;
  1055.   }
  1056.   
  1057.  
  1058. --- 594,638 -----
  1059.       LATEX_posx = LATEX_posy = 0;
  1060.   }
  1061.   
  1062. + 
  1063. + #ifdef EMTEX
  1064. + 
  1065. + EMTEX_init()
  1066. + {
  1067. +     emtex=TRUE;
  1068. +     LATEX_posx = LATEX_posy = 0;
  1069. +     fprintf(outfile, "%% GNUPLOT: LaTeX picture with emtex specials\n");
  1070. +     fprintf(outfile, "\\setlength{\\unitlength}{%fpt}\n", LATEX_UNIT);
  1071. +     LATEX_linetype(-1);
  1072. + }
  1073. + 
  1074. + 
  1075. + EMTEX_reset()
  1076. + {
  1077. +     emtex=FALSE;
  1078. +     LATEX_posx = LATEX_posy = 0;
  1079. + }
  1080. + 
  1081. + 
  1082. + EMTEX_text()
  1083. + {
  1084. +     fprintf(outfile, "\\end{picture}\n");
  1085. + }
  1086. + 
  1087. + 
  1088. + static void
  1089. + EMTEX_solid_line(x1,x2, y1,y2)
  1090. +     int x1,x2, y1,y2;
  1091. + {
  1092. +     /* emtex special solid line */
  1093. +     if (LATEX_moved)
  1094. +         fprintf(outfile, "\\put(%d,%d){\\special{em:moveto}}\n", x1, y1);
  1095. +     if ( (x1!=x2) || (y1!=y2) )
  1096. +         fprintf(outfile, "\\put(%d,%d){\\special{em:lineto}}\n", x2, y2);
  1097. +     LATEX_posx = x2;
  1098. +     LATEX_posy = y2;
  1099. +     LATEX_moved = FALSE;
  1100. + }
  1101. + 
  1102. + 
  1103. + #endif /* EMTEX */
  1104. diff -c ./term/pc.trm ../patch/term/pc.trm
  1105. *** ./term/pc.trm    Tue Mar 27 09:03:04 1990
  1106. --- ../patch/term/pc.trm    Tue Aug 28 20:52:11 1990
  1107. ***************
  1108. *** 20,26
  1109.    *  Under Microsoft C
  1110.    *      cga, egabios, egalib, vgabios, hercules, corona325, att
  1111.    *  Under Turboc C
  1112. !  *      egalib, vgalib, vgamono, mcga, cga, hercules
  1113.    *
  1114.    * AUTHORS
  1115.    *  Colin Kelley, Thomas Williams, William Wilson, Russell Lang
  1116.  
  1117. --- 20,26 -----
  1118.    *  Under Microsoft C
  1119.    *      cga, egabios, egalib, vgabios, hercules, corona325, att
  1120.    *  Under Turboc C
  1121. !  *      egalib, vgalib, vgamono, mcga, cga, hercules, att
  1122.    *
  1123.    * AUTHORS
  1124.    *  Colin Kelley, Thomas Williams, William Wilson, Russell Lang
  1125. ***************
  1126. *** 110,116
  1127.               pixelon = (((unsigned int)(font5x7[i][j])) >> k & 1);
  1128.               if (pixelon) {
  1129.                   switch(angle) {
  1130. !                     case 0 : line_func(x+k+1,y-j,x+k+1,y-j);
  1131.                               break;
  1132.                       case 1 : line_func(x-j,y-k-1,x-j,y-k-1);
  1133.                               break;
  1134.  
  1135. --- 110,116 -----
  1136.               pixelon = (((unsigned int)(font5x7[i][j])) >> k & 1);
  1137.               if (pixelon) {
  1138.                   switch(angle) {
  1139. !                     case 0 : (*line_func)(x+k+1,y-j,x+k+1,y-j);
  1140.                               break;
  1141.                       case 1 : (*line_func)(x-j,y-k-1,x-j,y-k-1);
  1142.                               break;
  1143. ***************
  1144. *** 112,118
  1145.                   switch(angle) {
  1146.                       case 0 : line_func(x+k+1,y-j,x+k+1,y-j);
  1147.                               break;
  1148. !                     case 1 : line_func(x-j,y-k-1,x-j,y-k-1);
  1149.                               break;
  1150.                   }
  1151.               }
  1152.  
  1153. --- 112,118 -----
  1154.                   switch(angle) {
  1155.                       case 0 : (*line_func)(x+k+1,y-j,x+k+1,y-j);
  1156.                               break;
  1157. !                     case 1 : (*line_func)(x-j,y-k-1,x-j,y-k-1);
  1158.                               break;
  1159.                   }
  1160.               }
  1161. ***************
  1162. *** 1197,1202
  1163.       outtextxy(x,HERC_YLAST-y,buf);
  1164.   }
  1165.   
  1166.   
  1167.   #endif /* ifndef __TURBOC__ */
  1168.   
  1169.  
  1170. --- 1197,1301 -----
  1171.       outtextxy(x,HERC_YLAST-y,buf);
  1172.   }
  1173.   
  1174. + 
  1175. + #ifdef ATT6300
  1176. + /* this driver added by rjl@monu1.cc.monash.edu.au */
  1177. + 
  1178. + #define ATT_XMAX 640
  1179. + #define ATT_YMAX 400
  1180. + 
  1181. + #define ATT_XLAST (ATT_XMAX - 1)
  1182. + #define ATT_YLAST (ATT_YMAX - 1)
  1183. + 
  1184. + #define ATT_VCHAR PC_VCHAR
  1185. + #define ATT_HCHAR PC_HCHAR
  1186. + #define ATT_VTIC 4
  1187. + #define ATT_HTIC 5
  1188. + 
  1189. + #define ATT_text_angle PC_text_angle
  1190. + #define ATT_justify_text PC_justify_text
  1191. + #define ATT_reset PC_reset
  1192. + 
  1193. + ATT_init()
  1194. + {
  1195. +     g_driver=ATT400;
  1196. +     g_mode=5;
  1197. +       initgraph(&g_driver,&g_mode,path);
  1198. +           switch (g_driver){
  1199. +             case -2: fprintf(stderr,"Graphics card not detected.\n");
  1200. +                      break;
  1201. +             case -3: fprintf(stderr,"BGI driver file cannot be found.\n");
  1202. +                      break;
  1203. +             case -4: fprintf(stderr,"Invalid BGI driver file.\n");
  1204. +                      break;
  1205. +             case -5: fprintf(stderr,"Insufficient memory to load ",
  1206. +                              "graphics driver.");
  1207. +                      break;
  1208. +             }
  1209. + }
  1210. + 
  1211. + ATT_graphics()
  1212. + {
  1213. +     g_driver=ATT400;
  1214. +     g_mode=5;
  1215. +     initgraph(&g_driver,&g_mode,path);
  1216. +     ATT_justify_text(LEFT);
  1217. +     graphics_on = TRUE;
  1218. + }
  1219. + 
  1220. + ATT_text()
  1221. + {
  1222. +     if (graphics_on) {
  1223. +         graphics_on = FALSE;
  1224. +         pause();
  1225. +     }
  1226. +     closegraph();
  1227. + }
  1228. + 
  1229. + ATT_linetype(linetype)
  1230. + {
  1231. +     if (linetype >= 5)
  1232. +         linetype %= 5;
  1233. +     setlinestyle(4,pattern[linetype+2],1);
  1234. + }
  1235. + 
  1236. + ATT_move(x,y)
  1237. + {
  1238. +     if (x < 0)
  1239. +         x = 0;
  1240. +     else if (x > ATT_XLAST)
  1241. +         x = ATT_XLAST;
  1242. + 
  1243. +     if (y < 0)
  1244. +         y = 0;
  1245. +     else if (y > ATT_YLAST)
  1246. +         y = ATT_YLAST;
  1247. +     moveto(x,getmaxy()-y);
  1248. + }
  1249. + 
  1250. + ATT_vector(x,y)
  1251. + {
  1252. +     if (x < 0)
  1253. +         x = 0;
  1254. +     else if (x > ATT_XLAST)
  1255. +         x = ATT_XLAST;
  1256. +     if (y < 0)
  1257. +         y = 0;
  1258. +     else if (y > ATT_YLAST)
  1259. +         y = ATT_YLAST;
  1260. + 
  1261. +     lineto(x,getmaxy()-y);
  1262. + }
  1263. + 
  1264. + 
  1265. + ATT_put_text(x,y,str)
  1266. + unsigned int x, y;
  1267. + char *str;
  1268. + {
  1269. +     strcpy((char far *)buf,str);
  1270. +     outtextxy(x,ATT_YLAST-y,buf);
  1271. + }
  1272. + #endif /* ifdef ATT6300 */
  1273.   
  1274.   #endif /* ifndef __TURBOC__ */
  1275.   
  1276. diff -c ./term/post.trm ../patch/term/post.trm
  1277. *** ./term/post.trm    Tue Mar 27 09:02:51 1990
  1278. --- ../patch/term/post.trm    Tue Sep 18 14:40:31 1990
  1279. ***************
  1280. *** 40,46
  1281.   "/vpt2 vpt 2 mul def\n",
  1282.   "/hpt2 hpt 2 mul def\n",
  1283.   /* flush left show */
  1284. ! "/Lshow { 0 vshift rmoveto show } def\n", 
  1285.   /* flush right show */
  1286.   "/Rshow { dup stringwidth pop neg vshift rmoveto show } def\n", 
  1287.   /* centred show */
  1288.  
  1289. --- 40,47 -----
  1290.   "/vpt2 vpt 2 mul def\n",
  1291.   "/hpt2 hpt 2 mul def\n",
  1292.   /* flush left show */
  1293. ! "/Lshow { currentpoint stroke moveto\n",
  1294. ! "  0 vshift rmoveto show } def\n", 
  1295.   /* flush right show */
  1296.   "/Rshow { currentpoint stroke moveto\n",
  1297.   "  dup stringwidth pop neg vshift rmoveto show } def\n", 
  1298. ***************
  1299. *** 42,48
  1300.   /* flush left show */
  1301.   "/Lshow { 0 vshift rmoveto show } def\n", 
  1302.   /* flush right show */
  1303. ! "/Rshow { dup stringwidth pop neg vshift rmoveto show } def\n", 
  1304.   /* centred show */
  1305.   "/Cshow { dup stringwidth pop -2 div vshift rmoveto show } def\n", 
  1306.   /* Border Lines */
  1307.  
  1308. --- 43,50 -----
  1309.   "/Lshow { currentpoint stroke moveto\n",
  1310.   "  0 vshift rmoveto show } def\n", 
  1311.   /* flush right show */
  1312. ! "/Rshow { currentpoint stroke moveto\n",
  1313. ! "  dup stringwidth pop neg vshift rmoveto show } def\n", 
  1314.   /* centred show */
  1315.   "/Cshow { currentpoint stroke moveto\n",
  1316.   "  dup stringwidth pop -2 div vshift rmoveto show } def\n", 
  1317. ***************
  1318. *** 44,50
  1319.   /* flush right show */
  1320.   "/Rshow { dup stringwidth pop neg vshift rmoveto show } def\n", 
  1321.   /* centred show */
  1322. ! "/Cshow { dup stringwidth pop -2 div vshift rmoveto show } def\n", 
  1323.   /* Border Lines */
  1324.   "/BL { stroke gnulinewidth 2 mul setlinewidth} def\n",
  1325.   /* Axes Lines */
  1326.  
  1327. --- 46,53 -----
  1328.   "/Rshow { currentpoint stroke moveto\n",
  1329.   "  dup stringwidth pop neg vshift rmoveto show } def\n", 
  1330.   /* centred show */
  1331. ! "/Cshow { currentpoint stroke moveto\n",
  1332. ! "  dup stringwidth pop -2 div vshift rmoveto show } def\n", 
  1333.   /* Border Lines */
  1334.   "/BL { stroke gnulinewidth 2 mul setlinewidth } def\n",
  1335.   /* Axes Lines */
  1336. ***************
  1337. *** 46,52
  1338.   /* centred show */
  1339.   "/Cshow { dup stringwidth pop -2 div vshift rmoveto show } def\n", 
  1340.   /* Border Lines */
  1341. ! "/BL { stroke gnulinewidth 2 mul setlinewidth} def\n",
  1342.   /* Axes Lines */
  1343.   "/AL { stroke gnulinewidth 2 div setlinewidth } def\n",
  1344.   /* Plot Lines */
  1345.  
  1346. --- 49,55 -----
  1347.   "/Cshow { currentpoint stroke moveto\n",
  1348.   "  dup stringwidth pop -2 div vshift rmoveto show } def\n", 
  1349.   /* Border Lines */
  1350. ! "/BL { stroke gnulinewidth 2 mul setlinewidth } def\n",
  1351.   /* Axes Lines */
  1352.   "/AL { stroke gnulinewidth 2 div setlinewidth } def\n",
  1353.   /* Plot Lines */
  1354. ***************
  1355. *** 102,109
  1356.   #define PS_HTIC (PS_YMAX/80)
  1357.   
  1358.   
  1359. ! #define PS_SC (360.0/PS_XMAX)        /* scale is 1pt = 10 units */
  1360. ! #define    PS_LW (0.25/PS_SC)            /* linewidth = 0.25 pts */
  1361.   
  1362.   #define PS_VCHAR1 (int)(7.0/PS_SC)    /* 7 point characters */
  1363.   #define PS_HCHAR1 (int)(0.6*7.0/PS_SC)
  1364.  
  1365. --- 105,112 -----
  1366.   #define PS_HTIC (PS_YMAX/80)
  1367.   
  1368.   
  1369. ! #define PS_SC (PS_XMAX/360)        /* scale is 1pt = 10 units */
  1370. ! #define    PS_LW (0.25*PS_SC)        /* linewidth = 0.25 pts */
  1371.   
  1372.   #define PS_VCHAR1 (7*PS_SC)        /* 7 point characters */
  1373.   #define PS_HCHAR1 (7*PS_SC*6/10)
  1374. ***************
  1375. *** 105,112
  1376.   #define PS_SC (360.0/PS_XMAX)        /* scale is 1pt = 10 units */
  1377.   #define    PS_LW (0.25/PS_SC)            /* linewidth = 0.25 pts */
  1378.   
  1379. ! #define PS_VCHAR1 (int)(7.0/PS_SC)    /* 7 point characters */
  1380. ! #define PS_HCHAR1 (int)(0.6*7.0/PS_SC)
  1381.   
  1382.   #define PS_VCHAR2 (int)(11.0/PS_SC)    /* 11 point characters */
  1383.   #define PS_HCHAR2 (int)(0.6*11.0/PS_SC)
  1384.  
  1385. --- 108,115 -----
  1386.   #define PS_SC (PS_XMAX/360)        /* scale is 1pt = 10 units */
  1387.   #define    PS_LW (0.25*PS_SC)        /* linewidth = 0.25 pts */
  1388.   
  1389. ! #define PS_VCHAR1 (7*PS_SC)        /* 7 point characters */
  1390. ! #define PS_HCHAR1 (7*PS_SC*6/10)
  1391.   
  1392.   #define PS_VCHAR2 (11*PS_SC)        /* 11 point characters */
  1393.   #define PS_HCHAR2 (11*PS_SC*6/10)
  1394. ***************
  1395. *** 108,115
  1396.   #define PS_VCHAR1 (int)(7.0/PS_SC)    /* 7 point characters */
  1397.   #define PS_HCHAR1 (int)(0.6*7.0/PS_SC)
  1398.   
  1399. ! #define PS_VCHAR2 (int)(11.0/PS_SC)    /* 11 point characters */
  1400. ! #define PS_HCHAR2 (int)(0.6*11.0/PS_SC)
  1401.   
  1402.   
  1403.   EPSF1_init()
  1404.  
  1405. --- 111,118 -----
  1406.   #define PS_VCHAR1 (7*PS_SC)        /* 7 point characters */
  1407.   #define PS_HCHAR1 (7*PS_SC*6/10)
  1408.   
  1409. ! #define PS_VCHAR2 (11*PS_SC)        /* 11 point characters */
  1410. ! #define PS_HCHAR2 (11*PS_SC*6/10)
  1411.   
  1412.   
  1413.   EPSF1_init()
  1414. ***************
  1415. *** 135,142
  1416.       fprintf(outfile,"%%%%DocumentFonts: %s\n", ps_font);
  1417.       fprintf(outfile,"%%%%DocumentNeededFonts: %s\n", ps_font);
  1418.       fprintf(outfile,"%%%%BoundingBox: 0 0 %d %d\n",
  1419. !         (int)(xsize*(PS_XMAX)*PS_SC+0.5), 
  1420. !         (int)(ysize*(PS_YMAX)*PS_SC+0.5) );
  1421.       fprintf(outfile,"%%%%EndComments\n");
  1422.       fprintf(outfile,"40 dict begin\n");
  1423.       fprintf(outfile,"/gnulinewidth %.3f def\n",PS_LW);
  1424.  
  1425. --- 138,145 -----
  1426.       fprintf(outfile,"%%%%DocumentFonts: %s\n", ps_font);
  1427.       fprintf(outfile,"%%%%DocumentNeededFonts: %s\n", ps_font);
  1428.       fprintf(outfile,"%%%%BoundingBox: 0 0 %d %d\n",
  1429. !         (int)(xsize*(PS_XMAX)/PS_SC+0.5), 
  1430. !         (int)(ysize*(PS_YMAX)/PS_SC+0.5) );
  1431.       fprintf(outfile,"%%%%EndComments\n");
  1432.       fprintf(outfile,"40 dict begin\n");
  1433.       fprintf(outfile,"/gnulinewidth %.3f def\n",PS_LW);
  1434. ***************
  1435. *** 142,148
  1436.       fprintf(outfile,"/gnulinewidth %.3f def\n",PS_LW);
  1437.       fprintf(outfile,"/vshift %d def\n", 
  1438.           ps_big ? -PS_VCHAR2/3 : -PS_VCHAR1/3);
  1439. !     fprintf(outfile,"/dl {%.3f mul} def\n",1/PS_SC); /* dash length */
  1440.       fprintf(outfile,"/hpt %.1f def\n",PS_HTIC/2.0);
  1441.       fprintf(outfile,"/vpt %.1f def\n",PS_VTIC/2.0);
  1442.       for ( i=0; PS_header[i] != NULL; i++)
  1443.  
  1444. --- 145,151 -----
  1445.       fprintf(outfile,"/gnulinewidth %.3f def\n",PS_LW);
  1446.       fprintf(outfile,"/vshift %d def\n", 
  1447.           ps_big ? -PS_VCHAR2/3 : -PS_VCHAR1/3);
  1448. !     fprintf(outfile,"/dl {%d mul} def\n",PS_SC); /* dash length */
  1449.       fprintf(outfile,"/hpt %.1f def\n",PS_HTIC/2.0);
  1450.       fprintf(outfile,"/vpt %.1f def\n",PS_VTIC/2.0);
  1451.       for ( i=0; PS_header[i] != NULL; i++)
  1452. ***************
  1453. *** 150,156
  1454.       fprintf(outfile,"%%%%EndProlog\n");
  1455.       fprintf(outfile,"%%%%BeginSetup\n");
  1456.       fprintf(outfile,"/Gnu_save save def\n");
  1457. !     fprintf(outfile,"%.3f %.3f scale\n",PS_SC,PS_SC);
  1458.       fprintf(outfile,"%%%%IncludeFont: %s\n", ps_font);
  1459.       fprintf(outfile,"/%s findfont %d ", ps_font, 
  1460.           ps_big ? PS_VCHAR2 : PS_VCHAR1 );
  1461.  
  1462. --- 153,160 -----
  1463.       fprintf(outfile,"%%%%EndProlog\n");
  1464.       fprintf(outfile,"%%%%BeginSetup\n");
  1465.       fprintf(outfile,"/Gnu_save save def\n");
  1466. !     fprintf(outfile,"%.3f %.3f scale\n",1.0/PS_SC,1.0/PS_SC);
  1467. !     fprintf(outfile,"0 setgray\n");
  1468.       fprintf(outfile,"%%%%IncludeFont: %s\n", ps_font);
  1469.       fprintf(outfile,"/%s findfont %d ", ps_font, 
  1470.           ps_big ? PS_VCHAR2 : PS_VCHAR1 );
  1471. ***************
  1472. *** 198,205
  1473.       fprintf(outfile,"%%%%DocumentNeededFonts: %s\n", ps_font);
  1474.       fprintf(outfile,"%%%%Pages: (atend)\n");
  1475.       fprintf(outfile,"%%%%BoundingBox: %d 50 550 %d\n",
  1476. !         (int)(550.5-ysize*(PS_YMAX)*PS_SC*2), 
  1477. !         (int)(50.5+xsize*(PS_XMAX)*PS_SC*2) );
  1478.       fprintf(outfile,"%%%%EndComments\n");
  1479.       fprintf(outfile,"/GnuTransform {\n");
  1480.       fprintf(outfile,"  90 rotate\n  50 -550 translate\n  2 2 scale\n");
  1481.  
  1482. --- 202,209 -----
  1483.       fprintf(outfile,"%%%%DocumentNeededFonts: %s\n", ps_font);
  1484.       fprintf(outfile,"%%%%Pages: (atend)\n");
  1485.       fprintf(outfile,"%%%%BoundingBox: %d 50 550 %d\n",
  1486. !         (int)(550.5-ysize*(PS_YMAX)/PS_SC*2), 
  1487. !         (int)(50.5+xsize*(PS_XMAX)/PS_SC*2) );
  1488.       fprintf(outfile,"%%%%EndComments\n");
  1489.       fprintf(outfile,"/GnuTransform {\n");
  1490.       fprintf(outfile,"  90 rotate\n  50 -550 translate\n  2 2 scale\n");
  1491. ***************
  1492. *** 292,297
  1493.       }
  1494.       if (ps_ang != 0)
  1495.           fprintf(outfile,"grestore\n");
  1496.   }
  1497.   
  1498.   int PS_text_angle(ang)
  1499.  
  1500. --- 296,302 -----
  1501.       }
  1502.       if (ps_ang != 0)
  1503.           fprintf(outfile,"grestore\n");
  1504. +     ps_path_count = 0;
  1505.   }
  1506.   
  1507.   int PS_text_angle(ang)
  1508. diff -c ./term/t410x.trm ../patch/term/t410x.trm
  1509. *** ./term/t410x.trm    Wed Aug 29 12:16:17 1990
  1510. --- ../patch/term/t410x.trm    Tue Aug 28 20:28:50 1990
  1511. ***************
  1512. *** 0
  1513.  
  1514. --- 1,239 -----
  1515. + /* GNUPLOT - t410x.trm */
  1516. + /*
  1517. +  * Copyright (C) 1990   
  1518. +  *
  1519. +  * Permission to use, copy, and distribute this software and its
  1520. +  * documentation for any purpose with or without fee is hereby granted, 
  1521. +  * provided that the above copyright notice appear in all copies and 
  1522. +  * that both that copyright notice and this permission notice appear 
  1523. +  * in supporting documentation.
  1524. +  *
  1525. +  * Permission to modify the software is granted, but not the right to
  1526. +  * distribute the modified code.  Modifications are to be distributed 
  1527. +  * as patches to released version.
  1528. +  *  
  1529. +  * This software  is provided "as is" without express or implied warranty.
  1530. +  * 
  1531. +  * This file is included by ../term.c.
  1532. +  *
  1533. +  * This terminal driver supports: Tektronix 410x and 420x series terminals
  1534. +  *
  1535. +  * AUTHORS
  1536. +  *   Colin Kelley, Thomas Williams
  1537. +  * 
  1538. +  * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1539. +  * 
  1540. +  */
  1541. + 
  1542. + /* Tektronix 410X and 420X driver written by Cary D. Renzema.
  1543. +  * email address: caryr@vice.ico.tek.com
  1544. +  *
  1545. +  * I've tested this driver on the following terminals: 4106, 4107A, 4109
  1546. +  * and 4207.  It should work, without editing, on other terminals in the
  1547. +  * 410x and 420x families.  It will probably need to be changed to work
  1548. +  * on a 4105 (screen size and character rotation are two guesses).  This
  1549. +  * file can also be used as a start for a 411x driver.
  1550. +  *
  1551. +  * Cary R.
  1552. +  * April 5, 1990
  1553. +  */
  1554. + 
  1555. + #ifdef T410X
  1556. + 
  1557. + #define T410XXMAX 4095
  1558. + #define T410XYMAX 3131
  1559. + 
  1560. + #define T410XVCHAR    71
  1561. + #define T410XHCHAR    51
  1562. + #define T410XVTIC    36
  1563. + #define T410XHTIC    36    
  1564. + 
  1565. + static int T410X_angle=0;
  1566. + 
  1567. + T410X_init()
  1568. + {
  1569. +     (void) fprintf(outfile, "\033%%!0\033MN0\033MCB7C;\033MQ1\033MT1");
  1570. +     (void) fprintf(outfile, "\033MG1\033RK!\033SK!\033LZ\033%%!1");
  1571. + /*
  1572. +      1. set tek mode
  1573. +      2. set character path to 0 (characters placed equal to rotation)
  1574. +      3. set character size to 59 height
  1575. +      4. set character precision to string
  1576. +      5. set character text index to 1
  1577. +      6. set character write mode to overstrike
  1578. +      7. clear the view
  1579. +      8. clear the segments
  1580. +      9. clear the dialog buffer
  1581. +     10. set ansi mode
  1582. + */
  1583. +     (void) fflush(outfile);
  1584. + }
  1585. + 
  1586. + 
  1587. + T410X_reset()
  1588. + {
  1589. +     (void) fprintf(outfile, "\033%%!0\033LZ\033%%!1");
  1590. + /*
  1591. +     1. set tek mode
  1592. +     2. clear the dialog buffer
  1593. +     3. set ansi mode
  1594. + */
  1595. +     (void) fflush(outfile);
  1596. + }
  1597. + 
  1598. + 
  1599. + T410X_graphics()
  1600. + {
  1601. +     (void) fprintf(outfile, "\033%%!0\033\014\033LV0");
  1602. + /*
  1603. +     1. set tek mode
  1604. +     2. clear the screen
  1605. +     3. set dialog area invisible
  1606. + */
  1607. +     (void) fflush(outfile);
  1608. + }
  1609. + 
  1610. + T410X_text()
  1611. + {
  1612. +     (void) fprintf(outfile, "\033LV1\033%%!1");
  1613. + /*
  1614. +     1. set dialog area visible
  1615. +     2. set ansi mode
  1616. + */
  1617. +     (void) fflush(outfile);
  1618. + }
  1619. + 
  1620. + 
  1621. + T410X_move(x, y)
  1622. + unsigned int x, y;
  1623. + {
  1624. +     (void) fprintf(outfile, "\033LF");
  1625. +     (void) T410X_encode_x_y(x, y);
  1626. +     (void) fflush(outfile);
  1627. + }
  1628. + 
  1629. + 
  1630. + T410X_vector(x, y)
  1631. + unsigned int x, y;
  1632. + {
  1633. +     (void) fprintf(outfile, "\033LG");
  1634. +     (void) T410X_encode_x_y(x, y);
  1635. +     (void) fflush(outfile);
  1636. + }
  1637. + 
  1638. + 
  1639. + T410X_point(x, y, number)
  1640. + unsigned int x, y;
  1641. + int number;
  1642. + {
  1643. +     (void) fprintf(outfile, "\033MM");
  1644. +     (void) T410X_encode_int(max(number, 0)%11);
  1645. +     (void) fprintf(outfile, "\033LH");
  1646. +     (void) T410X_encode_x_y(x, y);
  1647. +     (void) fflush(outfile);
  1648. + }
  1649. + 
  1650. + 
  1651. + T410X_linetype(linetype)
  1652. + int linetype;
  1653. + {
  1654. +     switch (linetype) {
  1655. +         case -1:
  1656. +             (void) fprintf(outfile, "\033ML5");
  1657. +             break;
  1658. +         case -2:
  1659. +             (void) fprintf(outfile, "\033ML?");
  1660. +             break;
  1661. +         default:
  1662. +             (void) fprintf(outfile, "\033ML");
  1663. +             (void) T410X_encode_int(linetype%14+2);
  1664. +             break;
  1665. +     }
  1666. +     (void) fprintf(outfile, "\033MV");
  1667. +     (void) T410X_encode_int(max(linetype, 0)%8);
  1668. +     (void) fflush(outfile);
  1669. + }
  1670. + 
  1671. + 
  1672. + T410X_put_text(x, y, str)
  1673. + unsigned int x, y;
  1674. + char str[];
  1675. + {
  1676. +     extern int T410X_angle;
  1677. + 
  1678. +     if (T410X_angle == 0) {
  1679. +         (void) T410X_move(x, y-T410XVCHAR/2+6);
  1680. +         (void) fprintf(outfile, "\033MR00");
  1681. +     } else {
  1682. +         (void) T410X_move(x+T410XHCHAR/2-6, y);
  1683. +         (void) fprintf(outfile, "\033MRE:0");
  1684. +     }
  1685. +     (void) fprintf(outfile, "\033LT");
  1686. +     (void) T410X_encode_int(strlen(str));
  1687. +     (void) fputs(str, outfile);
  1688. +     (void) fflush(outfile);
  1689. + }
  1690. + 
  1691. + T410X_text_angle(ang)
  1692. + int ang;
  1693. + {
  1694. +     extern int T410X_angle;
  1695. + 
  1696. +     T410X_angle = ang;
  1697. +     return(TRUE);
  1698. + }
  1699. + 
  1700. + /* These last two routines are based on fortran code found in the
  1701. +  * 4106/4107/4109/CX PROGRAMMERS manual.
  1702. +  */
  1703. + 
  1704. + T410X_encode_x_y(x, y)
  1705. + unsigned int x, y;
  1706. + {
  1707. +     static char chix=0, chiy=0, cloy=0, ceb=0;
  1708. + 
  1709. +     register unsigned int hix, lox, hiy, loy, eb, lx, ly;
  1710. + 
  1711. +     lx = (x <= T410XXMAX) ? x : T410XXMAX;
  1712. +     ly = (y <= T410XYMAX) ? y : T410XYMAX;
  1713. + 
  1714. +     hix = lx/128 + 32;
  1715. +     lox = (lx/4)%32 + 64;
  1716. +     hiy = ly/128 + 32;
  1717. +     loy = (ly/4)%32 + 96;
  1718. +     eb = (ly%4)*4 + lx%4 + 96;
  1719. + 
  1720. +     if (chiy != hiy) (void) putc(hiy, outfile);
  1721. +     if (ceb != eb) (void) putc(eb, outfile);
  1722. +     if ((cloy!=loy) || (ceb!=eb) || (chix!=hix)) (void) putc(loy, outfile);
  1723. +     if (chix != hix) (void) putc(hix, outfile);
  1724. +     (void) putc(lox, outfile);
  1725. + 
  1726. +     chix = hix;
  1727. +     chiy = hiy;
  1728. +     cloy = loy;
  1729. +     ceb = eb;
  1730. + }
  1731. + 
  1732. + 
  1733. + T410X_encode_int(number)
  1734. + int number;
  1735. + {
  1736. +     register unsigned int mag, hi1, hi2, lo;
  1737. + 
  1738. +     mag = abs(number);
  1739. + 
  1740. +     hi1 = mag/1024 + 64;
  1741. +     hi2 = (mag/16)%64 + 64;
  1742. +     lo = mag%16 + 32;
  1743. + 
  1744. +     if (number >= 0) lo += 16;
  1745. + 
  1746. +     if (hi1 != 64) (void) putc(hi1, outfile);
  1747. +     if ((hi2 != 64) || (hi1 != 64)) (void) putc(hi2, outfile);
  1748. +     (void) putc(lo, outfile);
  1749. + 
  1750. + }
  1751. + 
  1752. + 
  1753. + #endif /* T410X */
  1754. diff -c ./term/unixpc.trm ../patch/term/unixpc.trm
  1755. *** ./term/unixpc.trm    Tue Mar 27 09:03:15 1990
  1756. --- ../patch/term/unixpc.trm    Tue Aug 28 16:03:19 1990
  1757. ***************
  1758. *** 122,128
  1759.      uw.uw_height = uPC_YMAX;     /* 288 normal--we clobber 12 (top row)*/
  1760.      uw.uw_uflags = 1;         /* Creates with no border */
  1761.   
  1762. !    IfErrOut (ioctl(0, WIOCSETD, &uw), <0, "ioctl failed on", "WIOCSETD");
  1763.   }
  1764.   
  1765.   
  1766.  
  1767. --- 122,128 -----
  1768.      uw.uw_height = uPC_YMAX;     /* 288 normal--we clobber 12 (top row)*/
  1769.      uw.uw_uflags = 1;         /* Creates with no border */
  1770.   
  1771. !    IfErrOut (ioctl(1, WIOCSETD, &uw), <0, "ioctl failed on", "WIOCSETD");
  1772.   }
  1773.   
  1774.   
  1775. ***************
  1776. *** 144,150
  1777.      printf ("\033[25;1H");
  1778.   
  1779.      uPC_ur.ur_dstop = DSTSRC;   /* replace (clear screen). */
  1780. !    IfErrOut (ioctl(0, WIOCRASTOP, &uPC_ur), <0,
  1781.         "ioctl failed", "WIOCRASTOP");
  1782.      uPC_ur.ur_dstop = DSTOR;   /* Or in (show text) */
  1783.   }
  1784.  
  1785. --- 144,150 -----
  1786.      printf ("\033[25;1H");
  1787.   
  1788.      uPC_ur.ur_dstop = DSTSRC;   /* replace (clear screen). */
  1789. !    IfErrOut (ioctl(1, WIOCRASTOP, &uPC_ur), <0,
  1790.         "ioctl failed", "WIOCRASTOP");
  1791.      uPC_ur.ur_dstop = DSTOR;   /* Or in (show text) */
  1792.   }
  1793. ***************
  1794. *** 154,160
  1795.   {
  1796.   /* This routine will flush the display. */
  1797.   
  1798. !    IfErrOut (ioctl(0, WIOCRASTOP, &uPC_ur), <0,
  1799.         "ioctl failed", "WIOCRASTOP");
  1800.   }
  1801.   
  1802.  
  1803. --- 154,160 -----
  1804.   {
  1805.   /* This routine will flush the display. */
  1806.   
  1807. !    IfErrOut (ioctl(1, WIOCRASTOP, &uPC_ur), <0,
  1808.         "ioctl failed", "WIOCRASTOP");
  1809.   }
  1810.   
  1811. ***************
  1812. *** 522,528
  1813.      struct utdata ut;
  1814.   
  1815.   /* Reset the window to the right size. */
  1816. !    ioctl(0, WIOCSETD, &wreset);   /* 0, not wncur here! */
  1817.   
  1818.   /* Scroll the screen once. (avoids typing over the same line) */
  1819.      fprintf (stderr, "\n");
  1820.  
  1821. --- 522,528 -----
  1822.      struct utdata ut;
  1823.   
  1824.   /* Reset the window to the right size. */
  1825. !    ioctl(1, WIOCSETD, &wreset);   /* 0, not wncur here! */
  1826.   
  1827.   /* Scroll the screen once. (avoids typing over the same line) */
  1828.      fprintf (stderr, "\n");
  1829. diff -c ./term/x11.trm ../patch/term/x11.trm
  1830. *** ./term/x11.trm    Thu Sep  6 09:24:44 1990
  1831. --- ../patch/term/x11.trm    Tue Sep  4 00:50:32 1990
  1832. ***************
  1833. *** 0
  1834.  
  1835. --- 1,77 -----
  1836. + /*
  1837. +  *    x11.trm  --- inboard terminal driver for X11
  1838. +  */
  1839. + 
  1840. + #define X11_XMAX 4096
  1841. + #define X11_YMAX 4096
  1842. + 
  1843. + /* approximations for typical font/screen sizes */
  1844. + #define X11_VCHAR (X11_YMAX/25) 
  1845. + #define X11_HCHAR (X11_XMAX/100) 
  1846. + #define X11_VTIC (X11_YMAX/100)
  1847. + #define X11_HTIC (X11_XMAX/150)
  1848. + 
  1849. + #define X11_nopts 22
  1850. + char X11_opts[X11_nopts][20] = {
  1851. +    "-iconic", "-rv", "-reverse", "+rv", "-synchronous", 
  1852. +    "-display", "-geometry", "-bg", "-background", "-bd", "-bordercolor", "-bw",
  1853. +    "-borderwidth", "-fg", "-foreground", "-fn", "-font", "-name", 
  1854. +    "-selectionTimeout", "-title", "-xnllanguage", "-xrm" 
  1855. +    };
  1856. + int X11_optarg[X11_nopts] = { 
  1857. +    0, 0, 0, 0, 0,
  1858. +    1, 1, 1, 1, 1, 1, 1,
  1859. +    1, 1, 1, 1, 1, 1, 
  1860. +    1, 1, 1, 1
  1861. +    };
  1862. + 
  1863. + FILE *X11_pipe, *popen();
  1864. + char X11_command[1024]= "gnuplot_x11 -name gnuplot";
  1865. + 
  1866. + 
  1867. + /*   X11_args - scan gnuplot command line for standard X Toolkit options */
  1868. + 
  1869. + X11_args(argc, argv) int argc; char *argv[]; {
  1870. +    int nx11 = 0, n;
  1871. + 
  1872. +    while(++argv, --argc > 0) {
  1873. +       for (n=0; n<X11_nopts; n++) {
  1874. +      if (!strcmp(*argv, X11_opts[n])) {
  1875. +         strcat(X11_command, " ");
  1876. +         strcat(X11_command, *argv); 
  1877. +         if (X11_optarg[n]) {
  1878. +            if (--argc <= 0) return(nx11);
  1879. +            strcat(X11_command, " \"");
  1880. +            strcat(X11_command, *++argv); 
  1881. +            strcat(X11_command, "\"");
  1882. +            nx11++;
  1883. +            }
  1884. +         nx11++; break;
  1885. +         }
  1886. +      }
  1887. +       if (n == X11_nopts) break; 
  1888. +       }
  1889. +    return(nx11);
  1890. +    }
  1891. + 
  1892. + X11_init() { X11_pipe = popen(X11_command, "w"); }
  1893. + 
  1894. + X11_reset() { fprintf(X11_pipe, "R\n"); fflush(X11_pipe); }
  1895. + 
  1896. + X11_text() { fprintf(X11_pipe, "E\n"); fflush(X11_pipe); }
  1897. + 
  1898. + X11_graphics() { fprintf(X11_pipe, "G\n"); }
  1899. + 
  1900. + X11_move(x,y) unsigned int x,y; { fprintf(X11_pipe, "M%04d%04d\n", x, y); }
  1901. + 
  1902. + X11_vector(x,y) unsigned int x,y; { fprintf(X11_pipe, "V%04d%04d\n", x, y); }
  1903. + 
  1904. + X11_linetype(lt) int lt; { fprintf(X11_pipe, "L%04d\n", lt); }
  1905. + 
  1906. + X11_put_text(x,y,str) unsigned int x,y; char str[]; {
  1907. +    fprintf(X11_pipe, "T%04d%04d%s\n", x, y, str);
  1908. +    }
  1909. + X11_justify_text(mode) enum JUSTIFY mode; {
  1910. +    fprintf(X11_pipe, "J%04d\n", mode);
  1911. +    return(TRUE);
  1912. +    }
  1913. *** ./term.h    Wed Aug 29 12:15:55 1990
  1914. --- ../patch1/term.h    Tue Sep 18 14:40:02 1990
  1915. ***************
  1916. *** 0
  1917.  
  1918. --- 1,86 -----
  1919. + /* GNUPLOT - term.h */
  1920. + /*
  1921. +  * Copyright (C) 1986, 1987, 1990   Thomas Williams, Colin Kelley
  1922. +  *
  1923. +  * Permission to use, copy, and distribute this software and its
  1924. +  * documentation for any purpose with or without fee is hereby granted, 
  1925. +  * provided that the above copyright notice appear in all copies and 
  1926. +  * that both that copyright notice and this permission notice appear 
  1927. +  * in supporting documentation.
  1928. +  *
  1929. +  * Permission to modify the software is granted, but not the right to
  1930. +  * distribute the modified code.  Modifications are to be distributed 
  1931. +  * as patches to released version.
  1932. +  *  
  1933. +  * This software  is provided "as is" without express or implied warranty.
  1934. +  * 
  1935. +  *
  1936. +  * AUTHORS
  1937. +  * 
  1938. +  *   Original Software:
  1939. +  *     Thomas Williams,  Colin Kelley.
  1940. +  * 
  1941. +  *   Gnuplot 2.0 additions:
  1942. +  *       Russell Lang, Dave Kotz, John Campbell.
  1943. +  * 
  1944. +  * send your comments or suggestions to (pixar!info-gnuplot@sun.com).
  1945. +  * 
  1946. +  **************************************
  1947. +  * term.h: terminal support definitions
  1948. +  *   Edit this file depending on the set of terminals you wish to support.
  1949. +  * Comment out the terminal types that you don't want or don't have, and
  1950. +  * uncomment those that you want included. Be aware that some terminal 
  1951. +  * types (eg, SUN, UNIXPLOT) will require changes in the makefile 
  1952. +  * LIBS definition. 
  1953. +  */
  1954. + 
  1955. + /* These terminals are not relevant for MSDOS */
  1956. + #ifndef MSDOS
  1957. + 
  1958. + #define AED         /* AED 512 and AED 767 */
  1959. + #define BITGRAPH    /* BBN BitGraph */
  1960. + #define HPLJET        /* HP Laserjet */
  1961. + /* #define IRIS4D      /* IRIS4D series computer */
  1962. + #define KERMIT      /* MS-Kermit Tektronix 4010 emulator */
  1963. + /* #define FIG           /* Fig graphics language (requires object.h from TransFig) */
  1964. + #define REGIS       /* ReGis graphics (vt125, vt220, vt240, Gigis...) */
  1965. + #define SELANAR     /* Selanar */
  1966. + /* #define SUN         /* Sun Microsystems Workstation */
  1967. + #define T410X       /* Tektronix 4106, 4107, 4109 and 420x terminals */
  1968. + #define TEK         /* Tektronix 4010, and probably others */
  1969. + /* #define UNIXPC      /* unixpc (ATT 3b1 or ATT 7300) */
  1970. + /* #define UNIXPLOT    /* unixplot */
  1971. + /* #define X11         /* X11R4 window system */
  1972. + 
  1973. + #endif 
  1974. + 
  1975. + /* These terminals can be used on any system */
  1976. + #define DXY800A        /* Roland DXY800A plotter */
  1977. + #define EEPIC        /* EEPIC-extended LaTeX driver, for EEPIC users */
  1978. + #define EMTEX        /* LATEX picture environment with EMTEX specials */
  1979. + #define EPS60        /* Epson-style 60-dot per inch printers */
  1980. + #define EPSON        /* Epson LX-800, Star NL-10, NX-1000 and lots of others */
  1981. + #define HP2648        /* HP2648, HP2647 */
  1982. + #define HP26        /* HP2623A and maybe others */
  1983. + #define HP75        /* HP7580, and probably other HPs */
  1984. + #define HPGL        /* HP7475, HP7220 plotters, and (hopefully) lots of others */
  1985. + #define IMAGEN      /* Imagen laser printers (300dpi) (requires -Iterm also) */
  1986. + #define LATEX       /* LATEX picture environment */
  1987. + #define NEC         /* NEC CP6 pinwriter printer */
  1988. + #define POSTSCRIPT  /* Postscript */
  1989. + #define PROPRINTER  /* IBM Proprinter */
  1990. + #define QMS         /* QMS/QUIC laserprinter (Talaris 1200 and others) */
  1991. + #define STARC       /* Star Color Printer */
  1992. + #define TANDY60        /* Tandy DMP-130 series 60-dot per inch graphics */
  1993. + #define V384        /* Vectrix 384 and tandy color printer */
  1994. + 
  1995. + /* These are for MSDOS only */
  1996. + #ifdef MSDOS
  1997. + #ifdef __TURBOC__
  1998. + #define ATT6300        /* AT&T 6300 graphics */
  1999. + #else
  2000. + #define ATT6300        /* AT&T 6300 graphics */
  2001. + #define CORONA      /* Corona graphics 325 */
  2002. + #define HERCULES    /* IBM PC/Clone with Hercules graphics board */
  2003. + #endif
  2004. + #endif
  2005. *** ./term.c    Tue Mar 27 09:02:05 1990
  2006. --- ../patch1/term.c    Thu Sep  6 09:20:17 1990
  2007. ***************
  2008. *** 29,34
  2009.   
  2010.   #include <stdio.h>
  2011.   #include "plot.h"
  2012.   
  2013.   /* for use by all drivers */
  2014.   #define sign(x) ((x) >= 0 ? 1 : -1)
  2015.  
  2016. --- 29,35 -----
  2017.   
  2018.   #include <stdio.h>
  2019.   #include "plot.h"
  2020. + #include "term.h"
  2021.   
  2022.   /* for use by all drivers */
  2023.   #define sign(x) ((x) >= 0 ? 1 : -1)
  2024. ***************
  2025. *** 242,247
  2026.   #endif
  2027.   #endif
  2028.   
  2029.   #ifdef EPSON
  2030.   #define FONT57
  2031.   #endif
  2032.  
  2033. --- 243,266 -----
  2034.   #endif
  2035.   #endif
  2036.   
  2037. + #ifdef STARC 
  2038. + #ifndef EPSON
  2039. + #define EPSON 
  2040. + #endif
  2041. + #endif
  2042. + 
  2043. + #ifdef TANDY60
  2044. + #ifndef EPS60
  2045. + #define EPS60
  2046. + #endif
  2047. + #endif
  2048. + 
  2049. + #ifdef EPS60
  2050. + #ifndef EPSON
  2051. + #define EPSON
  2052. + #endif
  2053. + #endif
  2054. + 
  2055.   #ifdef EPSON
  2056.   #define FONT57
  2057.   #endif
  2058. ***************
  2059. *** 282,287
  2060.   # endif
  2061.   #endif
  2062.   
  2063.   #ifdef TEK            /* all TEK types, TEK, BBN, SELANAR, KERMIT */
  2064.   #include "term/tek.trm"
  2065.   #endif
  2066.  
  2067. --- 301,310 -----
  2068.   # endif
  2069.   #endif
  2070.   
  2071. + #ifdef T410X        /* Tektronix 4106, 4107, 4109 and 420x terminals */
  2072. + #include "term/t410x.trm"
  2073. + #endif
  2074. + 
  2075.   #ifdef TEK            /* all TEK types, TEK, BBN, SELANAR, KERMIT */
  2076.   #include "term/tek.trm"
  2077.   #endif
  2078. ***************
  2079. *** 286,292
  2080.   #include "term/tek.trm"
  2081.   #endif
  2082.   
  2083. ! #ifdef EPSON        /* all bit map types, EPSON, NEC, PROPRINTER */
  2084.   #include "term/epson.trm"
  2085.   #endif
  2086.   
  2087.  
  2088. --- 309,315 -----
  2089.   #include "term/tek.trm"
  2090.   #endif
  2091.   
  2092. ! #ifdef EPSON    /* bit map types, EPSON, NEC, PROPRINTER, STAR Color */
  2093.   #include "term/epson.trm"
  2094.   #endif
  2095.   
  2096. ***************
  2097. *** 290,295
  2098.   #include "term/epson.trm"
  2099.   #endif
  2100.   
  2101.   #ifdef FIG                /* Fig 1.4FS Interactive graphics program */
  2102.   #include "term/fig.trm"
  2103.   #endif
  2104.  
  2105. --- 313,322 -----
  2106.   #include "term/epson.trm"
  2107.   #endif
  2108.   
  2109. + #ifdef EPS60        /* old-style EPSON 60-dpi */
  2110. + #include "term/eps60.trm"
  2111. + #endif
  2112. + 
  2113.   #ifdef FIG                /* Fig 1.4FS Interactive graphics program */
  2114.   #include "term/fig.trm"
  2115.   #endif
  2116. ***************
  2117. *** 305,310
  2118.   # endif
  2119.   #endif
  2120.   
  2121.   #ifdef LATEX        /* LATEX type */
  2122.   #include "term/latex.trm"
  2123.   #endif
  2124.  
  2125. --- 332,343 -----
  2126.   # endif
  2127.   #endif
  2128.   
  2129. + #ifdef EMTEX        /* EMTEX (LATEX for PC) type */
  2130. + # ifndef LATEX
  2131. + #  define LATEX
  2132. + # endif
  2133. + #endif
  2134. + 
  2135.   #ifdef LATEX        /* LATEX type */
  2136.   #include "term/latex.trm"
  2137.   #endif
  2138. ***************
  2139. *** 375,380
  2140.   #include "term/unixplot.trm"
  2141.   #endif /* UNIXPLOT */
  2142.   
  2143.   /* Dummy functions for unavailable features */
  2144.   
  2145.   /* change angle of text.  0 is horizontal left to right.
  2146.  
  2147. --- 408,417 -----
  2148.   #include "term/unixplot.trm"
  2149.   #endif /* UNIXPLOT */
  2150.   
  2151. + #ifdef X11
  2152. + #include "term/x11.trm"
  2153. + #endif /* X11 */
  2154. + 
  2155.   /* Dummy functions for unavailable features */
  2156.   
  2157.   /* change angle of text.  0 is horizontal left to right.
  2158. ***************
  2159. *** 464,469
  2160.          HERC_text, null_scale, HERC_graphics, HERC_move, HERC_vector,
  2161.          HERC_linetype, HERC_put_text, MCGA_text_angle, 
  2162.          HERC_justify_text, line_and_point, do_arrow}
  2163.   #else                    /* TURBO */
  2164.   
  2165.       ,{"cga", "IBM PC/Clone with CGA graphics board",
  2166.  
  2167. --- 501,514 -----
  2168.          HERC_text, null_scale, HERC_graphics, HERC_move, HERC_vector,
  2169.          HERC_linetype, HERC_put_text, MCGA_text_angle, 
  2170.          HERC_justify_text, line_and_point, do_arrow}
  2171. + #ifdef ATT6300
  2172. +     ,{"att", "IBM PC/Clone with AT&T 6300 graphics board",
  2173. +        ATT_XMAX, ATT_YMAX, ATT_VCHAR, ATT_HCHAR,
  2174. +        ATT_VTIC, ATT_HTIC, ATT_init, ATT_reset,
  2175. +        ATT_text, null_scale, ATT_graphics, ATT_move, ATT_vector,
  2176. +        ATT_linetype, ATT_put_text, ATT_text_angle, 
  2177. +        ATT_justify_text, line_and_point, do_arrow}
  2178. + #endif
  2179.   #else                    /* TURBO */
  2180.   
  2181.       ,{"cga", "IBM PC/Clone with CGA graphics board",
  2182. ***************
  2183. *** 506,512
  2184.   #endif                    /* HERCULES */
  2185.   
  2186.   #ifdef ATT6300
  2187. !     ,{"att", "AT&T 6300 terminal ???",
  2188.          ATT_XMAX, ATT_YMAX, ATT_VCHAR, ATT_HCHAR,
  2189.          ATT_VTIC, ATT_HTIC, ATT_init, ATT_reset,
  2190.          ATT_text, null_scale, ATT_graphics, ATT_move, ATT_vector,
  2191.  
  2192. --- 551,557 -----
  2193.   #endif                    /* HERCULES */
  2194.   
  2195.   #ifdef ATT6300
  2196. !     ,{"att", "AT&T PC/6300 graphics",
  2197.          ATT_XMAX, ATT_YMAX, ATT_VCHAR, ATT_HCHAR,
  2198.          ATT_VTIC, ATT_HTIC, ATT_init, ATT_reset,
  2199.          ATT_text, null_scale, ATT_graphics, ATT_move, ATT_vector,
  2200. ***************
  2201. *** 558,563
  2202.          null_justify_text, do_point, do_arrow}
  2203.   #endif
  2204.   
  2205.   #ifdef EPSON
  2206.       ,{"epson_lx800", "Epson LX-800, Star NL-10, NX-1000 and lots of others",
  2207.          EPSONXMAX, EPSONYMAX, EPSONVCHAR, EPSONHCHAR, 
  2208.  
  2209. --- 603,636 -----
  2210.          null_justify_text, do_point, do_arrow}
  2211.   #endif
  2212.   
  2213. + #ifdef EEPIC
  2214. +     ,{"eepic", "EEPIC -- extended LaTeX picture environment",
  2215. +        EEPIC_XMAX, EEPIC_YMAX, EEPIC_VCHAR, EEPIC_HCHAR, 
  2216. +        EEPIC_VTIC, EEPIC_HTIC, EEPIC_init, EEPIC_reset, 
  2217. +        EEPIC_text, EEPIC_scale, EEPIC_graphics, EEPIC_move, EEPIC_vector, 
  2218. +        EEPIC_linetype, EEPIC_put_text, EEPIC_text_angle, 
  2219. +        EEPIC_justify_text, EEPIC_point, EEPIC_arrow}
  2220. + #endif
  2221. + 
  2222. + #ifdef EMTEX
  2223. +    
  2224. +     ,{"emtex", "LATEX picture environment with emTeX specials",
  2225. +        LATEX_XMAX, LATEX_YMAX, LATEX_VCHAR, LATEX_HCHAR, 
  2226. +        LATEX_VTIC, LATEX_HTIC, EMTEX_init, EMTEX_reset, 
  2227. +        EMTEX_text, LATEX_scale, LATEX_graphics, LATEX_move, LATEX_vector, 
  2228. +        LATEX_linetype, LATEX_put_text, LATEX_text_angle, 
  2229. +        LATEX_justify_text, LATEX_point, LATEX_arrow}
  2230. + #endif
  2231. + 
  2232. + #ifdef EPS60
  2233. +     ,{"epson_60dpi", "Epson-style 60-dot per inch printers",
  2234. +        EPS60XMAX, EPS60YMAX, EPSONVCHAR, EPSONHCHAR,
  2235. +        EPSONVTIC, EPSONHTIC, EPS60init, EPSONreset,
  2236. +        EPS60text, null_scale, EPSONgraphics, EPSONmove, EPSONvector,
  2237. +        EPSONlinetype, EPSONput_text, EPSON_text_angle,
  2238. +        null_justify_text, do_point, do_arrow}
  2239. + #endif
  2240. + 
  2241.   #ifdef EPSON
  2242.       ,{"epson_lx800", "Epson LX-800, Star NL-10, NX-1000 and lots of others",
  2243.          EPSONXMAX, EPSONYMAX, EPSONVCHAR, EPSONHCHAR, 
  2244. ***************
  2245. *** 675,689
  2246.          LATEX_justify_text, LATEX_point, LATEX_arrow}
  2247.   #endif
  2248.   
  2249. - #ifdef EEPIC
  2250. -     ,{"eepic", "EEPIC -- extended LaTeX picture environment",
  2251. -        EEPIC_XMAX, EEPIC_YMAX, EEPIC_VCHAR, EEPIC_HCHAR, 
  2252. -        EEPIC_VTIC, EEPIC_HTIC, EEPIC_init, EEPIC_reset, 
  2253. -        EEPIC_text, EEPIC_scale, EEPIC_graphics, EEPIC_move, EEPIC_vector, 
  2254. -        EEPIC_linetype, EEPIC_put_text, EEPIC_text_angle, 
  2255. -        EEPIC_justify_text, EEPIC_point, EEPIC_arrow}
  2256. - #endif
  2257. - 
  2258.   #ifdef NEC
  2259.       ,{"nec_cp6m", "NEC printer CP6 Monochrome",
  2260.          NECXMAX, NECYMAX, NECVCHAR, NECHCHAR, 
  2261.  
  2262. --- 748,753 -----
  2263.          LATEX_justify_text, LATEX_point, LATEX_arrow}
  2264.   #endif
  2265.   
  2266.   #ifdef NEC
  2267.       ,{"nec_cp6m", "NEC printer CP6 Monochrome",
  2268.          NECXMAX, NECYMAX, NECVCHAR, NECHCHAR, 
  2269. ***************
  2270. *** 769,774
  2271.          null_justify_text, line_and_point, do_arrow}
  2272.   #endif
  2273.   
  2274.   #ifdef SUN
  2275.       ,{"sun", "SunView window system",
  2276.          SUN_XMAX, SUN_YMAX, SUN_VCHAR, SUN_HCHAR, 
  2277.  
  2278. --- 833,847 -----
  2279.          null_justify_text, line_and_point, do_arrow}
  2280.   #endif
  2281.   
  2282. + #ifdef STARC
  2283. +     ,{"starc", "Star Color Printer",
  2284. +        STARCXMAX, STARCYMAX, STARCVCHAR, STARCHCHAR, 
  2285. +        STARCVTIC, STARCHTIC, STARCinit, STARCreset, 
  2286. +        STARCtext, null_scale, STARCgraphics, STARCmove, STARCvector, 
  2287. +        STARClinetype, STARCput_text, STARC_text_angle, 
  2288. +        null_justify_text, line_and_point, do_arrow}
  2289. + #endif
  2290. + 
  2291.   #ifdef SUN
  2292.       ,{"sun", "SunView window system",
  2293.          SUN_XMAX, SUN_YMAX, SUN_VCHAR, SUN_HCHAR, 
  2294. ***************
  2295. *** 778,783
  2296.          SUN_justify_text, line_and_point, do_arrow}
  2297.   #endif
  2298.   
  2299.   #ifdef TEK
  2300.       ,{"tek40xx", "Tektronix 4010 and others; most TEK emulators",
  2301.          TEK40XMAX, TEK40YMAX, TEK40VCHAR, TEK40HCHAR, 
  2302.  
  2303. --- 851,874 -----
  2304.          SUN_justify_text, line_and_point, do_arrow}
  2305.   #endif
  2306.   
  2307. + #ifdef TANDY60
  2308. +     ,{"tandy_60dpi", "Tandy DMP-130 series 60-dot per inch graphics",
  2309. +        EPS60XMAX, EPS60YMAX, EPSONVCHAR, EPSONHCHAR,
  2310. +        EPSONVTIC, EPSONHTIC, EPS60init, EPSONreset,
  2311. +        TANDY60text, null_scale, EPSONgraphics, EPSONmove, EPSONvector,
  2312. +        EPSONlinetype, EPSONput_text, EPSON_text_angle,
  2313. +        null_justify_text, do_point, do_arrow}
  2314. + #endif
  2315. + 
  2316. + #ifdef T410X
  2317. +     ,{"tek410x", "Tektronix 4106, 4107, 4109 and 420X terminals",
  2318. +        T410XXMAX, T410XYMAX, T410XVCHAR, T410XHCHAR, 
  2319. +        T410XVTIC, T410XHTIC, T410X_init, T410X_reset, 
  2320. +        T410X_text, null_scale, T410X_graphics, T410X_move, T410X_vector, 
  2321. +        T410X_linetype, T410X_put_text, T410X_text_angle, 
  2322. +        null_justify_text, T410X_point, do_arrow}
  2323. + #endif
  2324. + 
  2325.   #ifdef TEK
  2326.       ,{"tek40xx", "Tektronix 4010 and others; most TEK emulators",
  2327.          TEK40XMAX, TEK40YMAX, TEK40VCHAR, TEK40HCHAR, 
  2328. ***************
  2329. *** 813,818
  2330.          V384_linetype, V384_put_text, null_text_angle, 
  2331.          null_justify_text, do_point, do_arrow}
  2332.   #endif
  2333.   };
  2334.   
  2335.   #define TERMCOUNT (sizeof(term_tbl)/sizeof(struct termentry))
  2336.  
  2337. --- 904,924 -----
  2338.          V384_linetype, V384_put_text, null_text_angle, 
  2339.          null_justify_text, do_point, do_arrow}
  2340.   #endif
  2341. + 
  2342. + #ifdef X11
  2343. +     ,{"x11", "X11 Window System",
  2344. +        X11_XMAX, X11_YMAX, X11_VCHAR, X11_HCHAR, 
  2345. +        X11_VTIC, X11_HTIC, X11_init, X11_reset, 
  2346. +        X11_text, null_scale, X11_graphics, X11_move, X11_vector, 
  2347. +        X11_linetype, X11_put_text, null_text_angle, 
  2348. +        X11_justify_text, line_and_point, do_arrow}
  2349. +     ,{"X11", "X11 Window System - multi-color points",
  2350. +        X11_XMAX, X11_YMAX, X11_VCHAR, X11_HCHAR, 
  2351. +        X11_VTIC, X11_HTIC, X11_init, X11_reset, 
  2352. +        X11_text, null_scale, X11_graphics, X11_move, X11_vector, 
  2353. +        X11_linetype, X11_put_text, null_text_angle, 
  2354. +        X11_justify_text, do_point, do_arrow}
  2355. + #endif
  2356.   };
  2357.   
  2358.   #define TERMCOUNT (sizeof(term_tbl)/sizeof(struct termentry))
  2359. ***************
  2360. *** 985,990
  2361.               case 4 : term_name = "egalib";
  2362.                        break;
  2363.               case 7 : term_name = "hercules";
  2364.                        break;
  2365.               case 9 : term_name = "vgalib";
  2366.                        break;
  2367.  
  2368. --- 1091,1098 -----
  2369.               case 4 : term_name = "egalib";
  2370.                        break;
  2371.               case 7 : term_name = "hercules";
  2372. +                      break;
  2373. +             case 8 : term_name = "att";
  2374.                        break;
  2375.               case 9 : term_name = "vgalib";
  2376.                        break;
  2377. *** ./gnuplot_x11.c    Thu Sep  6 09:22:16 1990
  2378. --- ../patch1/gnuplot_x11.c    Wed Sep  5 21:25:26 1990
  2379. ***************
  2380. *** 0
  2381.  
  2382. --- 1,241 -----
  2383. + /*-----------------------------------------------------------------------------
  2384. +  *
  2385. +  *   gnuplot_x11 - X11 outboard terminal driver for gnuplot 2
  2386. +  *
  2387. +  *   Requires installation of companion inboard x11 driver in gnuplot/term.c
  2388. +  *
  2389. +  *   Acknowledgements: 
  2390. +  *      Chris Peterson (MIT) - original Xlib gnuplot support (and Xaw examples)
  2391. +  *      Dana Chee (Bellcore)  - mods to original support for gnuplot 2.0
  2392. +  *      Arthur Smith (Cornell) - graphical-label-widget idea (xplot)
  2393. +  *
  2394. +  *   This code is provided as is and with no warranties of any kind.
  2395. +  *       
  2396. +  *   Ed Kubaitis
  2397. +  *   Computing Services Office -  University of Illinois, Urbana
  2398. +  *---------------------------------------------------------------------------*/
  2399. +  
  2400. + #include <stdio.h>
  2401. + #include <X11/Intrinsic.h>
  2402. + #include <X11/StringDefs.h>
  2403. + #include <Cardinals.h>      /* use -Idir for location on your system */
  2404. + #include <Label.h>          /* use -Idir for location on your system */
  2405. + 
  2406. + 
  2407. + #define Color (D>1)
  2408. + #define Ncolors 11
  2409. + unsigned long colors[Ncolors];
  2410. + char color_keys[Ncolors][30] =   { "text", "border", "axis", 
  2411. +    "line1", "line2", "line3", "line4", "line5", "line6", "line7", "line8" };
  2412. + 
  2413. + char color_values[Ncolors][30] = { "black", "black", "black", 
  2414. +    "red",  "green", "blue",  "magenta", "cyan", "sienna", "orange", "coral" };
  2415. + 
  2416. + char dashes[10][5] = { {0}, {1,6,0}, 
  2417. +    {0}, {4,2,0}, {1,3,0}, {4,4,0}, {1,5,0}, {4,4,4,1,0}, {4,2,0}, {1,3,0}
  2418. +    };
  2419. + 
  2420. + Widget w_top, w_label;
  2421. + Window win;  Display *dpy;
  2422. + Pixmap pixmap;  GC gc = (GC)NULL;
  2423. + XFontStruct *font;
  2424. + unsigned long fg, bg;
  2425. + Dimension W = 640 , H = 450;  int D;
  2426. + Arg args[5];
  2427. + static void gnuplot(), resize();
  2428. + 
  2429. + int cx=0, cy=0, vchar, nc = 0;
  2430. + double xscale, yscale;
  2431. + #define X(x) (Dimension) (x * xscale)
  2432. + #define Y(y) (Dimension) ((4095-y) * yscale)
  2433. + enum JUSTIFY { LEFT, CENTRE, RIGHT } jmode;
  2434. + #define Nbuf 1024
  2435. + char buf[Nbuf];
  2436. + String *commands = NULL;
  2437. + 
  2438. + /*-----------------------------------------------------------------------------
  2439. +  *   main program - fire up application and callbacks
  2440. +  *---------------------------------------------------------------------------*/
  2441. + 
  2442. + main(argc, argv) int argc; char *argv[]; {
  2443. + 
  2444. +    /* initialize application */
  2445. +    w_top = XtInitialize("gnuplot", "Gnuplot", NULL, 0, &argc, argv);
  2446. +    XtSetArg(args[0], XtNwidth, W);
  2447. +    XtSetArg(args[1], XtNheight, H);
  2448. +    w_label = XtCreateManagedWidget("", labelWidgetClass, w_top, args, TWO);
  2449. +    XtRealizeWidget(w_top);
  2450. + 
  2451. +    /* extract needed information */
  2452. +    dpy = XtDisplay(w_top); win = XtWindow(w_top); D = DisplayPlanes(dpy,0);
  2453. +    if (Color) {
  2454. +       char option[20], *value; 
  2455. +       XColor used, exact;
  2456. +       int n;
  2457. + 
  2458. +       for(n=0; n<Ncolors; n++) {
  2459. +      strcpy(option, color_keys[n]);
  2460. +      strcat(option, "Color");
  2461. +      value = XGetDefault(dpy, "gnuplot", option);
  2462. +      if (!value) { value = color_values[n]; }
  2463. +      if (XAllocNamedColor(dpy, DefaultColormap(dpy,0), value, &used,&exact))
  2464. +         colors[n] = used.pixel; 
  2465. +      else {
  2466. +         fprintf(stderr, "gnuplot: cannot allocate %s:%s\n", option, value);
  2467. +         fprintf(stderr, "gnuplot: assuming %s:black\n", option);
  2468. +         colors[n] = BlackPixel(dpy,0);
  2469. +         }
  2470. +      }
  2471. +       }
  2472. +    XtSetArg(args[0], XtNfont, &font);
  2473. +    XtSetArg(args[1], XtNforeground, &fg);
  2474. +    XtSetArg(args[2], XtNbackground, &bg);
  2475. +    XtSetArg(args[3], XtNwidth, &W);
  2476. +    XtSetArg(args[4], XtNheight,&H);
  2477. +    XtGetValues(w_label, args, FIVE);
  2478. +    vchar = (font->ascent + font->descent);
  2479. + 
  2480. +    /* add callbacks on input-from-gnuplot-on-stdin & window-resized */
  2481. +    XtAddInput(0, XtInputReadMask, gnuplot, NULL);
  2482. +    XtAddEventHandler(w_label, StructureNotifyMask, FALSE, resize, NULL);
  2483. + 
  2484. +    XtMainLoop();
  2485. +    }
  2486. + 
  2487. + /*-----------------------------------------------------------------------------
  2488. +  *   display - display accumulated commands from inboard driver
  2489. +  *---------------------------------------------------------------------------*/
  2490. + 
  2491. + display() {
  2492. +    int n, x, y, sw, sl, lt, width, type;
  2493. +    char *buf, *str;
  2494. + 
  2495. +    /* set scaling factor between internal driver & window geometry */
  2496. +    xscale = (double)W / 4096.;  yscale = (double)H / 4096.;  
  2497. + 
  2498. +    /* return old pixmap  & GC, if any */
  2499. +    if (gc) { XFreeGC(dpy, gc); XFreePixmap(dpy, pixmap); }
  2500. + 
  2501. +    /* create new pixmap & GC */
  2502. +    pixmap = XCreatePixmap(dpy, DefaultRootWindow(dpy), W, H, D);
  2503. +    gc = XCreateGC(dpy, pixmap, 0, NULL);
  2504. +    XSetFont(dpy, gc, font->fid);
  2505. + 
  2506. +    /* connect new pixmap to label widget */
  2507. +    XtSetArg(args[0], XtNbitmap, pixmap);
  2508. +    XtSetValues(w_label, args, ONE);
  2509. + 
  2510. +    /* erase pixmap */
  2511. +    if (Color) {
  2512. +       XSetForeground(dpy, gc, bg);
  2513. +       XFillRectangle(dpy, pixmap, gc, 0, 0, W, H);
  2514. +       XSetForeground(dpy, gc, fg);
  2515. +       XSetBackground(dpy, gc, bg);
  2516. +       }
  2517. +    else {
  2518. +       XSetFunction(dpy, gc, GXxor);
  2519. +       XCopyArea(dpy, pixmap, pixmap, gc, 0, 0, W, H, 0, 0);
  2520. +       XSetFunction(dpy, gc, GXcopyInverted);
  2521. +       }
  2522. + 
  2523. +    /* loop over accumulated commands from inboard driver */
  2524. +    for (n=0; n<nc; n++) {
  2525. +       buf = commands[n];
  2526. + 
  2527. +       /*   X11_vector(x,y) - draw vector  */
  2528. +       if (*buf == 'V') { 
  2529. +      sscanf(buf, "V%4d%4d", &x, &y);  
  2530. +      XDrawLine(dpy, pixmap, gc, X(cx), Y(cy), X(x), Y(y));
  2531. +      cx = x; cy = y;
  2532. +      }
  2533. + 
  2534. +       /*   X11_move(x,y) - move  */
  2535. +       else if (*buf == 'M') 
  2536. +      sscanf(buf, "M%4d%4d", &cx, &cy);  
  2537. + 
  2538. +       /*   X11_put_text(x,y,str) - draw text   */
  2539. +       else if (*buf == 'T') { 
  2540. +      sscanf(buf, "T%4d%4d", &x, &y);  
  2541. +      str = buf + 9; sl = strlen(str) - 1;
  2542. +      sw = XTextWidth(font, str, sl);
  2543. +      switch(jmode) {
  2544. +         case LEFT:   sw = 0;     break;
  2545. +         case CENTRE: sw = -sw/2; break;
  2546. +         case RIGHT:  sw = -sw;   break;
  2547. +         }
  2548. +      if (!Color) 
  2549. +         XDrawString(dpy, pixmap, gc, X(x)+sw, Y(y)+vchar/3, str, sl);
  2550. +      else { 
  2551. +         XSetForeground(dpy, gc, colors[0]);
  2552. +         XDrawString(dpy, pixmap, gc, X(x)+sw, Y(y)+vchar/3, str, sl);
  2553. +         XSetForeground(dpy, gc, colors[lt+1]);
  2554. +         }
  2555. +      }
  2556. + 
  2557. +       /*   X11_justify_text(mode) - set text justification mode  */
  2558. +       else if (*buf == 'J') 
  2559. +      sscanf(buf, "J%4d", &jmode);
  2560. + 
  2561. +       /*   X11_linetype(type) - set line type  */
  2562. +       else if (*buf == 'L') { 
  2563. +      sscanf(buf, "L%4d", <);
  2564. +      lt = (lt+2)%10;
  2565. +      width = (lt == 0) ? 2 : 0;
  2566. +      if (Color) {
  2567. +         if (lt != 1) 
  2568. +            type = LineSolid;
  2569. +         else {
  2570. +            type = LineOnOffDash;
  2571. +            XSetDashes(dpy, gc, 0, dashes[lt], strlen(dashes[lt]));
  2572. +            }
  2573. +         XSetForeground(dpy, gc, colors[lt+1]);
  2574. +         }
  2575. +      else {
  2576. +         type  = (lt == 0 || lt == 2) ? LineSolid : LineOnOffDash;
  2577. +         if (dashes[lt][0])
  2578. +            XSetDashes(dpy, gc, 0, dashes[lt], strlen(dashes[lt]));
  2579. +         }
  2580. +      XSetLineAttributes( dpy,gc, width, type, CapButt, JoinBevel);
  2581. +      }
  2582. +       }
  2583. + 
  2584. +    /* trigger expose events to display pixmap */
  2585. +    XClearArea(dpy, win, 0, 0, 0, 0, True);
  2586. +    }
  2587. + 
  2588. + /*-----------------------------------------------------------------------------
  2589. +  *   gnuplot - Xt callback on input from gnuplot inboard X11 driver
  2590. +  *---------------------------------------------------------------------------*/
  2591. + 
  2592. + static void
  2593. + gnuplot(cd, s, id) char *cd; int *s; XtInputId *id; {
  2594. + 
  2595. +    while (fgets(buf, Nbuf, stdin)) {
  2596. +      if (*buf == 'G') {                           /* enter graphics mode */
  2597. +      if (commands) {
  2598. +         int n;
  2599. +         for (n=0; n<nc; n++) XtFree(commands[n]);
  2600. +         XtFree(commands);
  2601. +         }
  2602. +      commands = NULL; nc = 0;
  2603. +          }
  2604. +       else if (*buf == 'E') { display(); break; } /* leave graphics mode */
  2605. +       else if (*buf == 'R') { exit(0); }          /* leave X11/x11 mode  */
  2606. +       else {
  2607. +      commands = (String *)XtRealloc(commands, (nc+1) * sizeof(String));
  2608. +      commands[nc++] = XtNewString(buf);
  2609. +      }
  2610. +       }
  2611. +    if (feof(stdin) || ferror(stdin)) exit(0);
  2612. +    }
  2613. + 
  2614. + /*-----------------------------------------------------------------------------
  2615. +  *   resize - Xt callback when window resized
  2616. +  *---------------------------------------------------------------------------*/
  2617. + 
  2618. + static void
  2619. + resize(w, cd, e) Widget w; char *cd; XConfigureEvent *e; {
  2620. +    if (e->type != ConfigureNotify) return;
  2621. +    W = e->width; H = e->height;
  2622. +    display(); 
  2623. +    }
  2624.