Module:Geoprohlizec

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 = tonumber(args.zoom) or 3
	if zoom == 1 then
		delta = 500
	elseif zoom == 2 then
		delta = 1000
	elseif zoom == 3 then
		delta = 2000
	elseif zoom == 4 then
		delta = 4000
	elseif zoom == 5 then
		delta = 8000
	end
	return delta
end

function p.geoprohlizec(frame)
	local args = Tools.extractArgs(frame)
	local lat, lon = Geo.setRadCoord(args)
	local desc = args.desc or args.description or 'Visualisation'
	local X, Y = Geo.pseudoMercator(lat, lon) -- Projection pseudo mercator
	local delta = setzoom(args)
	local header = '[https://ags.cuzk.cz/geoprohlizec/?ss=3857&extent='
	local url_coord = X-delta .. ',' .. Y .. ',' .. X+delta .. ',' .. Y-1 -- boîte englobante dont le zoom est défini par delta
	local url = header .. url_coord .. ' ' .. desc ..'] sur Geoprohlížeč.' .. Geo.footer(args['consulté le'])
	local url = Geo.noCoord(args) or url
	return url
end

return p