SourceFromTone function from kyle__

SourceFromTone.lua

function SourceFromTone(tone_in_hz)
	local rate = 44100
	local samples = math.floor((rate / tone_in_hz) + 0.5)
	tone_in_hz = rate / samples
	local data = love.sound.newSoundData(samples, rate)

	--print(samples, rate, tone_in_hz)
	for i = 0, samples do
		local value = (i * math.pi * tone_in_hz) / (rate / 2)
		--print(value, math.sin(value))
		data:setSample(i, math.sin(value))
	end

	local src = love.audio.newSource(data)
	src:setLooping(true)
	return src
end

function love.load()
	SourceFromTone(440):play()
end