## Makefile -- Taiwan air routes 台灣航路 ## Copyright : http://www.gnu.org/licenses/gpl.html ## Author : http://jidanni.org/comm/air/routes/ ## Created On : Thu Apr 4 15:49:30 2013 ## Last Modified On: Thu Mar 5 13:05:43 2015 ## Update Count : 163 ## Status : Unknown, Use with caution! # https://developers.google.com/maps/documentation/staticmaps/ K=http://maps.googleapis.com/maps/api/staticmap?format=jpg&size=640x640&language=zh-TW&maptype=terrain¢er=Taichung+Park&zoom=14 sm:B1.dd;perl -anwle 'push @a, "$$F[1],$$F[2]"; END{print "$K&path=", join "|",@a;};' $?|xargs firefox l:M750.dd B1.dd; more $?|cat all.kml:*.dd dd2kml; ./dd2kml *.dd > $@ ST.kml:STA.dd TTCA.dd; ./dd2kml $? > $@ %.polyline:%.dd;perl -nawle 'print "$$F[2],$$F[1]";' $?|kml2googlepolyline %.kml:%.dd; ./dd2kml $? > $@ %.dd:%.dms perl -nwle 'next if /^#/; die unless /([A-Z]+) (\d\d)(\d\d)([\d.]+)N (\d\d\d)(\d\d)([\d.]+)E/;$(\ )printf "%s %.4f %.4f\n", $$1, $$2 + ( $$3 + $$4 / 60 ) / 60, $$5 + ( $$6 + $$7 / 60 ) / 60;' $? > $@ W4.dms:Newest_EAIP U=`cat $?`/eAIP/RC-ENR-3.1-en-TW.html && \ lynx -dump $$U|perl -nwle \ 'next unless /W4$$/ .. /W6$$/;$(\ )if(/([\d.]+N)\s+([\d.]+E)/){print "X $$1 $$2"; exit if /HCN/;}' > $@ M750.dms:Newest_EAIP U=`cat $?`/eAIP/RC-ENR-3.3-en-TW.html && \ lynx -dump $$U|perl -nwle \ 'next if 1 .. /M750$$/; next unless /TOROX/ .. /KUDOS/;$(\ )tr/ //s; next unless /[A-Z]{5}\s+\S+N\s+\S+E/; print $$&;' > $@ B1.dms:# by hand from RC-ENR-3.5-en-TW.html image Newest_EAIP: lynx -dump -listonly http://eaip.caa.gov.tw/eaip/eAISPackages.faces|perl -nwle \ 'next unless m!http:.*/history/.*/html!; push @m, $$&; END{print +(sort @m)[-1];};' > $@ MD=~/mapping/kml %.cat:%.kml; cat $? %.val %.view:%.kml; ln -f $? $(MD) && cd $(MD) && make $@