#Sample
x = sl + "SuperMario.wav"
#Timing
#y = start
#z = end
y = 0
z = 1
#Rate
r = 1
#Offset
o = 0

define :randomseed do |a|
  use_random_seed a
  puts a
end

define :picksample do
  x = sl + samples.choose
end

define :picktime do |ymin,ymax,zmin,zmax|
  y = rrand(ymin,ymax)
  z = rrand(zmin,zmax)
end

define :pickrate do |rmin,rmax|
  r = rrand(rmin,rmax)
end

define :playnoise do |a, pan|
  randomseed a
  #picksample
  picktime 0.8, 0.1, 0.5, 0.6
  pickrate 0.1, 2
  sample x, start: y, finish: z, rate: r, amp: 0.5

  sleep sample_duration(x, start: y, finish: z) / (r+0.1)
end

with_fx :lpf, cutoff: 110 do
  with_fx :reverb, room: 1 do
    with_fx :reverb do
      playnoise 160, 0
      playnoise 200, 0
      playnoise 130, 0
      playnoise 10, 0
      playnoise 120, 0
      with_fx :echo, phase: 10, max_phase: 10 do
        in_thread do
          5.times do
            playnoise 100, 0.5
          end
        end
      end
      playnoise 140, -0.5
      playnoise 150, 0
      playnoise 160, 0
      playnoise 170, 0
      playnoise 180, 0
    end
  end
end