Update noise examples

Author: monkstone

contributed/feather_fractal.rb

@@ -0,0 +1,32 @@
+A = -0.48
+B = 0.93
+
+def settings
+  size(640, 480)
+end
+
+def setup
+  background(235, 215, 182)
+  color_mode(HSB, 360, 1.0, 1.0)
+  stroke(0)
+  sketch_title 'Fantastic Feather Fractal'
+  no_loop
+end
+
+def draw
+  x = 4.0
+  y = 0.0
+  120_000.times do |i|
+    x1 = B * y + func(x)
+    y = -x + func(x1)
+    x = x1
+    fill(i % 360, 1.0, 1.0)
+    p = 350 + x * 26
+    q = 280 - y * 26
+    circle(p, q, 5)
+  end
+end
+
+def func(x)
+  A * x - (1.0 - A) * ((2 * (x**2)) / (1.0 + x**2))
+end

external_library/gem/ruby_wordcram/render_to_pdf.rb

@@ -2,7 +2,7 @@
 # Liberation Serif font from RedHat: https://www.redhat.com/promo/fonts/
 require 'ruby_wordcram'
 load_library :pdf
-include_package 'processing.pdf'
+
 # After you run this,
 # open the sketch's folder.
 # See the PDF.

external_library/java/LiquidFunProcessing/wave_machine.rb

@@ -150,8 +150,9 @@ def key_released
 #######################################
 
 def wave
-  @m_time += 1 / 120.0
-  m_joint.set_motor_speed(0.1 * cos(m_time) * PI)
+ @m_time += 1 / 120.0
+#  m_joint.set_motor_speed(0.1 * cos(m_time) * PI)
+ m_joint.set_motor_speed(0.001 * cos(m_time) * PI)
   world.update
 end
 

processing_app/basics/math/.gitignore

@@ -0,0 +1 @@
+*.pdf

processing_app/basics/math/noise4_tap.rb

