Untitled 4 RGB

Translated by Corneel Cannaerts

Category: experimental
RGB Remix
        
/*
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;
let rgb;

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.5);
  rgb = [];
  rgb[0] = color(255, 0, 0);
  rgb[1] = color(0, 255, 0);
  rgb[2] = color(0, 0, 255);
}

function draw() {
  background(0);
  for (let i = 0; i < numX; i++) {
    for (let j = 0; j < numY; j++) {
      push();
      translate(i * stepX + pad, j * stepY + pad);
      for (let k = 0; k < 3; k++) {
        stroke(rgb[k]);
        hatch = random(0, 20);
        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();
}