FFF: Ready for repeat

live/techno/funk/Noise.tidal

@@ -2,38 +2,40 @@ module Funk where
   funk_noise = superimpose (const -- Bris de vers spatial
     $ degradeBy (slow 4 "<0.75 0.5 0.25 0.1>")
     $ someCycles (# speed 0.5)
-    $ stut 4 0.9 "q"
+    $ stut "[4|2]" 0.9 "[q|h]"
     $ stut' 2 "h" (|+ note (slow 4 "<[2|4] [0 -2]>"))
     $ "coins"
     # octave 2 -- 4=creepy
     # gain (slow 16 $ range 0.25 0.45 saw)
     )
     $ superimpose (const -- Insectes
+    $ slow 4
     $ jux rev $ "insect(<1 3 4 5>,8)"
     # n (slow 3 $ "<0 1 2 3>")
-    # gain (slow 2 $ range 0.4 0.6 perlin)
+    # gain (slow 2 $ range 0.3 0.45 perlin)
     # pan 0.8
     )
-    -- Fond diffus cosmologique
+    $ superimpose (const -- Fond diffus cosmologique
     $ slow (slow 4 "<2 4 8>")
     $ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
     $ s "cosmicg:0"
-    # gain (slow 33 $ range 0.15 0.3 perlin)
+    # gain (slow 33 $ range 0.15 0.25 perlin)
     # speed (range 0.125 0.95 perlin)
     # pan (range 0.4 0.6 perlin)
-
-    d8 -- FIXME bourrasque occassionnelle?
-      $ jux rev
-      $ every 8 (# gain 0.7)
+    )
+    -- bourrasque occassionnelle
+    $ rarely (# gain 0.25)
+    $ jux (rev . segment 2)
     $ s "space:3"
-      # speed 0.25
-      # gain 0.35
+    # speed (slow 2 $ range 0.15 0.5 perlin)
+    # pan (slow 4 $ range 0.45 0.55 perlin)
+    # gain 0
 
 
 
 d10
 -- $ (* gain 0.75)
-  $ funk_noise
--- FIXME effects to add to noise?
-  # hpf (slow 6 $ range 0 1500 sine)
-  # lpf (slow 100 $ range 1500 20000 sine)
+$ funk_noise
+-- effects to add to noise?
+-- # hpf (slow 6 $ range 0 1500 sine)
+-- # lpf (slow 100 $ range 1500 20000 sine)

live/techno/funk/grace.tidal

@@ -8,7 +8,7 @@ do
   unsolo 1 -- Kick regulier degradé
   unsolo 2 -- Cymbales gravitantes
   unsolo 3 -- Drumroll
-  solo 4 -- Mad Bassline discrete
+  unsolo 4 -- Mad Bassline discrete
   solo 5 -- Lead choir
   solo 7 -- Claps
   setcps (120/60/4)
@@ -16,8 +16,8 @@ do
   d10 $ funk_noise
   d1 -- Kick regulier degradé
     $ whenmod 16 12 (mask "t(1,4)") -- Respire
-    $ whenmod 16 8 ( -- Double degradé
-        sometimesBy "<0!2 0.25 [0.25 0.5]>" (fast 2 . degradeBy 0.2))
+    -- $ whenmod 16 8 ( -- Double degradé
+        -- sometimesBy "<0!2 0.25 [0.25 0.5]>" (fast 2 . degradeBy 0.2))
     $ whenmod 8 6 (# lpf 200)
     $ "k k k <k k*[1|2|3|4]>"
     # "[kick:5,house]"
@@ -39,9 +39,9 @@ do
     $ loopAt 2
     $ slice 8 (
       stack [
-      "0 1 2 3 4 5 6 7*<1 2 4 1>", -- TODO ','' then stack
-      "0(3,8)",
-      "0 0 0 0"
+      "0 1 2 3 4 5 6 7*<1 2 4 1>" -- TODO ','' then stack
+      -- "0(3,8)",
+      -- "0 0 0 0"
       ]
       )
     $ s "fbass:8"
@@ -54,7 +54,6 @@ do
       whenmod 16 8 (|> "0*8") $
       "<2!4 <1 0>!4>"
     )
-    -- $ chop "<2!16 4!4 8!8>" FIXME Better chop?
     $ every' 4 3 (superimpose (# n 1) . (# begin 0))
     $ "pray"
     # cut 3

live/techno/funk/mad_fonk.tidal

@@ -32,7 +32,7 @@ do
     --     )
     -- )
     -- region INTRO/Run
-    -- $ slow 2 -- intro
+    $ slow 2 -- intro
     -- $ whenmod 8 6 (# silence)
     $ "k k k k k k k <k [~ k] k*2>"
     # "[<reverbkick!3 ~>,kick:5]"
@@ -44,13 +44,13 @@ do
     -- region Manual snare rush
     -- $ "~ s*4"
     -- $ "~ s*<1!4 2!4 4!2 8 4!4 16 2!3 [4 8] [16 32]>" -- FIXME Rework
-    $ "~ s*<1 2 4 8 4 2 1 4 8 8 4 8 1 2 8 4>" -- FIXME Rework
+    $ "~ s*<1 2 4 8 4 2 1 4 8 8 4 8 1 2 8 4>"
     # "snare:3"
     # note ("<0 -1 -2 -3>")
     # gain 0.65
     # pan (slow 8 $ range 0.4 0.8 sine)
   d3 -- Drumroll
-    -- $ slow 8 -- OUTRO
+    $ slow 8 -- TODO IN/OUTRO
     $ fast (slow 8 "<1 [2 [2|4]] 4 [4 8]>" )
     $ ply "2 <4 8>" $ "drum:8"
     # gain (slow 4 $ range 0.65 0.95 saw)
@@ -64,39 +64,39 @@ do
     $ slice 8
     (
       -- iter (slow 4 "<1 4>")
-      -- run 8 -- Classique: jumpy groovy
-      "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>" -- Jumpy rappel
+      run 8 -- Classique: jumpy groovy
+      -- "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>" -- Jumpy rappel
       -- "<0 4 0 0*2> 4 <0 1 2 3> <0 4!2>" -- Attente
       -- "<0!3 <1 2>>*8" -- COME ON CRUSH
     )
     $ "fbass:8"
     # legato 1
-    # crush (1.5 + "6 <5 4>") -- TODO CRUSH THIS
+    -- # crush (1.5 + "6 <5 4>") -- TODO CRUSH THIS
     # gain 0.85
     # pan 0.6
   d5 -- Guitare pompe
-    $ whenmod 64 32 ( -- TODO Renverse
-      someCyclesBy "<0.5!16 0.9!16>" rev
-    )
-    -- region Guitare pompela
-    $ slice 8 (cat [
-      "0*4",
-      "0 1 2 3",
-      "0*4 1 3(3,8) 5",
-      "4 5 6 7",
-      "0 7 4 7",
-      "[0 4]*4",
-      "7 <7 6> <3 5> <7 4>",
-      "4*4 . 4*<8 16>",
-      "7 0 7 0",
-      "0*4"
-    ]) $ n 9
+    -- $ whenmod 64 32 ( -- TODO Renverse
+      -- someCyclesBy "<0.5!16 0.9!16>" rev
+    -- )
+    -- region Guitare pompe
+    -- $ slice 8 (cat [
+    --   "0*4",
+    --   "0 1 2 3",
+    --   "0*4 1 3(3,8) 5",
+    --   "4 5 6 7",
+    --   "0 7 4 7",
+    --   "[0 4]*4",
+    --   "7 <7 6> <3 5> <7 4>",
+    --   "4*4 . 4*<8 16>",
+    --   "7 0 7 0",
+    --   "0*4"
+    -- ]) $ n 9
     -- region INTRO-guitar
-    -- $ slice 8 ( -- Intro
-      -- "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
-    -- ) $ n 11
+    $ slice 8 ( -- Intro
+      "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
+    ) $ n 11
     # "fguitar"
-    # crush 5 -- TODO CRUSH THIS! 12 - 4 - 5
+    -- # crush 5 -- TODO CRUSH THIS! 12 - 4 - 5
     # cut 8
     # gain (slow 64 $ range
       -- 0.7 0.9
@@ -104,12 +104,12 @@ do
     cosine)
     # pan 0.3
   d6 -- Epiano groovy
-    $ whenmod 32 16 (whenmod 4 2 (jux rev)) -- TODO variations once introduced
+    -- $ whenmod 32 16 (whenmod 4 2 (jux rev)) -- TODO variations once introduced
     $ slow 2
-    -- $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS
+    $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS
     $ slice 8 (
-      -- "0 3 2 1 4 5 6 7*<1 2>" -- regulier
-      "0 3 2 1 0 3 <2 6> 7" -- regulier
+      "0 3 2 1 4 5 6 7*<1 2>" -- regulier
+      -- "0 3 2 1 0 3 <2 6> 7" -- variant
       -- "0 3 2 1!5" -- repeat aigu
       -- "4!5 5 6 7*<1 2>" -- repeat end
     )

live/techno/funk/pray.tidal

@@ -6,14 +6,14 @@ do
   solo 2 -- Gretsch snares
   solo 3 -- AcceleRoll
   solo 4 -- Breakbeat
-  solo 5 -- Lead choir
+  unsolo 5 -- Lead choir
   unsolo 7 -- Claps
   setcps (60/60/4)
   solo 10 -- NOISE
   d10 $ funk_noise
   d1
     -- KICK
-    $ fast "<2!6 4 2>"
+    -- $ mask "t(11,12)" . fast "<2!6 4 2>" -- Folie
     $ "k . k(<3 <5 4>>,8)" -- Le classique
     -- $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" -- L'annonce
     # "reverbkick"
@@ -21,9 +21,9 @@ do
     # gain 0.75
   d4 -- BREAKBEAT
     $ slice 8 (
-      -- "0 4" -- Intro
+      "0 4" -- Intro
       -- "0 2 4 <4 <2 6>>" -- Intro
-      "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>"  -- Fulltime!
+      -- "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>"  -- Fulltime!
       -- "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)" -- Laggy
       -- "4*2 5 6(3,8) <[~ 7] 7?>" -- Laggy end
       -- (fast "<4 8>" $ run 2)  -- Repeat! TODO Transition grace
@@ -47,21 +47,29 @@ do
     # note ("<-2 -4 -2 0>")
     # gain 0.75
   d5 -- Lead choir
-    $ "pray/4" -- TODO INTRO 2 then 4
-    # n "<0!4 1!8>"
+    $ "pray" -- TODO INTRO then /4
+    -- # n "<0!4 1!8>"
     # gain (slow 8 $ range 0.5 0.9 sine)
     # cut 5
-    # hpf 100
-    -- |* gain 0.9 # lpf 15000 # waveloss 40 # pan "<0.75 0.25>"  -- TODO INTRO WAVELOSS 65 50 40
+    -- |> gain 0.65 # lpf 2000 # waveloss 12.5  -- TODO INTRO WAVELOSS 65 50 40
   d7
     $ fast 2
     $ whenmod 32 16 (whenmod 4 3 (ply "<2 3 [2 4] [3 2]>"))
     $ whenmod 16 8 (every' 4 0 (off "-0.125" id))
     $ s "clap"
-    # gain 0.85
+    # gain 0.75
     # djf (slow 32 $ range 0.5 0.85 sine)
     # room 0.5 # size 0.4 # dry 0.95
 
+    resetCycles
+
+
+
+
+
+
+
+-- SANDBOX
 
   d6 -- Transipiano
     $ slice 4 (cat [