Define slicing arovane_beat

Creations & Ideas
1 
# 240102 2051 define slicing arovane_beat
# Saved 240102 2051

set_volume! 3

define :samp do |s, num, sl, rp, ra, pan|
  sample s, num_slices: num, slice: sl, rpitch: rp, rate: ra, pan: rdist(pan)
end

with_fx :reverb, room: 0.4 do
  live_loop :a1 do
    tick
    sample :bd_fat, amp: 4 if spread(1,16).look
    s = :arovane_beat_e
    #s = :arovane_beat_c
    #s = :arovane_beat_b
    s = :arovane_beat_a # nice
    samp s, 64,rrand_i(1,64), 0,1, 0.25
    samp s, 64,rrand_i(1,64), 12+12,2, 0.75
    sleep 0.25
  end
end