2021-08-01_sonicpi.rb

# Welcome to Sonic Pi

use_random_seed 1
use_bpm 120
int = 1.0 / 8

d1 = [1, 0, 0, 0, 0.05, 0, 0, 0]
d2 = [0, 0, 0, 0, 1, 0, 0.1, 0]
d3 = [0, 0, 0.05, 0, 0, 0, 0, 0]

live_loop :d1 do
  d1.each do |d|
    if d == 1 or rand < d
      sample :bd_ada
    end
    sleep int
  end
end

live_loop :d2 do
  d2.each do |d|
    if d == 1 or rand < d
      sample :drum_cymbal_closed, amp: 0.9
    end
    sleep int
  end
end

live_loop :d3 do
  d3.each do |d|
    if d == 1 or rand < d
      sample :drum_cymbal_pedal
    end
    sleep int
  end
end

my_scale = scale(:c4, :major_pentatonic)

notes = []
7.times do
  notes << choose(my_scale)
end
notes << nil

live_loop :m1 do
  use_synth :fm
  notes.each do |n|
    play n unless n.nil?
    sleep 1/4r
  end
  
  if rand < 0.8
    i = rand(0..6)
    notes[i] = choose(my_scale)
  end
end