Module:Austrianmap

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 setmarker(args, X, Y)
	if args.marker and args.marker ~= 'non' and args.marker ~= 'Non' and args.marker ~= 'no' and args.marker ~= 'No' then
		marker =  '%40' .. X .. '%7C' .. Y .. '%7E0'
	else
		marker = ''
	end
	return marker
end
	
function p.austrianmap(frame)
	local args = Tools.extractArgs(frame)
	local desc = args.desc or args.description or 'Visualisation'
	local zoom = args.zoom or 3
	local lat, lon = Geo.setRadCoord(args)
	local X, Y = Geo.lambert(lat, lon, 47.5, 49, 46, 13.3333333, 400000, 400000) -- Projection conique conforme de Lambert
	local marker = setmarker(args, X, Y)
	local header = '[http://www.austrianmap.at/amap/index.php?setTo=1~'
	local url_coord = X .. '~' .. Y .. '~' .. X+1 .. '~' .. Y-1 -- L'égalité stricte ne fonctionne pas, il faut un encadrement puis la boîte est calculée avec le paramètre zoom
	local url = header .. url_coord .. marker .. '&ZOOM=' .. zoom .. ' ' .. desc ..'] sur [[Bundesamt für Eich- und Vermessungswesen|BEV]].' .. Geo.footer(args['consulté le'])
	local url = Geo.noCoord(args) or url
	return url
end

return p