recordBuf.help.lhs

> import Sound.SC3 {- hsc3 -}

> b_01 :: Num n => n
> b_01 = 0

Allocate a buffer (assume SR of 48k)

> m_01 = b_alloc b_01 (48000 * 4) 1

    > withSC3 (async m_01)

Record for four seconds (until end of buffer)

> g_01 =
>     let o = formant AR (xLine KR 400 1000 4 DoNothing) 2000 800 * 0.125
>     in mrg2 o (recordBuf AR b_01 0 1 0 1 NoLoop 1 RemoveSynth o)

Play it back

> g_02 = playBuf 1 AR b_01 1 1 0 NoLoop RemoveSynth

Mix second signal equally with existing signal, replay to hear

> g_03 =
>     let o = formant AR (xLine KR 200 1000 4 DoNothing) 2000 800 * 0.125
>     in mrg2 o (recordBuf AR b_01 0 0.5 0.5 1 NoLoop 1 RemoveSynth o)