Untitled 4

Translated by Corneel Cannaerts

Category: direct

Direct Translation of Untitled 4 Click mouse to regenerate with different random values.

        
/*
Part of the ReCode Project (http://recodeproject.com)
Based on "Untitled 4" by Various
Originally published in "Computer Graphics and Art" v1n4, 1976
Copyright (c) 2013 Corneel Cannaerts - OSI/MIT license (http://recodeproject/license).
*/

/* @pjs pauseOnBlur="true"; */

let pad, stepX, stepY, numX, numY;
let hatch;

function setup() {
  createCanvas(820, 1200);
  pad = 10;
  stepX = 80;
  stepY = 40;
  numX = (width - 2 * pad) / stepX;
  numY = (height - 2 * pad) / stepY;
  hatch = 7.0;
  strokeWeight(1.1);
}

function draw() {
  background(255);
  for (let i = 0; i < numX; i++) {
    for (let j = 0; j < numY; j++) {
      push();
      translate(i * stepX + pad, j * stepY + pad);
      if(random(1) < 0.5) vertical();
      else horizontal();
      pop();
    }
  }
  noLoop();
}

function vertical() {
  for(let i = 0; i < hatch; i++){
    line(i * stepX / hatch, 0, i * stepX / hatch, stepY);
  }
}

function horizontal() {
  for(let i = 1; i < hatch + 1; i++){
    line(0, i * stepY / hatch, stepX, i * stepY / hatch);
  }
}

function mouseClicked(){
  loop();
}