simple fractal 1

simpleFractalRec.re

open Reprocessing;

let width = 640;
let height = 360;

let rec drawRec = (~x, ~y, ~dimension, env) => {
  Draw.stroke(Constants.black, env);
  Draw.strokeWeight(1, env);
  Draw.noFill(env);
  Draw.rect(~pos=(x, y), ~width=dimension, ~height=dimension, env);
  if (dimension > 5) {
    drawRec(~x=x + dimension, ~y, ~dimension=dimension / 2, env);
    drawRec(~x=x - dimension, ~y, ~dimension=dimension / 2, env);
    drawRec(~x, ~y=y + dimension, ~dimension=dimension / 2, env);
  };
};

let setup = env => Env.size(~width, ~height, env);

let draw = (_, env) => {
  Draw.background(Constants.white, env);
  drawRec(~x=width / 2, ~y=height / 2, ~dimension=150, env);
};

run(~setup, ~draw, ());

Simple Fractal