Module:Geoportale

Documentation[créer] [purger]

Ce module ne possède aucune documentation explicative en sous-page, pas même une description succincte.
Vous pouvez créer cette sous-page afin de documenter ce module adéquatement.

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.

Projet Scribunto

local Tools = require('Module:Outils')
local Geo = require("Module:Géoréférencement")
local p = {}

local function setzoom(args)
	zoom = args.zoom or 2
	if zoom == 1 then -- échelle 1/10000
		scale, delta = 25000, 2500
	elseif zoom == 2 then -- échelle 1/15000
		scale, delta = 25000, 3000
	elseif zoom == 3 then -- échelle 1/20000
		scale, delta = 25000, 3750
	elseif zoom == 4 then -- échelle 1/25000
		scale, delta = 100000, 5000
	elseif zoom == 5 then -- échelle 1/50000
		scale, delta = 100000, 10000
	elseif zoom == 5 then -- échelle 1/100000
		scale, delta = 250000, 20000
	elseif zoom == 5 then -- échelle 1/250000
		scale, delta = 250000, 50000
	end
	return scale, delta
end

function p.geoportale(frame)
	local args = Tools.extractArgs(frame)
	local lat, lon = Geo.setRadCoord(args)
	local desc = args.desc or args.description or 'Visualisation'
	local scale, delta = setzoom(args)
	local X, Y = Geo.utm(lat, lon, 33) -- Projection UTM33
	local header = '[http://www.pcn.minambiente.it/viewer/index.php?services=IGM_' .. scale .. '&box='
	local url_coord = X-delta .. ',' .. Y .. ',' .. X+delta .. ',' .. Y+1
	local url = header .. url_coord .. ' ' .. desc ..'] sur le [http://www.pcn.minambiente.it/mattm/ géoportail italien].' .. Geo.footer(args['consulté le'])
	local url = Geo.noCoord(args) or url
	return url
end

return p