gistfile1.lua

SAMPLERATE = 44100

function sin(x)
	return math.sin(2*math.pi*x/SAMPLERATE)
end

function pcm(i)
	f = 1000
	return (2/math.pi)*(
						sin( 2*f*i*param)/2 -
						sin( 3*f*i*param)/3 +
						sin( 4*f*i*param)/4 -
						sin( 5*f*i*param)/5 +
						sin( 6*f*i*param)/6 -
						sin( 7*f*i*param)/7 +
						sin( 8*f*i*param)/8 -
						sin( 9*f*i*param)/9 +
						sin(10*f*i*param)/10-
						sin(11*f*i*param)/11+
						sin(12*f*i*param)/12-
						sin(13*f*i*param)/13+
						sin(14*f*i*param)/14)
end