Documentation[créer] [purger]
local Tools = require('Module:Outils')
local Geo = require("Module:Géoréférencement")
local p = {}

local function setzoom(args)
	zoom = tonumber(args.zoom) or 2
	if zoom == 1 then
		scale = 7143
	elseif zoom == 2 then
		scale = 14286
	elseif zoom == 3 then
		scale = 28571
	end
	return '&map_sc=' .. scale
end

function p.arkod(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.utm(lat, lon, 33.25, 0.9999) -- Zone UTM non entière => lon_0 = 16.5
	local zoom = setzoom(args)
	local header = '[http://preglednik.arkod.hr/ARKOD-Web/#layers=OSNOVNI%20PROSTORNI%20PODACI,TK25-client,ZU-client,LPIS_FILTERED,LPIS_200,LPIS_210,LPIS_310,LPIS_320,LPIS_321,LPIS_410,LPIS_421,LPIS_422,LPIS_430,LPIS_450,LPIS_451,LPIS_490,LPIS_900,LPIS,SLOPE05,SLOPE510,SLOPE1015,SLOPE15,SLOPEnull,POP,POVS,GAEC7,Zasticena%20podrucja,Ptice,Leptiri,Kontinentalna%20regija,Mediteranska%20regija,Brdsko-planinska%20regija,3m%20Vodoza%C5%A1titni%20pojas,10m%20Vodoza%C5%A1titni%20pojas,Obiljezja%20krajobraza,Tocke,Linije,Poligoni,TT%202015,RP,GPP,BFO,SPEC'
	local url_coord_center = '&map_x=' .. X .. '&map_y=' .. Y
	local url = header .. url_coord_center .. zoom .. ' ' .. desc ..'] sur [http://www.arkod.hr arkod]' .. Geo.footer(args['consulté le'])
	local url = Geo.noCoord(args) or url
	return url
end

return p