powered by
reverse(s)
waveform <- 2*((seq(0,80,length=88200)%%1^2)-.5) s <- as.Sample(waveform,44100,16) play(s) play(reverse(s)) # now played backwards
Run the code above in your browser using DataLab