Sonic Pi music code

on-set-v03.rb

# Alexandre rANGEL  www.quasecinema.org
# on set v03
# 23-Out-2016
# Sonic Pi 2.11 dev

use_bpm 140
x = 1
live_loop :onset do
  if one_in(8)
    with_fx :echo, phase: 1, decay: [1,2,3,4].choose, mix: [0,0,0,0,0.5,0.7].choose do
      sample [:loop_industrial,:loop_garzul].choose, onset: x+rand_i(10),
        rate: [1,1,1,1,1,1,-0.5,0.5,0.333].choose, amp: 2.4,
        pan: [-0.6,-0.3,0.3,0.6].choose, pan_slide: [0.1,0.2,0.5].choose
    end
  else
    myRate = rrand(0.93,1.0)
    sample :loop_amen, onset: x, rate: myRate, amp: 2.4
    #sample :loop_amen, onset: x, rate: myRate, hpf: 100
  end
  sleep 0.5
  x = x + [1,1,1,1,1,0,-1,-2,-4,2].choose
end

with_fx :slicer, phase: 0.5 do
  live_loop :notes do
    with_bpm 140/[1,2,3,4,8,9,16].choose do
      if one_in(3) then
          with_fx :whammy, transpose: -12, grainsize: rrand(0.001,0.1), mix: 0.6 do
            with_fx :wobble, phase: 2, mix: 0.6 do
              use_synth [:pulse,:pulse,:beep].choose
              with_fx :slicer, phase: (ring 0.25,0.25,0.5,0.25,0.5,1,0.1).tick do
                play scale([:c4,[:e3,:e4].choose].choose,:gong).tick, amp: 0.5, release: 3 if one_in(3)
              end
            end
          end
        end
      end
      sleep 1
    end
  end