Modulo:Maplink: differenze tra le versioni

Versione delle 10:32, 13 mag 2017

Versione attuale delle 21:39, 22 ott 2022

(26 versioni intermedie di 3 utenti non mostrate)

Riga 1:

require('Module:No globalsstrict')

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

local p = {}

-- Calcola la scala adeguatacentro per mappa OSMlongitudine

-- esempio chiamata di funzione {{#invoke:Mappa OSMMaplink|scala|w|hcentro_lon|x1|y1|,x2|y2|,...}}

function p.scalacentro_lon(frame)

local t = getArgs(frame)

local amnmn, amx, bmn, bmxmx = 400, -400, 400, -400

local dimx = tonumber(t[1]) or 1xval

localfor dimyx =in tonumberstring.gmatch(t[21],'([^,]+)') or 1do

xval = tonumber(x)

local vlr

if (mn > xval) then mn = xval end

for i,v in ipairs(t) do

if i>2(mx < xval) then mx = xval end

vlr = tonumber(t[i])

if (i % 2 == 0) then

if (amn > vlr) then amn = vlr end

if (amx < vlr) then amx = vlr end

else

if (bmn > vlr) then bmn = vlr end

if (bmx < vlr) then bmx = vlr end

end

end

end

return (mn+mx)/2

local dx = (bmx - bmn)

local dy = (amx - amn)

if (dimx>dimy) then dx = dx*dimy/dimx else dy = dy*dimx/dimy end

local scala = 10

if (dx == 0) then

if (dy == 0) then

-- default

else

scala = math.floor(math.log(180/dy)/math.log(2))

end

else

if (dy == 0) then

scala = math.floor(math.log(360/dx)/math.log(2))

else

scala = math.min( math.floor(math.log(360/dx)/math.log(2)), math.floor(math.log(180/dy)/math.log(2)) )

end

end

return scala

end

-- Calcola centro per singola coordinatalatitudine

-- esempio chiamata di funzione {{#invoke:Mappa OSMMaplink|centrocentro_lat|x1|,x2|,...}}

function p.centrocentro_lat(frame)

local t = getArgs(frame)

local mn, mx = 400, -400

local xval

for i,vx in ipairsstring.gmatch(t[1],'([^,]+)') do

xval = tonumber(t[i]x)

if (mn > xval) then mn = xval end

if (mx < xval) then mx = xval end

end

if ((mx>85) or (mn<-85)) then return 0 end

return (mn+mx)/2

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

-- Calcola la scala adeguata per mappa OSM

-- esempio chiamata di funzione {{#invoke:Maplink|zoom|w|h|x1,x2,...|y1,y2...}}

function p.zoom(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 x in string.gmatch(t[3],'([^,]+)') do

vlr = tonumber(x)

if (lon1 > vlr) then lon1 = vlr end

if (lon2 < vlr) then lon2 = vlr end

end

for x in string.gmatch(t[4],'([^,]+)') do

vlr = tonumber(x)

if (lat1 > vlr) then lat1 = vlr end

if (lat2 < vlr) then lat2 = vlr 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.1 per evitare punti troppo vicini al margine

local dx = 1.1*(lon2-lon1)/360

local dy = 1.1*(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 gradi decimali

-- esempio chiamata di funzione {{#invoke:Maplink|gradi|numero gradi|numero primi|numero secondi|punto cardinale}}

function p.gradi(frame)

local t = getArgs(frame)

local t1 = tonumber(t[1]) or 0

local t2 = tonumber(t[2]) or 0

local t3 = tonumber(t[3]) or 0

local s = 1;

if ((t[4] == 'S') or (t[4] == 'W')) then s = -1 end

return (s*(t1+t2/60+t3/3600))

end

-- Calcola gradi decimali

-- esempio chiamata di funzione {{#invoke:Maplink|gradi|numero gradi|numero primi|numero secondi|punto cardinale}}

function p.gradi(frame)

local t = getArgs(frame)

local t1 = tonumber(t[1]) or 0

local t2 = tonumber(t[2]) or 0

local t3 = tonumber(t[3]) or 0

local s = 1;

if ((t[4] == 'S') or (t[4] == 'W')) then s = -1 end

return (s*(t1+t2/60+t3/3600))

end

-- Genera il tag di maplink per un punto

--

-- Questo metodo è stato convertito da un template.

-- Per vedere il codice originale:

-- [[Speciale:PermaLink/88514901]]

function p.tagPunto( frame )

local args = getArgs( frame )

local lat = tonumber( args.lat )

local lon = tonumber( args.lon )

local zoomRaw = args.zoom

local zoom = zoomRaw and tonumber( zoomRaw ) or 13

local nome = args.nome or 'Posizione'

local icona = args.icona or 'circle'

local data = {

["type"] = "Feature",

["geometry"] = {

["type"] = "Point",

["coordinates"] = { lon, lat },

},

["properties"] = {

["title"] = nome,

["marker-symbol"] = icona,

["marker-color"] = "b80000",

},

}

local dataJson = mw.text.jsonEncode( data )

local tag = frame:callParserFunction{ name = '#tag:maplink', args = {

dataJson,

["zoom"] = zoom,

["latitude"] = lat,

["longitude"] = lon,

} }

return tag

end