The Happy Feels Company: Recent Episodes
The Happy Feels Company
This track was produced in Sonic Pi https://sonic-pi.net
It's released as open source and this is the code right here (as an instrumental)
use_bpm 88
link
go = false chr = (ring :e4, :f4, :d4, :e4, :f4, :a4) ts = (ring 2.5, 1.5, 4) rhy = (ring 0.5, 2, 1.5) with_fx :reverb, mix: 0.4, room: 0.5 do chain = 0.05 with_fx :level, amp_slide_shape: 6 do |v| live_loop :v_ctrl do control v, amp_slide: chain, amp: 0.02, on: go sleep chain control v, amp_slide: 0.4, amp: 1 sleep rhy.tick-chain end with_fx :flanger, delay: 100, max_delay: 200, depth: 200, phase: 8, feedback: 0.7, mix: 0.55 do use_synth :mod_fm use_synth_defaults cutoff: 99, mod_phase: 1/2.0, mod_wave: 2, mod_range: 0.9 live_loop :narp do (ring 24, 6).tick(:b).times do n = chr.tick t = ts.look l = look in_thread do (t3).times do |i| play (chord n+24, :major, num_octaves: 2).pick, on: l>6, sustain_level: 0.6, decay: 0.1, amp: rand(0.45), sustain: rand(0.5), release: rand(0.3), pan: rand(2)-1 sleep 0.25 if i%4==0 then sleep 0.25 end end end in_thread do 8.times do |i| play (chord n, :major, num_octaves: 4, invert: tick)[i]-rand(0.05), pan: 2(i/8.0)-1, amp: 0.17, decay: 0.06, sustain_level: 0.4, sustain: 1, release: t-1, mod_phase: 1/3.0+rand(0.02) sleep 1/16.0 end end in_thread do sleep 1 ((t-1)4).times do |i| play (chord n+12-0.04ii, :major), amp: 0.45, release: 0.1, pan: i%22-1 sleep 0.25 end end sleep t end sleep 32 end with_fx :bitcrusher, bits: 10, sample_rate: (pitch_to_ratio :e1)*3000 do with_fx :distortion, distort: 0.8, amp: 0.5 do live_loop :lyrx do sleep 16+32 with_fx :panslicer, phase: 1/3.0 do #sample "REDACTED1.wav" end with_fx :panslicer, phase: 1/3.0, invert_wave: 1 do #sample "REDACTED2.wav", amp: 0.9 end stop end end end end
with_fx :distortion, distort: 0.85, amp: 0.95 do with_fx :slicer, phase: 0.25, mix: 0.99, pulse_width: 0.85, smooth: 0.04 do live_loop :baze do n = chr.tick t = ts.look 2.times do |i| in_thread do use_synth [:beep, :tri][i] cn = play n-48, on: go, note_slide_curve: 6, sustain: t-0.75, attack: 0.03, pan: [-1,1][i] control cn, note_slide: 0.45, note: n-36 sleep 0.5 sleep t/2.0 control cn, note_slide: t/2.0, note: n-48 sleep t/2.0-0.5 end end sleep t end end end live_loop :spsh do sleep 15.5 go = (ring true, true, false).tick 2.times do sample :elec_hi_snare, beat_stretch: 0.35, amp: 1.2 sleep 0.25 end sample :drum_splash_hard, amp: 0.75, beat_stretch: 5 end end
with_fx :wobble, wave: 3, res: 0.3, cutoff_min: 88, cutoff_max: 104, phase_offset: 0.5, phase: 2 do |w| live_loop :deez do sample :loop_amen_full, beat_stretch: 16, on: go, amp: 0.9 sleep 12 sample :loop_amen_full, beat_stretch: 16, start: 0.75, finish: 0.5, amp: 0.7 sleep 4 end end end
live_loop :kik do sample :loop_amen, num_slices: 8, slice: 6, amp: 0.1, on: go sample :bd_tek, amp: 0.9, on: go sleep rhy.tick end