Adapt to Noise Module

Author: monkstone

processing_app/basics/math/demo_noise.rb

@@ -1,38 +1,35 @@
+#!/usr/bin/env jruby
 require 'propane'
 
 class DemoNoise < Propane::App
-  attr_reader :z
+  attr_reader :z, :smth
 
   def setup
     sketch_title 'Demo noise_mode'
     stroke(255, 64)
     @z = 0
+    @smth = false
   end
 
   def draw
     noise_scale = 0.01
     background(0)
     grid(width, height, 10, 10) do |x, y|
-      arrow(x, y, noise(x * noise_scale, y * noise_scale, z * noise_scale) * TWO_PI * 2)
+      if smth
+        arrow(x, y, SmoothNoise.noise(x * noise_scale, y * noise_scale, z * noise_scale) * TAU)
+      else
+        arrow(x, y, noise(x * noise_scale, y * noise_scale, z * noise_scale) * TAU)
+      end
     end
     @z += 1
   end
 
   def mouse_pressed
-    mode = Propane::SIMPLEX
-    noise_mode mode
-    sketch_title "#{mode}"
+    @smth = !smth
   end
 
-  def mouse_released
-    mode = Propane::VALUE
-    noise_mode(mode)
-    sketch_title "#{mode}"
-  end
-
-
   def arrow(x, y, ang)
-    pushMatrix()
+    push_matrix
     translate(x, y)
     rotate(ang)
     line(0, 0, 20, 0)
@@ -41,7 +38,7 @@ def arrow(x, y, ang)
     line(0, 0, 5, 0)
     rotate(-0.8)
     line(0, 0, 5, 0)
-    popMatrix()
+    pop_matrix
   end
 
   def settings

processing_app/basics/math/noise4_tap.rb

@@ -1,4 +1,5 @@
 #!/usr/bin/env jruby
+
 require 'propane'
 
 Coord = Struct.new(:mx, :my, :mz, :az, :al)
@@ -31,9 +32,9 @@ def setup
         rotate_y(az)
         rotate_z(inc)
         translate(radius, 0, 0)
-        coord.mx = model_x(0, 0, 0) * 0.007
-        coord.my = model_y(0, 0, 0) * 0.007
-        coord.mz = modelZ(0, 0, 0) * 0.007
+        coord.mx = g.model_x(0, 0, 0) * 0.007
+        coord.my = g.model_y(0, 0, 0) * 0.007
+        coord.mz = g.model_z(0, 0, 0) * 0.007
         coord.az = az
         coord.al = inc
         pop_matrix
@@ -54,7 +55,7 @@ def draw
       rotate_y(ci.az)
       rotate_z(ci.al)
       translate(radius, 0, 0)
-      dst = (modelZ(0, 0, 0) + half_h) / 2 + 32
+      dst = (g.model_z(0, 0, 0) + half_h) / 2 + 32
       stroke(dst, dst * 0.5, dst * 0.25)
       #  4D Simplex noise(x, y, z, time)
       ang = noise(ci.mx, ci.my, ci.mz, frame_count * 0.007) * TWO_PI

processing_app/basics/math/noise_1_d.rb

@@ -22,15 +22,15 @@ def draw
   end
 
   def mouse_pressed
-    mode = Propane::SIMPLEX
+    mode = NoiseMode::SMOOTH_OPEN
     noise_mode mode
-    sketch_title "#{mode}"
+    sketch_title "#{mode.description}"
   end
 
   def mouse_released
-    mode = Propane::VALUE
+    mode = NoiseMode::DEFAULT
     noise_mode(mode)
-    sketch_title "#{mode}"
+    sketch_title "#{mode.description}"
   end
 
   def settings

processing_app/basics/math/noise_3_d.rb

@@ -34,18 +34,6 @@ def draw
     @zoff += z_increment
   end
 
-  def mouse_pressed
-    mode = Propane::SIMPLEX
-    noise_mode mode
-    sketch_title "#{mode}"
-  end
-
-  def mouse_released
-    mode = Propane::VALUE
-    noise_mode(mode)
-    sketch_title "#{mode}"
-  end
-
   def settings
     size 640, 360
   end

processing_app/basics/math/noise_image.rb

@@ -1,25 +1,36 @@
+#!/usr/bin/env jruby
+
 require 'propane'
-# OpenSimplex has a range -1.0 to 1.0
+# NB: OpenSimplex has a range -1.0 to 1.0
 class NoiseImage < Propane::App
   SCALE = 0.02
-
+  attr_reader :smth
   def setup
     sketch_title 'Noise Image'
     background(0)
     stroke(255)
     no_fill
+    @smth = false
   end
 
   def draw
     background(0)
     scale = 0.02
     load_pixels
     grid(500, 500) do |x, y|
-      col = noise(SCALE * x, SCALE * y) > 0 ? 255 : 0
+      if smth
+        col = SmoothNoise.noise(SCALE * x, SCALE * y) > 0 ? 255 : 0
+      else
+        col = noise(SCALE * x, SCALE * y) > 0 ? 255 : 0
+      end
       pixels[x + width * y] = color(col, 0, 0)
     end
     update_pixels
-    save(data_path('noise_image.png'))
+    # save(data_path('noise_image.png'))
+  end
+
+  def mouse_pressed
+    @smth = !smth
   end
 
   def settings

processing_app/basics/math/noise_texture.rb

