the_pitch = 0
pitch_randval = 0

more_insanity = [:e6,:f7,:g6,:gs7,:ds6,:b7]
insanity = [:e6,:f7,:g6,:b7]
sanity = [:e6,:g6,:b7]

sanity_level = sanity

sleep_interval = 8

live_loop :set_sleep_interval do
  sleep_randval = rrand(0,100)
  if (sleep_randval <20) then sleep_interval = 16
  elsif (sleep_randval <40) then sleep_interval = 12
  else sleep_interval = 8 end
  sleep sleep_interval
end

live_loop :set_the_pitch do
  pitch_randval = rrand(0,100)
  if (pitch_randval<10) then the_pitch = +6
  elsif (pitch_randval<20) then the_pitch = -2
  elsif (pitch_randval<30) then the_pitch = 1
  else the_pitch = 0
  end
  sleep sleep_interval
end

live_loop :guit do
  with_fx :echo, mix: 0.3, phase: rrand(0.15,0.35) do
    sample :guit_em9, rate: 0.5 , pan: rrand(-0.5,0.5), pitch: the_pitch
    sample :guit_em9, finish: sleep_interval/2 * 0.1, rate: -0.5, pan: rrand(-0.5,0.5), pitch: the_pitch # off for now, too much artifact + choose([0,7,12])
  end
  sleep sleep_interval
end

#changes the level of "sanity"
live_loop :sanityTrimming do
  sanity_randval = rrand(0,100);
  if (sanity_randval<20) then sanity_level = more_insanity
  elsif (sanity_randval<40) then sanity_level = insanity
  else sanity_level = sanity end

  sleep sleep_interval * 4
end

#plays the creepy sounds
live_loop :strings do
  rate = rrand(2,6)
  with_fx :reverb, mix: 0.7 do
    use_synth :hollow
    play choose(sanity_level), attack: rate, release: rate, pitch: the_pitch, pan: choose([-1,1])
  end
  sleep choose([0.1,0.25,0.5]) * rate
end

#plays the bass note
live_loop :bass do
  with_fx :reverb do
    use_synth :fm
    play :e2, attack: 0, release: sleep_interval, sustain: sleep_interval/2, sustain_level: 0.6, pitch: the_pitch
  end
  sleep sleep_interval
end

#chooses between one, two, or three bass drum hits
boomRandVal = 0
live_loop :boom do
  with_fx :compressor, amp: 0.6 do
    with_fx :reverb, room: 1 do
      sample :bd_boom, amp: 20, rate: 1
      sleep 0.25
      if(boomRandVal < 50) then
        sample :bd_boom, amp: 10, rate: 1
      end
      sleep sleep_interval - 0.50
      boomRandVal = rrand(0,100)
      if(boomRandVal < 90) then
        sample :bd_boom, amp: 15, rate: 1
      end
      sleep 0.25
    end
  end
end