helpmusic.rb

set :bpm, 140
set :beats, 4
set :sub_beat, 2

set :start_beats, true

set :chords, [
  (chord :B, :minor7),  (chord :B, :minor7),
  (chord :Fs,:minor7),  (chord :Fs,:minor7),
  (chord :E, :minor7),  (chord :E, :minor7),
  (chord :G, :major7),  (chord :Fs,:dom7),
  
  (chord :B, :minor7),  (chord :B, :minor7),
  (chord :Fs,:minor7),  (chord :Fs,:minor7),
  (chord :E, :minor7),  (chord :E, :minor7),
  (chord :G, :major7),  (chord :Fs,:dom7),
  
  (chord :B, :minor7),  (chord :B, :minor7),
  (chord :G, :major7),  (chord :G, :major7),
  (chord :E, :minor7),  (chord :Fs,:dom7),
  (chord :B, :minor7),  (chord :Fs,:dom7)
].ring


# ---- instruments

# latin clave on 2 bars
define :keys_latin_2_bar_4 do | ch, br, am=1, sy=:fm |
  use_synth sy
  if br % 2 == 0 then
    play ch, amp: am, release: 0.2
    sleep 1
    play ch, amp: am, release: 0.2
    sleep 1.5
    play ch, amp: am, release: 0.2
    sleep 1
    play ch, amp: am, release: 0.2
  else
    sleep 0.5
    play ch, amp: am, release: 0.2
    sleep 1
    play ch, amp: am, release: 0.2
  end
end

# latin bass, 4 beats per bar
define :bass_latin_beat_4 do | ch, am=1, sy=:blade |
  use_synth sy
  use_octave -2
  play ch[0], release:0.2, amp: 2 * am
  sleep 1.5
  play ch[2], release:0.2, amp: am
  sleep 0.5
  play ch[2], release:0.2, amp: am
  sleep 1.5
  play ch[2], release:0.2, amp: am
  #sleep 0.5
end

# hi hat on sub beat
define :drums_cymbals_sub_beat do | sb=4, am=1|
  sample :drum_cymbal_closed, amp: 0.5 * am
  (sb - 1).times do
    sleep 1/Float(sb)
    sample :drum_cymbal_closed, amp: 0.25 * am
  end
  #sleep 1/sb
end

# binary beat, 4 beats per bar
define :drums_binary_beat_4 do | am=1|
  sample :drum_bass_hard, amp: am
  sleep 1
  sample :drum_snare_hard, amp: am
  sleep 0.5
  sample :drum_bass_hard, amp: am
  sleep 0.5
  sample :drum_bass_hard, amp: am
  sleep 1
  sample :drum_snare_hard, amp: am
  #sleep 1
end

# ---- live loops

use_bpm get(:bpm)

live_loop :keys do
  br, ch = (sync :bar)
  keys_latin_2_bar_4 ch, br
end

live_loop :bass do
  ch = (sync :bar)[1]
  bass_latin_beat_4 ch, 1.25
end

live_loop :cymbals do
  sync :beat
  drums_cymbals_sub_beat sb = get(:sub_beat), 0.5
end

live_loop :drums do
  sync :bar
  drums_binary_beat_4 0.1
end


# ---- cues

cue :start