#!/map/sys/bin/perl
#!/usr/local/bin/perl

$data = "newgraph
xaxis min 0 max 4 hash 0 size 6 grid_lines
yaxis grid_lines min 0 max 4.5 size 4
yaxis label font Helvetica-Bold fontsize 16 : Seconds
yaxis hash_labels font Helvetica fontsize 13
title y 4.5 font Helvetica-Bold fontsize 16 : Seconds per time step
newcurve marktype xbar marksize 0.4 0.3
 fill .8
 pts .5 3.97 1.5 2.13 2.5 0.98 3.5 .56
 label font Helvetica fontsize 16 : Inversion_Step
newcurve marktype xbar marksize 0.4 0.3
 fill .3
 pts .5 3.34 1.5 1.83 2.5 0.84 3.5 .28
 label font Helvetica fontsize 16 : Forward_Step
newstring x  .5 y -.1 font Helvetica-Bold fontsize 14 vjt linesep 8 : DEC 8400 \\
1 proc
newstring x  1.5 y -.1 font Helvetica-Bold fontsize 14 vjt linesep 8 : DEC 8400 \\
2 proc
newstring x  2.5 y -.1 font Helvetica-Bold fontsize 14 vjt linesep 8 : DEC 8400 \\
4 proc
newstring x  3.5 y -.1 font Helvetica-Bold fontsize 14 vjt linesep 8 : CM-5 \\
32 nodes
legend defaults
 font Helvetica fontsize 15 x 2.5 y 3.5 hjl vjc
 linebreak .3
";

open(TMP,">tmp.jg");
print TMP $data;
close(TMP);

`jgraph tmp.jg > tmp.ps; ghostview tmp.ps`;
