Hex Variations

Translated by Steve Berrick

Based on: Hex Variation by William Kolomyjec
Category: experimental
        
/*
Part of the ReCode Project (http://recodeproject.com)
Based on "Hex Variation" by William Kolomyjec
Originally published in "Computer Graphics and Art" vol3 no4, 1978
Copyright (c) 2012 Steve Berrick - OSI/MIT license (http://recodeproject/license).
*/

let _width = 600;
let _height = 900;
let _size = 20; // Hexagon radius
let mod = 2;

function setup() {
  createCanvas(_width, _height);
  noLoop();

  background(255);
  noFill();
  stroke(0);
  strokeWeight(2);
}

function draw() {
  // Clear background
  background(255);

  // Line length (hypotenuse)
  let h = sin(PI / 3) * _size;
  let r = 0;

  for (let i = 0; i <= _width / (_size * 3); i++) {
    for (let j = 0; j <= (_height / h) + 1; j++) {
      // Reference points (centre of each hexagon)
      let x = i * _size * 3 + (_size / 2);
      let y = j * h;

      // Offset each odd row
      if (j % 2 > 0) {
        x += _size * 1.5;
      }
      r++;

      push();
      translate(x, y);

      // Sequential hexagon rotation based on mod value
      rotate(r % mod * PI / 3);

      // Draw line
      line(0, -h, 0, h);

      // Draw arcs
      arc(-_size, 0, _size, _size, -PI / 3, PI / 3);
      arc(_size, 0, _size, _size, PI / 3 * 2, PI / 3 * 4);

      pop();
    }
  }
}

function mousePressed() {
  redraw();
}

function mouseMoved() {
  mod = Math.floor(mouseX % width / (_size * 3)) + 1;
  redraw();
}