Sonic Pi: Chord Progression Experiment

sonicpi-chords.txt

m = [
  chord(:A3, :minor), 1,
  chord(:F3, :major), 1,
  chord(:C3, :major), 1,
  chord(:G3, :major), 1
].ring

live_loop :chords do
  use_synth :beep
  c = m.tick
  l = m.tick
  play_pattern_timed c, l/8.0, release: 1
  sleep l-3/8.0
end

live_loop :base do
  sync :chords
  use_synth :growl
  use_transpose -12
  c = m.tick
  l = m.tick
  play c[0], release: l
  sleep l
end

live_loop :beats do
  sync :chords
  sample :loop_amen_full, beat_stretch: 8, amp: 0.5
  sleep 8
end

live_loop :bumm do
  sync :chords
  sample :bd_boom
  sleep 4
end