home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume23 / jgraph / patch06a / patch.6 < prev   
Encoding:
Text File  |  1991-10-22  |  49.9 KB  |  1,864 lines
  1. *** ../work/README    Tue Oct  8 17:36:09 1991
  2. --- README    Tue Oct  8 16:55:20 1991
  3. ***************
  4. *** 1,3 ****
  5. --- 1,5 ----
  6. + $Revision: 6.0 $
  7. + 
  8.   Jgraph takes the description of a graph or graphs in the standard
  9.   input, and produces a postscript file on the standard output.  Jgraph
  10.   is ideal for plotting any mixture of scatter point graphs, line
  11. ***************
  12. *** 8,14 ****
  13.   graphs with a minimum of effort, yet powerful enough to give the user
  14.   the flexibility to tailor the appearance of the graph to his or her
  15.   individual preferences.  This includes plotting multiple graphs and
  16. ! laying them out separately on the page. 
  17.   
  18.   The program is written in C, and shouldn't take anything too fancy
  19.   or machine-dependent.  It has been tested on VAX mipsel's and mipseb's,
  20. --- 10,16 ----
  21.   graphs with a minimum of effort, yet powerful enough to give the user
  22.   the flexibility to tailor the appearance of the graph to his or her
  23.   individual preferences.  This includes plotting multiple graphs and
  24. ! laying them out separately on the page (or pages). 
  25.   
  26.   The program is written in C, and shouldn't take anything too fancy
  27.   or machine-dependent.  It has been tested on VAX mipsel's and mipseb's,
  28. ***************
  29. *** 17,22 ****
  30. --- 19,32 ----
  31.   There is a makefile, a man page (in jgraph.1), source code, and 
  32.   example graphs.
  33.   
  34. + Jgraph is available via anonymous ftp to princeton.edu, in the
  35. + file jgraph.Z.  This file is a compressed shell bundle file.
  36. + 
  37. + There is also a mailing list in which I inform users directly 
  38. + about bug fixes.  This is for those who don't read comp.sources.misc,
  39. + or those who would like to hear about minor bug fixes which I
  40. + haven't posted as a patch to comp.sources.misc.
  41. + 
  42.   Please send me comments and/or bug reports.
  43.   
  44.   Author: Jim Plank
  45. ***************
  46. *** 24,31 ****
  47.   USmail:    Department of Computer Science
  48.       Princeton University
  49.       35 Olden St.
  50. !     Princeton, Nj 08544-2087
  51. !         
  52. ! 
  53. !   
  54. ! 
  55. --- 34,37 ----
  56.   USmail:    Department of Computer Science
  57.       Princeton University
  58.       35 Olden St.
  59. !     Princeton, NJ 08544-2087
  60. *** ../work/descrip.mms    Tue Oct  8 17:36:10 1991
  61. --- descrip.mms    Tue Oct  8 16:55:13 1991
  62. ***************
  63. *** 1,10 ****
  64. ! CC = cc
  65. ! 
  66.   .ifdef DEBUG
  67. ! CFLAGS=/noopt/debug
  68.   LFLAGS=/debug
  69.   .else
  70. ! CFLAGS=
  71.   LFLAGS=
  72.   .endif
  73.   
  74. --- 1,15 ----
  75. ! # VMS MMS makefile
  76. ! #
  77. ! # In the link you will get a warning because of the multiple definition
  78. ! # of exit(). This may be ignored; in order to get MMS completing without
  79. ! # trouble you will have to call MMS as follows:
  80. ! #    $ MMS/IGNORE
  81. ! #
  82.   .ifdef DEBUG
  83. ! CFLAGS=/INCLUDE=(SYS$DISK:[],SYS$SHARE:)/noopt/debug
  84.   LFLAGS=/debug
  85.   .else
  86. ! CFLAGS=/INCLUDE=(SYS$DISK:[],SYS$SHARE:)
  87.   LFLAGS=
  88.   .endif
  89.   
  90. ***************
  91. *** 16,36 ****
  92.           prio_list.obj, \
  93.           process.obj, \
  94.           show.obj, \
  95. !         token.obj
  96.   
  97.   all :    jgraph.exe
  98.       ! done
  99.   
  100. ! .SUFFIXES : .jgr .jps .tex .dvi
  101. ! 
  102. ! .jgr.jps :
  103. !     jgraph < $*.jgr > *.jps
  104. ! 
  105. ! .tex.dvi :
  106. !     latex $*.tex
  107. ! 
  108.   jgraph.exe : $(OBJS)
  109. !     link $(LFLAGS) /exe=jgraph $(OBJS)
  110.   
  111.   ###
  112.   draw.obj :    draw.c jgraph.h list.h prio_list.h
  113. --- 21,37 ----
  114.           prio_list.obj, \
  115.           process.obj, \
  116.           show.obj, \
  117. !         token.obj, \
  118. !         exit.obj
  119.   
  120.   all :    jgraph.exe
  121.       ! done
  122.   
  123. ! # Do not link against the shareable image VAXCRTL.EXE, or you will
  124. ! # miss the reference to the local exit() routine.
  125. ! # EXIT will be reported as being multiply defined - ignore that.
  126.   jgraph.exe : $(OBJS)
  127. !     link $(LFLAGS) /exe=jgraph $(OBJS),sys$library:vaxcrtl/libr
  128.   
  129.   ###
  130.   draw.obj :    draw.c jgraph.h list.h prio_list.h
  131. ***************
  132. *** 42,44 ****
  133. --- 43,46 ----
  134.   process.obj :    process.c jgraph.h list.h prio_list.h
  135.   show.obj :    show.c jgraph.h list.h prio_list.h
  136.   token.obj :    token.c list.h
  137. + exit.obj :    exit.c
  138. *** ../work/draw.c    Tue Oct  8 17:36:11 1991
  139. --- draw.c    Tue Oct  8 16:55:14 1991
  140. ***************
  141. *** 1,7 ****
  142.   /* 
  143.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/draw.c,v $
  144. !  * $Revision: 5.0 $
  145. !  * $Date: 91/05/02 14:45:08 $
  146.    * $Author: jsp $
  147.    */
  148.   
  149. --- 1,7 ----
  150.   /* 
  151.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/draw.c,v $
  152. !  * $Revision: 6.0 $
  153. !  * $Date: 91/10/08 16:53:43 $
  154.    * $Author: jsp $
  155.    */
  156.   
  157. ***************
  158. *** 46,53 ****
  159.   
  160.   #define MAXIMUM(a,b) ((a > b) ? a : b)
  161.   
  162. ! draw_axis(a)
  163. ! Axis a;
  164.   {
  165.     char orientation;
  166.     Hash h;
  167. --- 46,53 ----
  168.   
  169.   #define MAXIMUM(a,b) ((a > b) ? a : b)
  170.   
  171. ! draw_axis(a, other)
  172. ! Axis a, other;
  173.   {
  174.     char orientation;
  175.     Hash h;
  176. ***************
  177. *** 57,70 ****
  178.     setlinewidth(1.0);
  179.     if (a->draw_axis_line) {
  180.       comment("Drawing Axis");
  181.       printline(0.0, a->draw_at, a->psize, a->draw_at, orientation);
  182.     }
  183.     if (a->draw_hash_marks) {
  184.       comment("Drawing Hash Marks");
  185.       for (h = first(a->hash_lines); h != nil(a->hash_lines); h = next(h)) {
  186. !       printline(h->loc, 
  187. !                 a->draw_hash_marks_at, 
  188. !                 h->loc, 
  189.                   a->draw_hash_marks_at + (h->size * a->hash_scale), 
  190.                   orientation);
  191.       }
  192. --- 57,69 ----
  193.     setlinewidth(1.0);
  194.     if (a->draw_axis_line) {
  195.       comment("Drawing Axis");
  196. +     printf("gsave %f setgray\n", a->gray);
  197.       printline(0.0, a->draw_at, a->psize, a->draw_at, orientation);
  198.     }
  199.     if (a->draw_hash_marks) {
  200.       comment("Drawing Hash Marks");
  201.       for (h = first(a->hash_lines); h != nil(a->hash_lines); h = next(h)) {
  202. !       printline(h->loc, a->draw_hash_marks_at, h->loc, 
  203.                   a->draw_hash_marks_at + (h->size * a->hash_scale), 
  204.                   orientation);
  205.       }
  206. ***************
  207. *** 81,90 ****
  208. --- 80,95 ----
  209.         draw_label(a->hl);
  210.       }
  211.     }
  212. +   if (a->grid_lines) {
  213. +     for (h = first(a->hash_lines); h != nil(a->hash_lines); h = next(h)) {
  214. +       printline(h->loc, 0.0, h->loc, other->psize, orientation);
  215. +     }
  216. +   }
  217.     if (a->draw_axis_label) {
  218.       comment("Drawing Axis Label");
  219.       draw_label(a->label);
  220.     }
  221. +   printf("  grestore\n");
  222.   }
  223.   
  224.   
  225. ***************
  226. *** 96,109 ****
  227. --- 101,128 ----
  228.     print_text(l->label, l->x, l->y, l->hj, l->vj, l->rotate, l->font, l->fontsize);
  229.   }
  230.   
  231. + set_clip(g)
  232. + Graph g;
  233. + {
  234. +   comment("Setting Clip");
  235. +   printf("newpath\n");
  236. +   printf(" 0 0 moveto 0 %f lineto %f %f lineto %f 0 lineto\n",
  237. +            g->y_axis->psize, g->x_axis->psize,
  238. +            g->y_axis->psize, g->x_axis->psize);
  239. +   printf("  closepath clip newpath\n");
  240. + }
  241. + 
  242.   draw_curves(g)
  243.   Graph g;
  244.   {
  245.     Curve c;
  246.   
  247. +   printf("gsave\n");
  248. +   if (g->clip) set_clip(g);
  249.     for(c = first(g->curves); c != nil(g->curves); c = next(c)) {
  250.       draw_curve(c, g);
  251.     }
  252. +   printf(" grestore\n");
  253.   }
  254.   
  255.   draw_curve(c, g)
  256. ***************
  257. *** 112,128 ****
  258.   {
  259.     Point p;
  260.     int i;
  261.   
  262.     if (c->linetype != '0') {
  263. -     comment("Drawing Curve Lines");
  264. -     
  265.       i = 0;
  266.       for (p = first(c->pts);
  267.            p != nil(c->pts);
  268.            p = next(p)) {
  269.         if (i == 0) {
  270. !         start_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis), 
  271. !                         c->linethick, c->linetype);
  272.         } else {
  273.           cont_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis));
  274.         } 
  275. --- 131,148 ----
  276.   {
  277.     Point p;
  278.     int i;
  279. +    float this_x, this_y, last_x, last_y;
  280.   
  281. +   printf("gsave %f setgray\n", c->gray);
  282. +   if (c->clip) set_clip(g);
  283. +   comment("Drawing Curve");
  284.     if (c->linetype != '0') {
  285.       i = 0;
  286.       for (p = first(c->pts);
  287.            p != nil(c->pts);
  288.            p = next(p)) {
  289.         if (i == 0) {
  290. !         start_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis), c);
  291.         } else {
  292.           cont_line(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis));
  293.         } 
  294. ***************
  295. *** 138,145 ****
  296.     for (p = first(c->pts);
  297.          p != nil(c->pts);
  298.          p = next(p)) {
  299. !       draw_mark(ctop(p->x, g->x_axis), ctop(p->y, g->y_axis), c, g);
  300.       }
  301.   }
  302.   
  303.   draw_mark(x, y, c, g)
  304. --- 158,176 ----
  305.     for (p = first(c->pts);
  306.          p != nil(c->pts);
  307.          p = next(p)) {
  308. !     this_x = ctop(p->x, g->x_axis);
  309. !     this_y = ctop(p->y, g->y_axis);
  310. !     draw_mark(this_x, this_y, c, g);
  311. !     if (p != first(c->pts)) {
  312. !       if (c->rarrows) 
  313. !         draw_arrow(this_x, this_y, last_x, last_y, c);
  314. !       if (c->larrows) 
  315. !         draw_arrow(last_x, last_y, this_x, this_y, c);
  316.       }
  317. +     last_x = this_x;  
  318. +     last_y = this_y;  
  319. +   }
  320. +   printf("     grestore\n");
  321.   }
  322.   
  323.   draw_mark(x, y, c, g)
  324. ***************
  325. *** 208,213 ****
  326. --- 239,261 ----
  327.     }
  328.   }
  329.   
  330. + draw_arrow(x1, y1, x2, y2, c)
  331. + float x1, y1, x2, y2;
  332. + Curve c;
  333. + {
  334. +   float dx, dy;
  335. +   
  336. +   dx = x1 - x2;
  337. +   dy = y1 - y2;
  338. +   if (dx == 0.0 && dy == 0.0) return;
  339. +   printf("gsave %f %f translate %f %f atan rotate\n", x1, y1, dy, dx);
  340. +   start_poly(0.0, 0.0);
  341. +   cont_poly(-(c->asize[0]), (c->asize[1]));
  342. +   cont_poly(-(c->asize[0]), -(c->asize[1]));
  343. +   end_poly(c->fill);
  344. +   printf("      grestore\n");
  345. + }
  346. + 
  347.   draw_legend(g)
  348.   Graph g;
  349.   {
  350. ***************
  351. *** 220,233 ****
  352.     if (l->type == 'n') return;
  353.     for (c = first(g->curves); c != nil(g->curves); c = next(c)) {
  354.       if (c->l->label != CNULL) {
  355.         y = c->l->y - (c->l->fontsize / 2.0 * FCPI / FPPI);
  356.         if (l->anylines) {
  357. !         if (c->linetype != '0') {
  358.             x = c->l->x - l->midspace - l->linelength;
  359. !           start_line(x, y, c->linethick, c->linetype); 
  360.             cont_line(x+l->linelength, y);
  361.             end_line();
  362.           }
  363.           x = c->l->x - l->midspace - l->linelength / 2.0;
  364.         } else x = c->l->x - l->midspace;
  365.         if (c->marktype == 'X' || c->marktype == 'Y') {
  366. --- 268,284 ----
  367.     if (l->type == 'n') return;
  368.     for (c = first(g->curves); c != nil(g->curves); c = next(c)) {
  369.       if (c->l->label != CNULL) {
  370. +       printf("gsave %f setgray\n", c->gray);
  371.         y = c->l->y - (c->l->fontsize / 2.0 * FCPI / FPPI);
  372.         if (l->anylines) {
  373. !         if (c->linetype != '0' && l->linelength != 0) {
  374.             x = c->l->x - l->midspace - l->linelength;
  375. !           start_line(x, y, c); 
  376.             cont_line(x+l->linelength, y);
  377.             end_line();
  378.           }
  379. +         if (c->larrows) draw_arrow(x, y, x+l->linelength, y, c);
  380. +         if (c->rarrows) draw_arrow(x+l->linelength, y, x, y, c);
  381.           x = c->l->x - l->midspace - l->linelength / 2.0;
  382.         } else x = c->l->x - l->midspace;
  383.         if (c->marktype == 'X' || c->marktype == 'Y') {
  384. ***************
  385. *** 239,244 ****
  386. --- 290,296 ----
  387.         } else {
  388.           draw_mark(x, y, c, g);
  389.         }
  390. +       printf("grestore\n");
  391.         draw_label(c->l);
  392.       }
  393.     }
  394. ***************
  395. *** 260,267 ****
  396.     comment("Drawing New Graph");
  397.     printf("%f %f translate\n", g->x_translate - g->x_axis->psize / 2.0, 
  398.             g->y_translate);
  399. !   draw_axis(g->x_axis);
  400. !   draw_axis(g->y_axis);
  401.     draw_label(g->title);
  402.     draw_curves(g);
  403.     draw_legend(g);
  404. --- 312,325 ----
  405.     comment("Drawing New Graph");
  406.     printf("%f %f translate\n", g->x_translate - g->x_axis->psize / 2.0, 
  407.             g->y_translate);
  408. !   if (g->border) {
  409. !     printline(0.0, 0.0, 0.0, g->y_axis->psize, 'x');
  410. !     printline(0.0, 0.0, 0.0, g->x_axis->psize, 'y');
  411. !     printline(g->x_axis->psize, 0.0, g->x_axis->psize, g->y_axis->psize, 'x');
  412. !     printline(g->y_axis->psize, 0.0, g->y_axis->psize, g->x_axis->psize, 'y');
  413. !   }
  414. !   draw_axis(g->x_axis, g->y_axis);
  415. !   draw_axis(g->y_axis, g->x_axis);
  416.     draw_label(g->title);
  417.     draw_curves(g);
  418.     draw_legend(g);
  419. ***************
  420. *** 271,292 ****
  421.   
  422.   }
  423.   
  424. ! draw_graphs(gs)
  425.   Graphs gs;
  426.   {
  427.     Graph g;
  428.   
  429. !   draw_header(gs);
  430. !   for (g = first(gs->g); g != nil(gs->g); g = next(g)) {
  431. !     draw_graph(g);
  432.     }
  433. -   draw_footer(gs);
  434.   }
  435.   
  436. ! draw_header(gs)
  437.   Graphs gs;
  438.   {
  439. !   printf("%%!\n");
  440.     printf("%%%%Pages: 0\n");
  441.     printf("%%%%BoundingBox: %f %f %f %f\n", gs->bb[0], gs->bb[1], gs->bb[2], gs->bb[3]);
  442.     printf("%%%%EndComments\n");
  443. --- 329,355 ----
  444.   
  445.   }
  446.   
  447. ! draw_graphs(gs, pp)
  448.   Graphs gs;
  449. + int pp;
  450.   {
  451. +   Graphs gs_p;
  452.     Graph g;
  453.   
  454. !   for (gs_p = first(gs); gs_p != nil(gs); gs_p = next(gs_p)) {
  455. !     draw_header(gs_p, pp);
  456. !     for (g = first(gs_p->g); g != nil(gs_p->g); g = next(g)) {
  457. !       draw_graph(g);
  458. !     }
  459. !     draw_footer(gs_p, pp);
  460.     }
  461.   }
  462.   
  463. ! draw_header(gs, pp)
  464.   Graphs gs;
  465. + int pp;
  466.   {
  467. !   printf("%%!PS-Adobe-2.0 EPSF-1.2\n");
  468.     printf("%%%%Pages: 0\n");
  469.     printf("%%%%BoundingBox: %f %f %f %f\n", gs->bb[0], gs->bb[1], gs->bb[2], gs->bb[3]);
  470.     printf("%%%%EndComments\n");
  471. ***************
  472. *** 301,307 ****
  473.     printf("{$F2psEnteredState restore end} def\t%%%%EndProlog\n");
  474.     printf("$F2psBegin\n");
  475.     printf("%f 0 translate\n", gs->width / 2.0);
  476. !   if (gs->printable_postscript)
  477.       printf("%f %f translate\n",
  478.         ((8.5 * FCPI) - (gs->bb[2] - gs->bb[0])) / 2.0,     
  479.         (gs->bb[3] > (5.5*FCPI)) ? (11*FCPI) - gs->bb[3] : (5.5*FCPI));
  480. --- 364,370 ----
  481.     printf("{$F2psEnteredState restore end} def\t%%%%EndProlog\n");
  482.     printf("$F2psBegin\n");
  483.     printf("%f 0 translate\n", gs->width / 2.0);
  484. !   if (pp)
  485.       printf("%f %f translate\n",
  486.         ((8.5 * FCPI) - (gs->bb[2] - gs->bb[0])) / 2.0,     
  487.         (gs->bb[3] > (5.5*FCPI)) ? (11*FCPI) - gs->bb[3] : (5.5*FCPI));
  488. ***************
  489. *** 309,317 ****
  490.     printf("0.700 setlinewidth\n");
  491.   }
  492.   
  493. ! draw_footer(gs)
  494.   Graphs gs;
  495.   {
  496.     printf("$F2psEnd\n");
  497. !   if (gs->printable_postscript) printf("showpage\n");
  498.   }
  499. --- 372,381 ----
  500.     printf("0.700 setlinewidth\n");
  501.   }
  502.   
  503. ! draw_footer(gs, pp)
  504.   Graphs gs;
  505. + int pp;
  506.   {
  507.     printf("$F2psEnd\n");
  508. !   if (pp) printf("showpage\n");
  509.   }
  510. *** ../work/edit.c    Tue Oct  8 17:36:13 1991
  511. --- edit.c    Tue Oct  8 16:55:14 1991
  512. ***************
  513. *** 1,7 ****
  514.   /* 
  515.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/edit.c,v $
  516. !  * $Revision: 5.0 $
  517. !  * $Date: 91/05/02 14:45:11 $
  518.    * $Author: jsp $
  519.    */
  520.   
  521. --- 1,7 ----
  522.   /* 
  523.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/edit.c,v $
  524. !  * $Revision: 6.0 $
  525. !  * $Date: 91/10/08 16:53:44 $
  526.    * $Author: jsp $
  527.    */
  528.   
  529. ***************
  530. *** 92,97 ****
  531. --- 92,99 ----
  532.     a1->auto_hash_marks = a2->auto_hash_marks;
  533.     a1->minor_hashes = a2->minor_hashes;
  534.     a1->hash_scale = a2->hash_scale;
  535. +   a1->gray = a2->gray;
  536. +   a1->grid_lines = a2->grid_lines;
  537.     a1->precision = a2->precision;
  538.     a1->start_given = a2->start_given;
  539.     a1->is_lg = a2->is_lg;
  540. ***************
  541. *** 111,116 ****
  542. --- 113,120 ----
  543.     copy_axis(g->y_axis, prev(g)->y_axis);
  544.     g->x_translate = prev(g)->x_translate;
  545.     g->y_translate = prev(g)->y_translate;
  546. +   g->clip = prev(g)->clip;
  547. +   g->border = prev(g)->border;
  548.   }
  549.   
  550.   edit_curve(c, g)
  551. ***************
  552. *** 120,125 ****
  553. --- 124,130 ----
  554.     char inp_str[256];
  555.     float x, y, f;
  556.     Point p;
  557. +   Flist fl;
  558.     int i;
  559.   
  560.     while ( getstring(inp_str) ) {
  561. ***************
  562. *** 182,187 ****
  563. --- 187,199 ----
  564.           fprintf(stderr, "\n");
  565.           exit(1);
  566.         } else c->marktype = MARKTYPES[i];
  567. +     } else if (strcmp(inp_str, "glines") == 0) {
  568. +       while (getfloat(&f)) {
  569. +         fl = (Flist) get_node (c->gen_linetype);
  570. +         fl->f = f;
  571. +         insert(fl, c->gen_linetype);
  572. +       } 
  573. +       rejecttoken();
  574.       } else if (strcmp(inp_str, "linetype") == 0) {
  575.         if (!getstring(inp_str)) return;
  576.         if (strcmp(inp_str, "none") == 0) c->linetype = '0';
  577. ***************
  578. *** 188,201 ****
  579.         else if (strcmp(inp_str, "solid") == 0) c->linetype = 's';
  580.         else if (strcmp(inp_str, "dotted") == 0) c->linetype = '.';
  581.         else if (strcmp(inp_str, "dashed") == 0) c->linetype = '-';
  582.         else {
  583.           error_header(); fprintf(stderr, "Bad line type: %s\n", inp_str);
  584. !         error_header(); fprintf(stderr, "             Valid marks are %s.\n", 
  585. !           "solid, dottted, dashed, none");
  586.           exit(1);
  587.         }
  588.       } else if (strcmp(inp_str, "linethickness") == 0) {
  589.         if (!getfloat(&f)) rejecttoken(); else c->linethick = f;
  590.       } else {
  591.         rejecttoken();
  592.         return;
  593. --- 200,241 ----
  594.         else if (strcmp(inp_str, "solid") == 0) c->linetype = 's';
  595.         else if (strcmp(inp_str, "dotted") == 0) c->linetype = '.';
  596.         else if (strcmp(inp_str, "dashed") == 0) c->linetype = '-';
  597. +       else if (strcmp(inp_str, "longdash") == 0) c->linetype = 'l';
  598. +       else if (strcmp(inp_str, "dotdash") == 0) c->linetype = 'd';
  599. +       else if (strcmp(inp_str, "dotdotdash") == 0) c->linetype = 'D';
  600. +       else if (strcmp(inp_str, "dotdotdashdash") == 0) c->linetype = '2';
  601. +       else if (strcmp(inp_str, "general") == 0) c->linetype = 'g';
  602.         else {
  603.           error_header(); fprintf(stderr, "Bad line type: %s\n", inp_str);
  604. !         error_header(); fprintf(stderr, "             Valid marks are %s\n", 
  605. !           "solid, dotted, dashed, longdash, dotdash,"); 
  606. !         error_header(); fprintf(stderr, "             %s.\n", 
  607. !           "dotdotdash, dotdotdashdash, none");
  608.           exit(1);
  609.         }
  610.       } else if (strcmp(inp_str, "linethickness") == 0) {
  611.         if (!getfloat(&f)) rejecttoken(); else c->linethick = f;
  612. +     } else if (strcmp(inp_str, "gray") == 0) {
  613. +       if (!getfloat(&f)) rejecttoken(); else c->gray = f;
  614. +     } else if (strcmp(inp_str, "larrows") == 0) {
  615. +       c->larrows = 1;
  616. +     } else if (strcmp(inp_str, "nolarrows") == 0) {
  617. +       c->larrows = 0;
  618. +     } else if (strcmp(inp_str, "rarrows") == 0) {
  619. +       c->rarrows = 1;
  620. +     } else if (strcmp(inp_str, "norarrows") == 0) {
  621. +       c->rarrows = 0;
  622. +     } else if (strcmp(inp_str, "asize") == 0) {
  623. +       if (!getfloat(&f)) rejecttoken(); 
  624. +       else {
  625. +         c->asize[0] = f;
  626. +         if (!getfloat(&f)) rejecttoken(); 
  627. +         else c->asize[1] = f;
  628. +       }
  629. +     } else if (strcmp(inp_str, "clip") == 0) {
  630. +       c->clip = 1;
  631. +     } else if (strcmp(inp_str, "noclip") == 0) {
  632. +       c->clip = 0;
  633.       } else {
  634.         rejecttoken();
  635.         return;
  636. ***************
  637. *** 336,341 ****
  638. --- 376,387 ----
  639.         a->draw_axis_label = 0;
  640.       } else if (strcmp(inp_str, "draw_axis_label") == 0) {
  641.         a->draw_axis_label = 1;
  642. +     } else if (strcmp(inp_str, "no_grid_lines") == 0) {
  643. +       a->grid_lines = 0;
  644. +     } else if (strcmp(inp_str, "grid_lines") == 0) {
  645. +       a->grid_lines = 1;
  646. +     } else if (strcmp(inp_str, "gray") == 0) {
  647. +       if ( getfloat(&f)) a->gray = f; else rejecttoken();
  648.       } else {
  649.         rejecttoken(); 
  650.         return;
  651. ***************
  652. *** 427,432 ****
  653. --- 473,486 ----
  654.         if (!getfloat(&f)) rejecttoken(); else gs->height = f;
  655.       } else if (strcmp(inp_str, "X") == 0) {
  656.         if (!getfloat(&f)) rejecttoken(); else gs->width = f;
  657. +     } else if (strcmp(inp_str, "border") == 0) {
  658. +       g->border = 1;
  659. +     } else if (strcmp(inp_str, "noborder") == 0) {
  660. +       g->border = 0;
  661. +     } else if (strcmp(inp_str, "clip") == 0) {
  662. +       g->clip = 1;
  663. +     } else if (strcmp(inp_str, "noclip") == 0) {
  664. +       g->clip = 0;
  665.       } else {
  666.         rejecttoken();
  667.         return;
  668. ***************
  669. *** 437,446 ****
  670.   edit_graphs(gs)
  671.   Graphs gs;
  672.   {
  673.     char inp_str[80];
  674.     float f;
  675. !   int num;
  676.   
  677.     while ( getstring(inp_str) ) {
  678.       if (strcmp(inp_str, "graph") == 0) {
  679.         if (!getint(&num)) {
  680. --- 491,502 ----
  681.   edit_graphs(gs)
  682.   Graphs gs;
  683.   {
  684. +   Graphs the_g;
  685.     char inp_str[80];
  686.     float f;
  687. !   int num, i;
  688.   
  689. +   the_g = first(gs);
  690.     while ( getstring(inp_str) ) {
  691.       if (strcmp(inp_str, "graph") == 0) {
  692.         if (!getint(&num)) {
  693. ***************
  694. *** 447,461 ****
  695.           error_header(); fprintf(stderr, "\"graph\" not followed by number\n");
  696.           exit(1);
  697.         }
  698. !       edit_graph(get_graph(gs->g, num), gs);
  699.       } else if (strcmp(inp_str, "newgraph") == 0) {
  700. !       if (first(gs->g) == nil(gs->g))
  701. !         edit_graph(new_graph(gs->g, 0), gs);
  702. !       else edit_graph(new_graph(gs->g, last(gs->g)->num + 1), gs);
  703.       } else if (strcmp(inp_str, "Y") == 0) {
  704. !       if (!getfloat(&f)) rejecttoken(); else gs->height = f;
  705.       } else if (strcmp(inp_str, "X") == 0) {
  706. !       if (!getfloat(&f)) rejecttoken(); else gs->width = f;
  707.       } else {
  708.         error_header(); fprintf(stderr, "Bad token: %s\n", inp_str);
  709.         exit(1);
  710. --- 503,530 ----
  711.           error_header(); fprintf(stderr, "\"graph\" not followed by number\n");
  712.           exit(1);
  713.         }
  714. !       edit_graph(get_graph(the_g->g, num), the_g);
  715.       } else if (strcmp(inp_str, "newgraph") == 0) {
  716. !       if (first(the_g->g) == nil(the_g->g))
  717. !         edit_graph(new_graph(the_g->g, 0), the_g);
  718. !       else edit_graph(new_graph(the_g->g, last(the_g->g)->num + 1), the_g);
  719.       } else if (strcmp(inp_str, "Y") == 0) {
  720. !       if (!getfloat(&f)) rejecttoken(); else the_g->height = f;
  721.       } else if (strcmp(inp_str, "X") == 0) {
  722. !       if (!getfloat(&f)) rejecttoken(); else the_g->width = f;
  723. !     } else if (strcmp(inp_str, "newpage") == 0) {
  724. !       new_graphs(gs);
  725. !       the_g = last(gs);
  726. !     } else if (strcmp(inp_str, "bbox") == 0) {
  727. !       for (i = 0; i < 4; i++) {
  728. !         if (!getfloat(&f)) {
  729. !           error_header();
  730. !           fprintf("Bbox definition must have four numbers\n");
  731. !           exit(1);
  732. !         } else {
  733. !           the_g->bb[i] = f;
  734. !         }
  735. !       }
  736.       } else {
  737.         error_header(); fprintf(stderr, "Bad token: %s\n", inp_str);
  738.         exit(1);
  739. *** /dev/null    Tue Oct  8 02:00:06 1991
  740. --- exit.c    Tue Oct  8 16:55:14 1991
  741. ***************
  742. *** 0 ****
  743. --- 1,49 ----
  744. + /*
  745. + **++
  746. + **  FUNCTIONAL DESCRIPTION:
  747. + **
  748. + **      Exit is a VMS replacement for the standard Unix exit function
  749. + **
  750. + **  FORMAL PARAMETERS:
  751. + **
  752. + **      error_code    integer passed by value (optional)
  753. + **
  754. + **  SIDE EFFECTS:
  755. + **
  756. + **      Exit will never return to calling program
  757. + **    VMS exit status ($STATUS) will be set
  758. + **--
  759. + **/
  760. + #include <varargs.h>
  761. + 
  762. + exit(va_alist)
  763. + va_dcl
  764. + {
  765. +     int        nargs;
  766. +     va_list        va;
  767. +     int        exit_code = 0;
  768. +     /*
  769. +      * Pick up the argument, if present
  770. +      */
  771. +     va_count(nargs);
  772. +     va_start(va);
  773. +     if (nargs > 0) exit_code = va_arg(va,int);
  774. +     /*
  775. +      * Set the VMS $STATUS to the appropriate value:
  776. +      *    if exit_code == 0 then $STATUS := success
  777. +      *    if exit_code >  0 then $STATUS := error
  778. +      *    if exit_code <  0 then $STATUS := severe_error
  779. +      * and perform exit.
  780. +      *
  781. +      * Note:
  782. +      *    the %X10000000 added to the actual success/error indicator
  783. +      *    will prevent DCL from printing a message.
  784. +      *    A 'on error' will be obeyed however.
  785. +      */
  786. +     if (exit_code == 0)        /* success    */
  787. +         sys$exit(0x10000001);
  788. +     else if (exit_code > 0)        /* error    */
  789. +         sys$exit(0x10000002);
  790. +     else                /* severe error    */
  791. +         sys$exit(0x10000004);
  792. + }
  793. *** ../work/jgraph.1    Tue Oct  8 17:36:18 1991
  794. --- jgraph.1    Tue Oct  8 16:55:19 1991
  795. ***************
  796. *** 20,52 ****
  797.   graphs with a minimum of effort, yet powerful enough to give the user
  798.   the flexibility to tailor the appearance of the graph to his or her
  799.   individual preferences.  This includes plotting multiple graphs and
  800. ! laying them out separately on the page.
  801.   .sp
  802.   As an example, if the user wanted to simply plot the points (2,3),
  803.   (4,5), (1,6), the following would be enough of a specification file:
  804. ! .EX
  805. ! newgraph
  806. ! newcurve pts 2 3 4 5 1 6
  807. ! .EE
  808.   Now, if the user wanted to spruce the graph up by adding labels to
  809.   the axes, connecting the points, and titling the graph, then the
  810.   input could change to:
  811. ! .EX
  812. ! newgraph
  813. ! newcurve pts 2 3 4 5 1 6 linetype solid
  814. ! xaxis label : X axis
  815. ! yaxis label : Y axis
  816. ! title : This is an example graph
  817. ! .EE
  818.   If the user instead wanted this to be a bar graph with different
  819.   endpoints on the axes, he/she could simply change the input to:
  820. ! .EX
  821. ! newgraph
  822. ! xaxis min 0 max 5 label : X axis
  823. ! yaxis min 0 max 6 label : Y axis
  824. ! newcurve pts 2 3 4 5 1 6 marktype xbar
  825. ! title : This is an example bar graph
  826. ! .EE
  827.   There are many more features of the description language, which are
  828.   described below in the next section.  Features which are not embedded
  829.   within the description language are: line and function interpolation,
  830. --- 20,58 ----
  831.   graphs with a minimum of effort, yet powerful enough to give the user
  832.   the flexibility to tailor the appearance of the graph to his or her
  833.   individual preferences.  This includes plotting multiple graphs and
  834. ! laying them out separately on the page (or pages).
  835.   .sp
  836.   As an example, if the user wanted to simply plot the points (2,3),
  837.   (4,5), (1,6), the following would be enough of a specification file:
  838. ! .PP
  839. ! .nf
  840. !     newgraph
  841. !     newcurve pts 2 3 4 5 1 6
  842. ! .fi
  843. ! .PP
  844.   Now, if the user wanted to spruce the graph up by adding labels to
  845.   the axes, connecting the points, and titling the graph, then the
  846.   input could change to:
  847. ! .PP
  848. ! .nf
  849. !     newgraph
  850. !     newcurve pts 2 3 4 5 1 6 linetype solid
  851. !     xaxis label : X axis
  852. !     yaxis label : Y axis
  853. !     title : This is an example graph
  854. ! .fi
  855. ! .PP
  856.   If the user instead wanted this to be a bar graph with different
  857.   endpoints on the axes, he/she could simply change the input to:
  858. ! .PP
  859. ! .nf
  860. !     newgraph
  861. !     xaxis min 0 max 5 label : X axis
  862. !     yaxis min 0 max 6 label : Y axis
  863. !     newcurve pts 2 3 4 5 1 6 marktype xbar
  864. !     title : This is an example bar graph
  865. ! .fi
  866. ! .PP
  867.   There are many more features of the description language, which are
  868.   described below in the next section.  Features which are not embedded
  869.   within the description language are: line and function interpolation,
  870. ***************
  871. *** 110,129 ****
  872.   character after the ``:'' starts the string, and the next newline
  873.   character terminates it.  Notice that in strings white-space is not
  874.   ignored.  Thus, the string ``Graph #1'' can be denoted as:
  875. ! .EX
  876. ! : Graph #1<newline>
  877. ! .EE
  878.   or
  879. ! .EX
  880. ! :<newline>
  881. ! Graph #1<newline>
  882. ! .EE
  883.   This way of denoting strings allows the user to embed leading and
  884.   trailing spaces, as well as the null string.  For example, the
  885.   null string ``'' is represented by:
  886. ! .EX
  887. ! : <newline>
  888. ! .EE
  889.   Once a string has been started, it may contain any character besides
  890.   a newline.  Specifically, it may contain the sequence ``(*'' or
  891.   ``include'' without starting a comment or including a file.
  892. --- 116,139 ----
  893.   character after the ``:'' starts the string, and the next newline
  894.   character terminates it.  Notice that in strings white-space is not
  895.   ignored.  Thus, the string ``Graph #1'' can be denoted as:
  896. ! .nf
  897. ! 
  898. !     : Graph #1<newline>
  899. ! 
  900.   or
  901. ! 
  902. !     :<newline>
  903. !     Graph #1<newline>
  904. ! 
  905. ! .fi
  906.   This way of denoting strings allows the user to embed leading and
  907.   trailing spaces, as well as the null string.  For example, the
  908.   null string ``'' is represented by:
  909. ! .nf
  910. ! 
  911. !     : <newline>
  912. ! 
  913. ! .fi
  914.   Once a string has been started, it may contain any character besides
  915.   a newline.  Specifically, it may contain the sequence ``(*'' or
  916.   ``include'' without starting a comment or including a file.
  917. ***************
  918. *** 204,209 ****
  919. --- 214,249 ----
  920.   and
  921.   \fBX\fR
  922.   respectively.
  923. + .TP
  924. + .B newpage
  925. + This command is for plotting graphs on multiple pages.  After a 
  926. + \fBnewpage,\fR
  927. + the graphs that the user enters will be plotted on a new page.
  928. + New graphs and strings will be numbered starting with 0.  
  929. + Essentially, 
  930. + \fBnewpage\fR
  931. + is the same as appending together the output of separate calls of
  932. + jgraph on the text before the 
  933. + \fBnewpage,\fR
  934. + and on the text after the 
  935. + \fBnewpage.\fR
  936. + \fBNewpage\fR
  937. + will most likely produce bizarre results if the
  938. + \fB\-P\fR
  939. + option is not specified.
  940. + .TP
  941. + \fBbbox \fIfloat\fB \fIfloat\fB \fIfloat\fB \fIfloat\fB\fR
  942. + Jgraph calculates a bounding box for the graph and
  943. + includes it in the header of the postscript output.
  944. + For the purposed of LaTeX, this is usually ok, as LaTeX doesn't
  945. + clip outside of the bounding box.  Unfortunately, other programs
  946. + do clip, and sometimes jgraph doesn't calculate the bounding box
  947. + too well (text especially screws things up).  This command lets
  948. + the user add his/her own bounding box.  The units of this are
  949. + final postscript units.  It's probably best to use the -p option
  950. + to see what the bounding box is that jgraph produces, and then
  951. + alter that accordingly with
  952. + \fBbbox\fR.
  953.   .PD
  954.   .RE
  955.   .LP
  956. ***************
  957. *** 263,272 ****
  958.   is to
  959.   \fBnewcurve.\fR
  960.   .TP
  961.   \fBinherit_axes\fR   
  962.   This lets the user ``inherit'' the values of the last
  963.   graph's axes.  It copies all the attributes of the previous graph's x
  964. ! and y axes, as well as the x_translate and y_translate values. 
  965.   (Actually, this is a little bit of a lie, as it does not copy the
  966.   values of the 
  967.   \fB\fIhash_at\fB, \fImhash_at\fB,\fR
  968. --- 303,336 ----
  969.   is to
  970.   \fBnewcurve.\fR
  971.   .TP
  972. + \fBborder\fR
  973. + .br
  974. + .ns
  975. + .TP
  976. + \fBnoborder\fR
  977. + \fBBorder\fR   
  978. + draws a square border around the area defined by the axes.
  979. + \fBNoborder\fR
  980. + specifies no border.
  981. + \fBNoborder\fR
  982. + is the default.  
  983. + .TP
  984. + \fBclip\fR
  985. + .br
  986. + .ns
  987. + .TP
  988. + \fBnoclip\fR
  989. + \fBClip\fR   
  990. + specifies that all curves in the graph will be clipped -- that is,
  991. + no points outside of the of axes will be plotted.  Clipping can also be
  992. + specified on a per-curve basis.  The default is
  993. + \fBnoclip\fR.
  994. + .TP
  995.   \fBinherit_axes\fR   
  996.   This lets the user ``inherit'' the values of the last
  997.   graph's axes.  It copies all the attributes of the previous graph's x
  998. ! and y axes, as well as the x_translate and y_translate values, and the
  999. ! clipping. 
  1000.   (Actually, this is a little bit of a lie, as it does not copy the
  1001.   values of the 
  1002.   \fB\fIhash_at\fB, \fImhash_at\fB,\fR
  1003. ***************
  1004. *** 446,451 ****
  1005. --- 510,525 ----
  1006.   \fBdraw_hash_marks,\fR
  1007.   and 
  1008.   \fBdraw_hash_labels.\fR
  1009. + .TP
  1010. + \fBgrid_lines\fR
  1011. + .br
  1012. + .ns
  1013. + .TP
  1014. + \fBno_grid_lines\fR
  1015. + \fBGrid_lines\fR
  1016. + specifies to plot a grid line at each (major and minor) hash
  1017. + mark on this axis.  The default is 
  1018. + \fBno_grid_lines\fR.
  1019.   .PD
  1020.   .RE
  1021.   .LP
  1022. ***************
  1023. *** 490,509 ****
  1024.   option of
  1025.   \fBjgraph\fR
  1026.   .TP
  1027.   \fBfill \|[\fIfloat\fB\|]\fR   
  1028.   This sets the filling of marks which define an area
  1029.   to fill (e.g.  ``box'', ``circle'', ``xbar'').  1.0 fills the mark with
  1030.   white.  0.0 fills it with black.  Anything in between is differing
  1031.   levels of gray.  Anything negative fills it with nothing (i.e.  makes
  1032. ! it see-through).  The default fill can be determined using the 
  1033. ! \fB\-p\fR
  1034. ! option of 
  1035. ! \fBjgraph.\fR
  1036.   .TP
  1037.   \fBgmarks \|[\|{\fIfloat\fB\|} \|{\fIfloat\fB\|}\|]*\fR   
  1038.   \fBGmarks\fR
  1039. ! is a way for the user to
  1040. ! define custom marks.  For each mark on 
  1041.   \fB(x,y),\fR 
  1042.   Each pair of 
  1043.   \fB\|{\fIfloat_x\fB\|}, \|{\fIfloat_y\fB\|}, \fR
  1044. --- 564,584 ----
  1045.   option of
  1046.   \fBjgraph\fR
  1047.   .TP
  1048. + \fBgray \|[\fIfloat\fB\|]\fR   
  1049. + This specifies the gray scale in which to draw the curve (i.e. the
  1050. + curve's marks, lines, and arrows).  0.0 (The default) is black.
  1051. + 1.0 is white.
  1052. + .TP
  1053.   \fBfill \|[\fIfloat\fB\|]\fR   
  1054.   This sets the filling of marks which define an area
  1055.   to fill (e.g.  ``box'', ``circle'', ``xbar'').  1.0 fills the mark with
  1056.   white.  0.0 fills it with black.  Anything in between is differing
  1057.   levels of gray.  Anything negative fills it with nothing (i.e.  makes
  1058. ! it see-through).  The default is 0 (black).
  1059.   .TP
  1060.   \fBgmarks \|[\|{\fIfloat\fB\|} \|{\fIfloat\fB\|}\|]*\fR   
  1061.   \fBGmarks\fR
  1062. ! is a way for the user to define custom marks.  For each mark on 
  1063.   \fB(x,y),\fR 
  1064.   Each pair of 
  1065.   \fB\|{\fIfloat_x\fB\|}, \|{\fIfloat_y\fB\|}, \fR
  1066. ***************
  1067. *** 512,529 ****
  1068.     Thus, for example, the
  1069.   ``box'' mark could be defined as ``\fIgmarks\fB -1 -1 -1 1 1 1 1 -1''.
  1070.   .TP
  1071.   \fBlinetype \|[\fItoken\fB\|]\fR   
  1072. ! This defines the type of the line connecting
  1073. ! the points.  Valid entries are ``solid'', ``dotted'', ``dashed'', and
  1074. ! ``none''.  The default is ``none''.  Points are connected in the order in
  1075. ! which they are inserted using the 
  1076.   \fBpts\fR
  1077.   command.
  1078.   .TP
  1079.   \fBlinethickness \|[\fIfloat\fB\|]\fR   
  1080.   This defines the line thickness (in
  1081.   absolute postscript units) of the connecting line.  Default = 1.0.
  1082.   .TP
  1083.   \fBlabel\fR   
  1084.   This edits the label of this curve for the purposed of
  1085.   drawing a legend.  (see LABEL EDITING COMMANDS and LEGEND EDITING
  1086. --- 587,664 ----
  1087.     Thus, for example, the
  1088.   ``box'' mark could be defined as ``\fIgmarks\fB -1 -1 -1 1 1 1 1 -1''.
  1089.   .TP
  1090. + \fBlarrows\fR
  1091. + .br
  1092. + .ns
  1093. + .TP
  1094. + \fBrarrows\fR
  1095. + .br
  1096. + .ns
  1097. + .TP
  1098. + \fBnolarrows\fR
  1099. + .br
  1100. + .ns
  1101. + .TP
  1102. + \fBnorarrows\fR
  1103. + \fBRarrows\fR 
  1104. + specifies to draw an arrow at the end of every line
  1105. + segment in the curve.  
  1106. + \fBLarrows\fR 
  1107. + specifies to draw an arrow at the beginning of every line segment.
  1108. + The size of the arrows can be changed by using
  1109. + \fBasize\fR.
  1110. + The 
  1111. + \fBfill\fR
  1112. + token controls the filling of the head of the arrows.
  1113. + The default is
  1114. + \fBnolarrows\fR
  1115. + and
  1116. + \fBnorarrows\fR.
  1117. + .TP
  1118. + \fBasize \|[\fIfloat\fB\|] \|[\fIfloat\fB\|]\fR   
  1119. + This sets the size of the arrows.  The first 
  1120. + \fB\|[\fIfloat\fB\|] \fR
  1121. + controls the arrow's width.  Its units are those of the x-axis.
  1122. + The second
  1123. + \fB\|[\fIfloat\fB\|] \fR
  1124. + controls the arrow's height.  It is in the units of the y-axis.
  1125. + Use the -p option of jgraph to see the default values.
  1126. + .TP
  1127.   \fBlinetype \|[\fItoken\fB\|]\fR   
  1128. ! This defines the type of the line connecting the points.  Valid
  1129. ! entries are ``solid'', ``dotted'', ``dashed'', ``longdash'',
  1130. ! ``dotdash'', ``dotdotdash'', ``dotdotdashdash'', ``general'', and
  1131. ! ``none''.  The default is ``none''.  ``General'' lets the user define
  1132. ! his own linetype using the
  1133. ! \fBglines\fR
  1134. ! command described below.  Points are connected in the
  1135. ! order in which they are inserted using the 
  1136.   \fBpts\fR
  1137.   command.
  1138.   .TP
  1139. + \fBglines \|[\fIfloat\fB\|]*\fR   
  1140. + This lets the user specify the exact dashing of a line.  The format
  1141. + is as in postscript -- the first number is the length of the first
  1142. + dash, the second is the length of the space after the first dash,
  1143. + etc.  For example, ``dotdash'' could be defined as ``\fIglines\fB 5 3
  1144. + 1 3''.  
  1145. + .TP
  1146.   \fBlinethickness \|[\fIfloat\fB\|]\fR   
  1147.   This defines the line thickness (in
  1148.   absolute postscript units) of the connecting line.  Default = 1.0.
  1149.   .TP
  1150. + \fBclip\fR
  1151. + This specifies that this curve will be clipped -- that is,
  1152. + no points outside of the of axes will be plotted.  
  1153. + .TP
  1154. + \fBnoclip\fR
  1155. + This turns off clipping.  If clipping was specified for the 
  1156. + entire graph, then 
  1157. + \fBnoclip\fR
  1158. + has no effect.
  1159. + \fBNoclip\fR
  1160. + is the default.
  1161. + .TP
  1162.   \fBlabel\fR   
  1163.   This edits the label of this curve for the purposed of
  1164.   drawing a legend.  (see LABEL EDITING COMMANDS and LEGEND EDITING
  1165. ***************
  1166. *** 694,699 ****
  1167. --- 829,839 ----
  1168.   marks, labels, axes, etc.
  1169.   .RS
  1170.   .TP
  1171. + \fBgray \|[\fIfloat\fB\|]\fR   
  1172. + This specifies a gray-scale for drawing the axes (axis lines, hash
  1173. + marks, hash labels and grid lines).  The default is 0.0 (black). 
  1174. + 1.0 is white.
  1175. + .TP
  1176.   \fBhash_at \|[\fIfloat\fB\|]\fR   
  1177.   Draw a hash mark at this point.  No label is
  1178.   made for this hash mark.
  1179. ***************
  1180. *** 928,934 ****
  1181.   .SH EMBEDDING THE OUTPUT IN LATEX
  1182.   I haven't read the manuals, but the way I've been loading these files
  1183.   into LaTeX has been as follows:
  1184. ! .EX
  1185.   1.  Toward the beginning of my LaTeX file, I've had ``\\input{psfig}''
  1186.   2.  Where I've wanted my file, I've put:
  1187.   
  1188. --- 1068,1075 ----
  1189.   .SH EMBEDDING THE OUTPUT IN LATEX
  1190.   I haven't read the manuals, but the way I've been loading these files
  1191.   into LaTeX has been as follows:
  1192. ! .PP
  1193. ! .nf
  1194.   1.  Toward the beginning of my LaTeX file, I've had ``\\input{psfig}''
  1195.   2.  Where I've wanted my file, I've put:
  1196.   
  1197. ***************
  1198. *** 943,949 ****
  1199.   4.  If that doesn't work, try dvips-ing the file and printing the postscript,
  1200.       and if that still doesn't work, try doing everything on a sun.
  1201.   
  1202. ! .EE
  1203.   .SH BUGS
  1204.   If the 
  1205.   \fBhash_scale \fR
  1206. --- 1084,1091 ----
  1207.   4.  If that doesn't work, try dvips-ing the file and printing the postscript,
  1208.       and if that still doesn't work, try doing everything on a sun.
  1209.   
  1210. ! .fi
  1211. ! .PP
  1212.   .SH BUGS
  1213.   If the 
  1214.   \fBhash_scale \fR
  1215. ***************
  1216. *** 953,957 ****
  1217. --- 1095,1106 ----
  1218.   .sp
  1219.   Logarithmic axes cannot contain points <= 0.  If I have 
  1220.   enough complaints to convince me that this is a bug, I'll try to fix it.
  1221. + .sp
  1222. + If jgraph were really smart, then it would have arrow-heads go to the
  1223. + edge of standard marks like circles, etc.  Someday.
  1224. + .sp
  1225. + There is no real way to make the axes such that they decrease from 
  1226. + left to right or low to high -- or at least not without writing your
  1227. + own hash labels.  
  1228.   .sp
  1229.   There may well be loads of other bugs.  Send to jsp@princeton.edu.
  1230. *** ../work/jgraph.c    Tue Oct  8 17:36:20 1991
  1231. --- jgraph.c    Tue Oct  8 16:55:15 1991
  1232. ***************
  1233. *** 1,7 ****
  1234.   /* 
  1235.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.c,v $
  1236. !  * $Revision: 5.0 $
  1237. !  * $Date: 91/05/02 14:45:13 $
  1238.    * $Author: jsp $
  1239.    */
  1240.   
  1241. --- 1,7 ----
  1242.   /* 
  1243.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.c,v $
  1244. !  * $Revision: 6.0 $
  1245. !  * $Date: 91/10/08 16:53:48 $
  1246.    * $Author: jsp $
  1247.    */
  1248.   
  1249. ***************
  1250. *** 47,54 ****
  1251. --- 47,57 ----
  1252.     new_c = (Curve) get_node(c);
  1253.     new_c->num = num;
  1254.     new_c->l = new_label();
  1255. +   new_c->clip = 0;
  1256. +   new_c->gray = 0.0;
  1257.     
  1258.     new_c->pts = (Point) make_list(sizeof(struct point));
  1259. +   new_c->gen_linetype = (Flist) make_list(sizeof(struct flist));
  1260.     new_c->marktype = MARKTYPES[num % NORMALMARKTYPES];
  1261.     new_c->linetype = '0';
  1262.     new_c->linethick = 1.0;
  1263. ***************
  1264. *** 56,64 ****
  1265.     new_c->marksize[1] = FSIG;
  1266.     new_c->general_marks = (Point) make_list(sizeof(struct point));
  1267.     i = num / NORMALMARKTYPES;
  1268. !   if (i == 0) new_c->fill = 0.0;
  1269. !   else if (i == 1) new_c->fill = 1.0;
  1270. !   else new_c->fill = -1.0;
  1271.     prio_insert(new_c, c, 0);
  1272.     return new_c;
  1273.   }
  1274. --- 59,69 ----
  1275.     new_c->marksize[1] = FSIG;
  1276.     new_c->general_marks = (Point) make_list(sizeof(struct point));
  1277.     i = num / NORMALMARKTYPES;
  1278. !   new_c->fill = 0.0;
  1279. !   new_c->rarrows = 0;
  1280. !   new_c->larrows = 0;
  1281. !   new_c->asize[0] = FSIG;
  1282. !   new_c->asize[1] = FSIG;
  1283.     prio_insert(new_c, c, 0);
  1284.     return new_c;
  1285.   }
  1286. ***************
  1287. *** 113,118 ****
  1288. --- 118,125 ----
  1289.     a->auto_hash_marks = 1;
  1290.     a->start_given = 0;
  1291.     a->hash_scale = -1.0;
  1292. +   a->grid_lines = 0;
  1293. +   a->gray = 0.0;
  1294.     a->is_x = is_x;
  1295.     a->is_lg = 0;
  1296.     a->hash_labels = (String) make_list (sizeof(struct string));
  1297. ***************
  1298. *** 206,211 ****
  1299. --- 213,220 ----
  1300.     g->curves = (Curve) make_list(sizeof(struct curve));
  1301.     g->strings = (String) make_list(sizeof(struct string));
  1302.     g->title = new_title();
  1303. +   g->clip = 0;
  1304. +   g->border = 0;
  1305.     g->legend = new_legend();
  1306.   /*  g->def = new_default(); */
  1307.     prio_insert(g, gs, 0);
  1308. ***************
  1309. *** 222,250 ****
  1310.     return new_g;
  1311.   }
  1312.   
  1313.   main(argc, argv)
  1314.   int argc;
  1315.   char **argv;
  1316.   {
  1317. !   struct graphs gs;
  1318.     int i;
  1319. !   char show;
  1320.   
  1321.   #ifdef VMS 
  1322.     IOSTREAM = stdin;    /* for token.c -hdd */
  1323.   #endif
  1324.     show = 0;
  1325. !   gs.g = (Graph) make_list(sizeof(struct graph));
  1326. !   gs.height = 0.0;
  1327. !   gs.width = 0.0;        /* added -hdd */
  1328. !   gs.printable_postscript = 0;
  1329. !   edit_graphs(&gs);
  1330. !   process_graphs(&gs);
  1331.     for (i = 1; i < argc; i++) {
  1332.       if (strcmp(argv[i], "-p") == 0) show = 1;
  1333. !     else if (strcmp(argv[i], "-P") == 0) gs.printable_postscript = 1;
  1334.     }
  1335. !   if (show) show_graphs(&gs); else draw_graphs(&gs);
  1336.   }
  1337.   
  1338.   
  1339. --- 231,273 ----
  1340.     return new_g;
  1341.   }
  1342.   
  1343. + new_graphs(gs)
  1344. + Graphs gs;
  1345. + {
  1346. +   Graphs newg;
  1347. + 
  1348. +   newg = (Graphs) get_node(gs);
  1349. +   newg->g = (Graph) make_list(sizeof(struct graph));
  1350. +   newg->height = 0.0;
  1351. +   newg->width = 0.0;
  1352. +   newg->bb[0] = FSIG; newg->bb[1] = FSIG;
  1353. +   newg->bb[2] = FSIG; newg->bb[3] = FSIG;
  1354. +   insert(newg, gs);
  1355. + }
  1356. + 
  1357.   main(argc, argv)
  1358.   int argc;
  1359.   char **argv;
  1360.   {
  1361. !   Graphs gs;
  1362.     int i;
  1363. !   int show, pp;
  1364.   
  1365.   #ifdef VMS 
  1366.     IOSTREAM = stdin;    /* for token.c -hdd */
  1367.   #endif
  1368.     show = 0;
  1369. !   pp = 0;
  1370.     for (i = 1; i < argc; i++) {
  1371.       if (strcmp(argv[i], "-p") == 0) show = 1;
  1372. !     else if (strcmp(argv[i], "-P") == 0) pp = 1;
  1373.     }
  1374. !   gs = (Graphs) make_list(sizeof(struct graphs));
  1375. !   new_graphs(gs, pp);
  1376. !   edit_graphs(gs);
  1377. !   process_graphs(gs);
  1378. !   if (show) show_graphs(gs); else draw_graphs(gs, pp);
  1379. !   exit(0);
  1380.   }
  1381.   
  1382.   
  1383. *** /dev/null    Tue Oct  8 02:00:06 1991
  1384. --- jgraph.com    Tue Oct  8 16:55:15 1991
  1385. ***************
  1386. *** 0 ****
  1387. --- 1,39 ----
  1388. + $!  JGRAPH.COM: Execute jgraph on VMS.
  1389. + $   SAVE_VER = 'F$VERIFY( F$TRNLNM( "JGRAPH_VERIFY"))'
  1390. + $ ! How to use this procedure:
  1391. + $ ! (1) define a symbol to execute the command file
  1392. + $ !      $ JGRAPH :== @dev:[directory]JGRAPH.COM
  1393. + $ !     We will assume that both this jgraph.com and jgraph.exe reside
  1394. + $ !     in dev:[directory].
  1395. + $ ! (2) Then, to run the program with say the HYPERCUBE.JGR file,
  1396. + $ !      $ JGRAPH HYPERCUBE      ! (Yes you can leave off the .JGR extension)
  1397. + $ !     To generate a stand-alone PostScript file that can be sent directly
  1398. + $ !    to the printer, use:
  1399. + $ !      $ JGRAPH HYPERCUBE "-P"
  1400. + $ !    or simply
  1401. + $ !      $ JGRAPH HYPERCUBE -P
  1402. + $ !     If you really want lowercase to reprint input in expanded form:
  1403. + $ !      $ JGRAPH HYPERCUBE "-p"
  1404. + $ !    The resulting output file will have a ".jps" extension.
  1405. + $!
  1406. + $   ON   ERROR   THEN GOTO EXIT
  1407. + $   ON CONTROL_Y THEN GOTO EXIT
  1408. + $!
  1409. + $L1:
  1410. + $   P1 = F$SEARCH( F$PARSE( P1, ".JGR"))
  1411. + $   IF P1 .NES. "" THEN GOTO L2
  1412. + $   INQUIRE /LOCAL P1 "Input File : "
  1413. + $   GOTO L1
  1414. + $L2:
  1415. + $   JPS_FILE  = F$PARSE( P1,,, "NAME") + ".JPS"
  1416. + $   THIS_FILE = F$ENVIRONMENT("PROCEDURE")
  1417. + $   HERE = F$PARSE(THIS_FILE,,,"DEVICE",) + F$PARSE(THIS_FILE,,,"DIRECTORY",)
  1418. + $   RUN_JGRAPH := $'HERE'JGRAPH
  1419. + $!
  1420. + $   TMP = F$VERIFY( 1)
  1421. + $   RUN_JGRAPH <'p1' >'jps_file' "''P2'"
  1422. + $   $status = $STATUS
  1423. + $   TMP = 'F$VERIFY( TMP)
  1424. + $!
  1425. + $EXIT:
  1426. + $   EXIT $status + 0*F$VERIFY( SAVE_VER)
  1427. *** ../work/jgraph.h    Tue Oct  8 17:36:21 1991
  1428. --- jgraph.h    Tue Oct  8 16:55:15 1991
  1429. ***************
  1430. *** 1,7 ****
  1431.   /* 
  1432.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.h,v $
  1433. !  * $Revision: 5.0 $
  1434. !  * $Date: 91/05/02 14:46:24 $
  1435.    * $Author: jsp $
  1436.    */
  1437.   
  1438. --- 1,7 ----
  1439.   /* 
  1440.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/jgraph.h,v $
  1441. !  * $Revision: 6.0 $
  1442. !  * $Date: 91/10/08 16:53:50 $
  1443.    * $Author: jsp $
  1444.    */
  1445.   
  1446. ***************
  1447. *** 28,33 ****
  1448. --- 28,39 ----
  1449.     float y;
  1450.   } *Point;
  1451.   
  1452. + typedef struct flist {
  1453. +   struct flist *flink;
  1454. +   struct flist *blink;
  1455. +   float f;
  1456. + } *Flist;
  1457. + 
  1458.   typedef struct label {
  1459.     char *label;
  1460.     float x;
  1461. ***************
  1462. *** 48,56 ****
  1463. --- 54,68 ----
  1464.     Point general_marks;
  1465.     float marksize[2];
  1466.     float fill;
  1467. +   float gray;
  1468.     float linethick;
  1469. +   Flist gen_linetype;
  1470.     char marktype;
  1471.     char linetype;
  1472. +   int rarrows;
  1473. +   int larrows;
  1474. +   float asize[2];
  1475. +   int clip;
  1476.   } *Curve;
  1477.   
  1478.   typedef struct string {
  1479. ***************
  1480. *** 99,104 ****
  1481. --- 111,118 ----
  1482.     float draw_hash_marks_at;
  1483.     float draw_hash_labels_at;
  1484.     float draw_at;
  1485. +   float gray;
  1486. +   int grid_lines;
  1487.     int draw_hash_labels;
  1488.     int draw_axis_line;
  1489.     int draw_hash_marks;
  1490. ***************
  1491. *** 121,127 ****
  1492.     float size;
  1493.     int anylines;
  1494.     float midspace;
  1495. !   char type; /* 'n' = off, 't' = top, 'r' = right, 'u' = userdefined, 'c' = custom */
  1496.   } *Legend;
  1497.   
  1498.   typedef struct graph {
  1499. --- 135,142 ----
  1500.     float size;
  1501.     int anylines;
  1502.     float midspace;
  1503. !   char type; /* 'n' = off, 't' = top, 'r' = right, 
  1504. !                 'u' = userdefined, 'c' = custom */
  1505.   } *Legend;
  1506.   
  1507.   typedef struct graph {
  1508. ***************
  1509. *** 137,151 ****
  1510.     Legend legend;
  1511.     String strings;
  1512.     Label title;
  1513.     Default def;
  1514.   } *Graph;
  1515.   
  1516.   typedef struct graphs {
  1517.     Graph g;
  1518.     float height;
  1519.     float width;
  1520.     float bb[4]; /* Bounding box */
  1521. -   char printable_postscript;
  1522.   } *Graphs;
  1523.   
  1524.   extern float ctop();
  1525. --- 152,169 ----
  1526.     Legend legend;
  1527.     String strings;
  1528.     Label title;
  1529. +   int clip;
  1530. +   int border;
  1531.     Default def;
  1532.   } *Graph;
  1533.   
  1534.   typedef struct graphs {
  1535. +   struct graphs *flink;
  1536. +   struct graphs *blink;
  1537.     Graph g;
  1538.     float height;
  1539.     float width;
  1540.     float bb[4]; /* Bounding box */
  1541.   } *Graphs;
  1542.   
  1543.   extern float ctop();
  1544. *** ../work/list.c    Tue Oct  8 17:36:22 1991
  1545. --- list.c    Tue Oct  8 16:55:16 1991
  1546. ***************
  1547. *** 1,7 ****
  1548.   /* 
  1549.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.c,v $
  1550. !  * $Revision: 5.0 $
  1551. !  * $Date: 91/05/02 14:45:14 $
  1552.    * $Author: jsp $
  1553.    */
  1554.   
  1555. --- 1,7 ----
  1556.   /* 
  1557.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.c,v $
  1558. !  * $Revision: 6.0 $
  1559. !  * $Date: 91/10/08 16:53:51 $
  1560.    * $Author: jsp $
  1561.    */
  1562.   
  1563. *** ../work/list.h    Tue Oct  8 17:36:23 1991
  1564. --- list.h    Tue Oct  8 16:55:16 1991
  1565. ***************
  1566. *** 1,7 ****
  1567.   /* 
  1568.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.h,v $
  1569. !  * $Revision: 5.0 $
  1570. !  * $Date: 91/05/02 14:46:26 $
  1571.    * $Author: jsp $
  1572.    */
  1573.   
  1574. --- 1,7 ----
  1575.   /* 
  1576.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/list.h,v $
  1577. !  * $Revision: 6.0 $
  1578. !  * $Date: 91/10/08 16:53:52 $
  1579.    * $Author: jsp $
  1580.    */
  1581.   
  1582. *** ../work/printline.c    Tue Oct  8 17:36:25 1991
  1583. --- printline.c    Tue Oct  8 16:55:16 1991
  1584. ***************
  1585. *** 1,7 ****
  1586.   /* 
  1587.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/printline.c,v $
  1588. !  * $Revision: 5.0 $
  1589. !  * $Date: 91/05/02 14:45:15 $
  1590.    * $Author: jsp $
  1591.    */
  1592.   
  1593. --- 1,7 ----
  1594.   /* 
  1595.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/printline.c,v $
  1596. !  * $Revision: 6.0 $
  1597. !  * $Date: 91/10/08 16:53:54 $
  1598.    * $Author: jsp $
  1599.    */
  1600.   
  1601. ***************
  1602. *** 21,32 ****
  1603.       printf("newpath %f %f moveto %f %f lineto stroke\nstroke\n",
  1604.             y1, x1, y2, x2);} 
  1605.   
  1606. ! start_line(x1, y1, thickness, style)
  1607. ! float x1, y1, thickness;
  1608. ! char style;
  1609.   {
  1610. !   setlinewidth(thickness);
  1611. !   setlinestyle(style);
  1612.     printf("%f %f moveto ", x1, y1);
  1613.   }
  1614.   
  1615. --- 21,32 ----
  1616.       printf("newpath %f %f moveto %f %f lineto stroke\nstroke\n",
  1617.             y1, x1, y2, x2);} 
  1618.   
  1619. ! start_line(x1, y1, c)
  1620. ! float x1, y1;
  1621. ! Curve c;
  1622.   {
  1623. !   setlinewidth(c->linethick);
  1624. !   setlinestyle(c->linetype, c->gen_linetype);
  1625.     printf("%f %f moveto ", x1, y1);
  1626.   }
  1627.   
  1628. ***************
  1629. *** 40,46 ****
  1630.   {
  1631.     printf("stroke\n stroke\n");
  1632.     setlinewidth(1.0);
  1633. !   setlinestyle('s');
  1634.   
  1635.   }
  1636.   
  1637. --- 40,46 ----
  1638.   {
  1639.     printf("stroke\n stroke\n");
  1640.     setlinewidth(1.0);
  1641. !   setlinestyle('s', (Flist) 0);
  1642.   
  1643.   }
  1644.   
  1645. ***************
  1646. *** 129,142 ****
  1647.     printf("%f setlinewidth\n", size * LINEWIDTHFACTOR);
  1648.   }
  1649.   
  1650. ! setlinestyle(style)
  1651.   char style;
  1652.   {
  1653.     switch(style) {
  1654.       case '0': 
  1655.       case 's': printf("\t[] 0 setdash\n"); break;
  1656.       case '.': printf("\t [1 3.200000] 0 setdash\n"); break;
  1657.       case '-': printf("\t [4.00000] 0 setdash\n"); break;
  1658.       default: fprintf(stderr, "Error: Unknown line type: %c\n", style);
  1659.                exit(1);
  1660.                break;
  1661. --- 129,155 ----
  1662.     printf("%f setlinewidth\n", size * LINEWIDTHFACTOR);
  1663.   }
  1664.   
  1665. ! setlinestyle(style, glist)
  1666.   char style;
  1667. + Flist glist;
  1668.   {
  1669. +   Flist fl;
  1670. + 
  1671.     switch(style) {
  1672.       case '0': 
  1673.       case 's': printf("\t[] 0 setdash\n"); break;
  1674.       case '.': printf("\t [1 3.200000] 0 setdash\n"); break;
  1675.       case '-': printf("\t [4.00000] 0 setdash\n"); break;
  1676. +     case 'l': printf("\t [7 2] 0 setdash\n"); break;
  1677. +     case 'd': printf("\t [5 3 1 3] 0 setdash\n"); break;
  1678. +     case 'D': printf("\t [5 3 1 2 1 3] 0 setdash\n"); break;
  1679. +     case '2': printf("\t [5 3 5 3 1 2 1 3] 0 setdash\n"); break;
  1680. +     case 'g': 
  1681. +       printf("\t [");
  1682. +       for (fl = first(glist); fl != nil(glist); fl = next(fl))
  1683. +         printf("%f ", fl->f);
  1684. +       printf("] 0 setdash\n");
  1685. +       break;
  1686.       default: fprintf(stderr, "Error: Unknown line type: %c\n", style);
  1687.                exit(1);
  1688.                break;
  1689. *** ../work/prio_list.c    Tue Oct  8 17:36:26 1991
  1690. --- prio_list.c    Tue Oct  8 16:55:16 1991
  1691. ***************
  1692. *** 1,7 ****
  1693.   /* 
  1694.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.c,v $
  1695. !  * $Revision: 5.0 $
  1696. !  * $Date: 91/05/02 14:45:17 $
  1697.    * $Author: jsp $
  1698.    */
  1699.   
  1700. --- 1,7 ----
  1701.   /* 
  1702.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.c,v $
  1703. !  * $Revision: 6.0 $
  1704. !  * $Date: 91/10/08 16:53:55 $
  1705.    * $Author: jsp $
  1706.    */
  1707.   
  1708. *** ../work/prio_list.h    Tue Oct  8 17:36:27 1991
  1709. --- prio_list.h    Tue Oct  8 16:55:17 1991
  1710. ***************
  1711. *** 1,7 ****
  1712.   /* 
  1713.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.h,v $
  1714. !  * $Revision: 5.0 $
  1715. !  * $Date: 91/05/02 14:46:27 $
  1716.    * $Author: jsp $
  1717.    */
  1718.   
  1719. --- 1,7 ----
  1720.   /* 
  1721.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/prio_list.h,v $
  1722. !  * $Revision: 6.0 $
  1723. !  * $Date: 91/10/08 16:53:56 $
  1724.    * $Author: jsp $
  1725.    */
  1726.   
  1727. *** ../work/process.c    Tue Oct  8 17:36:28 1991
  1728. --- process.c    Tue Oct  8 16:55:17 1991
  1729. ***************
  1730. *** 1,7 ****
  1731.   /* 
  1732.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/process.c,v $
  1733. !  * $Revision: 5.0 $
  1734. !  * $Date: 91/05/02 14:45:18 $
  1735.    * $Author: jsp $
  1736.    */
  1737.   
  1738. --- 1,7 ----
  1739.   /* 
  1740.    * $Source: /n/fs/vd/jsp/src/jgraph/RCS/process.c,v $
  1741. !  * $Revision: 6.0 $
  1742. !  * $Date: 91/10/08 16:53:56 $
  1743.    * $Author: jsp $
  1744.    */
  1745.   
  1746. ***************
  1747. *** 141,177 ****
  1748.   Axis a;
  1749.   {
  1750.     int i, b, b2, done;
  1751. !   float x, x2;
  1752.   
  1753. !   x2 = 0.0;
  1754.     b = 0;
  1755.     x = a->hash_interval;
  1756.   
  1757.     done = 0;
  1758.     while(b < 6 && !done) {
  1759. !     i = (int) ((x - x2));
  1760.       x2 = i;
  1761. !     if (x2 - x < .0000001 && x - x2 < .0000001) done = 1;
  1762.       else {
  1763.         b++;
  1764. -       x2 *= 10.0;
  1765.         x *= 10.0;
  1766.       }
  1767.     }
  1768.   
  1769. !   x2 = 0.0;
  1770.     b2 = 0;
  1771.     x = a->hash_start;
  1772.   
  1773.     done = 0;
  1774.     while(b2 < 6 && !done) {
  1775. !     i = (int) (x - x2);
  1776.       x2 = i;
  1777. !     if (x2 - x < .0000001 && x - x2 < .0000001) done = 1;
  1778.       else {
  1779.         b2++;
  1780. -       x2 *= 10.0;
  1781.         x *= 10.0;
  1782.       }
  1783.     }
  1784.     return MAX(b, b2);
  1785. --- 141,177 ----
  1786.   Axis a;
  1787.   {
  1788.     int i, b, b2, done;
  1789. !   float x, x2, tolerance;
  1790.   
  1791. !   tolerance = 0.000001;
  1792.     b = 0;
  1793.     x = a->hash_interval;
  1794.   
  1795.     done = 0;
  1796.     while(b < 6 && !done) {
  1797. !     i = (int) (x + 0.4);
  1798.       x2 = i;
  1799. !     if (x2 - x < tolerance && x - x2 < tolerance) done = 1;
  1800.       else {
  1801.         b++;
  1802.         x *= 10.0;
  1803. +       tolerance *= 10.0;
  1804.       }
  1805.     }
  1806.   
  1807. !   tolerance = 0.000001;
  1808.     b2 = 0;
  1809.     x = a->hash_start;
  1810.   
  1811.     done = 0;
  1812.     while(b2 < 6 && !done) {
  1813. !     i = (int) (x + 0.4);
  1814.       x2 = i;
  1815. !     if (x2 - x < tolerance && x - x2 < tolerance) done = 1;
  1816.       else {
  1817.         b2++;
  1818.         x *= 10.0;
  1819. +       tolerance *= 10.0;
  1820.       }
  1821.     }
  1822.     return MAX(b, b2);
  1823. ***************
  1824. *** 323,330 ****
  1825.               if (ABS(t1) >= 1.0 || t1 == 0.0) prec = 0;
  1826.               else {
  1827.                 tmp = ABS(t1);
  1828. !               prec = 2;
  1829. !               while(tmp < 0.0) {tmp *= 10.0; prec++;}
  1830.               }
  1831.             }
  1832.             sprintf(s->s->label, "%.*f", prec, t1);
  1833. --- 323,330 ----
  1834.               if (ABS(t1) >= 1.0 || t1 == 0.0) prec = 0;
  1835.               else {
  1836.                 tmp = ABS(t1);
  1837. !               prec = -1;
  1838. !               while(tmp < 1.0) {tmp *= 10.0; prec++;}
  1839.               }
  1840.             }
  1841.             sprintf(s->s->label, "%.*f", prec, t1);
  1842. ***************
  1843. *** 441,446 ****
  1844. --- 441,450 ----
  1845.                      4.0 : disttop(c->marksize[0], g->x_axis);
  1846.     c->marksize[1] = (c->marksize[1] == FSIG) ? 
  1847.                      4.0 : disttop(c->marksize[1], g->y_axis);
  1848. +   c->asize[0] = (c->asize[0] == FSIG) ? 
  1849. +                    6.0 : disttop(c->asize[0], g->x_axis);
  1850. +   c->asize[1] = (c->asize[1] == FSIG) ? 
  1851. +                    2.0 : disttop(c->asize[1], g->y_axis);
  1852.   }
  1853.   
  1854.   process_curves(g)
  1855. ***************
  1856. *** 470,495 ****
  1857.   process_graphs(gs)
  1858.   Graphs gs;
  1859.   {
  1860.     Graph g;
  1861.     float tmp_x, x, max_y, min_y;
  1862.   
  1863. !   for (g = first(gs->g); g != nil(gs->g); g = next(g)) process_graph(g);
  1864.