[Sonic Pi] Perfume - Electro World

electro_world.rb

use_bpm 145

live_loop :chord do
  use_synth :piano
  use_synth_defaults attack: 0.01, sustain: 8.0, decay: 0.1, amp: 1.0
  use_transpose +12
  with_fx :reverb, room: 1.0, amp: 1.0 do
    with_fx :distortion, distort: 0.7 do
      with_fx :nrlpf do
        play ([:G2,:D3,:G3])
        sleep 8
        play ([:D3,:A3,:D4])
        sleep 8
        play ([:G2,:D3,:G3])
        sleep 8
        play ([:B2,:Gb3,:B3])
        sleep 8
      end
    end
  end
end

live_loop :vocal do
  use_synth :saw
  use_synth_defaults amp: 1.8, release: 1.0
  with_fx :reverb, room: 0.8, damp: 0.8, amp: 1.8 do
    play_pattern_timed ([:Fs4,:D4,:E4,:B4,:A4,:D4,:E4,:G4,:Fs4,:D4,:E4,:G4,:Fs4,:D4,:E4,:G4,:Fs4,:D4]), 0.5
    play_pattern_timed ([:E4,:D4,:D4]), [2.5, 0.5, 4]
  end
end

live_loop :pico do
  use_synth :dtri
  use_synth_defaults amp: 1.2, release: 0.2, attack: 0.01
  with_fx :reverb do
    play_pattern_timed ([:A5,:B5,:D6,:A5,:B5,:Fs5,:A5,:D5]), 0.5
    play_pattern_timed ([:A5,:B5,:D6,:A5,:B5,:Fs5,:A5,:E6]), 0.5
    play_pattern_timed ([:D6,:E6,:A5,:B5,:Fs5,:A5,:E5,:Fs5]), 0.5
    play_pattern_timed ([:A5,:B5,:D5,:E5,:A5,:B5,:D6,:E6]), 0.5
  end
end

live_loop :drums, sync: :chord do
  cymbal = bools(0,1,0,1, 0,1,0,1)
  snare  = bools(0,0,0,0, 0,0,1,0)
  with_fx :reverb, room: 0.4, damp: 0.1, amp: 3.5 do
    8.times do
      if cymbal.tick then
        sample :drum_cymbal_closed, attack: 0.01, sustain: 0.2, release: 0.02, amp: 0.8
      else
        sample :drum_cymbal_closed, amp: 0.3
      end
      sample :drum_snare_soft if snare.look
      sleep 0.5
    end
  end
end

動画
https://twitter.com/kasari39/status/1195870081722400769