more noise examples

Author: monkstone

contributed/etienne.rb

@@ -0,0 +1,48 @@
+#!/usr/bin/env jruby
+require 'propane'
+
+# After a sSketch by Etienne Jacob
+class Etienne < Propane::App
+  NUM_FRAMES = 38
+
+  def setup
+    sketch_title 'Etienne Sketch'
+  end
+
+  def periodic_function(p, seed, x, y)
+    radius = 1.3
+    scl = 0.018
+    1.0 * noise(seed + radius * cos(TWO_PI * p), radius * sin(TWO_PI * p), scl * x, scl * y)
+  end
+
+  def offset(x, y)
+    0.015 * dist(x, y, width / 2, height / 2)
+  end
+
+  def draw
+    background(0)
+    t = 1.0 * frameCount / NUM_FRAMES
+    m = 450
+    stroke(255, 50)
+    stroke_weight(1.5)
+    grid(m, m) do |i, j|
+      margin = 50
+      x = map1d(i, 0..m - 1, margin..width - margin)
+      y = map1d(j, 0..m - 1, margin..height - margin)
+      dx = 20.0 * periodic_function(t - offset(x, y), 0, x, y)
+      dy = 20.0 * periodic_function(t - offset(x, y), 123, x, y)
+      point(x + dx, y + dy)
+    end
+    save_frame('fr###.gif') if frameCount <= NUM_FRAMES
+    return unless frame_count == NUM_FRAMES
+
+    puts('All frames have been saved')
+    stop
+  end
+
+  def settings
+    size 500, 500
+  end
+end
+
+Etienne.new

contributed/library/generator/generator.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+# Noise Generator
+class Generator
+  include SmoothNoise
+  attr_reader :nx, :ny, :nz, :remap1, :remap2
+
+  R = 6
+  RR = 1
+
+  def initialize(phi, theta)
+    base = R + RR * Math.cos(phi)
+    tx = base * Math.cos(theta)
+    ty = base * Math.sin(theta)
+    tz = RR * Math.sin(phi)
+    @nx = MathTool.norm(tx, 0.0, R + RR)
+    @ny = MathTool.norm(ty, 0.0, R + RR)
+    @nz = MathTool.norm(tz, 0.0, RR)
+    @remap1 = ->(a, b, c) { ((SmoothNoise.noise(a, b, c) + 1) * 128).floor }
+    @remap2 = ->(a, b) { ((SmoothNoise.noise(a, b) + 1) * 128).floor }
+  end
+
+  def noisef(time)
+    remap2.call(remap1.call(nx, ny, nz), time)
+  end
+end

contributed/psychedelic_noise.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env jruby
+require 'propane'
+
+# Based on a sketch by Javi F Gorostiza
+# https://openprocessing.org/sketch/432548
+class PsychedelicNoise < Propane::App
+  load_library :generator
+  attr_reader :img, :colors, :remap1, :remap2
+
+  def setup
+    sketch_title 'Psychedelic Noise Pattern'
+    color_mode(RGB, 1.0)
+    @theta = 0
+    @phi = 0
+    # the dimensions of the image are twice the dimentions of
+    # the canvas to add antialiasing when the image is reduced
+    @img = create_image(2 * width, 2 * height, RGB)
+    @colors = (0..255).map { color(rand, rand, rand) }
+  end
+
+
+  def draw
+    # fill the array with rand colors
+    # create pattern
+    img.load_pixels
+    iwidth = img.width
+    iheight = img.height
+
+    grid(iwidth, iheight) do |x, y|
+      # map x and y to angles between 0 and TWO_PI
+      theta = map1d(x, 0..iwidth, 0..TWO_PI)
+      phi = map1d(y, 0..iheight, 0..TWO_PI)
+      generator = Generator.new(phi, theta)
+      # apply noise twice and use the equivalent color on the pallete
+      img.pixels[x + y * iwidth] = colors[generator.noisef(frame_count / 5)]
+    end
+    img.update_pixels
+    # display pattern
+    image(img, 0, 0, width, height) # the image is reduce to the size of the canvas to make it smooth
+  end
+
+  def key_pressed
+    save(data_path('image.png'))
+  end
+
+  def settings
+    size(500, 500)
+  end
+end
+
+PsychedelicNoise.new