Melody maker in sonic pi

pad_times.rb

uncomment do
  define :pad_times do |target_length, time_values|
    if time_values.reduce(:+) < target_length
      return time_values << (target_length - time_values.reduce(:+))
    else
      truncated_times = time_values.take_while.with_index {|x,i|
        time_values[0..i].reduce(:+) < target_length
      }
      return truncated_times << (target_length - truncated_times.reduce(:+))
    end
  end

  use_bpm 120

  live_loop(:mel) do
    use_random_seed 500
    use_synth :pulse

    init_time_values = [0.25, 0.5, 1].cycle.take(24)
    time_values = pad_times(8, init_time_values)
    s = scale(:c2, :minor_pentatonic, :num_octaves => 2).cycle.take(time_values.length).shuffle

    play_pattern_timed s, time_values, release: 0.25
  end

  live_loop :bd do
    sync :arp
    4.times do
      sample :bd_haus
      sleep 1
    end
  end
end