From aad1dd0d4407067fe74fb707260f5bca9c3d18b4 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sun, 16 May 2021 00:07:18 +0200 Subject: [PATCH] live: looper to reboot / re:last one --- live/midi/nova/breaks/break_low.tidal | 8 +++++--- live/midi/nova/computer_riddim.tidal | 19 +++++++++---------- live/midi/nova/dnb/lucy_rode.tidal | 1 - live/midi/nova/instruments/scratchomatic.tidal | 3 ++- live/midi/nova/lofi/dark_money.tidal | 1 + live/midi/nova/lofi/reboot.tidal | 76 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/lounge/hello_loo.tidal | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/lounge/invoque_ete.tidal | 2 +- live/midi/nova/lounge/mojo_hats.tidal | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/party/last_one.tidal | 23 +++++++++++------------ live/midi/nova/punk/hello_poesie.tidal | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ study/looper/blue_loop.tidal | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ study/looper/jack2.tidal | 107 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 13 files changed, 491 insertions(+), 28 deletions(-) create mode 100644 live/midi/nova/lofi/reboot.tidal create mode 100644 live/midi/nova/lounge/hello_loo.tidal create mode 100644 live/midi/nova/lounge/mojo_hats.tidal create mode 100644 live/midi/nova/punk/hello_poesie.tidal create mode 100644 study/looper/blue_loop.tidal create mode 100644 study/looper/jack2.tidal diff --git a/live/midi/nova/breaks/break_low.tidal b/live/midi/nova/breaks/break_low.tidal index 167b84b..a710b7e 100644 --- a/live/midi/nova/breaks/break_low.tidal +++ b/live/midi/nova/breaks/break_low.tidal @@ -11,9 +11,9 @@ d1 -- Snare $ "k k k < k>" -- $ "k . k" # "[jazz,cpu]" - # midiG' 0 0.8 "^78" + # midiG' "^78" 0 0.9 d2 -- Snare - $ midiOn "^41" (fast 8) + $ midiOn "^41" (fast 4) $ g $ midiOff "^41" (slow "<2!16 1!16>" ) $ "~ [snare:20,clap]" @@ -62,7 +62,7 @@ d6 $ g # modIndex "[0,5]" # "FMRhodes1" # crush (range 10 4.8 "^54") - # midiG' "^82" 0 1.4\ + # midiG' "^82" 0 1.4 d7 $ g -- $ slice 8 ("7*4") $ note "< c'min7>" @@ -76,3 +76,5 @@ d8 $ g -- Da Bogdan MOFO # crush (slow 16 $ range 16 2.5 perlin) # cut 8 # gain "^56" + + once $ "dr" # gain 1 diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index fdce9a4..7ada8c5 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -7,13 +7,13 @@ do -- region Nova Utils -let gFactor = 1.45 +let gFactor = 2 let gG a = (gain (gFactor * "^77" * a)) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux -let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) -let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) -let gDJF = (gLPF . gHPF) +-- let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) +-- let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) let novaOn ch pat = someCyclesBy ch pat let novaOff ch pat = someCyclesBy (1 - ch) pat -- endregion Nova Utils @@ -42,26 +42,25 @@ d1 d2 $ g -- Snare $ (|- lpf 1000) - $ (|/ lpf 2) $ novaOn "^43" (|<| "s*4") $ "~ <~!7 s> ~ ~ . s" # "[snare:50,snare:4]" # orbit 1 - # gM' 0.2 0.9 "^79" + # gM' 0.2 1.3 "^79" d3 $ g -- Hats + $ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165")) $ every' 4 3 ( sometimesBy "0 . 1 0!3" ((# "ho:2") . (|* gain 0.9)) . sometimesBy "0 . 0 1 0 0" (|* gain 0) ) - $ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165")) $ novaOn ("^44") (degradeBy (slow 4 $ range 0.9 0 saw) . (<|"h*16")) -- TODO Eclaircir $ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]") - $ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the second Hi Hat hit + $ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the jjjjjjjjjjjjjjj Hi Hat hit $ s "gretsch:4" -- # pan "^52" # cut 3 # orbit 1 - # gM' 0.2 1.8 "^80" + # gM' 0.2 1.25 "^80" d4 $ g -- Bassline $ novaOn "^57" (>| note "[~ a4] [~ ] ") -- Naif $ novaOff "^57" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements @@ -110,7 +109,7 @@ d8 -- Trompette lancinante $ degradeBy "^35" $ novaOn "^59" (mask "") $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.95)) - $ note (" bf d ~]> " + "0 <12 0>" + $ note (" bf d ~]> " + "0 <12 0>" - 12) # "brass" # n "2" # gM' 0.2 1 "^55" diff --git a/live/midi/nova/dnb/lucy_rode.tidal b/live/midi/nova/dnb/lucy_rode.tidal index 9b053c9..d86cdd0 100644 --- a/live/midi/nova/dnb/lucy_rode.tidal +++ b/live/midi/nova/dnb/lucy_rode.tidal @@ -19,7 +19,6 @@ do let g = gDJF . gFreqs d1 $ g -- Beat - $ fast 2 $ midiOn "^41" (<| "k k k k") $ midiOn "^42" (<| "k . k <~ [<~ k> ]>")-- RubADub $ midiNo "^41" "^42" (<| ">") diff --git a/live/midi/nova/instruments/scratchomatic.tidal b/live/midi/nova/instruments/scratchomatic.tidal index 5816758..b7dad90 100644 --- a/live/midi/nova/instruments/scratchomatic.tidal +++ b/live/midi/nova/instruments/scratchomatic.tidal @@ -61,7 +61,8 @@ d5 $ g d11 $ gAcc $ sometimesBy "0 0.75" (off "q" (|* gain 0.95)) $ slice 8 "<[0 1] [2 3] [0 3] [2 3]>" - $ "fbass:1" # gain 1.4 + $ "fbass:1" + # gain 1.4 # pan 0.7 # cut 11 -- Company funky diff --git a/live/midi/nova/lofi/dark_money.tidal b/live/midi/nova/lofi/dark_money.tidal index 345efbe..ff75900 100644 --- a/live/midi/nova/lofi/dark_money.tidal +++ b/live/midi/nova/lofi/dark_money.tidal @@ -1,5 +1,6 @@ import Sound.Tidal.ParVagues.Control + -- Dark Money: Downtempo dark minor LoFi do setcps (60/60/4) diff --git a/live/midi/nova/lofi/reboot.tidal b/live/midi/nova/lofi/reboot.tidal new file mode 100644 index 0000000..5c43590 --- /dev/null +++ b/live/midi/nova/lofi/reboot.tidal @@ -0,0 +1,76 @@ +import Sound.Tidal.ParVagues.Control + + +-- Reboot: From Dark Money to motivating beats +do +setcps (80/60/4) +let whenIntro pat = someCyclesBy "" pat +let whenNotIntro pat = someCyclesBy "" pat +let whenBrk pat = whenmod 16 10 pat +let whenNotBrk pat = someCyclesBy "" pat +let whenBrkLPF = whenBrk (# lpf "<400 200 100 50 0 0>") +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) +let g = (gDJF) +d1 $ g -- Kick + $ whenBrkLPF + $ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>") + $ midiOn "^41" (<| "k*4 . [k k] ") + $ midiOff "^41" (<| "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)") + $ "[reverbkick,jazz]" + # midiG' "^78" 0 1.1 +d2 $ g -- Contretemps snare + $ whenBrkLPF + $ "~ s ~ <~!4 s!12>" + # "snare" # n "[40,52]" + # note (-4) + # midiG' "^79" 0 1.1 +d3 $ g -- Drumroll fantôme + $ whenBrk (slow "<2 2 4 4 8 8 16 16>") + $ midiOn "^44" (fast "4 2") + $ "d*<4 4 8 [4 . <4 16> 16]>" # "[drum:2,cpu:2]" + # room 0.6 # sz 0.9 # dry 1.01 + # midiG' "^80" 0 1.2 +d4 $ g -- A slice of bass + $ midiOn "^89" (chop 8) + $ slice 4 "<0 0 [0 1] 3 0*2 [0 1] [3 2] [3*2 3*<2 4>]>" + -- $ slice 4 "<0!8 1!8 2!8 3!8>*<1!4 2 1 2 4>" + $ "fbass:8" + # midiG' "^81" 0 1.4 + # crushbus 41 (range 8 2.9 "^53") + # room 0.2 + # pan 0.2 + # cut 4 +d5 $ g -- Climbing guitar + $ superimpose ( + slice 4 "0*<1 2 1 <2 4>>" . + (# cut 51) . (|+ note 12) + . (|* gain (range 0.5 1.5 "^34")) + ) + $ slice 4 ( + (whenmod 8 4 (fast 4)) $ + "<0 1 2 3>" + ) + $ "fguitar:11" + # cut 5 + # pan 0.4 + # midiG' "^82" 0 1 + # crushbus 51 (range 8 1.9 "^54") +d6 $ g -- Glitchy piano! + $ whenmod 8 4 (someCyclesBy "0 1 . <0 0.25 0.5 1>" rev) + $ midiOn "^59" (slice 8 $ "0 1(<1 3 5 <2 4 8>>,8) 2 3*2" + "<0!8 4!8>") + $ midiOff "^59" (slice 8 $ "0 1 2 3*2" + "<0!8 4!8>") + $ "fpiano:11" + # cut 6 + # pan 0.4 + # midiG' "^83" 0 1 +d7 $ g -- Sirene + $ note ( + slow 8 + $ arpeggiate + $ "d3'min'4" + "<0!8 12!8>" + ) + # "supersiren" + # room 0.3 # sz 0.6 + # midiG' "^84" 0 0.7 + # crushbus 71 (range 8 0.9 "^56") + # cut 7 diff --git a/live/midi/nova/lounge/hello_loo.tidal b/live/midi/nova/lounge/hello_loo.tidal new file mode 100644 index 0000000..8221c8d --- /dev/null +++ b/live/midi/nova/lounge/hello_loo.tidal @@ -0,0 +1,60 @@ +import Sound.Tidal.ParVagues.Control + +linput = pI "linput" +lname = pS "lname" + +once $ qtrigger 1 $ "looper" # n "<0 1 2 3>" # lname "mojo" + + +do +setcps (122/60/4) +d1 $ "jazz*4" # gain 0.9 + +-- Hello Parov! +d10 $ "mojo:5" + # gain 1.8 + + +-- Hello Rhodes +do +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) +let g = gDJF +setcps (120/60/4) +d1 + $ g + $ midiOn "^41" (<| "k*4") + $ midiOff "^41" (<| "k ") + $ "jazz" + # midiG "^78" +d2 $ g + $ "~ cp" + # midiG "^79" +d3 $ g + $ fast ( -- cycle/4 ralenti-accelere + slow 4 $ "<1 [0.5 2] [2 0.5 1 2] [1 0.5 2]>" + ) + $ s "dr*8" + # s "ifdrums:1" + # pan 0.4 + # midiG' "^80" 0 1.1 +d4 $ g -- bassine + $ whenmod 16 8 (slice 16 (run 8)) + $ "loop" # n "<0!4 1!4>" + # midiG' "^81" 0 0.8 + # pan 0.2 + # crushbus 41 (range 10 1.5 "^53") +d5 $ g -- Looped Rhodes + $ "loop" # n "<3!3 4 3 4 4 5>" + # pan 0.8 + # midiG' "^82" 0 1 + # pan 0.75 + # ampbus 101 (range 0.5 1.5 "^54") + # room 0.6 # dry 0.8 +d6 $ g -- + $ "hello" + # n "<0 1 2 3>" + # midiG' "^82" 0 0.8 + # pan 0.65 + # ampbus 101 (range 0.5 1.5 "^34") + +d2 $ s "looper" # n "<0 1 2 3 4 5 6 7>" diff --git a/live/midi/nova/lounge/invoque_ete.tidal b/live/midi/nova/lounge/invoque_ete.tidal index 88d12ae..b271ab7 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -29,7 +29,7 @@ d2 $ g -- Clave de l'été $ "d ~ ~ d d ~ d <~!3 d>" # "snare:22" # gM' 0 1.4 "^79" # speed (range 0.5 1.5 "^51") -d4 $ g +d4 $ g -- Mecano Course $ fast 4 $ midiOn "^44" (slice 16 ("0*<1 2> 1 2 3*<2 1>") . (>| "breaks125")) $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>") diff --git a/live/midi/nova/lounge/mojo_hats.tidal b/live/midi/nova/lounge/mojo_hats.tidal new file mode 100644 index 0000000..7560801 --- /dev/null +++ b/live/midi/nova/lounge/mojo_hats.tidal @@ -0,0 +1,73 @@ +import Sound.Tidal.ParVagues.Control + +linput = pI "linput" +lname = pS "lname" + +once $ qtrigger 1 $ "looper" # n "<0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15>" # lname "mojo" + +do +setcps (122/60/4) +d1 $ "jazz*4" # gain 0.9 + +-- Hello Parov! +d10 $ "mojo:5" + # gain 1.2 + + +do +let pontH = (someCyclesBy "<0!32 1!8 0!24>" (# hpf (slow 8 $ range 0 500 saw))) +let pontL = (whenmod 16 12 (# lpf 2000)) +let toPontL = (every' 16 11 (# lpf 5000)) +let chords = "" +let prog = ("") +let chorus = pF "chorus" +let mix = pF "mix" +let modIndex = pF "modIndex" -- 0.2 +let gG a = (gain (1.2 * "^77" * a)) -- gain Global +let gM' l h a = (gG (range l h a)) -- gain Modéré +let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) +let gFreqL = (# lpq (range 0 0.25 "^29")) +let gFreqH = (# hpq (range 0 0.25 "^30")) +let gFreqs = (gFreqH . gFreqL) +let g = (gDJF . gFreqs) +setcps 0.5 +d1 $ g + $ midiOn "^41" ( -- KICK RUN + ((>| "[reverbkick,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") + . (|* gain 0.8) + ) + ) + $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>") + $ "jazz" + # midiG' "^78" 0 1.4 +d2 $ g -- Breathing snare contretemps + -- $ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>") + $ "[hh27:2 hh27:7,~ snare:30]" + # room 0.6 # sz 0.7 # dry (slow 20 $ range 0 2 perlin) + # midiG' "^79" 0.5 1 +d3 -- Runny Maracas + $ g + $ whenmod 16 8 (often $ fast 2) + $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1") + $ fix ((|* gain 0.9) . (# release 0.8)) (n 9) + $ "hh27*8" + # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>" + # midiG' "^80" 0.5 1.17 +d6 $ g -- Hello Parov! Piano + $ n "3" + |>| note ( + "0 <7 12>*<1 2 4 1>" + ) + -- |>| n "3 [4 ~]" + # "mojo" + # cut 6 + # midiG' "^81" 0.5 1.5 +d7 $ g -- Hello Parov! Piano2 + $ midiOn "^58" (|+| n ("0*<1!4 2!3 4 4 4 8 16>" + )) + $ "mojo" # n "<6 7>" + # cut 7 + -- # begin "0.15" + # pan 0.8 + # midiG' "^82" 0.5 1.5 diff --git a/live/midi/nova/party/last_one.tidal b/live/midi/nova/party/last_one.tidal index 119d6ce..faa9833 100644 --- a/live/midi/nova/party/last_one.tidal +++ b/live/midi/nova/party/last_one.tidal @@ -7,24 +7,23 @@ let midiOn ch pat = someCyclesBy ch pat let midiOff ch pat = someCyclesBy (1 - ch) pat let midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) -let gDJFb = (# djfbus 1 (range 0.3 0.7 "^49")) let gLPQ = (# lpqbus 4 (range 0 0.5 "^13")) let gHPQ = (# hpqbus 5 (range 0 0.5 "^14")) -let gRoom = (# roombus 6 (range 0 0.5 "^14")) +let gRoom = (# roombus 6 (range 0 0.5 "^15")) let g = gDJF setcps (110/60/4) let prog = " d6'm9 >" -- let prog = "" let progm = "< d e >" d1 $ g - $ midiOn "^41" (<| "k*4") - $ midiOff "^41" (<| "k k") + $ midiOn "^41" (<| "k k k ") + $ midiOff "^41" (<| "k . k <~ [<~ k> ]>")-- RubADub $ "jazz" # midiG' "^78" 0 1.8 d2 $ g $ whenmod 8 4 (ply "1 <1 2 1 1> <2 1 1 2> <1 1 2 1>") $ midiOn "^43" (fast 2) - $ "~ s ~ s" # "sn" # n "[1,10]" + $ "~ s ~ " # "sn" # n "[1,10]" # midiG' "^79" 0 1.6 d3 $ g $ midiOn "^76" (fast 2) @@ -52,7 +51,7 @@ d5 $ g )) $ note (prog - 12) # "moog:2" - # midiG' "^82" 0 1.2 + # midiG' "^82" 0.3 1 # attack 0.8 # room 0.4 # sz 0.9 d6 @@ -61,6 +60,7 @@ d6 $ "fguitar" # n "<34!32 35!16 34!16>" # midiG' "^83" 0 1.4 # crushbus 60 (range 10 2.85 "^55") + # pan 0.65 # cut 6 d7 $ g $ midiOn "^60" (mask "t([4 <8 8 4 8>],16)") @@ -80,13 +80,12 @@ d7 $ g # pan "<0.7!7 0.3>" # midiG' "^84" 0 (1.5 * "^20") d8 $ g + $ midiOn "^60" (off "q" (# n 11) . (|* gain 0.95)) $ note ( - struct "t(5,8)" - $ arpeggiate - $ prog - -- + "<0 0 10 0> <7 12>" - -- + "0 . [0!3 ~] 0*<1!7 2>" + struct "t . t(<1!4 3!4 [5 3]!4 5!4>,8,<0!3 4>)" + $ arp "pinkyup " + $ (fast 2 $ prog) ) - # "cbow:10" + # "cbow" # n "[9,<~!4 10!4>]" # pan "<0.3!7 0.7>" # midiG' "^84" 0 1 diff --git a/live/midi/nova/punk/hello_poesie.tidal b/live/midi/nova/punk/hello_poesie.tidal new file mode 100644 index 0000000..1f2dfb1 --- /dev/null +++ b/live/midi/nova/punk/hello_poesie.tidal @@ -0,0 +1,87 @@ +import Sound.Tidal.ParVagues.Control + +once $ "dr" + +do +setcps (152/60/4) +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) +let slowdown = (midiOff "^41" (slow 2)) +let g = gDJF +d1 $ g + $ slowdown + $ midiOn "^42" (<| "k*<1!4 2 1!3> k k*<1!3 2> k*2") -- FULL + $ midiOff "^42" (<| "k . k(<3 1 3 5>,8)") -- Attente + $ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]") -- Transition + $ "[super808,jazz]" + # midiG "^78" + # room 0.85 # dry 0.98 # sz 0.8 +d2 $ g + $ slowdown + $ "hh*[<16!4 8 8 16 16> . 8 16]" + # note "0 2 0 <2 3 2 -1>" + # midiG' 0.5 1.5 "^80" +d10 + $ "~ s ~ s*<0!8 1!3 2 1 1 2 [2 4]>" + # "snare" + # n "[10,12]" + # midiG "^79" +d3 $ g -- Bassline + arps + $ midiOn "^57" (superimpose ( + (|+| note ( + "0 [12 <12 7>]*<2!4 2 4 4 8>" + + "12" -- Base + )) + . (# cut 31) + . (|* gain 0.8) + )) + $ slice 8 ("<0!4 1!4>") + $ "poesieSynth:2/4" + # midiG' "^81" 0 1.2 + # cut 3 + # pan 0.2 + # room 0.13 + # crushbus 31 (range 10 1.5 "^53") +d4 $ g -- Synth disto baseline + $ "poesieSynth/2" + # n (slow 4 "<0 1>") + # midiG' "^82" 0 0.85 + # crushbus 41 (range 10 3.5 "^54") + # cut 4 + # pan 0.8 + # room 0.4 +d5 $ g -- Riff guitaresque + $ whenmod 32 24 (mask "t f!7") + $ whenmod 32 16 ( mask "t f") + $ superimpose ( + mask "f t" + . (|+ note 12) + . (# cut 41) + . (|* gain 0.75) + ) + $ note ("0 1@2 ~ <4!3 8>*<1!4 2!3 1>") + # "poesieBass:1" + # cut 4 + # crushbus 51 (range 10 1.5 "^55") + # pan 0.7 + # midiG "^83" +d8 -- Voices + $ g + $ someCyclesBy "" ( + slice 16 (cat [ + "10 10(3,8)", + "10 11 10 11", + "10 10(3,8)", + "10 11 9 12" + ])) + $ someCyclesBy "" (slice 16 (cat [ + "0", "0*2", "0", "0 . 1", + "0*4", "0", "0 1 0 1", "0 1 2 3" + ]) ) + $ loopAt 4 + $ "poesieVoice:1" + # midiG' "^84" 0 0.75 + # crushbus 81 (range 5 1.5 "^56") + # distortbus 82 (range 1 2 "^36") + # pan "0.25 0.75" + # room 0.4 + # cut 8 diff --git a/study/looper/blue_loop.tidal b/study/looper/blue_loop.tidal new file mode 100644 index 0000000..c890b46 --- /dev/null +++ b/study/looper/blue_loop.tidal @@ -0,0 +1,59 @@ +import Sound.Tidal.ParVagues.Control + +-- +do +let gF = midiDJF "^49" 200 9800 0 2000 +let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30")) .(# lrate 6.7)) +let linput = pI "linput" +let lname = pS "lname" +let g = gF . gLeslie +setcps (120/60/4) +d1 $ g + $ midiOff "^41" (mask "") + $ midiOn "^41" (<| "k*4" ) + $ midiOff "^41" (<| "k [~!6 ] . k*2 ~" ) + $ "[jazz,bd]" + # midiG' "^78" 0 0.75 +d2 $ g + $ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>" + $ "~ s ~ s" + # "h2ogmsn:6" + # midiG' "^79" 0 1.3 +d3 $ "lJazzP" + # n "<0 1 2 3 4 5 6 7>" + # midiG' "^81" 0 1.2 + # cut 3 + +once $ "lJazz" + + +d3 -- Dubbed midi! + $ qtrigger 1 + $ midiOn "^57" (midiOn "^89" (superimpose (# "olooper"))) + $ midiOff "^57" (midiOn "^89" (superimpose (# "looper"))) + $ "loop" + + +resetCycles + +do +d1 $ qtrigger 1 $ "looper" # n "<0 1 2 3 5 6 7>" # lname "lJazzP" +d2 $ "dr*4" # gain 0.8 +d3 $ "jazz" # gain 0.85 +d4 $ "<~!7 cp>" # gain 0.8 + + +once $ "freeLoops" + + +once $ "lDrill:5" # begin 0.05 # end 0.25 + # cut 3 -- Je deviens haineux + +once + $ "lBlues" + # gain 1.1 # cut 1 + +-- OVERDUB! +d1 + + # gain 0.8 diff --git a/study/looper/jack2.tidal b/study/looper/jack2.tidal new file mode 100644 index 0000000..eee2a17 --- /dev/null +++ b/study/looper/jack2.tidal @@ -0,0 +1,107 @@ +d1 + $ n "[0,[~ 2*<1!3 2>]*2]" # "cpu2" # gain 1 + +once $ "dr" + + +setcps (110/60/4) -- James + +once $ s "loop" -- writes one cycle to the loop buffer and uses the input port 0 and the sample number 0 + +do +let linput = pI "linput" +let lname = pS "lname" +d1 $ "dr*4" # gain 0.5 +d2 $ "looper*4" # n "<0 1 2 3 4 5 6 7>" # cut 2 +-- d2 $ "loop" # n "<0 1 2 3 4 5 6 7>" # cut 2 + +once + $ n "5 6" + # "lJames" + # cut 4 + +once $ "looper" # lname "lEITS" + +resetCycles + +do -- Looper named loop +setcps (30/60/4) -- Slow sampling +let linput = pI "linput" +let lname = pS "lname" +d1 + $ s "looper" # n "<0 1 2 3 4 5 6 7>" + # lname "lEITS" +d2 $ stut 4 0.5 "q" $ s "arpy" # n "<0 1 2 3 4 5 6 7>" # gain 0.5 + +do +setcps (100/60/4) +d1 $ "k(3,8)" # "jazz" # gain 0.5 +d2 $ "hh*8" + # gain 0.45 + # room 0.4 + # dry 0.99 +d3 + $ n "<[1 1*[1|2] <1 6> 1?] [<1 1 3 3> <2!3 4>]>" + # s "lEITS" + # cut 3 + # gain 1.3 + # pan 0.8 + +d1 $ "jazz*4" # gain 0.8 + +once + $ "lEITS:1" + # gain 1.2 + # cut 1 + +-- DRILL +do +setcps (120/60/4) +d1 + $ "k . k(<3!3 <1 5>>,8)" + # "jazz" # gain 0.7 +d2 $ mask "" + $ "~ snare" # gain 0.7 +d2 $ "lDrill:3" -- aaAa + # begin 0 # end 0.75 + # cut 3 -- Je deviens haineux + +once $ "lDrill:5" # begin 0.05 # end 0.25 + # cut 3 -- Je deviens haineux + +once + $ "lDrill:1" + # gain 1.1 # cut 1 + +resetCycles + +do -- Looper named loop +setcps (30/60/4) -- Slow sampling +let linput = pI "linput" +let lname = pS "lname" +d1 + $ s "looper" # n "<0 1 2 3 4 5 6 7>" + # lname "lDrill" +d2 $ stut 4 0.5 "q" $ s "arpy" # n "<0 1 2 3 4 5 6 7>" # gain 0.75 + +do +setcps (100/60/4) +d1 $ "k(3,8)" # "jazz" # gain 0.5 +d2 $ "hh*8" + # gain 0.45 + # room 0.4 + # dry 0.99 +d3 + -- $ n "<[1 1*[1|2] <1 6> 1?] [<1 1 3 3> <2!3 4>]>" + $ n (run 8) + # s "lDrill" + # cut 3 + # gain 1.3 + # pan 0.8 + + +do +d1 + $ often (slow 4) $ "loop*[4 [4|8|16]]" + # gain 1.2 # cut 1 + # begin (perlin/4) -- libgit2 0.27.0