Sonic Pi music code

euclides.rb

# Alexandre rANGEL   www.quasecinema.org
# starting euclides v02
# 30/Oct/2016
# Sonic Pi 2.11dev

use_bpm 120
set_sched_ahead_time! 0.1
set_volume! 1.6

live_loop :beat1 do
  sample :elec_bong, amp: 1.5 if (spread 3, 8).tick
  sample :bd_haus, amp: 2 if (spread 1, 4).look
  sleep 0.25
end

x = 0
live_loop :beat2 do
  p = (ring 0.25,0.1,0.25,0.5,0.25,0.2)[x]
  x = x + 1
  t = tick
  22.times do
    with_fx :echo, phase: p, phase_slide: 6, decay: 2 do
      with_fx :reverb do
        sample :elec_ping, amp: 0.66 if (spread 7, (ring 11,10,12,11,14,21,28,11)[t])[t]
      end
    end
    sleep 0.25
  end
  sleep 12 * 0.25
end

live_loop :notes do
  t = tick
  with_fx :slicer, phase: [0.25,0.5].choose do #2,0.5,0.25,0.1,0.05
    with_fx :compressor, slope_above: 0.5, slope_below: 1.2, mix: 0.8 do
      use_synth (ring :fm,:chipbass,:chiplead,:prophet,:square,:tb303,:piano,:noise).choose
      4.times do
        play [scale(60,:chinese)[t],scale(60,:chinese).choose].choose,
          divisor: 8, depth: 4,
          pulse_width: 0.75,
          attack: 3, sustain: 0, release: 8, amp: 0.555,
          pan: [-1,1].choose, pan_slide: [2,4].choose
        sleep 8
      end
    end
  end
end