/* vwavetable -- a vibrato wavetable sythesis instrument * * p0 = start * p1 = duration * p2 = pitch (oct.pc or hz) * p3 = amplitude * p4 = vibrato rate low * p5 = vibrato rate high * p6 = vibrato depth (percentage) * p7 = stereo spread [optional] * assumes function table 1 is the synthesis waveform * assumes function table 2 is the amplitude envelope * assumes function table 3 is the vibrato waveform * */
load("vwavetable")
output("ttt.snd")
makegen(1, 10, 1000, 1, 0, 0.3, 0, 0.1, 0, 0.05)
makegen(2, 24, 1000, 0,0, 0.5,1, 3.4,1, 3.5,0)
makegen(3, 10, 1000, 1)
fplot(3) /* view the vibrato wave */
vwavetable(0, 3.5, 8.02, 10000, 4, 7, 1)
vwavetable(4.0, 3.5, 8.04, 10000, 4, 7, 10)