Examples - further work on examples prior to v2.7

* Mainly tweaking to deal with the new rand gen

Author: samaaron

app/server/sonicpi/lib/sonicpi/spiderapi.rb

@@ -1447,22 +1447,28 @@ def rand_back(amount=1)
         doc:            "Roll the random generator back essentially 'undoing' the last call to `rand`. You may specify an amount to roll back allowing you to skip back n calls to `rand`.",
         examples:       ["
 # Basic rand stream rollback
+
 puts rand # prints 0.75006103515625
+
 rand_back # roll random stream back one
           # the result of the next call to rand will be
           # exactly the same as the previous call
+
 puts rand # prints 0.75006103515625 again!
 puts rand # prints 0.733917236328125",
 "
 # Jumping back multiple places in the rand stream
+
 puts rand # prints 0.75006103515625
 puts rand # prints 0.733917236328125
 puts rand # prints 0.464202880859375
 puts rand # prints 0.24249267578125
+
 rand_back(3) # roll random stream back three places
              # the result of the next call to rand will be
              # exactly the same as the result 3 calls to
-             # `rand` ago.
+             # rand ago.
+
 puts rand # prints  0.733917236328125 again!
 puts rand # prints  0.464202880859375"]
 
@@ -1482,22 +1488,30 @@ def rand_skip(amount=1)
         doc:            "Jump the random generator forward essentially skipping the next call to `rand`. You may specify an amount to jump allowing you to skip n calls to `rand`.",
         examples:       ["
 # Basic rand stream skip
+
 puts rand # prints 0.75006103515625
+
 rand_skip # jump random stream forward one
           # typically the next rand is 0.733917236328125
+
 puts rand # prints 0.464202880859375",
 "
 # Jumping forward multiple places in the rand stream
+
 puts rand # prints 0.75006103515625
 puts rand # prints 0.733917236328125
 puts rand # prints 0.464202880859375
 puts rand # prints 0.24249267578125
+
 rand_reset  # reset the random stream
+
 puts rand # prints 0.75006103515625
+
 rand_skip(2) # jump random stream forward three places
              # the result of the next call to rand will be
              # exactly the same as if rand had been called
              # three times
+
 puts rand 0.24249267578125"]
 
 

etc/examples/algomancer/sonic_dreams.rb

@@ -1,5 +1,4 @@
-# rand-seed-ver 31
-# Meta-eX
+# rand-seed-ver 32
 #
 # Coded by Sam Aaron
 #
@@ -10,29 +9,29 @@
 
 define :ocean do |num, amp_mul=1|
   num.times do
-    s = synth [:bnoise, :cnoise, :gnoise].choose, amp: rrand(0.5, 1.5) * amp_mul, attack: rrand(0, 4), sustain: rrand(0, 2), release: rrand(0, 5) + 0.5, cutoff_slide: rrand(0, 5), cutoff: rrand(60, 100), pan: rrand(-1, 1), pan_slide: 1, amp: rrand(0.5, 1)
+    s = synth [:bnoise, :cnoise, :gnoise].choose, amp: rrand(0.5, 1.5) * amp_mul, attack: rrand(0, 1), sustain: rrand(0, 2), release: rrand(0, 5) + 0.5, cutoff_slide: rrand(0, 5), cutoff: rrand(60, 100), pan: rrand(-1, 1), pan_slide: 1
     control s, pan: rrand(-1, 1), cutoff: rrand(60, 110)
-    sleep rrand(2, 4)
+    sleep rrand(0.5, 4)
   end
 end
 
-define :echoes do |num, tonics, co=80, res=0.9, amp=1|
+define :echoes do |num, tonics, co=100, res=0.9, amp=1|
   num.times do
-    play chord(tonics.choose, :minor).choose, res: res, cutoff: rrand(co - 40, co + 20), amp: 0.5 * amp, attack: 0, release: rrand(0.5, 1.5), pan: rrand(-0.7, 0.7)
+    play chord(tonics.choose, :minor).choose, res: res, cutoff: rrand(co - 20, co + 20), amp: 0.5 * amp, attack: 0, release: rrand(0.5, 1.5), pan: rrand(-0.7, 0.7)
     sleep [0.25, 0.5, 0.5, 0.5, 1, 1].choose
   end
 end
 
 define :bd do
   cue :in_relentless_cycles
   16.times do
-    sample :bd_haus, amp: 3
+    sample :bd_haus, amp: 4, cutoff: 120
     sleep 0.5
   end
   cue :winding_everywhichway
   2.times do
     2.times do
-      sample :bd_haus, amp: 3
+      sample :bd_haus, amp: 4, cutoff: 120
       sleep 0.25
     end
     sample :ambi_lunar_land
@@ -41,7 +40,7 @@
 end
 
 define :drums do |level, b_level=1, rand_cf=false|
-  synth :fm, note: :e2, release: 0.1, amp: b_level * 2.5
+  synth :fm, note: :e2, release: 0.1, amp: b_level * 3, cutoff: 130
   co = rand_cf ? rrand(110, 130) : 130
   a  = rand_cf ? rrand(0.3, 0.5) : 0.6
   n  = rand_cf ? :bnoise         : :noise
@@ -106,8 +105,9 @@
 at [7, 12], [:crash, :within_oceans] do |m|
   cue m
 end
+
 uncomment do
-  use_random_seed 0
+  use_random_seed 1000
   with_bpm 45 do
     with_fx :reverb do
       with_fx(:echo, delay: 0.5, decay: 4) do
@@ -118,6 +118,7 @@
           ocean 1, 0.25
         end
         sleep 10
+        use_random_seed 1200
         echoes(5, [:b1, :b2, :e1, :e2, :b3, :e3])
         cue :a_distant_object
         echoes(5, [:b1, :e1, :e2, :e3])
@@ -149,14 +150,12 @@
 in_thread(name: :bassdrums) do
   use_random_seed 0
   sleep 22
-  loop do
-    3.times do
-      bd
-    end
-    sleep 28
-    loop do
-      bd
-    end
+  3.times do
+    bd
+  end
+  sleep 28
+  live_loop :bd do
+    bd
   end
 end
 
@@ -200,7 +199,7 @@
       drums 2
     end
 
-    loop do
+    live_loop :drums do
       8.times do |i|
         drums 1
       end
@@ -230,6 +229,7 @@
   puts "Reality A"
   sleep 12
   use_synth_defaults phase: 0.5, res: 0.5, cutoff: 80, release: 3.3, wave: 1
+
   2.times do
     [80, 90, 100, 110].each do |cf|
       use_merged_synth_defaults cutoff: cf
@@ -240,7 +240,7 @@
     end
     4.times do |t|
       binary_celebration(6, 0.5)
-      synth :zawa, note: :e2, phase: 0.25, res: rrand(0.9, 0.99), cutoff: [100, 105, 110, 115][t]
+      synth :zawa, note: :e2, phase: 0.25, res: rrand(0.8, 0.9), cutoff: [100, 105, 110, 115][t]
       sleep 3
     end
   end

etc/examples/magician/dark_neon.rb etc/examples/incubation/dark_neon.rbetc/examples/magician/dark_neon.rb renamed to etc/examples/incubation/dark_neon.rb

@@ -2,7 +2,7 @@
 
 live_loop :idm_bb do
   n = [1,2,4,8,16].choose
-  sample :drum_heavy_kick
+  sample :drum_heavy_kick, amp: 2
   sample :ambi_drone, rate: [0.25, 0.5, 0.125, 1].choose, amp: 0.25 if one_in(8)
   sample :ambi_lunar_land, rate: [0.5, 0.125, 1, -1, -0.5].choose, amp: 0.25 if one_in(8)
   sample :loop_amen, attack: 0, release: 0.05, start: 1 - (1.0 / n), rate: [1,1,1,1,1,1,-1].choose

etc/examples/magician/idm_breakbeat.rb

@@ -21,11 +21,12 @@
 live_loop :synths, delay: 6 do
   puts "how does it feel?"
   use_synth :mod_saw
-  use_synth_defaults amp: 0.5, attack: 0, sustain: 1, release: 0.25, cutoff: 90, mod_range: 12, mod_phase: 0.5, mod_invert_wave: 1
+  use_synth_defaults amp: 0.5, attack: 0, sustain: 1, release: 0.25, mod_range: 12, mod_phase: 0.5, mod_invert_wave: 1
   notes = (ring :F, :C, :D, :D, :G, :C, :D, :D)
   notes.each do |n|
-    play note(n, octave: 1)
-    play note(n, octave: 2)
+    tick
+    play note(n, octave: 1), cutoff: (line 90, 130, steps: 16).look
+    play note(n, octave: 2), cutoff: (line 90, 130, steps: 32).look
     sleep 1
   end
 end

etc/examples/sorcerer/monday_blues.rb

@@ -8,10 +8,10 @@
 live_loop :foo do
   with_fx :reverb, kill_delay: 0.2, room: 0.3 do
     4.times do
-      use_random_seed 6667
+      use_random_seed 4000
       8.times do
         sleep 0.25
-        play chord(:e3, :m7).choose, release: 0.1, pan: rrand(-1, 1, res: 0.9), amp: 0.8
+        play chord(:e3, :m7).choose, release: 0.1, pan: rrand(-1, 1, res: 0.9), amp: 1
       end
     end
   end

etc/examples/wizard/blimp_zones.rb

@@ -2,42 +2,40 @@
 
 load_samples [:drum_heavy_kick, :elec_plip, :elec_blip]
 use_bpm 100
+use_random_seed 100
 
 with_fx :reverb, mix: 0.6, room: 0.8 do
-  in_thread do
-    with_fx :echo, room: 0.8, decay: 8, phase: 1, mix: 0.4 do
-      loop do
-
-        n = [:e2, :e2, :a3].choose
-
-        with_synth :dsaw do
-          with_transpose -12 do
-            in_thread do
-              2.times do
-                play n, attack: 0.6, release: 0.8, detune: rrand(0, 0.1), cutoff: rrand(80, 120)
-                sleep 3
-              end
+  with_fx :echo, room: 0.8, decay: 8, phase: 1, mix: 0.4 do
+    live_loop :blip do
+      n = [:e2, :e2, :a3].choose
+
+      with_synth :dsaw do
+        with_transpose -12 do
+          in_thread do
+            2.times do
+              play n, attack: 0.6, release: 0.8, detune: rrand(0, 0.1), cutoff: rrand(80, 120)
+              sleep 3
             end
           end
         end
+      end
 
-        sleep 4
-
-        with_synth :tri do
-          play chord(n, :m7), amp: 0.6, release: 0.8
-        end
+      sleep 4
 
-        sleep 2
+      with_synth :tri do
+        play chord(n, :m7), amp: 5, release: 0.8
       end
+
+      sleep 2
     end
   end
+end
 
 
-  with_fx :echo, room: 0.8, decay: 8, phase: 0.25, mix: 0.4 do
-    loop do
-      sample :drum_heavy_kick, amp: 0.5
-      sample :elec_plip, rate: [0.5, 2, 1, 4].choose * [1, 2, 3, 10].choose, amp: 0.6
-      sleep 2
-    end
+with_fx :echo, room: 0.8, decay: 8, phase: 0.25, mix: 0.4 do
+  live_loop :rhythm do
+    sample :drum_heavy_kick, amp: 0.5
+    sample :elec_plip, rate: [0.5, 2, 1, 4].choose * [1, 2, 3, 10].choose, amp: 0.6
+    sleep 2
   end
 end

etc/examples/wizard/blip_rhythm.rb

@@ -6,16 +6,13 @@
 sleep 1
 
 live_loop :travelling do
-  with_fx :echo, phase: 0.125, mix: 0.4  do
-    use_synth :beep
-    notes = scale(:e3, :minor_pentatonic, num_octaves: 1)
-    4.times do
-      use_random_seed 67
-      16.times do |idx|
-        sleep 0.25
-        play notes.choose, pulse_width: 0.2, attack: 0, release: 0.1, pan: (range -1, 1, step: 0.125)[idx], amp: rrand(0.7, 1.3)
-      end
-    end
+  use_synth :beep
+  notes = scale(:e3, :minor_pentatonic, num_octaves: 1)
+  use_random_seed 679
+  tick_reset_all
+  with_fx :echo, phase: 0.125, mix: 0.4, reps: 16 do
+    sleep 0.25
+    play notes.choose, attack: 0, release: 0.1, pan: (range -1, 1, step: 0.125).tick, amp: rrand(2, 2.5)
   end
 end
 
@@ -28,16 +25,14 @@
 end
 
 live_loop :shuff, auto_cue: false do
-  with_fx :hpf, cutoff: 10 do
-    8.times do
-      tick
-      sleep 0.25
-      sample :bd_tek, amp: factor?(look, 8) ? 6 : 4
-      sleep 0.25
-      use_synth :tb303
-      use_synth_defaults cutoff_attack: 1, cutoff_release: 0, env_curve: 2
-      play (knit :e2, 24, :c2, 8).look, release: 1.5, cutoff: (range 70, 90).look, depth: 10 , amp: 2 if factor?(look, 2)
-      sample :sn_dub, rate: -1, sustain: 0, release: (knit 0.05, 3, 0.5, 1).look
-    end
+  with_fx :hpf, cutoff: 10, reps: 8 do
+    tick
+    sleep 0.25
+    sample :bd_tek, amp: factor?(look, 8) ? 6 : 4
+    sleep 0.25
+    use_synth :tb303
+    use_synth_defaults cutoff_attack: 1, cutoff_release: 0, env_curve: 2
+    play (knit :e2, 24, :c2, 8).look, release: 1.5, cutoff: (range 70, 90).look, depth: 10 , amp: 2 if factor?(look, 2)
+    sample :sn_dub, rate: -1, sustain: 0, release: (knit 0.05, 3, 0.5, 1).look
   end
 end

etc/examples/wizard/shufflit.rb

@@ -12,10 +12,10 @@
 live_loop :lands, auto_cue: false do
   with_fx :reverb, room: 1, reps: 4 do
     use_synth :dsaw
-    use_random_seed 66679
-    ns = (scale :e2, :minor_pentatonic, num_octaves: 3)
+    use_random_seed 310003
+    ns = (scale :e2, :minor_pentatonic, num_octaves: 4).take(4)
     16.times do
-      play ns.choose, detune: 12, release: 0.1, amp: 2, amp: rand + 0.5, cutoff: rrand(70, 120)
+      play ns.choose, detune: 12, release: 0.1, amp: 2, amp: rand + 0.5, cutoff: rrand(70, 120), amp: 2
       sleep 0.125
     end
   end
@@ -27,7 +27,13 @@
   sleep 7.75
 end
 
-live_loop :tijd, auto_cue: false do
-  sample :bd_haus, amp: 2.5
+live_loop :tijd, auto_cue: true do
+  sample :bd_haus, amp: 2.5, cutoff: 100
   sleep 0.5
 end
+
+live_loop :ind do
+  #  sync :tijd
+  sample :loop_industrial, beat_stretch: 1
+  sleep 1
+end