# Ambi Loops
# Evan Forry 2025/04/06
# Inspired by the title and thumbnail of:
# YouTube: "Explode any chord into generative confetti"
# (didn't watch the video yet though)
use_random_seed Time.now.to_i

c = [60, 72, 84]
d = [62, 74, 85]
e = [64, 76]
f = [65, 77]
g = [67,79]
a = [69, 81]
b = [71, 83]

s = (scale :c, :major, num_octaves: 2)
puts s
start = choose([:c, :d, :e, :f, :g, :a, :b])
symbol = :maj9

#use_synth :dark_ambience
#use_synth :winwood_lead
#use_synth :chiplead

live_loop :ambi do
  use_synth :dark_ambience
  play chord(start, symbol), sustain: 9
  temp = choose(chord(start, symbol))
  start = :c if c.include?(temp)
  start = :d if d.include?(temp)
  start = :e if e.include?(temp)
  start = :f if f.include?(temp)
  start = :g if g.include?(temp)
  start = :a if a.include?(temp)
  start = :b if b.include?(temp)
  
  sleep 3
end

live_loop :lead do
  use_synth :chiplead
  #play chord(start, symbol), sustain: 9, amp: 0.75
  sleep 3
end

live_loop :base do
  use_synth :chipbass
  #play chord(start, symbol), sustain: 9, amp: 0.5
  sleep 3
end

live_loop :noise do
  use_synth :chipnoise
  #play chord(start, symbol), sustain: 9, amp: 0.25
  sleep 3
end