#!/map/sys/bin/perl

$data = "newgraph
xaxis min 0 max 4 hash 0 size 5 grid_lines
yaxis hash 1.0 mhash 0
yaxis grid_lines min 0 max 6.5 size 4
yaxis label font Helvetica-Bold fontsize 11 : Seconds
yaxis hash_labels font Helvetica fontsize 12
title y 6.5 font Helvetica-Bold fontsize 15 : Seconds per time step
newcurve marktype xbar marksize 0.4 0.6
 fill .5
 pts .5 6 1.5 3 2.5 1.5 3.5 .5
newstring x  .5 y -.2 font Helvetica-Bold fontsize 13 vjt : DEC 8400 \\
1 proc
newstring x  1.5 y -.2 font Helvetica-Bold fontsize 13 vjt : DEC 8400 \\
2 proc
newstring x  2.5 y -.2 font Helvetica-Bold fontsize 13 vjt : DEC 8400 \\
3 proc
newstring x  3.5 y -.2 font Helvetica-Bold fontsize 13 vjt : CM-5 \\
32 nodes
";

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

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