From 62de6c14da7d8ba78b2b937323e9c6d9ac249e3e Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Wed, 15 Jul 2020 17:51:45 +0200 Subject: [PATCH] FFF own folder, more funk, accel release --- live/hip/instru/guitar_roll.tidal | 103 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/accel.tidal | 107 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++--------------------------------------------------- live/techno/funk/FFF/Noise.tidal | 41 +++++++++++++++++++++++++++++++++++++++++ live/techno/funk/FFF/funk_n_bass.tidal | 99 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/funk/FFF/grace.tidal | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/funk/FFF/mad_fonk.tidal | 128 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/funk/FFF/pray.tidal | 97 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/funk/FFF/readme.md | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/funk/Noise.tidal | 41 ----------------------------------------- live/techno/funk/ant.tidal | 112 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/funk/funk_n_bass.tidal | 99 --------------------------------------------------------------------------------------------------- live/techno/funk/grace.tidal | 72 ------------------------------------------------------------------------ live/techno/funk/layered_breaks.tidal | 10 +++++----- live/techno/funk/mad_fonk.tidal | 126 ------------------------------------------------------------------------------------------------------------------------------ live/techno/funk/pray.tidal | 97 ------------------------------------------------------------------------------------------------- live/techno/funk/pure.tidal | 108 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/funk/readme.md | 74 -------------------------------------------------------------------------- notes.md | 22 ++++++++++++++++++++-- output/Accel.jpg | Bin 0 -> 121525 bytes output/Accel_Speedmeter.jpg | Bin 0 -> 190001 bytes output/Accel_Speedmeter2x.png | 1 + output/Accel_Velocity.jpg | Bin 0 -> 303556 bytes output/Acceleration.png | Bin 0 -> 22431 bytes output/Courant.jpeg | Bin 0 -> 113157 bytes output/Courant_Alternatif.jpg | Bin 0 -> 166013 bytes output/Courant_Floral.jpg | Bin 0 -> 227436 bytes 26 files changed, 916 insertions(+), 567 deletions(-) create mode 100644 live/hip/instru/guitar_roll.tidal create mode 100644 live/techno/funk/FFF/Noise.tidal create mode 100644 live/techno/funk/FFF/funk_n_bass.tidal create mode 100644 live/techno/funk/FFF/grace.tidal create mode 100644 live/techno/funk/FFF/mad_fonk.tidal create mode 100644 live/techno/funk/FFF/pray.tidal create mode 100644 live/techno/funk/FFF/readme.md delete mode 100644 live/techno/funk/Noise.tidal create mode 100644 live/techno/funk/ant.tidal delete mode 100644 live/techno/funk/funk_n_bass.tidal delete mode 100644 live/techno/funk/grace.tidal delete mode 100644 live/techno/funk/mad_fonk.tidal delete mode 100644 live/techno/funk/pray.tidal create mode 100644 live/techno/funk/pure.tidal delete mode 100644 live/techno/funk/readme.md create mode 100644 output/Accel.jpg create mode 100644 output/Accel_Speedmeter.jpg create mode 100644 output/Accel_Speedmeter2x.png create mode 100644 output/Accel_Velocity.jpg create mode 100644 output/Acceleration.png create mode 100644 output/Courant.jpeg create mode 100644 output/Courant_Alternatif.jpg create mode 100644 output/Courant_Floral.jpg diff --git a/live/hip/instru/guitar_roll.tidal b/live/hip/instru/guitar_roll.tidal new file mode 100644 index 0000000..a59b467 --- /dev/null +++ b/live/hip/instru/guitar_roll.tidal @@ -0,0 +1,103 @@ +resetCycles + +do + setcps (80/60/4) + unsolo 1 -- Break + BEAT + unsolo 2 -- Contresnares + unsolo 3 -- Drumroll + unsolo 4 -- Guitare aigue background + unsolo 5 -- Guitare med foreground + solo 6 -- Piano conclusif + unsolo 8 -- Nappes + d1 -- Beat sautillant 3-5 + $ superimpose (const -- BREAKBEAT + $ whenmod 64 48 -- Part et revient + (|* gain "<0.9!4 0.8!4 0.7!4 0.5!2 0.8 1.1>") + $ whenmod 8 6 (mask "t(<3 1>,8,<0 5>)") + $ rarely (ply "1 [2|4]") + $ whenmod 16 12 (# lpf "<2000 1500 1000 500>") + $ loopAt 2 + $ slice 4 ("0 1 <1!3 2> <1!4 3!4>") + $ "fbonus" + # n ("<0!12 1!4>") + # gain (slow 4 $ range 0.5 1.5 perlin) + # cut 8 + ) + $ whenmod 64 48 (mask "") + $ whenmod 16 12 (# lpf "<1000 750 500 250>") + $ s ("k . k(<3!3 5 3!3 5 3!3 [5 3] 7 6 5 [3 5]>,8)") + # "[jazz,reverbkick]" + # lpf 2500 # release 0.5 + # gain 1.2 + # pan 0.45 + d2 -- Contresnares + $ whenmod 64 32 (mask "") + $ fast "<2!3 4 2!3 4 2!3 4 [4 8] 8 [8 4] 8>" + $ superimpose (# "sn:4") + $ s "~ s" + # "snare" + # n "<2 [2|3] 2 [2|3|3]>" + # gain 0.9 + # pan 0.55 + d3 + $ whenmod 32 28 (degradeBy ("0 1!15" * (1))) + $ juxBy 0.75 (0.125 ~>) + $ fast ( + "<1!8 2!6 4 [8 4]>" -- Accelera 16 + * "1 <1 2 1 [2 1]>" + * "<4!28 2!3 [1 4]>" -- base 4 temps, ralentissement 32 + ) $ s "d" # "drum:8" + # gain 1 + # pan 0.4 + d4 -- Guitare aigue background + $ mask "" -- Progressive guitar blending + $ slice 8 (cat [ + "0 1 2 3", "0 1 2 3", "0 1 2 3*2", + "5 4 6 7", + "5 ~ 6 7", "4 5 6 7", "4 5 6 7", + "7 0 6 7" + ]) + $ loopAt 2 + $ "fguitar:8" + # hpf (slow 24 $ range 0 6000 saw) + # cut 4 + # pan 0.7 + # gain 0.8 + d5 -- Guitare grave background + $ mask "" -- Progressive guitar blending + $ slice 4 ( + whenmod 32 16 (|>| "<0!4 1!4 2!4 3!4>(<3 4 6 7>,8)") $ + whenmod 16 8 (|> "<0 [0 1]> <1 [1 0]>") + "0 <<1 [1 0]> 1*2>" + ) + $ loopAt 2 + $ "fguitar:11" + # djf (slow 32 $ range 0.4 0.8 isaw) + # cut 5 + # pan 0.35 + # gain 1.2 + d8 -- Nappes synthetiques + $ jux id + $ stut 2 "q" 0.95 + $ off "" ( + |+ note (scale "major" "<4!6 -4!2>") + ) + $ note ( + "<0!3 -2 0!2 -2 0 12!3 10 12!3 [12 10 8 6]>" + -- "[12 10 8 <6 5>]" -- Nanana + + "-12") + # s "moog:2" + # gain (0.5 * "<1!8 0.95 0.9 0.85 0.8>") + # legato "<0.8!7 0.4>" -- Nappage parfois parcimonieux + d6 -- Piano conclusif + $ whenmod 64 48 (mask "t(5,8)" . ply 4) + $ whenmod 64 32 (ply "<2!3 4>") + $ loopAt 2 + $ slice 4 (cat [ + "0 1 2 3", "0 1 2 3", "0 1 2 0", "0 1 2 3", + "0 1", "0 . 1 2", "0 1 0 3", "1 1 3 3" + ]) + $ "fpiano:10" + # gain (slow 128 $ range 0.4 1.2 saw) -- x2 64/128 + # cut 6 + # pan 0.6 diff --git a/live/techno/accel.tidal b/live/techno/accel.tidal index 71bd52f..14679cb 100644 --- a/live/techno/accel.tidal +++ b/live/techno/accel.tidal @@ -6,18 +6,18 @@ resetCycles -- region Part 1: setup accel vivant do solo 1 -- kick - solo 2 -- snare - solo 3 -- drumroll + unsolo 2 -- snare + unsolo 3 -- drumroll solo 4 -- bass - unsolo 5 -- siren - unsolo 6 -- clap - unsolo 7 -- synth + solo 5 -- siren + solo 6 -- clap + solo 7 -- synth -- let mKick = "<1!32 0!15 [0 1] 1!64 0.9!4 0.8!4 0.7!4 0.6!4>" let gKick = 0.75 -- /128 On off semi-onon fadeout let gSnare = 0.65 - let gHats = 0.85 + let gHats = 0.7 let gDrums = 0.75 - let gBass = 0.65 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>" + let gBass = 0.65 * "<1!24 <[1 0]*4 [0 1]*4>!8 1!4>" let gSiren = 0.85 * "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>" let gSynth = 0.65 let gClap = 0.9 @@ -80,7 +80,7 @@ do ) - 36) # s "supersiren" # sustain 4 - # gain 0 + # gain gSiren d6 -- claps graduels sur 64 -- $ whenmod 64 48 (>| n "~ 0*2 ~ 0*2") -- $ whenmod 64 40 (>| n "~ 0?*2 ~ 0?*2") @@ -106,7 +106,7 @@ do # gain gSynth once $ s "abstract:1" # cut 1 # gain 0.6 - -- endregion + -- endregion -- region Part 2: Dry Melancholia do @@ -115,14 +115,15 @@ do solo 3 -- drumroll solo 4 -- bass solo 5 -- siren - solo 6 -- clap - solo 7 -- synth - let gKick = 0.7 -- /128 On off semi-onon fadeout + unsolo 6 -- clap + unsolo 7 -- No synth + let gKick = 0.75 -- /128 On off semi-onon fadeout let gSnare = 0.65 - let gHats = 0.75 + let gHats = 0.7 + let gDrums = 0.75 let gBass = 0.6 - let gSiren = 0.6 - let gSynth = 0.9 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" + let gSiren = 0.65 + let gSynth = 0.65 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" let gClap = 0.8 let melody = "<0 0 0 0 2 2 4 -2>" setcps 0.5 -- TECHNOOO @@ -143,7 +144,7 @@ do $ s "dr*4" # s "ifdrums:1" # pan 0.4 - # gain 0.9 + # gain gDrums # room (slow 16 $ range 0 0.15 saw) d4 -- Basse $ superimpose ( -- Echo octave @@ -171,24 +172,24 @@ do # sustain 4 # gain gSiren # cut 5 - -- endregion -- region Part 3: Folie do - solo 1 -- kick + unsolo 1 -- kick unsolo 2 -- snare unsolo 3 -- drumroll solo 4 -- bass unsolo 5 -- siren - solo 6 -- clap - solo 7 -- synth - let gKick = 0.6 -- /128 On off semi-onon fadeout + unsolo 6 -- clap + unsolo 7 -- synth + let gKick = 0.75 -- /128 On off semi-onon fadeout let gSnare = 0.65 let gHats = 0.75 + let gDrums = 0.75 let gBass = 0.6 let gSiren = 0.2 * "<0.7!32 0.6!32 0.5!32 0.4!32>" - let gSynth = 1.3 -- * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" + let gSynth = 0.6 let gClap = 0.8 let melody = "<0 0 0 0 2 2 4 -2>" setcps 0.5 -- TECHNOOO @@ -209,7 +210,7 @@ do $ s "dr*4" # s "ifdrums:1" # pan 0.4 - # gain 0.9 + # gain gDrums # room (slow 16 $ range 0 0.15 saw) d4 -- Basse $ superimpose ( -- Echo octave @@ -236,38 +237,36 @@ do # sustain 4 # gain gSiren # cut 5 - -d7 -- synthe echos electrique -$ superimpose ( - (# s "supercomparator") . - (# voice (slow 64 $ sine * 8)) . (|- note 12) -) -$ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs! -$ n "0*12" -# voice "0.1" -# s "supersquare" -# note (scale "aeolian" -"<0 0 0 0 2 2 4 -2>" + "[0 <1!3 3>]") -# gain gSynth + d7 -- synthe echos electrique + $ superimpose ( + (# s "supercomparator") . + (# voice (slow 64 $ sine * 8)) . (|- note 12) + ) + $ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs! + $ n "0*12" + # voice "0.1" + # s "supersquare" + # note (scale "aeolian" + "<0 0 0 0 2 2 4 -2>" + "[0 <1!3 3>]") + # gain gSynth -- endregion -- region Part 4: Résolution do -unsolo 1 -- kick -unsolo 2 -- snare +solo 1 -- kick +solo 2 -- snare solo 3 -- drumroll -solo 4 -- bass -unsolo 5 -- choeur -- FIXME +unsolo 4 -- bass solo 6 -- clap solo 7 -- synth -let mKick = "<1!32 0!15 [0 1] 1!64 0.9!4 0.8!4 0.7!4 0.6!4>" -let gKick = 0.75 * mKick -- /128 On off semi-onon fadeout +-- let mKick = "<1!32 0!15 [0 1] 1!64 0.9!4 0.8!4 0.7!4 0.6!4>" +let gKick = 0.75 -- /128 On off semi-onon fadeout let gSnare = 0.6 let gHats = 0.7 let gBass = 0.7 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>" let gSiren = "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>" -let gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" +let gSynth = 0.55 let gClap = 0.8 let melody = "<0 0 0 0 2 2 4 -2>" setcps 0.5 -- TECHNOOO @@ -323,10 +322,16 @@ d7 -- synthe echos electrique $ superimpose ( (# s "supercomparator") . (# voice (slow 64 $ sine * 8)) . (|- note 12) + . (# cut 71) ) - $ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs! - $ n "0*0" - # voice "0.1" + $ whenmod 16 8 (sometimes (juxBy 0.4 ( + (|+ note 12) + . (# cut 72) + ))) -- jux eclairs! + $ n "0*16" -- TODO 16 8 4 2 + -- TODO # sustain 8 # release 4 + # voice 0.1 + # cut 7 # s "supersquare" # note (scale "aeolian" "<0 0 0 0 2 2 4 -2>" @@ -339,11 +344,11 @@ do unsolo 1 -- kick unsolo 2 -- claps unsolo 3 -- drumroll - unsolo 4 -- bass - unsolo 5 -- Choeurs - unsolo 6 -- piano - solo 7 -- synth - solo 8 -- Pistolets + solo 4 -- bass + solo 5 -- Choeurs + solo 6 -- piano + unsolo 7 -- synth + unsolo 8 -- Pistolets setcps 0.5 -- TECHNOOO d1 -- Kick $ whenmod 16 14 (# silence) -- break frequent diff --git a/live/techno/funk/FFF/Noise.tidal b/live/techno/funk/FFF/Noise.tidal new file mode 100644 index 0000000..530ac32 --- /dev/null +++ b/live/techno/funk/FFF/Noise.tidal @@ -0,0 +1,41 @@ +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|2]" 0.9 "[q|h]" + $ 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) + # pan perlin + # gain 0.4 + ) + $ 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.3 0.45 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) + # speed (range 0.125 0.95 perlin) + # pan (range 0.4 0.6 perlin) + ) + -- 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 +-- 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/FFF/funk_n_bass.tidal b/live/techno/funk/FFF/funk_n_bass.tidal new file mode 100644 index 0000000..e5f6f7d --- /dev/null +++ b/live/techno/funk/FFF/funk_n_bass.tidal @@ -0,0 +1,99 @@ +resetCycles + +do + -- let fGlob = 0.3 -- TODO: Filtre global FIXME: if defined? + let mKick = "" + let mKick = "t" + let mDrum = "" + let mRoll = "" + let mBass = "t" + let mPiano = "t f" + solo 1 -- Kick DNB/TECHNO + solo 2 -- Drums DNB-compatibles + unsolo 3 -- Drumroll masqué + unsolo 4 -- Basse électrique + unsolo 5 -- Piano FIXME Too noisy + unsolo 6 -- Comete + unsolo 8 -- Un bon sandwich + setcps (174/60/4) + d1 -- Kick + $ mask mKick + -- region TECHNOOO + -- $ fast 2 + -- $ whenmod 16 12 (slow 2) + -- $ "k k k " + -- # "[kick:5,house]" + -- region DNB + $ "k ~ ~ ~ ~ k ~ ~" + # "kick" # note "-6" + # gain 0.75 + -- # djf fGlob + d2 + $ mask mDrum + $ "~ s*<1!6 2 [4 2]> . ~ s*<1!3 2 1!2 2!2 3 2 4>" + # "snare" + # n "[11,12]" # note ( + "<0 0 -2!2 -4 -6 -7 -12>" -- snare aggrave + ) + # gain 0.7 + -- # djf fGlob + d3 -- Drumroll masqué + $ mask mRoll + $ fast "8 . <8 8 4 16>" + $ "drum:8" + # gain (slow 8 $ range 0.8 0.95 saw) + -- # djf fGlob + d4 -- Bass electrisée + $ mask mBass + $ whenmod 64 32 (slow 2) + $ off "q" (|+ note 12) + $ whenmod 32 16 rev + $ slice 8 ( + run 8 -- classique + -- (fast 2 $ run 4) -- loop begin + -- "0*2 1*2" + ) + $ "fbass:10" + # gain (slow 16 $ range 0.9 0.8 sine) + -- # crush (slow 16 $ range 9 4 sine) -- TODO Crush + # cut 4 + -- # djf fGlob + d8 -- Sandwich + $ slice 6 ( + "2*<0 <2 1>>" + ) + $ "macron:7" + # waveloss 25 + # cut 5 + # gain 0.7 + # room 0.6 + -- # djf fGlob + d5 + $ whenmod 16 8 (slow 2) + $ slice 8 ( + cat [ + run 8, + "[0,2*8]", -- attente noisée + 7 - run 8, -- rev + "" + ] + ) + $ "fpiano:12" + # pan 1 + # cut 5 + -- # djf fGlob + # gain 0.85 + d6 -- Comete + $ slice 8 "1!7 4" + $ s "methbass:3" # cut 6 + # gain 0.55 + -- # djf fGlob + + +-- region Nass n Bassline +d1 $ "jazz*2" # gain 0.8 + +d3 + $ chop 8 + $ note ("") + # s "trump" # speed (1/12) diff --git a/live/techno/funk/FFF/grace.tidal b/live/techno/funk/FFF/grace.tidal new file mode 100644 index 0000000..0cf4d68 --- /dev/null +++ b/live/techno/funk/FFF/grace.tidal @@ -0,0 +1,72 @@ +-- region Touchés par la grace: techno-gospel +-- Tags: Techno, gospel, funk +resetCycles +-- endregion + +do + unsolo 1 -- Kick regulier degradé + unsolo 2 -- Cymbales gravitantes + solo 3 -- Drumroll + unsolo 4 -- Mad Bassline discrete + solo 5 -- Lead choir + unsolo 7 -- Claps + setcps (120/60/4) + solo 10 -- NOISE + 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 8 6 (# lpf 200) + $ "k k k " + # "[kick:5,house]" + # note 2 + # gain 0.65 + d2 -- Cymbales gravitantes + $ whenmod 16 8 (jux (rev . (hurry "<2!3 0.5>"))) + $ degradeBy "0 <0.5!6 0.25!2>!7" $ "ho:1*4 hc:3*4" + # note ("<0!<3 2> -4 -8 <[-8 -4] -12>>") + # room 0.2 # sz 0.4 + # pan (slow 16 $ range 0.8 0.4 sine) + # gain (slow 8 $ range 0.45 0.55 sine) + d3 -- Drumroll ma foi bien classique + $ fast "<4 8 [8 . 4 8] 8 <16 [16 4]>>" + $ "dr" + # pan (slow 16 $ range 0.9 0.4 cosine) + # gain (slow 8 $ range 0.65 0.8 sine) + d4 -- Bassline "maybe mad smirk smirk" + $ loopAt 2 + $ slice 8 ( + stack [ + "0 1 2 3 4 5 6 7*<1 2 4 1>" -- TODO ','' then stack + -- "0(3,8)", -- Megamask! + -- "0 0 0 0", -- MULTIMASK! + -- "<0 1 2 3 4 5 6 7>*8" -- TODO Manual Danse des masques! + ] + ) + $ s "fbass:8" + # gain 0.75 + # cut 6 + d5 -- Chopped choir + $ whenmod 32 0 (slow 2) -- TODO end: Rarefy + $ slice 8 ( + whenmod 16 12 (|> "<0!2 2!2>*8") $ + whenmod 16 8 (|> "0*4") $ + -- "0 1 2 3" -- Welcome! + -- "0 <1!2 0!2> <2 7 6 3> <3 5>" -- WELCOME + "0 1 <0 2> [3 4]" -- Choeurs fous! + ) + $ every' 4 3 (superimpose (# n 1) . (# legato "<1!3 2>")) + $ "pray" + # legato 1 + # pan "0.4 0.6" + # gain 0.55 + d7 -- Claps répartis + $ jux (# lpf 2000) + $ note "<-4!3 -8>" # "clap" + # hpf 2000 + # gain (range 0.65 0.85 perlin) + # pan (range 0.3 0.7 perlin) + + +once $ s "fbass:10" # gain 0.8 diff --git a/live/techno/funk/FFF/mad_fonk.tidal b/live/techno/funk/FFF/mad_fonk.tidal new file mode 100644 index 0000000..d6de70d --- /dev/null +++ b/live/techno/funk/FFF/mad_fonk.tidal @@ -0,0 +1,128 @@ +once "dr*8" + +-- region Mad Funk: joyeuse intro techno-funk, partant run 160bpm +-- Tags: Techno, run, funk, crushade +-- Ready: 9.5/10 +resetCycles +-- endregion + +do + solo 1 -- Kick + unsolo 2 -- Snare roll/rush + solo 3 -- Drumroll + unsolo 4 -- Bassline + solo 5 -- Guitare intro/pompe + solo 6 -- Epiano groovy + unsolo 7 -- Claps from grace + let bpm = 80 -- Que tu crois! + setcps (bpm/60/4) + solo 10 -- NOISES + d10 $ funk_noise + 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 + -- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité + -- region hardkick + -- $ whenmod 32 16 ( + -- superimpose ( + -- (# "hardkick:4") + -- . (sometimesBy "<0!3 0.5>" (stut 2 0.8 "s")) + -- . (# legato 0.9) + -- . (|* gain 0.65) + -- ) + -- ) + -- region INTRO/Run + -- $ slow 2 -- intro + -- $ whenmod 8 6 (# silence) + -- $ "k k k k k k k " + # "jazz" + # gain 0.7 + # pan 0.45 + d2 + $ 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 + # 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) + # pan (slow 8 $ range 0.2 0.6 cosine) + d4 -- Bassline + $ juxBy 0.5 id + $ slow 2 + -- $ whenmod 16 8 ( + -- region reverse cowgirl + -- sometimesBy "0 1" rev) + $ slice 8 + ( + -- 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 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 (0.5 + "6 <5 4>") -- CRUSH THIS + # gain 0.5 + # pan 0.6 + d5 -- Guitare pompe + -- $ 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 + # "fguitar" + -- # crush 5 -- TODO CRUSH THIS! 12 - 4 - 5 + # cut 8 + # gain (slow 64 $ range + -- 0.7 0.9 + 0.6 0.8 + 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 + $ slice 8 ( + "0 3 2 1 4 5 6 7*<1 2>" -- regulier + -- "0 3 2 1 0 3 <2 6> 7" -- variant + -- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE + -- "0 1 2 [3*<4 2>]!4 [5 <4 5>]" + -- "0 3 2 1!5" -- repeat aigu + -- "4!5 5 6 7*<1 2>" -- repeat end + -- "5!7 7" -- END OF FILE + ) + $ s "fepiano" + # n (slow 8 "<24 25>") + # gain 0.75 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37 + # cut 6 + # pan 0.7 + d7 $ fast 2 $ s "clap" + # lpf 2000 + # gain 0.85 + # room 0.4 diff --git a/live/techno/funk/FFF/pray.tidal b/live/techno/funk/FFF/pray.tidal new file mode 100644 index 0000000..cef7b82 --- /dev/null +++ b/live/techno/funk/FFF/pray.tidal @@ -0,0 +1,97 @@ +-- Pray the Funk: choeurs laudatifs +-- Tags: Breakbeat, gospel, funk +resetCycles + +do + unsolo 1 -- Kick chaloupé + unsolo 2 -- Tambours de Gretsch + unsolo 3 -- AcceleRoll + solo 4 -- Broken piece + solo 5 -- Fragments of Wiley + unsolo 7 -- Claps + setcps (60/60/4) + solo 10 -- NOISE + d10 $ funk_noise + d1 + -- KICK + $ whenmod 8 6 (# silence) + -- $ mask "t(11,12)" . fast "<2!6 4 2>" -- Folie + $ "k . k(<3 5>,8)" -- L'intro TODO + -- $ "k([1|2|5],8) . k(<3 5>,8)" -- Le classique + -- $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" -- L'annonce + # "[reverbkick,]" + # lpf ("<5!3 <2 0.5>>" * 1000) + # gain 0.65 + d4 -- BREAKBEAT + $ slice 8 ( + "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 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 + ) + $ loopAt 1 + $ "break:1" + # gain ( + slow 32 $ range 0.35 0.7 saw + -- 0.65 -- TODO Fulltime post-intro + ) + # cut 4 + d2 -- Snares gretscha + $ someCycles ( + (whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw))) + . hurry 2 + . (|* gain 0.9) + ) + $ fast 2 + $ n ("6(<4 <3 5>>,8)") + # "gretsch" # gain (slow 16 $ range 0.6 0.8 saw) + d3 + $ someCycles (fast "1 . 2 4") + $ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]" + # note ("<-2 -4 -2 0>") + # gain 0.75 + d5 -- Fragments of Wiley + $ "pray" -- TODO INTRO then /4 + # 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 + 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.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 [ + -- "2*4 3*2 . 0*2 1", + "0!2 ~ 3 0!2 ~ 3" + ]) + $ s "fpiano:6" # cut 6 # gain "<0.5 0.55 0.6 0.65>" + + d6 -- Bassline (FIXME improve sonorite/variations) + $ superimpose ( + arp "" . (# octave 6) + . (|* gain 0.9) + ) + $ note ( + ("[a2 >]!2") + "[0,4,7]" + ) + # "bassWarsaw" + # pan 0.4 + # gain 0.9 diff --git a/live/techno/funk/FFF/readme.md b/live/techno/funk/FFF/readme.md new file mode 100644 index 0000000..fcae2df --- /dev/null +++ b/live/techno/funk/FFF/readme.md @@ -0,0 +1,74 @@ +# FUTURE FUNK FRAGMENTS + +> From the edges of the desert, +> lost broken tapes reveal data +> groovy data +> funky data +> a rythm from old times + + + + + +## WORKSHEET + +### Repeat 0 +> 3m next? NO +> 16:30 ok annonce MAD +> 29:50 fin du crush +> 35: Ending fepiano +> 40: EOF + + +## Pray + +Intro waveloss + Break +Puis beat ;) + + +- Transition 3/5 + +## Grace + + +Begin 120BPM + +_Freestyle stack de masques!_ + +**Do not revive Wiley** + +End madbass annonciatrice + + + +- Transition solo madbass / downtempo + - IN 2/4/7 cy/bass/claps + - OUT 1/4/7 kick/bass/clap + - CPS 120->80 + +## Mad Fonk +> Prends ton temps +> profite des pauses hip-hopital +> crushe tranquillement +> Amuse toi avec les snares +> Varie basse et guitare +> Parcimonieux piano +> Kick + +### Intro +-- Intro bass-drumroll-snare-BIM KICK +-- Guitare intro, puis pompe commentée +-- Guitare arrive + +### CRUSH SCENE +d4 crushee progressivement +d1 qui se fait attendre +d2 qui build-up +d6 interdit + +- Transition decrush solo, puis d6 + +### Mad Piano + + +### Outro: fepiano diff --git a/live/techno/funk/Noise.tidal b/live/techno/funk/Noise.tidal deleted file mode 100644 index 530ac32..0000000 --- a/live/techno/funk/Noise.tidal +++ /dev/null @@ -1,41 +0,0 @@ -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|2]" 0.9 "[q|h]" - $ 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) - # pan perlin - # gain 0.4 - ) - $ 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.3 0.45 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) - # speed (range 0.125 0.95 perlin) - # pan (range 0.4 0.6 perlin) - ) - -- 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 --- 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/ant.tidal b/live/techno/funk/ant.tidal new file mode 100644 index 0000000..18e55b3 --- /dev/null +++ b/live/techno/funk/ant.tidal @@ -0,0 +1,112 @@ +do + -- let dGlob = id + -- let fxCrush = (# crush 16) + let fx32LPF = (whenmod 32 16 (# lpf (slow 16 $ range 5000 500 isaw))) + let dGlob = (fx32LPF) + setcps 0.5 + unmute 1 -- Kick + unmute 2 -- Contre-claps + unmute 3 -- + unmute 4 -- + unmute 5 -- + d1 + $ dGlob + $ whenmod 64 32 (slow "<4!16 2!16>") + $ whenmod 32 24 (mask "t?(1,4)") + $ whenmod 16 10 (# lpf 200) + $ fast "<4!3 [4|2]>" + $ s "[jazz,cpu2]" # gain 0.7 + d2 + $ fast 2 + $ dGlob + $ "~ . " # "clap" + # lpf 2000 + # room (slow 64 $ range 0 0.8 sine) + # sz (slow 16 $ range 0 0.7 saw) + # gain 0.8 + d3 + -- $ dGlob + $ degradeBy (range 0.2 0.8 perlin) + $ bite 8 "0 1 2 <3 5>(3,8)" + $ loopAt 2 $ "break" + # cut 3 + # gain 0.5 + d4 -- Moog lead + $ dGlob + $ jux rev + $ slice (slow 8 $ "<2 4 8 1>") "0*8 2*4" + $ note (scale "aeolian" (run 8)) + # cut 4 # "moog:1" + # gain (slow 16 $ range 0.5 0.75 cosine) + d5 + $ dGlob + $ slow "<4 2 1!30>" + $ often (stut "<2!4 2 4 8 1>" 0.9 "") + $ "[g(<3!3 5>,8) | g(3,8) g?]" + # "supergong" + # legato 1.1 + # note (slow 4 $ "") + # octave (slow 8 $ "<4 5>") + # room 0.4 # sz 0.4 + # gain 0.55 + d6 + $ dGlob + $ mask "t(<1!2 2!2 4!4 8!24>, 8)" + $ degradeBy "<0!10 0.2 0.4 0.6 0.8 [0.9 0] [0.1 0!3]>" + $ jux ((# note 2) . ("s" ~>)) + $ fast "8 <8!6 16!2>" $ "hh" + # gain (slow 8 $ range 0.65 0.9 perlin) + # room (range 0.4 0.7 perlin) + +-- region breakbeat +do + setcps (80/60/4) + d1 + -- $ superimpose (const $ s "jazz(<4!3 5>,8)" # gain 0.75) + $ slice 8 ("0 1 2 3 4 5 <6 7> 7*<1 2 4>") + $ "break:1" + # gain (slow 8 $ range 0.5 0.6 saw) + # cut 1 + d2 + $ slice 4 (cat [ + run 8, + "0 1 2 3 4!4", + run 8, run 8, run 8, + "<0!4 1!4 3!8>(5,8)" + ]) + $ "fbass" + # n "<42!14 41!2>" + # cut 2 + # gain (slow 16 $ range 0.6 0.65 saw) + d4 + $ whenmod 32 28 ((# note 12) . slow 4) + $ bite 4 "<0!8 1!8>*<4 8>" + $ "fepiano:26" + # gain 0.5 + # cut 4 + # room 0.4 + + +do + setcps (0.5) + d1 $ fast 4 $ s "[jazz,techno]" # gain 0.75 + d2 + $ fast 2 + $ whenmod 8 7 (off "e" id) + $ whenmod 4 3 (off "q" id) + $ "~ [snare:11,cp]" + # gain 0.7 + # lpf 2000 + d4 + $ fast "<1!4 2!4 4!2 8!2 16!3 [1]>" + $ loopAt 2 + $ "fclav" + # n (slow 4 "<0 1 2 3>") + # cut 21 + # gain 1.1 + + d6 $ s "supersaw" # voice 0.1 # note (-24) + +once $ arpeggiate $ note "c'maj" # "supersaw" +# voice 0.1 +# gain 0.8 diff --git a/live/techno/funk/funk_n_bass.tidal b/live/techno/funk/funk_n_bass.tidal deleted file mode 100644 index e5f6f7d..0000000 --- a/live/techno/funk/funk_n_bass.tidal +++ /dev/null @@ -1,99 +0,0 @@ -resetCycles - -do - -- let fGlob = 0.3 -- TODO: Filtre global FIXME: if defined? - let mKick = "" - let mKick = "t" - let mDrum = "" - let mRoll = "" - let mBass = "t" - let mPiano = "t f" - solo 1 -- Kick DNB/TECHNO - solo 2 -- Drums DNB-compatibles - unsolo 3 -- Drumroll masqué - unsolo 4 -- Basse électrique - unsolo 5 -- Piano FIXME Too noisy - unsolo 6 -- Comete - unsolo 8 -- Un bon sandwich - setcps (174/60/4) - d1 -- Kick - $ mask mKick - -- region TECHNOOO - -- $ fast 2 - -- $ whenmod 16 12 (slow 2) - -- $ "k k k " - -- # "[kick:5,house]" - -- region DNB - $ "k ~ ~ ~ ~ k ~ ~" - # "kick" # note "-6" - # gain 0.75 - -- # djf fGlob - d2 - $ mask mDrum - $ "~ s*<1!6 2 [4 2]> . ~ s*<1!3 2 1!2 2!2 3 2 4>" - # "snare" - # n "[11,12]" # note ( - "<0 0 -2!2 -4 -6 -7 -12>" -- snare aggrave - ) - # gain 0.7 - -- # djf fGlob - d3 -- Drumroll masqué - $ mask mRoll - $ fast "8 . <8 8 4 16>" - $ "drum:8" - # gain (slow 8 $ range 0.8 0.95 saw) - -- # djf fGlob - d4 -- Bass electrisée - $ mask mBass - $ whenmod 64 32 (slow 2) - $ off "q" (|+ note 12) - $ whenmod 32 16 rev - $ slice 8 ( - run 8 -- classique - -- (fast 2 $ run 4) -- loop begin - -- "0*2 1*2" - ) - $ "fbass:10" - # gain (slow 16 $ range 0.9 0.8 sine) - -- # crush (slow 16 $ range 9 4 sine) -- TODO Crush - # cut 4 - -- # djf fGlob - d8 -- Sandwich - $ slice 6 ( - "2*<0 <2 1>>" - ) - $ "macron:7" - # waveloss 25 - # cut 5 - # gain 0.7 - # room 0.6 - -- # djf fGlob - d5 - $ whenmod 16 8 (slow 2) - $ slice 8 ( - cat [ - run 8, - "[0,2*8]", -- attente noisée - 7 - run 8, -- rev - "" - ] - ) - $ "fpiano:12" - # pan 1 - # cut 5 - -- # djf fGlob - # gain 0.85 - d6 -- Comete - $ slice 8 "1!7 4" - $ s "methbass:3" # cut 6 - # gain 0.55 - -- # djf fGlob - - --- region Nass n Bassline -d1 $ "jazz*2" # gain 0.8 - -d3 - $ chop 8 - $ note ("") - # s "trump" # speed (1/12) diff --git a/live/techno/funk/grace.tidal b/live/techno/funk/grace.tidal deleted file mode 100644 index 0cf4d68..0000000 --- a/live/techno/funk/grace.tidal +++ /dev/null @@ -1,72 +0,0 @@ --- region Touchés par la grace: techno-gospel --- Tags: Techno, gospel, funk -resetCycles --- endregion - -do - unsolo 1 -- Kick regulier degradé - unsolo 2 -- Cymbales gravitantes - solo 3 -- Drumroll - unsolo 4 -- Mad Bassline discrete - solo 5 -- Lead choir - unsolo 7 -- Claps - setcps (120/60/4) - solo 10 -- NOISE - 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 8 6 (# lpf 200) - $ "k k k " - # "[kick:5,house]" - # note 2 - # gain 0.65 - d2 -- Cymbales gravitantes - $ whenmod 16 8 (jux (rev . (hurry "<2!3 0.5>"))) - $ degradeBy "0 <0.5!6 0.25!2>!7" $ "ho:1*4 hc:3*4" - # note ("<0!<3 2> -4 -8 <[-8 -4] -12>>") - # room 0.2 # sz 0.4 - # pan (slow 16 $ range 0.8 0.4 sine) - # gain (slow 8 $ range 0.45 0.55 sine) - d3 -- Drumroll ma foi bien classique - $ fast "<4 8 [8 . 4 8] 8 <16 [16 4]>>" - $ "dr" - # pan (slow 16 $ range 0.9 0.4 cosine) - # gain (slow 8 $ range 0.65 0.8 sine) - d4 -- Bassline "maybe mad smirk smirk" - $ loopAt 2 - $ slice 8 ( - stack [ - "0 1 2 3 4 5 6 7*<1 2 4 1>" -- TODO ','' then stack - -- "0(3,8)", -- Megamask! - -- "0 0 0 0", -- MULTIMASK! - -- "<0 1 2 3 4 5 6 7>*8" -- TODO Manual Danse des masques! - ] - ) - $ s "fbass:8" - # gain 0.75 - # cut 6 - d5 -- Chopped choir - $ whenmod 32 0 (slow 2) -- TODO end: Rarefy - $ slice 8 ( - whenmod 16 12 (|> "<0!2 2!2>*8") $ - whenmod 16 8 (|> "0*4") $ - -- "0 1 2 3" -- Welcome! - -- "0 <1!2 0!2> <2 7 6 3> <3 5>" -- WELCOME - "0 1 <0 2> [3 4]" -- Choeurs fous! - ) - $ every' 4 3 (superimpose (# n 1) . (# legato "<1!3 2>")) - $ "pray" - # legato 1 - # pan "0.4 0.6" - # gain 0.55 - d7 -- Claps répartis - $ jux (# lpf 2000) - $ note "<-4!3 -8>" # "clap" - # hpf 2000 - # gain (range 0.65 0.85 perlin) - # pan (range 0.3 0.7 perlin) - - -once $ s "fbass:10" # gain 0.8 diff --git a/live/techno/funk/layered_breaks.tidal b/live/techno/funk/layered_breaks.tidal index 7d69051..b7e7446 100644 --- a/live/techno/funk/layered_breaks.tidal +++ b/live/techno/funk/layered_breaks.tidal @@ -1,15 +1,15 @@ -- Couches de Funk -- Tags: Techno, bass, epiano , hypnotic -- Ready: 4/10 (Répetitif, à équilibrer, à espacer, vocals?) - +resetCycles do setcps 0.5 solo 1 -- Techno kick - solo 2 -- BreakBeat - solo 3 -- Claps + unsolo 2 -- BreakBeat + unsolo 3 -- Claps solo 4 -- Bassline! - solo 6 -- Electromad piano + unsolo 6 -- Electromad piano d1 -- KICK $ fast "<4!16 1 2 4 8 4!2>" $ whenmod 16 15 (juxBy 0.9 rev) @@ -62,7 +62,7 @@ do -- # n 23 # n "<23!8 7!4>" # cut 3 - # gain 1.95 + # gain 1 d6 -- Electro-MAD piano $ whenmod 16 12 ( off "q" ( stut 4 0.5 "e" diff --git a/live/techno/funk/mad_fonk.tidal b/live/techno/funk/mad_fonk.tidal deleted file mode 100644 index 5d30d60..0000000 --- a/live/techno/funk/mad_fonk.tidal +++ /dev/null @@ -1,126 +0,0 @@ --- region Mad Funk: joyeuse intro techno-funk, partant run 160bpm --- Tags: Techno, run, funk, crushade --- Ready: 9.5/10 -resetCycles --- endregion - -do - unsolo 1 -- Kick - unsolo 2 -- Snare roll/rush - unsolo 3 -- Drumroll - solo 4 -- Bassline - unsolo 5 -- Guitare intro/pompe - unsolo 6 -- Epiano groovy - solo 7 -- Claps from grace - let bpm = 80 -- Que tu crois! - setcps (bpm/60/4) - solo 10 -- NOISES - d10 $ funk_noise - d1 - $ every' 8 7 (# lpf 200) - -- region Pauses Hip-hop - $ 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 ( - -- superimpose ( - -- (# "hardkick:4") - -- . (sometimesBy "<0!3 0.5>" (stut 2 0.8 "s")) - -- . (# legato 0.9) - -- . (|* gain 0.65) - -- ) - -- ) - -- region INTRO/Run - -- $ slow 2 -- intro - -- $ whenmod 8 6 (# silence) - -- $ "k k k k k k k " - # "jazz" - # gain 0.35 - # pan 0.45 - d2 - $ 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 - # 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) - # pan (slow 8 $ range 0.2 0.6 cosine) - d4 -- Bassline - $ juxBy 0.5 id - $ slow 2 - $ whenmod 16 8 ( - -- region reverse cowgirl - sometimesBy "0 1" rev) - $ slice 8 - ( - -- 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 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 (0.5 + "6 <5 4>") -- CRUSH THIS - # gain 0.4 - # pan 0.6 - d5 -- Guitare pompe - -- $ 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 - # "fguitar" - -- # crush 5 -- TODO CRUSH THIS! 12 - 4 - 5 - # cut 8 - # gain (slow 64 $ range - -- 0.7 0.9 - 0.6 0.8 - 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 - $ slice 8 ( - "0 3 2 1 4 5 6 7*<1 2>" -- regulier - -- "0 3 2 1 0 3 <2 6> 7" -- variant - -- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE - -- "0 1 2 [3*<4 2>]!4 [5 <4 5>]" - -- "0 3 2 1!5" -- repeat aigu - -- "4!5 5 6 7*<1 2>" -- repeat end - -- "5!7 7" -- END OF FILE - ) - $ s "fepiano" - # n (slow 8 "<24 25>") - # gain 0.7 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37 - # cut 6 - # pan 0.7 - d7 $ fast 2 $ s "clap" - # lpf 2000 - # gain 0.65 - # room 0.4 diff --git a/live/techno/funk/pray.tidal b/live/techno/funk/pray.tidal deleted file mode 100644 index cef7b82..0000000 --- a/live/techno/funk/pray.tidal +++ /dev/null @@ -1,97 +0,0 @@ --- Pray the Funk: choeurs laudatifs --- Tags: Breakbeat, gospel, funk -resetCycles - -do - unsolo 1 -- Kick chaloupé - unsolo 2 -- Tambours de Gretsch - unsolo 3 -- AcceleRoll - solo 4 -- Broken piece - solo 5 -- Fragments of Wiley - unsolo 7 -- Claps - setcps (60/60/4) - solo 10 -- NOISE - d10 $ funk_noise - d1 - -- KICK - $ whenmod 8 6 (# silence) - -- $ mask "t(11,12)" . fast "<2!6 4 2>" -- Folie - $ "k . k(<3 5>,8)" -- L'intro TODO - -- $ "k([1|2|5],8) . k(<3 5>,8)" -- Le classique - -- $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" -- L'annonce - # "[reverbkick,]" - # lpf ("<5!3 <2 0.5>>" * 1000) - # gain 0.65 - d4 -- BREAKBEAT - $ slice 8 ( - "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 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 - ) - $ loopAt 1 - $ "break:1" - # gain ( - slow 32 $ range 0.35 0.7 saw - -- 0.65 -- TODO Fulltime post-intro - ) - # cut 4 - d2 -- Snares gretscha - $ someCycles ( - (whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw))) - . hurry 2 - . (|* gain 0.9) - ) - $ fast 2 - $ n ("6(<4 <3 5>>,8)") - # "gretsch" # gain (slow 16 $ range 0.6 0.8 saw) - d3 - $ someCycles (fast "1 . 2 4") - $ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]" - # note ("<-2 -4 -2 0>") - # gain 0.75 - d5 -- Fragments of Wiley - $ "pray" -- TODO INTRO then /4 - # 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 - 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.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 [ - -- "2*4 3*2 . 0*2 1", - "0!2 ~ 3 0!2 ~ 3" - ]) - $ s "fpiano:6" # cut 6 # gain "<0.5 0.55 0.6 0.65>" - - d6 -- Bassline (FIXME improve sonorite/variations) - $ superimpose ( - arp "" . (# octave 6) - . (|* gain 0.9) - ) - $ note ( - ("[a2 >]!2") + "[0,4,7]" - ) - # "bassWarsaw" - # pan 0.4 - # gain 0.9 diff --git a/live/techno/funk/pure.tidal b/live/techno/funk/pure.tidal new file mode 100644 index 0000000..059df91 --- /dev/null +++ b/live/techno/funk/pure.tidal @@ -0,0 +1,108 @@ +resetCycles + +do + let fxSlowDegrade = (# waveloss 10) + let fxPontHPF = (whenmod 64 48 (# djf (slow 16 $ range 0.2 0.8 cosine))) + let dGlob = (fxPontHPF . fxSlowDegrade) + -- let dGlob = (# djf 0.4) + let dGlob = (id) + let mMin = ">" + let mMajSm = "" + let mMajMd = "" + let mMajLg = "" + let melMin = [mMin, mMin, mMin, mMin] + let melMed = [mMajSm, mMajSm, mMajMd, mMajSm] + let melMaj = [mMajMd, mMajSm, mMajLg, mMajMd] + let melEnd = [mMajLg, mMajLg, mMajLg, mMajLg] + let melody = note (cat (melMin ++ melMed ++ melMaj ++ melEnd)) + let bCharge = "<2!3 3>(3,8)" -- Charge ! + let bAttente = "<0!4 1!4 2!4 3!4>" -- Attente + let bFull = "0 1 2 3" -- Fulltime + let bEnd = "0 1 0 <3 0>" -- End of file + let b1 = [bFull,bFull,bFull,bFull,bAttente,bAttente,bAttente,bAttente] + let b2 = [bAttente,bFull,bAttente,bFull,bAttente,bFull,bFull,bFull] + let b3 = [bCharge,bCharge,bCharge,bCharge,bFull,bEnd, bEnd, bEnd] + let bLine = b1 ++ b2 ++ b3 + setcps 0.5 + solo 1 -- KICK 4 + solo 2 -- Claps + solo 3 -- Hypno-Hats + solo 4 -- LEAD BASSLINE + unsolo 6 -- Riffs + solo 9 -- Background hoover FIXME + solo 10 -- Noise + d1 + -- $ mask "" + $ whenmod 8 6 (# lpf "<2000 500>") + $ dGlob + $ superimpose (# "jazz:0") + $ "k k k k]>" + # "808bd" + # n "[1,3]" # legato 0.8 + # gain 0.75 + d2 + -- $ mask "" + -- $ dGlob + $ fast 2 + $ "~ " + # note (slow 4 $ "<-5 -7>") + # djf 0.8 + # legato "<0.4!3 0.8>" + # "cp" + # pan 0.3 + # gain 0.8 + d3 + $ degradeBy "<0.9 [0 0.75!3]!3 0!20 [0 0.5!2 0]!8>" + $ whenmod 16 8 (juxBy 0.75 (degradeBy 0.25 . rev)) + $ often (off "e" id) + $ dGlob + $ s "hh*4" + # room "<0.2!4 0.4!2 0.6 0.8>" # sz 0.5 + # dry (range 0.2 4 perlin) + # pan (slow 8 $ sine) + # legato "<[q|e|s]!3 [h|q|e]>" + # cut 3 + # gain (slow 2 $ range 0.65 0.8 perlin) + d4 + $ whenmod 32 28 (fast 2) -- VIBRE + $ whenmod 32 24 (fast "2 4") -- reviens + $ whenmod 32 16 (slow 2) -- éclairci + $ dGlob + $ slice 4 (cat bLine) + $ "fbass:23" + # cut 4 + # gain 0.9 + d6 + $ whenmod 8 6 ((# crush "<3 2.5>") . (|* gain 0.8)) + $ bite 4 ("0*<2!2 <0 [0|0|2]> 1>") + $ "fguitar:23" + # cut 6 + # gain (slow 4 $ range 0.8 1 tri) + d9 + $ superimpose ( + ply "<2!4 [2|4]!2 4!2>" + . arp "down " + ) + $ melody + # octave 4 + # slide ("<1!3 -1>") + # s "superhoover" + -- # decay ("<0!8 0.25!4 0.5!4 0.6 0.8 0.95 0.99>") + # gain 0.25 + d10 + $ superimpose ( + const $ (1 ~>) $ note (slow 4 $ mMin) # "supersiren" + # octave 2 + # sustain 4 + # gain 0.45 + ) + $ "glitch(<4!3 5>,8,<0!8 4!8>)" + # n "2 <[2,3] 5>" + # gain 0.4 + # pan "0.4 0.6" + + +d5 $ degradeBy "0 0.5 0.25 0" + $ fast "12" $ s "cpu:1" # gain (range 0.7 0.9 saw) + +once $ s "fguitar:23" # cut 21 diff --git a/live/techno/funk/readme.md b/live/techno/funk/readme.md deleted file mode 100644 index fcae2df..0000000 --- a/live/techno/funk/readme.md +++ /dev/null @@ -1,74 +0,0 @@ -# FUTURE FUNK FRAGMENTS - -> From the edges of the desert, -> lost broken tapes reveal data -> groovy data -> funky data -> a rythm from old times - - - - - -## WORKSHEET - -### Repeat 0 -> 3m next? NO -> 16:30 ok annonce MAD -> 29:50 fin du crush -> 35: Ending fepiano -> 40: EOF - - -## Pray - -Intro waveloss + Break -Puis beat ;) - - -- Transition 3/5 - -## Grace - - -Begin 120BPM - -_Freestyle stack de masques!_ - -**Do not revive Wiley** - -End madbass annonciatrice - - - -- Transition solo madbass / downtempo - - IN 2/4/7 cy/bass/claps - - OUT 1/4/7 kick/bass/clap - - CPS 120->80 - -## Mad Fonk -> Prends ton temps -> profite des pauses hip-hopital -> crushe tranquillement -> Amuse toi avec les snares -> Varie basse et guitare -> Parcimonieux piano -> Kick - -### Intro --- Intro bass-drumroll-snare-BIM KICK --- Guitare intro, puis pompe commentée --- Guitare arrive - -### CRUSH SCENE -d4 crushee progressivement -d1 qui se fait attendre -d2 qui build-up -d6 interdit - -- Transition decrush solo, puis d6 - -### Mad Piano - - -### Outro: fepiano diff --git a/notes.md b/notes.md index d70925a..d35d1a6 100644 --- a/notes.md +++ b/notes.md @@ -413,8 +413,6 @@ endregion --> 55 GuitarD_120G-04.wav endregion -region Guitar -endregion region fepiano @@ -475,3 +473,23 @@ region fpiano 6 PianoA_120G-03.wav 7 PianoA_120G-04.wav endregion + + +region FClav +0 ClavB_110C-01.wav +1 ClavB_110C-02.wav +2 ClavB_110C-03.wav +3 ClavB_110C-04.wav +4 ClavB_120A-01.wav +5 ClavB_120A-02.wav +6 ClavB_120A-03.wav +7 ClavB_120A-04.wav +8 ClavB_80E-01.wav +9 ClavB_80E-02.wav +10 ClavB_80E-03.wav +11 ClavB_80E-04.wav +12 ClavB_90B-01.wav +13 ClavB_90B-02.wav +14 ClavB_90B-03.wav +15 ClavB_90B-04.wav +endregion diff --git a/output/Accel.jpg b/output/Accel.jpg new file mode 100644 index 0000000..9b82859 Binary files /dev/null and b/output/Accel.jpg differ diff --git a/output/Accel_Speedmeter.jpg b/output/Accel_Speedmeter.jpg new file mode 100644 index 0000000..d2c8afd Binary files /dev/null and b/output/Accel_Speedmeter.jpg differ diff --git a/output/Accel_Speedmeter2x.png b/output/Accel_Speedmeter2x.png new file mode 100644 index 0000000..772cdf0 --- /dev/null +++ b/output/Accel_Speedmeter2x.png @@ -0,0 +1 @@ +Method Not Allowed \ No newline at end of file diff --git a/output/Accel_Velocity.jpg b/output/Accel_Velocity.jpg new file mode 100644 index 0000000..c9dcef7 Binary files /dev/null and b/output/Accel_Velocity.jpg differ diff --git a/output/Acceleration.png b/output/Acceleration.png new file mode 100644 index 0000000..c7c8985 Binary files /dev/null and b/output/Acceleration.png differ diff --git a/output/Courant.jpeg b/output/Courant.jpeg new file mode 100644 index 0000000..14b3a2f Binary files /dev/null and b/output/Courant.jpeg differ diff --git a/output/Courant_Alternatif.jpg b/output/Courant_Alternatif.jpg new file mode 100644 index 0000000..ac0fdee Binary files /dev/null and b/output/Courant_Alternatif.jpg differ diff --git a/output/Courant_Floral.jpg b/output/Courant_Floral.jpg new file mode 100644 index 0000000..c1d7345 Binary files /dev/null and b/output/Courant_Floral.jpg differ -- libgit2 0.27.0