A self-contained version of what I have in my sonic-pi-experiments repo. It uses my play-helper and lyrics helpers, so here I've pasted them into the buffer so anyone can run it.
Here's a recording of it on Soundcloud.
Last active
March 15, 2022 21:07
-
-
Save emlyn/04ad3965b8d105b91577cd59a9d9b4a5 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Rule The World - Take That | |
| # Uses the play_helper and lyric helpers | |
| define :pl do |notes, sus=0.5, rel=nil| | |
| rel ||= 1 - sus | |
| notes.each_slice(2) do |n,d| | |
| if d.respond_to?(:each) then # slur | |
| dtot = d.reduce(:+) | |
| synth = play n[0], sustain: sus * dtot, release: rel * dtot | |
| sleep d[0] | |
| d[1..-1].zip(n[1..-1]).each do |dd, nn| | |
| control synth, note: nn | |
| sleep dd | |
| end | |
| else | |
| play n, sustain: sus * d, release: rel * d | |
| sleep d | |
| end | |
| end | |
| end | |
| class LyricStrx < String | |
| def initialize(s) | |
| super s | |
| end | |
| # Override inspect to return the string as-is (without adding quotes) | |
| def inspect | |
| to_s | |
| end | |
| end | |
| define :lyrics do |str| | |
| puts LyricStrx.new(str) | |
| end | |
| use_debug false | |
| use_bpm 82 | |
| define :pls do |notes, sus=1| | |
| pl notes, sus | |
| end | |
| with_fx :reverb, room: 0.9, amp: 0.5 do |fx| | |
| at 0 do | |
| # vocals | |
| use_synth :fm | |
| use_synth_defaults attack: 0.0625, slide: 0.0625, depth: 1.5 | |
| control fx, amp: 1, amp_slide: 32 | |
| with_fx :reverb do | |
| lyrics "You light" | |
| pl [:Fs3, 0.5, :B3, 3.5] | |
| lyrics "the skies" | |
| pl [:Fs3, 0.5, :Cs4, 2.5] | |
| lyrics "up above me;" | |
| pl [:Fs3, 1, :A3, 0.5, [:Fs3, :E3], [0.125, 0.875], :E3, 1.5, :r, 5.5] | |
| lyrics "a star" | |
| pl [:Fs3, 0.5, :B3, 3.5] | |
| lyrics "so bright" | |
| pl [:D4, 0.5, :E4, 3.5] | |
| lyrics "you blind me," | |
| pl [:D4, 0.5, [:Cs4, :B3], [0.1875, 0.8125], :B3, 3] | |
| lyrics "yeah, yeah." | |
| pl [[:A3, :B3, :Fs3], [0.325, 0.175, 2], :r, 1] | |
| lyrics "Don't close" | |
| pl [:B3, 0.5, :E4, 3.5] | |
| lyrics "your eyes;" | |
| pl [:B3, 0.5, :D4, 2] | |
| control fx, amp: 1.5, amp_slide: 4 | |
| lyrics "don't fade away," | |
| pl [:B3, 0.5, [:G4, :Fs4], [0.5, 0.5], :Fs4, 0.5, :Cs4, 2] | |
| lyrics "don't fade away," | |
| pl [:B3, 0.5, [:G4, :Fs4], [0.5, 0.5], :Fs4, 0.5, :E4, 1.5, :r, 0.5] | |
| lyrics "oh." | |
| pl [[:G4, :Fs4], [1, 1.5], :r, 0.5] | |
| lyrics "Yeah, you and me, we can ride on a star;" | |
| pl [:Fs4, 0.5], 0.5 | |
| pl [:Fs4, 0.5], 0.8 | |
| pl [:Fs4, 0.5], 0.5 | |
| pl [:Fs4, 0.5]*3 + [:Fs4, 1, :G4, 0.5, :Fs4, 0.5, :Cs4, 1] | |
| lyrics "if you stay with me, girl," | |
| pl [:Cs4, 0.5, :Cs4, 0.5, :Cs4, 1, :D, 0.5, :Cs4, 0.5, :B3, 1] | |
| lyrics "we can rule the world." | |
| pl [:Fs4, 0.5, :Fs4, 0.5, [:Fs4, :E4], [0.5, 0.5], :E4, 1] | |
| pl [[:G4, :Fs4], [1, 0.5], :r, 1.5], 0.8 | |
| lyrics "Yeah, you and me, we can light up the sky;" | |
| pl [:Fs4, 0.5], 0.5 | |
| pl [:Fs4, 0.5], 0.8 | |
| pl [:Fs4, 0.5], 0.5 | |
| pl [:Fs4, 0.5]*3 + [:Fs4, 1, :G4, 0.5, :Fs4, 0.5, :Cs4, 1] | |
| lyrics "if you stay by my side," | |
| pl [:Cs4, 0.5, :Cs4, 0.5, :Cs4, 1, :D, 0.5, :Cs4, 0.5, :B3, 1] | |
| lyrics "we can rule the world." | |
| pl [:Fs4, 0.5, :Fs4, 0.5, [:Fs4, :E4], [0.5, 0.5], :E4, 1] | |
| pl [[:G4, :Fs4], [1, 0.5]], 0.8 | |
| end | |
| end | |
| at 1 do | |
| # left hand | |
| use_synth :piano | |
| #use_synth_defaults pan: -1 | |
| with_fx :reverb do | |
| pls [:B2, 4, :Fs2, 4, :E2, 4, :Fs2, 4, :B2, 4, :Fs2, 4, :E2, 4, :Fs2, 4] | |
| pls [:E2, 3, :Fs2, 1, :B1, 2, :B1, 1, :Cs2, 1] | |
| with_fx :level, amp: 0.4 do | |
| pls [:Fs1, 0.5]*8 + [:A1, 0.5]*8 + [:D2, 0.5]*8 | |
| pls [:B1, 0.5]*3 + [:Fs1, 1] + [:Fs1, 0.5]*6 + [:G1, 1] | |
| pls [:G1, 0.5]*6 + [:A1, 1] + [:A1, 0.5]*3 + [:D2, 0.5]*8 | |
| end | |
| end | |
| end | |
| at 1 do | |
| # right hand | |
| use_synth :piano | |
| use_synth_defaults sustain: 1 | |
| with_fx :reverb do | |
| 2.times do | |
| # Bsus2/Bm | |
| play_pattern [[:Fs3, :Cs4], [:Fs3, :D4], [:Fs3, :Cs4], [:Fs3, :D4]] | |
| # F#m | |
| play_pattern [[:Cs4, :G4], [:A3, :Fs4], [:Fs3, :Cs4], [:Cs3, :A3]] | |
| # Em | |
| play_pattern [[:E3, :B3], [:B2, :G4], [:E3, :B3], [:B2, :G3]] | |
| # F#m | |
| play_pattern [[:Fs3, :Cs4], [:D3, :B3], [:Fs3, :Cs4], [:D3, :B3]] | |
| end | |
| # Em | |
| play_pattern [[:E3, :B3], [:B2, :G4], [:E3, :B3], [:B2, :G3]] | |
| # Bm | |
| play_pattern [[:Fs3, :D4], [:D3, :B3], [:Fs3, :D4], [:D3, :B3]] | |
| # F#m (2) | |
| play_pattern [[:Fs3, :Cs4], [:Cs3, :A3], [:Fs3, :Cs4], [:Cs3, :A3]] | |
| # A | |
| play_pattern [[:E3, :Cs4], [:Cs3, :A3], [:E3, :Cs4], [:Cs3, :A3]] | |
| 2.times do | |
| # D | |
| play_pattern [chord(:D3, :M)]*4 | |
| # Bm/F#m | |
| play chord(:B3, :m) | |
| sleep 1 | |
| play chord(:B3, :m), sustain: 0.5 | |
| sleep 0.5 | |
| play chord(:Fs3, :m), sustain: 1.5 | |
| sleep 1.5 | |
| play chord(:Fs3, :m) | |
| sleep 1 | |
| # F#m/G | |
| play chord(:Fs3, :m) | |
| sleep 1 | |
| play chord(:Fs3, :m), sustain: 0.5 | |
| sleep 0.5 | |
| play chord(:G3, :M), sustain: 1.5 | |
| sleep 1.5 | |
| play chord(:G3, :M) | |
| sleep 1 | |
| # G/A | |
| play chord(:G3, :M) | |
| sleep 1 | |
| play chord(:G3, :M), sustain: 0.5 | |
| sleep 0.5 | |
| play chord(:A3, :M), sustain: 1.5 | |
| sleep 1.5 | |
| play chord(:A3, :M) | |
| sleep 1 | |
| end | |
| end | |
| end | |
| end |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment