powered by
nullSample(rate=44100, bits=16, channels=1)
Silence
scale <- 2^(seq(0,1,length=13))[c(1,3,5,6,8,10,12,13)] base <- 440 s <- nullSample() for (f in scale) s <- appendSample(s,Sine(f*base,1)) play(s)
Run the code above in your browser using DataLab