diff --git a/live/techno/funk/Noise.tidal b/live/techno/funk/Noise.tidal index 63771c8..c99b089 100644 --- a/live/techno/funk/Noise.tidal +++ b/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) - $ s "space:3" - # speed 0.25 - # gain 0.35 + ) + -- bourrasque occassionnelle + $ rarely (# gain 0.25) + $ jux (rev . segment 2) + $ s "space:3" + # 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) diff --git a/live/techno/funk/grace.tidal b/live/techno/funk/grace.tidal index 3b7faca..c600977 100644 --- a/live/techno/funk/grace.tidal +++ b/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 " # "[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 diff --git a/live/techno/funk/mad_fonk.tidal b/live/techno/funk/mad_fonk.tidal index 4610b1f..df23ab1 100644 --- a/live/techno/funk/mad_fonk.tidal +++ b/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 " # "[,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 ) diff --git a/live/techno/funk/pray.tidal b/live/techno/funk/pray.tidal index 685e754..13a6a0f 100644 --- a/live/techno/funk/pray.tidal +++ b/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 [