«Wave-like» by p.dupuis

on 06 Jun'17 05:30 in naturenoiseoceanwavessound design

Some ocean sounds. Thanks to LFSaw and snappizz!

log fork json 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(
Ndef(\waves, {
    var sig, n=25, ffreq, rq, lfo, amp;
    
    ffreq = Array.fill(n, { exprand(100.0, 1500.0) });
    rq = Array.fill(n, { rrand(0.8, 1.4) });
    lfo = Array.fill(n, { LFNoise2.ar(0.2).range(0.5, 2.0) });
    amp = Array.fill(n, { LFNoise2.ar(0.33) });
    sig = BPF.ar(
        PinkNoise.ar( amp * Slew.ar(lfo, 0.25) ).atan.tanh,
        ffreq * Slew.ar(lfo, 1, 0.25),
        rq * Slew.ar(lfo, 0.25)
        );
    Splay.ar(sig, 0.9)
});
)

Ndef(\waves).fadeTime = 5;
Ndef(\waves).gui;
Ndef(\waves).stop;
Ndef(\waves).clear
raw 565 chars (focus & ctrl+a+c to copy)
reception
comments
snappizz ↪ user 06 Jun'17 23:39

nice :) i had to set s.options.numWireBufs_(128) for this to work

wallace ↪ user 18 May'19 22:00

good job, thanks!