## tonal synthesis: normal function applied to the amplitude envelope and the instantaneous frequency
norm <- rep(dnorm(-4000:3999, sd=1000), 2)
toto <- synth2(env=norm, ifreq=500+(norm/max(norm))*1000, f=8000, plot=TRUE, osc=TRUE, ovlp=85)
Seewave-Example42