パーリンノイズの等高線

/**
* contour line for perlin noise
* 
* @author aa_debdeb
* @date 2016/07/22
*/

color c1 = color(238, 130, 238);
color c2 = color(130, 237, 130);
float noiseX, noiseY;

void setup(){
  size(400, 400);
  stroke(255, 255, 0);
  noiseX = random(10000);
  noiseY = random(10000);
}

void draw(){
  background(11, 11, 51);
  for(int x = 0; x < width; x++){
    for(int y = 0; y < height; y++){
      int n = int(noise(x * 0.01 + noiseX, y * 0.01 + noiseY, frameCount * 0.004) * 100) % 10; 
      stroke(map(n, 0, 9, red(c1), red(c2)),
             map(n, 0, 9, green(c1), green(c2)),
             map(n, 0, 9, blue(c1), blue(c2)));
      point(x, y);
    }
  }
}