remember-v09.rb

# Alexandre rANGEL / www.quasecinema.org
# i trying to remember my dreams v09
# Sonic Pi 2.11 / 7-August-2016

use_bpm 126
set_volume! 1.0
set_sched_ahead_time! 1

#let it roll...
#http://freesound.org/people/modularsamples/sounds/300877/
expander = '/Users/rangel/pisamples/expander_E4.aiff'
load_sample expander
#http://freesound.org/people/Timbre/sounds/71341/
sirenfunk = '/Users/rangel/pisamples/siren_funk.wav'
load_sample sirenfunk
#http://freesound.org/people/Barruchi/sounds/348411/
talk = '/Users/rangel/pisamples/talk_war.wav'
load_sample talk

##################################################################

live_loop :synth do
  sample expander, beat_stretch: 4,
    amp: rrand(3,4.4), amp_slide: 1,
    pan: rrand(-0.5,0.5), pan_slide: [0.5,1,2,4].choose
  sleep sample_duration expander, beat_stretch: 4
end

##################################################################
sleep 16

live_loop :synth2 do
  with_fx :bitcrusher, bits: [8,10,12,14,16].choose,
    sample_rate: rrand(13000,40000),
  mix: [0.2,0.4,0.88].choose do
    with_fx :octaver, sub_amp: 3, subsub_amp: 3,
    mix: [0.222,0.5,0.9].choose do
      with_fx :tanh, mix: 0.6 do
        with_fx :pitch_shift,
          pitch: [-4,-4,-2,-6,-8].choose,
        pitch_slide: [0.5,1].choose do
          with_fx :panslicer, phase: 1.0/[2,1,0.5].choose, mix: 0.8 do
            with_fx :slicer, phase: 1.0/[0.5,2,1].choose do
              with_fx :flanger do
                sample expander, beat_stretch: 8,
                  amp: ring(2,5).tick * 5
              end
            end
          end
        end
      end
    end
  end
  sleep (sample_duration expander,
         beat_stretch: [4,6,6,8].choose) * [1,2].choose
end

##################################################################
sleep 16

myStart = 0.45
live_loop :sirenfunk do
  #with_fx  do
  x = [0.2,0.25,1,1,2].choose
  with_fx :compressor, slope_above: 0.6, mix: 0.9 do
    with_fx :slicer, phase: x, mix: [0,0.4,0.6,1].choose do
      sample sirenfunk, start: myStart, beat_stretch: 96,
        attack: 0.16, release: 0.3, amp: 1.1,
        slope_down: [0,0.05].choose
    end
  end
  sleep (sample_duration sirenfunk, beat_stretch: 96) * 0.57 + (1.0/48)
  myStart = [0.45,0.42].choose
end

##################################################################
#sleep 16
live_loop :sirenfunk2 do
  x = [0.2,0.25,1,1,2].choose
  with_fx :slicer, phase: x, phase_offset: x*[1,0.5].choose,
  mix: [0.25,0.5,1].choose do
    sample sirenfunk, start: myStart, pitch_stretch: 96,
      attack: 0.222, release: 0.3, amp: 2.3,
      window_size: [0.0001,0.001,0.01,0.1,0.5].choose
  end
  sleep (sample_duration sirenfunk, beat_stretch: 96) * 0.57 + (1.0/48)
  #puts myStart
end