#SonicPi #compo

trance_of_an_old_clockwork.rb

#set_mixer_control! lpf: 100, lpf_slide: 32
#set_mixer_control! amp: 0, amp_slide: 32
#set_mixer_control! amp: 2, amp_slide: 32

# Trance of an old clockwork

use_bpm 60

# ---------------------------------------------------------------------------------------
# Beats

live_loop :beat do
  #stop
  #sync :boom
  sample :bd_haus, cutoff: 100, rate: 1, amp: 0.6
  sleep 2
end

live_loop :beat2 do
  stop
  #sync :boom
  with_fx :reverb do
    with_fx :krush do
      with_fx :bitcrusher, sample_rate: 800 do
        sample :bd_haus, beat_strech: 4, amp: 0.5
      end
    end
  end
  sleep 4
end

live_loop :beat4 do
  stop
  #sync :boom
  sample :loop_industrial, beat_stretch: 3, amp: 0.1
  sleep 3
end

live_loop :boom do
  #stop
  cue :boom
  with_fx :reverb, room: 1, damp:1, amp: 1.2 do
    sample :bd_boom, amp: 10, rate: 1
  end
  sleep 8
end


# ---------------------------------------------------------------------------------------
# Percussions

live_loop :perc1 do
  #stop
  #  at [1, 2, 3],
  #  [{:amp=>0.5}, {:amp=> 0.8}] do |p|
  #    sample :drum_cymbal_open, p
  #  end
  #sync :boom
  with_fx :reverb do
    sample :drum_cymbal_open, amp: 0.1, rate: 0.25
    sample :drum_cymbal_closed, amp: 0.1, rate: 0.25
  end
  sleep 3
end

# ---------------------------------------------------------------------------------------
# Ambience

live_loop :ambience do
  stop
  #sync :boom
  sample :loop_industrial, rate: 0.1, beat_stretch: 4, amp: 0.5
  sleep 4
end

live_loop :ambience_whining do
  stop
  sync :boom
  with_fx :krush do
    sample :ambi_choir, rate: -0.2, amp: 0.1
  end
  sleep 1
end

live_loop :haunted do
  #stop
  with_fx :distortion do
    sample :perc_bell, rate: rrand(-1.5, -0.5), amp: 0.5, cutoff: 90
  end
  sleep rrand(0.1, 2)
end

use_debug false
notes = (scale :e1, :minor_pentatonic, num_octaves: 3).shuffle

live_loop :static do
  stop
  #sync :boom
  tick_reset
  t = 0.04
  sleep -t
  with_fx :bitcrusher, sample_rate: 100, amp: 0.2 do
    with_fx :reverb, room: 0.6 do
      sleep_sust = 0.0625
      s = synth :dsaw, note: :e3, sustain: sleep_sust * 64, note_slide: t, release: 0, cutoff: 90
      64.times do
        sleep sleep_sust
        control s, note: notes.tick
      end
    end
  end
  sleep t
end

# ---------------------------------------------------------------------------------------
# Leads

#Desert quitar

live_loop :guit do
  stop
  #sync :boom
  with_fx :echo, mix: 0.3, phase: rrand(0.25, 0.5), amp: 0.4 do
    sample :guit_em9, rate: rrand(0.5, 1.5)
  end
  sample :guit_em9, rate: rrand(-0.5, -1.5), amp: 0.4
  sleep 16
end

live_loop :vortex, auto_cue: false do
  stop
  #sync :boom
  #use_synth [:pulse, :beep, :tb303].choose
  use_synth :beep
  #sleep 0.125
  with_fx :reverb do
    play scale(:e1, :minor_pentatonic).tick, attack: 0.125, release: 0.125, amp: 0.2, cutoff: (ring 70, 90, 100, 130).look
  end
  sleep 1
end

live_loop :leads_falling do
  stop
  #sync :boom
  synth :tb303, release: 4, note: :e1, cutoff: (range 120, 40, -10).tick, amp: 0.1
  sleep 1
end


# ---------------------------------------------------------------------------------------
# FX

live_loop :fxdriver do
  stop
  #sync :boom
  cue [:eff1_cue, :eff2_cue, :eff3_cue, :eff4_cue, :eff5_cue].choose
  #cue :eff1_cue
  #cue :eff2_cue
  #cue :eff3_cue
  #cue :eff4_cue
  #cue :eff5_cue
  sleep 16
end

live_loop :eff1 do
  sync :eff1_cue
  sample :ambi_lunar_land, beat_stretch: 32, amp: 0.5, rate: 0.4
end

live_loop :eff2 do
  sync :eff2_cue
  sample :ambi_choir, beat_stretch: 16, amp: 1.5
end

live_loop :eff3 do
  sync :eff3_cue
  sample :ambi_glass_hum, beat_stretch: 32, amp: 1
end

live_loop :eff4 do
  sync :eff4_cue
  sample :ambi_drone, beat_stretch: 16, amp: 1
end

live_loop :space_horn do
  sync :eff5_cue
  with_fx :reverb, room: 1, reps:4, mix: 0.3, amp: 0.3 do
    synth :prophet, note: :e1, cutoff: 110, amp: 0.3, release: 4
    with_fx :krush, gain: 10, amp:2, mix: 0.5 do
      4.times do
        synth :saw, note: :e1, felease: 0.1, amp: 2
        sleep 0.125
      end
    end
    sleep 4
  end
end


live_loop :machine do
  stop
  sync :boom
  sample :loop_garzul, rate: (knit 1, 3, -1, 1).tick
  sleep 8
end