Holdridge Classification

//For the #WCCChallenge, theme: "biomes"

​

let biomes = [];

let dim;

let types = ['ice', 'ice', 'ice', 'desert', 'desert', 'desert', 'dry tundra', 'moist tundra', 'wet tundra', 'rain tundra', 'desert', 'dry scrub', 'moist forest', 'wet forest', 'rain forest', 'desert', 'desert scrub', 'steppe', 'moist forest', 'wet forest', 'rain forest', 'desert', 'desert scrub', 'thorn steppe', 'dry forest', 'moist forest', 'wet forest', 'rain forest', 'desert', 'desert scrub', 'thorn woodland', 'very dry forest', 'dry forest', 'moist forest', 'wet forest', 'rain forest'];

let zones = ['super-arid', 'per-arid', 'arid', 'semi-arid', 'sub-humid', 'humid', 'per-humid', 'super-humid'];

let regions = ['polar', 'sub-polar', 'boreal', 'cool temperate', 'warm temperate', 'sub-tropical', 'tropical'];

let belts = ['alvar', 'alpine', 'subalpine', 'montane', 'lower montane', 'premontane'];

let photos = []

let pindex = 5;

let showphoto = true;

let sc = 0.2;

let tsc = 0.8;

let evapc, precipc;

let highlight, nohighlight;

​

function preload() {

  for (let i = 0; i < 14; i += 1) {

    photos.push(loadImage('biome' + i + '.jpg'));

  }

}

​

function setup() {

  createCanvas(windowWidth, windowHeight);

  dim = (height / sqrt(3) / 2) / 4;

  textAlign(CENTER, CENTER);

  imageMode(CENTER);

  makeBiomes();

  strokeWeight(2);

  for (let p of photos) {

    p.resize(0, height);

  }

  highlight = color(134, 219, 255, 230);

  nohighlight = color(255, 255, 255, 230);

  evapc = color(0, 0, 0, 200);

  precipc = color(0, 0, 0, 200);

}

​

function makeBiomes() {

  let i = 0;

  for (let row = 0; row < 8; row++) {

    for (let col = 0; col < 1 + row; col++) {

      let r = dim;

      let x = (col) * 2 * dim;

      let y = (-5.5 * dim) + row * (height / 8);

      let shift = -row * (dim)

      let pos = createVector(x + shift, y);

      let c = map((row + 1) * (col + 1), 0, 50, 0, 1);

      let n = types[i];

      biomes.push(new Biome(pos, r, c, n));

      i += 1;

    }

  }

}

​

function drawAxes() {

  rectMode(CENTER);

  fill(0, 200);

  noStroke();

  rect(0, height / 2 + dim / 2, width, dim);

  noFill();

  stroke(255, 200);

  let precip = 62.5;

  let transpo = 0.125;

  let b = 2 * height / sqrt(3);

  let z = 0;

  for (let l = 0; l <= 8; l++) {

    stroke(precipc);

    let x = l * b / 8;

    let xs = l * b / 16;

    let ys = l * height / 8;

    line(x - xs, -height / 2 + ys, x - (b / 2), height / 2);

    push();

    noStroke();

    fill(255);

    translate(x - xs, -height / 2 + ys);

    textAlign(LEFT, BOTTOM);

    textSize(dim / 3);

    fill(precipc);

    ellipse(0, 0, dim / 5);

    fill(255);

    text(precip, dim / 4, 0);

    precip *= 2;

    pop();

    stroke(evapc);

    line(-(x - xs), -height / 2 + ys, -(x - (b / 2)), height / 2);

    push();

    noStroke();

    fill(255);

    translate(-(x - xs), -height / 2 + ys);

    //rotate(PI/3);

    textAlign(RIGHT, BOTTOM);

    textSize(dim / 3);

    fill(evapc);

    ellipse(0, 0, dim / 5);

    fill(255);

    text(transpo.toFixed(3), -dim / 4, 0);

    transpo *= 2;

    pop();

    noStroke();

    fill(255);

    textAlign(CENTER, CENTER);

    textSize(dim / 3);

    if (z < zones.length) text(zones[z], (l - 3.5) * b / 8, height / 2 + dim / 3);

    z += 1;

  }

  stroke(255, 200);

  line(-b / 2, height / 2, b / 2, height / 2);

  push();

  translate(5.5 * dim, 0);

  rotate(PI / 3);

  noStroke();

  fill(precipc);

  textSize(dim / 2);

  text("Annual Precipitation (in mm)", 0, 0);

  pop();

  push();

  translate(-5.5 * dim, 0);

  rotate(-PI / 3);

  noStroke();

  fill(evapc);

  textSize(dim / 2);

  text("Potential Evapotranspiration Ratio", 0, 0);

  pop();

​

  push();

  translate(0, height / 2 + dim);

  noStroke();

  fill(255);

  textSize(dim / 2);

  text("Humidity Provinces", 0, 0);

  pop();

  drawRegions();

}

