#
# 2eps Version. 1.04 (Sep. 24, 2000)
# Written by Hisao Kawaura
#
#convert from a tpz format to a encapsulated Postscript format]
#
#     Usage:  topaz 2eps 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(EPS, "| tpv2ps -e");
$graph->setbbox();
$graph->preout(EPS);
$graph->paint(EPS);
$graph->postout(EPS);
close(EPS);

# end of "2eps"



