pakt10

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

//pakt10
let index, n
let rows, cols
let rowMod, colMod
let magic
let grad
function setup() {
  let div = select('#sketch')
  let cnv = createCanvas(div.width, div.height)
  cnv.parent('sketch')
  frameRate(60)
  noStroke()
  index = 0
  n = 1200
  rows = 11
  cols = 12
  rowMod = 2
  colMod = 2
  magic = 0
  grad = createGraphics(width, height)
  grad.noStroke()
  for (let r = width; r > 0; --r) {
    grad.fill(
      lerpColor(color(0.2 * 255, 0.2 * 255, 0.5 * 255), color(0, 0, 0), r / width)
    )
    grad.ellipse(width * 0.5, height * 0.5, r * 2.0, r * 2.0)
  }
  stroke(255, 255, 0.2 * 255, 0.85 * 255)
}
function draw() {
  const r = rows + sin(index * 0.013) * rowMod + sin(index * 0.00133) * rowMod * 0.56
  const c = cols + cos(index * 0.022) * colMod + cos(index * 0.00122) * colMod * 0.45
  image(grad, 0, 0)
  for (let i = 0; i < n; i++) {
    const px = (r + i) % width
    const py = ((c + i) * (i % (magic + 1.01))) % height
    line(px, py, px + (10 + sin((index + i) * 0.02)), py + 10 * cos((index + i) * 0.03))
  }
  rows = rows + sin(index * 0.0004)
  cols = cols + sin(index * 0.0005)
  index++
  magic = (magic + 0.00002) % 15
}

Ndef(\rain).play
(
Ndef(\rain, {
  var n= 30;
  Mix({|i|
    var z= SinOsc.ar(i+1*0.01, 0, 0.001);
    var f= i*100+100+SinOsc.ar(0.0123+z, i/n*2pi).exprange(1, 30);
    var q= SinOsc.ar(0.0234+z, i/n*2pi, 0.3, 0.7);
    var p= SinOsc.ar(0.0345+z, i/n*2pi);
    var a= SinOsc.ar(0.0456+z, i/n*2pi, 0.4, 0.45);
    var x= HPF.ar(BPF.ar(HPF.ar(ClipNoise.ar(2)*Crackle.ar(SinOsc.ar(0.0123+z, i/n*2pi, 0.1, 1.8))), f, q));
    Pan2.ar(x, p, a);
  }.dup(n));
});
)
Ndef(\rain).stop