Update noise examples

Author: monkstone

contributed/decagon_grid.rb

@@ -1,7 +1,7 @@
 # Example of a grid of decagons with perlin noise after Lenny Herzog
 
-load_library :pdf
-NOISE_STRENGTH = 80.0
+# load_library :pdf
+NOISE_STRENGTH = 40.0
 THETA = 36
 attr_reader :version, :save, :noise_generator
 
@@ -11,12 +11,12 @@ def setup
   @version = 0
   @save = false
   @noise_generator = lambda do |x, y, seed|
-    NOISE_STRENGTH * noise(
+    NOISE_STRENGTH * SmoothNoise.tnoise(
       x / 150.0,
       y / 150.0 + seed * 2,
       seed
-      ) - 100
-    end
+    ) - 100
+  end
   end
 
   def draw

contributed/etienne.rb

@@ -0,0 +1,42 @@
+# After a sketch by Etienne Jacob @etiennejcb
+
+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 * frame_count / 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(data_path('fr###.png')) if frame_count <= NUM_FRAMES
+  return unless frame_count == NUM_FRAMES
+
+  puts('All frames have been saved')
+  stop
+end
+
+def settings
+  size 500, 500
+end

contributed/noise_add.rb

@@ -2,6 +2,7 @@
 # After a vanilla processing sketch by
 # Ben Notorianni aka lazydog
 # Features dynamic creation of a colour table
+# Use 's' key to toggle spikes
 BALL_RADIUS = 160
 
 attr_reader :colour_table, :orb_vertices, :flat, :smoothing, :sub_division_depth
@@ -140,7 +141,7 @@ def generate_radii(base_radius, depth)
   return (0..depth).map { base_radius } if flat
 
   (0..depth).map do |i|
-    r = 2 * noise(frame_count * 0.003, (i.to_f / depth) - 1.0)
+    r = noise(frame_count * 0.003, (i.to_f / depth) - 1) + 1
     base_radius * (0.9 * r)
   end
 end

contributed/spiky_orb.rb

@@ -1,48 +1,58 @@
-#Terreno
-#
-# Transcrito a Jruby_Art por Carlos Rocha
-# Tomado de The Coding Train https://www.youtube.com/watch?v=IKB1hWWedMk
-class Terreno < Processing::App
-  def settings
-    size 800, 800, P3D
-  end
-
-  def setup
-    sketch_title 'Terreno'
-    @w = 1400
-    @h = 1100
-    @scl = 30
-    @col = @w/@scl
-    @filas = @h/@scl
-    @terreno = {}
-    @mover = 0
-  end
-
-  def draw
-    background 0
-    @mover -= 0.1
-    yoff = @mover
-    for y in 0..@filas
-      xoff = 0
-      for x in 0..@col
-        @terreno["#{x}.#{y}"]= p5map noise(xoff,yoff), 0, 1, -65, 65
-        xoff += 0.2
-      end
-      yoff += 0.2
-    end
-    stroke 255
-    no_fill
-    stroke 235, 69,129
-    translate width/2, height/2
-    rotate_x PI/3
-    translate -@w/2, -@h/2
-    for y in 0..@filas-1
-      begin_shape(TRIANGLE_STRIP)
-      for x in 0..@col
-        vertex(x*@scl, y*@scl, @terreno["#{x}.#{y}"])
-        vertex(x*@scl,(y+1)*@scl, @terreno["#{x}.#{y+1}"])
-      end
-      end_shape(CLOSE)
-    end
-  end
-end
+# After a sketch by Carlos Rocha, press mouse for smooth terrain
+WIDTH = 1_400
+HEIGHT = 1_100
+SCL = 30
+attr_reader :terrain, :rows, :columns, :mover, :hash_key
+
+def settings
+  size 800, 800, P3D
+end
+
+def setup
+  sketch_title 'Terreno'
+  @columns = WIDTH / SCL
+  @rows = HEIGHT / SCL
+  @terrain = {}
+  @hash_key = ->(x, y) { y * WIDTH + x }
+  @mover = 0
+end
+
+def draw
+  background 0
+  @mover -= 0.1
+  yoff = mover
+  (0..rows).each do |y|
+    xoff = 0
+    (0..columns).each do |x|
+      terrain[hash_key.call(x, y)] = Vec3D.new(
+        x * SCL, y * SCL,
+        map1d(SmoothNoise.tnoise(xoff, yoff), -1.0..1.0, -65..65)
+      )
+      xoff += 0.2
+    end
+    yoff += 0.2
+  end
+  no_fill
+  stroke 235, 69, 129
+  translate width / 2, height / 2
+  rotate_x PI / 3
+  translate(-WIDTH / 2, -HEIGHT / 2)
+  (0...rows).each do |y|
+    begin_shape(TRIANGLE_STRIP)
+    (0..columns).each do |x|
+      terrain[hash_key.call(x, y)].to_vertex(renderer)
+      terrain[hash_key.call(x, y.succ)].to_vertex(renderer)
+    end
+    end_shape
+  end
+end
+
+def mouse_pressed
+  @smth = !smth
+end
+
+private
+
+def renderer
+  @renderer ||= GfxRender.new(g)
+end

