Who can add some melody-story to this minimal Reich and Fibonacci set of loops?

[TonnyStampert]

use_bpm 120

live_loop :biet do
sleep 3
end

with_fx :reverb do

live_loop :typmaarlustig1, sync: :biet do
sample :ambi_choir, amp: 1.89, rate: 0.21
sample :bd_tek, amp: 0.89, rate: 0.21
sleep 34
end

live_loop :typmaarlustig2, sync: :biet do
sample :ambi_choir, amp: 0.55, rate: 0.21
sample :bd_tek, amp: 1.89, rate: 0.21
sleep 34.1
end

live_loop :typmaarlustig3, sync: :biet do
sample :ambi_choir, amp: 0.89, rate: 0.21
sample :bd_tek, amp: 0.55, rate: 0.21
sleep 34.05
end

live_loop :boom1, sync: :biet do
with_fx :reverb, room: 1 do
sleep 5
sample :bd_boom, amp: 1.89, rate: 0.34
end
sleep 21.1

end

live_loop :boom2, sync: :biet do
with_fx :reverb, room: 1 do
sleep 5
sample :bd_boom, amp: 0.89, rate: 0.34
end
sleep 21

end

live_loop :boom3, sync: :biet do
with_fx :reverb, room: 1 do
sleep 5
sample :bd_boom, amp: 0.55, rate: 0.34
end
sleep 21.05

end

end

with_fx :compressor do

live_loop :bass1, sync: :biet do
use_synth :dull_bell
play (chord :C3, :major).choose, release: rrand(0.34, 0.89), cutoff: rrand(13, 123)
sleep 3.1
end

live_loop :bass2, sync: :biet do
use_synth :dull_bell
play (chord :C3, :major).choose, release: rrand(0.34, 0.89), cutoff: rrand(13, 123)
sleep 3.05
end

live_loop :bass3, sync: :biet do
use_synth :dull_bell
play (chord :C3, :major).choose, release: rrand(0.34, 0.89), cutoff: rrand(13, 123)
sleep 3.00
end

end

sleep 13

with_fx :reverb do

live_loop :buzz1, sync: :biet do

sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
sleep 8

end

live_loop :buzz2, sync: :biet do

sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
sleep 8.1

end

live_loop :buzz3, sync: :biet do

sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
sleep 8.05

end

end

[TonnyStampert]

[Eli]

Hi Tonny,

Ive enjoyed your code and previous postings here very much, but I dont think
I can help here, though I will keep trying.

The problem is ME… I tend toward making music with a start/middle/end, and
a regular beat. That allows people to guess whats coming next and get
involved, mostly by dancing, I guess.

Your music is much more… random? chaotic? than mine, and I although I love
the sounds you produce, I just cant seem to be able to add to it, because I want
to make rythmic patterns, which mess up the music you are making.

I’ve tried adding all kinds of code/sounds to this piece, but I havent produced
anything I would be proud to put in front of you… I’m sorry about that.

Perhaps the best I can offer is some ambient background noise to fill
in between your music…

use_random_seed 668866

live_loop :bar do
  sleep 1
end

live_loop :beats do
  sync :bar
  sleep 4
  cue :bass
end

live_loop :background do
  sync :beats
  use_synth :fm
  use_synth_defaults amp: 0.25, attack: 0.0, release: 2
  play (chord [:c4, :eb, :g4].choose, :M7)
  sleep 2
  if one_in(4) then
    play (chord :c4, :M7)
  else
    play (chord :d4, :M7)
  end
  sleep 1
  
end

with_fx :reverb,mix: 0.5, damp: 0.75, room: 0.25 do
  with_fx :level, amp: 1 do
    
    live_loop :lead do
      notes = (ring :d3) + (scale :d3, :minor, num_octaves: 2).shuffle
      s = synth :hollow, note: :e3, sustain: 4, note_slide: 0.1, amp: 0.25
      
      control s, note: notes.tick, note_slide: (line 0, 0.1, steps: 2).look
      sleep (ring 1, 1, 1, 1, 0.5, 0.5, 1, 2).look
    end
    
  end
end

with_fx :reverb,mix: 0.5, damp: 0.75, room: 0.25 do
  with_fx :level, amp: 1 do
    
    live_loop :lead1 do
      notes = (ring :d3) + (scale :d4, :minor, num_octaves: 2).shuffle
      s = synth :dark_ambience, note: :e3, sustain: 2, note_slide: 0.1, amp: 0.125
      
      control s, note: notes.tick, note_slide: (line 0, 0.1, steps: 2).look
      sleep (ring 1, 1, 1, 1, 0.5, 0.5, 1, 2).look
    end
    
  end
