sweep.help.hs

-- sweep ; using sweep to modulate sine frequency
let x = mouseX kr 0.5 20 Exponential 0.1
    t = impulse kr x 0
    f = sweep kr t 700 + 500
in sinOsc ar f 0 * 0.2

-- sweep ; using sweep to index into a buffer ; requires=buf
let (b, nc) = (control kr "buf" 100, 2)
    x = mouseX kr 0.5 20 Exponential 0.1
    t = impulse ar x 0
    p = sweep ar t (bufSampleRate kr b)
in bufRdL nc ar b p NoLoop

-- sweep ; backwards, variable offset ; requires=buf
let (b, nc) = (control kr "buf" 100, 2)
    n = lfNoise0Id 'α' kr 15
    x = mouseX kr 0.5 10 Exponential 0.1
    t = impulse ar x 0
    r = bufSampleRate kr b
    p = sweep ar t (negate r) + (bufFrames kr b * n)
in bufRdL nc ar b p NoLoop

-- sweep ; raising rate ; requires=buf
let (b, nc) = (control kr "buf" 100, 2)
    x = mouseX kr 0.5 10 Exponential 0.1
    t = impulse ar x 0
    r = sweep ar t 2 + 0.5
    p = sweep ar t (bufSampleRate kr b * r)
in bufRdL nc ar b p NoLoop

-- sweep ; f0 (sc-users, 2012-02-09)
let lf = range 0.01 1.25 (lfNoise2Id 'α' kr 1)
    du = duty ar lf 0 DoNothing lf
    tr = abs (hpz1 du) `greater_than` 0
    ph = sweep ar tr (1/du)
    fr = linExp ph 0 1 400 800
in sinOsc ar fr 0 * 0.2

-- sweep ; line segments, set start & end values, transition time and trigger, stops at end time
let tr = trigControl "tr" 1
    st = control kr "st" 440
    en = control kr "en" 880
    tm = control kr "tm" 2
    rt = ((en - st) / tm)
    sw = gate (sweep kr tr rt + st) (trig tr tm)
in sinOsc ar sw 0 * 0.2

---- ; send new line segments to running sweeper
withSc3 (Sound.Osc.sendMessage (n_set 1 [("st",660),("en",550),("tm",4),("tr",1)]))
withSc3 (Sound.Osc.sendMessage (n_set 1 [("st",110),("en",990),("tm",1),("tr",1)]))
withSc3 (Sound.Osc.sendMessage (n_set 1 [("tr",1)]))

---- ; buffer setup
withSc3 (async (b_allocRead 0 (sfResolve "pf-c5.aif") 0 0))