mn=[:r]; use_bpm 110; s=[24,27,30,36,40,48,0,0,0]
for j in 1..96; mn[j]=hz_to_midi(11*j); end
c=[5,6,9,5, 5,6,9,9, 5,6,9,5, 8,9,5,5, 8,5,9,9,
8,5,9,9, 8,5,9,9, 8,9]; m=[2,0,4,0,3,0,4,0];
p=[2,0,1,1,3,0,1,1]; f=[2,0,0,0,0,0,0,0]; d=[-5,7]
for x in 0..3; play 84, release: 0.01, amp: 0.1; sleep 1.0; end
loop do; for z in 0..3; for x in 0..29; for y in 0..7
i = rand_i(3); n=mn[c[x]*m[y]]; q=mn[choose(s)*m[y]]
use_synth :beep
play 84, release: 0.01, amp: p[y]*0.01
use_synth :dsaw
play mn[2*c[x]], detune: d[7/c[x]], cutoff: 80,
sustain: f[y], release: 0.00, amp: 0.06
use_synth :bass_foundation
play n-12, cutoff: 70, release: 1.00, amp: (1-(i<=>0).abs)*0.30
use_synth :pluck
play n, release: 2.00, amp: (1-(i<=>1).abs)*0.30
play q-12, release: 2.00, amp: (1-(z<=>1).abs)*1.00
use_synth :pretty_bell
play n, release: 0.20, amp: (1-(i<=>2).abs)*0.30
play q-12, release: 0.20, amp: (1-(z<=>2).abs)*0.70
play q-24, attack: 1.0, release: 1.00, amp: (1-(z<=>3).abs)*0.50
sleep 0.25; end; end; end; end
3 Likes
mn=[:r]; use_bpm 110 ##### A Clearer View #####
for j in 1..96; mn[j] = hz_to_midi(11*j); end
t = [16,0,0,0,0,0]
c = [5,6,9,5, 5,6,9,9, 5,6,9,5, 8,9,5,5, 8,5,9,9,
8,5,9,9, 8,5,9,9, 8,9]; m = [2,0,4,0,3,0,4,0];
p = [2,0,1,1,3,0,1,1]; f = [2,0,0,0,0,0,0,0]
for x in 0..3; play 84, release: 0.01, amp: 0.1; sleep 1.0; end
for z in 0..5; for x in t[z]..29; o = 1+(7/c[x])
for y in 0..7; i = rand_i(3); n = mn[c[x]*m[y]]
q=mn[choose([0,c[x]])*choose([0,2,3,4])*(m[y]<=>0)]
synth :saw, cutoff: 70, release: 0.00,
note: mn[2*c[x]*o], sustain: f[y], amp: 0.15
synth :saw, cutoff: 70, release: 0.00,
note: mn[3*c[x]], sustain: f[y], amp: 0.15
synth :beep, release: 0.01,
note: 96, amp: 0.10 *p[y]
synth :bass_foundation, cutoff: 70, release: 1.00,
note: n-12, amp: 0.50 *(1-(i<=>0).abs)
synth :pluck, release: 2.00,
note: n, amp: 0.50 *(1-(i<=>1).abs)
synth :pretty_bell, release: 0.20,
note: n, amp: 0.50 *(1-(i<=>2).abs)
synth :pluck, release: 2.00,
note: q, amp: 1.00 *(1-(z<=>2).abs)
synth :pretty_bell, release: 0.20,
note: q, amp: 1.00 *(1-(z<=>3).abs)
synth :pretty_bell, attack: 0.5,release: 0.50,
note: q, amp: 1.00 *(1-(z<=>4).abs)
sleep 0.25; end; end; end
4 Likes