home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume28 / jgraph / patch07.0 < prev    next >
Encoding:
Text File  |  1992-02-02  |  54.2 KB  |  1,909 lines
  1. Newsgroups: comp.sources.misc
  2. From: jsp@Princeton.EDU (James Plank)
  3. Subject:  v28i006:  jgraph - A filter for plotting postscript graphs, Patch07.0
  4. Message-ID: <1992Feb2.032802.24980@sparky.imd.sterling.com>
  5. X-Md4-Signature: f251e9b0a816e62bec19961e454241f4
  6. Date: Sun, 2 Feb 1992 03:28:02 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: jsp@Princeton.EDU (James Plank)
  10. Posting-number: Volume 28, Issue 6
  11. Archive-name: jgraph/patch07.0
  12. Environment: UNIX, VMS, postscript
  13. Patch-To: jgraph: Volume 16, Issue 20
  14.  
  15. Jgraph Patch 7.0: Thu Jan 23 11:19:37 EST 1992
  16.  
  17. This patch adds a few things and fixes a few things.  
  18.  
  19. First, it uses a different algorithm for calculating bounding boxes, 
  20. so that now it attempts to get all of the axes (including the labels)
  21. and all of the legend into the bounding box.  The X and Y commands are
  22. a bit different as well -- they should work more consistently now -- 
  23. read the man page for the changes.  This means that graphs might look
  24. different in LaTeX or other systems.  Hopefully they'll work more
  25. consistently and correctly.
  26.  
  27. Second, arrows going into circluar marks now only go to the edge of the
  28. circle and not to the center of the mark.  I'd like to fix this for all
  29. marks, but I don't really have the time.  Maybe later if there's interest.
  30.  
  31. The following commands have been added:
  32.  
  33. bezier/nobezier (in curves) -- lets you plot bezier curves.  See the 
  34.   man page.
  35. copygraph -- Copies the last graph -- this should take the place of
  36.   inherit_axes.  Also, inherit_axes/copygraph have been updated so
  37.   they'll work across multiple pages.
  38. copycurve -- Makes a new curve and copies all the attributes from the
  39.    previous curve.
  40. copystring -- Same thing only for strings.
  41. newline -- An abbreviation for "newcurve marktype none linetype solid"
  42. text as a marktype.  Now you can plot labels like points.  See the
  43.   man page.
  44.  
  45. I believe that's it.  As always, if you find bugs, please send me email.
  46.  
  47. I'm including the README for jgraph below for those not familiar with it,
  48. and the patch from version 6.2:
  49.  
  50.  
  51. $Revision: 7.0 $
  52.  
  53. Jgraph takes the description of a graph or graphs in the standard
  54. input, and produces a postscript file on the standard output.  Jgraph
  55. is ideal for plotting any mixture of scatter point graphs, line
  56. graphs, and/or bar graphs, and embedding the output into LaTeX, or
  57. any other text processing system which can read postscript.
  58.  
  59. The graph description language is simple enough to get nice looking
  60. graphs with a minimum of effort, yet powerful enough to give the user
  61. the flexibility to tailor the appearance of the graph to his or her
  62. individual preferences.  This includes plotting multiple graphs and
  63. laying them out separately on the page (or pages). 
  64.  
  65. The program is written in C, and shouldn't take anything too fancy
  66. or machine-dependent.  It has been tested on DECstations, 
  67. sun3's, and sparc's (and is being used on many other types
  68. of machines).
  69.  
  70. There is a makefile, a man page (in jgraph.1), source code, and 
  71. example graphs.
  72.  
  73. Jgraph is available via anonymous ftp to princeton.edu, in the
  74. file jgraph.Z.  This file is a compressed shell bundle file.
  75.  
  76. There is also a mailing list in which I inform users directly 
  77. about bug fixes.  This is for those who don't read comp.sources.misc,
  78. or those who would like to hear about minor bug fixes which I
  79. haven't posted as a patch to comp.sources.misc.
  80.  
  81. Please send me comments and/or bug reports.
  82.  
  83. Author: Jim Plank
  84. Email:  jsp@princeton.edu
  85. USmail:    Department of Computer Science
  86.     Princeton University
  87.     35 Olden St.
  88.     Princeton, NJ 08544-2087
  89.  
  90.  
  91. Here's the patch from version 6.2
  92.  
  93. *** ../work//README    Thu Jan 23 11:14:16 1992
  94. --- README    Thu Jan 23 11:12:33 1992
  95. ***************
  96. *** 1,4 ****
  97. ! $Revision: 6.2 $
  98.   
  99.   Jgraph takes the description of a graph or graphs in the standard
  100.   input, and produces a postscript file on the standard output.  Jgraph
  101. --- 1,4 ----
  102. ! $Revision: 7.0 $
  103.   
  104.   Jgraph takes the description of a graph or graphs in the standard
  105.   input, and produces a postscript file on the standard output.  Jgraph
  106. *** ../work//draw.c    Thu Jan 23 11:14:20 1992
  107. --- draw.c    Thu Jan 23 11:12:27 1992
  108. ***************
  109. *** 1,7 ****
  110.   /* 
  111.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/draw.c,v $
  112. !  * $Revision: 6.2 $
  113. !  * $Date: 91/11/01 11:46:32 $
  114.    * $Author: jsp $
  115.    */
  116.   
  117. --- 1,7 ----
  118.   /* 
  119.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/draw.c,v $
  120. !  * $Revision: 7.0 $
  121. !  * $Date: 92/01/23 11:09:46 $
  122.    * $Author: jsp $
  123.    */
  124.   
  125. ***************
  126. *** 130,136 ****
  127.   Graph g;
  128.   {
  129.     Point p;
  130. !   int i;
  131.      float this_x, this_y, last_x, last_y;
  132.   
  133.     printf("gsave %f setgray\n", c->gray);
  134. --- 130,136 ----
  135.   Graph g;
  136.   {
  137.     Point p;
  138. !   int i, j;
  139.      float this_x, this_y, last_x, last_y;
  140.   
  141.     printf("gsave %f setgray\n", c->gray);
  142. ***************
  143. *** 137,174 ****
  144.     if (c->clip) set_clip(g);
  145.     comment("Drawing Curve");
  146.     if (c->linetype != '0') {
  147. !     i = 0;
  148. !     for (p = first(c->pts);
  149. !          p != nil(c->pts);
  150. !          p = next(p)) {
  151. !       if (i == 0) {
  152. !         start_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis), c);
  153. !       } else {
  154. !         cont_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis));
  155. !       } 
  156. !       if (i == 100) {
  157. !         end_line();
  158. !         p = prev(p);
  159. !         i = 0;
  160. !       } else i++;
  161.       }
  162. -     if (i != 0) end_line();
  163.     }
  164.     comment("Drawing Curve points");
  165.     for (p = first(c->pts);
  166.          p != nil(c->pts);
  167.          p = next(p)) {
  168.       this_x = ctop(p->x, g->x_axis);
  169.       this_y = ctop(p->y, g->y_axis);
  170. !     draw_mark(this_x, this_y, c, g);
  171.       if (p != first(c->pts)) {
  172. !       if (c->rarrows) 
  173. !         draw_arrow(this_x, this_y, last_x, last_y, c);
  174. !       if (c->larrows) 
  175. !         draw_arrow(last_x, last_y, this_x, this_y, c);
  176.       }
  177.       last_x = this_x;  
  178.       last_y = this_y;  
  179.     }
  180.     printf("     grestore\n");
  181.   }
  182. --- 137,203 ----
  183.     if (c->clip) set_clip(g);
  184.     comment("Drawing Curve");
  185.     if (c->linetype != '0') {
  186. !     if (c->bezier) {
  187. !       i = 0;
  188. !       j = 0;
  189. !       for (p = first(c->pts); p != nil(c->pts); p = next(p)) {
  190. !         if (j == 0 && i == 0) {
  191. !           start_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis), c);
  192. !           j++;
  193. !         } else if (i != 0) {
  194. !           bezier_control(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis));
  195. !         } else {
  196. !           bezier_end(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis));
  197. !           j++;
  198. !         }
  199. !         if (j == 30 && i == 0) {
  200. !           end_line();
  201. !           p = prev(p);
  202. !           j = 0;
  203. !           i = 0;
  204. !         } else i = (i + 1) % 3;
  205. !       }
  206. !       if (j != 0) end_line();
  207. !     } else {
  208. !       i = 0;
  209. !       for (p = first(c->pts);
  210. !            p != nil(c->pts);
  211. !            p = next(p)) {
  212. !         if (i == 0) {
  213. !           start_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis), c);
  214. !         } else {
  215. !           cont_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis));
  216. !         } 
  217. !         if (i == 100) {
  218. !           end_line();
  219. !           p = prev(p);
  220. !           i = 0;
  221. !         } else i++;
  222. !       }
  223. !       if (i != 0) end_line();
  224.       }
  225.     }
  226.     comment("Drawing Curve points");
  227. +   i = 0;
  228.     for (p = first(c->pts);
  229.          p != nil(c->pts);
  230.          p = next(p)) {
  231.       this_x = ctop(p->x, g->x_axis);
  232.       this_y = ctop(p->y, g->y_axis);
  233. !     if (!c->bezier || i == 0) draw_mark(this_x, this_y, c, g);
  234.       if (p != first(c->pts)) {
  235. !       if (c->rarrows) {
  236. !         if (!c->bezier || i == 0) 
  237. !           draw_arrow(this_x, this_y, last_x, last_y, c);
  238. !       }
  239. !       if (c->larrows) {
  240. !         if (!c->bezier || i == 1) 
  241. !           draw_arrow(last_x, last_y, this_x, this_y, c);
  242. !       }
  243.       }
  244.       last_x = this_x;  
  245.       last_y = this_y;  
  246. +     i = (i + 1) % 3;
  247.     }
  248.     printf("     grestore\n");
  249.   }
  250. ***************
  251. *** 233,238 ****
  252. --- 262,273 ----
  253.                 cont_poly(g->y_axis->draw_at, y+ms1);
  254.                 end_poly(c->fill);
  255.                 break;
  256. +     case 'l': c->lmark->x += x;
  257. +               c->lmark->y += y;
  258. +               draw_label(c->lmark);
  259. +               c->lmark->x -= x;
  260. +               c->lmark->y -= y;
  261. +               break;
  262.       default: error_header(); 
  263.                fprintf(stderr, "Unknown mark: %c\n", c->marktype);
  264.                break;
  265. ***************
  266. *** 244,253 ****
  267. --- 279,309 ----
  268.   Curve c;
  269.   {
  270.     float dx, dy;
  271. +   float ms1, ms0;
  272. +   float theta, ct, st;
  273.     
  274. +   
  275. +   if (c->marktype == 'o') {
  276. +     dx = x1 - x2;
  277. +     dy = y1 - y2;
  278. +     if (dx == 0.0 && dy == 0.0) return;
  279. + 
  280. +     ms0 = c->marksize[0] / 2.0;
  281. +     if (dx == 0.0) theta = asin(1.0); else theta = atan(dy/dx);
  282. +     if (theta < 0.0) theta = -theta;
  283. +     ct = cos(theta)*ms0;
  284. +     st = sin(theta)*ms0;
  285. +     x1 = x1 + ct*(dx > 0.0 ? -1.0 : 1.0);
  286. +     y1 = y1 + st*(dy > 0.0 ? -1.0 : 1.0);
  287. + 
  288. +     if ( ((x1 - x2 > 0) != (dx > 0)) || 
  289. +          ((y1 - y2 > 0) != (dy > 0)) ) return;
  290. +   }
  291. + 
  292.     dx = x1 - x2;
  293.     dy = y1 - y2;
  294.     if (dx == 0.0 && dy == 0.0) return;
  295. + 
  296.     printf("gsave %f %f translate %f %f atan rotate\n", x1, y1, dy, dx);
  297.     start_poly(0.0, 0.0);
  298.     cont_poly(-(c->asize[0]), (c->asize[1]));
  299. ***************
  300. *** 262,267 ****
  301. --- 318,324 ----
  302.     Curve c;
  303.     Legend l;
  304.     float x, y;
  305. +   char tmpmktype;
  306.   
  307.     l = g->legend;
  308.     comment("Drawing legend");
  309. ***************
  310. *** 277,284 ****
  311. --- 334,344 ----
  312.             cont_line(x+l->linelength, y);
  313.             end_line();
  314.           }
  315. +         tmpmktype = c->marktype;
  316. +         c->marktype = 'n';
  317.           if (c->larrows) draw_arrow(x, y, x+l->linelength, y, c);
  318.           if (c->rarrows) draw_arrow(x+l->linelength, y, x, y, c);
  319. +         c->marktype = tmpmktype;
  320.           x = c->l->x - l->midspace - l->linelength / 2.0;
  321.         } else x = c->l->x - l->midspace;
  322.         if (c->marktype == 'X' || c->marktype == 'Y') {
  323. ***************
  324. *** 351,357 ****
  325.   {
  326.     printf("%%!PS-Adobe-2.0 EPSF-1.2\n");
  327.     printf("%%%%Pages: 0\n");
  328. !   printf("%%%%BoundingBox: %f %f %f %f\n", gs->bb[0], gs->bb[1], gs->bb[2], gs->bb[3]);
  329.     printf("%%%%EndComments\n");
  330.     printf("/$F2psDict 32 dict def $F2psDict begin\t$F2psDict /mtrx matrix put\n");
  331.     printf("/DrawEllipse {\t/endangle exch def\t/startangle exch def");
  332. --- 411,418 ----
  333.   {
  334.     printf("%%!PS-Adobe-2.0 EPSF-1.2\n");
  335.     printf("%%%%Pages: 0\n");
  336. !   printf("%%%%BoundingBox: %f %f %f %f\n", gs->bb[0], gs->bb[1], 
  337. !           gs->bb[2], gs->bb[3]);
  338.     printf("%%%%EndComments\n");
  339.     printf("/$F2psDict 32 dict def $F2psDict begin\t$F2psDict /mtrx matrix put\n");
  340.     printf("/DrawEllipse {\t/endangle exch def\t/startangle exch def");
  341. ***************
  342. *** 367,373 ****
  343.     if (pp)
  344.       printf("%f %f translate\n",
  345.         ((8.5 * FCPI) - (gs->bb[2] - gs->bb[0])) / 2.0,     
  346. !       (gs->bb[3] > (3*FCPI)) ? ((11*FCPI) - gs->bb[3]) / 2 : (3.5*FCPI));
  347.     printf("1 setlinecap 1 setlinejoin\n");
  348.     printf("0.700 setlinewidth\n");
  349.   }
  350. --- 428,434 ----
  351.     if (pp)
  352.       printf("%f %f translate\n",
  353.         ((8.5 * FCPI) - (gs->bb[2] - gs->bb[0])) / 2.0,     
  354. !       (gs->bb[3] > (3*FCPI)) ? ((11*FCPI) - gs->bb[3]) / 2 : (5.5*FCPI));
  355.     printf("1 setlinecap 1 setlinejoin\n");
  356.     printf("0.700 setlinewidth\n");
  357.   }
  358. *** ../work//edit.c    Thu Jan 23 11:14:21 1992
  359. --- edit.c    Thu Jan 23 11:12:27 1992
  360. ***************
  361. *** 1,7 ****
  362.   /* 
  363.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/edit.c,v $
  364. !  * $Revision: 6.2 $
  365. !  * $Date: 91/11/01 11:46:33 $
  366.    * $Author: jsp $
  367.    */
  368.   
  369. --- 1,7 ----
  370.   /* 
  371.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/edit.c,v $
  372. !  * $Revision: 7.0 $
  373. !  * $Date: 92/01/23 11:09:47 $
  374.    * $Author: jsp $
  375.    */
  376.   
  377. ***************
  378. *** 55,61 ****
  379.     }
  380.   }
  381.   
  382. ! copy_label(l1, l2) /* Copies label l1 to l2 */
  383.   Label l1, l2;
  384.   {
  385.     l1->label = l2->label;
  386. --- 55,100 ----
  387.     }
  388.   }
  389.   
  390. ! copy_curve(c1, c2) /* Copies curve c2 to c1 */
  391. ! Curve c1, c2;
  392. ! {
  393. !   Flist f, newf;
  394. !   Point p, newp;
  395. ! 
  396. !   copy_label(c1->l, c2->l);
  397. !   copy_label(c1->lmark, c2->lmark);
  398. !   c1->l->label = CNULL;
  399. !   c1->clip = c2->clip;
  400. !   c1->gray = c2->gray;
  401. !   for (f = first(c2->gen_linetype); 
  402. !        f != nil(c2->gen_linetype); 
  403. !        f = next(f)) {
  404. !     newf = (Flist) get_node(c1->gen_linetype);
  405. !     newf->f = f->f;
  406. !     insert(newf, c1->gen_linetype);
  407. !   }
  408. !   c1->marktype = c2->marktype;
  409. !   c1->linetype = c2->linetype;
  410. !   c1->linethick = c2->linethick;
  411. !   c1->marksize[0] = c2->marksize[0];
  412. !   c1->marksize[1] = c2->marksize[1];
  413. !   for (p = first(c2->general_marks); 
  414. !        p != nil(c2->general_marks); 
  415. !        p = next(p)) {
  416. !     newp = (Point) get_node(c1->general_marks);
  417. !     newp->x = p->x;
  418. !     newp->y = p->y;
  419. !     insert(newp, c1->general_marks);
  420. !   }
  421. !   c1->fill = c2->fill;
  422. !   c1->rarrows = c2->rarrows;
  423. !   c1->larrows = c2->larrows;
  424. !   c1->asize[0] = c2->asize[0];
  425. !   c1->asize[1] = c2->asize[1];
  426. !   c1->bezier = c2->bezier;
  427. ! }
  428. ! 
  429. ! copy_label(l1, l2) /* Copies label l2 to l1 */
  430.   Label l1, l2;
  431.   {
  432.     l1->label = l2->label;
  433. ***************
  434. *** 100,122 ****
  435.     a1->is_x = a2->is_x;
  436.   }
  437.   
  438. ! inherit_axes(g, gs)
  439.   Graph g;
  440.   Graphs gs;
  441.   {
  442. !   if (prev(g) == nil(gs->g)) {
  443. !     error_header(); 
  444. !     fprintf(stderr, "First graph cannot inherit axes\n");
  445. !     exit(1);
  446.     }
  447. !   copy_axis(g->x_axis, prev(g)->x_axis);
  448. !   copy_axis(g->y_axis, prev(g)->y_axis);
  449. !   g->x_translate = prev(g)->x_translate;
  450. !   g->y_translate = prev(g)->y_translate;
  451. !   g->clip = prev(g)->clip;
  452. !   g->border = prev(g)->border;
  453.   }
  454.   
  455.   edit_curve(c, g)
  456.   Curve c;
  457.   Graph g;
  458. --- 139,239 ----
  459.     a1->is_x = a2->is_x;
  460.   }
  461.   
  462. ! Curve do_copy_curve(g, gs, all_gs)
  463.   Graph g;
  464.   Graphs gs;
  465. + Graphs all_gs;
  466.   {
  467. !   Curve lastc, newc;
  468. !   Graph oldg;
  469. !   Graphs oldgs;
  470. ! 
  471. !   oldg = g;
  472. !   oldgs = gs;
  473. ! 
  474. !   while(gs != nil(all_gs)) {
  475. !     if (gs != oldgs) g = last(gs->g);
  476. !     while(g != nil(gs->g)) {
  477. !       if (first(g->curves) == nil(g->curves)) g = prev(g);
  478. !       else {
  479. !         lastc = last(g->curves);
  480. !         if (first(oldg->curves) == nil(oldg->curves))
  481. !           newc = new_curve(oldg->curves, 0);
  482. !         else newc = new_curve(oldg->curves, last(oldg->curves)->num + 1);
  483. !         copy_curve(newc, lastc);
  484. !         return newc;
  485. !       }
  486. !     }
  487. !     gs = prev(gs);
  488.     }
  489. !   
  490. !   error_header(); 
  491. !   fprintf(stderr, "Cannot perform copycurve on first curve\n");
  492. !   exit(1);
  493. !   return newc; /* To shut lint up */
  494.   }
  495.   
  496. + Label do_copy_string(g, gs, all_gs)
  497. + Graph g;
  498. + Graphs gs;
  499. + Graphs all_gs;
  500. + {
  501. +   String lastl, newl;
  502. +   Graph oldg;
  503. +   Graphs oldgs;
  504. + 
  505. +   oldg = g;
  506. +   oldgs = gs;
  507. + 
  508. +   while(gs != nil(all_gs)) {
  509. +     if (gs != oldgs) g = last(gs->g);
  510. +     while(g != nil(gs->g)) {
  511. +       if (first(g->strings) == nil(g->strings)) g = prev(g);
  512. +       else {
  513. +         lastl = last(g->strings);
  514. +         if (first(oldg->strings) == nil(oldg->strings))
  515. +           newl = new_string(oldg->strings, 0);
  516. +         else newl = new_string(oldg->strings, last(oldg->strings)->num + 1);
  517. +         copy_label(newl->s, lastl->s);
  518. +         return newl->s;
  519. +       }
  520. +     }
  521. +     gs = prev(gs);
  522. +   }
  523. +   
  524. +   error_header(); 
  525. +   fprintf(stderr, "Cannot perform copystring on first curve\n");
  526. +   exit(1);
  527. +   return newl->s; /* To shut lint up */
  528. + }
  529. + 
  530. + inherit_axes(g, gs, all_gs)
  531. + Graph g;
  532. + Graphs gs;
  533. + Graphs all_gs;
  534. + {
  535. +   Graph lastg;
  536. + 
  537. +   lastg = prev(g);
  538. +   while(lastg == nil(gs->g)) {
  539. +     if (prev(gs) == nil(all_gs)) {
  540. +       error_header(); 
  541. +       fprintf(stderr, "First graph cannot inherit axes\n");
  542. +       exit(1);
  543. +     } else {
  544. +       gs = prev(gs);
  545. +       lastg = last(gs->g);
  546. +     }
  547. +   }
  548. + 
  549. +   copy_axis(g->x_axis, lastg->x_axis);
  550. +   copy_axis(g->y_axis, lastg->y_axis);
  551. +   g->x_translate = lastg->x_translate;
  552. +   g->y_translate = lastg->y_translate;
  553. +   g->clip = lastg->clip;
  554. +   g->border = lastg->border;
  555. + }
  556. + 
  557.   edit_curve(c, g)
  558.   Curve c;
  559.   Graph g;
  560. ***************
  561. *** 151,156 ****
  562. --- 268,274 ----
  563.           }
  564.           /*insert(p, c->pts, 0); insert only takes 2 arguments -hdd */
  565.       insert(p, c->pts);
  566. +         c->npts++;
  567.         }
  568.         rejecttoken();
  569.       } else if (strcmp(inp_str, "label") == 0) {
  570. ***************
  571. *** 183,192 ****
  572.         if (i == NMARKTYPES) {
  573.           error_header(); fprintf(stderr, "Bad mark: %s\n", inp_str);
  574.           fprintf(stderr, "             Valid marks are:");
  575. !         for (i = 0; i < NMARKTYPES; i++) fprintf(stderr, " %s", MARKTYPESTRS[i]);
  576.           fprintf(stderr, "\n");
  577.           exit(1);
  578. !       } else c->marktype = MARKTYPES[i];
  579.       } else if (strcmp(inp_str, "glines") == 0) {
  580.         while (getfloat(&f)) {
  581.           fl = (Flist) get_node (c->gen_linetype);
  582. --- 301,315 ----
  583.         if (i == NMARKTYPES) {
  584.           error_header(); fprintf(stderr, "Bad mark: %s\n", inp_str);
  585.           fprintf(stderr, "             Valid marks are:");
  586. !         for (i = 0; i < NMARKTYPES; i++) {
  587. !           fprintf(stderr, " %s", MARKTYPESTRS[i]);
  588. !         }
  589.           fprintf(stderr, "\n");
  590.           exit(1);
  591. !       } else {
  592. !         c->marktype = MARKTYPES[i];
  593. !         if (c->marktype == 'l') edit_label(c->lmark);
  594. !       }
  595.       } else if (strcmp(inp_str, "glines") == 0) {
  596.         while (getfloat(&f)) {
  597.           fl = (Flist) get_node (c->gen_linetype);
  598. ***************
  599. *** 225,230 ****
  600. --- 348,357 ----
  601.         c->rarrows = 1;
  602.       } else if (strcmp(inp_str, "norarrows") == 0) {
  603.         c->rarrows = 0;
  604. +     } else if (strcmp(inp_str, "bezier") == 0) {
  605. +       c->bezier = 1;
  606. +     } else if (strcmp(inp_str, "nobezier") == 0) {
  607. +       c->bezier = 0;
  608.       } else if (strcmp(inp_str, "asize") == 0) {
  609.         if (!getfloat(&f)) rejecttoken(); 
  610.         else {
  611. ***************
  612. *** 364,369 ****
  613. --- 491,500 ----
  614.         a->draw_hash_labels = 0;
  615.       } else if (strcmp(inp_str, "draw_hash_labels") == 0) {
  616.         a->draw_hash_labels = 1;
  617. +     } else if (strcmp(inp_str, "no_draw_axis_line") == 0) {
  618. +       a->draw_axis_line = 0;
  619. +     } else if (strcmp(inp_str, "draw_axis_line") == 0) {
  620. +       a->draw_axis_line = 1;
  621.       } else if (strcmp(inp_str, "no_draw_axis") == 0) {
  622.         a->draw_axis_line = 0;
  623.       } else if (strcmp(inp_str, "draw_axis") == 0) {
  624. ***************
  625. *** 423,431 ****
  626.     }
  627.   }
  628.   
  629. ! edit_graph(g, gs)
  630.   Graph g;
  631.   Graphs gs;
  632.   {
  633.     char inp_str[80];
  634.     int num;
  635. --- 554,563 ----
  636.     }
  637.   }
  638.   
  639. ! edit_graph(g, gs, all_gs)
  640.   Graph g;
  641.   Graphs gs;
  642. + Graphs all_gs;
  643.   {
  644.     char inp_str[80];
  645.     int num;
  646. ***************
  647. *** 447,452 ****
  648. --- 579,590 ----
  649.         if (first(g->curves) == nil(g->curves))
  650.           edit_curve(new_curve(g->curves, 0), g);
  651.         else edit_curve(new_curve(g->curves, last(g->curves)->num + 1), g);
  652. +     } else if (strcmp(inp_str, "copycurve") == 0) {
  653. +       edit_curve(do_copy_curve(g, gs, all_gs), g);
  654. +     } else if (strcmp(inp_str, "newline") == 0) {
  655. +       if (first(g->curves) == nil(g->curves))
  656. +         edit_curve(new_line(g->curves, 0), g);
  657. +       else edit_curve(new_line(g->curves, last(g->curves)->num + 1), g);
  658.       } else if (strcmp(inp_str, "title") == 0) {
  659.         edit_label(g->title);
  660.       } else if (strcmp(inp_str, "legend") == 0) {
  661. ***************
  662. *** 467,474 ****
  663.           s = new_string(g->strings, 0);
  664.         else s = new_string(g->strings, last(g->strings)->num + 1);
  665.         edit_label(s->s);
  666.       } else if (strcmp(inp_str, "inherit_axes") == 0) {
  667. !       inherit_axes(g, gs);
  668.       } else if (strcmp(inp_str, "Y") == 0) {
  669.         if (!getfloat(&f)) rejecttoken(); else gs->height = f;
  670.       } else if (strcmp(inp_str, "X") == 0) {
  671. --- 605,614 ----
  672.           s = new_string(g->strings, 0);
  673.         else s = new_string(g->strings, last(g->strings)->num + 1);
  674.         edit_label(s->s);
  675. +     } else if (strcmp(inp_str, "copystring") == 0) {
  676. +       edit_label(do_copy_string(g, gs, all_gs));
  677.       } else if (strcmp(inp_str, "inherit_axes") == 0) {
  678. !       inherit_axes(g, gs, all_gs);
  679.       } else if (strcmp(inp_str, "Y") == 0) {
  680.         if (!getfloat(&f)) rejecttoken(); else gs->height = f;
  681.       } else if (strcmp(inp_str, "X") == 0) {
  682. ***************
  683. *** 492,497 ****
  684. --- 632,638 ----
  685.   Graphs gs;
  686.   {
  687.     Graphs the_g;
  688. +   Graph g;
  689.     char inp_str[80];
  690.     float f;
  691.     int num, i;
  692. ***************
  693. *** 503,513 ****
  694.           error_header(); fprintf(stderr, "\"graph\" not followed by number\n");
  695.           exit(1);
  696.         }
  697. !       edit_graph(get_graph(the_g->g, num), the_g);
  698.       } else if (strcmp(inp_str, "newgraph") == 0) {
  699.         if (first(the_g->g) == nil(the_g->g))
  700. !         edit_graph(new_graph(the_g->g, 0), the_g);
  701. !       else edit_graph(new_graph(the_g->g, last(the_g->g)->num + 1), the_g);
  702.       } else if (strcmp(inp_str, "Y") == 0) {
  703.         if (!getfloat(&f)) rejecttoken(); else the_g->height = f;
  704.       } else if (strcmp(inp_str, "X") == 0) {
  705. --- 644,660 ----
  706.           error_header(); fprintf(stderr, "\"graph\" not followed by number\n");
  707.           exit(1);
  708.         }
  709. !       edit_graph(get_graph(the_g->g, num), the_g, gs);
  710.       } else if (strcmp(inp_str, "newgraph") == 0) {
  711.         if (first(the_g->g) == nil(the_g->g))
  712. !         edit_graph(new_graph(the_g->g, 0), the_g, gs);
  713. !       else edit_graph(new_graph(the_g->g, last(the_g->g)->num + 1), the_g, gs);
  714. !     } else if (strcmp(inp_str, "copygraph") == 0) {
  715. !       if (first(the_g->g) == nil(the_g->g))
  716. !         g = new_graph(the_g->g, 0);
  717. !       else g = new_graph(the_g->g, last(the_g->g)->num + 1);
  718. !       inherit_axes(g, the_g, gs);
  719. !       edit_graph(g, the_g, gs);
  720.       } else if (strcmp(inp_str, "Y") == 0) {
  721.         if (!getfloat(&f)) rejecttoken(); else the_g->height = f;
  722.       } else if (strcmp(inp_str, "X") == 0) {
  723. *** ../work//jgraph.1    Thu Jan 23 11:14:26 1992
  724. --- jgraph.1    Thu Jan 23 11:12:32 1992
  725. ***************
  726. *** 200,220 ****
  727.   where n=0 if this is the first graph, otherwise n=m+1, where m is the
  728.   largest number of any graph so far.
  729.   .TP
  730. ! \fBX \|[\fIfloat\fB\|]\fR
  731. ! .br
  732. ! .ns
  733.   .TP
  734. - \fBY \|[\fIfloat\fB\|]\fR
  735. - Postscript files to be embedded in LaTeX
  736. - must contain a line specifying their height and width.  Usually,
  737. - \fBjgraph \fR
  738. - will automatically create one for the user, however, the user
  739. - may specify the height and width in inches using 
  740. - \fBY\fR
  741. - and
  742. - \fBX\fR
  743. - respectively.
  744. - .TP
  745.   .B newpage
  746.   This command is for plotting graphs on multiple pages.  After a 
  747.   \fBnewpage,\fR
  748. --- 200,221 ----
  749.   where n=0 if this is the first graph, otherwise n=m+1, where m is the
  750.   largest number of any graph so far.
  751.   .TP
  752. ! .B copygraph
  753. ! This creates a new graph, and copies all the attributes from the
  754. ! previous graph's x and y axes, as well as the x_translate and 
  755. ! y_translate values, and the clipping. 
  756. ! (Actually, this is a little bit of a lie, as it does not copy the
  757. ! values of the 
  758. ! \fB\fIhash_at\fB, \fImhash_at\fB,\fR
  759. ! and 
  760. ! \fB\fI\fIhash_label\fB\fR 
  761. ! attributes). 
  762. ! The previous graph is defined to be the graph with the largest number 
  763. ! less than the currrent graph's number.  If the current 
  764. ! graph has the smallest number, then it will take the last graph from 
  765. ! the previous page of graphs.  If there is no previous page, then an 
  766. ! error will be flagged.
  767.   .TP
  768.   .B newpage
  769.   This command is for plotting graphs on multiple pages.  After a 
  770.   \fBnewpage,\fR
  771. ***************
  772. *** 232,249 ****
  773.   \fB\-P\fR
  774.   option is not specified.
  775.   .TP
  776.   \fBbbox \fIfloat\fB \fIfloat\fB \fIfloat\fB \fIfloat\fB\fR
  777. ! Jgraph calculates a bounding box for the graph and
  778. ! includes it in the header of the postscript output.
  779. ! For the purposed of LaTeX, this is usually ok, as LaTeX doesn't
  780. ! clip outside of the bounding box.  Unfortunately, other programs
  781. ! do clip, and sometimes jgraph doesn't calculate the bounding box
  782. ! too well (text especially screws things up).  This command lets
  783. ! the user add his/her own bounding box.  The units of this are
  784.   final postscript units.  It's probably best to use the -p option
  785.   to see what the bounding box is that jgraph produces, and then
  786.   alter that accordingly with
  787. ! \fBbbox\fR.
  788.   .PD
  789.   .RE
  790.   .LP
  791. --- 233,281 ----
  792.   \fB\-P\fR
  793.   option is not specified.
  794.   .TP
  795. + \fBX \|[\fIfloat\fB\|]\fR
  796. + .br
  797. + .ns
  798. + .TP
  799. + \fBY \|[\fIfloat\fB\|]\fR
  800. + Postscript files to be embedded in LaTeX contain a ``bounding box''
  801. + which defines the area which LaTeX will allocate for the postscript.
  802. + Other programs use this bounding box as well, sometimes using it
  803. + to define where to clip the postscript image.
  804. + \fBJgraph \fR
  805. + uses the axis lines and labels, and the title to generate its 
  806. + bounding box.  Most of the time that's good enough to work in 
  807. + LaTeX.  The 
  808. + \fBY\fR
  809. + and
  810. + \fBX\fR
  811. + commands say to make the height and width of the bounding box at least
  812. + \fBY\fR
  813. + and
  814. + \fBX\fR
  815. + inches, respectively.  If you still need further control over the
  816. + bounding box, try the
  817. + \fBbbox\fR
  818. + command.  If there's more than one page in the jgraph file, 
  819. + \fBY,\fR
  820. + \fBX\fR
  821. + and
  822. + \fBbbox\fR
  823. + values can be given for each graph.  I'm not sure if that really
  824. + means anything though.
  825. + .TP
  826.   \fBbbox \fIfloat\fB \fIfloat\fB \fIfloat\fB \fIfloat\fB\fR
  827. ! If the 
  828. ! \fBY\fR
  829. ! and
  830. ! \fBX\fR
  831. ! commands aren't enough to help you define a good bounding box, this
  832. ! command lets you explicitly enter one which will go directly into the 
  833. ! jgraph output.  Its units are the 
  834.   final postscript units.  It's probably best to use the -p option
  835.   to see what the bounding box is that jgraph produces, and then
  836.   alter that accordingly with
  837. ! \fBbbox.\fR
  838.   .PD
  839.   .RE
  840.   .LP
  841. ***************
  842. *** 279,284 ****
  843. --- 311,329 ----
  844.   \fBgraph\fR
  845.   do.
  846.   .TP
  847. + \fBnewline\fR  
  848. + This is an abbreviation for:
  849. + .PP
  850. + .nf
  851. +       newcurve marktype none linetype solid
  852. + .fi
  853. + .PP
  854. + .TP
  855. + \fBcopycurve\fR  
  856. + This starts editing a new curve of the graph, and copies all its 
  857. + values from last curve in this graph.  If this graph currently has
  858. + no curves, then it searches backwards from the previous graph.
  859. + .TP
  860.   \fBtitle\fR   
  861.   This edits the title of the graph (see LABEL EDITING
  862.   COMMANDS).  The title is given a default location centered beneath
  863. ***************
  864. *** 296,306 ****
  865.   graph as well as curves.
  866.   .TP
  867.   \fBstring \|{\fIinteger\fB\|}\fR   
  868. ! This is to 
  869.   \fBnewstring\fR
  870.   as
  871.   \fBcurve\fR
  872. ! is to
  873.   \fBnewcurve.\fR
  874.   .TP
  875.   \fBborder\fR
  876. --- 341,360 ----
  877.   graph as well as curves.
  878.   .TP
  879.   \fBstring \|{\fIinteger\fB\|}\fR   
  880. ! .br
  881. ! .ns
  882. ! .TP
  883. ! \fBcopystring\fR
  884. ! \fBString\fR
  885. ! and
  886. ! \fBcopystring\fR
  887. ! are to 
  888.   \fBnewstring\fR
  889.   as
  890.   \fBcurve\fR
  891. ! and
  892. ! \fBcopycurve\fR
  893. ! are to
  894.   \fBnewcurve.\fR
  895.   .TP
  896.   \fBborder\fR
  897. ***************
  898. *** 324,345 ****
  899.   specifies that all curves in the graph will be clipped -- that is,
  900.   no points outside of the of axes will be plotted.  Clipping can also be
  901.   specified on a per-curve basis.  The default is
  902. ! \fBnoclip\fR.
  903.   .TP
  904.   \fBinherit_axes\fR   
  905. ! This lets the user ``inherit'' the values of the last
  906. ! graph's axes.  It copies all the attributes of the previous graph's x
  907. ! and y axes, as well as the x_translate and y_translate values, and the
  908. ! clipping. 
  909. ! (Actually, this is a little bit of a lie, as it does not copy the
  910. ! values of the 
  911. ! \fB\fIhash_at\fB, \fImhash_at\fB,\fR
  912. ! and 
  913. ! \fB\fI\fIhash_label\fB\fR 
  914. ! attributes). 
  915. ! The previous graph is the graph with the largest number greater than
  916. ! the currrent graph's number.  If the current graph has the smallest
  917. ! number, then this command will flag an error.
  918.   .TP
  919.   \fBx_translate \|[\fIfloat\fB\|]\fR   
  920.   By default, graphs are drawn centered at the
  921. --- 378,394 ----
  922.   specifies that all curves in the graph will be clipped -- that is,
  923.   no points outside of the of axes will be plotted.  Clipping can also be
  924.   specified on a per-curve basis.  The default is
  925. ! \fBnoclip.\fR
  926.   .TP
  927.   \fBinherit_axes\fR   
  928. ! This is an old command which is kept for backward compatibility.
  929. ! \fBCopycurve.\fR
  930. ! is equivalent to:
  931. ! .PP
  932. ! .nf
  933. !       newgraph inherit_axes
  934. ! .fi
  935. ! .PP
  936.   .TP
  937.   \fBx_translate \|[\fIfloat\fB\|]\fR   
  938.   By default, graphs are drawn centered at the
  939. ***************
  940. *** 493,499 ****
  941.   Do not draw the axis, the hash marks or any labels.  This
  942.   is useful for plotting points with no axes, and for overlaying graphs
  943.   on top of one another with no clashes.  This is equivalent to
  944. ! \fBno_draw_axis_line,\fR
  945.   \fBno_draw_axis_label,\fR
  946.   \fBno_draw_hash_marks,\fR
  947.   and
  948. --- 542,548 ----
  949.   Do not draw the axis, the hash marks or any labels.  This
  950.   is useful for plotting points with no axes, and for overlaying graphs
  951.   on top of one another with no clashes.  This is equivalent to
  952. ! \fBno_draw_axis,\fR
  953.   \fBno_draw_axis_label,\fR
  954.   \fBno_draw_hash_marks,\fR
  955.   and
  956. ***************
  957. *** 505,511 ****
  958.   Default = 
  959.   \fBdraw. This is\fR
  960.   equivalent to 
  961. ! \fBdraw_axis_line,\fR
  962.   \fBdraw_axis_label,\fR
  963.   \fBdraw_hash_marks,\fR
  964.   and 
  965. --- 554,560 ----
  966.   Default = 
  967.   \fBdraw. This is\fR
  968.   equivalent to 
  969. ! \fBdraw_axis,\fR
  970.   \fBdraw_axis_label,\fR
  971.   \fBdraw_hash_marks,\fR
  972.   and 
  973. ***************
  974. *** 519,525 ****
  975.   \fBGrid_lines\fR
  976.   specifies to plot a grid line at each (major and minor) hash
  977.   mark on this axis.  The default is 
  978. ! \fBno_grid_lines\fR.
  979.   .PD
  980.   .RE
  981.   .LP
  982. --- 568,574 ----
  983.   \fBGrid_lines\fR
  984.   specifies to plot a grid line at each (major and minor) hash
  985.   mark on this axis.  The default is 
  986. ! \fBno_grid_lines.\fR
  987.   .PD
  988.   .RE
  989.   .LP
  990. ***************
  991. *** 540,553 ****
  992.   point.  This command stops reading points when a non-float is given.
  993.   .TP
  994.   \fBmarktype\fR   
  995. ! This sets the kind of mark that is plotted for this
  996. ! curve.  Valid marks are: ``circle'', ``box'', ``diamond'', ``triangle'', ``x'',
  997. ! ``cross'', ``ellipse'', ``xbar'', ``ybar'', ``general'', and ``none''.  Most of these are
  998. ! self-explanatory, except for the last three.  ``Xbar'' makes the curve
  999. ! into a bar graph with the bars going to the x axis.  ``Ybar'' has the bars
  1000. ! going to the y axis.  ``General'' lets the user define the marks using the
  1001.   \fBgmarks\fR
  1002. ! command defined below.  ``None'' means that no mark will be
  1003.   plotted (this is useful for drawing lines).  By default, a new mark
  1004.   is chosen for each curve.
  1005.   .TP
  1006. --- 589,614 ----
  1007.   point.  This command stops reading points when a non-float is given.
  1008.   .TP
  1009.   \fBmarktype\fR   
  1010. ! This sets the kind of mark that is plotted for this curve.  Valid
  1011. ! marks are: ``circle'', ``box'', ``diamond'', ``triangle'', ``x'',
  1012. ! ``cross'', ``ellipse'', ``xbar'', ``ybar'', ``general'', ``text'' and
  1013. ! ``none''.  Most of these are self-explanatory, except for the last
  1014. ! five:  
  1015. !   ``Xbar'' makes the curve into a bar graph with the bars going
  1016. ! to the x axis.  ``Ybar'' has the bars going to the y axis. 
  1017. !   ``General'' lets the user define the marks using the 
  1018.   \fBgmarks\fR
  1019. ! command defined below.  
  1020. !   ``Text'' lets the user plot text instead of a mark.  The text is 
  1021. ! editted as a label (see LABEL EDITING COMMANDS) immediately following
  1022. ! the ``text'' command.  The x and y fields of the label have special
  1023. ! meanings here:  They define where the label is to be printed in relation
  1024. ! to the curve points.  For example, if they are both 0, the label will
  1025. ! be printed directly on the curve points.  If x is 1.0 and y is -1.0, then
  1026. ! the label will be printed one unit to the right and one unit below the
  1027. ! curve points.  Default label values are 0 for x and y, and center 
  1028. ! justification.
  1029. !   ``None'' means that no mark will be
  1030.   plotted (this is useful for drawing lines).  By default, a new mark
  1031.   is chosen for each curve.
  1032.   .TP
  1033. ***************
  1034. *** 606,612 ****
  1035.   \fBLarrows\fR 
  1036.   specifies to draw an arrow at the beginning of every line segment.
  1037.   The size of the arrows can be changed by using
  1038. ! \fBasize\fR.
  1039.   The 
  1040.   \fBfill\fR
  1041.   token controls the filling of the head of the arrows.
  1042. --- 667,673 ----
  1043.   \fBLarrows\fR 
  1044.   specifies to draw an arrow at the beginning of every line segment.
  1045.   The size of the arrows can be changed by using
  1046. ! \fBasize.\fR
  1047.   The 
  1048.   \fBfill\fR
  1049.   token controls the filling of the head of the arrows.
  1050. ***************
  1051. *** 614,619 ****
  1052. --- 675,683 ----
  1053.   \fBnolarrows\fR
  1054.   and
  1055.   \fBnorarrows\fR.
  1056. +   Arrows always go exactly to the point specified, with the exception 
  1057. + of when the marktype is ``circle''.  In this case, the arrow goes to
  1058. + the edge of the circle.
  1059.   .TP
  1060.   \fBasize \|[\fIfloat\fB\|] \|[\fIfloat\fB\|]\fR   
  1061.   This sets the size of the arrows.  The first 
  1062. ***************
  1063. *** 647,652 ****
  1064. --- 711,736 ----
  1065.   This defines the line thickness (in
  1066.   absolute postscript units) of the connecting line.  Default = 1.0.
  1067.   .TP
  1068. + \fBbezier\fR
  1069. + .br
  1070. + .ns
  1071. + .TP
  1072. + \fBnobezier\fR
  1073. + .br
  1074. + .ns
  1075. + \fBBezier\fR
  1076. + specifies to use the curve's points to define successive bezier curves.
  1077. + The first point is the starting point.  The next two are control points
  1078. + for the bezier curve and the next point is the ending point.  If there
  1079. + is another bezier, this ending point is also the beginning point of the 
  1080. + next curve.  The next two points are again control points, and the next
  1081. + point is the ending point.  Thus, a bezier must have a total of (3n + 1)
  1082. + points, where n is at least 1.
  1083. +   In bezier curves, marks and arrows only apply to every third point.
  1084. + \fNobezier\fR
  1085. + is the default.
  1086. + 
  1087. + .TP
  1088.   \fBclip\fR
  1089.   This specifies that this curve will be clipped -- that is,
  1090.   no points outside of the of axes will be plotted.  
  1091. ***************
  1092. *** 1030,1046 ****
  1093.   should be able to draw any kind of scatter/line/bar graph that
  1094.   a user desires.  To embellish the graph with extra text, axes, lines,
  1095.   etc., it is helpful to use 
  1096. ! \fBnewgraph\fR
  1097. ! and 
  1098. ! \fBinherit_axes.\fR
  1099.   The following example graphs show how this can be done.  All graphs are
  1100. ! in the directory HOMEDIRECTORY/graphs.
  1101.   .sp
  1102.   - sin.jgr shows how a sin function can be plotted using a simple c
  1103.   program to produce the sin wave.  Moreover, this file shows a use of
  1104. ! \fBnewgraph\fR
  1105. ! and
  1106. ! \fBinherit_axes\fR
  1107.   to plot an extra x and y axis at the 0 point.
  1108.   .sp
  1109.   - sin1.jgr is a further extension of sin.jgr only with one x and y
  1110. --- 1114,1126 ----
  1111.   should be able to draw any kind of scatter/line/bar graph that
  1112.   a user desires.  To embellish the graph with extra text, axes, lines,
  1113.   etc., it is helpful to use 
  1114. ! \fBcopygraph.\fR
  1115.   The following example graphs show how this can be done.  All graphs are
  1116. ! in the directory ~plank/src/jgraph/graphs.
  1117.   .sp
  1118.   - sin.jgr shows how a sin function can be plotted using a simple c
  1119.   program to produce the sin wave.  Moreover, this file shows a use of
  1120. ! \fBcopygraph\fR
  1121.   to plot an extra x and y axis at the 0 point.
  1122.   .sp
  1123.   - sin1.jgr is a further extension of sin.jgr only with one x and y
  1124. ***************
  1125. *** 1105,1108 ****
  1126.   .sp
  1127.   There may well be loads of other bugs.  Send to jsp@princeton.edu.
  1128.   .sp
  1129. ! This is $Revision: 6.2 $.
  1130. --- 1185,1188 ----
  1131.   .sp
  1132.   There may well be loads of other bugs.  Send to jsp@princeton.edu.
  1133.   .sp
  1134. ! This is $Revision: 7.0 $.
  1135. *** ../work//jgraph.c    Thu Jan 23 11:14:27 1992
  1136. --- jgraph.c    Thu Jan 23 11:12:28 1992
  1137. ***************
  1138. *** 1,7 ****
  1139.   /* 
  1140.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.c,v $
  1141. !  * $Revision: 6.2 $
  1142. !  * $Date: 91/11/01 11:46:38 $
  1143.    * $Author: jsp $
  1144.    */
  1145.   
  1146. --- 1,7 ----
  1147.   /* 
  1148.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.c,v $
  1149. !  * $Revision: 7.0 $
  1150. !  * $Date: 92/01/23 11:09:52 $
  1151.    * $Author: jsp $
  1152.    */
  1153.   
  1154. ***************
  1155. *** 14,25 ****
  1156.   
  1157.   #include "jgraph.h"
  1158.   
  1159. ! int NMARKTYPES = 11;
  1160.   int NORMALMARKTYPES = 6;
  1161.   
  1162.   char *MARKTYPESTRS[] = { "circle", "box", "diamond", "triangle", "x", "cross", 
  1163. !                          "ellipse", "general", "xbar", "ybar", "none" };
  1164. ! char MARKTYPES[] = { 'o', 'b', 'd', 't', 'x', 'c', 'e', 'g', 'X', 'Y', 'n' };
  1165.   
  1166.   Label new_label()
  1167.   {
  1168. --- 14,26 ----
  1169.   
  1170.   #include "jgraph.h"
  1171.   
  1172. ! int NMARKTYPES = 12;
  1173.   int NORMALMARKTYPES = 6;
  1174.   
  1175.   char *MARKTYPESTRS[] = { "circle", "box", "diamond", "triangle", "x", "cross", 
  1176. !                          "ellipse", "general", "xbar", "ybar", "none", "text"};
  1177. ! char MARKTYPES[] = {     'o',      'b',   'd',       't',        'x', 'c', 
  1178. !              'e',       'g',       'X',    'Y',    'n',    'l' };
  1179.   
  1180.   Label new_label()
  1181.   {
  1182. ***************
  1183. *** 42,56 ****
  1184.   int num;
  1185.   {
  1186.     Curve new_c;
  1187. -   int i;
  1188.   
  1189.     new_c = (Curve) get_node(c);
  1190.     new_c->num = num;
  1191.     new_c->l = new_label();
  1192.     new_c->clip = 0;
  1193.     new_c->gray = 0.0;
  1194.     
  1195.     new_c->pts = (Point) make_list(sizeof(struct point));
  1196.     new_c->gen_linetype = (Flist) make_list(sizeof(struct flist));
  1197.     new_c->marktype = MARKTYPES[num % NORMALMARKTYPES];
  1198.     new_c->linetype = '0';
  1199. --- 43,60 ----
  1200.   int num;
  1201.   {
  1202.     Curve new_c;
  1203.   
  1204.     new_c = (Curve) get_node(c);
  1205.     new_c->num = num;
  1206.     new_c->l = new_label();
  1207. +   new_c->lmark = new_label();
  1208. +   new_c->lmark->hj = 'c';
  1209. +   new_c->lmark->vj = 'c';
  1210.     new_c->clip = 0;
  1211.     new_c->gray = 0.0;
  1212.     
  1213.     new_c->pts = (Point) make_list(sizeof(struct point));
  1214. +   new_c->npts = 0;
  1215.     new_c->gen_linetype = (Flist) make_list(sizeof(struct flist));
  1216.     new_c->marktype = MARKTYPES[num % NORMALMARKTYPES];
  1217.     new_c->linetype = '0';
  1218. ***************
  1219. *** 58,73 ****
  1220.     new_c->marksize[0] = FSIG;
  1221.     new_c->marksize[1] = FSIG;
  1222.     new_c->general_marks = (Point) make_list(sizeof(struct point));
  1223. -   i = num / NORMALMARKTYPES;
  1224.     new_c->fill = 0.0;
  1225.     new_c->rarrows = 0;
  1226.     new_c->larrows = 0;
  1227.     new_c->asize[0] = FSIG;
  1228.     new_c->asize[1] = FSIG;
  1229.     prio_insert(new_c, c, 0);
  1230.     return new_c;
  1231.   }
  1232.   
  1233.   Curve get_curve(c, num)
  1234.   Curve c;
  1235.   int num;
  1236. --- 62,89 ----
  1237.     new_c->marksize[0] = FSIG;
  1238.     new_c->marksize[1] = FSIG;
  1239.     new_c->general_marks = (Point) make_list(sizeof(struct point));
  1240.     new_c->fill = 0.0;
  1241.     new_c->rarrows = 0;
  1242.     new_c->larrows = 0;
  1243.     new_c->asize[0] = FSIG;
  1244.     new_c->asize[1] = FSIG;
  1245. +   new_c->bezier = 0;
  1246.     prio_insert(new_c, c, 0);
  1247.     return new_c;
  1248.   }
  1249.   
  1250. + Curve new_line(c, num)
  1251. + Curve c;
  1252. + int num;
  1253. + {
  1254. +   Curve new_c;
  1255. +   new_c = new_curve(c, num);
  1256. +   new_c->linetype = 's';
  1257. +   new_c->marktype = 'n';
  1258. +   return new_c;
  1259. + }
  1260. + 
  1261. + 
  1262.   Curve get_curve(c, num)
  1263.   Curve c;
  1264.   int num;
  1265. ***************
  1266. *** 205,211 ****
  1267.   
  1268.     g = (Graph) get_node(gs);
  1269.     g->num = num;
  1270. !   g->minval = 0.0;        /* added -hdd */
  1271.     g->x_axis = new_axis(1);
  1272.     g->y_axis = new_axis(0);
  1273.     g->x_translate = 0.0;
  1274. --- 221,230 ----
  1275.   
  1276.     g = (Graph) get_node(gs);
  1277.     g->num = num;
  1278. !   g->xminval = 0.0;
  1279. !   g->yminval = 0.0;
  1280. !   g->xmaxval = 0.0;
  1281. !   g->ymaxval = 0.0;
  1282.     g->x_axis = new_axis(1);
  1283.     g->y_axis = new_axis(0);
  1284.     g->x_translate = 0.0;
  1285. ***************
  1286. *** 268,273 ****
  1287. --- 287,293 ----
  1288.     process_graphs(gs);
  1289.     if (show) show_graphs(gs); else draw_graphs(gs, pp);
  1290.     exit(0);
  1291. +   return 0;
  1292.   }
  1293.   
  1294.   
  1295. *** ../work//jgraph.h    Thu Jan 23 11:14:28 1992
  1296. --- jgraph.h    Thu Jan 23 11:12:28 1992
  1297. ***************
  1298. *** 1,7 ****
  1299.   /* 
  1300.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.h,v $
  1301. !  * $Revision: 6.2 $
  1302. !  * $Date: 91/11/01 11:46:40 $
  1303.    * $Author: jsp $
  1304.    */
  1305.   
  1306. --- 1,7 ----
  1307.   /* 
  1308.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.h,v $
  1309. !  * $Revision: 7.0 $
  1310. !  * $Date: 92/01/23 11:09:54 $
  1311.    * $Author: jsp $
  1312.    */
  1313.   
  1314. ***************
  1315. *** 50,56 ****
  1316. --- 50,58 ----
  1317.     struct curve *blink;
  1318.     int num;
  1319.     Label l;
  1320. +   Label lmark;
  1321.     Point pts;
  1322. +   int npts;
  1323.     Point general_marks;
  1324.     float marksize[2];
  1325.     float fill;
  1326. ***************
  1327. *** 61,66 ****
  1328. --- 63,69 ----
  1329.     char linetype;
  1330.     int rarrows;
  1331.     int larrows;
  1332. +   int bezier;
  1333.     float asize[2];
  1334.     int clip;
  1335.   } *Curve;
  1336. ***************
  1337. *** 143,149 ****
  1338.     struct graph *flink;
  1339.     struct graph *blink;
  1340.     int num;
  1341. !   float minval;
  1342.     float x_translate;
  1343.     float y_translate;
  1344.     Axis x_axis;
  1345. --- 146,155 ----
  1346.     struct graph *flink;
  1347.     struct graph *blink;
  1348.     int num;
  1349. !   float xminval;
  1350. !   float yminval;
  1351. !   float xmaxval;
  1352. !   float ymaxval;
  1353.     float x_translate;
  1354.     float y_translate;
  1355.     Axis x_axis;
  1356. ***************
  1357. *** 176,181 ****
  1358. --- 182,188 ----
  1359.   
  1360.   /* Stuff defined in jgraph.c */
  1361.   
  1362. + extern Curve new_line();
  1363.   extern Curve new_curve();
  1364.   extern Curve get_curve();
  1365.   extern Graph new_graph();
  1366. *** ../work//list.c    Thu Jan 23 11:14:29 1992
  1367. --- list.c    Thu Jan 23 11:12:29 1992
  1368. ***************
  1369. *** 1,7 ****
  1370.   /* 
  1371.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.c,v $
  1372. !  * $Revision: 6.2 $
  1373. !  * $Date: 91/11/01 11:46:41 $
  1374.    * $Author: jsp $
  1375.    */
  1376.   
  1377. --- 1,7 ----
  1378.   /* 
  1379.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.c,v $
  1380. !  * $Revision: 7.0 $
  1381. !  * $Date: 92/01/23 11:09:55 $
  1382.    * $Author: jsp $
  1383.    */
  1384.   
  1385. *** ../work//list.h    Thu Jan 23 11:14:29 1992
  1386. --- list.h    Thu Jan 23 11:12:29 1992
  1387. ***************
  1388. *** 1,7 ****
  1389.   /* 
  1390.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.h,v $
  1391. !  * $Revision: 6.2 $
  1392. !  * $Date: 91/11/01 11:46:42 $
  1393.    * $Author: jsp $
  1394.    */
  1395.   
  1396. --- 1,7 ----
  1397.   /* 
  1398.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.h,v $
  1399. !  * $Revision: 7.0 $
  1400. !  * $Date: 92/01/23 11:09:55 $
  1401.    * $Author: jsp $
  1402.    */
  1403.   
  1404. *** ../work//printline.c    Thu Jan 23 11:14:31 1992
  1405. --- printline.c    Thu Jan 23 11:12:29 1992
  1406. ***************
  1407. *** 1,7 ****
  1408.   /* 
  1409.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/printline.c,v $
  1410. !  * $Revision: 6.2 $
  1411. !  * $Date: 91/11/01 11:46:44 $
  1412.    * $Author: jsp $
  1413.    */
  1414.   
  1415. --- 1,7 ----
  1416.   /* 
  1417.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/printline.c,v $
  1418. !  * $Revision: 7.0 $
  1419. !  * $Date: 92/01/23 11:09:57 $
  1420.    * $Author: jsp $
  1421.    */
  1422.   
  1423. ***************
  1424. *** 42,47 ****
  1425. --- 42,59 ----
  1426.     setlinewidth(1.0);
  1427.     setlinestyle('s', (Flist) 0);
  1428.   
  1429. + }
  1430. + 
  1431. + bezier_control(x1, y1)
  1432. + float x1, y1;
  1433. + {
  1434. +   printf("  %f %f ", x1, y1);
  1435. + }
  1436. + 
  1437. + bezier_end(x1, y1)
  1438. + float x1, y1;
  1439. + {
  1440. +   printf("  %f %f curveto\n", x1, y1);
  1441.   }
  1442.   
  1443.   
  1444. *** ../work//prio_list.c    Thu Jan 23 11:14:32 1992
  1445. --- prio_list.c    Thu Jan 23 11:12:29 1992
  1446. ***************
  1447. *** 1,7 ****
  1448.   /* 
  1449.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.c,v $
  1450. !  * $Revision: 6.2 $
  1451. !  * $Date: 91/11/01 11:46:45 $
  1452.    * $Author: jsp $
  1453.    */
  1454.   
  1455. --- 1,7 ----
  1456.   /* 
  1457.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.c,v $
  1458. !  * $Revision: 7.0 $
  1459. !  * $Date: 92/01/23 11:09:58 $
  1460.    * $Author: jsp $
  1461.    */
  1462.   
  1463. *** ../work//prio_list.h    Thu Jan 23 11:14:32 1992
  1464. --- prio_list.h    Thu Jan 23 11:12:30 1992
  1465. ***************
  1466. *** 1,7 ****
  1467.   /* 
  1468.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.h,v $
  1469. !  * $Revision: 6.2 $
  1470. !  * $Date: 91/11/01 11:46:46 $
  1471.    * $Author: jsp $
  1472.    */
  1473.   
  1474. --- 1,7 ----
  1475.   /* 
  1476.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.h,v $
  1477. !  * $Revision: 7.0 $
  1478. !  * $Date: 92/01/23 11:10:00 $
  1479.    * $Author: jsp $
  1480.    */
  1481.   
  1482. *** ../work//process.c    Thu Jan 23 11:14:33 1992
  1483. --- process.c    Thu Jan 23 11:12:30 1992
  1484. ***************
  1485. *** 1,7 ****
  1486.   /* 
  1487.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/process.c,v $
  1488. !  * $Revision: 6.2 $
  1489. !  * $Date: 91/11/01 11:46:47 $
  1490.    * $Author: jsp $
  1491.    */
  1492.   
  1493. --- 1,7 ----
  1494.   /* 
  1495.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/process.c,v $
  1496. !  * $Revision: 7.0 $
  1497. !  * $Date: 92/01/23 11:10:01 $
  1498.    * $Author: jsp $
  1499.    */
  1500.   
  1501. ***************
  1502. *** 20,40 ****
  1503.   Graph g;
  1504.   {
  1505.   
  1506.     if (g->title->x == FSIG) g->title->x = g->x_axis->psize / 2.0;
  1507.       else g->title->x = ctop(g->title->x, g->x_axis);
  1508. !   g->minval = 0.0;
  1509. !   if (g->x_axis->draw_axis_label) 
  1510. !     g->minval = MIN(g->minval, g->x_axis->label->y - 
  1511. !                     g->x_axis->label->fontsize);
  1512. !   if (g->x_axis->draw_hash_labels)
  1513. !     g->minval = MIN(g->minval, g->x_axis->draw_hash_labels_at
  1514. !                    - g->x_axis->hl->fontsize);
  1515. !   if (g->x_axis->draw_hash_marks)
  1516. !     g->minval = MIN(g->minval, g->x_axis->draw_hash_marks_at - HASH_SIZE);
  1517. !   g->minval -= 10.0;
  1518. !   if (g->title->y == FSIG) {
  1519. !     g->title->y = g->minval;
  1520. !   } else g->title->y = ctop(g->title->y, g->y_axis);
  1521.   }
  1522.   
  1523.   process_legend(g)
  1524. --- 20,46 ----
  1525.   Graph g;
  1526.   {
  1527.   
  1528. +   float ytitleloc;
  1529. + 
  1530.     if (g->title->x == FSIG) g->title->x = g->x_axis->psize / 2.0;
  1531.       else g->title->x = ctop(g->title->x, g->x_axis);
  1532. !   if (g->title->y != FSIG) g->title->y = ctop(g->title->y, g->y_axis);
  1533. !   else {
  1534. !     ytitleloc = 0.0;
  1535. !     if (g->x_axis->draw_axis_label) 
  1536. !       ytitleloc = MIN(ytitleloc, g->x_axis->label->y - 
  1537. !                       g->x_axis->label->fontsize);
  1538. !     if (g->x_axis->draw_hash_labels)
  1539. !       ytitleloc = MIN(ytitleloc, g->x_axis->draw_hash_labels_at
  1540. !                      - g->x_axis->hl->fontsize);
  1541. !     if (g->x_axis->draw_hash_marks)
  1542. !       ytitleloc = MIN(ytitleloc, g->x_axis->draw_hash_marks_at - HASH_SIZE);
  1543. !     
  1544. !     if (g->title->y == FSIG) g->title->y = ytitleloc - 10.0;
  1545. !       else g->title->y = ctop(g->title->y, g->y_axis);
  1546. !   
  1547. !     g->title->y = ytitleloc - 10.0;
  1548. !   }
  1549.   }
  1550.   
  1551.   process_legend(g)
  1552. ***************
  1553. *** 437,442 ****
  1554. --- 443,455 ----
  1555.   Curve c;
  1556.   Graph g;
  1557.   {
  1558. +   if (c->bezier && (c->npts < 4 || (c->npts % 3 != 1))) {
  1559. +     error_header();
  1560. +     fprintf(stderr, "  Graph %d Curve %d:\n", g->num, c->num);
  1561. +     fprintf(stderr, "  Curve has %d points\n", c->npts);
  1562. +     fprintf(stderr, "  Bezier must have 3n + 1 points (n > 0)\n");
  1563. +     exit(1);
  1564. +   }
  1565.     c->marksize[0] = (c->marksize[0] == FSIG) ? 
  1566.                      4.0 : disttop(c->marksize[0], g->x_axis);
  1567.     c->marksize[1] = (c->marksize[1] == FSIG) ? 
  1568. ***************
  1569. *** 444,450 ****
  1570.     c->asize[0] = (c->asize[0] == FSIG) ? 
  1571.                      6.0 : disttop(c->asize[0], g->x_axis);
  1572.     c->asize[1] = (c->asize[1] == FSIG) ? 
  1573. !                    2.0 : disttop(c->asize[1], g->y_axis);
  1574.   }
  1575.   
  1576.   process_curves(g)
  1577. --- 457,465 ----
  1578.     c->asize[0] = (c->asize[0] == FSIG) ? 
  1579.                      6.0 : disttop(c->asize[0], g->x_axis);
  1580.     c->asize[1] = (c->asize[1] == FSIG) ? 
  1581. !                    2.0 : disttop(c->asize[1], g->y_axis) / 2.0;
  1582. !   c->lmark->x = disttop(c->lmark->x, g->x_axis);
  1583. !   c->lmark->y = disttop(c->lmark->y, g->y_axis);
  1584.   }
  1585.   
  1586.   process_curves(g)
  1587. ***************
  1588. *** 456,461 ****
  1589. --- 471,590 ----
  1590.     }
  1591.   }
  1592.    
  1593. + process_extrema(g)  /* This finds all the minval/maxvals for bbox calc */
  1594. + Graph g;
  1595. + {
  1596. +   Curve c;
  1597. +   float y, x;
  1598. + 
  1599. +   g->xminval = 0.0;
  1600. +   g->yminval = 0.0;
  1601. +   g->xmaxval = g->x_axis->psize;
  1602. +   g->ymaxval = g->y_axis->psize;
  1603. +   
  1604. +   if (g->x_axis->draw_axis_label) {
  1605. +     g->yminval = MIN(g->yminval, g->x_axis->label->y - 
  1606. +                     g->x_axis->label->fontsize);
  1607. +     g->ymaxval = MAX(g->ymaxval, g->x_axis->label->y + 
  1608. +                     g->x_axis->label->fontsize);
  1609. +   }
  1610. +   if (g->y_axis->draw_axis_label) {
  1611. +     g->xminval = MIN(g->xminval, g->y_axis->label->y - 
  1612. +                     g->y_axis->label->fontsize);
  1613. +     g->xmaxval = MAX(g->xmaxval, g->y_axis->label->y + 
  1614. +                     g->y_axis->label->fontsize);
  1615. +   }
  1616. + 
  1617. +   if (g->x_axis->draw_hash_labels) {
  1618. +     g->yminval = MIN(g->yminval, g->x_axis->draw_hash_labels_at
  1619. +                    - g->x_axis->hl->fontsize);
  1620. +     g->ymaxval = MAX(g->ymaxval, g->x_axis->draw_hash_labels_at
  1621. +                    + g->x_axis->hl->fontsize);
  1622. +   }
  1623. +   if (g->y_axis->draw_hash_labels) {
  1624. +     g->xminval = MIN(g->xminval, g->y_axis->draw_hash_labels_at
  1625. +                    - g->y_axis->hl->fontsize);
  1626. +     g->xmaxval = MAX(g->xmaxval, g->y_axis->draw_hash_labels_at
  1627. +                    + g->y_axis->hl->fontsize);
  1628. +   }
  1629. + 
  1630. +   if (g->x_axis->draw_hash_marks) {
  1631. +       g->yminval = MIN(g->yminval, g->x_axis->draw_hash_marks_at - HASH_SIZE);
  1632. +       g->ymaxval = MAX(g->ymaxval, g->x_axis->draw_hash_marks_at + HASH_SIZE);
  1633. +   }
  1634. +   if (g->y_axis->draw_hash_marks) {
  1635. +       g->xminval = MIN(g->xminval, g->y_axis->draw_hash_marks_at - HASH_SIZE);
  1636. +       g->xmaxval = MAX(g->xmaxval, g->y_axis->draw_hash_marks_at + HASH_SIZE);
  1637. +   }
  1638. +     
  1639. +   if (g->title->label != CNULL) {
  1640. +       g->yminval = MIN(g->yminval, g->title->y - g->title->fontsize);
  1641. +       g->ymaxval = MAX(g->ymaxval, g->title->y + g->title->fontsize);
  1642. +   }    
  1643. +   if (g->legend->type != 'n') {
  1644. +     for (c = first(g->curves); c != nil(g->curves); c = next(c)) {
  1645. +       if (c->l->label != CNULL) {
  1646. +         y = c->l->y - (c->l->fontsize / 2.0 * FCPI / FPPI);
  1647. +         g->yminval = MIN(g->yminval, y);
  1648. +         g->ymaxval = MAX(g->ymaxval, y);
  1649. +         if (g->legend->anylines) {
  1650. +           if (c->linetype != '0' && g->legend->linelength != 0) {
  1651. +             x = c->l->x - g->legend->midspace - g->legend->linelength;
  1652. +             g->xminval = MIN(g->xminval, x);
  1653. +             g->xmaxval = MAX(g->xmaxval, x+ g->legend->linelength);
  1654. +           }
  1655. +           x = c->l->x - g->legend->midspace - g->legend->linelength / 2.0;
  1656. +         } else x = c->l->x - g->legend->midspace;
  1657. +         if (c->marktype != 'n') {
  1658. +           g->yminval = MIN(g->yminval, y - abs(c->marksize[1])/2.0);
  1659. +           g->ymaxval = MAX(g->ymaxval, y + abs(c->marksize[1])/2.0);
  1660. +           g->xminval = MIN(g->xminval, x - abs(c->marksize[0])/2.0);
  1661. +           g->xmaxval = MAX(g->xmaxval, x + abs(c->marksize[0])/2.0);
  1662. +         }
  1663. +         process_label_extrema(c->l, g);
  1664. +       }
  1665. +     }
  1666. +   }
  1667. + }
  1668. + 
  1669. + process_label_extrema(l, g)
  1670. + Label l;
  1671. + Graph g;
  1672. + {
  1673. +   float len;
  1674. +   float height;
  1675. + 
  1676. +   len = l->fontsize * FCPI / FPPI * strlen(l->label) * 0.8;
  1677. +   height = l->fontsize * FCPI / FPPI;
  1678. +   if (l->rotate == 0.0 || l->rotate == 180.0 || l->rotate == -180.0) {
  1679. +     if (l->hj == 'l') {
  1680. +       g->xminval = MIN(g->xminval, l->x);
  1681. +       g->xmaxval = MAX(g->xmaxval, l->x + len);
  1682. +     } else if (l->hj == 'c') {
  1683. +       g->xminval = MIN(g->xminval, l->x - len/2.0);
  1684. +       g->xmaxval = MAX(g->xmaxval, l->x + len/2.0);
  1685. +     } else if (l->hj == 'r') {
  1686. +       g->xminval = MIN(g->xminval, l->x - len);
  1687. +       g->xmaxval = MAX(g->xmaxval, l->x);
  1688. +     }
  1689. +     if (l->vj == 'b') {
  1690. +       g->yminval = MIN(g->yminval, l->y);
  1691. +       g->ymaxval = MAX(g->ymaxval, l->y + height);
  1692. +     } else if (l->vj == 'c') {
  1693. +       g->yminval = MIN(g->yminval, l->y - height/2.0);
  1694. +       g->ymaxval = MAX(g->ymaxval, l->y + height/2.0);
  1695. +     } else if (l->vj == 't') {
  1696. +       g->yminval = MIN(g->yminval, l->y - height);
  1697. +       g->ymaxval = MAX(g->ymaxval, l->y);
  1698. +     }
  1699. +   } else {         /* This is wrong -- I'm just estimating on the high side */
  1700. +     g->yminval = MIN(g->yminval, l->y - len);
  1701. +     g->ymaxval = MAX(g->ymaxval, l->y + len);
  1702. +     g->xminval = MIN(g->xminval, l->x - len);
  1703. +     g->xmaxval = MAX(g->xmaxval, l->x + len);
  1704. +   }
  1705. + }
  1706. + 
  1707.   process_graph(g)
  1708.   Graph g;
  1709.   {
  1710. ***************
  1711. *** 469,474 ****
  1712. --- 598,604 ----
  1713.     process_legend(g);
  1714.     process_strings(g);
  1715.     process_title(g);
  1716. +   process_extrema(g);
  1717.   }
  1718.   
  1719.   process_graphs(gs)
  1720. ***************
  1721. *** 476,510 ****
  1722.   {
  1723.     Graphs the_g;
  1724.     Graph g;
  1725. !   float tmp_x, x, max_y, min_y;
  1726.     int do_bb, i;
  1727.   
  1728.     for (the_g = first(gs); the_g != nil(gs); the_g = next(the_g)) {
  1729.       for (g = first(the_g->g); g != nil(the_g->g); g = next(g)) process_graph(g);
  1730. !     x = 0.0;
  1731.       max_y = 0.0;
  1732.       min_y = 0.0;
  1733.       for (g = first(the_g->g); g != nil(the_g->g); g = next(g)) {
  1734. !       tmp_x = ABS(g->x_translate) * 2.0 + g->x_axis->psize;
  1735. !       x = MAX(x, tmp_x);
  1736. !       max_y = MAX(max_y, g->y_translate + g->y_axis->psize);
  1737. !       if (g->y_translate > 0.0)
  1738. !         min_y = MIN(min_y, g->y_translate + g->minval);
  1739. !       else
  1740. !         min_y = MIN(min_y, g->minval);
  1741.       }
  1742. !     if (the_g->height <= 0.00) 
  1743. !       the_g->height = max_y - min_y; 
  1744. !     else 
  1745.         the_g->height *= FCPI;
  1746. !     if (the_g->width <= 0.00) the_g->width = x; else the_g->width *= FCPI;
  1747.       do_bb = 1;
  1748.       for (i = 0; i < 4; i++) do_bb = (do_bb && the_g->bb[i] == FSIG);
  1749.       if (do_bb) {
  1750. !       the_g->bb[0] = 0.0;
  1751.         the_g->bb[1] = min_y;
  1752. !       the_g->bb[2] = the_g->width;
  1753. !       the_g->bb[3] = the_g->height + min_y;
  1754.       } 
  1755.     }
  1756.   }
  1757. --- 606,658 ----
  1758.   {
  1759.     Graphs the_g;
  1760.     Graph g;
  1761. !   float diff, max_y, min_y, max_x, min_x;
  1762.     int do_bb, i;
  1763.   
  1764.     for (the_g = first(gs); the_g != nil(gs); the_g = next(the_g)) {
  1765.       for (g = first(the_g->g); g != nil(the_g->g); g = next(g)) process_graph(g);
  1766. !     max_x = 0.0;
  1767. !     min_x = 0.0;
  1768.       max_y = 0.0;
  1769.       min_y = 0.0;
  1770.       for (g = first(the_g->g); g != nil(the_g->g); g = next(g)) {
  1771. !       max_y = MAX(max_y, g->y_translate + g->ymaxval);
  1772. !       min_y = MIN(min_y, g->y_translate + g->yminval);
  1773. !       max_x = MAX(max_x, g->x_translate + g->xmaxval);
  1774. !       min_x = MIN(min_x, g->x_translate + g->xminval);
  1775.       }
  1776. !     if (the_g->height >= 0.00) {
  1777.         the_g->height *= FCPI;
  1778. !       if (the_g->height > max_y - min_y) {
  1779. !         diff = (the_g->height - max_y + min_y) / 2.0;
  1780. !         max_y += diff;
  1781. !         min_y -= diff;
  1782. !       } else {
  1783. !         the_g->height = max_y - min_y;
  1784. !       }
  1785. !     } else {
  1786. !       the_g->height = max_y - min_y;
  1787. !     }
  1788. !     if (the_g->width >= 0.00) {
  1789. !       the_g->width *= FCPI;
  1790. !       if (the_g->width > max_x - min_x) {
  1791. !         diff = (the_g->width - max_x + min_x) / 2.0;
  1792. !         max_x += diff;
  1793. !         min_x -= diff;
  1794. !       } else {
  1795. !         the_g->width = max_x - min_x;
  1796. !       }
  1797. !     } else {
  1798. !       the_g->width = max_x - min_x;
  1799. !     }
  1800. ! 
  1801.       do_bb = 1;
  1802.       for (i = 0; i < 4; i++) do_bb = (do_bb && the_g->bb[i] == FSIG);
  1803.       if (do_bb) {
  1804. !       the_g->bb[0] = min_x;
  1805.         the_g->bb[1] = min_y;
  1806. !       the_g->bb[2] = max_x;
  1807. !       the_g->bb[3] = max_y;
  1808.       } 
  1809.     }
  1810.   }
  1811. *** ../work//show.c    Thu Jan 23 11:14:34 1992
  1812. --- show.c    Thu Jan 23 11:12:31 1992
  1813. ***************
  1814. *** 1,7 ****
  1815.   /* 
  1816.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/show.c,v $
  1817. !  * $Revision: 6.2 $
  1818. !  * $Date: 91/11/01 11:46:49 $
  1819.    * $Author: jsp $
  1820.    */ 
  1821.   
  1822. --- 1,7 ----
  1823.   /* 
  1824.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/show.c,v $
  1825. !  * $Revision: 7.0 $
  1826. !  * $Date: 92/01/23 11:10:04 $
  1827.    * $Author: jsp $
  1828.    */ 
  1829.   
  1830. ***************
  1831. *** 61,66 ****
  1832. --- 61,83 ----
  1833.     return;
  1834.   }
  1835.   
  1836. + show_lmark(l, nsp, g)
  1837. + Label l;
  1838. + int nsp;
  1839. + Graph g;
  1840. + {
  1841. +   char txt[300];
  1842. +   old_unprintable_text(l->label, txt);
  1843. +   spaces(nsp); printf(": %s\n", txt);
  1844. +   spaces(nsp); printf("x %f ", ptodist(l->x, g->x_axis));
  1845. +                printf("y %f\n", ptodist(l->y, g->y_axis));
  1846. +   spaces(nsp); printf("hj%c vj%c ", l->hj, l->vj);
  1847. +                printf("rotate %f\n", l->rotate);
  1848. +   spaces(nsp); printf("font %s ", l->font);
  1849. +                printf("fontsize %f\n", l->fontsize);
  1850. +   return;
  1851. + }
  1852. + 
  1853.   show_curve(c, nsp, g)
  1854.   Curve c;
  1855.   int nsp;
  1856. ***************
  1857. *** 88,93 ****
  1858. --- 105,114 ----
  1859.       fprintf(stderr, "Unknown mark type %c\n", c->marktype);
  1860.       exit(1);
  1861.     } else printf("%s ", MARKTYPESTRS[i]);
  1862. +   if (c->marktype == 'l') {
  1863. +     show_lmark(c->lmark, nsp+2, g);
  1864. +     spaces(nsp);
  1865. +   }
  1866.     printf("marksize %f %f ", ptodist(c->marksize[0], g->x_axis), 
  1867.                               ptodist(c->marksize[1], g->y_axis));
  1868.     printf("fill %f\n", c->fill);
  1869. ***************
  1870. *** 130,137 ****
  1871.     if(!c->clip) printf("no"); printf("clip ");
  1872.     if(!c->rarrows) printf("no"); printf("rarrows ");
  1873.     if(!c->larrows) printf("no"); printf("larrows ");
  1874.     printf("asize %f %f\n", ptodist(c->asize[0], g->x_axis), 
  1875. !                           ptodist(c->asize[1], g->y_axis));
  1876.   }
  1877.   
  1878.   show_axis(a, nsp, g)
  1879. --- 151,159 ----
  1880.     if(!c->clip) printf("no"); printf("clip ");
  1881.     if(!c->rarrows) printf("no"); printf("rarrows ");
  1882.     if(!c->larrows) printf("no"); printf("larrows ");
  1883. +   if(!c->bezier) printf("no"); printf("bezier ");
  1884.     printf("asize %f %f\n", ptodist(c->asize[0], g->x_axis), 
  1885. !                           ptodist(c->asize[1], g->y_axis) * 2.0);
  1886.   }
  1887.   
  1888.   show_axis(a, nsp, g)
  1889. *** ../work//token.c    Thu Jan 23 11:14:44 1992
  1890. --- token.c    Thu Jan 23 11:12:32 1992
  1891. ***************
  1892. *** 1,7 ****
  1893.   /* 
  1894.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/token.c,v $
  1895. !  * $Revision: 6.2 $
  1896. !  * $Date: 91/11/01 11:46:50 $
  1897.    * $Author: jsp $
  1898.    */
  1899.   
  1900. --- 1,7 ----
  1901.   /* 
  1902.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/token.c,v $
  1903. !  * $Revision: 7.0 $
  1904. !  * $Date: 92/01/23 11:10:05 $
  1905.    * $Author: jsp $
  1906.    */
  1907.   
  1908. exit 0 # Just in case...
  1909.