...........The Band Plays On

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