#
# 2ps Version. 1.04 (Sep. 24, 2000)
# Written by Hisao Kawaura
#
#¡Öconvert from a tpz format to a Postscript format]
#
#     Usage:  topaz 2ps graph.tpz > graph.ps
#

$len = @ARGV;
if ($len != 1)
{
  print STDERR "Error!!: Only one Topaz file should be selected!\n";
  exit(1);
}

if ($graph->length('frame') == 0)
{
  print STDERR "Error!!: No frames exist\n";
  exit(1);
}

execfile("initparams");
$graph->gropen(appendabspath($ARGV[0]));
open(PS, "| tpv2ps");
$graph->setbbox();
$graph->preout(PS);
$graph->paint(PS);
$graph->postout(PS);
close(PS);

# end of "2ps"