From d6e264cb68ce59d408be4701b89252441d0a4474 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sat, 24 Jul 2021 18:23:28 +0200 Subject: [PATCH] Update: until nass arrive --- live/chill/atm/hors_amsterdam.tidal | 103 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/dnb/nass_arrive.tidal | 102 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/funky_veranda.tidal | 85 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/FM/heure_a_perdre.tidal | 3 ++- live/midi/nova/breaks/solar.tidal | 112 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/dnb/meurice.tidal | 4 ++-- live/midi/nova/fusion/elephunk.tidal | 5 +++-- live/midi/nova/instruments/AtomicRhodes.tidal | 4 +--- live/midi/nova/instruments/scratchomatic.tidal | 11 ++++------- live/midi/nova/lofi/back_baby.tidal | 3 ++- live/midi/nova/lofi/new_dust.tidal | 7 ++++--- live/midi/nova/lounge/blade_dreamer.tidal | 2 +- live/midi/nova/lounge/hoover_sepia.tidal | 1 + live/midi/nova/lounge/invoque_ete.tidal | 6 +++--- live/midi/nova/lounge/michael.tidal | 15 ++++++++------- live/midi/nova/minneapolis.tidal | 4 ++-- 16 files changed, 435 insertions(+), 32 deletions(-) create mode 100644 live/chill/atm/hors_amsterdam.tidal create mode 100644 live/dnb/nass_arrive.tidal create mode 100644 live/funky_veranda.tidal create mode 100644 live/midi/nova/breaks/solar.tidal diff --git a/live/chill/atm/hors_amsterdam.tidal b/live/chill/atm/hors_amsterdam.tidal new file mode 100644 index 0000000..13eb712 --- /dev/null +++ b/live/chill/atm/hors_amsterdam.tidal @@ -0,0 +1,103 @@ +resetCycles + +do +setcps (70/60/4) +let prog = ">" +let blocker = degradeBy "<0!128 0.5 0.75 0.8 0.9 1!124>" +d1 + $ blocker + $ mask "" -- Outro + $ mask "" -- Intro partie + $ mask "" -- Pont1 + $ "k(<1!4 2 1 <3 <4 5>>>,8) . <~!16 k!16> <~!8 k!8> <~!2 [k k?]? k*2>" + # "[super808,jazz]" + # gain (0.5 + 0.15 * (slow 32 sine)) + # room 0.5 + # sz 0.7 + # dry 0.9 +d2 + $ blocker + $ degradeBy "<[0 0.8!7] 0.5 0.25 0 0!28>" -- intro + $ mask "" -- Pont1 + $ n (stack [ + "~ 0*<[2 <4 8 16 [16 8]>]>", + (fast ("4 8" * "1 <2 2 2 [2 1] 2 2 1 [2 4]>") "5"), + "9(<0!16 <5!3 [5 8]>!16>,8)", + "" + ]) + # "amencutup" + # gain 0.5 +d3 -- Bassline + $ blocker + $ someCyclesBy "<0!32 1!8 1!24>" (# hpf 1000) -- Pont1 + $ mask -- Degradation sur 32 par 8: intro/full/degrade/outro + "" + $ note prog + # crush "<10!30 8 5 10!16 8 7 6 5 5 5 5 4.5 5 6 7 8 5!4>" + # "bassWarsaw" + # gain 0.55 + # pan 0.2 +d4 -- Epiano ritournelle cut + $ blocker + $ mask "" -- Intro + $ mask "" -- Outro + $ someCyclesBy "<0!32 1!8 1!24>" (# hpf 1000) -- Pont1 + $ whenmod 128 64 ( + # panbus 32 (slow 64 $ range 0.95 0.5 saw) + ) + $ whenmod 64 32 ( + # crushbus 31 (slow 32 $ range 16 4.5 saw) + ) + $ slice 4 ("<0 [0 1] 1 0*[8 <1 16>]>" + (slow 16 "<0 2>")) + $ "fepiano:8" + # cut 3 + # gain 0.45 + # room 0.3 + # pan 0.3 +d5 -- Piano base gauche / glitchy monomaniaque droite + $ blocker + $ mask "" -- Intro + $ mask "" -- Outro + $ mask "" -- Off begin second part + $ someCyclesBy "<0!32 1!8 1!24>" (# hpf 1000) -- Pont1 + $ superimpose ( + whenmod 32 8 (sometimesBy (slow 32 $ range 0 0.5 saw) (ply 2) ) + . (|+ note "12 24") + . struct "~ . t(<5!3 [5|8]>,8,<0 0 1 2>)" + ) + $ note (prog + + "<~!3 0> <0!3 [12 <~ 0 12 [12 0]>]>" + ) + # "superpiano" + # velocity (slow 32 $ range 0.25 0.4 saw) + # pan 0.75 +d6 -- Trombones de combat + $ blocker + $ mask "" -- Outro + $ mask "" -- Second half of each part + $ note (prog + + "0(<3!3 [3 <1!3 5>]>,8) [12 . <12!4 ~> <~!4 12!4> <9 9 12 9> 12]" + + "1" -- fix note base sample + ) + # octave 6 + # "rootsTromb:4" + # cut 6 + # gain (slow 16 $ range 0.65 0.4 saw) + # pan "<[0.65 0.65 0.5 0.65]!3 0.35>" +d7 + $ blocker + $ mask "" -- Outro + $ mask "" -- Second part + $ slice 4 "<0!3 1>" + $ "rootsTrump:5" + # cut 7 + # gain 0.5 +d10 -- Drumroll scred + $ blocker + $ someCyclesBy "<0!32 1!8 1!24>" (# hpf 1000) -- Pont1 + $ jux rev + $ whenmod 8 4 (degradeBy (slow 32 $ range 0.5 0.05 cosine)) + $ "amencutup:28*[<16!4 [<8!4 16!4> . <8 16>]!4> . 0 <16 [16 32] 16 32>]" + # dry 0.99 + # pan (slow 4 $ range 0.25 0.75 saw) + # gain 0.45 diff --git a/live/dnb/nass_arrive.tidal b/live/dnb/nass_arrive.tidal new file mode 100644 index 0000000..3246e7f --- /dev/null +++ b/live/dnb/nass_arrive.tidal @@ -0,0 +1,102 @@ +do +-- resetCycles +setcps (140/60/4) +let modIndex = pF "modIndex" +let pTechno = "<0!64 1!64>" +let whenTechno = someCyclesBy pTechno +let whenDNB = someCyclesBy (1 - pTechno) +d1 + $ mask "" + $ whenTechno (<| "k*4") + $ whenDNB (<| "k . ~ ~ <~!7 k>") + $ "[jazz,kick:5]" + # gain 1.1 + # room 0.1 +d2 -- Snare contretemps DNB Techno-compatible + $ mask "" + $ "~ s ~ [s <~ s? ~ s*<1 2>>]" + # "[cpu:2,snare:35,]" + # gain 1.44 +d3 -- DrumRoll + $ mask "" + $ whenmod 4 2 (rarely (ply 2)) + $ fast "8 <[8|8 4|8|16 8|16]!3 [16 <8 32>]>" $ "[drum:2,cpu2:3]" + # gain 0.96 +d4 -- BASSLINE + $ mask "" + $ whenTechno (chop "<8 8 4 <8 16>>") + $ superimpose ( -- Aigu complément + ("e" ~>) . (# voice 100) + . (# pan 0.4) + ) + $ superimpose (|+| note "~ 7(<3!3 5>,8)") + $ whenmod 32 24 (# note ">") + $ note ">" + # octave 3 + # "supersaw" + # crushbus 4 (slow 16 $ range 16 4 saw) + # voice 0.1 + # room 0.2 + # pan 0.2 + # gain 0.84 +d5 -- Mad organ + $ whenTechno ((|* gain 1.3)) + $ mask "" + $ someCyclesBy "" (slice 4 "0 0 0 0*<1 2>") -- PRE-DROP + $ someCyclesBy "" (mask "") + $ "forgan:24" + # cut 5 + # crushbus 5 (range 16 4 (slow 2 perlin)) + # gain 1.28 + # pan 0.9 + # hpf (slow 32 $ range 0 2500 sine) + # room (slow 16 $ range 0 0.4 perlin) +d6 -- Rhodes arps <3 + $ someCyclesBy "" (struct "t(<<1 3> <2 4>>,4)") + $ mask "" + $ whenTechno (struct "t(<10 12 8 4 10 12 8 16>,16)") + $ degradeBy ("0 0.5!15" - (slow 16 cosine)) + $ whenmod 32 24 (sometimesBy "0 1" rev) + $ note (">" + + (arp "up" "<[c'maj'4 c'maj'3]!12 [c'maj'4 c'maj'3]!4>") + + "0 12" + - 24) + # "[FMRhodes2,FMRhodes1]" + # modIndex (slow 4 $ range 0 10 saw) + # crushbus 6 (slow 16 $ range 16 4 saw) + # pan 0.6 + # room 0.4 + # gain (1.2 * "<1!20 0.9!44>") + -- # gain (slow 16 "<0.5 0.75>" + (slow 16 $ range 0.125 0.5 saw)) +d7 -- GLITCH NOISES + $ mask "<[f t]!8 f!8 t!48>" + $ fix (|* gain 0.6) (n 3) + $ fix (|* gain 0.5) (n 6) + $ n "[[~ <~!4 3!4> ~ 3],[6*<1 2 4 2>],7,8(<3 5 8>,8)]" + # "cosmicg" + # pan 0.8 + # lpf 1200 + # gain 0.78 +d8 -- GLITCH DNB + $ mask "" + $ n "12 11 . ~ 12 11 <~!3 <11 [~ 11]>>" + # note "-1 0 . -1 0" + # "cosmicg" + # pan 0.2 + # room 0.5 + # dry 1 + # gain 0.8 +d9 -- Claps occasionnels + $ mask "" + -- $ "[~ cp]*<1 1 1 2 2 2 4 8>" + $ "[~ cp]*<1 1 2 4>" + # "cp" + # gain 1.1 + # room 0.2 + # lpf 2000 + + + do + setcps (140/60/4) + d1 $ slow 8 $ note (scale "aeolian" (run 32)) + # "arpy" # gain 1.4 diff --git a/live/funky_veranda.tidal b/live/funky_veranda.tidal new file mode 100644 index 0000000..81ae5b5 --- /dev/null +++ b/live/funky_veranda.tidal @@ -0,0 +1,85 @@ +resetCycles + +do +setcps (60/60/4) +d1 + $ mask "t " + $ "k . k]>" + # "[jazz,cpu2,reverbkick]" + # att 0 + # rel 0.9 + # lpf 1050 + # gain 1 +d2 -- Broken break! + $ mask "" + $ whenmod 4 3 (mask "t ") + $ whenmod 16 10 (striate "2 <2 4>") + $ whenmod 8 6 (slice 8 "1!8") + $ loopAt 2 + $ slice 8 (run "<8!3 16>") + $ "fbreak80:3" + # gain (slow 32 $ range 0.65 1.05 cosine) + # cut 2 +d3 -- HiHat roll + $ fast "1 <2 <1 4>>" + $ "h*[8 16]" # "hh" + # note "<0!4 2!3 0>" + # gain ((slow 16 $ range 0.4 0.57 saw) + 0.1 * perlin) + # lrate 0.5 + # leslie 6 # cut 21 +d4 -- Rhodes nappes+arps + $ superimpose ( -- Laggy Arps + chop "<1!16 <1 2>!16>" + . struct "t(<3 3 3 [3 1] 5 5 5 [5 8] 8 8 5 8 16 [16 8] 5 [8 16]>,8)" + . arp "disconverge converge" + . off "h" (|+ note 12) + . (# pan 0.8) + . (|* gain 1.3) + . (# room 0.5) + . (# sz 0.9) + . (# cut 41) + . (# "FMRhodes2") + ) + $ note ("ds'maj" -- BASELINE + + "<<0!4 12 0!3> <5 8>>") + # "FMRhodes1" + # octave 3 + # gain 1.1 + # room 0.32 + # dry 0.9 + # pan 0.8 +d5 -- Bassline + final arps + $ whenmod 32 24 (superimpose ( + struct "t(5,8)" + . arp "down" + . (+| note "c'maj'5") + . (# cut 51) + . (|* gain 0.95) + . (# pan 0.3) + )) + $ note ( + "" + ) + # "bassWarsaw" + # cut 5 + # pan 0.2 + # gain 0.9 +d6 + $ mask "" + $ superimpose (|+| note + "0*<1 1 2 1 2 2 1 1> <7!3 12>(<1 3 1 5>,8)" + ) + $ note "" + # "cbow:2" + # cut 6 + # pan 0.15 + # gain 0.55 + # room 0.3 # sz 0.8 +d7 + $ mask "" + $ often (off "e" ((|+ note "[0|12]") . (|* gain 0.95))) + $ note ("" + (arp "up" "")) + # "cbow:3" + # pan 0.85 + # gain 0.65 + # room 0.3 # sz 0.8 diff --git a/live/midi/nova/FM/heure_a_perdre.tidal b/live/midi/nova/FM/heure_a_perdre.tidal index 98aa78a..2c6e71b 100644 --- a/live/midi/nova/FM/heure_a_perdre.tidal +++ b/live/midi/nova/FM/heure_a_perdre.tidal @@ -46,6 +46,7 @@ let g = gDJF -- Track let prog = "" let mel = (scale "aeolian" (slow (4 - (3 * "^57")) $ arp "updown" prog)) +setcps (0.5) d1 -- Kick 4/4 $ g $ midiOn "^41" (<| "k < k!3 ~ k!3> k >") @@ -70,7 +71,7 @@ d3 $ g -- Running Hats # gain (1.7 * "^77" * "^56") d5 $ g $ off "h" id - $ midiOn "^42" (scramble 2 . often (chop "<2!3 4 2 [2 4] 2 4>")) + $ midiOn "^42" (scramble 4 . ply 2 . often (chop "<2!3 4 2 [2 4] 2 4>")) $ midiOn "^43" (off "q" ((# room 0.2) . (|* gain 0.8))) $ degradeBy ("<0 0.5> 1!7" * "^50") $ midiOn "^44" (degradeBy "0 1!5 0.5 0.25") diff --git a/live/midi/nova/breaks/solar.tidal b/live/midi/nova/breaks/solar.tidal new file mode 100644 index 0000000..d89b459 --- /dev/null +++ b/live/midi/nova/breaks/solar.tidal @@ -0,0 +1,112 @@ +do +setcps (110/60/4) +let gDJF = (# djfbus 1 (range 0.15 0.85 "^49")) +let mBreak = (midiOn "^41" (mask "t f . f t")) +let g = (gDJF) +let m = mBreak +d1 $ g -- + $ midiOn "^42" (<| "k k k k]>") + $ midiOff "^42" (<| "k . ~ k*<1!3 2 2 2 1 2> <~ ~ k >") + $ "jazz" + -- # release "<0.7!3 1>" + # midiG' "^78" 0 1.4 +d3 $ g $ m -- Snare + $ fast "<1!4 2!10 4 [4 8]>" + $ s "~ sn" + # n "[14,20]" + # note "<0!7 -4>" + # midiG' "^79" 0 1.4 +d2 $ g $ m -- BREAK + $ midiOn ("^44" - "^76") (ply 2) + $ midiOn "^76" (striate 4) + $ loopAt 2 + $ whenmod 8 6 (off "h" id . mask "t . f") + $ slice 8 (run 8) + $ "break:11" + -- # speed (range 0.5 1.5 "^52") + # midiG' "^80" 0 1.2 + # cut 2 +d4 $ g $ m + $ striate 2 + $ loopAt 2 + $ slice 8 (run 8) + $ "fbass:3" + # midiG' "^81" 0 1.2 + # crushbus 4 (range 16 1.5 "^53") + # cut 4 + # pan 0.2 +d5 $ g + $ midiOn "^58" (superimpose ( + often (ply "1 2") + . (|+| note ( + arp "" + "c'maj'8") + ))) + $ struct "~ t" + $ slow 4 + $ arpeggiate + $ note "e3'maj" + # "FMRhodes1" + # room "<0.4!3 0.7>" + # midiG' "^82" 0 1.2 +d7 $ g -- Back bows + $ superimpose ((# cut 71) + . (# n 3) + . mask "t(<1 1 0 [3 <3 1>]>,8)" + ) + $ someCyclesBy "" rev + $ struct "t(<1 <3 5>>,8)" + $ arp "up" + $ note "" + # "cbow" + # n "0" + # midiG' "^83" 0 0.7 + # room 0.3 + # pan 0.7 + # cut 7 +d8 $ g + $ whenmod 8 4 (rarely (striate 2)) + $ whenmod 16 8 (sometimesBy "0 1" rev) + $ midiOn "^60" ( + 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") + # cut 8 + # pan 0.8 + +once $ "cbow:3" # gain 0.57 # cut 21 + +-- TODO MOVE OR REMOVE + +d7 $ g -- Hello PWM! + $ (|* gain "<1!15 0.8>") + $ midiOn "^57" (chop "<[8 <4 16>]!15 1>") + $ midiOn "^89" (superimpose $ segment 16) + $ note (mel - 12) + # "superpwm" + # semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte + # accelerate "<0!7 <6 12>>" + # rate "<1!5 2 4 <1 4>>" + # resonance (slow 32 $ range 0.2 0.6 sine) + # crushbus 71 (range 10 3 "^53") + # midiG' "^81" 0 1.42 +d6 $ g -- Nappes Rhodes + $ note ( + prog + + "0 12" + ) + # "FMRhodes1" + # pan 0.2 + # modIndex (range 0 100 "^54") + # crushbus 61 (range 16 5 "^34") + # midiG' "^82" 0 1.5 +d9 $ g + $ 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 b59a615..37315c5 100644 --- a/live/midi/nova/dnb/meurice.tidal +++ b/live/midi/nova/dnb/meurice.tidal @@ -4,7 +4,7 @@ import Sound.Tidal.ParVagues.Control -- do setcps (160/60/4) -let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) let gFreqL = (# lpq (range 0 0.5 "^29")) let gFreqH = (# hpq (range 0 0.5 "^30")) let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw)) @@ -77,7 +77,7 @@ d7 -- Guitar B $ segment "<0.5!2 1 <2 4 8 [8 16]>>" $ "fguitar" # n "<25!3 [25 26] 25!2 27!2 27!8>" # pan 0.65 - # crush (range 10 2 "^54") + # crushbus 71 (range 10 2 "^54") # midiG' "^82" 0 (1.2 * (range 0.5 1.4 "^18")) # leslie "^34" # lsize (1 + (slow 8 perlin * 2)) diff --git a/live/midi/nova/fusion/elephunk.tidal b/live/midi/nova/fusion/elephunk.tidal index 22d0f51..ef899f1 100644 --- a/live/midi/nova/fusion/elephunk.tidal +++ b/live/midi/nova/fusion/elephunk.tidal @@ -5,7 +5,7 @@ resetCycles do setcps (60/60/4) let patFunk = "ds gf f " -let gDJF = (# djfbus 1 (range 0.5 0.15 "^49")) +let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let gPont = whenmod 64 32 (mask "") let g = gDJF d1 $ g $ gPont @@ -17,6 +17,7 @@ d2 $ g $ gPont $ mask "" $ "~ c ~ c" # "[clap]" # midiG "^79" d3 $ g $ gPont + $ midiOn "^76" (slice 8 (run 8) . (loopAt 0.5) . (>| "breaks165")) -- $ mask "" $ ( mask "t . t t(2,4)" @@ -66,7 +67,7 @@ d8 $ g -- Organic madness # lpf 1000 # midiG' "^83" 0 1.2 # cut 8 -d10 -- F-U-N-K +d10 -- F-U-N-K -- TODO Variations FUCK / FUN $ mask "" $ degradeBy "0 <0.5 0.45 0.35 0.3 0.25 0.2 0.15>!7 <1!3 0>" $ whenmod 64 48 (swing "<6!8 [3 4]!8>") diff --git a/live/midi/nova/instruments/AtomicRhodes.tidal b/live/midi/nova/instruments/AtomicRhodes.tidal index 14c21de..70edd1f 100644 --- a/live/midi/nova/instruments/AtomicRhodes.tidal +++ b/live/midi/nova/instruments/AtomicRhodes.tidal @@ -8,9 +8,7 @@ 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 novaOn ch pat = someCyclesBy ch pat let novaOff ch pat = someCyclesBy (1 - ch) pat -let gLPF = (# lpf (min 10000 ((range 200 20400 ("^13"))))) -let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^13")))))) -let gDJF = (gLPF . gHPF) +let gDJF = (# djfbus 1 (range 0.05 0.95 "^13")) -- region Args FMRhodes let rel = pF "rel" -- 1 let lfoSpeed = pF "lfoSpeed" -- 4.8 diff --git a/live/midi/nova/instruments/scratchomatic.tidal b/live/midi/nova/instruments/scratchomatic.tidal index b7dad90..5cfde6b 100644 --- a/live/midi/nova/instruments/scratchomatic.tidal +++ b/live/midi/nova/instruments/scratchomatic.tidal @@ -4,16 +4,14 @@ let gG a = (gain (gF * a)) -- gain Global let gR l h a = (gain (range l h a)) -- gain Modulé noglob 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 ("^29"))))) -let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^29")))))) -let gDJF = (gLPF . gHPF) +let gDJF = (# djfbus 1 (range 0.05 0.95 "^29")) let novaOn ch pat = someCyclesBy ch pat let novaOff ch pat = someCyclesBy (1 - ch) pat let novaNo c1 c2 pat = someCyclesBy ((1 - c1 - c2)) pat -- let gRythm = (novaOn "^41" (euclid 3 8)) . (novaOn "^42" (fast 4)) . (novaNo "^41" "^42" (fast 2)) let gCPS = (# cps ((range 60 124 "^13")/60/4)) let g = gCPS . gDJF -let gAcc = g . (novaOff "^41" (# silence)) . (|* gain "^84") +let gAcc = g . (novaOff "^41" (# silence)) . (|* gain (range 0 2 "^84")) d10 $ gAcc -- Kick $ "k(3,8) . >" # "[jazz,hh:6]" # att 0.3 # sus 0.3 @@ -62,9 +60,8 @@ 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 - # pan 0.7 - + # gain 1 + # pan 0.5 # cut 11 -- Company funky diff --git a/live/midi/nova/lofi/back_baby.tidal b/live/midi/nova/lofi/back_baby.tidal index 2600738..5d3a6c7 100644 --- a/live/midi/nova/lofi/back_baby.tidal +++ b/live/midi/nova/lofi/back_baby.tidal @@ -1,5 +1,6 @@ import Sound.Tidal.ParVagues.Control +resetCycles do setcps (80/60/4) @@ -39,7 +40,7 @@ d10 # sz 0.8 # pan 0.24 # voice 0.03 - # gain 0.25 + # gain 0.45 d4 -- BASSLINE Résolue $ g $ mask "" diff --git a/live/midi/nova/lofi/new_dust.tidal b/live/midi/nova/lofi/new_dust.tidal index c16084d..43c213a 100644 --- a/live/midi/nova/lofi/new_dust.tidal +++ b/live/midi/nova/lofi/new_dust.tidal @@ -1,5 +1,6 @@ import Sound.Tidal.ParVagues.Control + -- New Dust: LoFi howto dust to dust do setcps (60/60/4) @@ -90,7 +91,7 @@ d5 $ g -- Infectious Bassline # crush (range 16 2.5 "^54") # midiG' "^82" 0 1.3 # room 0.2 -d7 -- TOYS +d7 -- TOYS TODO Rework classico louche $ degradeBy (0.99 - "^55") $ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1")) $ slice 8 (stack [ @@ -98,7 +99,7 @@ d7 -- TOYS "<0!4 1 0 1 [0 1]>*<4!4 8 4 8 8>", -- Toy melod ""]) $ "toys" - # midiG' "^83" 0 0.75 + # midiG' "^83" 0 0.7 d8 $ g -- Toy bogdan $ fix (|* gain 0.75) "hh" $ every' 16 15 (>| "~ ~ ~ bogdan:4") @@ -125,5 +126,5 @@ d9 $ g -- Toy Dusty -- "0 1*2 2 ~ ~ ~ ~ ~" ]) $ "dusty" - # cut 9 # gain 0.65 + # cut 9 # midiG' "^56" 0.3 1.1 diff --git a/live/midi/nova/lounge/blade_dreamer.tidal b/live/midi/nova/lounge/blade_dreamer.tidal index 8895f0c..ae8d817 100644 --- a/live/midi/nova/lounge/blade_dreamer.tidal +++ b/live/midi/nova/lounge/blade_dreamer.tidal @@ -3,7 +3,7 @@ resetCycles -- Blade Dreamer: For you I will use Vangelis' synth <3 do let chord = "d4'min7'4" -let gF = midiDJF "^49" 200 9800 0 2000 +let gF = (# djfbus 1 (range 0.1 0.9 "^49")) -- let gDJF = (whenmod 32 28 (# lpf (max 200 (slow 16 $ range 5000 0 sine)))) let g = gF let chords = "" diff --git a/live/midi/nova/lounge/hoover_sepia.tidal b/live/midi/nova/lounge/hoover_sepia.tidal index 38e5187..2249b3b 100644 --- a/live/midi/nova/lounge/hoover_sepia.tidal +++ b/live/midi/nova/lounge/hoover_sepia.tidal @@ -41,6 +41,7 @@ d4 $ g -- Hoover bassline # crushbus 31 (range 16 1 "^53") # ampb 32 (range 0 0.125 "^81") # pan 0.2 + # gain 0.8 # legato 1.05 d5 $ g -- Arp aigus Rhodes $ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)") diff --git a/live/midi/nova/lounge/invoque_ete.tidal b/live/midi/nova/lounge/invoque_ete.tidal index ad0b788..1343244 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -71,7 +71,7 @@ d7 $ g $ "fpiano:13" # pan 0.45 # room 0.2 - # gM' 0 1.3 "^83" + # gM' 0 1.4 "^83" # cut 7 d8 $ g $ midiOn "^92" (|+ note 12) @@ -85,9 +85,9 @@ d8 $ g )) $ note "" # octave 4 - # room 0.4 + # room 0.24 # "moogBass" - # midiG' "^84" 0.3 1.4 + # midiG' "^84" 0.3 0.9 d9 $ g $ degradeBy (slow 16 $ range 0.8 0.2 saw) $ struct "t(3,8) [ ]" diff --git a/live/midi/nova/lounge/michael.tidal b/live/midi/nova/lounge/michael.tidal index da8a4ed..3d3bb10 100644 --- a/live/midi/nova/lounge/michael.tidal +++ b/live/midi/nova/lounge/michael.tidal @@ -3,7 +3,7 @@ resetCycles -- Michael: lounge piano/brass tech/break do -let gDJF = midiDJF "^49" 200 9800 0 1000 +let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let g = gDJF setcps (120/60/4) d1 $ g @@ -17,6 +17,7 @@ d2 $ g $ whenmod 8 6 (ply "2 <2 4>") $ "~ s . ~ <~!7 s> <~!3 s>" # "snare:20" # midiG "^79" + # note (range "-12" 12 "^50") d3 $ g $ midiOn "^44" (slow 2) @@ -32,9 +33,11 @@ d4 $ g -- Synth brass choir $ midiOn "^57" (# crush 6) $ fix ( (# "fsynth:3") - . (|- note 24) + . slice 8 "0 1 2*<<1 2> 1 2 1> 3*<<1 2> 4>" + . arp "pinkyup" . (|+ pan 0.1) - . (|* gain "^53") + . (>| note ("c'maj'3" - 7)) + . (|* gain ("^17" * 0.9)) ) "a" $ fix ( (# "fsynth:3") @@ -45,11 +48,9 @@ d4 $ g -- Synth brass choir ) "b" $ fix ( (# "fsynth:3") - . slice 8 "0 1 2*<<1 2> 1 2 1> 3*<<1 2> 4>" - . arp "pinkyup" + . (|- note 24) . (|+ pan 0.1) - . (>| note ("c'maj'3" - 7)) - . (|* gain ("^17" * 0.9)) + . (|* gain "^53") ) "c" $ slice 4 "<0 1 2 3>" $ "[a,b,c]" diff --git a/live/midi/nova/minneapolis.tidal b/live/midi/nova/minneapolis.tidal index 02dd82f..4a4c63c 100644 --- a/live/midi/nova/minneapolis.tidal +++ b/live/midi/nova/minneapolis.tidal @@ -6,12 +6,12 @@ -- >1C 2C 3C 4C 5C 6C 7C 8C -- `49 50 51 52 53 54 55 56` + -- XXX XXX XXX XXX XXX pSust fSpd gunFreq -- Dlay DFB XXX XXX crBass pRVel cpStut gunSpd -- 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.5 -- gain factor @@ -43,7 +43,7 @@ d2 $ g $ every' 8 7 (mask "f t!3" . jux rev) $ s "~ s ~ <~!4 s!4> ~ s*2 ~ s*2" # s "snare:20" - # gM' 0 0.8 "^79" + # gM' 0 1.2 "^79" # pan 0.3 d3 $ g -- Drumroll opposé hit roll / hh when TECHNO $ novaOn "^41" ( -- TECHNO bells! -- libgit2 0.27.0