source: subversion/sites/other/trapi/tile.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.

File size: 456 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use constant VERBOSE => 0;
7use trapi;
8
9# ptdbinit("<");
10
11if ($ARGV[0] =~ /^z(\d\d?)\/(\d+)\/(\d+)\b/) {
12    my ($s, $w, $n, $e) = Project($2, $3, $1);
13    print "bbox=$s,$w,$n,$e\n";
14} elsif ($ARGV[0] =~ /^\d+$/) {
15    my ($s, $w, $n, $e) = Project($ARGV[0], $ARGV[1], $ARGV[2]);
16    print "SWNE: $s, $w, $n, $e\n";
17} else {
18    my ($x, $y) = getTileNumber($ARGV[0], $ARGV[1], $ARGV[2]);
19    print "$x $y\n";
20}
21
Note: See TracBrowser for help on using the repository browser.