# mainly testing out hold/unhold functionality# one LFO controls the frequency of 4 oscillators # function to create a voicefunc voice {min max} {    osc [regget 0] \        [biscale [regget 1] $min $max] \        [param 0.1] [param 0]} # generate sine table in register 0regset [gensine [tabnew 8192]] 0 # generate held LFO signal in register 1regset [hold [osc [regget 0] 0.1 1 0]] 1 # create 4 voices and add them togethervoice 400 500voice 400 600add zz zzvoice 400 300add zz zzvoice 400 200add zz zz # write output to wav filewavout zz "sines.wav" # release LFO signalunhold [regget 1] # compute ~30 seconds of soundcomputes 30