select.help.hs

-- select
let n = 3/2
    a = mce [sinOsc ar 440 0, saw ar 440, pulse ar 440 0.1]
in select (lfSaw kr 1 0 * n + n) a * 0.1

-- select ; as sequencer
let n = 10
    a = mce [517, 403, 89, 562, 816, 107, 241, 145, 90, 224]
    c = n / 2
    f = select (lfSaw kr 0.5 0 * c + c) a
in saw ar f * 0.1

-- select ; i-rate
let a = mce [rand 110 220,rand 220 440,rand 440 880]
in sinOsc ar (select (rand 0 3) a) 0 * 0.1

-- select ; i-rate ; id
let a = mce [randId 'α' 110 220,randId 'β' 220 440,randId 'γ' 440 880]
in sinOsc ar (select (randId 'δ' 0 3) a) 0 * 0.1

-- select ; nested mce
let n = 10
    a = mce [mce [517, 403, 89], mce [562, 816, 107], mce [241, 145, 90, 224]]
    c = n / 2
    f = select (lfSaw kr (mce [0.5, 0.75]) 0 * c + c) a
in saw ar f * 0.1

-- select ; buffer segment player ; requires=buf
let (buf, nc) = (control kr "buf" 0, 2)
    n_segments = control_m kr "nseg" 32 (1, 64, "lin")
    sel = control_m kr "sel" 0 (0,3,"lin")
    buf_size = bufFrames kr buf
    segment_size = bufFrames kr buf / n_segments
    tr = impulse kr (n_segments / bufDur kr buf) 0
    phase = phasor ar tr (bufRateScale kr buf) 0 (segment_size - 1) 0
    ix = mce [dseriesId 'α' dinf 0 1 `modE` n_segments -- play segments in sequence (reconstruct)
             ,n_segments - 1 - (dseriesId 'β' dinf 0 1 `modE` n_segments) -- play segments in reverse sequence
             ,dbrownId 'γ' dinf 0 (n_segments - 1) 1
             ,dwhiteId 'δ' dinf 0 (n_segments - 1)]
    zero = select sel (demand tr 0 (ix * segment_size))
in bufRdN nc ar buf (zero + phase) NoLoop * 0.1

---- ; buffer setup (nc = 2)
withSc3 (async (b_allocRead 0 (sfResolve "amen.wav") 0 0))