Module:Location map

local p = {}

local getArgs = require('Module:Arguments').getArgs

local function round(n, digits) local mult = math.pow(10, digits) return math.floor(n * mult + 0.5) / mult end

local function decdeg(degrees, minutes, seconds, hemisphere, digits, decimal) if decimal ~= nil then return tonumber(decimal) end decimal = (degrees or 0) + (minutes or 0)/60 + (seconds or 0)/3600 if hemisphere == 'W' or hemisphere == 'w' or hemisphere == 'S' or hemisphere == 's' then decimal = -decimal end if digits == nil then digits = 7 end return round(decimal, digits) end

function p.tilde(frame) -- local args = getArgs(frame) local retval = '<div style="position: absolute; top: '	local map_template = 'Location map ' .. args[1]	local map_y = frame:expandTemplate{title = map_template, args = { 'y' }}	if map_y and map_y ~= '' then		retval = retval .. frame:callParserFunction('#expr', frame:expandTemplate{title = map_template, args = { 'y', decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, nil, args.lat), decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, nil, args.long) }})	else		local map_top = frame:expandTemplate{title = map_template, args = { 'top' }}		local map_bottom = frame:expandTemplate{title = map_template, args = { 'bottom' }}		retval = retval .. round(100 * (map_top - decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, nil, args.lat) ) / (map_top - map_bottom), 1)	end	retval = retval .. '%; left: '	local map_x = frame:expandTemplate{title = map_template, args = { 'x' }} local x	if map_x and map_x ~= '' then x = frame:callParserFunction('#expr', frame:expandTemplate{title = map_template, args = { 'x', decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, nil, args.lat), decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, nil, args.long) }}) else local map_crosses180 = frame:expandTemplate{title = map_template, args = { 'crosses180' }} local map_left = frame:expandTemplate{title = map_template, args = { 'left' }} local map_right = frame:expandTemplate{title = map_template, args = { 'right' }} local crosses180_correction = map_crosses180 and map_crosses180 ~= '' and args.lon_dir == 'W' and (-36000/(map_left - map_right)) or 0 x = round(crosses180_correction + 100 * (decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, nil, args.long) - map_left) / (map_right - map_left), 1) end retval = retval .. x .. '%; height: 0; width: 0; margin: 0; padding: 0;">'	local mark = args.mark or frame:expandTemplate{title = map_template, args = { 'mark' }}	if mark ==  then mark = 'Red pog.svg' end	retval = retval .. 	retval = retval .. ' '	if args.position ~= 'none' then		retval = retval .. '<div style="font-size: ' .. (args.label_size or 90) .. '%; line-height: 110%; position: relative; top: -1.5em; width: ' .. (args.label_width or 6) .. 'em; ' if args.position == 'left' then retval = retval .. 'left: -6.5em; text-align: right;' elseif args.position == 'right' then retval = retval .. 'left: 0.5em; text-align: left;' elseif args.position == 'top' then retval = retval .. 'top:-2.65em; left:-3em; text-align: center;' elseif args.position == 'bottom' then retval = retval .. 'top:-0.15em; left: -3em; text-align: center;' elseif tonumber(x) > 70 then retval = retval .. 'left: -6.5em; text-align: right;' else retval = retval .. 'left: 0.5em; text-align: left;' end retval = retval .. '">' .. (args.label or '') .. ' '	end	retval = retval .. ' '	return retval end

return p