A Sonic Pi Experiment

music.rb

use_bpm 110

live_loop :synth do
  roots = (stretch [:e, :c], 4)
  root = roots.tick
  
  with_fx :flanger do
    with_fx :reverb do
      min = (note root, octave: 2)
      max = (note root, octave: 6)
      with_fx :ixi_techno, phase: 4, phase_offset: 0, cutoff_min: min, cutoff_max: max do
        use_synth :prophet
        play (octs (note root, octave: 2), 3), attack: 0, release: 6, amp: 0.8
        sleep 4
      end
    end
  end
end

live_loop :drum do
  sample :bd_haus
  sample :sn_dolf if (bools 0, 1, 0, 1).tick
  
  snares = (ring
            :drum_snare_soft,
            :drum_snare_soft,
            :drum_snare_hard
            )
  
  div = 4
  div.times do
    sample snares.choose, amp: (line 0.5, 1).choose
    sleep 1.0/div
  end
end

live_loop :melody do
  use_synth :blade
  play (note_range :e3, :e4, pitches: (scale :e, :minor_pentatonic)).tick
  durations = (ring 0.25, 0.5, 0.25, 0.25, 0.5)
  sleep durations.look
end