end

I hope someone on the forums can provide more than my meager
help.

Regards,

Eli…

EDIT: Perhaps this code by Chris might help?

Cyberpunky ambience thing

I’ve been toying around with 'Pi for a few months now and I feel I’m competent enough to show off a thing I made. You listen to a performance of it here. live_loop :heart do with_fx :echo do sample :bd_haus, rate: 0.5,amp: 3, lpf: 80 sleep 2 end end live_loop :hum do with_fx :pan, pan: rrand(-1,1) do with_fx :slicer do sample :ambi_glass_rub, rate: rrand(0.1,0.25), amp: 1 sleep 0.25 end end end live_loop :melody do with_fx :flange…

[minced_mind]

Hmm,

it’s really arhythmical. If you leave out the wood like instrument sound (dull_bell) or change it to maybe something like chimes it could be used as an atmospheric background tune for a horror scene or something like that

Cu.

[minced_mind]

Hi again,

just an example here, the chime is not so good in Sonic Pi so I used perc_bell
Here is the example code to play with:

use_bpm 120

live_loop :biet do
 sleep 3
end

with_fx :reverb do
 
 live_loop :typmaarlustig1, sync: :biet do
   sample :ambi_choir, amp: 1.89, rate: 0.21
   sample :bd_tek, amp: 0.89, rate: 0.21
   sleep 34
 end
 
 live_loop :typmaarlustig2, sync: :biet do
   sample :ambi_choir, amp: 0.55, rate: 0.21
   sample :bd_tek, amp: 1.89, rate: 0.21
   sleep 34.1
 end
 
 live_loop :typmaarlustig3, sync: :biet do
   sample :ambi_choir, amp: 0.89, rate: 0.21
   sample :bd_tek, amp: 0.55, rate: 0.21
   sleep 34.05
 end
 
 live_loop :boom1, sync: :biet do
   with_fx :reverb, room: 1 do
     sleep 5
     sample :bd_boom, amp: 1.89, rate: 0.34
   end
   sleep 21.1
   
 end
 
 live_loop :boom2, sync: :biet do
   with_fx :reverb, room: 1 do
     sleep 5
     sample :bd_boom, amp: 0.89, rate: 0.34
   end
   sleep 21
   
 end
 
 live_loop :boom3, sync: :biet do
   with_fx :reverb, room: 1 do
     sleep 5
     sample :bd_boom, amp: 0.55, rate: 0.34
   end
   sleep 21.05
   
 end
 
end

with_fx :compressor do
 
 live_loop :bass1, sync: :biet do
   sample :perc_bell, rpitch: rrand(-1.0, 1.0), sustain: 0.5, release: rrand(0.34, 0.89), cutoff: rrand(13, 123), pan: rrand(-1.0, 1.0)
   sleep 3.1
 end
 
 live_loop :bass2, sync: :biet do
   sample :perc_bell, rpitch: rrand(-1.0, 1.0), sustain: 0.5, release: rrand(0.34, 0.89), cutoff: rrand(13, 123), pan: rrand(-1.0, 1.0)
   sleep 3.05
 end
 
 live_loop :bass3, sync: :biet do
   sample :perc_bell, rpitch: rrand(-1.0, 1.0), sustain: 0.5, release: rrand(0.34, 0.89), cutoff: rrand(13, 123), pan: rrand(-1.0, 1.0)
   sleep 3.00
 end
 
end

sleep 13

with_fx :reverb do
 
 live_loop :buzz1, sync: :biet do
   sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
   sleep 8
 end
 
 live_loop :buzz2, sync: :biet do
   sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
   sleep 8.1
 end
 
 live_loop :buzz3, sync: :biet do
   sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
   sleep 8.05
 end
 
end

[minced_mind]

Sounds nice for some Resident Evil background

[Eli]

Hi mate,

You reminded me of something I dont often play, with your comment,
so Tonny, if this helps, please use it.

Eli…

# I Will Remember.
# Just Eli...
# 09/11/2017.

use_bpm 60

