library(soundgen) library(seewave) s1 = soundgen( sylLen = 240, pitch = c(150, 180), rolloff = c(-10, -8), nonlinRandomWalk = c(rep(1, 50), rep(2, 50)), subFreq = 75, subDep = c(5, 15), jitterDep = 1, shimmerDep = 10, temperature = 0.05, formants = list(f1 = c(550, 600), f2 = c(1600, 2200), f3 = c(2500, 2400), f4 = 3700, f5 = 4400), noise = data.frame(time = c(0, 320), value = c(-40, -30)), rolloffNoise = 0, attackLen = 50, addSilence = 0, dynamicRange = 120, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) s2 = soundgen( nSyl = 2, sylLen = c(75, 170), pauseLen = 50, pitch = c(180, 270, 170), vibratoDep = 2, vibratoFreq = 8, pitchGlobal = c(0, 3), amplGlobal = c(-5, 0), rolloff = -12, jitterDep = .2, shimmerDep = 10, temperature = 0.05, formants = list( f1 = c(400, 400, 650), f2 = c(2200, 2200, 2100, 1900), f3 = c(2900, 3000), f4 = c(3900, 3700), f5 = 4400), noise = data.frame(time = c(-100, 10, 20, 65, 75, 100, 220), value = c(-50, -30, -40, -40, -30, -40, -50)), formantsNoise = list( f1 = c(450, 450, 600), f2 = c(2200, 2200, 2100, 1600), f3 = c(2900, 3000, 2800), f4 = c(3900, 3700), f5 = 4400), rolloffNoise = 0, attackLen = c(5, 50), addSilence = 0, dynamicRange = 120, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) s3 = soundgen( nSyl = 3, sylLen = 140, pauseLen = 95, pitch = c(155, 163, 155), pitchGlobal = c(0, 1), rolloff = -9, jitterDep = .2, shimmerDep = 10, temperature = 0.05, formants = list( f1 = data.frame(time = c(0, 40, 570), freq = c(700, 750, 950)), f2 = data.frame(time = c(0, 40, 570), freq = c(1600, 1100, 1550)), f3 = c(2500, 2700, 2500), f4 = 3600), noise = data.frame(time = c(-10, 0, 120, 140, 220), value = c(-40, -30, -30, -25, -50) - 5), rolloffNoise = 0, attackLen = c(20, 100), addSilence = 0, dynamicRange = 120, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) s = addVectors(s1, s2/1.5, insertionPoint = length(s1) - 22050 * .1) s = addVectors(s, s3, insertionPoint = length(s) - 22050 * .1) playme(s, 22050) savewav(s, f = 22050, filename = 'laugh_261_soundgen.wav')