FFF: double gain

live/techno/funk/FFF/Noise.tidal

@@ -6,7 +6,7 @@ module Funk where
     $ stut' 2 "h" ((|* gain 0.9) . (|+ note (slow 4 "<[2|4] [0 -2]>")))
     $ "coins"
     # octave 2 -- 4=creepy
-    # gain (slow 16 $ range 0.25 0.4 saw)
+    # gain (slow 16 $ range 0.5 0.8 saw)
     # pan perlin
     # gain 0.4
     )
@@ -14,19 +14,19 @@ module Funk where
     $ slow 4
     $ jux rev $ "insect(<1 3 4 5>,8)"
     # n (slow 3 $ "<0 1 2 3>")
-    # gain (slow 2 $ range 0.3 0.45 perlin)
+    # gain (slow 2 $ range 0.6 0.9 perlin)
     # pan 0.8
     )
     $ 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.2 perlin)
+    # gain (slow 33 $ range 0.3 0.4 perlin)
     # speed (range 0.125 0.95 perlin)
     # pan (range 0.4 0.6 perlin)
     )
     -- bourrasque occassionnelle
-    $ rarely (# gain 0.25)
+    $ rarely (# gain 0.5)
     $ jux (rev . segment 2)
     $ s "space:3"
     # speed (slow 2 $ range 0.15 0.5 perlin)

live/techno/funk/FFF/mad_fonk.tidal

@@ -8,12 +8,12 @@ resetCycles
 
 do
   solo 1 -- Kick
-  unsolo 2 -- Snare roll/rush
+  solo 2 -- Snare roll/rush
   solo 3 -- Drumroll
   unsolo 4 -- Bassline
-  solo 5 -- Guitare intro/pompe
+  unsolo 5 -- Guitare intro/pompe
   solo 6 -- Epiano groovy
-  unsolo 7 -- Claps from grace
+  solo 7 -- Claps from grace
   let bpm = 80 -- Que tu crois!
   setcps (bpm/60/4)
   solo 10 -- NOISES
@@ -21,8 +21,8 @@ do
   d1
     $ every' 8 7 (# lpf 200)
     -- region Paues Hip-hop
-    $ whenmod 8 6 (juxBy 0.5 rev)
-    $ "k . k(<3 <5 4>>,8)" -- Le simple
+    -- $ whenmod 8 6 (juxBy 0.5 rev)
+    -- $ "k . k(<3 <5 4>>,8)" -- Le simple
     -- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité
     -- region hardkick
     -- $ whenmod 32 16 (
@@ -36,24 +36,25 @@ do
     -- region INTRO/Run
     -- $ slow 2 -- intro
     -- $ whenmod 8 6 (# silence)
-    -- $ "k k k k k k k <k [~ k]>"
-    # "jazz"
-    # gain 0.7
+    $ "k k k k k k k <k [~ k]>"
+    # "[jazz,tech:6]"
+    # gain 1.2
     # pan 0.45
   d2
+    $ slow 2
     $ someCycles (hurry 2)
     $ juxBy 0.75 (rev . sometimes (mask "t(16,16)" . ply 2))
     -- region Manual snare rush
     $ "~ s*<1 <2 <4 <8 [8 16]>>>>"
     # "snare:3"
     # note ("<0 -1 -2 -3>")
-    # gain 0.65
+    # gain 1.2
     # pan (slow 8 $ range 0.4 0.8 sine)
   d3 -- Drumroll
     -- $ 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.85 saw)
+    # gain (slow 4 $ range 1.3 1.7 saw)
     # pan (slow 8 $ range 0.2 0.6 cosine)
   d4  -- Bassline
     $ juxBy 0.5 id
@@ -66,14 +67,14 @@ do
       -- iter (slow 2 "<2 4>") $
       -- run 8 -- Classique: jumpy groovy
       -- "0*4 2 1 3 4 5 6 7"-- HAVE FUN
-      "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>" -- Jumpy rappel
+      -- "<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
+      "<0!3 <1 2>>*8" -- COME ON CRUSH
     )
     $ "fbass:8"
     # legato 1
-    -- # crush (0.5 + "6 <5 4>") -- CRUSH THIS
-    # gain 0.5
+    # crush (0.5 + "6 <5 4>") -- CRUSH THIS
+    # gain 1.4
     # pan 0.6
   d5 -- Guitare pompe
     -- $ whenmod 64 32 ( -- TODO Renverse
@@ -94,20 +95,20 @@ do
     ]) $ n 9
     -- region INTRO-guitar
     -- $ slice 8 ( -- Intro
-    --   "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
+      -- "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
     # cut 8
     # gain (slow 64 $ range
       -- 0.7 0.9
-      0.6 0.8
+      1.2 1.4
     cosine)
     # pan 0.3
   d6 -- Epiano groovy
     -- $ 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" -- variant
@@ -119,7 +120,7 @@ do
     )
     $ s "fepiano"
     # n (slow 8 "<24 25>")
-    # gain 0.75 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37
+    # gain 0.9 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37
     # cut 6
     # pan 0.7
   d7 $ fast 2 $ s "clap"

live/techno/funk/FFF/pray.tidal

@@ -3,12 +3,12 @@
 resetCycles
 
 do
-  unsolo 1 -- Kick chaloupé
-  unsolo 2 -- Tambours de Gretsch
-  unsolo 3 -- AcceleRoll
+  solo 1 -- Kick chaloupé
+  solo 2 -- Tambours de Gretsch
+  solo 3 -- AcceleRoll
   solo 4 -- Broken piece
   solo 5 -- Fragments of Wiley
-  unsolo 7 -- Claps
+  solo 7 -- Claps
   setcps (60/60/4)
   solo 10 -- NOISE
   d10 $ funk_noise
@@ -24,9 +24,9 @@ do
     # gain 0.65
   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
@@ -57,7 +57,7 @@ do
     # n "<0!4 1!8>"
     # gain (slow 8 $ range 0.5 0.75 sine)
     # cut 5
-    |> gain 0.5 # lpf 200 # waveloss 65  -- TODO INTRO WAVELOSS/gain 65 45 25 12.5
+    -- |> gain 0.5 # lpf 200 # waveloss 65  -- TODO INTRO WAVELOSS/gain 65 45 25 12.5
   d7
     $ fast 2
     $ whenmod 32 16 (whenmod 4 3 (ply "<2 3 [2 4] [3 2]>"))