JazzedupInversions

Performances, Streams & Live Coding
1

I spent some time playing with chord inversions, and ended up with this little piece.

#JazzedupInversions by Robin Newman, August 2020
#started playing with chord inversions and ended up with this.

use_bpm 60 #initial tempo
with_fx :reverb, room: 0.8,mix: 0.7 do
  with_fx :ixi_techno,mix: 0.4 do
    live_loop :arps do
      #code to speed up and slow down tempo again
      bpmchange=((knit 2,20)+(knit -4,10)).tick(:speed)
      use_bpm current_bpm + bpmchange
      #choose transposition for next sequence 3rd,4th,5th, or down a 5th
      use_transpose [0,4,5,7,-5].choose
      #choose synth for next chord sequence
      sn=[:tri,:beep,:saw,:pulse,:blade,:sine].choose
      #set up base note sequence
      l=[:c4,:f4,:g4,:c4]
      l=l.reverse if dice(2)==1 #randomly reverse sequence
      #puts l
      #choose chord type major, minor or open 5th
      ct=['M','m','5'].choose
      #play 4 note sequence based on values in l
      4.times do |p|
        z =[0,1].choose
        n=l[p] #choose base note
        #play bass note with FM synth duration 1.6
        synth :fm,note: n-12,release: 1.6,amp: 0.75
        #alternate pan of chord notes -1,1
        with_merged_synth_defaults pan: (-1)**tick(:p) do
          #initialise total time of notes
          total=0
          #play four inversions from chord
          4.times do |i|
            k=i #k holds inversion value
            k=4-i if p==3 #4th chord inversions played in reverse sequence (when p=3)
            #play arpegion of chord inversions
            #if z is 1 play all the inversions
            #if z is 0 select which to play with spread function
            puts "Base #{n} chord type #{ct} inversion #{k} z value #{z} bpm #{current_bpm}"
            synth sn,note: chord_invert(chord(n,ct),k),amp: z
            synth sn,note: chord_invert(chord(n,ct),k),amp: 1-z if spread(5,8).tick
            #select note timing 0.2 or 0.4
            st= [0.2,0.4].choose
            total+=st #update total time
            sleep st #sleep selected time
          end
          #puts total
          #sleep time to make up total to 1.6
          sleep 1.6-total
        end
      end
      #puts current_bpm
      stop if current_bpm <62 #stop when bpm falls below 62
    end
  end
end

You can listen to it here

2

That is very nice !
AND
Pleasant besides :sunny:

3

Hmmm… you using some wierd dev-version again, Robin?

I’m on Win10 vanilla SP 3.2.2 …


Runtime Error: [buffer 5, line 22] - NoMethodError
Thread death +--> :live_loop_arps
undefined method `merge' for nil:NilClass

C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/sound.rb:1074:in `synth'
workspace_five:22:in `block (6 levels) in __spider_eval'
workspace_five:18:in `times'
workspace_five:18:in `block (5 levels) in __spider_eval'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2194:in `block in live_loop'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2214:in `block (2 levels) in live_loop'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2134:in `block (2 levels) in loop'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2355:in `block_duration'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2392:in `block_slept?'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2133:in `block in loop'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2131:in `loop'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2131:in `loop'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/lang/core.rb:2212:in `block in live_loop'
C:/Program Files/Sonic Pi/app/server/ruby/lib/sonicpi/runtime.rb:1042:in `block (2 levels) in __in_thread'

EDIT: I took out the

        with_merged_synth_defaults pan: (-1)**(tick(:p) do
        end

and it runs, but I’ve no idea why.

Eli…

4

It would not surprise me if it was perhaps related to the following issue:


(Though would need to test it to know for sure).
That particular bug is not fixed in 3.2.2.
5

Sounds reasonable… your up and around early Ethan (?) , my living-room
clock says its 05:34 … or are you not UK-based?

Eli…

1 Like
6

No indeed :slight_smile:

7

snerk Well alright then. :slight_smile:

1 Like
8

Oops.Yes. I realised I’d used SP 3.2 for this not 3.2.2 I think Ethan’s fix (not in 3.2.2) may sort it.
for the moment I’ve written out using merged_synth_defaults
The version below should be OK.

#JazzedupInversions by Robin Newman, August 2020
#started playing with chord inversions and ended up with this.
#corrected for current with_merged_default bug
use_bpm 60 #initial tempo
with_fx :reverb, room: 0.8,mix: 0.7 do
  with_fx :ixi_techno,mix: 0.4 do
    live_loop :arps do
      #code to speed up and slow down tempo again
      bpmchange=((knit 2,20)+(knit -4,10)).tick(:speed)
      use_bpm current_bpm + bpmchange
      #choose transposition for next sequence 3rd,4th,5th, or down a 5th
      use_transpose [0,4,5,7,-5].choose
      #choose synth for next chord sequence
      sn=[:tri,:beep,:saw,:pulse,:blade,:sine].choose
      #set up base note sequence
      l=[:c4,:f4,:g4,:c4]
      l=l.reverse if dice(2)==1 #randomly reverse sequence
      #puts l
      #choose chord type major, minor or open 5th
      ct=['M','m','5'].choose
      #play 4 note sequence based on values in l
      4.times do |p|
        z =[0,1].choose
        n=l[p] #choose base note
        #play bass note with FM synth duration 1.6
        synth :fm,note: n-12,release: 1.6,amp: 0.75
        #alternate pan of chord notes -1,1
        tick(:p)
        #initialise total time of notes
        total=0
        #play four inversions from chord
        4.times do |i|
          k=i #k holds inversion value
          k=4-i if p==3 #4th chord inversions played in reverse sequence (when p=3)
          #play arpegion of chord inversions
          #if z is 1 play all the inversions
          #if z is 0 select which to play with spread function
          puts "Base #{n} chord type #{ct} inversion #{k} z value #{z} bpm #{current_bpm}"
          synth sn,note: chord_invert(chord(n,ct),k),amp: z,pan: (-1)**look(:p)
          synth sn,note: chord_invert(chord(n,ct),k),amp: 1-z,pan: (-1)**look(:p) if spread(5,8).tick
          #select note timing 0.2 or 0.4
          st= [0.2,0.4].choose
          total+=st #update total time
          sleep st #sleep selected time
        end
        #puts total
        #sleep time to make up total to 1.6
        sleep 1.6-total
      end
      #puts current_bpm
      stop if current_bpm <62 #stop when bpm falls below 62
    end
  end
end
1 Like