replaceOut.help.hs

-- replaceOut
replaceOut 0 (sinOsc ar 440 0 * 0.1)

-- replaceOut ; send signal to a bus, overwrite existing signal
--            ; mrg nodes are ordered right to left, so below b replaces c and then a is summed
let a = sinOsc ar (mce [120, 121]) 0 * 0.1
    b = sinOsc ar (mce [330, 331]) 0 * 0.1
    c = sinOsc ar (mce [880, 881]) 0 * 0.1
in mrg [out 0 a, replaceOut 0 b, out 0 c]

-- replaceOut ; a writes noise to bus 24, b reads 24 and replaces with filtered variant, c reads 24 and writes to 0
let a = pinkNoiseId 'α' ar * 0.1
    b = bpf (in' 1 ar 24) 440 1
    c = in' 1 ar 24
in mrg [out 0 c, replaceOut 24 b, out 24 a]