sonic pi harm

one.rb

define :one do
  8.times do
    play (scale :e3, :harmonic_minor).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :d4, :harmonic_minor).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :e3, :harmonic_minor).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :a4, :phrygian).tick, release: 0.1
    sleep 0.125
  end
end
define :two do
  8.times do
    play (scale :a4, :harmonic_minor).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :e5, :harmonic_minor).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :a4, :harmonic_minor).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :b5, :phrygian).tick, release: 0.1
    sleep 0.125
  end
end
define :three do
  8.times do
    play (scale :b4, :harmonic_major).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :a5, :harmonic_minor).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :b4, :phrygian).tick, release: 0.1
    sleep 0.125
  end
  8.times do
    play (scale :d6, :lydian).tick, release: 0.1
    sleep 0.125
  end
end

live_loop :base do
  one; one; one; two;
  one; two; one; three;
end

live_loop :harm do
  sample :guit_harmonics, amp: 2
  sleep 0.3
end
live_loop :harm2 do
  sync :harm
  sample :guit_em9, amp: 0.8
end
live_loop :harm3 do
  sample :ambi_choir
  sleep 0.2
end