#!/opt/SUNWstade/bin/perl -I/opt/SUNWstade/lib -d

use TO::Graph;
use Getopt::Std;
use System;

if (!getopts("f:p:z:h", \%opts) || $opts{h}) {
    usage();
    exit;
}

sub usage {
  print <<EOF;
 Usage: make_png -f <parms_file_name> -p <png_file_name> -z <zoom_level>
    -f : file with coordinates of topo.
    -p : name of desired png file.
    -z : zoom level (1,2,3)

 Example: make_png -f parms -p topo.png -z 2
EOF
}


my $FILE = $opts{f};
my $PNG  = $opts{p};
my $ZOOM = $opts{z} || 2;

if (!$PNG) {
  print "Error: No png file_name!\n";
  usage();
  exit;
}

if (open(O, $FILE)) {
  while ($l = <O>) {
    $parms .= $l;
  }
  close(O);
} else {
  print "Error: file $FILE $!\n\n";
  usage();
  exit;
}

my ($map, $Coords) = TO::Graph->display($parms, $PNG, 
                      {      zoom => $ZOOM, 
                            width => "MAX", 
                           height => "MAX"
                      } );

print "Done!\n";



