Cant_Sleep_Sonic_Pi_DnB_Jam.rb

# Can't Sleep DnB Jam By Binarysweets (Oct 2020)
# Sonic Pi v 3.2.2
use_random_seed 0
set :bpm, 180
use_bpm get :bpm
set :scl, scale(:bb0, :diatonic, num_octaves: 3)

live_loop :metro do
  sleep 1
end

live_loop :beats, sync: :metro do ; tick
  use_bpm get :bpm
  s = :loop_compus
  sample s, slice: (ring 0,3,11,3, 2,11,3,11, 3,11,4,3, 6,11,3,11).look,
    amp: rrand(3, 3.2), beat_stretch: [16, 32].choose #if bools(1,0,0,1).look
  
  sleep 0.25
end

live_loop :bass, sync: :metro do ; tick
  use_bpm get :bpm
  scl = get :scl
  notes = (ring 1,2,3,4)
  
  with_fx :distortion, distort: 0.5 do
    play scl[notes.look], amp: rrand(1.0, 1.2), release: 0.5
    sleep 1
  end
end

live_loop :bass_acc, sync: :metro do ; tick
  use_bpm get :bpm
  scl = get :scl
  notes = scl.shuffle
  
  with_synth :hoover do
    play scl[notes.look], amp: rrand(1.0, 1.2)
  end
  
  sleep 1
end

live_loop :melody, sync: :metro do ; tick
  use_bpm get :bpm
  scl = get :scl
  notes = (ring 8,9,10,12).mirror
  
  with_fx :mono do
    with_fx :whammy, grainsize: (line 1, 0.5, steps: 32).look,
    deltime: (line 0.5, 2, steps: 32).look do
      play scl[notes.look], amp: rrand(1.2, 1.4)
    end
  end
  
  sleep 2
end

live_loop :tempo_changer do
  bpm = get :bpm
  
  if bpm > 150
    set :bpm, bpm -= 1
  end
  
  #puts bpm
  sleep 4
end