# 230102 2045 Max Cooper Spike inspired YT
# Saved 230102 2045
# My performance https://youtu.be/L7NIuUEr05w
# https://in-thread.sonic-pi.net/t/max-cooper-spike-inspired-yt/8491
# Jumping off point
## Max Cooper - Spike (Official video by Yoshi Sodeoka)
## https://www.youtube.com/watch?v=ktn628Bvhc8
## //Hydra Glitchy Slit Scan
## https://hydra.ojack.xyz/?sketch_id=flor_1
use_bpm 123
/ drums and more/
with_fx :reverb, room: 0.4 do
live_loop :d1 do
tick
amp = 1.5 #1.5
k = 128
drummixer = knit(0,k,1,k).look
# drummixer = 1
#drummixer = 0
case drummixer
when 0
# sample :bd_fat, amp: 4 if spread(1,32).look
when 1
#amp = 0
/ A kick+snare /
# sample :bd_fat, amp: 4 if spread(1,32).look
sample :bd_tek, pan: rdist(0.15), amp: amp if (spread(1,4)*6+bools(1,1,0,1,0,1,1,0)).look
sample :sn_generic, pan: rdist(0.15), amp: amp, start: 0.075, cutoff: line(100,130,steps: 64).mirror.look if spread(1,32).rotate(4).look
on spread([7,9,11].choose,16).rotate(2).look do
sample :elec_tick, rpitch: 10.25, amp: amp-0.75
# insert 'hats' variation here
end
/ B offbeat short noise /
on spread(1,8).look do
use_synth :noise
use_synth_defaults release: 0.05125, attack: [0,0.05125,0,0].look, amp: [0,2,0,0].look, cutoff: 130
play :c2
end
end
sleep 0.25
end
with_fx :ixi_techno, mix: 0.5 do #|ixi|
/ weird high pitch sounds (missing to be out in auto pilot - add manually currently)/
define :samp do |s, num, sl, rp, ra, pan, amp, cut|
sample s, num_slices: num, slice: sl, rpitch: rp, rate: ra, pan: rdist(pan), amp: amp, cutoff: cut
end
live_loop :ar1 do
tick
#control :ixi, mix = [0,0.2,0.4].choose
sample :bd_fat, amp: 4 if spread(1,16).look
k = 32
weird = knit(0,k,2,k).look
puts 'weird =',weird if spread(1,k).look
weird = 2
#weird = 0
amp = 1.5+1
one_in = 0 # 0,1 or 4
one_in = 1
one_in = knit(0,128,1,128).look
#one_in = 8
case weird
when 0
sleep 0.5
when 1 # (doesnt work yet - some high pitch stuff to loud)
#s = :arovane_beat_a # nice
#samp s, 64,rrand_i(1,32), 12+12+12,2, 0.75,amp,[110,100,90].choose if one_in(2)
sleep 0.5
when 2
s = :arovane_beat_e
density [3,1,1,1,1,1,1].look do
samp s, 64,rrand_i(1,64), 12+12+12,2, 0.75,amp,[130,120,110,100,90].choose if one_in(one_in)
sleep 0.5
end
end
end
end
end#end_reverb_0.4
with_fx :reverb, room: 0.8 do
/ noise sweep and fills /
live_loop :n do
tick
noise = knit(0,16,1,16,2,16, 0,16,3,16*3).look
puts 'sweep and fills =', noise if spread(1,16).look
#noise = 3
case noise
when 0
sleep 1
when 1
use_synth :noise
use_synth_defaults release: 0.125, attack: [0,1.75,0,0].look, amp: [0,1,0,0].look, cutoff: 110-line(40,0, steps: 128).look
play :c2
sleep 1
when 2
use_synth :noise
density [1,1,1,1,2,3,4].look do
use_synth_defaults release: 0.05125, attack: [0,0.05125,0,0].look, amp: [0,1,0,0].look, cutoff: 130
#play :c2, amp: [0,0.5,0.8,1,2].look#if one_in(2)
play :c2, amp: 1
sleep 1
end
when 3
use_synth :noise
density [1,1,1,3,4].choose do
k=8
use_synth_defaults release: 0.05125, attack: [0,0.05125,0,0].look, amp: [0,1,0,0].look, cutoff: knit(100,k,110,k,120,k,130,k).look
#play :c2, amp: [0,0.5,0.8,1,2].look#if one_in(2)
play :c2#, amp: 1
sleep 1
end
end
end
live_loop :reverse do
tick
#sample 'beat',1, pitch: 24, num_slices: 32, slice: 16, amp: 1
sleep 1
end
/ big synth /
live_loop :a1 do
tick
use_synth :square
c = [60,120,70,70,60].look
r = [0.5,0.1,0.2,0.3].look
r2 = [0.4,0.2,0].look
a1 = rrand(0.9,1.1)
a2 = rrand(0.9,1.1)
a3 = rrand(0.9,1.5)
s1 = s2 = s3 = [0.4,0,0.1,0.2,].look
p1 = rdist(0.25)
p2 = rdist(0.35)
p3 = rdist(0.45)
on bools(1,0,0,1,0,0,1,0, 1,0,0,1,0,1,0,0).look do
use_synth_defaults cutoff: c, release: r+r2, amp: a1, pan: p1, sustain: s1
n = :ds2
play n
use_synth :saw
use_synth_defaults cutoff: c, release: r, amp: a2, pan: p2, sustain: s2
play n
use_synth :sine
use_synth_defaults cutoff: c, release: r, amp: a3, pan: p3, sustain: s3
play n-12
use_synth :prophet
use_synth_defaults cutoff: c-[0,10,20,30].look, release: r, amp: a3, pan: p2, sustain: s2
play n+[0,0,0,12].choose
end
sleep 0.5
end
end