‹ pakt18 pakt20 ›

pakt19


pact19bubbles, 01:00, 1.84MB
Ndef(\bubbles).play
(
Ndef(\bubbles, {var n= 6;
  GVerb.ar(Mix({|i|
    var q= i/n*2pi;
    var t= Impulse.ar(SinOsc.ar(SinOsc.ar(0.125, q, 0.5), 0, 1.5, 2), i/n);
    Pan2.ar(
      SinOsc.ar(
        SinOsc.ar(0.01, q, SinOsc.ar(0.05, q, 50), 500),
        Decay2.ar(t, 0.02, 0.2, SinOsc.ar(0.05, q, SinOsc.ar(0.01, 0, 8pi, 8pi))),
        Decay2.ar(t, TRand.ar(0.003, 0.03, t), TRand.ar(0.05, 0.1, t), SinOsc.ar(0.08, q, 0.2, 0.05).max(0))
      ),
      (i/(n-1))*2-1
    );
  }!n), 40, 2, 0.6);
});
)
Ndef(\bubbles).stop