home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume16 / gnuplot2.02 / patch2 / patch2a
Encoding:
Text File  |  1991-01-05  |  49.4 KB  |  1,716 lines
  1. diff -cr ./README ../gnuplot2.02/README
  2. *** ./README    Tue Sep 18 14:56:36 1990
  3. --- ../gnuplot2.02/README    Tue Dec 11 16:40:48 1990
  4. ***************
  5. *** 208,213
  6.      AED         AED 512 and AED 767
  7.      ATT6300     PC with AT&T 6300 graphics
  8.      BITGRAPH    BBN BitGraph
  9.      CORONA      PC with Corona graphics 325
  10.      DXY800A     Roland DXY800A plotter
  11.      EEPIC       EEPIC-extended LaTeX driver, for EEPIC users
  12.  
  13. --- 208,214 -----
  14.      AED         AED 512 and AED 767
  15.      ATT6300     PC with AT&T 6300 graphics
  16.      BITGRAPH    BBN BitGraph
  17. +    CGI         SCO CGI
  18.      CORONA      PC with Corona graphics 325
  19.      DXY800A     Roland DXY800A plotter
  20.      EEPIC       EEPIC-extended LaTeX driver, for EEPIC users
  21. ***************
  22. *** 220,226
  23.      HP26        HP2623A and maybe others
  24.      HP75        HP7580, and probably other HPs
  25.      HPGL        HP7475 and (hopefully) lots of others
  26. !    HPLJET      HP Laserjet
  27.      IMAGEN      Imagen laser printers (300dpi) (requires -Iterm also)
  28.      IRIS4D      IRIS4D series computer
  29.      KERMIT      MS-Kermit Tektronix 4010 emulator
  30.  
  31. --- 221,227 -----
  32.      HP26        HP2623A and maybe others
  33.      HP75        HP7580, and probably other HPs
  34.      HPGL        HP7475 and (hopefully) lots of others
  35. !    HPLJII      HP Laserjet II
  36.      IMAGEN      Imagen laser printers (300dpi) (requires -Iterm also)
  37.      IRIS4D      IRIS4D series computer
  38.      KERMIT      MS-Kermit Tektronix 4010 emulator
  39. ***************
  40. *** 227,233
  41.      LATEX       LATEX picture environment
  42.      NEC         NEC CP6 pinwriter printer
  43.      POSTSCRIPT  Postscript
  44. !    PROPRINTER  IBM Proprinter
  45.      QMS         QMS/QUIC laserprinter (Talaris 1200 and others)
  46.      REGIS       ReGis graphics (vt125, vt220, vt240, Gigis...)
  47.      SELANAR     Selanar
  48.  
  49. --- 228,234 -----
  50.      LATEX       LATEX picture environment
  51.      NEC         NEC CP6 pinwriter printer
  52.      POSTSCRIPT  Postscript
  53. !    PRESCRIBE   Kyocera Laser printer
  54.      QMS         QMS/QUIC laserprinter (Talaris 1200 and others)
  55.      REGIS       ReGis graphics (vt125, vt220, vt240, Gigis...)
  56.      SELANAR     Selanar
  57. ***************
  58. *** 239,244
  59.      UNIXPC      unixpc (ATT 3b1 or ATT 7300)
  60.      UNIXPLOT    unixplot
  61.      V384        Vectrix 384 and tandy color printer
  62.      X11         X11R4 window system
  63.   
  64.   
  65.  
  66. --- 240,246 -----
  67.      UNIXPC      unixpc (ATT 3b1 or ATT 7300)
  68.      UNIXPLOT    unixplot
  69.      V384        Vectrix 384 and tandy color printer
  70. +    VTTEK       VT like Tektronix 4010 emulator
  71.      X11         X11R4 window system
  72.   
  73.   
  74. ***************
  75. *** 279,285
  76.   
  77.   under MSDOS:
  78.   Using Microsoft C 5.10.
  79. !     make makefile.msc
  80.   
  81.   Using Turbo C 2.0.
  82.       make -fmakefile.tc
  83.  
  84. --- 281,288 -----
  85.   
  86.   under MSDOS:
  87.   Using Microsoft C 5.10.
  88. !       copy makefile.msc
  89. !       make makefile
  90.   
  91.   Using Turbo C 2.0.
  92.         copy makefile.tc
  93. ***************
  94. *** 282,288
  95.       make makefile.msc
  96.   
  97.   Using Turbo C 2.0.
  98. !     make -fmakefile.tc
  99.   
  100.   The file gnuplot.gih is needed for help on the PC.
  101.   If the file gnuplot.gih is not in the default directory, then use:
  102.  
  103. --- 285,293 -----
  104.         make makefile
  105.   
  106.   Using Turbo C 2.0.
  107. !       copy makefile.tc
  108. !   Edit makefile to change TC, BIN, BGI.
  109. !       make
  110.   
  111.   The file gnuplot.gih is needed for help on the PC.
  112.   If the file gnuplot.gih is not in the default directory, then use:
  113. diff -cr ./README.x11 ../gnuplot2.02/README.x11
  114. *** ./README.x11    Tue Sep 18 14:56:39 1990
  115. --- ../gnuplot2.02/README.x11    Mon Nov 26 02:31:27 1990
  116. ***************
  117. *** 1,4
  118. ! Gnuplot Support for X11
  119.   -----------------------
  120.   31 August 1990
  121.   
  122.  
  123. --- 1,4 -----
  124. ! Gnuplot (patch 2) Support for X11
  125.   -----------------------
  126.   24 November 1990
  127.   
  128. ***************
  129. *** 1,6
  130.   Gnuplot Support for X11
  131.   -----------------------
  132. ! 31 August 1990
  133.   
  134.   Installing gnuplot X11 support requires:
  135.   
  136.  
  137. --- 1,6 -----
  138.   Gnuplot (patch 2) Support for X11
  139.   -----------------------
  140. ! 24 November 1990
  141.   
  142.   Installing gnuplot X11 support requires:
  143.   
  144. ***************
  145. *** 10,19
  146.   
  147.      o compilation of the outboard X11 terminal driver gnuplot_x11
  148.   
  149. -    o additions to the gnuplot(1) man page to describe command line
  150. -      options and tailorable resources available when gnuplot terminal
  151. -      types x11 or X11 are used.
  152. - 
  153.   makefile.x11 (a modified version of makefile.unx) provides these additional
  154.   functions. The X11LIBS and X11INCLUDES parameters should be set to point to
  155.   the X11 libraries and include files on your system. Comments give settings
  156.  
  157. --- 10,15 -----
  158.   
  159.      o compilation of the outboard X11 terminal driver gnuplot_x11
  160.   
  161.   makefile.x11 (a modified version of makefile.unx) provides these additional
  162.   functions. The X11LIBS and X11INCLUDES parameters should be set to point to
  163.   the X11 libraries and include files on your system. Comments give settings
  164. ***************
  165. *** 17,23
  166.   makefile.x11 (a modified version of makefile.unx) provides these additional
  167.   functions. The X11LIBS and X11INCLUDES parameters should be set to point to
  168.   the X11 libraries and include files on your system. Comments give settings
  169. ! for several systems.
  170.   
  171.   Sorry, as of this writing no support is available for systems without the 
  172.   Athena widget library (libXaw.a), or platforms other than unix.
  173.  
  174. --- 13,20 -----
  175.   makefile.x11 (a modified version of makefile.unx) provides these additional
  176.   functions. The X11LIBS and X11INCLUDES parameters should be set to point to
  177.   the X11 libraries and include files on your system. Comments give settings
  178. ! for several systems. The X11FLAGS parameter should be set to "-DMOTIF" to
  179. ! compile for the Motif (libXm.a) rather than Athena (libXaw.a) widget library.
  180.   
  181.   The gnuplot man page describes command line options and tailorable resources 
  182.   available when gnuplot terminal types x11 or X11 are used.
  183. ***************
  184. *** 19,26
  185.   the X11 libraries and include files on your system. Comments give settings
  186.   for several systems.
  187.   
  188. ! Sorry, as of this writing no support is available for systems without the 
  189. ! Athena widget library (libXaw.a), or platforms other than unix.
  190.   
  191.   Differences from "xgnuplot"
  192.   ---------------------------
  193.  
  194. --- 16,23 -----
  195.   for several systems. The X11FLAGS parameter should be set to "-DMOTIF" to
  196.   compile for the Motif (libXm.a) rather than Athena (libXaw.a) widget library.
  197.   
  198. ! The gnuplot man page describes command line options and tailorable resources 
  199. ! available when gnuplot terminal types x11 or X11 are used.
  200.   
  201.   Sorry, as of this writing no support is available for platforms other than unix.
  202.   
  203. ***************
  204. *** 22,27
  205.   Sorry, as of this writing no support is available for systems without the 
  206.   Athena widget library (libXaw.a), or platforms other than unix.
  207.   
  208.   Differences from "xgnuplot"
  209.   ---------------------------
  210.   
  211.  
  212. --- 19,26 -----
  213.   The gnuplot man page describes command line options and tailorable resources 
  214.   available when gnuplot terminal types x11 or X11 are used.
  215.   
  216. + Sorry, as of this writing no support is available for platforms other than unix.
  217. + 
  218.   Differences from "xgnuplot"
  219.   ---------------------------
  220.   This X11 support is based on the xgnuplot wrapper/terminal driver distributed 
  221. ***************
  222. *** 24,29
  223.   
  224.   Differences from "xgnuplot"
  225.   ---------------------------
  226.   
  227.   This X11 support is based on (and replaces) the xgnuplot wrapper/terminal 
  228.   driver which was distributed separately from gnuplot. Differences:
  229.  
  230. --- 23,30 -----
  231.   
  232.   Differences from "xgnuplot"
  233.   ---------------------------
  234. + This X11 support is based on the xgnuplot wrapper/terminal driver distributed 
  235. + separately from gnuplot. Differences:
  236.   
  237.      o Gnuplot silently invokes the outboard driver, rather than vice versa.
  238.        Thus resource names in .Xdefaults begin with "gnuplot" rather than
  239. ***************
  240. *** 25,33
  241.   Differences from "xgnuplot"
  242.   ---------------------------
  243.   
  244. - This X11 support is based on (and replaces) the xgnuplot wrapper/terminal 
  245. - driver which was distributed separately from gnuplot. Differences:
  246. - 
  247.      o Gnuplot silently invokes the outboard driver, rather than vice versa.
  248.        Thus resource names in .Xdefaults begin with "gnuplot" rather than
  249.        "xgnuplot". En passant, this change fixed the bug where xgnuplot would
  250.  
  251. --- 26,31 -----
  252.   This X11 support is based on the xgnuplot wrapper/terminal driver distributed 
  253.   separately from gnuplot. Differences:
  254.   
  255.      o Gnuplot silently invokes the outboard driver, rather than vice versa.
  256.        Thus resource names in .Xdefaults begin with "gnuplot" rather than
  257.        "xgnuplot".
  258. ***************
  259. *** 30,38
  260.   
  261.      o Gnuplot silently invokes the outboard driver, rather than vice versa.
  262.        Thus resource names in .Xdefaults begin with "gnuplot" rather than
  263. !      "xgnuplot". En passant, this change fixed the bug where xgnuplot would
  264. !      hang until Ctrl-C when gnuplot was exited without plotting at least
  265. !      one x11/X11 plot.
  266.   
  267.      o When the window is resized, the currently displayed plot is automatically
  268.        rescaled and replotted.
  269.  
  270. --- 28,34 -----
  271.   
  272.      o Gnuplot silently invokes the outboard driver, rather than vice versa.
  273.        Thus resource names in .Xdefaults begin with "gnuplot" rather than
  274. !      "xgnuplot".
  275.   
  276.      o When the window is resized, the currently displayed plot is automatically
  277.        rescaled and replotted.
  278. ***************
  279. *** 37,48
  280.      o When the window is resized, the currently displayed plot is automatically
  281.        rescaled and replotted.
  282.   
  283. !    o Compiles under X11 R3 as well as R4. This required using XtInitialize
  284. !      instead of XtAppInitialize, (char *) instead of XtPointer for callback
  285. !      client data declarations, removing a reference to XGetGCValues, and 
  286. !      parameterizing (X11INCLUDES in makefile.x11) the location of the needed 
  287. !      Athena include files.
  288. ! 
  289.   
  290.   ---------------------------------
  291.   Ed Kubaitis, ejk@uxh.cso.uiuc.edu
  292.  
  293. --- 33,40 -----
  294.      o When the window is resized, the currently displayed plot is automatically
  295.        rescaled and replotted.
  296.   
  297. !    o Compiles under X11 R3 as well as R4 and with either the Athena or Motif 
  298. !      widget libraries.
  299.   
  300.   ---------------------------------
  301.   Ed Kubaitis, ejk@uxh.cso.uiuc.edu
  302. Common subdirectories: ./bugtest and ../gnuplot2.02/bugtest
  303. diff -cr ./buildvms.com ../gnuplot2.02/buildvms.com
  304. *** ./buildvms.com    Tue Sep 18 14:56:40 1990
  305. --- ../gnuplot2.02/buildvms.com    Tue Dec  4 11:43:40 1990
  306. ***************
  307. *** 3,8
  308.   $ !TERMFLAGS = "/define=()"
  309.   $ TERMFLAGS = ""
  310.   $ set verify
  311.   $ cc 'CFLAGS' command.c
  312.   $ cc 'CFLAGS' eval.c
  313.   $ cc 'CFLAGS' graphics.c
  314.  
  315. --- 3,9 -----
  316.   $ !TERMFLAGS = "/define=()"
  317.   $ TERMFLAGS = ""
  318.   $ set verify
  319. + $ cc 'CFLAGS' bitmap.c
  320.   $ cc 'CFLAGS' command.c
  321.   $ cc 'CFLAGS' eval.c
  322.   $ cc 'CFLAGS' graphics.c
  323. ***************
  324. *** 17,23
  325.   $ cc 'CFLAGS' util.c
  326.   $ cc 'CFLAGS' version.c
  327.   $ link /exe=gnuplot -
  328. !    command.obj,eval.obj,graphics.obj,internal.obj, -
  329.      misc.obj,parse.obj,plot.obj,scanner.obj,setshow.obj, -
  330.      standard.obj,term.obj,util.obj,version.obj ,linkopt.vms/opt
  331.   $ cc [.docs]doc2hlp.c
  332.  
  333. --- 18,24 -----
  334.   $ cc 'CFLAGS' util.c
  335.   $ cc 'CFLAGS' version.c
  336.   $ link /exe=gnuplot -
  337. !    bitmap.obj,command.obj,eval.obj,graphics.obj,internal.obj, -
  338.      misc.obj,parse.obj,plot.obj,scanner.obj,setshow.obj, -
  339.      standard.obj,term.obj,util.obj,version.obj ,linkopt.vms/opt
  340.   $ cc [.docs]doc2hlp.c
  341. diff -cr ./command.c ../gnuplot2.02/command.c
  342. *** ./command.c    Tue Sep 18 14:56:42 1990
  343. --- ../gnuplot2.02/command.c    Thu Nov 29 10:13:34 1990
  344. ***************
  345. *** 75,81
  346.   extern int strlen(), strcmp();
  347.   
  348.   #ifdef unix
  349. ! extern char *getwd();
  350.   #else
  351.   extern char *getcwd();
  352.   #endif
  353.  
  354. --- 75,82 -----
  355.   extern int strlen(), strcmp();
  356.   
  357.   #ifdef unix
  358. ! #ifdef GETCWD
  359. ! extern char *getcwd();    /* some Unix's use getcwd */
  360.   #else
  361.   extern char *getwd();    /* most Unix's use getwd */
  362.   #endif
  363. ***************
  364. *** 77,83
  365.   #ifdef unix
  366.   extern char *getwd();
  367.   #else
  368. ! extern char *getcwd();
  369.   #endif
  370.   extern int chdir();
  371.   
  372.  
  373. --- 78,84 -----
  374.   #ifdef GETCWD
  375.   extern char *getcwd();    /* some Unix's use getcwd */
  376.   #else
  377. ! extern char *getwd();    /* most Unix's use getwd */
  378.   #endif
  379.   #else
  380.   extern char *getcwd();    /* Turbo C, MSC and VMS use getcwd */
  381. ***************
  382. *** 79,84
  383.   #else
  384.   extern char *getcwd();
  385.   #endif
  386.   extern int chdir();
  387.   
  388.   extern double magnitude(),angle(),real(),imag();
  389.  
  390. --- 80,88 -----
  391.   #else
  392.   extern char *getwd();    /* most Unix's use getwd */
  393.   #endif
  394. + #else
  395. + extern char *getcwd();    /* Turbo C, MSC and VMS use getcwd */
  396. + #endif
  397.   extern int chdir();
  398.   
  399.   extern double magnitude(),angle(),real(),imag();
  400. ***************
  401. *** 287,294
  402.       }
  403.       else if (almost_equals(c_token,"pwd")) {
  404.   #ifdef unix
  405. ! /* unix has getwd() */
  406. !       (void) getwd(sv_file);
  407.   #else
  408.   /* Turbo C and VMS have getcwd() */
  409.         (void) getcwd(sv_file,MAX_ID_LEN);
  410.  
  411. --- 291,298 -----
  412.       }
  413.       else if (almost_equals(c_token,"pwd")) {
  414.   #ifdef unix
  415. ! #ifdef GETCWD
  416. !       (void) getcwd(sv_file,MAX_ID_LEN); /* some Unix's use getcwd */
  417.   #else
  418.         (void) getwd(sv_file); /* most Unix's use getwd */
  419.   #endif
  420. ***************
  421. *** 290,295
  422.   /* unix has getwd() */
  423.         (void) getwd(sv_file);
  424.   #else
  425.   /* Turbo C and VMS have getcwd() */
  426.         (void) getcwd(sv_file,MAX_ID_LEN);
  427.   #endif
  428.  
  429. --- 294,302 -----
  430.   #ifdef GETCWD
  431.         (void) getcwd(sv_file,MAX_ID_LEN); /* some Unix's use getcwd */
  432.   #else
  433. +       (void) getwd(sv_file); /* most Unix's use getwd */
  434. + #endif
  435. + #else
  436.   /* Turbo C and VMS have getcwd() */
  437.         (void) getcwd(sv_file,MAX_ID_LEN);
  438.   #endif
  439. ***************
  440. *** 328,333
  441.   
  442.   
  443.   plotrequest()
  444.   {
  445.        BOOLEAN changed;
  446.       int dummy_token = -1;
  447.  
  448. --- 335,346 -----
  449.   
  450.   
  451.   plotrequest()
  452. + /*
  453. +    In the parametric case we can say 
  454. +       plot [a= -4:4] [-2:2] [-1:1] sin(a),a**2
  455. +    while in the non-parametric case we would say only
  456. +       plot [b= -2:2] [-1:1] sin(b)
  457. + */
  458.   {
  459.        BOOLEAN changed;
  460.       int dummy_token = -1;
  461. ***************
  462. *** 332,337
  463.        BOOLEAN changed;
  464.       int dummy_token = -1;
  465.   
  466.        autoscale_lx = autoscale_x;
  467.        autoscale_ly = autoscale_y;
  468.       
  469.  
  470. --- 345,351 -----
  471.        BOOLEAN changed;
  472.       int dummy_token = -1;
  473.   
  474. +     autoscale_lt = autoscale_t;
  475.        autoscale_lx = autoscale_x;
  476.        autoscale_ly = autoscale_y;
  477.       
  478. ***************
  479. *** 350,355
  480.                  /* used to be: int_error("'=' expected",c_token); */
  481.               }
  482.           }
  483.           changed = load_range(&xmin,&xmax);
  484.           if (!equals(c_token,"]"))
  485.               int_error("']' expected",c_token);
  486.  
  487. --- 364,383 -----
  488.                  /* used to be: int_error("'=' expected",c_token); */
  489.               }
  490.           }
  491. +         changed = parametric ? load_range(&tmin,&tmax):load_range(&xmin,&xmax);
  492. +         if (!equals(c_token,"]"))
  493. +             int_error("']' expected",c_token);
  494. +         c_token++;
  495. +         if (changed) {
  496. +             if (parametric)
  497. +                 autoscale_lt = FALSE;
  498. +             else
  499. +                 autoscale_lx = FALSE;
  500. +         }
  501. +     }
  502. + 
  503. +     if (parametric && equals(c_token,"[")) { /* set optional x ranges */
  504. +         c_token++;
  505.           changed = load_range(&xmin,&xmax);
  506.           if (!equals(c_token,"]"))
  507.               int_error("']' expected",c_token);
  508. ***************
  509. *** 417,422
  510.   register FILE *fp;
  511.   float x, y;
  512.   int npoints;                /* number of points and breaks read */
  513.   
  514.       quote_str(data_file, c_token);
  515.       this_plot->plot_type = DATA;
  516.  
  517. --- 445,453 -----
  518.   register FILE *fp;
  519.   float x, y;
  520.   int npoints;                /* number of points and breaks read */
  521. + float temp;
  522. + BOOLEAN yfirst;
  523. + char format[MAX_LINE_LEN+1];
  524.   
  525.       quote_str(data_file, c_token);
  526.       this_plot->plot_type = DATA;
  527. ***************
  528. *** 423,428
  529.       if ((fp = fopen(data_file, "r")) == (FILE *)NULL)
  530.           os_error("can't open data file", c_token);
  531.   
  532.       l_num = 0;
  533.        datum = 0;
  534.       i = 0;
  535.  
  536. --- 454,483 -----
  537.       if ((fp = fopen(data_file, "r")) == (FILE *)NULL)
  538.           os_error("can't open data file", c_token);
  539.   
  540. +     format[0] = '\0';
  541. +     yfirst = FALSE;
  542. +     c_token++;    /* skip data file name */
  543. +     if (almost_equals(c_token,"u$sing")) {
  544. +         c_token++;      /* skip "using" */
  545. +         if (!isstring(c_token)) {
  546. +             if ( equals(c_token,"xy") || equals(c_token,"y") )
  547. +                 yfirst = FALSE;
  548. +             else if (equals(c_token,"yx"))
  549. +                 yfirst = TRUE;
  550. +             else 
  551. +                 int_error("expecting xy, yx, y or format (scanf) string",c_token);
  552. +             c_token++;    /* skip "xy", "yx" or "y" */
  553. +         }
  554. +         if (isstring(c_token)) {
  555. +             quotel_str(format, c_token);
  556. +             c_token++;    /* skip format */
  557. +         }
  558. +         else
  559. +             int_error("expecting format (scanf) string",c_token);
  560. +     }
  561. +     if (strlen(format) == 0)
  562. +         strcpy(format,"%f %f");
  563. + 
  564.       l_num = 0;
  565.        datum = 0;
  566.       i = 0;
  567. ***************
  568. *** 441,447
  569.               continue;
  570.           }
  571.   
  572. !         switch (sscanf(line, "%f %f", &x, &y)) {
  573.               case 1: {        /* only one number on the line */
  574.                  y = x;        /* assign that number to y */
  575.                  x = datum;    /* and make the index into x */
  576.  
  577. --- 496,502 -----
  578.               continue;
  579.           }
  580.   
  581. !         switch (sscanf(line, format, &x, &y)) {
  582.               case 1: {        /* only one number on the line */
  583.                  y = x;        /* assign that number to y */
  584.                  x = datum;    /* and make the index into x */
  585. ***************
  586. *** 448,453
  587.                  /* no break; !!! */
  588.               }
  589.               case 2: {
  590.                  datum++;
  591.                  this_plot->points[i].type = INRANGE;
  592.   
  593.  
  594. --- 503,513 -----
  595.                  /* no break; !!! */
  596.               }
  597.               case 2: {
  598. +                if (yfirst) { /* exchange x and y */
  599. +                   temp = y;
  600. +                   y = x;
  601. +                   x = temp;
  602. +                }
  603.                  datum++;
  604.                  this_plot->points[i].type = INRANGE;
  605.   
  606. ***************
  607. *** 517,523
  608.   {
  609.   register int i;
  610.   register struct curve_points *this_plot, **tp_ptr;
  611. ! register int start_token, mysamples;
  612.   register int begin_token;
  613.   register double x_min, x_max, y_min, y_max, x;
  614.   register double xdiff, temp;
  615.  
  616. --- 577,583 -----
  617.   {
  618.   register int i;
  619.   register struct curve_points *this_plot, **tp_ptr;
  620. ! register int start_token, end_token, mysamples;
  621.   register int begin_token;
  622.   double x_min, x_max, y_min, y_max;
  623.   register double x, xdiff, temp;
  624. ***************
  625. *** 519,526
  626.   register struct curve_points *this_plot, **tp_ptr;
  627.   register int start_token, mysamples;
  628.   register int begin_token;
  629. ! register double x_min, x_max, y_min, y_max, x;
  630. ! register double xdiff, temp;
  631.   static struct value a;
  632.   BOOLEAN some_data_files = FALSE;
  633.   int plot_num, line_num, point_num;
  634.  
  635. --- 579,586 -----
  636.   register struct curve_points *this_plot, **tp_ptr;
  637.   register int start_token, end_token, mysamples;
  638.   register int begin_token;
  639. ! double x_min, x_max, y_min, y_max;
  640. ! register double x, xdiff, temp;
  641.   static struct value a;
  642.   BOOLEAN ltmp, some_data_files = FALSE;
  643.   int plot_num, line_num, point_num, xparam=0;
  644. ***************
  645. *** 522,529
  646.   register double x_min, x_max, y_min, y_max, x;
  647.   register double xdiff, temp;
  648.   static struct value a;
  649. ! BOOLEAN some_data_files = FALSE;
  650. ! int plot_num, line_num, point_num;
  651.   
  652.       mysamples = samples;
  653.   
  654.  
  655. --- 582,591 -----
  656.   double x_min, x_max, y_min, y_max;
  657.   register double x, xdiff, temp;
  658.   static struct value a;
  659. ! BOOLEAN ltmp, some_data_files = FALSE;
  660. ! int plot_num, line_num, point_num, xparam=0;
  661. ! char *xtitle;
  662. ! void parametric_fixup();
  663.   
  664.       mysamples = samples;
  665.   
  666. ***************
  667. *** 569,574
  668.               }
  669.   
  670.               if (isstring(c_token)) {            /* data file to plot */
  671.                   if (!some_data_files && autoscale_lx) {
  672.                       xmin = VERYLARGE;
  673.                       xmax = -VERYLARGE;
  674.  
  675. --- 631,640 -----
  676.               }
  677.   
  678.               if (isstring(c_token)) {            /* data file to plot */
  679. +                 if (parametric && xparam) 
  680. +                     int_error("previous parametric function not fully specified",
  681. +                                                                     c_token);
  682. + 
  683.                   if (!some_data_files && autoscale_lx) {
  684.                       xmin = VERYLARGE;
  685.                       xmax = -VERYLARGE;
  686. ***************
  687. *** 577,584
  688.   
  689.                   this_plot->plot_type = DATA;
  690.                   this_plot->plot_style = data_style;
  691. !                 get_data(this_plot);
  692. !                 c_token++;
  693.               } 
  694.               else {                            /* function to plot */
  695.                   this_plot->plot_type = FUNC;
  696.  
  697. --- 643,650 -----
  698.   
  699.                   this_plot->plot_type = DATA;
  700.                   this_plot->plot_style = data_style;
  701. !                 end_token = c_token;
  702. !                 get_data(this_plot); /* this also parses the using option */
  703.               } 
  704.               else {                            /* function to plot */
  705.                   if (parametric)            /* working on x parametric function */
  706. ***************
  707. *** 581,586
  708.                   c_token++;
  709.               } 
  710.               else {                            /* function to plot */
  711.                   this_plot->plot_type = FUNC;
  712.                   this_plot->plot_style = func_style;
  713.                   dummy_func = &plot_func;
  714.  
  715. --- 647,654 -----
  716.                   get_data(this_plot); /* this also parses the using option */
  717.               } 
  718.               else {                            /* function to plot */
  719. +                 if (parametric)            /* working on x parametric function */
  720. +                     xparam = 1 - xparam;
  721.                   this_plot->plot_type = FUNC;
  722.                   this_plot->plot_style = func_style;
  723.                   dummy_func = &plot_func;
  724. ***************
  725. *** 586,591
  726.                   dummy_func = &plot_func;
  727.                   plot_func.at = temp_at();
  728.                   /* ignore it for now */
  729.               }
  730.   
  731.               if (almost_equals(c_token,"t$itle")) {
  732.  
  733. --- 654,660 -----
  734.                   dummy_func = &plot_func;
  735.                   plot_func.at = temp_at();
  736.                   /* ignore it for now */
  737. +                 end_token = c_token-1;
  738.               }
  739.   
  740.               if (almost_equals(c_token,"t$itle")) {
  741. ***************
  742. *** 589,594
  743.               }
  744.   
  745.               if (almost_equals(c_token,"t$itle")) {
  746.                   c_token++;
  747.                   if ( (input_line[token[c_token].start_index]=='\'')
  748.                      ||(input_line[token[c_token].start_index]=='"') ) {
  749.  
  750. --- 658,671 -----
  751.               }
  752.   
  753.               if (almost_equals(c_token,"t$itle")) {
  754. +                 if (parametric) {
  755. +                     if (xparam) 
  756. +                         int_error(
  757. +         "\"title\" allowed only after parametric function fully specified",
  758. +                                                                     c_token);
  759. +                     else if (xtitle != NULL)
  760. +                         xtitle[0] = '\0';  /* Remove default title .*/
  761. +                 }
  762.                   c_token++;
  763.                   if ( (input_line[token[c_token].start_index]=='\'')
  764.                      ||(input_line[token[c_token].start_index]=='"') ) {
  765. ***************
  766. *** 599,609
  767.                   }
  768.                   c_token++;
  769.               }
  770. !             else {
  771. !                 m_capture(&(this_plot->title),start_token,c_token-1);
  772. !             }
  773. ! 
  774. !             this_plot->line_type = line_num;
  775.               this_plot->point_type = point_num;
  776.   
  777.               if (almost_equals(c_token,"w$ith")) {
  778.  
  779. --- 676,687 -----
  780.                   }
  781.                   c_token++;
  782.               }
  783. !               else {
  784. !                   m_capture(&(this_plot->title),start_token,end_token);
  785. !                  if (xparam) xtitle = this_plot->title;
  786. !               }
  787. !   
  788. !               this_plot->line_type = line_num;
  789.               this_plot->point_type = point_num;
  790.   
  791.               if (almost_equals(c_token,"w$ith")) {
  792. ***************
  793. *** 607,612
  794.               this_plot->point_type = point_num;
  795.   
  796.               if (almost_equals(c_token,"w$ith")) {
  797.                   this_plot->plot_style = get_style();
  798.               }
  799.   
  800.  
  801. --- 685,693 -----
  802.               this_plot->point_type = point_num;
  803.   
  804.               if (almost_equals(c_token,"w$ith")) {
  805. +                 if (parametric && xparam) 
  806. +                     int_error("\"with\" allowed only after parametric function fully specified",
  807. +                                                                     c_token);
  808.                   this_plot->plot_style = get_style();
  809.               }
  810.   
  811. ***************
  812. *** 620,627
  813.               }
  814.               if ( (this_plot->plot_style == POINTS) ||
  815.                    (this_plot->plot_style == LINESPOINTS) )
  816. !                     point_num++;
  817. !             line_num++;
  818.   
  819.               tp_ptr = &(this_plot->next_cp);
  820.           }
  821.  
  822. --- 701,708 -----
  823.               }
  824.               if ( (this_plot->plot_style == POINTS) ||
  825.                    (this_plot->plot_style == LINESPOINTS) )
  826. !                     if (!xparam) point_num++;
  827. !             if (!xparam) line_num++;
  828.   
  829.               tp_ptr = &(this_plot->next_cp);
  830.           }
  831. ***************
  832. *** 632,637
  833.               break;
  834.       }
  835.   
  836.   /*** Second Pass: Evaluate the functions ***/
  837.   /* Everything is defined now, except the function data. We expect
  838.    * no syntax errors, etc, since the above parsed it all. This makes 
  839.  
  840. --- 713,728 -----
  841.               break;
  842.       }
  843.   
  844. +     if (parametric && xparam) 
  845. +         int_error("parametric function not fully specified", NO_CARET);
  846. + 
  847. +     if (parametric) {
  848. +     /* Swap t and x ranges for duration of these eval_plot computations. */
  849. +         ltmp = autoscale_lx; autoscale_lx = autoscale_lt; autoscale_lt = ltmp;
  850. +         temp = xmin; xmin = tmin; tmin = temp;
  851. +         temp = xmax; xmax = tmax; tmax = temp;
  852. +     }
  853. + 
  854.   /*** Second Pass: Evaluate the functions ***/
  855.   /* Everything is defined now, except the function data. We expect
  856.    * no syntax errors, etc, since the above parsed it all. This makes 
  857. ***************
  858. *** 639,645
  859.    */
  860.        if (xmin == xmax)
  861.         if (autoscale_lx) {
  862. !          fprintf(stderr, "Warning: empty x range [%g:%g], ", xmin,xmax);
  863.            if (xmin == 0.0) {
  864.               /* completely arbitary */
  865.               xmin = -1.;
  866.  
  867. --- 730,737 -----
  868.    */
  869.        if (xmin == xmax)
  870.         if (autoscale_lx) {
  871. !          fprintf(stderr, "Warning: empty %c range [%g:%g], ", 
  872. !             parametric ? 't' : 'x', xmin,xmax);
  873.            if (xmin == 0.0) {
  874.               /* completely arbitary */
  875.               xmin = -1.;
  876. ***************
  877. *** 654,659
  878.            int_error("x range is empty", c_token);
  879.         }
  880.   
  881.       if (log_x) {
  882.          if (xmin <= 0.0 || xmax <= 0.0)
  883.           int_error("x range must be greater than 0 for log scale!",NO_CARET);
  884.  
  885. --- 746,756 -----
  886.            int_error("x range is empty", c_token);
  887.         }
  888.   
  889. +     /* give error if xrange badly set from missing datafile error */
  890. +     if (xmin == VERYLARGE || xmax == -VERYLARGE) {
  891. +         int_error("x range is invalid", c_token);
  892. +     }
  893. + 
  894.       if (log_x) {
  895.          if (xmin <= 0.0 || xmax <= 0.0)
  896.           int_error("x range must be greater than 0 for log scale!",NO_CARET);
  897. ***************
  898. *** 679,684
  899.               if (isstring(c_token)) {            /* data file to plot */
  900.                   /* ignore this now */
  901.                   c_token++;
  902.               } 
  903.               else {                            /* function to plot */
  904.                   dummy_func = &plot_func;
  905.  
  906. --- 776,787 -----
  907.               if (isstring(c_token)) {            /* data file to plot */
  908.                   /* ignore this now */
  909.                   c_token++;
  910. +                 if (almost_equals(c_token,"u$sing")) {
  911. +                     c_token++;      /* skip "using" */
  912. +                     if (!isstring(c_token))
  913. +                         c_token++;    /* skip "xy", "yx" or "y" */
  914. +                     c_token++;        /* skip format string */
  915. +                 }
  916.               } 
  917.               else {                            /* function to plot */
  918.                   if (parametric)            /* working on x parametric function */
  919. ***************
  920. *** 681,686
  921.                   c_token++;
  922.               } 
  923.               else {                            /* function to plot */
  924.                   dummy_func = &plot_func;
  925.                   plot_func.at = temp_at(); /* reparse function */
  926.       
  927.  
  928. --- 784,791 -----
  929.                   }
  930.               } 
  931.               else {                            /* function to plot */
  932. +                 if (parametric)            /* working on x parametric function */
  933. +                     xparam = 1 - xparam;
  934.                   dummy_func = &plot_func;
  935.                   plot_func.at = temp_at(); /* reparse function */
  936.       
  937. ***************
  938. *** 724,731
  939.                       if (autoscale_ly || polar
  940.                          || inrange(temp, ymin, ymax)) {
  941.                          this_plot->points[i].type = INRANGE;
  942. !                        if (autoscale_ly && temp < ymin) ymin = temp;
  943. !                        if (autoscale_ly && temp > ymax) ymax = temp;
  944.                       } else
  945.                        this_plot->points[i].type = OUTRANGE;
  946.                   }
  947.  
  948. --- 829,839 -----
  949.                       if (autoscale_ly || polar
  950.                          || inrange(temp, ymin, ymax)) {
  951.                          this_plot->points[i].type = INRANGE;
  952. !                     /* When xparam is 1 we are not really computing y's! */
  953. !                         if (!xparam && autoscale_ly) {
  954. !                            if (temp < ymin) ymin = temp;
  955. !                            if (temp > ymax) ymax = temp;
  956. !                         }
  957.                       } else
  958.                        this_plot->points[i].type = OUTRANGE;
  959.                   }
  960. ***************
  961. *** 789,794
  962.           y_max = ymax;
  963.       }
  964.       capture(replot_line,plot_token,c_token);    
  965.       do_plot(first_plot,plot_num,x_min,x_max,y_min,y_max);
  966.   }
  967.   
  968.  
  969. --- 897,918 -----
  970.           y_max = ymax;
  971.       }
  972.       capture(replot_line,plot_token,c_token);    
  973. + 
  974. +     if (parametric) {
  975. +     /* Now put t and x ranges back before we actually plot anything. */
  976. +         ltmp = autoscale_lx; autoscale_lx = autoscale_lt; autoscale_lt = ltmp;
  977. +         temp = xmin; xmin = tmin; tmin = temp;
  978. +         temp = xmax; xmax = tmax; tmax = temp;
  979. +         if (some_data_files && autoscale_lx) {
  980. +         /* 
  981. +             Stop any further autoscaling in this case (may be a mistake, have
  982. +               to consider what is really wanted some day in the future--jdc). 
  983. +         */
  984. +             autoscale_lx = 0;
  985. +         }
  986. +     /* Now actually fix the plot pairs to be single plots. */
  987. +         parametric_fixup (first_plot, &plot_num, &x_min, &x_max);
  988. +     }
  989.       do_plot(first_plot,plot_num,x_min,x_max,y_min,y_max);
  990.   }
  991.   
  992. ***************
  993. *** 804,809
  994.   #endif
  995.       exit(status);
  996.   }
  997.   
  998.   #ifdef MSDOS
  999.   #ifndef __TURBOC__    /* Turbo C already has sleep() */
  1000.  
  1001. --- 928,1074 -----
  1002.   #endif
  1003.       exit(status);
  1004.   }
  1005. + 
  1006. + void parametric_fixup (start_plot, plot_num, x_min, x_max)
  1007. + struct curve_points *start_plot;
  1008. + int *plot_num;
  1009. + double *x_min, *x_max;
  1010. + /*
  1011. +     The hardest part of this routine is collapsing the FUNC plot types
  1012. +    in the list (which are gauranteed to occur in (x,y) pairs while 
  1013. +     preserving the non-FUNC type plots intact.  This means we have to
  1014. +     work our way through various lists.  Examples (hand checked):
  1015. +         start_plot:F1->F2->NULL ==> F2->NULL
  1016. +         start_plot:F1->F2->F3->F4->F5->F6->NULL ==> F2->F4->F6->NULL
  1017. +         start_plot:F1->F2->D1->D2->F3->F4->D3->NULL ==> F2->D1->D2->F4->D3->NULL
  1018. +     
  1019. +     Of course, the more interesting work is to move the y values of
  1020. +     the x function to become the x values of the y function (checking
  1021. +     the mins and maxs as we go along).
  1022. + */
  1023. + {
  1024. +     struct curve_points *xp, *new_list, *yp = start_plot, *tmp, 
  1025. +             *free_list, *free_head=NULL;
  1026. +     int i, tlen, curve; 
  1027. +     char *new_title;
  1028. +     double lxmin, lxmax, temp;
  1029. + 
  1030. +     if (autoscale_lx) {
  1031. +         lxmin = VERYLARGE;
  1032. +         lxmax = -VERYLARGE;
  1033. +     } else {
  1034. +         lxmin = xmin;
  1035. +         lxmax = xmax;
  1036. +     }
  1037. + 
  1038. + /* 
  1039. +     Ok, go through all the plots and move FUNC types together.  Note: this
  1040. +     originally was written to look for a NULL next pointer, but gnuplot 
  1041. +     wants to be sticky in grabbing memory and the right number of items
  1042. +     in the plot list is controlled by the plot_num variable.
  1043. + 
  1044. +     Since gnuplot wants to do this sticky business, a free_list of 
  1045. +     curve_points is kept and then tagged onto the end of the plot list as
  1046. +     this seems more in the spirit of the original memory behavior than
  1047. +     simply freeing the memory.  I'm personally not convinced this sort
  1048. +     of concern is worth it since the time spent computing points seems
  1049. +     to dominate any garbage collecting that might be saved here...
  1050. + */
  1051. +     new_list = xp = start_plot; 
  1052. +     yp = xp->next_cp;
  1053. +    curve = 0;
  1054. +     for (; curve < *plot_num; xp = xp->next_cp,yp = yp->next_cp,curve++) {
  1055. +         if (xp->plot_type != FUNC) {
  1056. +             continue;
  1057. +         }
  1058. +     /* Here's a FUNC parametric function defined as two parts. */
  1059. +         --(*plot_num);
  1060. +     /* 
  1061. +         Go through all the points assigning the y's from xp to be the
  1062. +         x's for yp.  Check max's and min's as you go.
  1063. +     */
  1064. +         for (i = 0; i < yp->p_count; ++i) {
  1065. +         /* 
  1066. +             Throw away excess xp points, mark excess yp points as OUTRANGE.
  1067. +         */
  1068. +             if (i > xp->p_count) {
  1069. +                 yp->points[i].type == OUTRANGE;
  1070. +                 continue;
  1071. +             }
  1072. +         /* 
  1073. +             Just as we had to do when we computed y values--now check that
  1074. +             x's (computed parametrically) are in the permitted ranges as well.
  1075. +         */
  1076. +             temp = xp->points[i].y;   /* New x value for yp function. */
  1077. +             yp->points[i].x = temp;
  1078. +         /* For legitimate y values, let the x values decide if they plot. */
  1079. +             if (yp->points[i].type == INRANGE)
  1080. +                 yp->points[i].type = xp->points[i].type;  
  1081. +             if (autoscale_lx || polar
  1082. +                        || inrange(temp, lxmin, lxmax)) {
  1083. +                if (autoscale_lx && temp < lxmin) lxmin = temp;
  1084. +                 if (autoscale_lx && temp > lxmax) lxmax = temp;
  1085. +             } else
  1086. +             yp->points[i].type = OUTRANGE;  /* Due to x value. */
  1087. +         }
  1088. +    /* Ok, fix up the title to include both the xp and yp plots. */
  1089. +         if (xp->title && xp->title[0] != '\0') {
  1090. +             tlen = strlen (yp->title) + strlen (xp->title) + 3;
  1091. +           new_title = alloc ((unsigned int) tlen, "string");
  1092. +             strcpy (new_title, xp->title);  
  1093. +             strcat (new_title, ", ");       /* + 2 */
  1094. +             strcat (new_title, yp->title);  /* + 1 = + 3 */
  1095. +             free (yp->title);
  1096. +             yp->title = new_title;
  1097. +         }
  1098. +     /* Eliminate the first curve (xparam) and just use the second. */
  1099. +         if (xp == start_plot) {
  1100. +         /* Simply nip off the first element of the list. */
  1101. +             new_list = first_plot = yp;
  1102. +             xp = xp->next_cp;
  1103. +             if (yp->next_cp != NULL)
  1104. +                 yp = yp->next_cp;
  1105. +         /* Add start_plot to the free_list. */
  1106. +             if (free_head == NULL) {
  1107. +                 free_list = free_head = start_plot;
  1108. +                 free_head->next_cp = NULL;
  1109. +             } else {
  1110. +                 free_list->next_cp = start_plot;
  1111. +                 start_plot->next_cp = NULL;
  1112. +                 free_list = start_plot;
  1113. +             }
  1114. +         }
  1115. +         else {
  1116. +         /* Here, remove the xp node and replace it with the yp node. */
  1117. +            tmp = xp;
  1118. +         /* Pass over any data files that might have been in place. */
  1119. +             while (new_list->next_cp && new_list->next_cp != xp) 
  1120. +                 new_list = new_list->next_cp;
  1121. +             new_list->next_cp = yp;
  1122. +             new_list = new_list->next_cp;
  1123. +             xp = xp->next_cp;
  1124. +             if (yp->next_cp != NULL)
  1125. +                 yp = yp->next_cp;
  1126. +         /* Add tmp to the free_list. */
  1127. +             if (free_head == NULL) {
  1128. +                 free_list = free_head = tmp;
  1129. +             } else {
  1130. +                 free_list->next_cp = tmp;
  1131. +                 tmp->next_cp = NULL;
  1132. +                 free_list = tmp;
  1133. +             }
  1134. +         }
  1135. +     }
  1136. + /* Ok, stick the free list at the end of the curve_points plot list. */
  1137. +     while (new_list->next_cp != NULL)
  1138. +         new_list = new_list->next_cp;
  1139. +     new_list->next_cp = free_head;
  1140. + 
  1141. + /* Report the overall graph mins and maxs. */
  1142. +     *x_min = lxmin;
  1143. +     *x_max = lxmax;
  1144. + }
  1145. + 
  1146.   
  1147.   #ifdef MSDOS
  1148.   #ifndef __TURBOC__    /* Turbo C already has sleep() */
  1149. Common subdirectories: ./demo and ../gnuplot2.02/demo
  1150. Common subdirectories: ./docs and ../gnuplot2.02/docs
  1151. Only in .: gnuplot
  1152. diff -cr ./gnuplot_x11.c ../gnuplot2.02/gnuplot_x11.c
  1153. *** ./gnuplot_x11.c    Tue Sep 18 14:59:27 1990
  1154. --- ../gnuplot2.02/gnuplot_x11.c    Wed Nov 28 09:34:33 1990
  1155. ***************
  1156. *** 1,5
  1157.   /*-----------------------------------------------------------------------------
  1158. -  *
  1159.    *   gnuplot_x11 - X11 outboard terminal driver for gnuplot 2
  1160.    *
  1161.    *   Requires installation of companion inboard x11 driver in gnuplot/term.c
  1162.  
  1163. --- 1,4 -----
  1164.   /*-----------------------------------------------------------------------------
  1165.    *   gnuplot_x11 - X11 outboard terminal driver for gnuplot 2
  1166.    *
  1167.    *   Requires installation of companion inboard x11 driver in gnuplot/term.c
  1168. ***************
  1169. *** 8,13
  1170.    *      Chris Peterson (MIT) - original Xlib gnuplot support (and Xaw examples)
  1171.    *      Dana Chee (Bellcore)  - mods to original support for gnuplot 2.0
  1172.    *      Arthur Smith (Cornell) - graphical-label-widget idea (xplot)
  1173.    *
  1174.    *   This code is provided as is and with no warranties of any kind.
  1175.    *       
  1176.  
  1177. --- 7,13 -----
  1178.    *      Chris Peterson (MIT) - original Xlib gnuplot support (and Xaw examples)
  1179.    *      Dana Chee (Bellcore)  - mods to original support for gnuplot 2.0
  1180.    *      Arthur Smith (Cornell) - graphical-label-widget idea (xplot)
  1181. +  *      Hendri Hondorp (University of Twente, The Netherlands) - Motif xgnuplot
  1182.    *
  1183.    *   This code is provided as is and with no warranties of any kind.
  1184.    *       
  1185. ***************
  1186. *** 11,18
  1187.    *
  1188.    *   This code is provided as is and with no warranties of any kind.
  1189.    *       
  1190. !  *   Ed Kubaitis
  1191. !  *   Computing Services Office -  University of Illinois, Urbana
  1192.    *---------------------------------------------------------------------------*/
  1193.    
  1194.   #include <stdio.h>
  1195.  
  1196. --- 11,17 -----
  1197.    *
  1198.    *   This code is provided as is and with no warranties of any kind.
  1199.    *       
  1200. !  *   Ed Kubaitis - Computing Services Office -  University of Illinois, Urbana
  1201.    *---------------------------------------------------------------------------*/
  1202.    
  1203.   #include <stdio.h>
  1204. ***************
  1205. *** 16,21
  1206.    *---------------------------------------------------------------------------*/
  1207.    
  1208.   #include <stdio.h>
  1209.   #include <X11/Intrinsic.h>
  1210.   #include <X11/StringDefs.h>
  1211.   #include <Cardinals.h>      /* use -Idir for location on your system */
  1212.  
  1213. --- 15,21 -----
  1214.    *---------------------------------------------------------------------------*/
  1215.    
  1216.   #include <stdio.h>
  1217. + #include <signal.h>
  1218.   #include <X11/Intrinsic.h>
  1219.   #include <X11/StringDefs.h>
  1220.   #include <Label.h>          /* use -Idir for location on your system */
  1221. ***************
  1222. *** 18,24
  1223.   #include <stdio.h>
  1224.   #include <X11/Intrinsic.h>
  1225.   #include <X11/StringDefs.h>
  1226. - #include <Cardinals.h>      /* use -Idir for location on your system */
  1227.   #include <Label.h>          /* use -Idir for location on your system */
  1228.   
  1229.   
  1230.  
  1231. --- 18,23 -----
  1232.   #include <signal.h>
  1233.   #include <X11/Intrinsic.h>
  1234.   #include <X11/StringDefs.h>
  1235.   #include <Label.h>          /* use -Idir for location on your system */
  1236.   #ifdef MOTIF
  1237.   #include <Xm.h>             /* use -Idir for location on your system */
  1238. ***************
  1239. *** 20,25
  1240.   #include <X11/StringDefs.h>
  1241.   #include <Cardinals.h>      /* use -Idir for location on your system */
  1242.   #include <Label.h>          /* use -Idir for location on your system */
  1243.   
  1244.   
  1245.   #define Color (D>1)
  1246.  
  1247. --- 19,32 -----
  1248.   #include <X11/Intrinsic.h>
  1249.   #include <X11/StringDefs.h>
  1250.   #include <Label.h>          /* use -Idir for location on your system */
  1251. + #ifdef MOTIF
  1252. + #include <Xm.h>             /* use -Idir for location on your system */
  1253. + #define LabelWC xmLabelWidgetClass
  1254. + #define LabelBPM XmNbackgroundPixmap
  1255. + #else
  1256. + #define LabelWC labelWidgetClass
  1257. + #define LabelBPM XtNbitmap
  1258. + #endif
  1259.   
  1260.   #define Color (D>1)
  1261.   #define Ncolors 11
  1262. ***************
  1263. *** 21,27
  1264.   #include <Cardinals.h>      /* use -Idir for location on your system */
  1265.   #include <Label.h>          /* use -Idir for location on your system */
  1266.   
  1267. - 
  1268.   #define Color (D>1)
  1269.   #define Ncolors 11
  1270.   unsigned long colors[Ncolors];
  1271.  
  1272. --- 28,33 -----
  1273.   #define LabelBPM XtNbitmap
  1274.   #endif
  1275.   
  1276.   #define Color (D>1)
  1277.   #define Ncolors 11
  1278.   unsigned long colors[Ncolors];
  1279. ***************
  1280. *** 27,33
  1281.   unsigned long colors[Ncolors];
  1282.   char color_keys[Ncolors][30] =   { "text", "border", "axis", 
  1283.      "line1", "line2", "line3", "line4", "line5", "line6", "line7", "line8" };
  1284. - 
  1285.   char color_values[Ncolors][30] = { "black", "black", "black", 
  1286.      "red",  "green", "blue",  "magenta", "cyan", "sienna", "orange", "coral" };
  1287.   
  1288.  
  1289. --- 33,38 -----
  1290.   unsigned long colors[Ncolors];
  1291.   char color_keys[Ncolors][30] =   { "text", "border", "axis", 
  1292.      "line1", "line2", "line3", "line4", "line5", "line6", "line7", "line8" };
  1293.   char color_values[Ncolors][30] = { "black", "black", "black", 
  1294.      "red",  "green", "blue",  "magenta", "cyan", "sienna", "orange", "coral" };
  1295.   
  1296. ***************
  1297. *** 35,42
  1298.      {0}, {4,2,0}, {1,3,0}, {4,4,0}, {1,5,0}, {4,4,4,1,0}, {4,2,0}, {1,3,0}
  1299.      };
  1300.   
  1301. ! Widget w_top, w_label;
  1302. ! Window win;  Display *dpy;
  1303.   Pixmap pixmap;  GC gc = (GC)NULL;
  1304.   XFontStruct *font;
  1305.   unsigned long fg, bg;
  1306.  
  1307. --- 40,46 -----
  1308.      {0}, {4,2,0}, {1,3,0}, {4,4,0}, {1,5,0}, {4,4,4,1,0}, {4,2,0}, {1,3,0}
  1309.      };
  1310.   
  1311. ! Widget w_top, w_label; Window win; Display *dpy;
  1312.   Pixmap pixmap;  GC gc = (GC)NULL;
  1313.   Dimension W = 640 , H = 450;  int D;
  1314.   Arg args[5];
  1315. ***************
  1316. *** 38,45
  1317.   Widget w_top, w_label;
  1318.   Window win;  Display *dpy;
  1319.   Pixmap pixmap;  GC gc = (GC)NULL;
  1320. - XFontStruct *font;
  1321. - unsigned long fg, bg;
  1322.   Dimension W = 640 , H = 450;  int D;
  1323.   Arg args[5];
  1324.   static void gnuplot(), resize();
  1325.  
  1326. --- 42,47 -----
  1327.   
  1328.   Widget w_top, w_label; Window win; Display *dpy;
  1329.   Pixmap pixmap;  GC gc = (GC)NULL;
  1330.   Dimension W = 640 , H = 450;  int D;
  1331.   Arg args[5];
  1332.   static void gnuplot(), resize();
  1333. ***************
  1334. *** 53,58
  1335.   char buf[Nbuf];
  1336.   String *commands = NULL;
  1337.   
  1338.   /*-----------------------------------------------------------------------------
  1339.    *   main program - fire up application and callbacks
  1340.    *---------------------------------------------------------------------------*/
  1341.  
  1342. --- 55,76 -----
  1343.   char buf[Nbuf];
  1344.   String *commands = NULL;
  1345.   
  1346. + typedef struct {       /* See "X Toolkit Intrinsics Programming Manual"      */
  1347. +   XFontStruct *font;   /* Nye and O'Reilly, O'Reilly & Associates, pp. 80-85 */
  1348. +   unsigned long fg;
  1349. +   unsigned long bg;
  1350. +   } RValues, *RVptr; 
  1351. + RValues rv;
  1352. + 
  1353. + XtResource resources[] = {
  1354. +    { XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), 
  1355. +      XtOffset(RVptr, font), XtRString, "fixed" },
  1356. +    { XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel), 
  1357. +      XtOffset(RVptr, fg), XtRString, XtDefaultForeground },
  1358. +    { XtNbackground, XtCBackground, XtRPixel, sizeof(Pixel), 
  1359. +      XtOffset(RVptr, bg), XtRString, XtDefaultBackground },
  1360. +    };
  1361. + 
  1362.   /*-----------------------------------------------------------------------------
  1363.    *   main program - fire up application and callbacks
  1364.    *---------------------------------------------------------------------------*/
  1365. ***************
  1366. *** 59,64
  1367.   
  1368.   main(argc, argv) int argc; char *argv[]; {
  1369.   
  1370.      /* initialize application */
  1371.      w_top = XtInitialize("gnuplot", "Gnuplot", NULL, 0, &argc, argv);
  1372.      XtSetArg(args[0], XtNwidth, W);
  1373.  
  1374. --- 77,85 -----
  1375.   
  1376.   main(argc, argv) int argc; char *argv[]; {
  1377.   
  1378. +    signal(SIGINT, SIG_IGN);
  1379. +    signal(SIGTSTP, SIG_IGN);
  1380. + 
  1381.      /* initialize application */
  1382.      w_top = XtInitialize("gnuplot", "Gnuplot", NULL, 0, &argc, argv);
  1383.      XtSetArg(args[0], XtNwidth, W);
  1384. ***************
  1385. *** 63,69
  1386.      w_top = XtInitialize("gnuplot", "Gnuplot", NULL, 0, &argc, argv);
  1387.      XtSetArg(args[0], XtNwidth, W);
  1388.      XtSetArg(args[1], XtNheight, H);
  1389. !    w_label = XtCreateManagedWidget("", labelWidgetClass, w_top, args, TWO);
  1390.      XtRealizeWidget(w_top);
  1391.   
  1392.      /* extract needed information */
  1393.  
  1394. --- 84,90 -----
  1395.      w_top = XtInitialize("gnuplot", "Gnuplot", NULL, 0, &argc, argv);
  1396.      XtSetArg(args[0], XtNwidth, W);
  1397.      XtSetArg(args[1], XtNheight, H);
  1398. !    w_label = XtCreateManagedWidget ("", LabelWC, w_top, args, (Cardinal)2);
  1399.      XtRealizeWidget(w_top);
  1400.   
  1401.      /* extract needed information */
  1402. ***************
  1403. *** 67,73
  1404.      XtRealizeWidget(w_top);
  1405.   
  1406.      /* extract needed information */
  1407. !    dpy = XtDisplay(w_top); win = XtWindow(w_top); D = DisplayPlanes(dpy,0);
  1408.      if (Color) {
  1409.         char option[20], *value; 
  1410.         XColor used, exact;
  1411.  
  1412. --- 88,95 -----
  1413.      XtRealizeWidget(w_top);
  1414.   
  1415.      /* extract needed information */
  1416. !    dpy = XtDisplay(w_top); win = XtWindow(w_label);
  1417. !    D = DisplayPlanes(dpy,DefaultScreen(dpy));
  1418.      if (Color) {
  1419.         char option[20], *value; 
  1420.         XColor used, exact; int n;
  1421. ***************
  1422. *** 70,77
  1423.      dpy = XtDisplay(w_top); win = XtWindow(w_top); D = DisplayPlanes(dpy,0);
  1424.      if (Color) {
  1425.         char option[20], *value; 
  1426. !       XColor used, exact;
  1427. !       int n;
  1428.   
  1429.         for(n=0; n<Ncolors; n++) {
  1430.        strcpy(option, color_keys[n]);
  1431.  
  1432. --- 92,98 -----
  1433.      D = DisplayPlanes(dpy,DefaultScreen(dpy));
  1434.      if (Color) {
  1435.         char option[20], *value; 
  1436. !       XColor used, exact; int n;
  1437.   
  1438.         for(n=0; n<Ncolors; n++) {
  1439.        strcpy(option, color_keys[n]);
  1440. ***************
  1441. *** 87,99
  1442.           }
  1443.        }
  1444.         }
  1445. !    XtSetArg(args[0], XtNfont, &font);
  1446. !    XtSetArg(args[1], XtNforeground, &fg);
  1447. !    XtSetArg(args[2], XtNbackground, &bg);
  1448. !    XtSetArg(args[3], XtNwidth, &W);
  1449. !    XtSetArg(args[4], XtNheight,&H);
  1450. !    XtGetValues(w_label, args, FIVE);
  1451. !    vchar = (font->ascent + font->descent);
  1452.   
  1453.      /* add callbacks on input-from-gnuplot-on-stdin & window-resized */
  1454.      XtAddInput(0, XtInputReadMask, gnuplot, NULL);
  1455.  
  1456. --- 108,118 -----
  1457.           }
  1458.        }
  1459.         }
  1460. !    XtSetArg(args[0], XtNwidth, &W);
  1461. !    XtSetArg(args[1], XtNheight,&H);
  1462. !    XtGetValues(w_label, args, (Cardinal)2);
  1463. !    XtGetApplicationResources(w_top, &rv, resources, XtNumber(resources),NULL,0);
  1464. !    vchar = (rv.font->ascent + rv.font->descent);
  1465.   
  1466.      /* add callbacks on input-from-gnuplot-on-stdin & window-resized */
  1467.      XtAddInput(0, XtInputReadMask, gnuplot, NULL);
  1468. ***************
  1469. *** 113,121
  1470.      /* set scaling factor between internal driver & window geometry */
  1471.      xscale = (double)W / 4096.;  yscale = (double)H / 4096.;  
  1472.   
  1473. -    /* return old pixmap  & GC, if any */
  1474. -    if (gc) { XFreeGC(dpy, gc); XFreePixmap(dpy, pixmap); }
  1475. - 
  1476.      /* create new pixmap & GC */
  1477.      pixmap = XCreatePixmap(dpy, DefaultRootWindow(dpy), W, H, D);
  1478.      gc = XCreateGC(dpy, pixmap, 0, NULL);
  1479.  
  1480. --- 132,137 -----
  1481.      /* set scaling factor between internal driver & window geometry */
  1482.      xscale = (double)W / 4096.;  yscale = (double)H / 4096.;  
  1483.   
  1484.      /* create new pixmap & GC */
  1485.      if (gc) { XFreeGC(dpy, gc); XFreePixmap(dpy, pixmap); }
  1486.      pixmap = XCreatePixmap(dpy, RootWindow(dpy,DefaultScreen(dpy)), W, H, D);
  1487. ***************
  1488. *** 117,123
  1489.      if (gc) { XFreeGC(dpy, gc); XFreePixmap(dpy, pixmap); }
  1490.   
  1491.      /* create new pixmap & GC */
  1492. !    pixmap = XCreatePixmap(dpy, DefaultRootWindow(dpy), W, H, D);
  1493.      gc = XCreateGC(dpy, pixmap, 0, NULL);
  1494.      XSetFont(dpy, gc, font->fid);
  1495.   
  1496.  
  1497. --- 133,140 -----
  1498.      xscale = (double)W / 4096.;  yscale = (double)H / 4096.;  
  1499.   
  1500.      /* create new pixmap & GC */
  1501. !    if (gc) { XFreeGC(dpy, gc); XFreePixmap(dpy, pixmap); }
  1502. !    pixmap = XCreatePixmap(dpy, RootWindow(dpy,DefaultScreen(dpy)), W, H, D);
  1503.      gc = XCreateGC(dpy, pixmap, 0, NULL);
  1504.      XSetFont(dpy, gc, rv.font->fid);
  1505.   
  1506. ***************
  1507. *** 119,125
  1508.      /* create new pixmap & GC */
  1509.      pixmap = XCreatePixmap(dpy, DefaultRootWindow(dpy), W, H, D);
  1510.      gc = XCreateGC(dpy, pixmap, 0, NULL);
  1511. !    XSetFont(dpy, gc, font->fid);
  1512.   
  1513.      /* connect new pixmap to label widget */
  1514.      XtSetArg(args[0], XtNbitmap, pixmap);
  1515.  
  1516. --- 136,142 -----
  1517.      if (gc) { XFreeGC(dpy, gc); XFreePixmap(dpy, pixmap); }
  1518.      pixmap = XCreatePixmap(dpy, RootWindow(dpy,DefaultScreen(dpy)), W, H, D);
  1519.      gc = XCreateGC(dpy, pixmap, 0, NULL);
  1520. !    XSetFont(dpy, gc, rv.font->fid);
  1521.   
  1522.      /* erase pixmap */
  1523.   #ifndef MOTIF
  1524. ***************
  1525. *** 121,130
  1526.      gc = XCreateGC(dpy, pixmap, 0, NULL);
  1527.      XSetFont(dpy, gc, font->fid);
  1528.   
  1529. -    /* connect new pixmap to label widget */
  1530. -    XtSetArg(args[0], XtNbitmap, pixmap);
  1531. -    XtSetValues(w_label, args, ONE);
  1532. - 
  1533.      /* erase pixmap */
  1534.      if (Color) {
  1535.         XSetForeground(dpy, gc, bg);
  1536.  
  1537. --- 138,143 -----
  1538.      gc = XCreateGC(dpy, pixmap, 0, NULL);
  1539.      XSetFont(dpy, gc, rv.font->fid);
  1540.   
  1541.      /* erase pixmap */
  1542.   #ifndef MOTIF
  1543.      if (Color) { /* Athena needs different erase for color and mono */
  1544. ***************
  1545. *** 126,133
  1546.      XtSetValues(w_label, args, ONE);
  1547.   
  1548.      /* erase pixmap */
  1549. !    if (Color) {
  1550. !       XSetForeground(dpy, gc, bg);
  1551.         XFillRectangle(dpy, pixmap, gc, 0, 0, W, H);
  1552.         XSetForeground(dpy, gc, fg);
  1553.         XSetBackground(dpy, gc, bg);
  1554.  
  1555. --- 139,148 -----
  1556.      XSetFont(dpy, gc, rv.font->fid);
  1557.   
  1558.      /* erase pixmap */
  1559. ! #ifndef MOTIF
  1560. !    if (Color) { /* Athena needs different erase for color and mono */
  1561. ! #endif
  1562. !       XSetForeground(dpy, gc, rv.bg);
  1563.         XFillRectangle(dpy, pixmap, gc, 0, 0, W, H);
  1564.         XSetForeground(dpy, gc, rv.fg);
  1565.         XSetBackground(dpy, gc, rv.bg);
  1566. ***************
  1567. *** 129,136
  1568.      if (Color) {
  1569.         XSetForeground(dpy, gc, bg);
  1570.         XFillRectangle(dpy, pixmap, gc, 0, 0, W, H);
  1571. !       XSetForeground(dpy, gc, fg);
  1572. !       XSetBackground(dpy, gc, bg);
  1573.         }
  1574.      else {
  1575.         XSetFunction(dpy, gc, GXxor);
  1576.  
  1577. --- 144,152 -----
  1578.   #endif
  1579.         XSetForeground(dpy, gc, rv.bg);
  1580.         XFillRectangle(dpy, pixmap, gc, 0, 0, W, H);
  1581. !       XSetForeground(dpy, gc, rv.fg);
  1582. !       XSetBackground(dpy, gc, rv.bg);
  1583. ! #ifndef MOTIF
  1584.         }
  1585.      else {  
  1586.         XSetFunction(dpy, gc, GXxor);
  1587. ***************
  1588. *** 132,138
  1589.         XSetForeground(dpy, gc, fg);
  1590.         XSetBackground(dpy, gc, bg);
  1591.         }
  1592. !    else {
  1593.         XSetFunction(dpy, gc, GXxor);
  1594.         XCopyArea(dpy, pixmap, pixmap, gc, 0, 0, W, H, 0, 0);
  1595.         XSetFunction(dpy, gc, GXcopyInverted);
  1596.  
  1597. --- 148,154 -----
  1598.         XSetBackground(dpy, gc, rv.bg);
  1599.   #ifndef MOTIF
  1600.         }
  1601. !    else {  
  1602.         XSetFunction(dpy, gc, GXxor);
  1603.         XCopyArea(dpy, pixmap, pixmap, gc, 0, 0, W, H, 0, 0);
  1604.         XSetFunction(dpy, gc, GXcopyInverted);
  1605. ***************
  1606. *** 137,142
  1607.         XCopyArea(dpy, pixmap, pixmap, gc, 0, 0, W, H, 0, 0);
  1608.         XSetFunction(dpy, gc, GXcopyInverted);
  1609.         }
  1610.   
  1611.      /* loop over accumulated commands from inboard driver */
  1612.      for (n=0; n<nc; n++) {
  1613.  
  1614. --- 153,159 -----
  1615.         XCopyArea(dpy, pixmap, pixmap, gc, 0, 0, W, H, 0, 0);
  1616.         XSetFunction(dpy, gc, GXcopyInverted);
  1617.         }
  1618. + #endif
  1619.   
  1620.      /* connect new pixmap to label widget */
  1621.      XtSetArg(args[0], LabelBPM, pixmap);
  1622. ***************
  1623. *** 138,143
  1624.         XSetFunction(dpy, gc, GXcopyInverted);
  1625.         }
  1626.   
  1627.      /* loop over accumulated commands from inboard driver */
  1628.      for (n=0; n<nc; n++) {
  1629.         buf = commands[n];
  1630.  
  1631. --- 155,164 -----
  1632.         }
  1633.   #endif
  1634.   
  1635. +    /* connect new pixmap to label widget */
  1636. +    XtSetArg(args[0], LabelBPM, pixmap);
  1637. +    XtSetValues(w_label, args, (Cardinal)1);
  1638. + 
  1639.      /* loop over accumulated commands from inboard driver */
  1640.      for (n=0; n<nc; n++) {
  1641.         buf = commands[n];
  1642. ***************
  1643. *** 157,163
  1644.         else if (*buf == 'T') { 
  1645.        sscanf(buf, "T%4d%4d", &x, &y);  
  1646.        str = buf + 9; sl = strlen(str) - 1;
  1647. !      sw = XTextWidth(font, str, sl);
  1648.        switch(jmode) {
  1649.           case LEFT:   sw = 0;     break;
  1650.           case CENTRE: sw = -sw/2; break;
  1651.  
  1652. --- 178,184 -----
  1653.         else if (*buf == 'T') { 
  1654.        sscanf(buf, "T%4d%4d", &x, &y);  
  1655.        str = buf + 9; sl = strlen(str) - 1;
  1656. !      sw = XTextWidth(rv.font, str, sl);
  1657.        switch(jmode) {
  1658.           case LEFT:   sw = 0;     break;
  1659.           case CENTRE: sw = -sw/2; break;
  1660. ***************
  1661. *** 205,210
  1662.   
  1663.   /*-----------------------------------------------------------------------------
  1664.    *   gnuplot - Xt callback on input from gnuplot inboard X11 driver
  1665.    *---------------------------------------------------------------------------*/
  1666.   
  1667.   static void
  1668.  
  1669. --- 226,232 -----
  1670.   
  1671.   /*-----------------------------------------------------------------------------
  1672.    *   gnuplot - Xt callback on input from gnuplot inboard X11 driver
  1673. +  *   resize - Xt callback when window resized
  1674.    *---------------------------------------------------------------------------*/
  1675.   
  1676.   static void
  1677. ***************
  1678. *** 213,220
  1679.      while (fgets(buf, Nbuf, stdin)) {
  1680.        if (*buf == 'G') {                           /* enter graphics mode */
  1681.        if (commands) {
  1682. !         int n;
  1683. !         for (n=0; n<nc; n++) XtFree(commands[n]);
  1684.           XtFree(commands);
  1685.           }
  1686.        commands = NULL; nc = 0;
  1687.  
  1688. --- 235,241 -----
  1689.      while (fgets(buf, Nbuf, stdin)) {
  1690.        if (*buf == 'G') {                           /* enter graphics mode */
  1691.        if (commands) {
  1692. !         int n; for (n=0; n<nc; n++) XtFree(commands[n]);
  1693.           XtFree(commands);
  1694.           }
  1695.        commands = NULL; nc = 0;
  1696. ***************
  1697. *** 228,237
  1698.         }
  1699.      if (feof(stdin) || ferror(stdin)) exit(0);
  1700.      }
  1701. - 
  1702. - /*-----------------------------------------------------------------------------
  1703. -  *   resize - Xt callback when window resized
  1704. -  *---------------------------------------------------------------------------*/
  1705.   
  1706.   static void
  1707.   resize(w, cd, e) Widget w; char *cd; XConfigureEvent *e; {
  1708.  
  1709. --- 249,254 -----
  1710.         }
  1711.      if (feof(stdin) || ferror(stdin)) exit(0);
  1712.      }
  1713.   
  1714.   static void
  1715.   resize(w, cd, e) Widget w; char *cd; XConfigureEvent *e; {
  1716.