#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: 6

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

with_fx :distortion, distort: 0.3 do
  with_fx :reverb, room: 1 do
    playnoise 100, 0.35
    playnoise 180, 0.25
    playnoise 110, 0
    playnoise 120, 0.25
    in_thread do
      playnoise 130, 0.5
    end
    playnoise 140, -0.5
    playnoise 150, 0
    playnoise 160, 0
    playnoise 170, 0
    playnoise 200, 0
    playnoise 190, 0
    playnoise 180, 0
  end
end