sad_chords = [chord(:F, :minor7), chord(:Ab, :major7), chord(:E, :major7), chord(:F, "7")].ring

sad_chords += [chord(:A, :minor7), chord(:D, :minor7), chord(:F, "7")].ring

c = sad_chords[0] # take the first chord of the ring and save it to a variable

live_loop :melody, delay: 8 do

?stop

?n = [:f, :a, :d, :e, :f].tick

?use_synth :chiplead

?use_synth_defaults cutoff: 95

?#with_fx :krush, gain: 16, rep: 16 do

?r = [0.25, 0.25, 0.25, 3].choose

?play n, release: r

?sleep r

?#end

end

live_loop :bass, delay: 0 do

?stop

?with_fx :level,amp: 0.5 do

???use_synth :pluck

???use_octave -2

???3.times do

?????play c[0] # play the first note of the chord

?????sleep 1

???end

???play c[1] # play the second note of the chord

???sleep 0.5

???play c[2] # # play the third note of the chord

???sleep 0.5

???c = sad_chords.tick

?end

end

define :heartbeat do |i|

?sample :drum_heavy_kick, rpitch: i*8

?sleep 0.25

?sample :bd_haus, rpitch: i*8

?sleep 0.75

end

live_loop :drum do

?with_fx :level, amp: 0.8 do

???heartbeat 1.8

?end

end

define :discrete_shepard do |up, synth, amp=1|

?center = :f

?#use_bpm 300

?use_synth :mod_beep

?#use_synth_defaults attack: 0.1, release: 0.1

?notes = range(center, center+13)

?if up then

???notes = notes.reverse

?end

?notes = notes.stretch(2).rotate(1)

?puts notes

?amps = range(0,24)

?#puts(amps)

?amps = amps.map{|f| f/24.0*amp}

?amps = amps.ring

?if up then

???amps = amps.reverse

?end

?#puts(amps.reverse)

?for i in range(0, 24)

???n = notes[i]

???#puts i, n

???play n, amp: amp

???play n + 12, amp: amps.reverse[i]

???play n - 12, amp: amps[i]

???if i % 2 == 1 then

?????sleep 0.5

???end

???sleep 0.25

?end

end

live_loop :s do

?with_fx :ring_mod, freq: 120 do

???discrete_shepard false, :sine, 0.1

?end

end