summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/getmap/getmapdl.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-07-20 22:13:12 +0000
committerKarl Berry <karl@freefriends.org>2014-07-20 22:13:12 +0000
commit9790eead4cceaffc951c93887d06de70c02e196a (patch)
tree9caa3b7344763179b32f8437ca7604c20d2b4030 /Master/texmf-dist/scripts/getmap/getmapdl.lua
parent41d36a6ccdbe245ef49d7979b1435f03e0794e48 (diff)
getmap (20jul14)
git-svn-id: svn://tug.org/texlive/trunk@34670 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/getmap/getmapdl.lua')
-rwxr-xr-xMaster/texmf-dist/scripts/getmap/getmapdl.lua80
1 files changed, 72 insertions, 8 deletions
diff --git a/Master/texmf-dist/scripts/getmap/getmapdl.lua b/Master/texmf-dist/scripts/getmap/getmapdl.lua
index 198796414bd..e3611a928ca 100755
--- a/Master/texmf-dist/scripts/getmap/getmapdl.lua
+++ b/Master/texmf-dist/scripts/getmap/getmapdl.lua
@@ -12,6 +12,7 @@ local url = require("socket.url")
local OSMURL = "http://open.mapquestapi.com/staticmap/v4/getplacemap"
local GMURL = "http://maps.googleapis.com/maps/api/staticmap"
+local GSVURL = "http://maps.googleapis.com/maps/api/streetview"
local KEY = ""
local MODE = ""
local LOCATION = ""
@@ -28,9 +29,12 @@ local NUMBER = ""
local VISIBLE = ""
local IPATH = ""
local MARKERS = ""
+local HEADING = ""
+local FOV = ""
+local PITCH = ""
local OFILE = "getmap"
local QUIET = "false"
-local VERSION = "v1.0 (15/07/2014)"
+local VERSION = "v1.1 (19/07/2014)"
function pversion()
print("getmapdl.lua " .. VERSION)
@@ -96,6 +100,14 @@ getmapdl.lua [options]
-P specify path from location to location
e.g.: &path=weight:7|color:purple|loc1|loc2
+ gsv mode only:
+
+ -H specify heading (view) (0) (0 -- 360) (east: 90, ...)
+
+ -T specify the pitch (angle) (0) (-90 -- 90)
+
+ -F specify horizontal field of view (90) (0 -- 120)
+ The field of view is expressed in degrees and a kind of zoom!
]])
pversion()
end
@@ -110,8 +122,7 @@ function getmap_warning(warningtext)
end
function check_number(var, varname)
- local number='^[0-9]+$'
- if not(string.match(var, '^[0-9]+$')) then
+ if not(string.match(var, '^[-]?[0-9]+$')) then
getmap_error(2, varname .. " can't be " .. var .. "! Not a number!")
end
end
@@ -123,6 +134,8 @@ function check_range(var,min,max,exitcode,varname)
end
end
+print("\n")
+
do
local newarg = {}
local i, limit = 1, #arg
@@ -169,6 +182,15 @@ do
elseif arg[i] == "-M" then
MARKERS = arg[i+1]
i = i + 1
+ elseif arg[i] == "-H" then
+ HEADING = arg[i+1]
+ i = i + 1
+ elseif arg[i] == "-T" then
+ PITCH = arg[i+1]
+ i = i + 1
+ elseif arg[i] == "-F" then
+ FOV = arg[i+1]
+ i = i + 1
elseif arg[i] == "-V" then
VISIBLE = arg[i+1]
i = i + 1
@@ -228,6 +250,8 @@ end
if SIZE == "" then
if MODE == "gm" then
SIZE = XSIZE .. "x" .. YSIZE
+ elseif MODE == "gsv" then
+ SIZE = XSIZE .. "x" .. YSIZE
elseif MODE == "osm" then
SIZE = XSIZE .. "," .. YSIZE
end
@@ -256,8 +280,11 @@ if TYPE == "" then
end
if IMAGETYPE == "" then
- IMAGETYPE="png"
- getmap_warning("IMAGETYPE not specified; using png as default!")
+ if MODE == "gsv" then
+ else
+ IMAGETYPE="png"
+ getmap_warning("IMAGETYPE not specified; using png as default!")
+ end
end
if COLOR == "" then
@@ -271,8 +298,28 @@ if COLOR == "" then
end
if NUMBER == "" then
- NUMBER=1
- getmap_warning("NUMBER not specified; using 1 as default!")
+ if MODE == "gsv" then
+ else
+ NUMBER=1
+ getmap_warning("NUMBER not specified; using 1 as default!")
+ end
+end
+
+if MODE == "gsv" then
+ if HEADING == "" then
+ HEADING=0
+ getmap_warning("HEADING not specified; using 0 as default!")
+ end
+
+ if FOV == "" then
+ FOV=90
+ getmap_warning("FOV not specified; using 90 as default!")
+ end
+
+ if PITCH == "" then
+ PITCH=0
+ getmap_warning("PITCH not specified; using 0 as default!")
+ end
end
if MODE == "gm" then
@@ -284,6 +331,12 @@ if MODE == "gm" then
check_range(XSIZE,1,640,12,"XSIZE")
check_range(YSIZE,1,640,13,"YSIZE")
check_range(SCALE,1,2,14,"SCALE")
+elseif MODE == "gsv" then
+ check_range(XSIZE,1,640,12,"XSIZE")
+ check_range(YSIZE,1,640,13,"YSIZE")
+ check_range(HEADING,0,360,15,"HEADING")
+ check_range(FOV,0,120,16,"FOV")
+ check_range(PITCH,-90,90,17,"PITCH")
elseif MODE == "osm" then
check_range(XSIZE,1,3840,11,"XSIZE")
check_range(YSIZE,1,3840,12,"YSIZE")
@@ -307,6 +360,9 @@ local USHOWICON = ""
local UIMAGETYPE = ""
local UVISIBLE = ""
local UIPATH = ""
+local UHEADING = ""
+local UFOV = ""
+local UPITCH = ""
local UOFILE = ""
local IMGURL = ""
@@ -347,6 +403,14 @@ if MODE == "gm" then
end
UOFILE = OFILE .. "." .. IMAGETYPE
IMGURL = GMURL .. "?" .. ULOCATION .. USIZE .. UZOOM .. UMARKERS .. UTYPE .. USCALE .. UIMAGETYPE .. UVISIBLE .. UIPATH .. "&sensor=false"
+elseif MODE == "gsv" then
+ ULOCATION = "location=" .. url.escape(LOCATION)
+ USIZE = "&size=" .. url.escape(SIZE)
+ UHEADING = "&heading=" .. url.escape(HEADING)
+ UFOV = "&fov=" .. url.escape(FOV)
+ UPITCH = "&pitch=" .. url.escape(PITCH)
+ UOFILE = OFILE .. ".jpg"
+ IMGURL = GSVURL .. "?" .. ULOCATION .. USIZE .. UHEADING .. UFOV .. UPITCH .. "&sensor=false"
elseif MODE == "osm" then
UKEY = "?key=" .. url.escape(KEY)
ULOCATION = "&location=" .. url.escape(LOCATION)
@@ -369,7 +433,7 @@ ofile, msg = io.open(UOFILE, "wb")
if not ofile then
getmap_error(21, msg)
end
-print("\n\ngetmap.lua:")
+print("\n\ngetmapdl.lua:")
print("url = " .. IMGURL)
print("output = " .. UOFILE)
ret, msg = http.request{