A couple of new examples

Author: monkstone

demo/library/generator/generator.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+# Noise Generator
+class Generator
+  include SmoothNoise
+  attr_reader :nx, :ny, :nz
+
+  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)
+  end
+
+  def noisef(time)
+    (
+      (SmoothNoise.noise(nx, ny, nz, time) + 1) * 128
+    ).floor
+  end
+end

demo/psychedelic_noise.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env jruby
+require 'picrate'
+
+# Based on a sketch by Javi F Gorostiza
+# https://openprocessing.org/sketch/432548
+class PsychedelicNoise < Processing::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(width, 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
+    background(img)
+  end
+
+  def key_pressed
+    save(data_path('image.png'))
+  end
+
+  def settings
+    size(500, 500)
+  end
+end
+
+PsychedelicNoise.new

external_library/java/pgs/contour_map.rb

@@ -0,0 +1,56 @@
+#!/usr/bin/env jruby --dev
+require 'picrate'
+require_relative './vector_list'
+class ContourMap < Processing::App
+  load_library :pgs
+  java_import 'micycle.pgs.PGS_Contour'
+
+  attr_reader :heights, :max, :min
+  MAX = -1
+  MIN = 9999
+
+  def setup
+    sketch_title 'Contour Map'
+    @max = MAX
+    @min = MIN
+  end
+
+  def draw
+    background(0, 0, 40)
+    populate_height_map
+    isolines = PGS_Contour.isolines(heights.array_list, 0.08, min, max)
+    isolines.to_hash.each do |isoline, value|
+      isoline.set_stroke(
+        color(
+          map1d(value, min..max, 50..255),
+          map1d(isoline.get_vertex(0).x, 0..width, 50..255),
+          map1d(isoline.get_vertex(0).y, 0..height, 50..255)
+        )
+      )
+      shape(isoline)
+    end
+  end
+
+  def populate_height_map
+    @heights = VectorList.new
+
+    res = 16
+    anim_speed = 0.005
+
+    grid(width + res, height + res, res, res) do |x, y|
+      z = norm(noise(x*0.01 + frame_count*anim_speed, y*0.01 + frame_count*anim_speed), -1.0, 1.0)
+      h = Vec3D.new(x, y, 0)
+      z += h.dist(Vec3D.new(mouse_x, mouse_y, 0))*0.005
+      h.z = z
+      heights << h
+      @max = [max, z].max
+      @min = [min, z].min
+    end
+  end
+
+  def settings
+    size(800, 800)
+  end
+end
+
+ContourMap.new

external_library/java/pgs/vector_list.rb

@@ -0,0 +1,13 @@
+java_import 'java.util.ArrayList'
+java_import 'processing.core.PVector'
+
+class VectorList
+  attr_reader :array_list
+  def initialize
+    @array_list = ArrayList.new
+  end
+
+  def <<(val)
+    array_list.add(PVector.new(val.x, val.y, val.z))
+  end
+end