Modulo:Maplink

Istruzioni per l'uso
Questo è un modulo scritto in Lua. Le istruzioni che seguono sono contenute nella sottopagina Modulo:Maplink/man (modifica · cronologia)
Sandbox: Modulo:Maplink/sandbox (modifica · cronologia) · Sottopagine: lista · Test: Modulo:Maplink/test (modifica · cronologia · Esegui)

Questo modulo è utilizzato dal template {{Maplink}} per il calcolo del centro della mappa e della scala.

È utilizzata la proiezione Web Mercator (EPSG:3857).

zoom

calcola l'ingrandimento adeguato sulla base delle dimensioni dell'immagine e delle coordinate inserite.

La funzione utilizza quattro parametri obbligatori:

larghezza in pixel della carta (al momento non utilizzata)
altezza in pixel della carta (al momento non utilizzata)
lista separata da virgole con la longitudine dei singoli punti (x1,x2,x3,...)
lista separata da virgole con la latitudine dei singoli punti (y1,y2,y3,...)

centro_lon

calcola la longitudine del punto medio rispetto al valore minimo e a quello massimo tra quelli inseriti.

La funzione utilizza un solo parametro:

lista separata da virgole con la longitudine dei singoli punti (x1,x2,x3,...)

centro_lat

calcola la latitudine del punto medio rispetto al valore minimo e a quello massimo tra quelli inseriti (utilizza una correzione dovuta alla proiezione utilizzata da OpenStreetMap).

La funzione utilizza un solo parametro:

lista separata da virgole con la latitudine dei singoli punti (y1,y2,y3,...)

require('Module:No globals')
local getArgs = require('Module:Arguments').getArgs

local p = {}

-- Calcola la scala adeguata per mappa OSM
-- esempio chiamata di funzione {{#invoke:Mappa OSM|scala|w|h|x1|y1|x2|y2|...}}
function p.scala(frame)
	local t = getArgs(frame)
	local lat1, lat2, lon1, lon2 = 400, -400, 400, -400
	local dimx = tonumber(t[1]) or 1 --larghezza
	local dimy = tonumber(t[2]) or 1 --altezza
	local vlr
	for i,v in ipairs(t) do 
		if i>2 then
			vlr = tonumber(t[i])
			if (i % 2 == 0) then --calcolo latitudine minima e massima
				if (lat1 > vlr) then lat1 = vlr end
				if (lat2 < vlr) then lat2 = vlr end
			else --calcolo longitudine minima e massima
				if (lon1 > vlr) then lon1 = vlr end
				if (lon2 < vlr) then lon2 = vlr end
			end
		end
	end

	-- problemi con latitudine oltre 85°
	if ((lat2>85) or (lat1<-85)) then return 0 end

	-- calcola posizione rispetto a Web Mercator per griglia di lato 1
	-- con fattore 1.10 per evitare punti troppo vicini al margine
	local dx = 1.10*(lon2-lon1)/360
	local dy = 1.10*(math.log(math.tan( math.pi*(1 + lat2/90)/4)) - math.log(math.tan( math.pi*(1 + lat1/90)/4)))/(2*math.pi)

	-- calcolo scale per coordinate
	local scalax, scalay
	if (dx == 0) then scalax = 18 else scalax = math.floor(-math.log(dx)/math.log(2)) end
	if (dy == 0) then scalay = 18 else scalay = math.floor(-math.log(dy)/math.log(2)) end
	local scala
    if ((dx == 0) and (dy == 0)) then
    	scala = 10 --valore default per singolo punto
   	else
   		scala = math.max(0,math.min(18,scalax, scalay)) --calcolo scala minima compresa tra 0 e 18
   	end
	return scala
end

-- Calcola centro per longitudine
-- esempio chiamata di funzione {{#invoke:Mappa OSM|centro|x1|x2|...}}
function p.centro(frame)
	local t = getArgs(frame)
	local mn, mx = 400, -400
	local xval
	for i,v in ipairs(t) do
		xval = tonumber(t[i])
		if (mn > xval) then mn = xval end
		if (mx < xval) then mx = xval end
	end
    return (mn+mx)/2
end

-- Calcola centro per latitudine
-- esempio chiamata di funzione {{#invoke:Mappa OSM|centro2|x1|x2|...}}
function p.centro2(frame)
	local t = getArgs(frame)
	local mn, mx = 400, -400
	local xval
	for i,v in ipairs(t) do
		xval = tonumber(t[i])
		if (mn > xval) then mn = xval end
		if (mx < xval) then mx = xval end
	end
	local lat1 = 1-math.log(math.tan( math.pi*(1 + mn/90)/4))/math.pi
	local lat2 = 1-math.log(math.tan( math.pi*(1 + mx/90)/4))/math.pi
	local latm = (lat1+lat2)/2
	local coord = (math.atan(math.exp(math.pi*(1-latm)))-math.pi/4)*360/math.pi
    return coord
end

return p