fade_in1 = (line 0.25, 0.5, inclusive: true, steps: 3).ramp
fade_out1 = (line 0.5, 0.25, inclusive: true, steps: 3).ramp
fade_through1 = fade_in1+fade_out1

tracker = [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]

vol = 0
vol1 = 0
memorial = 1
bell = 1

live_loop :bar do
  sleep 1
end

live_loop :beats do
  sync :bar
  sleep 4
end

define :start_loop do |i|
  tracker[i]= 1
end

define :stop_loop do |i|
  tracker[i]= 0
end

with_fx :flanger, phase: rrand(5, 10), stereo_invert_wave: 1 do
  live_loop :memorial do
    if tracker[0] > 0 then
      use_transpose +12
      use_synth :sine
      use_synth_defaults release: 2.5, cutoff: 120, res: 0.7, amp: 0.4, attack: 0.25,
        vibrato_rate: rrand(0.05, 1), vibrato_depth: 0.1, vibrato_delay: 0.25, env_curve: 4, detune: 0.9
      sleep 1
      if look < 10 then
        vol = memorial * fade_in1.tick
      else
        vol = memorial * fade_out1.tick
      end
      play chord_invert((chord, :d3, :minor), -1), release: 1.5, amp: vol
      sleep 2
      play chord_invert((chord, :c3, :major), -1), release: 1.5, amp: vol
      sleep 1
      play chord_invert((chord, :c3, :major), rrand_i(-1, 1)), release: 1.5, amp: vol
      sleep 1
      if rand(1) < 0.8 then
        play chord_invert((chord, :g3, :major), -1), release: 4.5, amp: vol
        sleep 4
        play chord_invert((chord, :d3, :minor), 1),release: 1.5, amp: vol
        sleep 2
        play chord_invert((chord, :f3, :major), 0), release: 1.5, amp: vol
        sleep 1
      else
        play chord_invert((chord, :c3, :major), -1), release: 4.5, amp: vol
        sleep 4
        play chord_invert((chord, :d3, :minor), 1),release: 1.5, amp: vol
        sleep 2
        play chord_invert((chord, :g3, :major), 0), release: 1.5, amp: vol
        sleep 1
      end
      play chord_invert((chord, :f3, :major), rrand_i(-1,1)), release: 1.5, amp: vol
      sleep 1
      play chord_invert((chord, :g3, :major), 0), release: 4.5, amp: vol
      sleep 3
    else
      sleep 1
    end
  end
end


live_loop :chapel_bell do
  if tracker[1] > 0 then
    use_synth :dull_bell
    use_synth_defaults amp: 0.25, attack: 0.0, release: 3
    if look < 10 then
      vol1 = bell * fade_in1.tick
    else
      vol1 = bell * fade_out1.tick
    end
    if (rand(1) < 0.8) then
      play (chord :f3, :minor), amp: vol1, release: 3.5
      sleep 8
    else
      use_synth :sine
      use_synth_defaults release: 2.5, cutoff: 120, res: 0.7, amp: 0.4, attack: 0.25,
        vibrato_rate: rrand(0.05, 1), vibrato_depth: 0.1, vibrato_delay: 0.25, env_curve: 4, detune: 0.9
      play chord_invert((chord, :g3, :major), 0), release: 4.5, amp: vol
      sleep 8
    end
  else
    sleep 1
  end
end

start_loop 0
sleep 16
start_loop 1
sleep 60
stop_loop 0
sleep 16
stop_loop 1
stop

[minced_mind]

Hi Eli,

didn’t know there is a vibrato integrated into play for synth, not documented in my Sonic Pi version. Nice to know

Cu.

[Eli]

Yup… thats R.E. material, right there.

Um… 'scuse me a minute, just need to… erm… go change my pants…

Eli…

[Eli]

@ minced_mind

Perhaps if you throw in something like this you could
really scare people

Eli…

use_bpm 90

live_loop :bar do
  sleep 4
end

live_loop :heart do
  sync :bar
  sample :bd_haus, beat_stretch: 4, rate: 0.25,amp: [0.4,0.8].choose
end

[ethancrawford]

@minced_mind, @Eli:
The vibrato_… opts are specific to the blade synth, so in the above code snippet I think they will be ignored by the sine synth.

[Eli]

Yeah…

I have a habit of making a sound then cycling through all the synths until I
find one I like… often ignoring the options I originally set… sorry bout that

Eli…

[chris.krakou]

Thanks for pinging me Eli.

