Psytrance loop (bass line + kick)

Support, Help & Resources
1

I’m trying to create a psytrance-inspired loop from this tutorial: https://youtu.be/oMFxRnCIdMo?si=1j6TuDD_wzxCcm7f&t=1067

In sonic pi, but having trouble with the spectrum.

2

I dont know about the spectrum. I dont usually listen to psytrance, but I had fun trying to recreate this. Here is a starting point.


# 231125 0025 Recreating a Psytrance Basslines
# Saved 231125 0025
# Original post https://in-thread.sonic-pi.net/t/psytrance-loop-bass-line-kick/8399
# YT reference "Psytrance Basslines: 4 Simple Steps to Perfection" https://youtu.be/oMFxRnCIdMo?feature=shared&t=1071
# My performance of this code https://youtu.be/B2CpTPAFxrM
# Create by https://linktr.ee/relaxnow

set_volume! 1
use_bpm 150

with_fx :reverb, room: 0.4 do
  
  live_loop :a1 do
    tick
    
    / kick /
    sample :bd_tek, amp: 4 if spread(1,4).look
    # sample :bd_tek, amp: 4, pan: rdist(0.25) if spread(11,32).look
    
    / bass release pattern /
    r = 1
    case r
    when 1
      rel = [0.25].choose
    when 2
      rel = [0.15,0.2,0.4].choose
    when 3
      rel = [0.15,0.25,0.25,0.25,0.5].choose
    end
    
    / bass /
    use_synth :saw
    use_synth_defaults release: rel, cutoff: [60,80,100,120].look
    n = :fs1
    
    bass = 1
    case bass
    when 0
    when 1
      play n, amp: 4
      play n+0.25, amp: 4, pan: rdist(0.25)
      play n+0.25+12, amp: 2, pan: rdist(0.5)
    end
    
    
    
    / top layer of notes /  # just playing around
    mel_or_noise = [1,2].choose
    mel_or_noise = 1
    case mel_or_noise
    when 1
      use_synth :square
      use_synth :beep
      use_synth :tri
      use_synth [:tri, :square, :beep].choose
      use_synth_defaults release: rel-0.1
    when 2
      use_synth :noise
      use_synth [:noise,:gnoise].choose
      use_synth_defaults release: rrand(0.001,0.1)
    end
    
    n2 = n+[24,24,24,24,36].look
    n2 = n+24
    #n2 = n+36
    
    with_fx :ping_pong,phase: 0.75 do
      play n2+12+12, amp: 3 if (spread(1,16)).look
      play n2+12, amp: 2 if (spread(7,16)).look
    end
    
    # play scale(n2,:minor_pentatonic).pick, amp: 2, pan: rdist(0.25) if spread(3,5).look
    # play scale(n2+12,:minor_pentatonic).pick, amp: 2, pan: rdist(0.75) if spread(5,7).look
    
    
    sleep 0.25
  end
  
end
1 Like