Silent Scream

silentScream.txt

# Silent Scream, 24Sep2016, sonic(K)

use_debug false
use_bpm 77

with_sample_pack "D:/SonicPi/my-samples/" do
  load_sample :toScreamVox2
end

noties = [43, 93, 64, 54, nil]
noties2 = [43, 91, nil, 64, 54]
x, y, z, s, t = 0, 0, 0, 2, 0
c = 52

live_loop :vox, delay: 18.4 do #very rough vox
  with_sample_pack "D:/SonicPi/my-samples/" do
    with_fx :echo, phase: 0.2, amp: 0.8 do
      with_fx :ixi_techno, mix: 0.5 do
        sample :toScreamVox2, amp: 1.3, pan: 0.1
      end
    end
    with_fx :ring_mod, pre_amp: 1.5, freq: 50, mod_amp: 1.5, mix: 0.7 do
      sample :toScreamVox2, pan: -0.1
      sleep sample_duration :toScreamVox2
    end
  end
end

live_loop :beata, delay: 12 do
  t += 1
  puts "t time: #{t}"
  if t < 7
    sleep 8
  end
  8.times do
    c += 2
    if c > 66
      c = 52
    end
    puts "snare cuttoff: #{c}"
    2.times do
      if c < 56
        sample :bd_boom, rate: 0.8, attack: 0.1, cutoff: c, release: 0.25
      end
      with_fx :echo, pre_amp: 1.25, phase: 0.5, decay: 0.25, mix: 0.8 do
        with_sample_pack "D:/SonicPi/my-samples/FisherDrums" do
          sample :kick07, amp: 0.9, cutoff: c, res: 0.5
        end
        sleep 0.33333333
      end
    end
    with_sample_pack "D:/SonicPi/my-samples/FisherDrums" do
      sample :snare48, amp: 0.9, cutoff: c+16, res: 0.7, pan: (c-50)*0.01
    end
    sleep 0.33333333
  end
end

live_loop :cym do
  with_fx :flanger, depth: 10, mix: 0.5 do
    if one_in 4
      3.times do
        with_sample_pack "D:/SonicPi/my-samples/FisherDrums" do
          sample :ride03, amp: 1.0, cutoff: 75, res: 0.7, \
            pan: rand(-0.65..-0.5), rate: rand(0.995..1.05)
        end
        sleep 0.5
      end
    else
      with_sample_pack "D:/SonicPi/my-samples/FisherDrums" do
        sample :ride03, amp: 1.2, cutoff: 85, res: 0.3, \
          pan: rand(-0.75..-0.5)
      end
      sleep 0.375
      with_sample_pack "D:/SonicPi/my-samples/FisherDrums" do
        sample :ride10, amp: 0.8, cutoff: 75, res: 0.5, \
          pan: rand(-0.65..-0.5), rate: rand(0.995..1.05)
      end
      sleep 0.125
    end
  end
end

live_loop :pulsa do
  2.times do
    sample :drum_bass_soft
    sleep [1.5, 0.5].choose
  end
  1.times do
    with_fx :reverb, pre_amp: 2, mix: 0.5, room: rand(0.4..0.6) do
      sample :drum_snare_hard, cutoff: [65, rand(72..74)].choose, amp: 1.5
      sleep [1.5, 0.5].choose
    end
  end
end

live_loop :simba do
  z += 1
  puts "this is z #{z}"
  sleep [1.5, 0.5].choose
  if z < 4
    sample :drum_cymbal_open, rate: rand(0.97..1), \
      cutoff: [60, 70].choose, amp: 1.5, pan: rand(-0.6..-0.2)
    sleep [1.5, 0.5].choose
  else
    sleep [1.5, 0.5].choose
    z =0
  end
end

live_loop :arpa do
  a = [5, 10].choose
  s += 1
  puts "arpa sleep = #{s}"
  a.times do
    with_fx :echo, phase: 0.5, decay: 0.25 do
      with_fx :pitch_shift, pitch: rand(-12..12) do
        sample :guit_harmonics, finish: 0.24, rate: 0.95, \
          attack: 0.01, pan: rand(-1..1), amp: 1.3
      end
    end
    sleep 0.125
  end
  if s < 5
    sleep s
  else
    sleep s + 1
    s = 2
  end
  10.times do
    with_fx :pitch_shift, pitch: -8, pitch_dis: [0.5, 0.5, 1.2].choose do
      sample :guit_harmonics, finish: 0.14
      sleep 0.25
    end
  end
end

live_loop :bonga1 do
  x += 1
  puts x
  with_synth :dark_ambience do
    if x < 3
      play_pattern noties, amp: 1.75, attack: 0.02, \
        release: 0.5, pan: -0.4
    else
      with_fx :distortion do
        play_pattern [noties2.shuffle, noties.shuffle].choose, \
          amp: [1, 1.5].choose, attack: rand(0.02..0.025), \
          pan: rand(0.1..0.3)
      end
      x = 0
    end
    sleep [1.5, 0.5].choose
  end
end

live_loop :bonga2 do
  y += 1
  puts "y ..... #{y}"
  with_synth :dark_ambience do
    if y < 3
      play_pattern noties, amp: 1.75, attack: 0.02, \
        release: 0.5, pan: rand(-0.5..-0.4)
    else
      with_fx :distortion do
        play_pattern [noties2.shuffle, noties.shuffle].choose, amp: [1, 1.5].choose, \
          attack: rand(0.02..0.025), pan: rand(-0.3..0.1)
      end
      y = 0
      puts "y = 0"
    end
    sleep [1.5, 0.5].choose
  end
end

Code for background of "Silent Scream" by freemoth & sonic(K). Audio is here https://soundcloud.com/freemoth/silent-scream-freemoth-sonick.