bufFrames.help.lhs

bufFrames rate bufnum

Current duration of buffer.

> import Sound.SC3

> let fn = "/home/rohan/audio/metal.wav"
> in withSC3 (\fd -> async fd (b_allocRead 0 fn 0 0))

> let p = phasor AR 0 (bufRateScale KR 0) 0 (bufFrames KR 0) 0
> in audition (out 0 (bufRdL 1 AR 0 p NoLoop))

Mouse location drags play head.

> let { r = mce [0.05, 0.075 .. 0.15]
>     ; p = k2A (mouseX KR 0 (bufFrames KR 0) Linear r) }
> in audition (out 0 (mix (bufRdL 1 AR 0 p NoLoop)))