source: subversion/sites/other/trapi/gctile.pl @ 31161

Last change on this file since 31161 was 13790, checked in by blarson, 11 years ago

Fairly major rewrite and cleanup, with common tag comression.

  • Property svn:executable set to *
File size: 235 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use constant VERBOSE => 5;
7use trapi;
8
9unless (scalar(@ARGV) == 3) {
10    die "Must specify zoom x y";
11}
12
13my ($z, $x, $y) = @ARGV;
14
15ptdbinit("+<");
16
17my $ptn = toptn($z, $x, $y);
18
19gcptn($ptn);
Note: See TracBrowser for help on using the repository browser.