27 lines
751 B
Lua
27 lines
751 B
Lua
|
local function check_lat_lon_range(pos, range, label)
|
||
|
|
need({'hoodselector', 'shapes'}, function()
|
||
|
|
if (type(pos) ~= "number") then
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
if pos > range or pos < -range then
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
return true
|
||
|
|
end, true, label.." must match a range +/-"..range)
|
||
|
|
end
|
||
|
|
|
||
|
|
if this_domain() ~= need_string(in_site({'default_domain'})) then
|
||
|
|
for _, shape in pairs(need_table(in_domain({'hoodselector', 'shapes'}))) do
|
||
|
|
need({'hoodselector', 'shapes'}, function()
|
||
|
|
if #shape < 2 then
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
for _, v in ipairs(shape) do
|
||
|
|
check_lat_lon_range(v.lat, 90.0, "lat")
|
||
|
|
check_lat_lon_range(v.lon, 180.0, "lon")
|
||
|
|
end
|
||
|
|
return true
|
||
|
|
end, true, "needs to have at least 2 coordinates for rectangular shapes.")
|
||
|
|
end
|
||
|
|
end
|