#
# 2tpv Version. 1.01 (Sep. 24, 2000)
# Written by Hisao Kawaura
#
#convert from a tpz format to a topaz vector format]
#
#     Usage:  topaz 2tpv graph.tpz > graph.tpv
#

$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]));
$graph->paintall(STDOUT);

# end of "2tpv"

