From 0d61250112f6815ab1240c4eb5890eeb736fa520 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Mon, 20 Sep 2021 23:10:47 +0200 Subject: [PATCH] live: Grimpe --- live/dnb/automne_electrique.tidal | 2 +- live/hip/lofi/808_lessons.tidal | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/hip/lofi/back_baby.tidal | 2 +- live/hip/lofi/sete_et_match.tidal | 29 ++++++++++++++++------------- live/midi/nova/breaks/break_90s.tidal | 4 ++-- live/midi/nova/breaks/slower.tidal | 14 +++++++++----- live/midi/nova/breaks/solar.tidal | 22 +++++++++++++--------- live/midi/nova/dnb/meurice.tidal | 4 ++-- live/midi/nova/lofi/back_baby.tidal | 28 +++++++++++++++------------- live/mood/fight/grimpe.tidal | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 10 files changed, 180 insertions(+), 46 deletions(-) create mode 100644 live/hip/lofi/808_lessons.tidal create mode 100644 live/mood/fight/grimpe.tidal diff --git a/live/dnb/automne_electrique.tidal b/live/dnb/automne_electrique.tidal index ce95603..224f956 100644 --- a/live/dnb/automne_electrique.tidal +++ b/live/dnb/automne_electrique.tidal @@ -40,7 +40,7 @@ d3 # dry 1 # pan 0.35 d4 -- BASSLINE ELECTRIQUE - $ mask "" -- Orchestration + -- $ mask "" -- Orchestration $ sometimesBy "" (|* gain (slow 24 $ range 1 1.2 saw)) $ slice 8 ("<0!3 4>" + run 8) $ "fbass:10" diff --git a/live/hip/lofi/808_lessons.tidal b/live/hip/lofi/808_lessons.tidal new file mode 100644 index 0000000..8cd72ae --- /dev/null +++ b/live/hip/lofi/808_lessons.tidal @@ -0,0 +1,62 @@ +do +setcps (80/60/4) +d1 + $ mask "" + $ superimpose (# hpf 500) + $ "k . k(<1 <3 5>>,8)" + # "808bd:3" + # gain 1 + # room 0.2 + # dry 1 +d2 + $ superimpose ((# "snare:3") + -- . (# att 0.1) + -- . (# rel 0.9) + . (|* gain 0.8) + ) + $ "~ s]>" + # "sn:49" + # pan 0.6 + # hpf 500 + # gain 0.66 +d3 + $ mask "" + $ juxBy 0.65 rev + $ whenmod 8 4 (fast "[1|2] <2 2 [2|4] 4>") + $ "d*<1 <2 3>> . <~ d*<1 2 4 2>> d*3" + # "drum:2" + # gain 0.5 + # dry 1 # room 0.64 + # sz 0.4 +d4 + $ note ("< c4 g3 a3>" + 12) + # "bass1:3" + # voice 0.1 + # gain 0.5 + # pan 0.2 + # room 0.9 + # sz 0.8 + # delay 0.9 + # delayfb 0.1 + # delaytime "e " + # legato 8 + # lesliebus 31 (range 2 6 (slow 4 sine)) +d5 -- Plucked arpeggios + $ swing 12 + $ often (superimpose ( + |+| note ( 12 + + arp "up" "" + ))) + $ note ("< c4 g3 a3>" + |+| "0 <12 [7 ~ 12] 7 [12 ~ 0]>" + + 24 + ) + # "pluck:5" + # pan 0.6 + # gain ((slow 16 $ range 0.45 0.57 saw) + 0.05 * perlin) + +do +d1 $ "jazz*4" # gain 0.8 +d2 $ "hh*16" # gain 0.4 + +once $ "dr" diff --git a/live/hip/lofi/back_baby.tidal b/live/hip/lofi/back_baby.tidal index 4bbcb23..70df379 100644 --- a/live/hip/lofi/back_baby.tidal +++ b/live/hip/lofi/back_baby.tidal @@ -1,5 +1,5 @@ -once $ "dr" # gain 0.75 +once $ "dr" # gain 1.75 do setcps (80/60/4) diff --git a/live/hip/lofi/sete_et_match.tidal b/live/hip/lofi/sete_et_match.tidal index e087292..30004cb 100644 --- a/live/hip/lofi/sete_et_match.tidal +++ b/live/hip/lofi/sete_et_match.tidal @@ -1,15 +1,15 @@ resetCycles + once $ "dr" +# gain 1 -- TODO: -- Add lead - or use it to improvise? <3 -- Add wind noises at transition points - or equivalent spacey sounds - do setcps (90/60/4) -let chords = "<[a,c,e,g,b,d] [d,fs,a,c] [f,a,c,e] [c,e,g,b]>" --- TODO: Chords could vary a bit, try manual nostalgic vars +let chords = "<[a,c,e,g6,b6,d6] [d,fs,a6,c6] [f,a,c6,e6] [c,e,g6,b6]>" let chordsMin = "< [f] [c]>" -- TODO confirm/finish/validate let gFilter = whenmod 32 24 (# djf (slow 8 (range 0.5 0.05 saw))) let gFilter2 = whenmod 32 24 (# djf (slow 8 (range 0.45 0.75 saw))) @@ -21,23 +21,25 @@ 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.8 + # gain 0.9 # legato 2 # att 0.1 # rel 0.8 d2 $ g -- Aerian snare $ mask "" -- First break - $ mask "" -- Snare mask - $ n "~ <~!3 [~ 10]>. 9" + $ mask "" -- Snare mask + $ n "~ <~!3 [~!3 <10 10?>]>. 9" # "sn" - # gain 0.8 + # gain 0.85 + # pan 0.6 # lpf 1500 d3 $ g2 $ mask "" $ "d*[<<4!4 [8 <4 8>]!4> 16!4> <16!3 8 16 16 8 8 16 16 8 16 16 8 16 16>]" # "drum:2" # pan 0.35 - # gain (slow 8 $ range 0.4 0.6 saw) + # dry 1.1 # room 0.5 # sz 0.8 + # gain (slow 8 $ range 0.4 0.5 saw) d5 $ g -- BREAKBEAT BUDDY $ mask "" -- Post-filter break $ mask "" @@ -47,16 +49,17 @@ d5 $ g -- BREAKBEAT BUDDY $ chop 16 $ loopAt 2 $ "fbreak100" - # gain 0.69 + # gain 0.79 # pan 0.65 d4 $ g2 + $ whenmod 4 3 (rarely (off "h" (arp "up" . mask "f f t? t"))) $ superimpose ((|* gain "0 0.79") . (|+ note 12)) -- Depth $ whenmod 16 12 (someCyclesBy "0 1" rev) $ note (chords - 24 ) # "FMRhodes1" - # gain 0.75 + # gain (slow 32 $ range 0.48 0.66 saw) # room 0.4 d6 $ g $ mask "" @@ -69,7 +72,7 @@ d6 $ g # voice 0.1 # pan 0.3 # hpf (range 0 500 perlin) - # gain 0.4 + # gain 0.5 d5 $ g -- BREAKBEAT BUDDY $ mask "" -- First break $ mask "" -- Post-filter break @@ -80,5 +83,5 @@ d5 $ g -- BREAKBEAT BUDDY $ chop 16 $ loopAt 2 $ "fbreak100" - # gain 0.69 - # pan 0.65 + # pan 0.85 + # gain 0.78 diff --git a/live/midi/nova/breaks/break_90s.tidal b/live/midi/nova/breaks/break_90s.tidal index 8bc3c7d..63e7c25 100644 --- a/live/midi/nova/breaks/break_90s.tidal +++ b/live/midi/nova/breaks/break_90s.tidal @@ -16,10 +16,9 @@ setcps (80/60/4) d1 $ g $ midiOn "^41" (superimpose ((# "kick:5") - . (|* gain 0.9)) + . (|* gain 0.7)) . (<| "k k k k k k k [ ]") . (# room 0) - . (|* gain 0.9) ) $ whenmod 4 2 (off (-1/"<8 16>") ( degradeBy "0 1!7" . (|* gain 0.9)) @@ -34,6 +33,7 @@ d1 # midiG' "^78" 0 1.4 d2 $ g + $ midiOn "^75" (ply 2) $ midiOn "^43" (slice 4 "0 1*<1 1 2 4>") $ midiOff "^43" ( slice 4 ( diff --git a/live/midi/nova/breaks/slower.tidal b/live/midi/nova/breaks/slower.tidal index 1c828f4..3324a79 100644 --- a/live/midi/nova/breaks/slower.tidal +++ b/live/midi/nova/breaks/slower.tidal @@ -7,7 +7,7 @@ do setcps (80/60/4) let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine))) let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) -let f2 = (# djfbus 1 (range 0.05 0.95 "^29")) +let f2 = (# djfbus 2 (range 0.05 0.95 "^29")) -- region Params Rhodes let modIndex = pF "modIndex" -- endregion @@ -32,6 +32,11 @@ d3 $ f1 $ gF # speed (range 0.5 1.5 "^52") # midiG' "^80" 0 2 d4 $ f1 -- Bassline + $ superimpose ( + (# crushbus 41 (range 10 4.5 "^53")) + . (# legato 4) + . mask "t f!7" + ) $ midiOn "^57" (-- + Arps aigus! superimpose ( often (off "h" rev) @@ -40,14 +45,13 @@ d4 $ f1 -- Bassline + "0(5,8)" |+ "0 7" + 12 )) - . (|* gain 0.9) - . (# room 0.5) . (# sz 0.75) + . (|* gain 0.7) ) ) $ note ("<0 [0 . 0 [0 3] 5 ~]>") # "bass1" - # crushbus 41 (range 10 4.5 "^53") - # room 0.25 # sz 0.8 # orbit 4 + # room 0.25 # sz 0.8 + -- # orbit 4 # pan 0.2 # midiG' "^81" 0 1.8 d5 $ f2 -- fmono diff --git a/live/midi/nova/breaks/solar.tidal b/live/midi/nova/breaks/solar.tidal index 20dfae8..61ecff1 100644 --- a/live/midi/nova/breaks/solar.tidal +++ b/live/midi/nova/breaks/solar.tidal @@ -1,7 +1,4 @@ -- Solar - breakbeat nostalgic playground --- TODO: Breakbeat mapping variations --- TODO: CBOW Kill melody, reboot alongside rhodes --- TODO: Bassline Kill riff, reboot alongside rhodes once $ "dr" # gain 1 @@ -14,7 +11,7 @@ let mBreak = (midiOn "^41" (mask "t f . f t")) let g1 = (gDJF1) let g2 = (gDJF2) let m = mBreak -d1 $ g1 -- +d1 $ g1 $ m -- $ mask "" $ midiOn "^42" (<| "k k k k]>") $ midiOff "^42" (<| "k . ~ k*<1!3 2 2 2 1 2> <~ ~ k >") @@ -40,7 +37,7 @@ d2 $ g1 $ m -- BREAK # octersubbus 21 (range 0 1.82 "^52") # midiG' "^80" 0 1.2 # cut 2 -d4 $ g1 -- Drumroll! +d4 $ g1 $ m -- Drumroll! $ "drum:2*[8!3 <<8 [8 [8|16]]>!6 [8 4]!2>]" # room "^53" # dry 0.99 @@ -49,7 +46,7 @@ d5 $ g2 $ midiOn "^58" (superimpose ( (|+| note ( arp "" - "c'maj'8") + "c'maj'8" - 12) ))) $ struct "~ t" $ slow 4 @@ -63,15 +60,22 @@ d5 $ g2 d8 $ g2 $ whenmod 8 4 (rarely (striate 2)) $ whenmod 16 8 (sometimesBy "0 1" rev) - $ midiOn "^60" ( + $ midiOn "^59" ( slice 2 (run "<2 1 2 4 1 4 6 16>") ) $ loopAt 2 $ "forgan:2" - # midiG' "^84" 0 1 - # crushbus 8 (range 16 1.5 "^56") + # midiG' "^83" 0 1 + # crushbus 8 (range 16 1.5 "^55") # cut 8 # pan 0.8 +d9 $ g1 $ m + $ midiOff "^60" (mask "") + $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]") + $ midiOff "^92" (<| "~ c") + $ "clap" + # speed (range 0.5 1.5 "^56") + # midiG' "^84" 0 1.7 diff --git a/live/midi/nova/dnb/meurice.tidal b/live/midi/nova/dnb/meurice.tidal index b90c4ee..7340536 100644 --- a/live/midi/nova/dnb/meurice.tidal +++ b/live/midi/nova/dnb/meurice.tidal @@ -80,7 +80,7 @@ d7 -- Guitar B # lsize (1 + (slow 8 perlin * 2)) # lrate 6.7 # cut 71 -d8 $ g -- Clave de l'été pitchable +d8 -- Clave de l'été pitchable $ midiOn "^59" (fast 2) $ midiOn ("^91"-"^59") (fast 2) $ (|* gain "0.75 1 1 1 0.75 1 1 1") @@ -100,7 +100,7 @@ d10 -- Nappes crushées indépendantes # cut 10 # djfbus 2 (range 0.05 0.95 "^29") # crushbus 10 (range 16 1.5 "^36") - # midiG' "^56" 0.2 0.8 + # midiG' "^56" 0.2 1 d11 -- Sirene indépendante TODO Blend-in / Rework? $ note ("/4") # octave 3 diff --git a/live/midi/nova/lofi/back_baby.tidal b/live/midi/nova/lofi/back_baby.tidal index 5d3a6c7..6699eae 100644 --- a/live/midi/nova/lofi/back_baby.tidal +++ b/live/midi/nova/lofi/back_baby.tidal @@ -21,12 +21,23 @@ d2 # note "-5" # midiG' "^79" 0 0.8 d3 $ g - $ sometimesBy "0 1 0 0" (ply 16) + $ sometimesBy "0 1 0 0" (ply "<16 8>") $ "h h h ,2,<0!3 1>) [~!3 h]>" # "hh27:3" # release 0.8 # cut 3 # gain 0.5 + # midiG' "^80" 0 0.8 +d4 -- BASSLINE Résolue + $ g + $ mask "" + $ ply "1 <1!4 2 2 [2 4] [8 4]>" + $ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>" + $ "fbass:43" + # midiG' "^81" 0 0.8 + # cut 4 + # pan 0.2 + # room 0.2 # dry 0.99 # sz 0.7 d10 $ g $ note ( @@ -40,17 +51,7 @@ d10 # sz 0.8 # pan 0.24 # voice 0.03 - # gain 0.45 -d4 -- BASSLINE Résolue - $ g - $ mask "" - $ ply "1 <1!4 2 2 [2 4] [8 4]>" - $ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>" - $ "fbass:43" - # gain 0.46 - # cut 4 - # pan 0.2 - # room 0.2 # dry 0.99 # sz 0.7 + # midiG' "^82" 0 0.5 d5 -- Guitare Ressort $ mask "" $ someCyclesBy "" -- degrade @@ -66,7 +67,7 @@ d5 -- Guitare Ressort # dry 0.99 # cut 5 # pan 0.8 - # gain 0.35 + # midiG' "^83" 0 0.8 d6 -- Sliced Electropiano $ jux (("" ~>) . (|* gain 0.65) . (# cut 61)) -- Brother echo! $ someCyclesBy "<0!16 0!8 1!8>" (slice 16 ("<0 1 2 3 4 5 6 7>" + "<0!4 8!4>")) @@ -75,6 +76,7 @@ d6 -- Sliced Electropiano $ "fepiano:26" # pan 0.3 # gain 0.47 + # midiG' "^84" 0 0.8 # cut 6 diff --git a/live/mood/fight/grimpe.tidal b/live/mood/fight/grimpe.tidal new file mode 100644 index 0000000..5e80a15 --- /dev/null +++ b/live/mood/fight/grimpe.tidal @@ -0,0 +1,59 @@ +-- Tais-toi et grimpe ! +do +setcps (90/60/4) +let gDJF1 = (# djfbus 1 (range 0.05 0.9 "^49")) +let gDJF2 = (# djfbus 2 (range 0.01 0.99 "^29")) +let mBreak = (midiOn "^41" (mask "t f . f t")) +let mBreakManual = (midiOn "^73" (mask "f*16")) +let g1 = (gDJF1) +let g2 = (gDJF2) +let m = mBreak . mBreakManual +d1 $ g1 + $ midiOn "^74" ((<| "k*4 . k k k ") . (superimpose ((# "bassfoo") . (|* gain 0.8)))) + $ midiOn "^42" (<| " . k k*<2 1 2 [2|1]>") + $ midiOff "^42" ((<| "k . ~ k ~ ~") . m) + $ "[jazz,cpu]" + # midiG' "^78" 0 1 +d2 $ g1 $ m + $ "~ s ~ s" # "sn:1" + # midiG' "^79" 0 1 +d3 $ g2 $ m + $ whenmod 8 6 (fast "<2 [4 . 2 1]>") + $ "drum:2*[8!3 <16!3 [32 16]>]" + # midiG' "^51" 0 0.65 + # pan 0.8 +d4 $ g2 $ m + $ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^52")) + $ midiOn "^76" rev + $ whenmod 8 7 rev + $ slice 8 ("0 1 2 3" + "<0!3 4>") + $ loopAt 2 $ "fbreak100" + # midiG' "^80" 0 1 +d5 $ g2 $ m + $ note (scale "aeolian" ("0 . 5 <4!3 2>")) + # "moog" + # cut 5 + # pan 0.2 + # crushbus 50 (range 10 2.1 "^53") + # midiG' "^81" 0 1 +d6 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>")) + # "pluck:5" + # cut 6 + # att 0 + # rel (0.25 + 0.1 * perlin) + # crushbus 60 (range 10 1.9 "^54") + # pan 0.8 + # room 0.4 + # midiG' "^82" 0 0.6 +d7 $ g2 + $ midiOff "^59" (mask "t f!7 . t f!3 t f!3") + $ note (scale "aeolian" ( + "[0 <7!3 0> <~ 2> 2 3] . 5 7 <4!3 2> <2!3 4>" + + "[0,7]" + - 14 + )) + # "doubleBass" + # room 0.4 + # sz 0.8 + -- TODO: Add cool effect (crush doesn't work well) + # midiG' "^83" 0 1 -- libgit2 0.27.0