laser_roll: rework

live/techno/laser_roll.tidal

+-- Laser roll: techno
+
 setcps 1
 
-d1 -- lightly varying kick
-$ jux id
-$ whenmod 16 10 (every' 2 1 (0.125 ~>))
-$ every 8 (0.25 <~)
-$ every 4 (0.5 ~>)
-$ s "kick:5"
+do
+  let melody = "<3!4 0!4 3 2 0 3>"
+  d1 -- lightly varying kick
+    $ sometimesBy "0 <0 0.25>" (off 0.25 id)
+    $ s "k*2"
+    # s "jazz"
+    # gain 0.8
+  d2 -- laser rolled!
+    $ sometimes (stut 3 0.9 (1/50))
+    $ s "bd" >| speed (segment 50 $
+      range -- Randomized lines :mad:
+      (slow 4 $ "<5 6 7 8>")
+      melody
+      saw
+      )
+    |+ note (scale "aeolian" melody)
+    # gain 0.2
+  d4 -- drumroll
+    $ sometimesBy "0.9 0 0.5 0.25" (fast 2)
+    $ sometimesBy "0.25 0.5" (fast 2)
+    $ always (fast 2)
+    $ s "dr*2"
+    # s "dr"
+    # note "0 0 0 [0 1]"
+    # gain 0.7
+    # pan "<0.4,0.05 .. 0.7>"
+  d5
+    $ chunk 4 (juxBy 0.1 rev)
+    $ n "<0 0([3|5],8)>"
+    # note (scale "aeolian" (
+        melody
+      ) - 24
+    )
+    # s "supersaw"
+    # voice (slow 64 $ range 0.01 0.25 tri)
+    # gain 0.6
+    # pan 0.2
+    # crush (slow 64 $ range 6 16 tri)
+  d7 -- Space louder
+    $ stut 3 0.75 0.25
+    $ slow 8
+    $ s "~ space:3"
+    # legato 4
+    # speed (rand / 2)
+    # gain 0.8
+  d8 -- Claps
+    $ sometimes (stut 3 0.9 (1/16))
+    $ s "~ ~ ~ <~ c>"
+    # s "clap"
+    # release (slow 64 $ range saw 0.05 0.9)
+  d9
+    $ slow 4
+    $ every 2 (swing 2)
+    $ arp "down&up"
+    $ note (scale "aeolian" (
+      melody + (slow 16 $ "<c'maj c'min>")
+      ) - 12
+    )
+    # s "superfork"
+    # sustain 2
+    # accelerate 0.025
 
-d2 -- lead laser!
-$ jux rev $ iter 4 $ chop 4
-$ whenmod 16 10 (someCyclesBy 0.2 (fast 2))
-$ whenmod 128 64 (someCycles (superimpose (# note (scale "major" "[-21,14,3]"))
-))
-$ whenmod 64 60 ((# gain 0.7) . (stut 4 0.9 "<0.25,0.05 .. 0.50>"))
-$ whenmod 32 30 ((# gain 0.7) . (stut 4 0.9 0.1))
-$ whenmod 32 28 (# silence)
-$ whenmod 16 15 (# gain (tri * 1.2))
-$ whenmod 16 14 (# silence)
-$ s "bd" >| speed (segment 50 $ range 40 5 (saw))
-|+ note (scale "major" "<14 7 5 3 1 0 7 0 -7 14>")
-# pan 0.8
-# gain 0.8
 
 d3 -- simple claps
 $ whenmod 64 32 (# gain "<0.64,0.01 .. 0.96>")
@@ -30,10 +73,3 @@ $ every 8 (off 0.25 id)
 $ every 4 (off 0.25 id)
 $ (0.5 ~>)
 $ s "jazz:4"
-
-d4 -- drumroll
-$ whenmod 16 10 (degradeBy "<0.8,0.1 .. 0> <0,0.1 .. 0.6>")
-$ whenmod 4 3 (degradeBy "0 0.5 0.5 0.9")
-$ s "dr*8"
-# n 0
-# pan "<0.4,0.05 .. 0.7>"

notes.md

@@ -255,11 +255,3 @@
 --- 7
 --- 8
 --- 9
-
--- Piano notes:
-
-
--- Gammes
--- "0 2 4 5 7 9 11 12" Pentatonique
--- "0 2 3 4 5 6 7 9 10 11 12"  -- Blues
--- Playground