Sound.SC3.UGen.Help.viewSC3Help "LoopBuf"
    Sound.SC3.UGen.DB.ugenSummary "LoopBuf"

> import Sound.SC3 {- hsc3 -}
> import qualified Sound.SC3.UGen.Bindings.DB.External as E {- hsc3 -}

Read audio file into memory

> ld b = do
>   let fn = "/home/rohan/opt/src/supercollider/sounds/a11wlk01.wav"
>   withSC3 (async (b_allocRead b fn 0 0))

Simple sampler instrument

> lb0 =
>     let ou = control KR "out" 0
>         bf = control KR "bufnum" 0
>         rt = control KR "rate" 1
>         gl = control KR "glide" 0
>         gt = control KR "gate" 1
>         lr = control KR "loopRel" 0
>         sp = control KR "startPos" 0
>         sl = control KR "startLoop" 0
>         el = control KR "endLoop" 0
>         ip = control KR "ipol" 2
>         rt' = lag rt gl * bufRateScale KR bf
>         e = let d = envADSR 0.1 0.2 1 2 1 (EnvNum (-4)) 0
>             in envGen AR gt 1 0 1 RemoveSynth d
>         s = E.loopBuf 1 AR bf rt' (gt + lr) sp sl el ip
>     in out ou (s * e)

> lb0s :: Synthdef
> lb0s = synthdef "lb0" lb0

    ld 0
    withSC3 (async (d_recv lb0s))

    import Sound.OSC {- hosc -}
    let send = sendMessage
    let run = withSC3 . send

    run (s_new "lb0" 3000 AddToTail 1 [("bufnum",0),("startLoop",5000),("endLoop",15000)])

    run (n_set1 3000 "rate" (-1)) -- backwards
    run (n_set1 3000 "rate" 1) -- forwards
    run (n_set 3000 [("startLoop",11000),("endLoop",13000)]) -- change loop points
    run (n_set1 3000 "glide" 5) -- 5 second glide
    run (n_set1 3000 "rate" 2) -- up an octave
    run (n_set1 3000 "rate" (-1)) -- backwards
    run (n_set1 3000 "rate" 1) -- back to normal
    run (n_set1 3000 "ipol" 1) -- no interpolation
    run (n_set1 3000 "ipol" 2) -- linear interpolation
    run (n_set1 3000 "ipol" 4) -- cubic interpolation
    run (n_set1 3000 "gate" 0) -- release gate to hear post-loop

    run (s_new "lb0" 3000 AddToTail 1 [("bufnum",0),("startLoop",5000),("endLoop",15000)])
    run (n_set 3000 [("loopRel",1),("gate",0)]) -- release instrument without post-loop