Module:Sandbox/Jackmcbarn

local p = {}

function p.lambertConformalConic(refLat, refLong, stdParallel1, stdParallel2)
	return function(latitude, longitude)
		local n
		if stdParallel1 == stdParallel2 then
			n = math.sin(stdParallel1)
		else
			n = math.log(math.cos(stdParallel1)/math.cos(stdParallel2))/
				math.log(math.tan(0.25*math.pi + 0.5*stdParallel2)/math.tan(0.25*math.pi + 0.5*stdParallel1))
		end
		local f = math.cos(stdParallel1)*math.tan(0.25*math.pi + 0.5*stdParallel1)^n/n
		local rho = f*math.tan(0.25*math.pi + 0.5*latitude)^-n
		local rho0 = f*math.tan(0.25*math.pi + 0.5*refLat)^-n
		return {
			x = rho*math.sin(n*(longitude - refLong)),
			y = rho0 - rho*math.cos(n*(longitude - refLong))
		}
	end
end

function p.pairs(frame)
	local args, args_mt = { '__pairs was not used' }, {}
	function args_mt.__pairs( t )
		return pairs( { 'success' } )
	end
	return frame:expandTemplate{ title = 'Echo', args = setmetatable( args, args_mt ) }
end

function p.main(frame)
	local locmap = require('Module:Location map')
	local retval = {}
	for long=-165,-30,15 do
		for lat=40,80,5 do
			retval[#retval + 1] = tostring(locmap.mark(frame, {'Canada', long=long, lat=lat, outside='1'}))
		end
	end
	return locmap.top(frame, {'Canada', width=800, float='center'}) .. table.concat(retval) .. locmap.bottom(frame, {'Canada', width=800, float='center'})
end

return p