local p = {}
-- Having worked further on similar processes - the code here can be dropped by at least 30% in size and further simplified
-- Methods used though sound and working are clumsy -- furture work project
-- Examole
-- {{#invoke:Inpoly|pointinpoly|poly=32.932:35.097, 32.909:35.653, 33.293:35.572, 32.932:35.097|lat=42.989 | long=35.389}}
-- function needed to correct lat positioning
local function newlat(a)
newlatitude = 180/math.pi * (2 * math.atan(math.exp( a * math.pi/180)) - math.pi/2 )
if newlatitude > 89.5 then point = 89.5 end -- END if
if newlatitude < -89.5 then point = -89.5 end -- END if
return newlatitude
end
-- Makes a box as a marker for inclusion on a map
local function box(makebox)
local makebox = makebox
if makebox == nil or makebox == "" then
return "" end
makebox = string.gsub(makebox,"%s*","")
local lat = string.gsub(makebox,",.*","")
local long = string.gsub(makebox,".*,","")
if lat == nil or lat == "" then return "" end
if long == nil or long == "" then return "" end
local coordinates = ""
local r = ".25"
if tonumber(lat) > 90 or tonumber(lat) < -90 then
return "" end
if tonumber(long) > 180 or tonumber(long) < -180 then
return "" end
r = tonumber(r)
lat = math.log(math.tan((90 + lat) * math.pi/360)) / (math.pi/180)
local angle1,angle2,angle3,angle4 = 0,0,0,0
local ptx,ptx2,ptx3,ptx4 = 0,0,0,0
local pty,pty2,pty3,pty4 = 0,0,0,0
local a = 45
local b = 135
local c = 225
local d = 315
angle1 = a * math.pi / 180
ptx = lat + r * math.cos( angle1 )
pty = long + r * math.sin( angle1 )
angle2 = b * math.pi /180
ptx2 = lat + r * math.cos( angle2 )
pty2 = long + r * math.sin( angle2 )
angle3 = c * math.pi /180
ptx3 = lat + r * math.cos( angle3 )
pty3 = long + r * math.sin( angle3 )
angle4 = d * math.pi /180
ptx4 = lat + r * math.cos( angle4 )
pty4 = long + r * math.sin( angle4 )
ptx,pty = string.format("%.6f",newlat(ptx)),string.format("%.6f",pty)
ptx2,pty2 = string.format("%.6f",newlat(ptx2)),string.format("%.6f",pty2)
ptx3,pty3 = string.format("%.6f",newlat(ptx3)),string.format("%.6f",pty3)
ptx4,pty4 = string.format("%.6f",newlat(ptx4)),string.format("%.6f",pty4)
coordinates = "[[[" .. pty .. "," .. ptx .. "],[" .. pty2 .. "," .. ptx2 .. "],[" .. pty3 .. "," .. ptx3 .. "],[".. pty4 .. "," .. ptx4 .. "],[" .. pty .. "," .. ptx .. "],[" .. pty .. "," .. ptx .. "]]]"
return coordinates
end
-- grab a mapmask if possible from a wv article page and convert to a poly if asked for
function grabmapmaskinpoly(mapmaskpage)
local page = mapmaskpage or ""
local xoutput = ""
local title = mw.title.new(page)
local newdata = ""
if title == nil then return end
if title.id == 0 then
return error(mapmaskpage .. "No such page for '''mapmaskpage''' exists!")
end
newdata = title:getContent()
if newdata == nil or newdata == "" or not newdata == true then
return ""
end
if string.find(newdata,"{{%s*[Mm]apmask") == nil then
return error("'''No MAPMASK''' found on page " .. mapmaskpage .."!")
end
newdata = string.gsub(newdata,"^.*%{%{%s*[Mm]apmask","")
newdata = string.gsub(newdata,"%s*}}.*","")
newdata = string.gsub(newdata,"%s*=%s*","=")
newdata = string.gsub(newdata,"|%s*%a+=","@D")
-- beginit,endit = string.find(newdata,"|")
newdata = string.gsub(newdata, "%s*|%s*", "@x", 1)
newdata = string.gsub(newdata,"@D.*@x","@x")
newdata = string.gsub(newdata,"@D.*$","")
newdata = string.gsub(newdata,"^@x","")
newdata = string.gsub(newdata,",",":")
newdata = string.gsub(newdata,"|",",")
newdata = string.gsub(newdata,"%s*","")
return newdata -- becomes poly for searching if available
end
-- read in a page with title:getcontent() and try and get markers - can be expensive processing wise
-- included are not only '''markers''' but '''See''' listings
function grabmarkerinpoly(markerpage,types)
-- local copytype = ""
local separator = ","
local page = markerpage or ""
local types = types or ""
local xoutput = ""
local title = mw.title.new(page)
local newdata = ""
if title == nil then return end
if title.id == 0 then
return error("'''" .. markerpage .. "''' does not exist")
end
newdata = title:getContent()
if newdata == nil or newdata == "" or not newdata == true then
return ""
end
newdata = string.gsub(newdata,"\n"," ")
newdata = string.gsub(newdata,"%{%{%s*[Ss]ee[Dd]istricts%s*%}%}","{{JUNK")
newdata = string.gsub(newdata,"%{%{%s*[Ss]ee%s*[Aa]lso%s*%}%}","JUNK")
newdata = string.gsub(newdata,"%{%{%s*[Ss]leeppricerange","{{JUNK")
newdata = string.gsub(newdata,"%{%{%s*[Ee]atpricerange","{{JUNK")
newdata = string.gsub(newdata,"\n","")
newdata = string.gsub(newdata,"\r","")
newdata = string.gsub(newdata,"@","BULLET")
newdata = string.gsub(newdata,"%{%{%{","BEGINTRIPLE")
newdata = string.gsub(newdata,"}}}","ENDTRIPLE")
newdata = string.gsub(newdata,"%{%{dead link%|%a+ %d+%s*%}%}","") -- problem with this (internal curly brackets)
newdata = string.gsub(newdata,"%{%{dead link%|%a+ %d+|%a+ %d+%s*%}%}","") -- problem with this - see above
-- newdata = string.gsub(newdata,"%{%{%s*[Ss]eealso","{{other")
-- newdata = string.gsub(newdata,"%{%{%s*[Ss]ee also","{{other")
-- newdata = string.gsub(newdata,"%{%{%s*[Ss]ee","{{marker")
-- newdata = string.gsub(newdata,"(%{%{%s*listing%s*|%s*type%s*=%s*[sS]ee","{{marker|type=see")
if types ~= nil and types ~= "" then
types = string.gsub(types,"%s*","") -- listing,see,do,buy,eat,drink,sleep,go etc.
types = "," .. types
types = string.lower(types)
for zip in string.gmatch(types,"([^"..separator.."]+)") do
if zip == "listing" then
newdata = string.gsub(newdata,"%{%{%s*[Ll]isting%s*|%s*name=","{{marker|type=listing|name=")
else
copytype = zip
zip = "[" .. string.upper(string.sub(zip,1,1)) .. string.lower(string.sub(zip,1,1)) .. "]" .. string.sub(zip,2,15)
-- newdata = string.gsub(newdata,"%{%{%s*listing%s*|%s*type%s*=%s*" .. zip ,"{{marker|type=" .. copytype)
-- newdata = string.gsub(newdata,"%{%{%s*" .. zip,"{{marker|type=" .. copytype)
newdata = string.gsub(newdata,"%{%{%s*listing%s*|%s*type%s*=%s*" .. zip ,"{{marker|type=" .. copytype)
newdata = string.gsub(newdata,"%{%{%s*" .. zip .. "%s*|","{{marker|type=" .. copytype .. "|")
end
end
end
--if string.match(types,"@[Dd]o") ~= nil then
-- newdata = string.gsub(newdata,"%{%{%s*listing%s*|%s*type%s*=%s*[Dd]o","{{marker|type=do")
-- newdata = string.gsub(newdata,"%{%{%s*[Dd]o","{{marker|type=do")
--end
newdata = string.gsub(newdata,"/","SLASH")
newdata = string.gsub(newdata,":","COLON")
newdata = string.gsub(newdata,"%{%{%s*[Mm]arker","@@{{marker") -- add separator @@
newdata = string.gsub(newdata,"\n"," ")
if string.find(newdata,"{{%s*marker") == nil then
-- if string.find(newdata,"{{marker") == nil then
return error("No '''Markers''' found on page " .. markerpage)
end
local separator = "@@"
newdata = string.gsub(newdata,"@@@@","@@")
for str in string.gmatch(newdata,"([^"..separator.."]+)") do
if string.find(str,"^%{%{marker") ~= nil then
str = string.gsub(str,"(%{%{)(%s*IATA%s*)(|)(%s*%u+%s*)(}})","%2--%4")
str = string.gsub(str,"=%{%{","=opencurlyopencurly") -- internal template inside template
str = string.gsub(str,"}}%s*|","closecurlyclosecurly|")
str = string.gsub(str,"}}%s*}}","closecurlyclosecurly}}")
str = str.gsub(str,"}}.*","") -- short cut to chop off end might not work as expected
str = "@" .. str .. "@"
str = str.gsub(str,"= ","=")
str = str.gsub(str," =","=")
str = str.gsub(str,"name=","@n")
str = str.gsub(str,"lat=","@a")
str = str.gsub(str,"long=","@b")
str = str.gsub(str,"wikidata=","@w")
str = str.gsub(str,"wikipedia=","@D")
str = str.gsub(str,"zoom=","@D")
str = str.gsub(str,"type=","@t")
str = str.gsub(str,"url=","@D")
str = str.gsub(str,"lastedit=","@D")
str = str.gsub(str,"image=","@i")
str = str.gsub(str,"^@{{marker","@xmarker")
str = str.gsub(str,"phone=","@D")
str = str.gsub(str,"tollfree=","@D")
str = str.gsub(str,"price=","@D")
str = str.gsub(str,"fax=","@D")
str = str.gsub(str,"directions=","@D")
str = str.gsub(str,"alt=","@D")
str = str.gsub(str,"address=","@D")
str = str.gsub(str,"content","@D")
str = str.gsub(str,"hours=","@D")
str = str.gsub(str,"%s%s+"," ")
str = str.gsub(str,"%s@","@")
str = string.gsub(str,"%s*|%s*@","@")
str = string.gsub(str,"@$","")
if string.find(str,"@a") == nil then
str = str .. "@a1"
end
if string.find(str,"@b") == nil then
str = str .. "@b1"
end
if string.find(str,"@n") == nil then
str = string.gsub(str,"@a","@nMissing Name@a")
end
str = string.gsub(str,"@D%d+@","@")
str = string.gsub(str,"opencrly","{")
str = string.gsub(str,"closecurly","}")
xoutput = xoutput .. str .. ":"
end
end
xoutput = string.gsub(xoutput,":$","")
return xoutput
end
-- Work in Wikidata IDs for lat/long only if id present and no lat/long available
-- can be expensive if too many markers present
local function getwdcoords(a,b,c)
local a = a
local b = b
local id = c
id = string.gsub(id,"%s+","")
if string.match(id,"^[Qq]%d+$") == nil then return a,b,c end -- wrong format don't even try
if tostring(a) ~= "1" and tostring(b) ~= "1" then -- use lat long given rather than lookup Wikidata ID
return a,b,c
end
if id ~= nil and id ~= '' then
entity = mw.wikibase.getEntityObject(id)
end
if entity == nil then
a = a
b = b
end
local claims = entity.claims
if claims == nil then
a = a
b = b
end
if pcall(function () t =claims.P625 end ) then
if pcall(function () t =entity.claims.P625[1].mainsnak.datavalue.value.latitude end ) then
a = entity.claims.P625[1].mainsnak.datavalue.value.latitude
else a = a end
if pcall(function () t =entity.claims.P625[1].mainsnak.datavalue.value.longitude end ) then
b = entity.claims.P625[1].mainsnak.datavalue.value.longitude
else b = b end
end
return a,b,c
end
-- Load a table of mapshapes for tblukup if used -- already formatted
-- Table is Sandbox/Matroc/Regions - contains mostly shapes for Israel at this time
-- Can be cleaned or added to...
local function load_t1(t1,table2load)
if pcall(function()t1 = mw.loadData(table2load) end) then
return t1
else
error ("Unable to load table!")
end
end
-- Main Processing center for finding if a position is within or not within a polygon
local function inapoly(polyx,polyy,ptx,pty)
local answer = false
local polyx = polyx
local polyy = polyy
local j = #polyx
local ptx = ptx
local pty = pty
for i = 1, #polyx do
if (polyy[i] < pty and polyy[j] >= pty or polyy[j] < pty and polyy[i] >= pty) then
if (polyx[i] + ( pty - polyy[i] ) / (polyy[j] - polyy[i]) * (polyx[j] - polyx[i]) < ptx) then
answer = not answer
end
end
j = i;
end
return answer
end
-- Main entrance to Inapoly module -- Starts here
function p.pointinpoly(frame)
local sortit = {}
local sort = frame.args['sort'] or "no"
local oporigtype = frame.args['oporigtype'] or "none"
local keeptype = {}
keeptype[1] = "red"
local t1 = {} ---- local array for table1
local t1_loaded = 0 ---- NO TABLE 1 is NOT LOADED!
local table2load = "Module:Sandbox/Matroc/Regions" -- only table to use
local lukfor = frame.args['table'] or ""
local a,b,c = ""
local work = ""
local output = ""
local index = 1
local separator = ","
local separator2 = ":"
local separator3 = "@-@"
local mapframe = frame.args['mapframe'] or "no"
local map = ""
local shape = ""
local name = {}
name[1] = frame.args['name'] or "Missing Name Parameter"
local wikidata = {} -- addon
wikidata[1] = frame.args['wikidata'] or ""
-- local type = {} -- Future if different type output wanted in short marker
local images = {} -- Future if image to be output in short marker
local image = frame.args['image'] or ""
images[1] = image
-- local markertxt = "\n"
local markertxtyes = "\n"
local markertxtno = "\n"
local marker = frame.args['marker'] or "yes" -- Default to not output markers
local markermatch = frame.args['markermatch'] or "both"
local markerpage = frame.args['markerpage'] or ""
local types = frame.args['types'] or "" -- comma separated lis of listing types to treat as markers - listing,see,do,buy,eat,drink,sleep,go
local mapmaskpage = frame.args['mapmaskpage'] or ""
local text = frame.args['text'] or 'yes' -- Default to output textual output
local ptx = {} -- latitude
local pty = {} -- longitude
local polyx = {}
local polyy = {}
local result = false
local reverse = "no"
local poly = frame.args['poly'] or ""
local makebox = frame.args['makebox'] or ""
local dummy = "{{mapmask|group=mask|"
if poly == "" or poly == nil then
t1 = load_t1(t1,table2load)
if t1[lukfor] ~= nil then
poly = t1[lukfor]
shape = string.gsub(poly,",","|")
shape = string.gsub(shape,":",",")
shape = "{{mapmask|group=mask|" .. shape .. "}}"
else
poly = poly
reverse = "no"
end
if poly == "" or poly == nil then
if mapmaskpage ~= nil and mapmaskpage ~= "" then
poly = grabmapmaskinpoly(mapmaskpage)
shape = string.gsub(poly,",","|")
shape = string.gsub(shape,":",",")
shape = "{{mapmask|group=mask|" .. shape .. "}}"
else
poly = poly
reverse = "no"
end
end
end
if poly == nil or poly == "" then
if makebox ~= nil and makebox ~= "" then
poly = box(makebox)
else
poly = poly
end
end
poly = string.gsub(poly,"%s+","") or ""
poly = string.gsub(poly,"\n","")
if poly == nil or poly == "" then output = output .. "Empty parameter '''poly''' for marker comparison missing - use poly, table, mapmaskpage or makebox!\n"
return output
end
-- Check to see if polygon is in the form [[[-140.000000,53.435182],[-150.392305,62.866762],[-129.607695,62.866762],[-140.000000,53.435182]]]
-- Assumption the parameter begins with a "[" as trigger that it is from Mapframe or Maplink. - If so reverse is automatically set to "yes"
-- Modify string to match original format of parameter
if string.match(poly,"^%[.*$") ~= nil then
poly = string.gsub(poly,"(%d)(,)(%d)","%1:%3")
poly = string.gsub(poly,"%],%[",",")
poly = string.gsub(poly,"%[+","")
poly = string.gsub(poly,"%]+","")
poly = string.gsub(poly,",$","")
reverse = "yes"
end
for str in string.gmatch(poly,"([^"..separator.."]+)") do
if reverse == "yes" then
a = str.gsub(str,"%:.*$","")
polyy[index] = tonumber(a)
b = str.gsub(str,"^.*%:","")
polyx[index] = tonumber(b)
dummy = dummy .. b .. "," .. a .. "|"
else
a = str.gsub(str,"%:.*$","")
polyx[index] = tonumber(a)
b = str.gsub(str,"^.*%:","")
polyy[index] = tonumber(b)
end
index = index + 1
end
if reverse == "yes" then
dummy = string.gsub(dummy,"|$","}}")
shape = dummy
end
if shape == "" or shape == nil then
shape = string.gsub(poly,",","|")
shape = string.gsub(shape,":",",")
shape = "{{mapmask|group=mask|" .. shape .. "}}"
end
if index <= 2 then output = output .. "Not enough '''coordinates''' for polygon '''" .. name[1] .. "'''\n"
return output
end
local multi = frame.args['multi'] or ""
if multi == nil or multi == "" then
if markerpage ~= nil and markerpage ~= "" then
multi = grabmarkerinpoly(markerpage,types)
else
multi = ""
end
end
multi = string.gsub(multi,"\n","")
multi = string.gsub(multi,"%s%s+"," ")
if multi == "" or multi == nil then
if frame.args['lat'] == nil or frame.args['lat'] == "" then
output = output .. "----Missing latitude for '''" .. name[1] .. "'''- Provide name,lat,long parameters for single comparison. or multi or markerpage parameters for multiple comparisons\n"
return output end
if frame.args['long'] == nil or frame.args['long'] == "" then
output = output .. "----Missing longitude for '''" .. name[1] .. "'''- Provide name,lat,long parameters for single comparison. or multi or markerpage parameters for multiple comaparisons\n"
return output end
ptx[1] = tonumber(frame.args['lat']) or 1
pty[1] = tonumber(frame.args['long']) or 1
else
index = 1
for str in string.gmatch(multi,"([^"..separator2.."]+)") do
str = string.gsub(str," @","@")
if string.find(str,"@n") == nil then -- Missing name created
str = "@nMissingname" .. str
end
if string.find(str,"@a") == nil then
str = str .. "@a1"
end
if string.find(str,"@b") == nil then
str = str .. "@b1"
end
str = str.gsub(str,"@a@","@a1@")
str = str.gsub(str,"@b@","@b1@")
str = str.gsub(str,"@b$","@b1")
if string.find(str,"@i") == nil then
str = str .. "@i "
end
if string.find(str,"@t") == nil then
str = str .. "@t "
end
if string.find(str,"@w") == nil then
str = str .. "@wWikidata ID"
end
-- build arrays for name, type, lat, lat, image and wikidata
work = str
work = string.gsub(work,"^.*@i","")
work = string.gsub(work,"@.*","")
work = string.gsub(work,"SLASH","/")
work = string.gsub(work,"COLON",":")
images[index] = work
work = str
work = string.gsub(work,"^.*@n","")
work = string.gsub(work,"@.*","")
work = string.gsub(work,"SLASH","/")
name[index] = work
work = str
work = string.gsub(work,"^.*@t","")
work = string.gsub(work,"@.*","")
keeptype[index] = work
work = str
work = string.gsub(work,"@b.*","")
work = string.gsub(work,"^.*@a","")
work = tonumber(work)
ptx[index] = work
work = str
work = string.gsub(work,"^.*@b","")
work = string.gsub(work,"@.*","")
work = tonumber(work)
pty[index] = work
work = str
work = string.gsub(work,"^.*@w","")
work = string.gsub(work,"@.*","")
wikidata[index] = work
-- call getwdcoords - if Wikidata check if lat/long missing - try to get it from Wikidata
ptx[index],pty[index],wikidata[index] = getwdcoords(ptx[index],pty[index],wikidata[index])
if sort == "yes" then
sortit[index] = string.gsub(string.gsub(name[index],"%[%[",""),"]]","")
sortit[index] = sortit[index] .. "@n" .. name[index] .. "@a" .. ptx[index] .. "@b" .. pty[index] .. "@i" .. images[index] .."@w" .. wikidata[index] .. "@t" .. keeptype[index]
table.sort(sortit)
end
index = index + 1
end
end
if sort == "yes" then
for i = 1, #sortit do
name[i] = string.gsub(string.gsub(sortit[i],"^.*@n",""),"@.*","")
ptx[i] = string.gsub(string.gsub(sortit[i],"^.*@a",""),"@.*","")
ptx[i] = tonumber(ptx[i])
pty[i] = string.gsub(string.gsub(sortit[i],"^.*@b",""),"@.*","")
pty[i] = tonumber(pty[i])
images[i] = string.gsub(string.gsub(sortit[i],"^.*@i",""),"@.*","")
wikidata[i] = string.gsub(string.gsub(sortit[i],"^.*@w",""),"@.*","")
keeptype[i] = string.gsub(string.gsub(keeptype[i],"^.*@t",""),"@.*","")
end
end
for i = 1, #ptx do
result = inapoly(polyx,polyy,ptx[i],pty[i])
if ptx[i] == 1 or ptx[i] == nil then ptx[i] = "None" end
if pty[i] == 1 or pty[i] == nil then pty[i] = "None" end
if keeptype[i] == nil or keeptype[i] == "" or keeptype[i] == " " then keeptype[i] = "listing" end
if result == true then
if name[i] ~= nil or name[i] ~= "" then
output = output .. "* latitude: " .. ptx[i] .. " longitude: " .. ptx[i] .. " for '''" .. name[i] .. "'''... appears to be within the polygon...\n"
if marker == "yes" then
-- markertxt = markertxt .. "\*".. i .. ". {{marker | type=listing | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" ..string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
if oporigtype == "yes" or oporigtype == "both" then
markertxtyes = markertxtyes .. "\*".. i .. ". {{marker | type=" .. keeptype[i] .. "| name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" ..string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
elseif oporigtype == "no"and oporigtype == "yes" then
markertxtyes = markertxtyes .. "\*".. i .. ". {{marker | type=" .. keeptype[i] .. "| name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" ..string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
else
markertxtyes = markertxtyes .. "\*".. i .. ". {{marker | type=listing | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" ..string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
end
end
else
if marker == "yes" then
-- markertxt = markertxt .. "\*".. i .. ". {{marker | type=listing | name=NoName" .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" .. string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
if oporigtype == "yes" or oporigtype == "both" then
markertxtyes = markertxtyes .. "\*".. i .. ". {{marker | type=" .. keeptype[i] .. " | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" ..string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
elseif oporigtype == "no" or oporigtype == "both" then
markertxtyes = markertxtyes .. "\*".. i .. ". {{marker | type=" .. keeptype[i] .. " | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" ..string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
else
markertxtyes = markertxtyes .. "\*".. i .. ". {{marker | type=listing | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" ..string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
end
end
output = output .. "* latitude: " .. pty[i] .. " longitude: " .. pty[i] .. " ... appears to be within the polygon...\n"
end
else
if name[i] ~= nil or name[i] ~= "" then
output = output .. "* latitude: " .. ptx[i] .. " longitude: " .. pty[i] .. " for '''" .. name[i] .. "'''... appears '''not''' to be within the polygon...\n"
if marker == "yes" then
-- markertxt = markertxt .. "\*".. i .. ". {{marker | type=vicinity | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" .. string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
if oporigtype == "yes" or oporigtype == "both" then
markertxtno = markertxtno .. "\*".. i .. ". {{marker | type=" .. keeptype[i] .. " | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" .. string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
elseif oporigtype == "no" or oporigtype == "both" then
markertxtno = markertxtno .. "\*".. i .. ". {{marker | type=" .. keeptype[i] .. " | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" .. string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
else
markertxtno = markertxtno .. "\*".. i .. ". {{marker | type=vicinity | name=" .. name[i] .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" ..string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
end
end
else
output = output .. "* latitude: " .. ptx[i] .. " longitude: " .. pty[i] .. "... appears '''not''' to be within the polygon...\n"
if marker == "yes" then
-- markertxt = markertxt .. "\*".. i .. ". {{marker | type=listing | name=NoName" .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" .. string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .."}}\n"
if oporigtype == "yes" or oporigtype == "both" then
markertxtno = markertxtno .. "\*".. i .. ". {{marker | type=" .. keeptype[i] .. " | name=NoName" .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" .. string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
elseif oporigtype == "no" or oporigtype == "yes" then
markertxtno = markertxtno .. "\*".. i .. ". {{marker | type=" .. keeptype[i] .. " | name=NoName" .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" .. string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
else
markertxtno = markertxtno .. "\*".. i .. ". {{marker | type=vicinity | name=NoName" .. " | lat=" .. string.gsub(ptx[i],"None"," ") .. " | long=" .. string.gsub(pty[i],"None"," ") .. " | image=" .. images[i] .. " | wikidata=" .. string.gsub(wikidata[i],"Wikidata ID","") .. "}}\n"
end
end
end
end
end -- ENDFor Loop
-- markertxt,_ = string.gsub(markertxt," - $","")
markertxtyes,_ = string.gsub(markertxtyes," - $","")
markertxtno,_ = string.gsub(markertxtno," - $","")
map = ""
if mapframe == "yes" then
if ptx[1] ~= "None" and pty[1] ~= "None" then
map = '{{mapframe|align=center|height="500"|width="850"|' .. ptx[1] .. '|' .. pty[1] .. '|layer=MS|zoom=7|show=listing,see,do,buy,eat,drink,sleep,around,city,view,site,other,go,vicinity,mask,gold,lime,magenta,mediumaquamarine,orange,plum,red,silver,unknown|name=Inapoly Test}}' .. "\n" .. shape
elseif makebox ~= nil and makebox ~= "" then
local latx = string.gsub(makebox,",.*$","")
local longy = string.gsub(makebox,"^.*,","")
map = '{{mapframe|align=center|height="500"|width="850" | ' .. latx .. '|' .. longy .. '| layer=MS|zoom=7|show=listing,see,do,buy,eat,drink,sleep,around,city,view,site,other,go,vicinity,mask,gold,lime,magenta,mediumaquamarine,orange,plum,red,silver,unknown|name=Inapoly Test}}' .. "\n" .. shape
else
map = '{{mapframe|align=center|height="500"|width="850"|' .. polyx[1] .. '|' .. polyy[1] .. '|layer=MS|zoom=7|show=listing,see,do,buy,eat,drink,sleep,around,city,view,site,other,go,vicinity,mask,gold,lime,magenta,mediumaquamarine,orange,plum,red,silver,unknown|name=Inapoly Test}}' .. "\n" .. shape
end
else
map = ""
end -- END MAKE A MAPFRAME WITH MAPMASK
if marker == "no" and text == "yes" then
return map .. "\n----\n" .. output
end
if marker == "no" and text == "no" then
return map
end
if marker == "yes" and text == "no" then
if markermatch == "yes" then
return map .. "\n----\n" .. markertxtyes .. "\n"
end
if markermatch == "no" then
return map .. "\n----\n" .. markertxtno .. "\n"
end
if markermatch == "both" then
return map .. "\n----\n" .. markertxtyes .. "\n----\n" .. markertxtno
end
end
if marker == "yes" then
if markermatch == "yes" then
if text == "yes" then
return map .. "\n----\n" .. markertxtyes .. "\n----\n" .. output
else
return map .. "\n----\n" .. markertxtyes
end
end
if markermatch == "no" then
if text == "yes" then
return map .. "\n----\n" .. markertxtno .. "\n----\n" .. output
else
return map .. "\n----\n" .. markertxtno
end
end
if markermatch == "both" then
if text == "yes" then
return map .. "\n----\n" .. markertxtyes .. "\n----\n" .. markertxtno .. "\n----\n" .. output
else
return map .. "\n----\n" .. markertxtyes .. "\n----\n" .. markertxtno
end
end
else
return map .. "\n----\n" .. markertxtyes .. "\n----\n" .. markertxtno .. output
end
end
return p
