From 069ff109bf5a8d2dd56a3d11ffa134d67465079b Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Fri, 31 Jul 2020 15:56:13 +0200 Subject: [PATCH] FFF: double gain --- live/techno/funk/FFF/Noise.tidal | 8 ++++---- live/techno/funk/FFF/mad_fonk.tidal | 37 +++++++++++++++++++------------------ live/techno/funk/FFF/pray.tidal | 14 +++++++------- 3 files changed, 30 insertions(+), 29 deletions(-) diff --git a/live/techno/funk/FFF/Noise.tidal b/live/techno/funk/FFF/Noise.tidal index 530ac32..a2b98f1 100644 --- a/live/techno/funk/FFF/Noise.tidal +++ b/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) diff --git a/live/techno/funk/FFF/mad_fonk.tidal b/live/techno/funk/FFF/mad_fonk.tidal index d6de70d..a141e1b 100644 --- a/live/techno/funk/FFF/mad_fonk.tidal +++ b/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 " - # "jazz" - # gain 0.7 + $ "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" diff --git a/live/techno/funk/FFF/pray.tidal b/live/techno/funk/FFF/pray.tidal index cef7b82..a396d1f 100644 --- a/live/techno/funk/FFF/pray.tidal +++ b/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]>")) -- libgit2 0.27.0