pakt19

Built with p5.js and SuperCollider. See /f0blog/pact-februari/

//pakt19
let index, n
let speed, disorder, rad
const bubbles = []
let grad
function setup() {
  const div = select('#sketch')
  const cnv = createCanvas(div.width, div.height)
  cnv.parent('sketch')
  frameRate(60)
  noStroke()
  index = 0
  n = 200
  rad = 25
  for (let i = 0; i < n; i++) {
    bubbles[i] = []
    bubbles[i][0] = 0
    bubbles[i][1] = 0
    bubbles[i][2] = 1
  }
  grad = createGraphics(width, height)
  grad.noStroke()
  for (let r = width; r > 0; --r) {
    grad.fill(lerpColor(color(255, 77, 77), color(0, 0, 0), r / width))
    grad.ellipse(width * 0.5, height * 0.5, r * 2.0, r * 2.0)
  }
}
function draw() {
  speed = sin(index * 0.02) * 0.01 + 0.065
  disorder = sin(index * 0.0022) * 25 + 25
  image(grad, 0, 0)
  translate(width * 0.5, height * 0.5)
  for (let i = 0; i < n; i++) {
    const b = bubbles[i]
    const theta = (i / n + sin(index * 0.0001)) * TWO_PI
    fill(255, 255, 255, (1 - b[2]) * 255)
    ellipse(
      sin(theta + (sin(index * 0.0008) * 0.25 + 1) * i) * width * 0.4 * b[0],
      cos(theta + (sin(index * 0.0012) * 0.25 + 1) * i) * height * 0.4 * b[1],
      rad * b[2] * 2,
      rad * b[2] * 2,
    )
    const dxyz = (sin((index + i * speed * disorder) * 0.01) * 0.1 + 0.15) * speed
    bubbles[i][0] = (b[0] + dxyz) % 1
    bubbles[i][1] = (b[1] + dxyz) % 1
    bubbles[i][2] = (b[2] + dxyz) % 1
  }
  index++
}

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