home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume28 / jgraph / patch07.3 < prev    next >
Text File  |  1992-02-09  |  35KB  |  1,360 lines
  1. Newsgroups: comp.sources.misc
  2. From: jsp@Princeton.EDU (James Plank)
  3. Subject:  v28i017:  jgraph - A filter for plotting postscript graphs, Patch07.3
  4. Message-ID: <1992Feb6.231730.23678@sparky.imd.sterling.com>
  5. X-Md4-Signature: b6faf725c76ba472ab0a62011f9e5978
  6. Date: Thu, 6 Feb 1992 23:17:30 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: jsp@Princeton.EDU (James Plank)
  10. Posting-number: Volume 28, Issue 17
  11. Archive-name: jgraph/patch07.3
  12. Environment: UNIX, VMS, postscript
  13. Patch-To: jgraph: Volume 16, Issue 20
  14.  
  15. Jgraph Patch 7.3: Tue Feb  4 12:30:45 EST 1992
  16.  
  17. Sorry again to be sending out another patch so soon, but there was a
  18. bug which needed immediate attention, so I put in some more junk that
  19. people have been asking for:
  20.  
  21. - Fixed yet another bug in bounding box calculation.  I don't think
  22.   this one affected too many graphs, but still its a bug.  Thanks to
  23.   Ryoichi Hajima for pointing this out.
  24.  
  25. - Strings are now included in bounding box calculations.
  26.  
  27. - Added a few performance enhancements suggested by Dave Wortman:
  28.   Comments are no longer included in the postscript output unless
  29.     you specify -comments on the command line.
  30.   Lines are stroked only once in the output, not twice.
  31.   Fonts aren't defined as redundantly as before in the output.
  32.  
  33. - Fixed where strings are placed when rotated.  Before, if you 
  34.   rotated a string and specified any justification besides hjl vjl, 
  35.   the strings weren't really placed in any kind of reliable location.
  36.   Now, the strings are rotated about their justification point.  See 
  37.   the man page.
  38.  
  39. - Added an optional argument to copygraph, copystring and copycurve.
  40.  
  41. - I received a request to put error bars into jgraph.  I don't really
  42.   have the time to do this right now.  Until I get around to it (if ever),
  43.   I've provided a way to get them using awk and the shell command.  This
  44.   is in the example etst.jgr, etc.  This is a powerful technique, so 
  45.   check it out.
  46.  
  47. This should be the last major patch for a while unless there are 
  48. important bug fixes.  As always, send me your questions/comments/bug
  49. reports.
  50.  
  51. (read the README to answer questions about where to get jgraph, etc.)
  52.  
  53. Jim
  54.  
  55. Patch from 7.2:
  56.  
  57. *** ../work/README    Tue Feb  4 12:27:44 1992
  58. --- README    Tue Feb  4 12:24:06 1992
  59. ***************
  60. *** 1,4 ****
  61. ! $Revision: 7.2 $
  62.   
  63.   Jgraph takes the description of a graph or graphs in the standard
  64.   input, and produces a postscript file on the standard output.  Jgraph
  65. --- 1,4 ----
  66. ! $Revision: 7.3 $
  67.   
  68.   Jgraph takes the description of a graph or graphs in the standard
  69.   input, and produces a postscript file on the standard output.  Jgraph
  70. *** ../work/draw.c    Tue Feb  4 12:27:46 1992
  71. --- draw.c    Tue Feb  4 12:24:07 1992
  72. ***************
  73. *** 1,7 ****
  74.   /* 
  75.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/draw.c,v $
  76. !  * $Revision: 7.2 $
  77. !  * $Date: 92/01/27 12:55:44 $
  78.    * $Author: jsp $
  79.    */
  80.   
  81. --- 1,7 ----
  82.   /* 
  83.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/draw.c,v $
  84. !  * $Revision: 7.3 $
  85. !  * $Date: 92/02/04 12:20:48 $
  86.    * $Author: jsp $
  87.    */
  88.   
  89. ***************
  90. *** 56,62 ****
  91.     orientation = (a->is_x) ? 'x' : 'y';
  92.     setlinewidth(1.0);
  93.     comment("Drawing Axis");
  94. !   printf("gsave %f setgray\n", a->gray);
  95.     if (a->draw_axis_line) {
  96.       printline(0.0, a->draw_at, a->psize, a->draw_at, orientation);
  97.     }
  98. --- 56,63 ----
  99.     orientation = (a->is_x) ? 'x' : 'y';
  100.     setlinewidth(1.0);
  101.     comment("Drawing Axis");
  102. !   gsave();
  103. !   printf("%f setgray\n", a->gray);
  104.     if (a->draw_axis_line) {
  105.       printline(0.0, a->draw_at, a->psize, a->draw_at, orientation);
  106.     }
  107. ***************
  108. *** 89,95 ****
  109.       comment("Drawing Axis Label");
  110.       draw_label(a->label);
  111.     }
  112. !   printf("  grestore\n");
  113.   }
  114.   
  115.   
  116. --- 90,97 ----
  117.       comment("Drawing Axis Label");
  118.       draw_label(a->label);
  119.     }
  120. !   grestore();
  121. !   printf("\n");
  122.   }
  123.   
  124.   
  125. ***************
  126. *** 117,128 ****
  127.   {
  128.     Curve c;
  129.   
  130. !   printf("gsave\n");
  131.     if (g->clip) set_clip(g);
  132.     for(c = first(g->curves); c != nil(g->curves); c = next(c)) {
  133.       draw_curve(c, g);
  134.     }
  135. !   printf(" grestore\n");
  136.   }
  137.   
  138.   draw_curve(c, g)
  139. --- 119,132 ----
  140.   {
  141.     Curve c;
  142.   
  143. !   gsave();
  144. !   printf("\n");
  145.     if (g->clip) set_clip(g);
  146.     for(c = first(g->curves); c != nil(g->curves); c = next(c)) {
  147.       draw_curve(c, g);
  148.     }
  149. !   grestore();
  150. !   printf("\n");
  151.   }
  152.   
  153.   draw_curve(c, g)
  154. ***************
  155. *** 133,139 ****
  156.     int i, j;
  157.      float this_x, this_y, last_x, last_y;
  158.   
  159. !   printf("gsave %f setgray\n", c->gray);
  160.     if (c->clip) set_clip(g);
  161.     comment("Drawing Curve");
  162.     if (c->linetype != '0') {
  163. --- 137,144 ----
  164.     int i, j;
  165.      float this_x, this_y, last_x, last_y;
  166.   
  167. !   gsave();
  168. !   printf("%f setgray\n", c->gray);
  169.     if (c->clip) set_clip(g);
  170.     comment("Drawing Curve");
  171.     if (c->linetype != '0') {
  172. ***************
  173. *** 199,205 ****
  174.       last_y = this_y;  
  175.       i = (i + 1) % 3;
  176.     }
  177. !   printf("     grestore\n");
  178.   }
  179.   
  180.   draw_mark(x, y, c, g)
  181. --- 204,211 ----
  182.       last_y = this_y;  
  183.       i = (i + 1) % 3;
  184.     }
  185. !   grestore();
  186. !   printf("\n");
  187.   }
  188.   
  189.   draw_mark(x, y, c, g)
  190. ***************
  191. *** 304,315 ****
  192.     dy = y1 - y2;
  193.     if (dx == 0.0 && dy == 0.0) return;
  194.   
  195. !   printf("gsave %f %f translate %f %f atan rotate\n", x1, y1, dy, dx);
  196.     start_poly(0.0, 0.0);
  197.     cont_poly(-(c->asize[0]), (c->asize[1]));
  198.     cont_poly(-(c->asize[0]), -(c->asize[1]));
  199.     end_poly(c->fill);
  200. !   printf("      grestore\n");
  201.   }
  202.   
  203.   draw_legend(g)
  204. --- 310,323 ----
  205.     dy = y1 - y2;
  206.     if (dx == 0.0 && dy == 0.0) return;
  207.   
  208. !   gsave();
  209. !   printf("%f %f translate %f %f atan rotate\n", x1, y1, dy, dx);
  210.     start_poly(0.0, 0.0);
  211.     cont_poly(-(c->asize[0]), (c->asize[1]));
  212.     cont_poly(-(c->asize[0]), -(c->asize[1]));
  213.     end_poly(c->fill);
  214. !   grestore();
  215. !   printf("\n");
  216.   }
  217.   
  218.   draw_legend(g)
  219. ***************
  220. *** 325,331 ****
  221.     if (l->type == 'n') return;
  222.     for (c = first(g->curves); c != nil(g->curves); c = next(c)) {
  223.       if (c->l->label != CNULL) {
  224. !       printf("gsave %f setgray\n", c->gray);
  225.         y = c->l->y - (c->l->fontsize / 2.0 * FCPI / FPPI);
  226.         if (l->anylines) {
  227.           if (c->linetype != '0' && l->linelength != 0) {
  228. --- 333,340 ----
  229.     if (l->type == 'n') return;
  230.     for (c = first(g->curves); c != nil(g->curves); c = next(c)) {
  231.       if (c->l->label != CNULL) {
  232. !       gsave();
  233. !       printf("%f setgray\n", c->gray);
  234.         y = c->l->y - (c->l->fontsize / 2.0 * FCPI / FPPI);
  235.         if (l->anylines) {
  236.           if (c->linetype != '0' && l->linelength != 0) {
  237. ***************
  238. *** 350,356 ****
  239.         } else {
  240.           draw_mark(x, y, c, g);
  241.         }
  242. !       printf("grestore\n");
  243.         draw_label(c->l);
  244.       }
  245.     }
  246. --- 359,366 ----
  247.         } else {
  248.           draw_mark(x, y, c, g);
  249.         }
  250. !       grestore();
  251. !       printf("\n");
  252.         draw_label(c->l);
  253.       }
  254.     }
  255. ***************
  256. *** 433,438 ****
  257. --- 443,450 ----
  258.     }
  259.     printf("1 setlinecap 1 setlinejoin\n");
  260.     printf("0.700 setlinewidth\n");
  261. +   gsave();
  262. +   setfont("Times-Roman", 9.00);
  263.   }
  264.   
  265.   draw_footer(gs, pp)
  266. ***************
  267. *** 440,444 ****
  268. --- 452,457 ----
  269.   int pp;
  270.   {
  271.     printf("$F2psEnd\n");
  272. +   grestore();
  273.     if (pp) printf("showpage\n");
  274.   }
  275. *** ../work/edit.c    Tue Feb  4 12:27:47 1992
  276. --- edit.c    Tue Feb  4 12:24:07 1992
  277. ***************
  278. *** 1,7 ****
  279.   /* 
  280.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/edit.c,v $
  281. !  * $Revision: 7.2 $
  282. !  * $Date: 92/01/27 12:55:45 $
  283.    * $Author: jsp $
  284.    */
  285.   
  286. --- 1,7 ----
  287.   /* 
  288.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/edit.c,v $
  289. !  * $Revision: 7.3 $
  290. !  * $Date: 92/02/04 12:20:49 $
  291.    * $Author: jsp $
  292.    */
  293.   
  294. ***************
  295. *** 147,175 ****
  296.     Curve lastc, newc;
  297.     Graph oldg;
  298.     Graphs oldgs;
  299.   
  300. !   oldg = g;
  301. !   oldgs = gs;
  302. ! 
  303. !   while(gs != nil(all_gs)) {
  304. !     if (gs != oldgs) g = last(gs->g);
  305. !     while(g != nil(gs->g)) {
  306. !       if (first(g->curves) == nil(g->curves)) g = prev(g);
  307. !       else {
  308. !         lastc = last(g->curves);
  309. !         if (first(oldg->curves) == nil(oldg->curves))
  310. !           newc = new_curve(oldg->curves, 0);
  311. !         else newc = new_curve(oldg->curves, last(oldg->curves)->num + 1);
  312.           copy_curve(newc, lastc);
  313.           return newc;
  314.         }
  315.       }
  316. -     gs = prev(gs);
  317.     }
  318. -   
  319. -   error_header(); 
  320. -   fprintf(stderr, "Cannot perform copycurve on first curve\n");
  321. -   exit(1);
  322.     return newc; /* To shut lint up */
  323.   }
  324.   
  325. --- 147,194 ----
  326.     Curve lastc, newc;
  327.     Graph oldg;
  328.     Graphs oldgs;
  329. +   int num;
  330.   
  331. !   if (!getint(&num)) {
  332. !     rejecttoken();
  333. !     oldg = g;
  334. !     oldgs = gs;
  335. !     while(gs != nil(all_gs)) {
  336. !       if (gs != oldgs) g = last(gs->g);
  337. !       while(g != nil(gs->g)) {
  338. !         if (first(g->curves) == nil(g->curves)) g = prev(g);
  339. !         else {
  340. !           lastc = last(g->curves);
  341. !           if (first(oldg->curves) == nil(oldg->curves))
  342. !             newc = new_curve(oldg->curves, 0);
  343. !           else newc = new_curve(oldg->curves, last(oldg->curves)->num + 1);
  344. !           copy_curve(newc, lastc);
  345. !           return newc;
  346. !         }
  347. !       }
  348. !       gs = prev(gs);
  349. !     }
  350. !     error_header(); 
  351. !     fprintf(stderr, "Cannot perform copycurve on first curve\n");
  352. !     exit(1);
  353. !   } else {
  354. !     if (first(g->curves) == nil(g->curves))
  355. !       newc = new_curve(g->curves, 0);
  356. !     else newc = new_curve(g->curves, last(g->curves)->num + 1);
  357. !     lastc = g->curves; 
  358. !     while(1) {
  359. !       lastc = prev(lastc);
  360. !       if (lastc == nil(g->curves) || lastc->num < num) {
  361. !         error_header(); 
  362. !         fprintf(stderr, "copycurve: curve #%d not found\n", num);
  363. !         exit(1);
  364. !       }
  365. !       if (lastc->num == num) {
  366.           copy_curve(newc, lastc);
  367.           return newc;
  368.         }
  369.       }
  370.     }
  371.     return newc; /* To shut lint up */
  372.   }
  373.   
  374. ***************
  375. *** 181,213 ****
  376.     String lastl, newl;
  377.     Graph oldg;
  378.     Graphs oldgs;
  379.   
  380. !   oldg = g;
  381. !   oldgs = gs;
  382. ! 
  383. !   while(gs != nil(all_gs)) {
  384. !     if (gs != oldgs) g = last(gs->g);
  385. !     while(g != nil(gs->g)) {
  386. !       if (first(g->strings) == nil(g->strings)) g = prev(g);
  387. !       else {
  388. !         lastl = last(g->strings);
  389. !         if (first(oldg->strings) == nil(oldg->strings))
  390. !           newl = new_string(oldg->strings, 0);
  391. !         else newl = new_string(oldg->strings, last(oldg->strings)->num + 1);
  392.           copy_label(newl->s, lastl->s);
  393.           return newl->s;
  394.         }
  395.       }
  396. -     gs = prev(gs);
  397.     }
  398. -   
  399. -   error_header(); 
  400. -   fprintf(stderr, "Cannot perform copystring on first curve\n");
  401. -   exit(1);
  402. -   return newl->s; /* To shut lint up */
  403.   }
  404.   
  405. ! inherit_axes(g, gs, all_gs)
  406.   Graph g;
  407.   Graphs gs;
  408.   Graphs all_gs;
  409. --- 200,251 ----
  410.     String lastl, newl;
  411.     Graph oldg;
  412.     Graphs oldgs;
  413. +   int num;
  414.   
  415. !   if (!getint(&num)) {
  416. !     rejecttoken();
  417. !     oldgs = gs;
  418. !     oldg = g;
  419. !     while(gs != nil(all_gs)) {
  420. !       if (gs != oldgs) g = last(gs->g);
  421. !       while(g != nil(gs->g)) {
  422. !         if (first(g->strings) == nil(g->strings)) g = prev(g);
  423. !         else {
  424. !           lastl = last(g->strings);
  425. !           if (first(oldg->strings) == nil(oldg->strings))
  426. !             newl = new_string(oldg->strings, 0);
  427. !           else newl = new_string(oldg->strings, last(oldg->strings)->num + 1);
  428. !           copy_label(newl->s, lastl->s);
  429. !           return newl->s;
  430. !         }
  431. !       }
  432. !       gs = prev(gs);
  433. !     }
  434. !     error_header(); 
  435. !     fprintf(stderr, "Cannot perform copystring on first string\n");
  436. !     exit(1);
  437. !     return newl->s; /* To shut lint up */
  438. !   } else {
  439. !     if (first(g->strings) == nil(g->strings))
  440. !       newl = new_string(g->strings, 0);
  441. !     else newl = new_string(g->strings, last(g->strings)->num + 1);
  442. !     lastl = g->strings; 
  443. !     while(1) {
  444. !       lastl = prev(lastl);
  445. !       if (lastl == nil(g->strings) || lastl->num < num) {
  446. !         error_header(); 
  447. !         fprintf(stderr, "copystring: string #%d not found\n", num);
  448. !         exit(1);
  449. !       }
  450. !       if (lastl->num == num) {
  451.           copy_label(newl->s, lastl->s);
  452.           return newl->s;
  453.         }
  454.       }
  455.     }
  456.   }
  457.   
  458. ! Graph last_graph(g, gs, all_gs)
  459.   Graph g;
  460.   Graphs gs;
  461.   Graphs all_gs;
  462. ***************
  463. *** 214,219 ****
  464. --- 252,258 ----
  465.   {
  466.     Graph lastg;
  467.   
  468. + 
  469.     lastg = prev(g);
  470.     while(lastg == nil(gs->g)) {
  471.       if (prev(gs) == nil(all_gs)) {
  472. ***************
  473. *** 225,231 ****
  474. --- 264,276 ----
  475.         lastg = last(gs->g);
  476.       }
  477.     }
  478. +   return lastg;
  479. + }
  480.   
  481. + inherit_axes(g, lastg)
  482. + Graph g;
  483. + Graph lastg;
  484. + {
  485.     copy_axis(g->x_axis, lastg->x_axis);
  486.     copy_axis(g->y_axis, lastg->y_axis);
  487.     g->x_translate = lastg->x_translate;
  488. ***************
  489. *** 608,614 ****
  490.       } else if (strcmp(inp_str, "copystring") == 0) {
  491.         edit_label(do_copy_string(g, gs, all_gs));
  492.       } else if (strcmp(inp_str, "inherit_axes") == 0) {
  493. !       inherit_axes(g, gs, all_gs);
  494.       } else if (strcmp(inp_str, "Y") == 0) {
  495.         if (!getfloat(&f)) rejecttoken(); else gs->height = f;
  496.       } else if (strcmp(inp_str, "X") == 0) {
  497. --- 653,659 ----
  498.       } else if (strcmp(inp_str, "copystring") == 0) {
  499.         edit_label(do_copy_string(g, gs, all_gs));
  500.       } else if (strcmp(inp_str, "inherit_axes") == 0) {
  501. !       inherit_axes(g, last_graph(g, gs, all_gs));
  502.       } else if (strcmp(inp_str, "Y") == 0) {
  503.         if (!getfloat(&f)) rejecttoken(); else gs->height = f;
  504.       } else if (strcmp(inp_str, "X") == 0) {
  505. ***************
  506. *** 632,641 ****
  507.   Graphs gs;
  508.   {
  509.     Graphs the_g;
  510. !   Graph g;
  511.     char inp_str[80];
  512.     float f;
  513. !   int num, i;
  514.   
  515.     the_g = first(gs);
  516.     while ( getstring(inp_str) ) {
  517. --- 677,686 ----
  518.   Graphs gs;
  519.   {
  520.     Graphs the_g;
  521. !   Graph g, tmp_g;
  522.     char inp_str[80];
  523.     float f;
  524. !   int num, i, ok;
  525.   
  526.     the_g = first(gs);
  527.     while ( getstring(inp_str) ) {
  528. ***************
  529. *** 653,659 ****
  530.         if (first(the_g->g) == nil(the_g->g))
  531.           g = new_graph(the_g->g, 0);
  532.         else g = new_graph(the_g->g, last(the_g->g)->num + 1);
  533. !       inherit_axes(g, the_g, gs);
  534.         edit_graph(g, the_g, gs);
  535.       } else if (strcmp(inp_str, "Y") == 0) {
  536.         if (!getfloat(&f)) rejecttoken(); else the_g->height = f;
  537. --- 698,720 ----
  538.         if (first(the_g->g) == nil(the_g->g))
  539.           g = new_graph(the_g->g, 0);
  540.         else g = new_graph(the_g->g, last(the_g->g)->num + 1);
  541. !       if (!getint(&num)) {
  542. !         rejecttoken();
  543. !         inherit_axes(g, last_graph(g, the_g, gs));
  544. !       } else {
  545. !         ok = 0;
  546. !         tmp_g = the_g->g;
  547. !         while(!ok) {
  548. !           tmp_g = prev(tmp_g);
  549. !           if (tmp_g == nil(the_g->g) || tmp_g->num < num) {
  550. !             error_header();
  551. !             fprintf(stderr, "copygraph: no graph #%d\n", num);
  552. !             exit(1);
  553. !           }
  554. !           ok = (tmp_g->num == num);
  555. !         }
  556. !         inherit_axes(g, tmp_g);
  557. !       }
  558.         edit_graph(g, the_g, gs);
  559.       } else if (strcmp(inp_str, "Y") == 0) {
  560.         if (!getfloat(&f)) rejecttoken(); else the_g->height = f;
  561. *** /dev/null    Tue Feb  4 12:14:21 1992
  562. --- epts.awk    Tue Feb  4 12:24:22 1992
  563. ***************
  564. *** 0 ****
  565. --- 1,11 ----
  566. + BEGIN    { l = 0 ; }
  567. +     { if (l == 0) {\
  568. +         l = 1; \
  569. +         c1 = $1; \
  570. +           } else { \
  571. +         printf("  curve %d pts %f %f\n", c1, $1, $2); \
  572. +         printf("  copycurve pts %f %f  %f %f\n", \
  573. +               $1, $2 - $3/2.0, $1, $2 + $3/2.0); \
  574. +           } \
  575. +         }
  576. +           
  577. *** /dev/null    Tue Feb  4 12:14:21 1992
  578. --- etst.jgr    Tue Feb  4 12:24:16 1992
  579. ***************
  580. *** 0 ****
  581. --- 1,10 ----
  582. + newgraph
  583. + 
  584. + xaxis min 0 max 100 size 6 hash 20 mhash 1
  585. + yaxis min 0 max 100 size 8 hash 10 mhash 1
  586. + 
  587. + curve 0 marktype circle fill 0 linetype dashed
  588. + curve 1 marktype cross marksize 1 0 linetype solid
  589. + 
  590. + shell 
  591. + : ( echo "0" ; cat etst.pts ) | awk -f epts.awk
  592. *** /dev/null    Tue Feb  4 12:14:21 1992
  593. --- etst.pts    Tue Feb  4 12:24:20 1992
  594. ***************
  595. *** 0 ****
  596. --- 1,11 ----
  597. + 0 0 0
  598. + 10 30 5
  599. + 20 60 20
  600. + 30 5 2
  601. + 40 10 10
  602. + 50 20 10
  603. + 60 30 7
  604. + 70 60 30
  605. + 80 80 20
  606. + 90 50 2
  607. + 100 95 10
  608. *** ../work/jgraph.1    Tue Feb  4 12:27:52 1992
  609. --- jgraph.1    Tue Feb  4 12:24:15 1992
  610. ***************
  611. *** 7,12 ****
  612. --- 7,13 ----
  613.   .B jgraph 
  614.   [\-\fIp\fR\|]
  615.   [\-\fIP\fR\|]
  616. + [\-\fIcomments\fR\|]
  617.   .SH DESCRIPTION
  618.   \fBJgraph\fR
  619.   takes the description of a graph or graphs in the standard
  620. ***************
  621. *** 88,93 ****
  622. --- 89,99 ----
  623.   with all the defaults made explicit.  This is useful for letting the
  624.   user do his/her own special formatting, as it shows the explicit
  625.   values that the defaults assume, so that they can be manipulated.
  626. + .TP
  627. + .B \-comments
  628. + This option makes jgraph put comments into the output postscript.  These
  629. + make it easier for the user to wade through the final postscript if 
  630. + necessary. 
  631.   .SH THE DESCRIPTION LANGUAGE
  632.   The description language is essentially keywords followed by
  633.   attributes.  All keywords and attributes except for string attributes
  634. ***************
  635. *** 200,220 ****
  636.   where n=0 if this is the first graph, otherwise n=m+1, where m is the
  637.   largest number of any graph so far.
  638.   .TP
  639. ! .B copygraph
  640.   This creates a new graph, and copies all the attributes from the
  641. ! previous graph's x and y axes, as well as the x_translate and 
  642. ! y_translate values, and the clipping. 
  643. ! (Actually, this is a little bit of a lie, as it does not copy the
  644. ! values of the 
  645. ! \fB\fIhash_at\fB, \fImhash_at\fB,\fR
  646. ! and 
  647. ! \fB\fI\fIhash_label\fB\fR 
  648. ! attributes). 
  649. ! The previous graph is defined to be the graph with the largest number 
  650.   less than the currrent graph's number.  If the current 
  651.   graph has the smallest number, then it will take the last graph from 
  652.   the previous page of graphs.  If there is no previous page, then an 
  653.   error will be flagged.
  654.   .TP
  655.   .B newpage
  656.   This command is for plotting graphs on multiple pages.  After a 
  657. --- 206,230 ----
  658.   where n=0 if this is the first graph, otherwise n=m+1, where m is the
  659.   largest number of any graph so far.
  660.   .TP
  661. ! \fBcopygraph \|[\fIinteger\fB\|]\fR
  662.   This creates a new graph, and copies all the attributes from the
  663. ! graph
  664. ! \fB\|[\fIinteger\fB\|]'s\fR
  665. ! x and y axes, as well as its x_translate and 
  666. ! y_translate values, and the clipping.   If the
  667. ! \fB\|[\fIinteger\fB\|]\fR
  668. ! is omitted, then it copies its values from the ``previous''
  669. ! graph, which is 
  670. ! defined to be the graph with the largest number 
  671.   less than the currrent graph's number.  If the current 
  672.   graph has the smallest number, then it will take the last graph from 
  673.   the previous page of graphs.  If there is no previous page, then an 
  674.   error will be flagged.
  675. + (copygraph does not copy the values of the 
  676. + \fB\fIhash_at\fB, \fImhash_at\fB,\fR
  677. + and 
  678. + \fB\fI\fIhash_label\fB\fR 
  679. + attributes). 
  680.   .TP
  681.   .B newpage
  682.   This command is for plotting graphs on multiple pages.  After a 
  683. ***************
  684. *** 323,331 ****
  685.   .fi
  686.   .PP
  687.   .TP
  688. ! \fBcopycurve\fR  
  689.   This starts editing a new curve of the graph, and copies all its 
  690. ! values from last curve in this graph.  If this graph currently has
  691.   no curves, then it searches backwards from the previous graph.
  692.   .TP
  693.   \fBtitle\fR   
  694. --- 333,346 ----
  695.   .fi
  696.   .PP
  697.   .TP
  698. ! \fBcopycurve \|[\fIinteger\fB\|]\fR
  699.   This starts editing a new curve of the graph, and copies all its 
  700. ! values except for the points from curve 
  701. ! \fB\|[\fIinteger.\fB\|]\fR
  702. ! If the 
  703. ! \fB\|[\fIinteger\fB\|]\fR
  704. ! is omitted, then it copies its values from the 
  705. ! last curve in this graph.  If this graph currently has
  706.   no curves, then it searches backwards from the previous graph.
  707.   .TP
  708.   \fBtitle\fR   
  709. ***************
  710. *** 348,354 ****
  711.   .br
  712.   .ns
  713.   .TP
  714. ! \fBcopystring\fR
  715.   \fBString\fR
  716.   and
  717.   \fBcopystring\fR
  718. --- 363,369 ----
  719.   .br
  720.   .ns
  721.   .TP
  722. ! \fBcopystring \|[\fIinteger\fB\|]\fR
  723.   \fBString\fR
  724.   and
  725.   \fBcopystring\fR
  726. ***************
  727. *** 824,836 ****
  728.   \fBrotate \|[\fIfloat\fB\|]\fR   
  729.   This will rotate the string 
  730.   \fB\|[\fIfloat\fB\|] \fR
  731. ! degrees.  At
  732. ! the moment, the only rotations which work cleanly are: 0, 90 & 
  733. ! \fBvjc,\fR
  734. ! -90 and 
  735. ! \fBvjc,\fR
  736. ! and anything else where rotation should be around the left, bottom corner
  737. ! of the string. 
  738.   .PD
  739.   .RE
  740.   .LP
  741. --- 839,851 ----
  742.   \fBrotate \|[\fIfloat\fB\|]\fR   
  743.   This will rotate the string 
  744.   \fB\|[\fIfloat\fB\|] \fR
  745. ! degrees.  The point of rotation is defined by the
  746. ! \fBvj\fR
  747. ! and 
  748. ! \fBhj\fR
  749. ! commands.  For example, to rotate 90 degrees about the center of a string, 
  750. ! one would use
  751. ! \fBvjc hjc rotate 90.\fR
  752.   .PD
  753.   .RE
  754.   .LP
  755. ***************
  756. *** 1201,1204 ****
  757.   .sp
  758.   There may well be loads of other bugs.  Send to jsp@princeton.edu.
  759.   .sp
  760. ! This is $Revision: 7.2 $.
  761. --- 1216,1219 ----
  762.   .sp
  763.   There may well be loads of other bugs.  Send to jsp@princeton.edu.
  764.   .sp
  765. ! This is $Revision: 7.3 $.
  766. *** ../work/jgraph.c    Tue Feb  4 12:27:53 1992
  767. --- jgraph.c    Tue Feb  4 12:24:08 1992
  768. ***************
  769. *** 1,7 ****
  770.   /* 
  771.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.c,v $
  772. !  * $Revision: 7.2 $
  773. !  * $Date: 92/01/27 12:55:50 $
  774.    * $Author: jsp $
  775.    */
  776.   
  777. --- 1,7 ----
  778.   /* 
  779.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.c,v $
  780. !  * $Revision: 7.3 $
  781. !  * $Date: 92/02/04 12:20:57 $
  782.    * $Author: jsp $
  783.    */
  784.   
  785. ***************
  786. *** 271,276 ****
  787. --- 271,277 ----
  788.     Graphs gs;
  789.     int i;
  790.     int show, pp;
  791. +   int comments;
  792.   
  793.   #ifdef VMS 
  794.     IOSTREAM = stdin;    /* for token.c -hdd */
  795. ***************
  796. *** 277,287 ****
  797. --- 278,292 ----
  798.   #endif
  799.     show = 0;
  800.     pp = 0;
  801. +   comments = 0;
  802. + 
  803.     for (i = 1; i < argc; i++) {
  804.       if (strcmp(argv[i], "-p") == 0) show = 1;
  805. +     if (strcmp(argv[i], "-comments") == 0) comments = 1;
  806.       else if (strcmp(argv[i], "-P") == 0) pp = 1;
  807.     }
  808.     gs = (Graphs) make_list(sizeof(struct graphs));
  809. +   set_comment(comments);
  810.     new_graphs(gs);
  811.     edit_graphs(gs);
  812.     process_graphs(gs);
  813. *** ../work/jgraph.h    Tue Feb  4 12:27:54 1992
  814. --- jgraph.h    Tue Feb  4 12:24:09 1992
  815. ***************
  816. *** 1,7 ****
  817.   /* 
  818.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.h,v $
  819. !  * $Revision: 7.2 $
  820. !  * $Date: 92/01/27 12:55:52 $
  821.    * $Author: jsp $
  822.    */
  823.   
  824. --- 1,7 ----
  825.   /* 
  826.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.h,v $
  827. !  * $Revision: 7.3 $
  828. !  * $Date: 92/02/04 12:21:00 $
  829.    * $Author: jsp $
  830.    */
  831.   
  832. *** ../work/list.c    Tue Feb  4 12:27:54 1992
  833. --- list.c    Tue Feb  4 12:24:10 1992
  834. ***************
  835. *** 1,7 ****
  836.   /* 
  837.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.c,v $
  838. !  * $Revision: 7.2 $
  839. !  * $Date: 92/01/27 12:55:53 $
  840.    * $Author: jsp $
  841.    */
  842.   
  843. --- 1,7 ----
  844.   /* 
  845.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.c,v $
  846. !  * $Revision: 7.3 $
  847. !  * $Date: 92/02/04 12:21:02 $
  848.    * $Author: jsp $
  849.    */
  850.   
  851. *** ../work/list.h    Tue Feb  4 12:27:55 1992
  852. --- list.h    Tue Feb  4 12:24:10 1992
  853. ***************
  854. *** 1,7 ****
  855.   /* 
  856.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.h,v $
  857. !  * $Revision: 7.2 $
  858. !  * $Date: 92/01/27 12:55:54 $
  859.    * $Author: jsp $
  860.    */
  861.   
  862. --- 1,7 ----
  863.   /* 
  864.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.h,v $
  865. !  * $Revision: 7.3 $
  866. !  * $Date: 92/02/04 12:21:04 $
  867.    * $Author: jsp $
  868.    */
  869.   
  870. *** ../work/printline.c    Tue Feb  4 12:27:56 1992
  871. --- printline.c    Tue Feb  4 12:24:10 1992
  872. ***************
  873. *** 1,7 ****
  874.   /* 
  875.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/printline.c,v $
  876. !  * $Revision: 7.2 $
  877. !  * $Date: 92/01/27 12:55:56 $
  878.    * $Author: jsp $
  879.    */
  880.   
  881. --- 1,7 ----
  882.   /* 
  883.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/printline.c,v $
  884. !  * $Revision: 7.3 $
  885. !  * $Date: 92/02/04 12:21:40 $
  886.    * $Author: jsp $
  887.    */
  888.   
  889. ***************
  890. *** 10,24 ****
  891.   
  892.   #define LINEWIDTHFACTOR 0.700
  893.   
  894.   printline(x1, y1,x2, y2, orientation)
  895.   float x1, y1, x2, y2;
  896.   char orientation;
  897.   {
  898.     if (orientation == 'x') 
  899. !     printf("newpath %f %f moveto %f %f lineto stroke\nstroke\n",
  900.             x1, y1, x2, y2);
  901.     else
  902. !     printf("newpath %f %f moveto %f %f lineto stroke\nstroke\n",
  903.             y1, x1, y2, x2);} 
  904.   
  905.   start_line(x1, y1, c)
  906. --- 10,88 ----
  907.   
  908.   #define LINEWIDTHFACTOR 0.700
  909.   
  910. + typedef struct fontlist {
  911. +   struct fontlist *flink;
  912. +   struct fontlist *blink;
  913. +   int level;
  914. +   float s;
  915. +   char *f;
  916. + } *Fontlist;
  917. + 
  918. + static Fontlist Jgraph_fonts;
  919. + static int Jgraph_gsave_level = -100;
  920. + static int Jgraph_comment;
  921. + 
  922. + gsave()
  923. + {
  924. +   if (Jgraph_gsave_level == -100) {
  925. +     Jgraph_gsave_level = 0;
  926. +     Jgraph_fonts = (Fontlist) make_list(sizeof(struct fontlist));
  927. +   } 
  928. +   Jgraph_gsave_level++;
  929. +   printf(" gsave ");
  930. + }
  931. + 
  932. + grestore()
  933. + {
  934. +   Fontlist l;
  935. + 
  936. +   if (last(Jgraph_fonts) != nil(Jgraph_fonts)) {
  937. +     l = last(Jgraph_fonts);
  938. +     if (l->level == Jgraph_gsave_level) {
  939. +       delete_item(l);
  940. +       free_node(l, Jgraph_fonts);
  941. +     }
  942. +   }
  943. +   Jgraph_gsave_level--;
  944. +   printf(" grestore ");
  945. + }
  946. + 
  947. + setfont(f, s)
  948. + char *f;
  949. + float s;
  950. + {
  951. +   Fontlist l;
  952. +   int ins;
  953. + 
  954. +   if (last(Jgraph_fonts) != nil(Jgraph_fonts)) {
  955. +     l = last(Jgraph_fonts);
  956. +     ins = (strcmp(l->f, f) != 0 || s != l->s);
  957. +     if (ins) {
  958. +       delete_item(l);
  959. +       free_node(l, Jgraph_fonts);
  960. +     }
  961. +   } else {
  962. +     ins = 1;
  963. +   }
  964. +   if (ins) {
  965. +     l = (Fontlist) get_node(Jgraph_fonts);
  966. +     l->level = Jgraph_gsave_level;
  967. +     l->s = s;
  968. +     l->f = f;
  969. +     insert(l, Jgraph_fonts);
  970. +     printf("/%s findfont %f scalefont setfont\n", f, s);
  971. +   }
  972. + }
  973. +   
  974.   printline(x1, y1,x2, y2, orientation)
  975.   float x1, y1, x2, y2;
  976.   char orientation;
  977.   {
  978.     if (orientation == 'x') 
  979. !     printf("newpath %f %f moveto %f %f lineto stroke\n",
  980.             x1, y1, x2, y2);
  981.     else
  982. !     printf("newpath %f %f moveto %f %f lineto stroke\n",
  983.             y1, x1, y2, x2);} 
  984.   
  985.   start_line(x1, y1, c)
  986. ***************
  987. *** 38,44 ****
  988.   
  989.   end_line()
  990.   {
  991. !   printf("stroke\n stroke\n");
  992.     setlinewidth(1.0);
  993.     setlinestyle('s', (Flist) 0);
  994.   
  995. --- 102,108 ----
  996.   
  997.   end_line()
  998.   {
  999. !   printf("stroke\n");
  1000.     setlinewidth(1.0);
  1001.     setlinestyle('s', (Flist) 0);
  1002.   
  1003. ***************
  1004. *** 74,81 ****
  1005.   {
  1006.     if (fill < 0.0) printf("closepath stroke\n");
  1007.     else {
  1008. !     printf("closepath gsave  %f setgray ", fill);
  1009. !     printf("fill grestore stroke\n");
  1010.     }
  1011.   }
  1012.   
  1013. --- 138,146 ----
  1014.   {
  1015.     if (fill < 0.0) printf("closepath stroke\n");
  1016.     else {
  1017. !     printf("closepath gsave");
  1018. !     printf(" %f setgray fill ", fill);
  1019. !     printf("grestore stroke\n");
  1020.     }
  1021.   }
  1022.   
  1023. ***************
  1024. *** 88,97 ****
  1025.       else printf("gsave  %f setgray fill grestore stroke\n", fill);
  1026.   }
  1027.   
  1028.   comment(s)
  1029.   char *s;
  1030.   {
  1031. !   printf("%% %s\n", s);
  1032.   }
  1033.   
  1034.   printline_c(x1, y1, x2, y2, g)
  1035. --- 153,168 ----
  1036.       else printf("gsave  %f setgray fill grestore stroke\n", fill);
  1037.   }
  1038.   
  1039. + set_comment(c)
  1040. + int c;
  1041. + {
  1042. +   Jgraph_comment = c;
  1043. + }
  1044. + 
  1045.   comment(s)
  1046.   char *s;
  1047.   {
  1048. !   if (Jgraph_comment) printf("%% %s\n", s);
  1049.   }
  1050.   
  1051.   printline_c(x1, y1, x2, y2, g)
  1052. ***************
  1053. *** 111,138 ****
  1054.   char *font;
  1055.   float size;
  1056.   {
  1057. !   printf("/%s findfont %f scalefont setfont\n", font, size);
  1058.     printf("%f %f moveto\n", x, y);
  1059.     printf("(%s)", s);
  1060. !   if (r == 90.0 && vj == 'c') {
  1061. !     if (hj == 'c') printf("%f 0 rmoveto ", -size * FCPI / FPPI / 2.0);
  1062. !     printf("dup stringwidth pop 2 div neg 0 exch rmoveto ");
  1063. !   } else if (r == -90.0 && vj == 'c') {
  1064. !     if (hj == 'c') printf("%f 0 rmoveto ", -size * FCPI / FPPI / 2.0);
  1065. !     printf("dup stringwidth pop 2 div 0 exch rmoveto ");
  1066. !   } else {
  1067. !     if (hj == 'c') {
  1068. !       printf("dup stringwidth pop 2 div neg 0 rmoveto ");
  1069. !     } else if (hj == 'r') {
  1070. !       printf("dup stringwidth pop neg 0 rmoveto ");
  1071. !     }
  1072. !     if (vj == 'c') {
  1073. !       printf("0 %f rmoveto ", -size * FCPI / FPPI / 2.0);
  1074. !     } else if (vj == 't') {
  1075. !       printf("0 %f rmoveto ", -size * FCPI / FPPI);
  1076. !     }
  1077.     }
  1078. !   printf(" gsave  %f rotate show grestore\n", r);
  1079.   }
  1080.   
  1081.   setlinewidth(size)
  1082. --- 182,202 ----
  1083.   char *font;
  1084.   float size;
  1085.   {
  1086. !   setfont(font, size);
  1087.     printf("%f %f moveto\n", x, y);
  1088. +   printf(" gsave  %f rotate \n", r);
  1089.     printf("(%s)", s);
  1090. !   if (hj == 'c') {
  1091. !     printf("dup stringwidth pop 2 div neg 0 rmoveto ");
  1092. !   } else if (hj == 'r') {
  1093. !     printf("dup stringwidth pop neg 0 rmoveto ");
  1094.     }
  1095. !   if (vj == 'c') {
  1096. !     printf("0 %f rmoveto ", -size * FCPI / FPPI / 2.0);
  1097. !   } else if (vj == 't') {
  1098. !     printf("0 %f rmoveto ", -size * FCPI / FPPI);
  1099. !   }
  1100. !   printf("show grestore\n", r);
  1101.   }
  1102.   
  1103.   setlinewidth(size)
  1104. *** ../work/prio_list.c    Tue Feb  4 12:27:57 1992
  1105. --- prio_list.c    Tue Feb  4 12:24:11 1992
  1106. ***************
  1107. *** 1,7 ****
  1108.   /* 
  1109.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.c,v $
  1110. !  * $Revision: 7.2 $
  1111. !  * $Date: 92/01/27 12:55:57 $
  1112.    * $Author: jsp $
  1113.    */
  1114.   
  1115. --- 1,7 ----
  1116.   /* 
  1117.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.c,v $
  1118. !  * $Revision: 7.3 $
  1119. !  * $Date: 92/02/04 12:21:41 $
  1120.    * $Author: jsp $
  1121.    */
  1122.   
  1123. *** ../work/prio_list.h    Tue Feb  4 12:27:57 1992
  1124. --- prio_list.h    Tue Feb  4 12:24:11 1992
  1125. ***************
  1126. *** 1,7 ****
  1127.   /* 
  1128.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.h,v $
  1129. !  * $Revision: 7.2 $
  1130. !  * $Date: 92/01/27 12:55:58 $
  1131.    * $Author: jsp $
  1132.    */
  1133.   
  1134. --- 1,7 ----
  1135.   /* 
  1136.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.h,v $
  1137. !  * $Revision: 7.3 $
  1138. !  * $Date: 92/02/04 12:21:42 $
  1139.    * $Author: jsp $
  1140.    */
  1141.   
  1142. *** ../work/process.c    Tue Feb  4 12:27:58 1992
  1143. --- process.c    Tue Feb  4 12:24:12 1992
  1144. ***************
  1145. *** 1,7 ****
  1146.   /* 
  1147.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/process.c,v $
  1148. !  * $Revision: 7.2 $
  1149. !  * $Date: 92/01/27 12:55:59 $
  1150.    * $Author: jsp $
  1151.    */
  1152.   
  1153. --- 1,7 ----
  1154.   /* 
  1155.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/process.c,v $
  1156. !  * $Revision: 7.3 $
  1157. !  * $Date: 92/02/04 12:21:43 $
  1158.    * $Author: jsp $
  1159.    */
  1160.   
  1161. ***************
  1162. *** 16,21 ****
  1163. --- 16,23 ----
  1164.   #define AXIS_CHAR(a) ((a->is_x) ? 'x' : 'y')
  1165.   #define HASH_DIR(a) ((a->hash_scale > 0.0) ? 1 : -1)
  1166.   
  1167. + static double Pi;
  1168. + 
  1169.   process_title(g)
  1170.   Graph g;
  1171.   {
  1172. ***************
  1173. *** 476,481 ****
  1174. --- 478,484 ----
  1175.   {
  1176.     Curve c;
  1177.     float y, x;
  1178. +   String s;
  1179.   
  1180.     g->xminval = 0.0;
  1181.     g->yminval = 0.0;
  1182. ***************
  1183. *** 489,497 ****
  1184.                       g->x_axis->label->fontsize);
  1185.     }
  1186.     if (g->y_axis->draw_axis_label) {
  1187. !     g->xminval = MIN(g->xminval, g->y_axis->label->y - 
  1188.                       g->y_axis->label->fontsize);
  1189. !     g->xmaxval = MAX(g->xmaxval, g->y_axis->label->y + 
  1190.                       g->y_axis->label->fontsize);
  1191.     }
  1192.   
  1193. --- 492,500 ----
  1194.                       g->x_axis->label->fontsize);
  1195.     }
  1196.     if (g->y_axis->draw_axis_label) {
  1197. !     g->xminval = MIN(g->xminval, g->y_axis->label->x - 
  1198.                       g->y_axis->label->fontsize);
  1199. !     g->xmaxval = MAX(g->xmaxval, g->y_axis->label->x + 
  1200.                       g->y_axis->label->fontsize);
  1201.     }
  1202.   
  1203. ***************
  1204. *** 545,550 ****
  1205. --- 548,556 ----
  1206.         }
  1207.       }
  1208.     }
  1209. +   for(s = first(g->strings); s != nil(g->strings); s = next(s)) {
  1210. +     process_label_extrema(s->s, g);
  1211. +   }
  1212.   }
  1213.   
  1214.   process_label_extrema(l, g)
  1215. ***************
  1216. *** 551,588 ****
  1217.   Label l;
  1218.   Graph g;
  1219.   {
  1220. !   float len;
  1221. !   float height;
  1222.   
  1223.     len = l->fontsize * FCPI / FPPI * strlen(l->label) * 0.8;
  1224.     height = l->fontsize * FCPI / FPPI;
  1225. !   if (l->rotate == 0.0 || l->rotate == 180.0 || l->rotate == -180.0) {
  1226. !     if (l->hj == 'l') {
  1227. !       g->xminval = MIN(g->xminval, l->x);
  1228. !       g->xmaxval = MAX(g->xmaxval, l->x + len);
  1229. !     } else if (l->hj == 'c') {
  1230. !       g->xminval = MIN(g->xminval, l->x - len/2.0);
  1231. !       g->xmaxval = MAX(g->xmaxval, l->x + len/2.0);
  1232. !     } else if (l->hj == 'r') {
  1233. !       g->xminval = MIN(g->xminval, l->x - len);
  1234. !       g->xmaxval = MAX(g->xmaxval, l->x);
  1235. !     }
  1236. !     if (l->vj == 'b') {
  1237. !       g->yminval = MIN(g->yminval, l->y);
  1238. !       g->ymaxval = MAX(g->ymaxval, l->y + height);
  1239. !     } else if (l->vj == 'c') {
  1240. !       g->yminval = MIN(g->yminval, l->y - height/2.0);
  1241. !       g->ymaxval = MAX(g->ymaxval, l->y + height/2.0);
  1242. !     } else if (l->vj == 't') {
  1243. !       g->yminval = MIN(g->yminval, l->y - height);
  1244. !       g->ymaxval = MAX(g->ymaxval, l->y);
  1245. !     }
  1246. !   } else {         /* This is wrong -- I'm just estimating on the high side */
  1247. !     g->yminval = MIN(g->yminval, l->y - len);
  1248. !     g->ymaxval = MAX(g->ymaxval, l->y + len);
  1249. !     g->xminval = MIN(g->xminval, l->x - len);
  1250. !     g->xmaxval = MAX(g->xmaxval, l->x + len);
  1251.     }
  1252.   }
  1253.   
  1254.   process_graph(g)
  1255. --- 557,610 ----
  1256.   Label l;
  1257.   Graph g;
  1258.   {
  1259. !   float len, height, xlen, ylen, xheight, yheight;
  1260. !   float x, y;
  1261.   
  1262.     len = l->fontsize * FCPI / FPPI * strlen(l->label) * 0.8;
  1263.     height = l->fontsize * FCPI / FPPI;
  1264. !   xlen = len * cos(l->rotate * Pi / 180.00);
  1265. !   ylen = height * cos((l->rotate + 90.0) * Pi / 180.00);
  1266. !   xheight = len * sin(l->rotate * Pi / 180.00);
  1267. !   yheight = height * sin((l->rotate + 90.0) * Pi / 180.00);
  1268. !   
  1269. !   x = l->x;
  1270. !   y = l->y;
  1271. ! 
  1272. !   if (l->hj == 'c') {
  1273. !     x -= xlen / 2.0;
  1274. !     y -= xheight / 2.0;
  1275. !   } else if (l->hj == 'r') {
  1276. !     x -= xlen;
  1277. !     y -= xheight;
  1278.     }
  1279. +   if (l->vj == 'c') {
  1280. +     x -= ylen / 2.0;
  1281. +     y -= yheight / 2.0;
  1282. +   } else if (l->vj == 't') {
  1283. +     x -= ylen;
  1284. +     y -= yheight;
  1285. +   }
  1286. + 
  1287. +   g->xminval = MIN(g->xminval, x);
  1288. +   g->xminval = MIN(g->xminval, x + xlen);
  1289. +   g->xminval = MIN(g->xminval, x + xlen + ylen);
  1290. +   g->xminval = MIN(g->xminval, x + ylen);
  1291. + 
  1292. +   g->yminval = MIN(g->yminval, y);
  1293. +   g->yminval = MIN(g->yminval, y + xheight);
  1294. +   g->yminval = MIN(g->yminval, y + yheight);
  1295. +   g->yminval = MIN(g->yminval, y + xheight + yheight);
  1296. + 
  1297. +   g->xmaxval = MAX(g->xmaxval, x);
  1298. +   g->xmaxval = MAX(g->xmaxval, x + xlen);
  1299. +   g->xmaxval = MAX(g->xmaxval, x + xlen + ylen);
  1300. +   g->xmaxval = MAX(g->xmaxval, x + ylen);
  1301. + 
  1302. +   g->ymaxval = MAX(g->ymaxval, y);
  1303. +   g->ymaxval = MAX(g->ymaxval, y + xheight);
  1304. +   g->ymaxval = MAX(g->ymaxval, y + yheight);
  1305. +   g->ymaxval = MAX(g->ymaxval, y + xheight + yheight);
  1306. + 
  1307.   }
  1308.   
  1309.   process_graph(g)
  1310. ***************
  1311. *** 609,614 ****
  1312. --- 631,637 ----
  1313.     float diff, max_y, min_y, max_x, min_x;
  1314.     int do_bb, i;
  1315.   
  1316. +   Pi = acos(-1.0);
  1317.     for (the_g = first(gs); the_g != nil(gs); the_g = next(the_g)) {
  1318.       for (g = first(the_g->g); g != nil(the_g->g); g = next(g)) process_graph(g);
  1319.       max_x = 0.0;
  1320. *** ../work/show.c    Tue Feb  4 12:28:00 1992
  1321. --- show.c    Tue Feb  4 12:24:13 1992
  1322. ***************
  1323. *** 1,7 ****
  1324.   /* 
  1325.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/show.c,v $
  1326. !  * $Revision: 7.2 $
  1327. !  * $Date: 92/01/27 12:56:02 $
  1328.    * $Author: jsp $
  1329.    */ 
  1330.   
  1331. --- 1,7 ----
  1332.   /* 
  1333.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/show.c,v $
  1334. !  * $Revision: 7.3 $
  1335. !  * $Date: 92/02/04 12:21:46 $
  1336.    * $Author: jsp $
  1337.    */ 
  1338.   
  1339. *** ../work/token.c    Tue Feb  4 12:28:09 1992
  1340. --- token.c    Tue Feb  4 12:24:14 1992
  1341. ***************
  1342. *** 1,7 ****
  1343.   /* 
  1344.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/token.c,v $
  1345. !  * $Revision: 7.2 $
  1346. !  * $Date: 92/01/27 12:56:06 $
  1347.    * $Author: jsp $
  1348.    */
  1349.   
  1350. --- 1,7 ----
  1351.   /* 
  1352.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/token.c,v $
  1353. !  * $Revision: 7.3 $
  1354. !  * $Date: 92/02/04 12:21:47 $
  1355.    * $Author: jsp $
  1356.    */
  1357.   
  1358.  
  1359. exit 0 # Just in case...
  1360.