無限にunknown pleasuresできるスケッチを書いた

これで好きなだけunknown pleasuresを眺めることができる

Unknown Pleasures (Bonus CD) (Reis)

// processing 

int STROKECOUNT = 50;
void setup(){
  size(400,500);
  frameRate(14);
}

void draw(){
  background(0);
  strokeWeight(2);
  smooth();
  stroke(255);
  fill(0);
  int step = 4;
  float lastx = -999;
  float lasty = -999;
  float ynoise = float(frameCount)/10; float y;
  float ystep = height / STROKECOUNT;
  for (int yorigin = ystep*6; yorigin < height; yorigin+=ystep){
    beginShape();
    for (float x=20; x<=480; x+=step) {
       y = yorigin -  noise(ynoise + x/200 + random(0.03))*80 * exp(pow((x - 250 - sin(yorigin/ystep)*random(20))/60,2)*(-0.8));
      if (lastx > -999) {
        vertex(x, y);
    }
    lastx = x; lasty = y; ynoise += 0.1;
    }
    endShape();
    lastx = -999; ynoise -= 0.1;
  }
}