diff --git a/live/collab/julien.tidal b/live/collab/julien.tidal new file mode 100644 index 0000000..4ddf0d5 --- /dev/null +++ b/live/collab/julien.tidal @@ -0,0 +1,47 @@ +resetCycles + + +setcps (135/60/4) + +do +let maskIntro = mask "" +d1 + $ maskIntro + $ superimpose ((# "gretsch") . (|* gain 0.8)) + $ "k . ~ k ~ ~" + # "[jazz,bd]" + # gain 0.5 +d2 + $ maskIntro + $ superimpose (const -- Tchak + $ whenmod 16 12 (fast "<2 4 4 8>" . ("q" <~) . mask "t f") + $ mask "" + $ "~ s ~ s*<1!7 2>" + # "[gretsch:2,sn:2]" # lpf 4000 + # room (slow 4 $ perlin * 0.35) + # gain 0.55) + $ whenmod 8 6 (# lpf "<4000 2000>") + $ splice 8 (run 8) $ "breaks165" + # gain (slow 16 $ range 0.2 0.55 saw) +d3 + $ someCyclesBy "<1!8 0!28>" (mask "t(<0!4 4!4>,4)") + $ whenmod 4 3 (degradeBy "0 0.5!6 0") + $ sometimesBy "0 0.1!6 0.5" (fast 2) + $ "drum:2*8" # gain 0.5 +d4 + $ note ("" + + "" + ) + # "supersaw" # voice 0.1 + # gain 0.2 # pan 0.9 # room 0.1 +d5 + $ someCyclesBy "<1!2 0!14>" (|* gain 1.2) + $ "day:1/2" + # gain (slow 16 $ range 0.45 0.5 sine) + # gain 0.65 + # hpfbus 4 (range "-50" 5000 sine) + # legato 2 + # cut 5 + + +once $ "dr" # cut 1 diff --git a/live/hip/lofi/hellofi.tidal b/live/hip/lofi/hellofi.tidal index 4e2fcde..6463a3c 100644 --- a/live/hip/lofi/hellofi.tidal +++ b/live/hip/lofi/hellofi.tidal @@ -107,7 +107,7 @@ d7 -- Carillons back $ whenOutHPF $ juxBy 0.5 (rev . fast 4) $ fix ((# "808hc:0") . (|* gain 0.85)) "h" - $ fix (# "808mc:<4 3 2 3>") "m" + $ fix ((# "808mc") . (# n "<4 3 2 3>")) "m" $ fix ((# "808lc") . (# n (slow 4 "<0 0 0 2>"))) "l" $ "~ l <~ [~ ~ ~ ]> l" # room 0.5 # sz 0.8 # dry 0.8 diff --git a/live/midi/nova/120_techoirs.tidal b/live/midi/nova/120_techoirs.tidal index 901919b..13d3ef2 100644 --- a/live/midi/nova/120_techoirs.tidal +++ b/live/midi/nova/120_techoirs.tidal @@ -1,4 +1,4 @@ -import Controls +import Sound.Tidal.ParVagues.Controls -- Controls: -- 1A 2A 3A 4A 5A 6A 7A 8A UP DOWN @@ -26,9 +26,7 @@ let gSize = (|* size (range 0 0.8 "^13")) let gG a = (gain (gGain * a)) -- gain Global let gM a = (gG (range 0.3 0.8 a)) let gM' l h a = (gG (range l h a)) -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 gDJF = (midiDJF "^49" 200 9800 0 1000) let g = (gDJF . gSize . gRoom . (# dry 0.98)) let novaOn ch pat = (sometimesBy ch pat) let novaOff ch pat = sometimesBy (1 - ch) (pat) @@ -55,19 +53,19 @@ d3 $ g # lpf 5000 # cut 3 d4 $ g - $ superimpose ( + $ midiOn "^57" (superimpose ( (|+ note 24) . chop (slow 4 "<1 2 4 8>") . arp "updown" . (|* gain 0.9) - ) + )) $ note prog # "bassWarsaw" - # gM' 0 1.1 "^81" + # gM' 0 1.3 "^81" # lpq "^33" # room 0.5 # octave 3 - # crush (range 10 4.5 "^17") + # crush (range 10 4.2 "^53") # sz 0.8 d7 $ g $ whenmod 16 8 (fast 2) diff --git a/live/midi/nova/Controls.tidal b/live/midi/nova/Controls.tidal deleted file mode 100644 index 31ad8a9..0000000 --- a/live/midi/nova/Controls.tidal +++ /dev/null @@ -1,2 +0,0 @@ -module Controls where - gG a b = a + b diff --git a/live/midi/nova/breaks/break_low.tidal b/live/midi/nova/breaks/break_low.tidal new file mode 100644 index 0000000..01308b0 --- /dev/null +++ b/live/midi/nova/breaks/break_low.tidal @@ -0,0 +1,78 @@ +import Sound.Tidal.ParVagues.Control + +setcps (60/60/4) + +do +let modIndex = pF "modIndex" +let g = (midiDJF "^49" 150 9850 0 1000) +d1 -- Snare + $ g + $ midiOn "^41" (fast 2) + $ "k k k < k>" + -- $ "k . k" + # "[jazz,cpu]" + # midiG' 0 0.8 "^78" +d2 -- Snare + $ midiOn "^41" (fast 8) + $ g + $ midiOff "^41" (slow "<2!16 1!16>" ) + $ "~ [snare:20,clap]" + # midiG "^79" + # room 0.8 # sz 0.8 # dry 0.99 +d3 $ g + $ often (fast "1 2") + $ fast "4 . 8" + $ "drum:2" + # midiG "^80" +d4 $ g + $ whenmod 8 6 (off "q" (fast "<1 2>")) + $ midiOn "^76" (slice 8 ("0 1 2 3*<8!3 [8 4]>")) + $ midiOn "^44" (off "h" id . mask "t f") + $ slice 8 (run 8) + $ loopAt 2 + $ "break:3" + # panbus 4 (range 0.2 0.8 perlin) + # cut 4 + # midiG' "^80" 0 1.1 +d5 -- Bassline + $ g + $ midiOn "^57" (-- + Arps aigus! + superimpose ( + often (off "h" rev) + . (|+ note ( + "[0 <12 <12 24>>]" -- spread + + "0(5,8)" |+ "0 [7 12]" + -- + 12 + )) + . (# crush (range 12 1.85 "^53")) + ) + ) + $ note ("d . ~ ") + # octave 3 + # "bassWarsaw" + # crush (range 10 5 "^53") + # room 0.5 + # sz 0.4 + -- # pan 0.2 + # midiG' "^81" 0 1.2 +d6 $ g + $ off "e s" (|+ note 7) + $ note "(3,8)" + # octave 3 + # modIndex "[0,5]" + # "FMRhodes1" + # crush (range 10 4.8 "^54") + # midiG' "^82" 0 1.4 +d7 $ g + -- $ slice 8 ("7*4") + $ note "< c'min7>" + # "brass:20" + # midiG "^83" +d8 $ g -- Da Bogdan MOFO + $ "bogdan:9" + # waveloss (slow 24 $ range 0 60 sine) + # hpqbus 8 (range 0 0.5 cosine) + # lpqbus 8 (range 0 0.5 sine) + # crush (slow 16 $ range 16 2.5 perlin) + # cut 8 + # gain "^56" diff --git a/live/midi/nova/breaks/slower.tidal b/live/midi/nova/breaks/slower.tidal index 20bbdfe..4a99b8f 100644 --- a/live/midi/nova/breaks/slower.tidal +++ b/live/midi/nova/breaks/slower.tidal @@ -1,4 +1,4 @@ -import Sound.Tidal.ParVagues.Control +wimport Sound.Tidal.ParVagues.Control setcps (80/60/4) @@ -25,7 +25,7 @@ d2 -- Breakbeat $ g $ midiOn "^43" (fast "[1|2|0.5]" . loopAt 1) -- $ midiOn "^43" (fast 4 . often (scramble 2)) - -- $ sometimesBy "0 <0.5!3 0.95>" (ply "[2|4]") + -- $ sometimesBy "0 <0.5!3 0.95>" (ply "``[2|4]") $ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break" # midiG' "^79" 0 1.75 d3 $ g diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index 21dcd1f..96c6c89 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -54,14 +54,14 @@ d3 $ g -- Hats . sometimesBy "0 . 0 1 0 0" (|* gain 0) ) $ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165")) - $ novaOn ("^44") (<|"h*8") -- TODO Eclaircir + $ 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 $ s "gretsch:4" -- # pan "^52" # cut 3 # orbit 1 - # gM' 0.2 1.5 "^80" + # gM' 0.2 1.8 "^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 @@ -73,7 +73,7 @@ d4 $ g -- Bassline # lpq (range 0 0.33 "^33") # release 0.95 # orbit 1 - # gM' 0.25 1.2 "^81" + # gM' 0.25 1.5 "^81" d5 $ g $ gDelay -- Skank Piano $ whenmod 4 3 (sometimesBy "0 1 . 0" ( (# note "[d5,g4,b4]") . (|* gain 0.8) @@ -112,8 +112,9 @@ d8 -- Trompette lancinante $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.85)) $ note (" bf d ~]> " + "0 <12 0>") # "brass" # n "2" - # gM' 0.2 0.85 ("^55") - # attack 0.5 # cut 8 + # gM' 0.2 1 "^55" + # attack 0.5 + # cut 8 d9 -- CP $ sometimesBy "^59" (fast 2) $ (# lpf 2000) diff --git a/live/midi/nova/lounge/top_hats.tidal b/live/midi/nova/lounge/top_hats.tidal index caf073b..0088508 100644 --- a/live/midi/nova/lounge/top_hats.tidal +++ b/live/midi/nova/lounge/top_hats.tidal @@ -50,9 +50,9 @@ d6 $ g -- Guitar riffs $ note 2 -- correction # "punk" # cut 6 - # attack (range 0.5 1 "^17") + # lpq (range 0 0.125 "^17") + # attack (range 0.5 1 "^33") # crush (range 12 1.75 "^53") - # lpq (range 0 0.125 "^33") # pan 0.9 # room 0.3 # sz 0.9 diff --git a/live/midi/nova/minneapolis.tidal b/live/midi/nova/minneapolis.tidal index 8e75a4a..4e09eda 100644 --- a/live/midi/nova/minneapolis.tidal +++ b/live/midi/nova/minneapolis.tidal @@ -8,13 +8,13 @@ -- XXX XXX XXX XXX XXX pSust fSpd gunFreq -- Dlay DFB XXX XXX crBass pRVel cpStut gunSpd --- DJF XXX XXX panDr gSiren pLVel cpSpd gGuns +-- DJF XXX XXX panDr gmSiren pLVel cpSpd gGuns -- G Kick Sn DrRoll Bass Piano CP Fire -- X TCHN Stut Wait/Run TCHN XXX XXX XXX do -- region Nova Utils -let gF = 1.3 -- gain factor +let gF = 1.5 -- gain factor let gG a = (gain (gF * "^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 @@ -100,12 +100,12 @@ d5 $ g -- Basse + Sirene . (-| note 12) -- 24 when crushed . (# gM' 0.2 0.8 (( "^81" -- gain bass - * (range 0.6 0.9 "^53") -- Modulated 5C + * (range 0.6 0.9 "^33") -- Modulated 5C ) - (0.125 * "^57") -- When TECHNOPHILE )) . (# crush (range 10 3 - "^33")) + "^53")) . (# room 0.5) . (# size 0.8) ) @@ -115,8 +115,8 @@ d5 $ g -- Basse + Sirene ) # s "supersaw" # voice 0.15 - # crush (range 10 2 "^33") - # gM' 0 0.8 ("^81" * (range 0.9 0.4 "^53")) -- Modulated 5C + # crush (range 10 2 "^53") + # gM' 0 0.8 ("^81" * (range 0.9 0.4 "^33")) -- Modulated 5C # pan (slow 10 $ range 0.6 0.8 sine) d7 $ g -- Claps fantome $ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s") @@ -149,6 +149,6 @@ d8 $ g -- Gunfire # begin (slow 4 "<0 0.2 0.5>") # cut 8 # room 0.6 # size 0.4 - # speed (range 0.5 1 ("^19" + perlin/4)) + # speed (range 0.5 1.25 (segment 8 $ "^19" + perlin/4)) # gM "^84" # delay 0.3 # delaytime (1/3) # delayfb 0.8