expand sound library examples

Author: monkstone

Rakefile

@@ -12,6 +12,7 @@ task :all do
   Rake::Task[:shaders].execute
   Rake::Task[:slider].execute
   Rake::Task[:demo].execute
+  Rake::Task[:sound].execute
 end
 
 desc 'run contributed samples'
@@ -100,6 +101,19 @@ task :hemesh do
   system 'rake'
 end
 
+desc 'sound'
+task :sound do
+  FileUtils.cd(
+    File.join(
+      PRWD,
+      'processing_app',
+      'library',
+      'sound'
+     )
+   )    
+   system 'rake'
+end
+
 desc 'pbox2d'
 task :pbox2d do
   FileUtils.cd(

processing_app/library/sound/Rakefile

@@ -1,30 +1,34 @@
-# Simple demo Rakefile to autorun samples in current directory
-# adjust path to rp5 executable, and or opts as required
+# -*- encoding: utf-8 -*-
 
-SAMPLES_DIR = './'
+PRWD = File.expand_path(__dir__)
 
 desc 'run demo'
-task default: [:demo]
+task :default => [:all]
 
-desc 'demo'
-task :demo do
-  samples_list.shuffle.each { |sample| run_sample sample }
+desc 'autorun all samples'
+task :all do
+  Rake::Task[:soundfile].execute
+  Rake::Task[:oscillators].execute
+  Rake::Task[:noise].execute
+  Rake::Task[:effects].execute
 end
 
-def samples_list
-  files = []
-  Dir.chdir(SAMPLES_DIR)
-  Dir.glob('*.rb').each do |file|
-    files << File.join(SAMPLES_DIR, file)
-  end
-  return files
+desc 'run soundfile samples'
+task :soundfile do
+  sh "cd #{PRWD}/soundfile && rake"
 end
 
-def run_sample(sample_name)
-  puts "Running #{sample_name}...quit to run next sample"
-  open("|jruby #{sample_name}", 'r') do |io|
-    while l = io.gets
-      puts(l.chop)
-    end
-  end
+desc 'oscillators'
+task :oscillators do
+  sh "cd #{PRWD}/oscillators && rake"
+end
+
+desc 'noise'
+task :noise do
+  sh "cd #{PRWD}/noise && rake"
+end
+
+desc 'effects'
+task :effects do
+  sh "cd #{PRWD}/effects && rake"
 end

processing_app/library/sound/analysis/Rakefile

@@ -0,0 +1,30 @@
+# Simple demo Rakefile to autorun samples in current directory
+# adjust path to rp5 executable, and or opts as required
+
+SAMPLES_DIR = './'
+
+desc 'run demo'
+task default: [:demo]
+
+desc 'demo'
+task :demo do
+  samples_list.shuffle.each { |sample| run_sample sample }
+end
+
+def samples_list
+  files = []
+  Dir.chdir(SAMPLES_DIR)
+  Dir.glob('*.rb').each do |file|
+    files << File.join(SAMPLES_DIR, file)
+  end
+  return files
+end
+
+def run_sample(sample_name)
+  puts "Running #{sample_name}...quit to run next sample"
+  open("|jruby #{sample_name}", 'r') do |io|
+    while l = io.gets
+      puts(l.chop)
+    end
+  end
+end

processing_app/library/sound/analysis/audio_wave_form.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+require 'propane'
+# Play a sound sample and pass it through a tape delay, changing the delay
+# parameters based on the mouse position.
+class WaveformAnalysis < Propane::App
+  load_library :sound
+  java_import 'processing.sound.Waveform'
+  java_import 'processing.sound.SoundFile'
+
+  attr_reader :waveform, :sample
+  SAMPLES = 100
+  def settings
+    size(640, 360)
+  end
+
+  def setup
+    sketch_title 'Waveform Analyser'
+    # Load and play a soundfile and loop it
+    @sample = SoundFile.new(self, data_path('beat.aiff'))
+    sample.loop
+    # Create and patch the waveform tracker
+    @waveform = Waveform.new(self, SAMPLES)
+    waveform.input(sample)
+  end
+
+  def draw
+    # Set background color, noFill and stroke style
+    background(0)
+    stroke(255)
+    strokeWeight(2)
+    noFill
+
+    # Perform the analysis
+    waveform.analyze
+
+    begin_shape
+    SAMPLES.times do |i|
+      # Draw current data of the waveform
+      # Each sample in the data array is between -1 and +1
+      vertex(
+        map1d(i, 0..SAMPLES, 0..width),
+        map1d(waveform.data[i], -1..1, 0..height)
+      )
+    end
+    end_shape
+  end
+end
+
+WaveformAnalysis.new

processing_app/library/sound/analysis/data/beat.aiff

@@ -0,0 +1,46 @@
+#!/usr/bin/env jruby -w
+# frozen_string_literal: true
+
+require 'propane'
+# Play a sound sample and pass it through a tape delay, changing the delay
+# parameters based on the mouse position.
+class FFTSpectrum < Propane::App
+  load_library :sound
+  java_import 'processing.sound.FFT'
+  java_import 'processing.sound.SoundFile'
+
+  attr_reader :fft, :sample, :sum, :bar_width
+  SMOOTHING_FACTOR = 0.25
+  BANDS = 128
+  SCALE = 5
+  def settings
+    size(640, 360)
+  end
+
+  def setup
+    sketch_title 'FFT Spectrum'
+    @bar_width = width / BANDS.to_f
+    # Load and play a soundfile and loop it
+    @sample = SoundFile.new(self, data_path('beat.aiff'))
+    sample.loop
+    # Create and patch the fft tracker
+    @fft = FFT.new(self)
+    fft.input(sample)
+    @sum = Array.new(BANDS, 0.0)
+  end
+
+  def draw
+    # Set background color, noStroke and fill color
+    background(125, 255, 125)
+    noStroke
+    fill(255, 0, 150)
+    fft.analyze
+    BANDS.times do |i|
+      # Smooth the FFT spectrum data by smoothing factor
+      sum[i] += (fft.spectrum[i] - sum[i]) * SMOOTHING_FACTOR
+      rect(i * bar_width, height, bar_width, -sum[i] * height * SCALE)
+    end
+  end
+end
+
+FFTSpectrum.new

processing_app/library/sound/analysis/fft_spectrum.rb

@@ -0,0 +1,46 @@
+# frozen_string_literal: true
+
+require 'propane'
+# Play a sound sample and pass it through a tape delay, changing the delay
+# parameters based on the mouse position.
+class VariableDelay < Propane::App
+  load_library :sound
+  java_import 'processing.sound.Amplitude'
+  java_import 'processing.sound.SoundFile'
+
+  attr_reader :rms, :sample, :sum
+  SMOOTHING_FACTOR = 0.25
+  def settings
+    size(640, 360)
+  end
+
+  def setup
+  sketch_title 'Peak Amplitude'
+    # Load and play a soundfile and loop it
+    @sample = SoundFile.new(self, data_path('beat.aiff'))
+    sample.loop
+    # Create and patch the rms tracker
+    @rms = Amplitude.new(self)
+    rms.input(sample)
+    @sum = 0
+  end
+
+  def draw
+    # Set background color, noStroke and fill color
+    background(125, 255, 125)
+    noStroke
+    fill(255, 0, 150)
+
+    # smooth the rms data by smoothing factor
+    @sum += (rms.analyze - sum) * SMOOTHING_FACTOR
+
+    # rms.analyze() return a value between 0 and 1. Its
+    # scaled to height/2 and then multiplied by a fixed scale factor
+    rms_scaled = sum * (height / 2) * 5
+
+    # We draw a circle whose size is coupled to the audio analysis
+    ellipse(width / 2, height / 2, rms_scaled, rms_scaled)
+  end
+end
+
+VariableDelay.new

processing_app/library/sound/analysis/peak_amplitude.rb

@@ -0,0 +1,30 @@
+# Simple demo Rakefile to autorun samples in current directory
+# adjust path to rp5 executable, and or opts as required
+
+SAMPLES_DIR = './'
+
+desc 'run demo'
+task default: [:demo]
+
+desc 'demo'
+task :demo do
+  samples_list.shuffle.each { |sample| run_sample sample }
+end
+
+def samples_list
+  files = []
+  Dir.chdir(SAMPLES_DIR)
+  Dir.glob('*.rb').each do |file|
+    files << File.join(SAMPLES_DIR, file)
+  end
+  return files
+end
+
+def run_sample(sample_name)
+  puts "Running #{sample_name}...quit to run next sample"
+  open("|jruby #{sample_name}", 'r') do |io|
+    while l = io.gets
+      puts(l.chop)
+    end
+  end
+end

processing_app/library/sound/brown_noise.rb

@@ -0,0 +1,43 @@
+# frozen_string_literal: true
+
+require 'propane'
+# Play a sound sample and pass it through a tape source, changing the source
+# parameters based on the mouse position.
+class BandPassFilter < Propane::App
+  load_library :sound
+  java_import 'processing.sound.WhiteNoise'
+  java_import 'processing.sound.BandPass'
+
+  attr_reader :filter, :source
+
+  def settings
+    size(640, 360)
+  end
+
+  def setup
+    background(255)
+    sketch_title 'Band Pass Filter'
+    # Create the noise generator + filter
+    @filter = BandPass.new(self)
+    @source = WhiteNoise.new(self)
+    # Connect the filter to the source unit
+    source.play
+    filter.process(source)
+  end
+
+  def draw
+    # Map the left/right mouse position to a cutoff frequency between 20 and 10000 Hz
+    frequency = map1d(mouseX, 0..width, 20..10_000)
+    # And the vertical mouse position to the width of the band to be passed through
+    bandwidth = map1d(mouseY, 0..height, 1_000..100)
+    filter.freq(frequency)
+    filter.bw(bandwidth)
+    # Draw a circle indicating the position + width of the frequency window
+    # that is allowed to pass through
+    background(125, 255, 125)
+    no_stroke
+    fill(255, 0, 150)
+  end
+end
+
+BandPassFilter.new