I don’t think I can help much with the piece itself, but I do have an archive of sounds on my github. Feel free to take anyone you like. https://github.com/ckrakou/SonicPi/tree/master/Sound%20Archives. I have got to admit that I haven’t updated it in a while. I should really offload a bunch of newer sounds.

[minced_mind]

Ok, that explains the missing documentation, I can see it for the blades.
Thanks

Here a short heart-example from me:

use_bpm 90

live_loop :heart do
  with_synth :sine do
    play hz_to_midi(50), amp: 1, attack: 0.01, sustain: 0, release: 0.2
    sleep 0.25
    play hz_to_midi(40), amp: 1, attack: 0.01, sustain: 0, release: 0.2
    sleep 3.75
  end
end

Cu.

[TonnyStampert]

''use_bpm 144

use_random_seed 610

live_loop :biet do
sleep 1
end

live_loop :heart1, sync: :biet do
#sync :biet
sample :bd_tek, beat_stretch: 3, rate: rrand(0.21,0.55),amp: [0.34,0.89,0.55].choose
sleep 8
end

live_loop :heart2, sync: :biet do
#sync :biet
sample :bd_tek, beat_stretch: 3.05, rate: rrand(0.21,0.55),amp: [0.34,0.89,0.55].choose
sleep 8.05
end

live_loop :heart3, sync: :biet do
#sync :biet
sample :bd_tek, beat_stretch: 3.1, rate: rrand(0.21,0.55),amp: [0.34,0.89,0.55].choose
sleep 8.1
end

with_fx :reverb do

live_loop :typmaarlustig1, sync: :biet do
sample :ambi_choir, amp: 0.89, rate: [0.34,0.21,0.13, 0.55].choose
sample :bd_boom, amp: [0.34,0.89].choose, rate: [0.34,0.89,0.55].choose
sleep 21
end

live_loop :typmaarlustig2, sync: :biet do
sample :ambi_choir, amp: 0.89, rate: [0.34,0.21,0.13,0.55].choose
sample :bd_boom, amp: [0.34,0.89].choose, rate: [0.34,0.89,0.55].choose
sleep 21.1
end

live_loop :typmaarlustig3, sync: :biet do
sample :ambi_choir, amp: 0.89, rate: [0.34,0.21,0.13,0.55].choose
sample :bd_boom, amp: [0.34,0.89].choose, rate: [0.34,0.89,0.55].choose
sleep 21.05
end

end

live_loop :boom1, sync: :biet do
with_fx :reverb, room: [0.34,0.89,0.55].choose do
sleep 5
sample :bd_haus, amp: [0.34,0.89,0.55].choose, rate: [0.34,0.21,0.13,0.55].choose
end
sleep 21.1

end

live_loop :boom2, sync: :biet do
with_fx :reverb, room: [0.34,0.21,0.13,0.55,0.89].choose do
sleep 5
sample :bd_haus, amp: [0.34,0.89,0.55].choose, rate: [0.34,0.21,0.13,0.55].choose
end
sleep 21

end

live_loop :boom3, sync: :biet do
with_fx :reverb, room: rrand(0.55,0.89) do
sleep 5
sample :bd_haus, amp: [0.34,0.89,0.55].choose, rate: [0.34,0.21,0.13,0.55].choose
end
sleep 21.05

end

with_fx :bitcrusher do

live_loop :bass1, sync: :biet do
use_synth :bnoise
play (chord :C3, :major).choose, release: rrand(0.34, 1.44), cutoff: rrand(13, 89), amp: [0.34,0.89].choose
sleep 13.1
end

live_loop :bass2, sync: :biet do
use_synth :bnoise
play (chord :C3, :major).choose, release: rrand(0.34, 1.44), cutoff: rrand(13, 89), amp: [0.34,0.89].choose
sleep 13.05
end

live_loop :bass3, sync: :biet do
use_synth :bnoise
play (chord :C3, :major).choose, release: rrand(0.34, 1.44), cutoff: rrand(13, 89), amp: [0.34,0.89].choose
sleep 13.00
end

end

with_fx :reverb do

live_loop :buzz1, sync: :biet do

sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
sleep 8

end

live_loop :buzz2, sync: :biet do

sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
sleep 8.1

end

live_loop :buzz3, sync: :biet do

sample :ambi_soft_buzz, amp: rrand(0.13,0.55), rate: rrand(0.55,0.89)
sleep 8.05

end

end’’