#!/usr/bin/perl
# Make a KML map of lines from our viewpoints to our mountains.
# Copyright       : http://www.fsf.org/copyleft/gpl.html
# Author          : Dan Jacobson -- http://jidanni.org/
# Created On      : Thu Feb 17 14:38:54 2011
# Last Modified On: Wed Jan 29 06:13:14 2020
# Update Count    : 187
use strict;
use warnings FATAL => 'all';
print <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://www.opengis.net/kml/2.2">
<!-- GENERATED by $ENV{PWD}/$0, WILL GET OVERWRITTEN -->
 <Document>
  <name>積丹尼視野 Dan Jacobson View</name>
  <description>https://www.jidanni.org/location/view/viewshed.html</description>
  <Folder><name>視野 View</name>
EOF
my $viewpoint;
while (<DATA>) {
    chomp;
    my ( $name, $coordinates ) = split /;/;
    if (/^===/) { $viewpoint = $coordinates; next; }
    print <<EOF;
   <Placemark>
    <name>$name</name>
    <LineString><coordinates>$viewpoint $coordinates</coordinates></LineString>
   </Placemark>
EOF
}
print <<EOF;
  </Folder>
 </Document>
</kml>
EOF
__DATA__
===慶福街1-6號;120.866215,24.181668
稍來山南端 Shaolai Shan south edge;120.97312,24.231821
===810三坑分水點;120.864571,24.182722
基隆山 Jilong Shan;121.0628240,24.1728680
===慶福街1-3號;120.865225,24.181802
干卓萬山 Ganzhuowan Shan;121.13903,23.876106
卓社大山 Zhuosheda Shan;121.1158150,23.8345560
黑田山 Heitian Shan;120.8939090,24.1405640
虎子山（台灣地理中心） Huzi Shan (center of Taiwan);120.9793390,23.9736820
內嶺爾山 Neilinger Shan;121.1961111,23.5794444
加年端山 Jianianduan Shan;121.0888889,23.7658333
馬路巴拉讓山 Malubalarang Shan;121.1827778,23.5816667
東郡大山 Dongjunda Shan;121.0920780,23.6267280
大尖山 Dajian Shan;120.9949630,23.8584840
櫧山 Zhu Shan;121.0822222,23.5908333
馬利亞文路山 Maliyawenlu Shan;121.0922222,23.5150000
無雙山 Wushuang Shan;121.0553590,23.5918620
水社山 Shuishe Shan;120.9675000,23.8422222
馬博拉斯山 Mabolasi Shan;121.067362,23.520434
治茆山北峰 Zhimao Shan north peak;120.9933333,23.7536111
治茆山 Zhimao Shan;120.980802,23.744851
治茆山南峰 Zhimao Shan south peak;120.9738889,23.7372222
玉山（遮） Yu Shan (obscured);120.9579330,23.4695330
頭拒山/頭櫃山 Touju/Tougui Shan;120.858965,24.129718
麥寮六輕煙囪 Formosa Plastics sixth plant smokestack;120.188026,23.804115