contributed/terreno.rb

@@ -12,18 +12,20 @@ def initialize(loc:, increment:)
 
   def motion
     @offset += increment
-    loc.dist(Vec2D.new(noise(offset.x) * width, noise(offset.y) * height))
+    hw = width / 2
+    hh = height / 2
+    loc.dist(Vec2D.new((noise(offset.x) + 1) * hw, (noise(offset.y) + 1) * hh))
   end
 
   def display(xr:, yr:, m_point:)
     no_stroke
-    fill(255, 73)
-    dia = (150 / m_point) * 5
+    fill(255, 100)
+    dia = (150 / m_point) * 7
     # to get weird non-deterministic behaviour of original, created by use of
     # negative inputs to a random range surely not intended, use original:-
     # ellipse(loc.x + random(-xr, xr), loc.y + random(-yr, yr), dia, dia)
-    xr *= -1 if xr < 0 # guards against an invalid hi..low range
-    yr *= -1 if yr < 0
+    xr *= -1 if xr.negative? # guards against an invalid hi..low range
+    yr *= -1 if yr.negative?
     ellipse(loc.x + rand(-xr..xr), loc.y + rand(-yr..yr), dia, dia)
   end
 end

external_library/gem/geomerative/library/f_agent/f_agent.rb

@@ -1,4 +1,3 @@
-# encoding: utf-8
 # frozen_literal: true
 # FontAgent class handles motion and display
 class FontAgent
@@ -12,9 +11,9 @@ def initialize(location:)
 
   def motion
     noise_scale = map1d(mouse_x, (0..width), (0.001..0.01))
-    noise_z = map1d(mouse_x, (0..height), (frame_count * 0.0003..frame_count * 0.02))
+    noise_z = map1d(mouse_y, (0..height), (frame_count * 0.0003..frame_count * 0.02))
     noise_vector = loc * noise_scale * noise_z
-    @mot = noise(noise_vector.x, noise_vector.y) * 53
+    @mot = (noise(noise_vector.x, noise_vector.y) + 1) * 26.5
   end
 
   def display(step:)

external_library/gem/geomerative/library/font_agent/font_agent.rb

@@ -1,3 +1,5 @@
+require 'geomerative'
+
 # --------- GEOMERATIVE EXAMPLES ---------------
 # //////////////////////////////////////////////
 # Title   :   TypoGeo_Deform
@@ -20,15 +22,13 @@
 # More info on these tutorials and workshops at :
 # www.freeartbureau.org/blog
 #
-require 'geomerative'
-load_library :font_agent
 
+load_library :font_agent
 attr_reader :my_font, :my_group, :my_points, :my_text
 attr_reader :my_agents, :step, :stop_anime
 
 def settings
   size(800, 350)
-  smooth
 end
 
 def setup

external_library/gem/geomerative/typo_deform.rb

@@ -16,12 +16,9 @@
 # developed by Ricard Marxer.
 # http://www.ricardmarxer.com/geomerative/
 #
-# More info on these tutorials and workshops at :
-# www.freeartbureau.org/blog
 # translated for JRubyArt by Martin Prout
 require 'geomerative'
 load_library :f_agent
-
 attr_reader :my_agents
 
 def settings
@@ -40,7 +37,7 @@ def setup
   RCommand.set_segmentator(RCommand::UNIFORMLENGTH)
   @my_agents = my_font.to_group(my_text).get_points.map do |point|
     FontAgent.new(
-      loc: Vec2D.new(point.x, point.y),
+      loc: Vec2D.new(point),
       increment: Vec2D.new(x_incr, y_incr)
     )
   end

external_library/gem/geomerative/typo_extra_bright.rb

@@ -50,8 +50,8 @@ def setup
 
 def draw
   background(0, 50)
-  displace_x = noise(xoff) * width
-  displace_y = noise(yoff) * height
+  displace_x = (noise(xoff) + 1) * width / 2
+  displace_y = (noise(yoff) + 1) * height / 2
   @xoff += x_inc
   @yoff += y_inc
   translate(width / 2, height / 1.7)

external_library/gem/geomerative/typo_merge.rb

@@ -37,14 +37,14 @@ def calculate_wave
   @theta += 0.02
 
   # Set all height values to zero
-  @y_values = Array.new @wave_width/@x_spacing, 0
+  @y_values = Array.new @wave_width / @x_spacing, 0
 
   # Accumulate wave height values
   max_waves.times do |j|
     x = @theta
     y_values.length.times do |i|
       # Every other wave is Math.cosine instead of Math.sine
-      value = (j % 2) == 0 ? Math.sin(x) : Math.cos(x)
+      value = j.even? ? Math.sin(x) : Math.cos(x)
       y_values[i] += value * amplitude[j]
       x += dx[j]
     end
@@ -57,7 +57,7 @@ def render_wave
   fill 255, 50
   ellipse_mode CENTER
   y_values.each_with_index do |y, i|
-    ellipse i*@x_spacing, width/2+y, 16, 16
+    ellipse i*@x_spacing, height / 2 + y, 16, 16
   end
 end