# want to have a sine that increases at a constant rate, perceptually
# speaking.
# freq f(t) = f*2^(t/T)
# where T is the time in secs. to traverse an octave.
# then our sound is
# sin(2*pi*g(t)) where we get g(t) by integrating the freq. function
#
# g(t) = (f*T/log(2)) 2^(t/T)
library(tuneR) # need to like with the sound library
sr = 48000 # sampling rate
f = 440
bits = 16 # bit depth
secs = 15
T = 5 # change in freq per second
t = seq(0,secs,1/sr)
y = sin(2*pi*f*(T/log(2))* 2^(t/T));
u = Wave(2^(bits-4)*y, samp.rate = sr, bit=bits)
play(u,"play") # play it