@@ -7,10 +7,12 @@ class Noise < Propane::App
   # by Martin Prout.
   # Using noise to create simple texture.
   # control parameter with mouse
+  attr_reader :smth
 
   def setup
     sketch_title 'Noisy Texture'
     @increment = 0.02
+    @smth = false
   end
 
   def draw
@@ -23,23 +25,18 @@ def draw
       yoff = 0.0
       (0...height).each do |y|
         yoff += @increment
-        bright = noise(x / x_val, y / x_val) * 255
+        noise_val = smth ? SmoothNoise.noise(x / x_val, y / x_val) : noise(x / x_val, y / x_val)
+        bright = (noise_val + 1) * 125
         pixels[x + y * width] = color(bright)
       end
     end
     update_pixels
   end
 
-  def mouse_pressed
-    mode = Propane::SIMPLEX
-    noise_mode mode
-    sketch_title "#{mode}"
-  end
+  def key_pressed
+    return unless key == 's'
 
-  def mouse_released
-    mode = Propane::VALUE
-    noise_mode(mode)
-    sketch_title "#{mode}"
+    @smth = !smth
   end
 
   def settings

processing_app/basics/math/noise_wave.rb

@@ -7,11 +7,12 @@
 # Press mouse to switch Noise Implementions
 class NoiseWave < Propane::App
 
-attr_reader :yoff         # 2nd dimension of perlin noise
+attr_reader :yoff, :smth         # 2nd dimension of perlin noise
 
 def setup
   sketch_title 'Noise Wave'
   @yoff = 0.0
+  @smth = false
 end
 
 def draw
@@ -24,7 +25,11 @@ def draw
   # Iterate over horizontal pixels
   (0..width).step(10) do |x|
     # Calculate a y value according to noise, map to
-    y = map1d(noise(xoff, yoff), (0..1.0), (200..300)) # Option #1: 2D Noise
+    if smth
+      y = map1d(SmoothNoise.noise(xoff, yoff), (-1.0..1.0), (200..300)) # Option #1: 2D Noise
+    else
+      y = map1d(noise(xoff, yoff), (-1.0..1.0), (200..300)) # Option #1: 2D Noise
+    end
     # y = map1d(noise(xoff), (0..1.0), (200..300))    # Option #2: 1D Noise
     # Set the vertex
     vertex(x, y)
@@ -39,16 +44,10 @@ def draw
 end
 
 def mouse_pressed
-  mode = Propane::SIMPLEX
-  noise_mode mode
-  sketch_title "#{mode}"
+  @smth = !smth
 end
 
-def mouse_released
-  mode = Propane::VALUE
-  noise_mode(mode)
-  sketch_title "#{mode}"
-end
+
 
 def settings
   size(640, 360)

processing_app/basics/noise4_tap.rb

@@ -0,0 +1,75 @@
+#!/usr/bin/env jruby
+require 'java'
+require 'propane'
+
+Coord = Struct.new(:mx, :my, :mz, :az, :al)
+
+class ForD < Propane::App
+  attr_reader :half_w, :half_h, :radius, :spin_x, :spin, :coords
+
+  PHI = ((1.0 + Math.sqrt(5)) / 2.0 - 1) * TWO_PI # Fibonacci distribution
+
+  def settings
+    size(480, 480, P3D)
+  end
+
+  def setup
+    sketch_title '4D Simplex Noise Test'
+    background(0)
+    stroke(255)
+    fill(32, 255, 64)
+    @half_w = width * 0.5
+    @half_h = height * 0.5
+    @radius = height * 0.4
+    @spin_x = 0.0
+    @spin = 0.0
+    @coords = (0..2_000).map do |i|
+      inc = Math.asin(i / 1_000.0 - 1.0) # inclination
+      az = PHI * i # azimuth
+      # Too lazy to do this the right way... precalculating both the angles and the coordinates
+      Coord.new.tap do |coord|
+        push_matrix
+        rotate_y(az)
+        rotate_z(inc)
+        translate(radius, 0, 0)
+        coord.mx = g.model_x(0, 0, 0) * 0.007
+        coord.my = g.model_y(0, 0, 0) * 0.007
+        coord.mz = g.model_z(0, 0, 0) * 0.007
+        coord.az = az
+        coord.al = inc
+        pop_matrix
+      end
+    end
+  end
+
+  def draw
+    background(0)
+    @spin -= (mouse_x - pmouse_x) * 0.0001 if mouse_pressed?
+    @spin_x += spin
+    @spin *= 0.98
+    push_matrix
+    translate(half_w, half_h, -0)
+    rotate_y(-spin_x)
+    coords.each do |ci|
+      push_matrix
+      rotate_y(ci.az)
+      rotate_z(ci.al)
+      translate(radius, 0, 0)
+      dst = (g.model_z(0, 0, 0) + half_h) / 2 + 32
+      stroke(dst, dst * 0.5, dst * 0.25)
+      #  4D Simplex noise(x, y, z, time)
+      ang = noise(ci.mx, ci.my, ci.mz, frame_count * 0.007) * TWO_PI
+      rotate_x(ang)
+      line(0, 0, 0, 0, 15, 0)
+      translate(0, 15, 0)
+      rotate_x(-10)
+      line(0, 0, 0, 0, 4, 0)
+      rotate_x(20)
+      line(0, 0, 0, 0, 4, 0)
+      pop_matrix
+    end
+    pop_matrix
+  end
+end
+
+ForD.new