Exploring new hihat sampes in Sonic pi v4_4

# 230704 1825 Exploring new hihat sampes in Sonic pi v4_4
# Saved 230704 1825


with_fx :reverb, room: 0.4 do
  with_fx :flanger, mix: 0 do |flanger|
    
    live_loop :new_hihat_samples do
      tick
      
      / fx /
      fl = [0,0,0,0.2,0.4].choose
      control flanger, mix: fl
      
      / bass /
      use_synth :saw
      use_synth_defaults release: [0.1,0.1,0.3].look, cutoff: [60,90,110].choose
      kn = 16
      n = :c2+knit(0,kn,-2,kn).look+0
      
      bass = 1 # 1
      bass = knit(1,64-16+8, 0,16-8).look
      case bass
      when 0
      when 1
        play [n,n,n,n,n+12].look
      when 2
        play [n,n,n,n,n+12, nil,nil, nil,nil,nil].look
      end
      
      
      / top melody /
      topmel = 2
      topmel = knit(0,32, 1,32, 2,32).look
      case topmel
      when 0
      when 1
        play [n,n,n,n,n+12].look+[0,3,-2].look+12+12, pan: rdist(0.5)
      when 2
        play [n,n,n,n,n+12].look+[0,3,7,-2].choose+12+12, pan: rdist(0.75)
      end
      
      
      # kick 4/4
      sample :bd_haus, cutoff: 90, amp: 1 if spread(1,4).look
      
      # new hihats 96-115
      sample rrand_i(96,115), rpitch: [0,12].choose #if spread(3,5).look
      
      # rythm generator on hihats and extra kick
      rythm = knit(1,16*3, 2,16).look
      #    rythm = 1 #1
      case rythm
      when 1
        sleep [0.25, 0.25,0.125,0.125].look
      when 2
        sleep [0.25, 0.25,0.125,0.125].look
        sample :bd_haus, cutoff: 100, amp: 1 if spread(1,5).look
      when 3
        sample :bd_haus, cutoff: 90, amp: 1 if spread(1,5).look
        sleep 0.25
      when 4
        sleep 0.125
      end
      
      
      
    end
  end #end_reverb
end #end_krush
1 Like