@@ -0,0 +1,70 @@
+
+
+Coord = Struct.new(:mx, :my, :mz, :az, :al)
+
+
+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 = model_x(0, 0, 0) * 0.007
+      coord.my = model_y(0, 0, 0) * 0.007
+      coord.mz = 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 = (modelZ(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

processing_app/basics/math/noise_1_d.rb

@@ -1,22 +1,23 @@
-# Noise1D. 
-# 
-# Using 1D Perlin Noise to assign location. 
+# Noise1D.
+#
+# Using 1D SimplexNoise2 to assign location.
+DELTA = 0.01
+attr_reader :xoff
 
 def setup
   sketch_title 'Noise 1D'
-  @xoff = 0.0
-  @x_increment = 0.01  
+  @xoff = 0
   background 0
-  no_stroke  
+  no_stroke
 end
 
-def draw  
+def draw
   fill 0, 10
-  rect 0, 0, width, height  
-  n = noise(@xoff) * width  
-  @xoff += @x_increment  
+  rect 0, 0, width, height
+  n = noise(xoff) * width / 2.0
+  @xoff += DELTA
   fill 200
-  ellipse n, height / 2, 64, 64  
+  ellipse n, height / 2, 64, 64
 end
 
 def settings

processing_app/basics/math/noise_2_d.rb

@@ -1,25 +1,24 @@
 # Noise2D
-# by Daniel Shiffman.
-#
+# after Daniel Shiffman.
+# NB: SimplexNoise is in range -1.0 to 1.0
 # Using 2D noise to create simple texture.
+DELTA = 0.01
+attr_reader :xoff, :yoff
 
 def setup
   sketch_title 'Noise 2D'
-  @increment = 0.02
 end
 
 def draw
   background 0
   load_pixels
-  xoff = 0.0
-  detail = map1d(mouse_x, (0..width), (0.1..0.6))
-  noise_detail(8, detail)
+  @xoff = 0.0
   (0...width).each do |x|
-    xoff += @increment
-    yoff = 0.0
+    @xoff += DELTA
+    @yoff = 0.0
     (0...height).each do |y|
-      yoff += @increment
-      bright = noise(xoff, yoff) * 255
+      @yoff += DELTA
+      bright = (noise(xoff, yoff) + 1) * 128
       pixels[x + y * width] = color(bright)
     end
   end

processing_app/basics/math/noise_3_d.rb

@@ -1,32 +1,34 @@
-# Noise3D. 
-# 
-# Using 3D noise to create simple animated texture. 
+# Noise3D.
+#
+# Using 3D noise to create simple animated texture.
 # Here, the third dimension ('z') is treated as time.
-attr_reader :increment, :z_increment
+# SimplexNoise is in range -1.0 to 1.0
+DELTA = 0.01
+DELTA_TIME = 0.02
+
+attr_reader :zoff
 
 def setup
   sketch_title 'Noise 3D'
-  frame_rate 30    
-  @increment = 0.01
+  frame_rate 30
   @zoff = 0.0
-  @z_increment = 0.02    
 end
 
-def draw    
-  background 0  	
-  load_pixels  	
-  xoff = 0.0  	
-  (0...width).each do |x|  	    
-    xoff += increment
-    yoff = 0.0  		
-    (0...height).each do |y|  		    
-      yoff += increment  			
-      bright = noise(xoff, yoff, @zoff) * 255  			
+def draw
+  background 0
+  load_pixels
+  xoff = 0.0
+  (0...width).each do |x|
+    xoff += DELTA
+    yoff = 0.0
+    (0...height).each do |y|
+      yoff += DELTA
+      bright = (noise(xoff, yoff, zoff) + 1) * 128
       pixels[x + y * width] = color(bright, bright, bright)
     end
-  end  	
-  update_pixels  	
-  @zoff += z_increment  	
+  end
+  update_pixels
+  @zoff += DELTA_TIME
 end
 
 def settings

processing_app/basics/math/noise_image.rb

@@ -0,0 +1,26 @@
+
+# OpenSimplex has a range -1.0 to 1.0
+
+SCALE = 0.02
+
+def setup
+  sketch_title 'Noise Image'
+  background(0)
+  stroke(255)
+  no_fill
+end
+
+def draw
+  background(0)
+  load_pixels
+  grid(500, 500) do |x, y|
+    col = noise(SCALE * x, SCALE * y) > 0 ? 255 : 0
+    pixels[x + width * y] = color(col, 0, 0)
+  end
+  update_pixels
+  save(data_path('noise_image.png'))
+end
+
+def settings
+  size 500, 500
+end

processing_app/basics/math/noise_wave.rb

@@ -1,31 +1,31 @@
 #
 # Noise Wave
-# by Daniel Shiffman.  
-# 
-# Using Perlin Noise to generate a wave-like pattern. 
+# by Daniel Shiffman.
+#
+# Using Perlin Noise to generate a wave-like pattern.
 #
 
 attr_reader :yoff         # 2nd dimension of perlin noise
 
 def setup
   sketch_title 'Noise Wave'
-  @yoff = 0.0        
+  @yoff = 0.0
 end
 
 def draw
   background(51)
   fill(255)
   # We are going to draw a polygon out of the wave points
-  begin_shape  
+  begin_shape
   xoff = 0       # Option #1: 2D Noise
-  # xoff = yoff # Option #2: 1D Noise  
+  # xoff = yoff # Option #2: 1D Noise
   # 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
-    # y = map1d(noise(xoff), (0..1.0), (200..300))    # Option #2: 1D Noise    
+    # Calculate a y value according to noise, map to
+    y = map1d(noise(xoff, yoff), (-1.0..1.0), (200..300)) # Option #1: 2D Noise
+    # y = map1d(noise(xoff), (-1.0..1.0), (200..300))    # Option #2: 1D Noise    
     # Set the vertex
-    vertex(x, y) 
+    vertex(x, y)
     # Increment x dimension for noise
     xoff += 0.05
   end

processing_app/library/pdf/complex_3D.rb

@@ -3,7 +3,6 @@
 #  by Marius Watz.
 #
 load_library :pdf
-include_package 'processing.pdf'
 attr_reader :num, :pt, :style, :dosave
 
 def setup

processing_app/library/pdf/large_page.rb

@@ -6,8 +6,7 @@
 # than the screen. When PDF is used as the renderer
 # (the third parameter of size) the display window
 # does not open. The file is saved to the sketch folder.
-load_libraries 'pdf'
-include_package 'processing.pdf'
+load_library :pdf
 
 def setup
   sketch_title 'Large Page'

processing_app/library/pdf/many_frames.rb

@@ -1,10 +1,9 @@
-# Multiple Frames. 
-# 
+# Multiple Frames.
+#
 # Saves one PDF document of many frames drawn to the screen.
 # Starts the file when the mouse is pressed and end the file
 # when the mouse is released.
-load_library 'pdf'
-include_package 'processing.pdf'
+load_library :pdf
 
 def setup
   sketch_title 'Many Frames'
@@ -19,7 +18,7 @@ def draw
 end
 
 def mouse_pressed
-  begin_record(PDF, data_path('Lines.pdf')) 
+  begin_record(PDF, data_path('Lines.pdf'))
   background(255)
 end
 

processing_app/library/pdf/many_pages.rb

@@ -3,8 +3,7 @@
 # Saves a new page into a PDF file each loop through draw().
 # Pressing the mouse finishes writing the file and exits the program.
 #
-load_library 'pdf'
-include_package 'processing.pdf'
+load_library :pdf
 
 attr_reader :pdf
 

processing_app/library/pdf/many_pdfs.rb

@@ -1,10 +1,9 @@
-# Many PDFs. 
-# 
+# Many PDFs.
+#
 # Saves one PDF file each each frame while the mouse is pressed.
 # When the mouse is released, the PDF creation stops.
 #
-load_library 'pdf'
-include_package 'processing.pdf'
+load_library :pdf
 
 attr_reader :pdf, :save_pdf
 
@@ -16,7 +15,7 @@ def setup
 
 def draw
   begin_record(PDF, data_path("lines#{frame_count}.pdf")) unless !save_pdf
-  background(255) 
+  background(255)
   stroke(0, 20)
   stroke_weight(20.0)
   line(mouse_x, 0, width-mouse_y, height)