#!/usr/bin/perl -w
print <<EOF;
上河 《台北市影像導讀地圖集》 (2004)
Sunriver.com.tw Taipei Photomap Atlas,
圖緣座標之我猜測 my edge coordinates guesses (TWD67)
By 積丹尼寫 Dan Jacobson http://jidanni.org/geo/taipower/sunriver/
該書國安單位味道很濃， 不但有假森林，座標值必自註。 Strong National
Security scrutiny odor for this book. Not only are there phony
forests, coordinate values must be added by hand.
EOF
# Copyright : http://www.fsf.org/copyleft/gpl.html
# Author : 積丹尼 Dan Jacobson http://jidanni.org/geo/taipower/sunriver/
# Created On      : Fri Feb 25 23:43:20 2005
# Last Modified On: Sat Mar 16 22:20:37 2013
# Update Count    : 119
my @base   = ( 293525, 2789725 );    #all estimated with ruler
my @end    = ( 317025, 2761675 );
my @sheets = ( 10,     17 );
my @increment;
for ( 0, 1 ) { $increment[$_] = ( $end[$_] - $base[$_] ) / $sheets[$_] }
print "Column, approximate left edge:\n";

for ( 0 .. $sheets[0] - 1 ) {
    printf "%02d,%d\n", $_, $base[0] + $increment[0] * $_;
}
print "Row, approximate bottom edge:\n";
for ( 0 .. $sheets[1] - 1 ) {
    printf "%c,%d\n", $_ + ord 'A', $base[1] + $increment[1] * ( 1 + $_ );
}
print <<EOF;
可註之於書初台北全圖。 One might add these numbers to the
all-on-one-page Taipei map near the beginning of the book.  ("edge":
halfway from dotted line to real edge.)

黑線每公里， 但落在半公里處。 Black grid lines are on ....500, one per
kilometer. 若欲加電力座標 One can add Taipower coordinates:
EOF
$A=ord 'A';
$_ = int($base[0]/500)*500;# just happens to be OK here
while ( $_ < $end[0]) {
  my $t=($_-250000)%80000/100;	# overdoing it so works for general case
  printf "$_,%02d%c\n",$t/8,$t%8+$A;
  $_ += 1000;
}
print"\n";
$_=  int($base[1]/500)*500; # just happens to be OK here
while ( $_ > $end[1] ) {
  my $t=$_%50000/100;
  printf "$_,%02d%c\n",$t/5,$t%5+$A;
    $_ -= 1000;
}
print <<EOF;
E.g., where the lines from 301500 hit the edges of the page, write 64D
at the top and bottom of the map, and adjoining maps.

但注意好像 However note K02, K03, L02, L03 垂直線西移約五十米！ have
vertical grid lines apparently moved west approximately 50 meters!

P.S., note phony forest with repeated trees on L06 等頁有假森林，有的
樹一直重複 etc. 比較其衛星圖。 Compare with the satellite atlas.
另徐州路５號中央辦公大樓，有一棟被動了手腳，等等等。
EOF
print "---Run time: "; system("LC_ALL=C date");