​

function drawRegions() {

  noStroke();

  fill(255);

  textAlign(LEFT, BOTTOM);

  textSize(dim / 2);

  let boundary = height;

  text('Latitude Zones', -boundary, -height / 8);

  textAlign(RIGHT, BOTTOM);

  text('Altitude Belts', boundary, -height / 8);

  textSize(dim / 3);

  for (let i = 0; i < 7; i++) {

    let y = -height / 16 + height / 8 * i;

    noFill();

    stroke(255, 100);

    if (regions[i] == 'warm temperate') y -= height / 16;

    if (regions[i] == 'sub-tropical') y -= height / 8;

    if (regions[i] == 'tropical') y -= 3 * height / 16;

    line(-boundary, y, boundary, y);

    noStroke();

    fill(255);

    textAlign(LEFT, BOTTOM);

    if (i < regions.length) text(regions[i], -boundary, y);

    textAlign(RIGHT, BOTTOM);

    if (i < regions.length - 1) text(belts[i], boundary, y);

  }

}

​

function draw() {

  if (frameCount > 30) {

    sc = lerp(sc, tsc, 0.1);

  }

  translate(width / 2, height / 2);

  scale(sc);

  background(0);

  if (showphoto) {

    image(photos[pindex], 0, 0);

  }

  for (let b of biomes) {

    b.show();

    if (b.contains(mouseX - width / 2, mouseY - height / 2)) b.tbulge = 1.2;

    else b.tbulge = 1;

  }

  drawAxes();

  fill(255);

  noStroke();

  textAlign(CENTER, CENTER);

  textSize(dim / 1.5);

  text('Life Zones', 0, -height / 2 - dim);

  let eci = map(mouseX, width/3, 2*width/3, 0, 1);

  evapc = lerpColor(highlight, nohighlight, eci);

  precipc = lerpColor(highlight, nohighlight, 1-eci);

}

​

function keyPressed() {

  if (keyCode == UP_ARROW) tsc += 0.1;

  if (keyCode == DOWN_ARROW && tsc > 0.3) tsc -= 0.1;

  if (keyCode == 32) {

    showphoto = !showphoto;

    tsc=0.8;

  }

}

​

function mousePressed() {

  showphoto=true;

  for (let b of biomes) {

    if (b.contains(mouseX - width / 2, mouseY - height / 2)) {

      if (b.n == 'ice') pindex = 0;

      else if (b.n.includes('dry tundra')) pindex = 10;

      else if (b.n.includes('scrub')) pindex = 3;

      else if (b.n.includes('desert')) pindex = 1;

      else if (b.n.includes('moist tundra')) pindex = 13;

      else if (b.n.includes('wet tundra')) pindex = 12;

      else if (b.n.includes('tundra')) pindex = 2;

      else if (b.n.includes('scrub')) pindex = 4;

      else if (b.n.includes('dry forest')) pindex = 8;

      else if (b.n.includes('wet forest')) pindex = 11;

      else if (b.n.includes('forest') && !b.n.includes('rain')) pindex = 5;

      else if (b.n.includes('rain')) pindex = 6;

      else if (b.n.includes('steppe')) pindex = 7;

      else if (b.n.includes('woodland')) pindex = 9;

    }

  }

}