#! /usr/local/bin/topaz
#
# name:           "g"
# description:    load single topaz file
# Written by Hisao Kawaura
#
# Ver. 1.05  (Sep. 24, 2000)

$len = @ARGV;
if ($len != 1)
{
  print "Error!!: One graphfile is not given\n";
  exit(1);
}

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

print 'initializing ......   ';
execfile("initparams");
print "done\n";

# open graph
$graph->gropen(appendabspath($ARGV[0]));

# open a cuimenu and a viewer
execfile("opencui");

# end of "g"













