From b04983b3d5ebbd689f23ac473376cdb5c15082ee Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Thu, 7 Oct 2021 22:53:28 +0200 Subject: [PATCH] live: from rhadamanthe to pixels roses --- live/collab/rhadamanthe.tidal | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/dub/tubby_study.tidal | 9 ++++----- live/funky_veranda.tidal | 2 +- live/hip/chaude_civ.tidal | 4 +++- live/hip/instru/pixels_roses.tidal | 118 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/hip/lofi/sete_et_match.tidal | 27 +++++++++++++-------------- live/midi/nova/computer_riddim.tidal | 2 +- live/midi/nova/instruments/AtomicRhodes.tidal | 7 +++---- live/midi/nova/party/electro_blues.tidal | 29 +++++++++++++++-------------- live/techno/remember.tidal | 70 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 10 files changed, 300 insertions(+), 40 deletions(-) create mode 100644 live/collab/rhadamanthe.tidal create mode 100644 live/hip/instru/pixels_roses.tidal create mode 100644 live/techno/remember.tidal diff --git a/live/collab/rhadamanthe.tidal b/live/collab/rhadamanthe.tidal new file mode 100644 index 0000000..3b5646f --- /dev/null +++ b/live/collab/rhadamanthe.tidal @@ -0,0 +1,72 @@ + +do +setcps (135/60/4) +let f1 = (# djfbus 1 (range 0.15 0.85 "^49")) +let f2 = (# djfbus 2 (range 0.15 0.85 "^29")) +let mBreak = (midiOn "^41" (mask "t f . f t")) +let m = mBreak +let modIndex = pF "modIndex" +d1 $ f1 + $ midiOn "^42" (fast 2) + $ "[cpu,jazz]*2" + # midiG' "^78" 0 1.8 +d2 $ f1 $ mask "" + $ "~ c ~ c*<1 2>" + # "electro1" + # n "<2!3 <3 3 2 3>>" + # midiG' "^79" 0 1.8 +d10 $ mask "" $ "~ " # "clap" + # lpf 1500 + # midiG' "^79" 0 1.8 +d9 $ mask "" $ "~ <~ c [c . c*2] c>" # "h2ogmhh" + # midiG' "^79" 0 1.2 +d3 $ f2 $ "d*[8 <8 <[8 4] 16>>]" # "drum:2" + # midiG' "^80" 0 1.8 +d4 $ f1 + $ whenmod 16 8 (superimpose (|+| note ( + "0 12*<1!3 2> <0 12> 0?" + + 12 + ))) + $ note (scale "aeolian" "<0 3 5 7>") + # "moog" + # crushbus 4 (range 16 2 "^53") + # cut 4 + # pan 0.2 + # midiG' "^81" 0 1 +d5 $ f2 + $ whenmod 16 8 (superimpose (|+| note ( + "0 12*<1!3 2> <0 12> 0?" + - 24 + ))) + $ note (scale "aeolian" "<0 3 5 7>") + # "FMRhodes1" + # modIndex (range 0 100 "^54") + # cut 5 + # room 0.4 + # dry 1.5 + # sz 0.8 + # pan 0.8 + # midiG' "^82" 0 1.8 + + +once + $ "electro1:2" + + + +do +let g = (# djf "^49") +d1 $ g $ "jazz*4" + # gain (slow 8 $ range 0.5 1 sine) +d2 $ g $ "~ cp" +d3 $ g $ n "0(3,8)" # "amencutup" +-- + +do +let modIndex = pF "modIndex" +once $ note "c4" + # "FMRhodes1" + # gain 2.5 + # att 0.1 + # rel 0.9 + # modIndex 100 diff --git a/live/dub/tubby_study.tidal b/live/dub/tubby_study.tidal index 7cb1c04..a94a72d 100644 --- a/live/dub/tubby_study.tidal +++ b/live/dub/tubby_study.tidal @@ -1,4 +1,3 @@ -setcps (90/60/4) -- Study Tubby: See https://www.pure.ed.ac.uk/ws/portalfiles/portal/15441495/Tubbys_Dub_Style.pdf -- TODO: @@ -6,16 +5,16 @@ setcps (90/60/4) -- HMIX: Mix Hfiltered global with dry to interfere do -let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) -let f2 = (# djfbus 2 (range 0.05 0.99 "^29")) +setcps (90/60/4) let f3 = (# djfbus 3 (range 0.05 0.99 "^13")) +let f2 = (# djfbus 2 (range 0.05 0.99 "^29")) +let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) d1 $ f1 -- Kick classic runner 4/4 <-> dub rhythm $ midiOn "^41" (<| "k k k k]> k k k ") $ midiOff "^41" (<| "k . k([<3 1 3 3> <1 3>],8)") $ "[ab:5,jazz]" - # lpf 3000 # legato 0.8 - # midiG' "^78" 0 0.8 + # midiG' "^78" 0 1.2 d2 $ f1 -- snare contretemps $ whenmod 16 12 (fast 2) $ mask "" diff --git a/live/funky_veranda.tidal b/live/funky_veranda.tidal index d3ec829..ad2a4c4 100644 --- a/live/funky_veranda.tidal +++ b/live/funky_veranda.tidal @@ -2,7 +2,7 @@ resetCycles do setcps (60/60/4) -let whenPontHPF = () +let whenPontHPF = (whenmod 64 32) d1 $ whenPontHPF (# silence) $ mask "t " diff --git a/live/hip/chaude_civ.tidal b/live/hip/chaude_civ.tidal index c72d40a..6722971 100644 --- a/live/hip/chaude_civ.tidal +++ b/live/hip/chaude_civ.tidal @@ -2,6 +2,8 @@ -- Breakbeat bassline diphonique resetCycles +d1 $ "" + do setcps (90/4/60) d1 -- Kick base chaloupé ? @@ -10,7 +12,7 @@ d1 -- Kick base chaloupé ? # "reverbkick" # room 0.1 # sz 0.1 # gain (slow 32 $ range 0.5 0.7 saw) -d2 -- Breakbeat +d2 -- Breakbeat # FIXME WHICH fbreak WAS IT? :sweat: $ mask "" $ slice "<8!12 4 4 2 [4 . 8 4]>" ("<0!3 4>" + "0 1 2 3") $ loopAt 2 diff --git a/live/hip/instru/pixels_roses.tidal b/live/hip/instru/pixels_roses.tidal new file mode 100644 index 0000000..d55c59c --- /dev/null +++ b/live/hip/instru/pixels_roses.tidal @@ -0,0 +1,118 @@ +do +resetCycles +setcps (60/60/4) +let modIndex = pF "modIndex" +let gF1 = (someCyclesBy "" (# djfbus 1 (slow 4 $ range 0.5 0.02 saw))) -- Intro DJF +let gF2 = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.2 saw))) -- Parts DJF +let gF = gF1 . gF2 -- Global filter +let gM1 = (whenmod 16 8 (whenmod 8 7 (mask "t(<3 [3 4]>,4)"))) +let gM2 = (whenmod 32 16 (whenmod 16 12 (mask "t t "))) +let gM3 = ((someCyclesBy "" (mask " "))) +let gM = gM1 . gM2 . gM3 -- Global mask +let fadeOut = (whenmod 128 120 (|* gain (slow 8 $ range 1 0.5 saw))) +-- d11 $ slow 8 $ n (run 8) # "numbers" # gain 0.35 +d1 + $ gF $ gM $ fadeOut + $ mask "" -- Orchestration + $ "" + -- $ "> [ [~ k]> ]]]>" -- FIGHT NOW + # "[reverbkick,jazz]" + # room 0.8 + # dry 1 + # gain 0.9 + # lpf 2000 +d2 + $ gF $ gM $ fadeOut + $ mask "" -- Orchestration + -- $ "~ <~!8 s!8> ~ s*2>>" -- Snare rhythm instictif + $ "~ s" -- Snare rhythm minimaliste tarba + # "[sn:13,snare:20,snare:45]" + # pan 0.6 + # gain 0.8 +d3-- Drumroll + $ gF $ gM $ fadeOut + $ mask "" -- Orchestration + $ fast "16 24 . 8 <16 <32 [32 16]>>" + $ "[drum:2,cpu:4]" + # gain 0.7 + # pan 0.2 +d4 -- Main theme choir + $ whenmod 128 64 ( -- Second part more instrumental + (|* gain (slow 64 $ range 1 0.45 saw)) + ) + $ someCyclesBy "" -- intro mask + ( + (|* gain (slow 32 $ range 0.64 0.9 saw)) + . (mask "t t t t ") + ) + -- $ sometimesBy (slow 16 $ range 0 0.33 saw) -- Echo + $ always -- Echo + (juxBy 0.2 ( + (# rel (range 0.4 1 perlin)) + . (|+ pan 0.1) + ) + . (|* gain 0.74) -- Compensate echo loudness + ) + $ note "!2 g!2>>*8" + # "moogBass" + # pan 0.8 + # room (slow 8 $ range 0.5 0.8 saw) + # sz 0.76 + # dry 2.2 + # rel (0.45 + 0.2 * perlin) + # gain (slow 16 $ range 0.7 0.8 saw) +d5 -- Support bassline + $ gF + $ mask "" -- Orchestration + $ whenmod 64 48 ( -- Crushed outro + (# crushbus 50 (slow 16 $ range 10 2.5 saw)) + . (|* gain (slow 16 $ range 1 0.8 saw)) + ) + $ note ( + "0(3,8) 0*<8!3 4>" |+| "!2 g!2>>*8" + - 24) + # "bassWarsaw" + # pan 0.25 + # room 0.8 + # gain 0.7 +d6 -- RHODE ELECTRIC ARPS bassline + $ gF $ gM + $ mask ">,4)!8>" -- Outro + $ mask "" -- Orchestration + $ whenmod 64 20 (superimpose ( + whenmod 8 4 (mask "t f . t(<1 3 5 7>,8)") + -- . degradeBy (slow 32 $ "0 1!14 0" * (range 0.9 0.05 saw)) + . (arp "up") + . (|+ note "< c'maj'4 c'maj'4>") + )) + $ note ( + "!2 g!2>>*8" + - 12 + ) + # "FMRhodes1" + # modIndex (slow 16 $ range 1 15 perlin) + # room 0.4 + # sz (0.28 + 0.2 * perlin) + # gain (slow 16 $ range 0.67 0.89 cosine) + # pan 0.8 +d8 -- Breakbeat for ya + $ gF $ gM + $ mask "" -- Orchestration + $ degradeBy (slow 32 $ range 0.05 0.9 sine) + $ loopAt 2 + $ slice 16 ((sometimes (ply "2 <4 <8 [8|16]>>")) $ run "<16!6 8 <8 16>>") + $ "break" + # cut 8 + # pan 0.7 + # gain 0.57 +d9 -- Bones NOISE + $ gF $ whenmod 128 8 (gM) + $ slice 4 (run "<1 <1 2> 4 4> <2 2 4 <4 8>>") + $ "igor:0" + # begin (0.1 * perlin) + # end (slow 4 $ range 0.85 1 perlin) + # cut 9 + # room 0.3 + # sz 0.3 + # dry 0.9 + # gain (slow 64 $ range 0.7 0.35 saw) diff --git a/live/hip/lofi/sete_et_match.tidal b/live/hip/lofi/sete_et_match.tidal index 30004cb..1d1f9f0 100644 --- a/live/hip/lofi/sete_et_match.tidal +++ b/live/hip/lofi/sete_et_match.tidal @@ -1,8 +1,6 @@ resetCycles - -once $ "dr" -# gain 1 +-- Soleil de Sete - LoFi avec accompagnement -- TODO: -- Add lead - or use it to improvise? <3 @@ -21,16 +19,16 @@ d1 $ g $ mask "" -- Intro mask $ "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]" # "[bd:2,kick:5]" - # gain 0.9 + # gain 0.76 # legato 2 # att 0.1 # rel 0.8 d2 $ g -- Aerian snare - $ mask "" -- First break + -- $ mask "" -- First break $ mask "" -- Snare mask $ n "~ <~!3 [~!3 <10 10?>]>. 9" # "sn" - # gain 0.85 + # gain 0.8 # pan 0.6 # lpf 1500 d3 $ g2 @@ -39,7 +37,7 @@ d3 $ g2 # "drum:2" # pan 0.35 # dry 1.1 # room 0.5 # sz 0.8 - # gain (slow 8 $ range 0.4 0.5 saw) + # gain (slow 8 $ range 0.45 0.65 saw) d5 $ g -- BREAKBEAT BUDDY $ mask "" -- Post-filter break $ mask "" @@ -59,20 +57,21 @@ d4 $ g2 - 24 ) # "FMRhodes1" - # gain (slow 32 $ range 0.48 0.66 saw) + # gain (slow 32 $ range 0.66 0.8 saw) + # sz 0.9 # room 0.4 d6 $ g - $ mask "" - $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin))) + $ mask "" + -- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin))) $ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]" |+ chordsMin - 24 ) - # "supersaw" - # voice 0.1 + # "bassWarsaw" # pan 0.3 # hpf (range 0 500 perlin) - # gain 0.5 + # gain (slow 16 $ range 0.54 0.6 sine) + # room 0.4 d5 $ g -- BREAKBEAT BUDDY $ mask "" -- First break $ mask "" -- Post-filter break @@ -84,4 +83,4 @@ d5 $ g -- BREAKBEAT BUDDY $ loopAt 2 $ "fbreak100" # pan 0.85 - # gain 0.78 + # gain 0.7 diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index 4f66a59..2152bc6 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -93,7 +93,7 @@ d6 $ g $ gDelay-- Skank Hammond $ note (("[0 12 0 <~!6 12!2>]" |+ (slow 2 chords))) # "superhammond" # gM' 0 0.8 ("[0 0.25 0 0]" |+ "^82" * (range 0 0.9 "^34")) - # voice 6 + # voice 4 # octave 6 # pan 0.74 # sustain 0.25 diff --git a/live/midi/nova/instruments/AtomicRhodes.tidal b/live/midi/nova/instruments/AtomicRhodes.tidal index 70edd1f..59ebd7d 100644 --- a/live/midi/nova/instruments/AtomicRhodes.tidal +++ b/live/midi/nova/instruments/AtomicRhodes.tidal @@ -1,6 +1,5 @@ resetCycles - do let gFactor = 1.2 let gG a = (gain (gFactor * "^77" * a)) -- gain Global @@ -20,7 +19,7 @@ let mix = pF "mix" -- 0.2 let gMix = ((# mix (range 0 20 "^78")) . (|* gain (range 1 0.88 "^78"))) let gMod = ((# modIndex (range 0.2 100 "^79")) . (|* gain (range 0.8 0.58 "^79"))) let gArp = (stutWith 4 "e" (sometimesBy (range 0.125 0.875 "^50") ((|+ freq 110) . (|* gain 0.95)))) -let gRemix = ((novaOn "^41" (|- note 12)) . (novaOn "^42" $ ply 4) . (novaOn "^43" $ striate 2)) +let gRemix = ((novaOn "^41" (|- note 24)) . (novaOn "^42" $ slow 4) . (novaOn "^43" $ striate 2)) let n1 = novaOn "^73" (|+ note 5) let n2 = novaOn "^74" (|+ note 7) let n3 = novaOn "^75" (|+ note 12) @@ -37,8 +36,8 @@ d1 $ g $ degradeBy (1 - "1 ^49!15") $ off "h" id $ "FMRhodes1" - # gain (range 0.3 1.5 "^77") # inputLevel 0.1 + # gain (range 0.3 1.8 "^77") d2 $ gA $ whenmod 32 24 (slow 2) "[jazz,techno]*4" # gain 0.57 d3 $ gA $ whenmod 16 8 (fast 2) "hh(<4 3 5>,8)" @@ -47,7 +46,7 @@ d3 $ gA # gain (range 0.45 0.85 "^83") d4 $ gA $ novaOff "^60" (# silence) - $ novaOn "<^92!3 1>" (off "e" id) + $ novaOn "^92" (fast 2) $ "~ clap" # lpf 2000 # gain (range 0 0.75 "^84") diff --git a/live/midi/nova/party/electro_blues.tidal b/live/midi/nova/party/electro_blues.tidal index 34a8072..31aff3e 100644 --- a/live/midi/nova/party/electro_blues.tidal +++ b/live/midi/nova/party/electro_blues.tidal @@ -2,33 +2,35 @@ resetCycles -- Electro-jazz grille du blues snakish do -setcps (80/60/4) +setcps (70/60/4) +let f2 = (# djfbus 2 (range 0.1 0.9 "^29")) let f1 = (# djfbus 1 (range 0.1 0.9 "^49")) -let f2 = (# djfbus 1 (range 0.1 0.9 "^49")) -let f3 = (# djfbus 1 (range 0.1 0.9 "^49")) let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"] let chord = "c'maj" let chordAug = "c'maj'8" d1 -- Kick rarement doublé $ f1 $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC - $ midiOn "^42" ((<| "k*4") . (superimpose (# "kick:5"))) + $ midiOn "^42" ((<| "k*4") . (superimpose (# "909"))) $ midiOff "^42" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)") - $ "super808" + $ "jazz" + # legato 2 + # room 0.2 # midiG' "^78" 0 1.1 d2 $ f1 - $ midiOn "^43" (fast 2) + $ midiOn "^43" (fast 4) $ "~ [jazz:4,cp]" - # hpf (range 0 10000 perlin) + # hpf (slow 4 $ range 0 10000 perlin) # room 0.6 # sz 0.6 # dry 0.99 - # midiG' "^79" 0 1.2 + # midiG' "^79" 0 1.9 d3 $ f1 -- Snakes $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC $ juxBy (slow 8 $ range 0.1 0.9 sine) rev $ fast 2 $ "s . s <~!3 s>" # "hh*6" - # midiG "^80" + # pan 0.7 + # midiG' "^80" 0 1.5 d4 $ f2 $ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>") $ midiOn "^57" (juxBy 0.2 ( @@ -41,11 +43,11 @@ d4 $ f2 -- . (|+ note 12) )) $ note ( - cat blues + chord + cat blues - 24 ) # "bassWarsaw" - # pan 0.75 + # pan 0.3 # room 0.1 # voice 0.8 # crushbus 41 (range 10 3 "^53") @@ -54,11 +56,10 @@ d5 $ f2 -- Choeurs $ juxBy 0.5 ( (0.5 ~>) . midiOn "^58" (superimpose ( arp "" - . (|+ note chordAug) + . (|+ note ("[0,12]")) . (|+ pan 0.05) -- . (|* gain 0.85) ) - . (|+ note 12) . (|* gain 0.95) . (# legato 0.5) . (|+ pan 0.05)) @@ -75,5 +76,5 @@ d9 $ f1 $ midiOff "^60" (slice 8 (run ("<8!4 16 [8 . 32 16] [8 . 16 8] [8 4]>"))) -- Decroissance $ "fbreak80" # cut 42 - # midiG' "^84" 0 1.4 + # midiG' "^84" 0 1.8 # pan 0.3 diff --git a/live/techno/remember.tidal b/live/techno/remember.tidal new file mode 100644 index 0000000..47a6aa8 --- /dev/null +++ b/live/techno/remember.tidal @@ -0,0 +1,70 @@ +do +setcps (120/60/4) +let gF = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.08 sine))) +d1 -- Kick it + $ mask "" + $ gF + $ superimpose ((# "909") . (# att 0.2) . (# rel 0.2)) + $ "k k k k]>" + # "jazz" + # lpf 2000 + # gain 0.65 +d2 $ gF -- Balance it + $ sometimesBy "<0 0.1 0.1 0.25>" (degradeBy "0 0.1!7") + $ "~ [s <~ > . <~!3 s*<1 2>>]" + # "electro1:3" + # gain ( + slow 16 $ range 0.4 0.7 saw + + 0.1 * perlin) + # pan 0.8 +d3 $ gF -- Clap it + $ "~ " + # "[cp,house:4]" + # gain 0.5 + # lpf 2000 + # room 0.5 + # dry 1 + # pan 0.8 +d4 $ gF -- Zip it. + $ juxBy 0.2 id + $ note "0 <~!4 1!4> ~ [2 <2 ~> <2 ~ 2*2 [~ 2]> 2]" + # "invaders:0" + # gain 0.4 + # pan 0.7 +d5 -- Log it... + $ mask "" + $ always (superimpose ( -- Burn IT! + (# crushbus 5 (slow 16 $ range 12 7.5 (isaw + perlin / 8))) + . (# room 0.4) + . (|- note 12) + . (|+ pan 0.28) + . (|* gain 0.68) + )) + $ note ( + "0 <~!4 0!4> ~ [0 <0 ~> <0 ~ 0*2 [~ 0]> 0]" -- Layered Structure + + "0 1" -- Notes + - 24 + ) + # "bassWarsaw" + # pan 0.2 + # att 0.07 + # rel "0.3!3 <0.3!3 <0.6 1>>" + # gain 0.7 +d10 $ gF -- Roll it -> + $ fix ( + (# note (scale "aeolian" ("0 1 2 4 5 <7 4 7 4 7 4 4 4>"))) + . (|* gain 0.85) + . (# pan 0.85) + ) + (n 7) + $ fix ( + degradeBy "0 <0.1!2 > 0.05>!6 0" + . (|* gain (slow 16 $ range 0.5 0.79 saw)) + ) (n 5) -- Metalic long hats + $ n (stack [ + "[4 4*<1 2 4 8> 4*<2 4 4 2> 4*<2 4>]", + "5*[8 <8!7 16 8!4 16!4>]", + "7*[[4|8]!4 [8||<8 16>|<8!3 16>|16]!4]", + "" + ]) # "cpu" + # gain 0.8 -- libgit2 0.27.0