drum_patterns.rb

def bd1
  n = 0
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end

def bd2
  n = 1
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end

def sd1
  n = 2
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end

def sd2
  n = 3
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end

def cy1
  n = 4
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end

def tm1
  n = 5
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end

def sd3
  n = 6
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end

def cy2
  n = 7
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end

def sd_fill
  bd2
  tm1
  if $fill
    $fill = false
    n = 2
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.9
    sleep 0.25
    n = 6
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:1.0
    sleep 0.25
    n = 2
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.7
    sleep 0.25
    n = 6
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.9
    sleep 0.25
  else
    sd2
    cy1
  end
end

def sd_fill2
  if $fill
    $fill = false
    n = 2
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.9
    sleep 0.25
    n = 6
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:1.0
    sleep 0.25
    n = 2
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.5
    sleep 0.25
    n = 6
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.7
    sleep 0.25
    n = 2
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.6
    sleep 0.25
    n = 6
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.8
    sleep 0.25
    n = 2
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.9
    sleep 0.25
    n = 6
    sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.9
    sleep 0.25
  else
    bd2
    tm1
    sd2
    cy1
  end
end

def sd_ghost
  n = 2
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.5
  sleep 0.5/3
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.3
  sleep 0.5/3
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1), amp:0.2
  sleep 0.5/3
end

def rand_beat
  n = rrand_i(0, 7)
  sample :loop_amen, start: 0.125 * n, finish: 0.125 * (n + 1)
  sleep 0.5
end


def r1
  rand_beat
  rand_beat
  rand_beat
  rand_beat
end

def f1
  $fill=true
  sd_fill
end

def f2
  $fill=true
  sd_fill2
end

def p1
  bd1
  bd2
  sd1
  sd2
end

def p2
  cy1
  tm1
  sd3
  cy2
end

def p3
  tm1
  bd2
  sd3
  cy2
end

def p4
  bd1
  sd1
  bd2
  cy1
end

def p5
  sd3
  tm1
  cy2
  tm1
end

def p6
  bd1
  tm1
  sd1
  sd_ghost
end


use_bpm 160

live_loop :beat_slicer do
  p1
  p2
  p1
  p2
  
  p1
  p2
  p1
  p2
end