sound library examples

Author: monkstone

library/sound/README.md

@@ -6,5 +6,10 @@ picrate --install Sound
 ```
 
 To install other contributed libraries eg `minim` [see documentation][docs]
+especially on Buster you may need to install `pulseaudio`:-
+```
+sudo apt-get install pulseaudio
+```
+However it might not such a good idea unless you have a RaspberryPI4.
 
 [docs]:https://ruby-processing.github.io/picrate/contributed

library/sound/Rakefile renamed to library/sound/analysis/Rakefile

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+require 'picrate'
+# Play a sound sample and pass it through a tape delay, changing the delay
+# parameters based on the mouse position.
+class WaveformAnalysis < Processing::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

library/sound/analysis/audio_wave_form.rb

@@ -0,0 +1,45 @@
+# frozen_string_literal: true
+
+require 'picrate'
+# Play a sound sample and pass it through a tape delay, changing the delay
+# parameters based on the mouse position.
+class FFTSpectrum < Processing::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

library/sound/analysis/data/beat.aiff

@@ -0,0 +1,46 @@
+# frozen_string_literal: true
+
+require 'picrate'
+# Play a sound sample and pass it through a tape delay, changing the delay
+# parameters based on the mouse position.
+class VariableDelay < Processing::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

library/sound/analysis/fft_spectrum.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

library/sound/analysis/peak_amplitude.rb

@@ -0,0 +1,43 @@
+# frozen_string_literal: true
+
+require 'picrate'
+# Play a sound sample and pass it through a tape source, changing the source
+# parameters based on the mouse position.
+class BandPassFilter < Processing::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

library/sound/effects/Rakefile

@@ -0,0 +1,40 @@
+# frozen_string_literal: true
+
+require 'picrate'
+# Play a sound sample and pass it through a tape source, changing the source
+# parameters based on the mouse position.
+class HighPassFilter < Processing::App
+  load_library :sound
+  java_import 'processing.sound.WhiteNoise'
+  java_import 'processing.sound.HighPass'
+
+  attr_reader :filter, :source
+
+  def settings
+    size(640, 360)
+  end
+
+  def setup
+    background(255)
+    sketch_title 'High Pass Filter'
+    # Create the noise generator + filter
+    @filter = HighPass.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 10 and 15000 Hz
+    cutoff = map1d(mouseX, 0..width, 10..15_000)
+    filter.freq(cutoff)
+    # Draw a circle indicating the position + width of the frequencies passed through
+    background(125, 255, 125)
+    noStroke
+    fill(255, 0, 150)
+    ellipse(0, height, 2 * (width - mouseX), 2 * (width - mouseX))
+  end
+end
+
+HighPassFilter.new

library/sound/effects/band_pass_filter.rb

@@ -0,0 +1,40 @@
+# frozen_string_literal: true
+
+require 'picrate'
+# Play a sound sample and pass it through a tape source, changing the source
+# parameters based on the mouse position.
+class Reverberation < Processing::App
+  load_library :sound
+  java_import 'processing.sound.WhiteNoise'
+  java_import 'processing.sound.LowPass'
+
+  attr_reader :filter, :source
+
+  def settings
+    size(640, 360)
+  end
+
+  def setup
+    background(255)
+    sketch_title 'Variable Reverb'
+    # Create the noise generator + filter
+    @filter = LowPass.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
+    cutoff = map1d(mouseX, 0..width, 20..10_000)
+    filter.freq(cutoff)
+    # Draw a circle indicating the position + width of the frequencies passed through
+    background(125, 255, 125)
+    noStroke
+    fill(255, 0, 150)
+    ellipse(0, height, 2 * mouseX, 2 * mouseX)
+  end
+end
+
+Reverberation.new

library/sound/effects/data/vibraphon.aiff

@@ -0,0 +1,45 @@
+# frozen_string_literal: true
+
+require 'picrate'
+# Play a sound sample and pass it through a tape reverb, changing the reverb
+# parameters based on the mouse position.
+class Reverberation < Processing::App
+  load_library :sound
+  java_import 'processing.sound.Reverb'
+  java_import 'processing.sound.SoundFile'
+
+  attr_reader :soundfile, :reverb
+
+  def settings
+    size(640, 360)
+  end
+
+  def setup
+    background(255)
+    sketch_title 'Variable Reverb'
+    # Load a soundfile
+    @soundfile = SoundFile.new(self, data_path('vibraphon.aiff'))
+    # Create the reverb effect
+    @reverb = Reverb.new(self)
+    # Play the file in a loop
+    soundfile.loop
+    # Connect the soundfile to the reverb unit
+    reverb.process(soundfile)
+  end
+
+  def draw
+    # Change the roomsize of the reverb
+    room_size = map1d(mouseX, 0..width, 0..1.0)
+    reverb.room(room_size)
+
+    # Change the high frequency dampening parameter
+    damping = map1d(mouseX, 0..width, 0..1.0)
+    reverb.damp(damping)
+
+    # Change the wet/dry relation of the effect
+    effect_strength = map1d(mouseY, 0..height, 0..1.0)
+    reverb.wet(effect_strength)
+  end
+end
+
+Reverberation.new