Module:Lmi

 Documentation[créer] [purger]

La documentation de ce module est générée par le modèle {{Documentation module}}.
Les éditeurs peuvent travailler dans le bac à sable (créer).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.

local Tools = require('Module:Outils')
local Coordinates = require('Module:Coordinates')
local wd = require("Module:Wikidata")
local url = {}


local function coord_converter(value)
	if tonumber(value) then
		return value
	else
		local dms_object = Coordinates._parsedmsstring(value)
		return Coordinates._dms2dec(dms_object)
	end
end

local function coord(args)
	if args.latitude and args.longitude then
		local latitude = coord_converter(args.latitude)
		local longitude = coord_converter(args.longitude)
		return latitude, longitude
	else
		local claim = wd.getClaims({property = 'P625'})
		if claim then
			local coords = wd.formatSnak(claim[1].mainsnak)
			return coords.latitude, coords.longitude
		else
			return 0, 0
		end
	end
end

url.lmi = function (frame)
	local args = Tools.extractArgs(frame)
	local validArg = function ( ... ) return Tools.validTextArg( args, ... ) end
	
	local latitude, longitude = coord(args)
	local lat = math.rad(latitude)
	local lon = math.rad(longitude)
	local desc = args.desc or 'Visualisation'
	local zoom = args.zoom or 8
	local e = 0.08181919132
	local a = 6378137
	local lat_1 = math.rad(64.25)
	local lat_2 = math.rad(65.75)
	local lat_0 = math.rad(65)
	local lon_0 = math.rad(-19)
	local x_0 = 500000
	local y_0 = 500000

	local n_num = math.log(math.cos(lat_2)/math.cos(lat_1)) + 0.5*math.log((1-e^2*math.sin(lat_1)^2)/(1-e^2*math.sin(lat_2)^2))
	local n_dem = math.log( math.tan(math.pi/4+lat_1/2)*(1-e*math.sin(lat_1))^(e/2)*(1+e*math.sin(lat_2))^(e/2) / (math.tan(math.pi/4+lat_2/2)*(1+e*math.sin(lat_1))^(e/2)*(1-e*math.sin(lat_2))^(e/2)) )
	local n = n_num / n_dem
	local init = a*math.cos(lat_1)/(n*math.sqrt(1-e^2*math.sin(lat_1)^2)) * ((math.tan(math.pi/4+lat_1/2))*((1-e*math.sin(lat_1))/(1+e*math.sin(lat_1)))^(e/2))^n
	local rho = init * ((1/math.tan(math.pi/4+lat/2))*((1+e*math.sin(lat))/(1-e*math.sin(lat)))^(e/2))^n
	local rho_0 = init * ((1/math.tan(math.pi/4+lat_0/2))*((1+e*math.sin(lat_0))/(1-e*math.sin(lat_0)))^(e/2))^n
	                 
	local X = math.floor(x_0 + rho * math.sin(n * (lon - lon_0)))
	local Y = math.floor(y_0 + rho_0 - rho * math.cos(n * (lon - lon_0)))
	
	local header = '[https://kortasja.lmi.is/mapview/?application=kortasja&lang=is&center='
	local url_coord = X ..',' .. Y
	url = header .. url_coord .. '&zoom=' .. zoom .. '&layers=217,232,225,286,221 ' .. desc ..'] sur Landmælingar Íslands.'
	
	if args['consulté le'] then 
		url = url .. ' <small>(consulté le' .. args['consulté le'] .. ')</small>'
	end
	
	if latitude == 0 and longitude == 0 then -- Pas de coordonnées entrées et pas de coordonnées wikidata
		url = 'Coordonnées manquantes.'
	end
	
	return url
end

return url