Shepard tone Sonic Pi code

fancy_shepard_tone.rb

# github.com/senz
use_synth :mod_sine
use_bpm 40

counter = 0
v1l = [:C3, :D3, :E3, :F3, :G3, :A3, :B3].ring
v2l = [:C4, :D4, :E4, :F4, :G4, :A4, :B4].ring
v3l = [:C5, :D5, :E5, :F5, :G5, :A5, :B5].ring

a = 1
s = 0
r = v1l.size + 2

loop do
  with_fx :reverb do
    v1 = play v1l[counter], attack: a, release: r, sustain: s, note_slide: 1
    v2 = play v2l[counter], attack: a, release: r, sustain: s, note_slide: 1
    v3 = play v3l[counter], attack: a, release: r, sustain: s, note_slide: 1

    (r-2).times do
      control v1, note: v1l[counter]
      control v3, note: v2l[counter]
      control v3, note: v3l[counter]
      counter = (inc counter)
      sleep 1
    end
  end
end