Adonis' No Way Back for Sonic Pi

nowayback.rb

#No Way Back
#by Adonis

use_bpm 120

define :clap do
  in_thread do
    with_fx :rhpf, cutoff: 68, res: 0.4, amp: 0.6 do
      use_synth_defaults res: 0.2, sustain: 0, sustain_level: 0.1, decay: 0.004, cutoff_decay: 0.004, cutoff_sustain_level: 0.4, decay_level: 1
      synth :noise, release: 0.005, amp: 1, cutoff: rrand_i(100, 108)
      sleep rrand(0.025, 0.02)
      synth :noise, release: 0.005, amp: 1, cutoff: rrand_i(93, 105)
      sleep rrand(0.025, 0.02)
      synth :noise, release: 0.005, amp: 1, cutoff: rrand_i(92, 103)
      sleep rrand(0.012, 0.024)
      synth :noise, release: 0.05, amp: 1, cutoff: rrand_i(91, 103)
      sleep rrand(0.015, 0.03)
    end
  end
end

with_fx :reverb do
  live_loop :bass do
    use_synth :tb303
    use_synth_defaults cutoff: 85, release: 0.15, attack: 0.005, decay: 0.1,
      sustain_level: 0.3, cutoff_sustain_level: 0.7, sustain: 0.1, res: 0.6, amp: 0.4
    play (ring, :c2, :c2, :as1, :f2, :ds2).tick + 0.5, wave: 1
    play (ring, :c2, :c2, :as1, :f2, :ds2).look + 0.5, wave: 0
    sleep (ring, 0.75, 0.75, 0.75, 0.75, 1).look
  end
end

live_loop :kick do
  sample :bd_ada
  sleep 1
  sample :bd_ada
  sample :sn_dolf, sustain: 0, release: 0.08, hpf: 80
  sleep 1
end

with_fx :rhpf, res: 0.85, cutoff: 118, amp: 0.7 do
  live_loop :hats do
    use_synth_defaults sustain_level: 0.5
    synth :chipnoise, sustain: 0, release: 0.09, freq_band: 15, amp: 0.3
    sleep 0.25
    synth :chipnoise, sustain: 0, release: 0.09, freq_band: 15, amp: 0.2
    sleep 0.25
  end
end

live_loop :rim do
  with_fx :distortion do
    sleep 0.5
    sample :elec_blip, sustain: 0.006, cutoff:110, rate: 0.8
    sleep 0.25
    sample :elec_blip, sustain: 0.005, cutoff:110, rate: 0.8 if one_in(5)
    sleep 0.25
  end
end

live_loop :claps do
  clap
  sleep [0.25, 0.5].choose
end