### Inspiration - that I listened to at the time I made this ###
# Try create something like
# Ryoji Ikeda - Data.Matrix - Live at Sonár 2010
# https://youtu.be/k3J4d4RbeWc
# Analyze
# Ryoji Ikeda Pure Data Tutorial
# https://youtu.be/CLddxGIlVPU
# Ryoji Ikeda - Supercodex [Full Album]
# https://www.youtube.com/watch?v=MsGPRZPLfPA
# !! Ryoji Ikeda ARS musica
# https://youtu.be/LeIZvgkRFSQ?t=1002
### ------------------------------------------------------ ###
# 231001 0025 Sine bass noise and reverb inspired by Ryoji Ikeda 2 YT
# Saved 231001 0025
# Created 230812 1734
# Created by https://linktr.ee/relaxnow
# https://youtu.be/lRkUqK2bLcI
# https://in-thread.sonic-pi.net/t/yt-sine-bass-noise-and-reverb-inspired-by-ryoji-ikeda-2/8199
set_volume! 2
use_bpm 65
with_fx :reverb, room: 0.9 do
live_loop :bass do
tick
/ deep long sine bass /
use_synth :sine
play :c2, amp: 2, sustain: 2, release: 1 if spread(1,16*3).look
use_synth :sine
/ top mel 1 /
#play :c4+[0,2,-2,5,3,7,-7].look, release: 0.15, amp: 0.5 if spread(12,16).look and one_in(2)
#play :c5+[0,2,-2,5,3,7,-7].look, release: 0.15, amp: 0.5 if spread(12,16).look and one_in(2)
#play :c6+[0,2,-2,5,3,7,-7].look, release: 0.15, amp: 0.5 if spread(12,16).look and one_in(2)
#play :c7+[0,2,-2,5,3,7,-7].look, release: 0.15, amp: 0.5 if spread(12,16).look and one_in(2)
/top mel 2 /
play :c4+[0,2,-2,5,3,7,-7].look, release: 0.15, amp: 0.5 if spread(12,16).look and one_in(2)
play :c7+[0,2,-2,5,3,7,-7].look, release: 0.04, amp: 0.5 if spread(12,16).look and one_in(2)
sample :glitch_perc3, beat_stretch: [0.25,0.5, 1,2,4].choose, rate: [2,4].choose, slice: rrand_i(1,10), amp: 2, pan: rdist(0.5) if bools(1).look and one_in(2)
use_synth :noise
#use_synth_defaults release: [0.01,0.02,0.04,0.06].choose
use_synth_defaults release: [0.001,0.002,0.004,0.006].choose
c = [70,80,90,100,110,120,130].choose-50
play :c9, cutoff: c, amp: 2, pan: rdist(0.75)
use_synth_defaults release: [0.01,0.02,0.04,0.06].choose
cu = line(70,95,steps: 64).look
play :c4, cutoff: cu, amp: 2, pan: rdist(0.5)
/ drums /
drum = 0
dr = 32
puts "drum pattern=", drum = knit(0,dr,1,dr,2,dr,3,dr,4,dr,5,dr/4).look
case drum
when 0
when 1
sample :bd_haus, cutoff: 80, amp: [3,0,0,0,0,0, 0,0,0,0,0,0].look
#sample :bd_haus, cutoff: 50, amp: [2,0,0,0].look
#sample :elec_tick, amp: [4,1,0,1,1].look, rpitch: 12
#sample :elec_tick, amp: [4,1,0,1,1,0].look, rpitch: 0
#sample :bd_haus, rate: 4, cutoff: 130, amp: [2,1,0,2,1,0,1].look and one_in(2)
when 2
sample :bd_haus, cutoff: 80, amp: [3,0,0,0,0,0, 0,0,0,0,0,0].look
sample :bd_haus, cutoff: 50, amp: [2,0,0,0].look
#sample :elec_tick, amp: [4,1,0,1,1].look, rpitch: 12
#sample :elec_tick, amp: [4,1,0,1,1,0].look, rpitch: 0
#sample :bd_haus, rate: 4, cutoff: 130, amp: [2,1,0,2,1,0,1].look and one_in(2)
when 3
sample :bd_haus, cutoff: 80, amp: [3,0,0,0,0,0, 0,0,0,0,0,0].look
sample :bd_haus, cutoff: 50, amp: [2,0,0,0].look
sample :elec_tick, amp: [4,1,0,1,1].look, rpitch: 12
#sample :elec_tick, amp: [4,1,0,1,1,0].look, rpitch: 0
#sample :bd_haus, rate: 4, cutoff: 130, amp: [2,1,0,2,1,0,1].look and one_in(2)
when 4
sample :bd_haus, cutoff: 80, amp: [3,0,0,0,0,0, 0,0,0,0,0,0].look
sample :bd_haus, cutoff: 50, amp: [2,0,0,0].look
sample :elec_tick, amp: [4,1,0,1,1].look, rpitch: 12
sample :elec_tick, amp: [4,1,0,1,1,0].look, rpitch: 0
#sample :bd_haus, rate: 4, cutoff: 130, amp: [2,1,0,2,1,0,1].look and one_in(2)
when 5
sample :bd_haus, cutoff: 80, amp: [3,0,0,0,0,0, 0,0,0,0,0,0].look
sample :bd_haus, cutoff: 50, amp: [2,0,0,0].look
sample :elec_tick, amp: [4,1,0,1,1].look, rpitch: 12
sample :elec_tick, amp: [4,1,0,1,1,0].look, rpitch: 0
sample :bd_haus, rate: 4, cutoff: 130, amp: [2,1,0,2,1,0,1].look and one_in(2)
end
sleep 0.125
end
end