#!/usr/bin/perl
# 探索串鐵塔至暗影山。
# Through the tower to Mt. Anying.
# https://zh.wikipedia.org/wiki/暗影山
# Copyright       : http://www.fsf.org/copyleft/gpl.html
# Author          : Dan Jacobson -- http://jidanni.org/
# Created On      : 12/2013
# Last Modified On: Mon Mar  9 09:17:25 2020
# Update Count    : 17
die "don't use Google API anymore!";
use strict;
use warnings FATAL => 'all';
use Math::Trig qw(deg2rad rad2deg great_circle_waypoint);
sub NESW   { deg2rad( $_[0] ), deg2rad( 90 - $_[1] ) }
sub unNESW { rad2deg( $_[0] ), 90 - rad2deg( $_[1] ) }
my @house_1_3 = ( 24.181680, 120.865204 );
my @tower     = ( 24.177456, 120.860872 );
my @H         = NESW( reverse @house_1_3 );
my @T         = NESW( reverse @tower );
my @E = reverse unNESW( great_circle_waypoint( @H, @T, 10 ) );
my @A = (
    {
        maptype => "hybrid",
        center  => [@house_1_3],
        zoom    => 19
    },
    {
        maptype => "hybrid",
        center  => [@tower],
        zoom    => 19
    },
    {
        maptype => "terrain",
        center  => [@E],
        zoom    => 15
    },
);

for ( 0 .. $#A ) {
    printf
"http://maps.googleapis.com/maps/api/staticmap?maptype=%s&size=640x640&format=jpg"
      . "&path=geodesic:true%%7C%.6f%%2C%.6f%%7C%.6f%%2C%.6f&center=%.6f%%2C%.6f&zoom=%d\n",
      $A[$_]{maptype}, @house_1_3, @E, @{ $A[$_]{center} }, $A[$_]{zoom};
}