From c03113019dc7a5926aae7dae75a7dd24782c7444 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Tue, 22 Jun 2021 12:15:14 +0200 Subject: [PATCH] live: Sexes to FDLM2021 --- live/boeuf/_clock.tidal | 17 +++++++++++++++++ live/boeuf/samedi_chill.tidal | 41 +++++++++++++++++++++++++++++++++++++++++ live/boeuf/vendredi_saint.tidal | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/collab/Sexes/julien.tidal | 148 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------- live/dub/fdlm2021.tidal | 205 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/hip/lofi/back_baby.tidal | 6 +++--- live/midi/jazz_tech_piano.tidal | 2 +- live/midi/nova/breaks/StolenChoir.tidal | 5 +++++ live/midi/nova/breaks/break_90s.tidal | 2 +- live/midi/nova/breaks/break_low.tidal | 4 ++-- live/midi/nova/computer_riddim.tidal | 42 ++++++++++++++++++++++++++++-------------- live/midi/nova/dnb/lucy_rode.tidal | 9 ++++++--- live/midi/nova/dnb/meurice.tidal | 2 +- live/midi/nova/dnb/noname.tidal | 104 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/fusion/elephunk.tidal | 38 ++++++++++++++++++++++---------------- live/midi/nova/lofi/dark_money.tidal | 22 ++++++++++++---------- live/midi/nova/lofi/new_dust.tidal | 2 +- live/midi/nova/lounge/hoover_sepia.tidal | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/lounge/invoque_ete.tidal | 4 ++-- live/midi/nova/party/electro_blues.tidal | 22 ++++++++++++---------- live/midi/nova/party/hoover_sepia.tidal | 59 ----------------------------------------------------------- live/midi/nova/party/last_one.tidal | 11 ++++------- live/midi/nova/punk/hello_poesie.tidal | 11 ++++++----- live/mood/tired/afternoon.tidal | 4 ++-- 24 files changed, 725 insertions(+), 174 deletions(-) create mode 100644 live/boeuf/_clock.tidal create mode 100644 live/boeuf/samedi_chill.tidal create mode 100644 live/boeuf/vendredi_saint.tidal create mode 100644 live/dub/fdlm2021.tidal create mode 100644 live/midi/nova/dnb/noname.tidal create mode 100644 live/midi/nova/lounge/hoover_sepia.tidal delete mode 100644 live/midi/nova/party/hoover_sepia.tidal diff --git a/live/boeuf/_clock.tidal b/live/boeuf/_clock.tidal new file mode 100644 index 0000000..f9c5a84 --- /dev/null +++ b/live/boeuf/_clock.tidal @@ -0,0 +1,17 @@ +p "midiclock" $ midicmd "midiClock*48" # s "midi" +-- Your MIDI device should then adjust its BPM to Tidal's cps. + +-- Then it's worth sending a stop message like this: +once $ midicmd "stop" # s "midi" + +-- and then finally a start message to start the MIDI clock at the right time. The following sends a start message every fourth cycle: +p "midictl" $ midicmd "start/4" # s "midi" + +-- Once everything's started and in sync, it's probably best to stop sending the start messages to avoid glitching: +p "midictl" $ silence + +-- However now if you do hush, the midiclock will stop as well as all the other patterns. To avoid this, you can overwrite the hush function with a version that silences particular patterns: +let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16] + +-- You will probably find that the downbeats for SuperDirt and your MIDI devices don't align. As a starting point, set MIDI latency in supercollider to 0: +~midiOut.latency = 0; diff --git a/live/boeuf/samedi_chill.tidal b/live/boeuf/samedi_chill.tidal new file mode 100644 index 0000000..410cc27 --- /dev/null +++ b/live/boeuf/samedi_chill.tidal @@ -0,0 +1,41 @@ +import Sound.Tidal.ParVagues.Control + + +setcps 0.5 + +do +let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) +let gDeg = (degradeBy (0.9 * "0 ^29!7 0")) +let g = gDJF +let chill = "" +d1 $ g + $ midiOn "^41" (<| "k k k k]>") + $ midiOff "^41" (<| "k . k(<1 <3 5>>,8)") + $ "jazz" + # midiG' "^78" 0 1.4 +d2 $ g $ gDeg + $ "~ . s <~!3 s> <~!7 s> <~ ~ s <~ >>" + # "snare:34" + # midiG' "^79" 0 2 + # note (range "-12" "12" "^51") +d3 $ g $ gDeg + $ juxBy "52" rev + $ whenmod 16 8 (often (slow "<4!3 2>")) + $ midiOn "^44" (splice 16 ("0 1 2 3*<4 4 2 4> 0 1 6 7(3,8)")) + $ loopAt 2 + $ "break" + # midiG' "^80" 0 1.8 + # cut 3 +d4 $ g $ gDeg + $ midiOn "^41" (fast 2) + $ "hh*[4 <4 4 4 8 [8 4]!2 4 8>]" + # midiG' "^81" 0 1.8 + # note (range "-12" "12" "^53") +d5 + $ someCyclesBy 0.2 (scramble 4) + $ rarely (ply "2 <4 8>") + $ slice 8 (run 8) + $ loopAt "<1!6 2 2>" + $ "breaks165" + # cut 3 + # midiG' "^82" 0 1.8 diff --git a/live/boeuf/vendredi_saint.tidal b/live/boeuf/vendredi_saint.tidal new file mode 100644 index 0000000..3fd77da --- /dev/null +++ b/live/boeuf/vendredi_saint.tidal @@ -0,0 +1,80 @@ +import Sound.Tidal.ParVagues.Control + +setcps 0.5 + +d4 $ n "0 2 4 12" # s "midi" + + +do +let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) +let g = gDJF +d1 $ g + $ midiOn "^41" (fast 2) + $ "[cpu2]*2" + -- # att "^30" + -- # rel "^50" + # midiG' "^78" 0 2 + # room 0.2 + -- # crushbus 11 (range 16 0.95 "^14") +d2 $ g + $ midiOn ("^41"-"^43") (fast 2) + $ midiOn "^41" (|+ gain 0.7) + $ "~ [cp,clap:1]" + # midiG' "^79" 0 3 + # note (range "-12" "12" "^51") + # room 0.4 # dry 0.98 + # crushbus 11 (range 16 1.95 "^15") +d3 $ g + $ midiOn ("^44" + "^76") ( + const $ loopAt "<1!6 2 2>" + $ someCyclesBy 0.2 (scramble 4) + $ rarely (ply "2 <4 8>") + $ slice 8 (run 8) + $ "breaks165" + # cut 3 + # note (range "-12" "12" "^52") + # midiG' "^80" 0 1.8 + ) + $ rarely ("e" ~>) + $ every' 4 3 (fast "<1 2> <2 4>") + $ "drum:2*8" + # midiG' "^80" 0 1.5 +d4 $ g -- Mecano Course + $ fast 4 + -- $ midiOn "^76" (fast "<2!3 <4 [4 2]>>" . (# speed 1.2) . (>| "breaks165")) + $ midiOn "^57" ( + slice 16 ("0*<1 2> 1 2 3*<2 1>") + -- . (>| "breaks125") + ) + $ midiOn "^89" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>") + $ sometimesBy "0 ^33!7" (shuffle 8) + $ someCyclesBy "^53" (iter 4) + -- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>" + $ chop 8 + $ loopAt 2 $ "breaks125:3" + # midiG' "^81" 0 1.2 + # cut 4 +d5 -- Runny Maracas Pitchables + $ g + $ mask "t(16,32)" + $ midiOn "^90" (ply "<2!3 4>") + $ 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' "^82" 0 2 + # room "^34" + # note (range "-24" "0" "^18") + # crushbus 51 (range 16 4.2 "^54") + + +d8 $ g + $ note (scale "aeolian" (iter 4 $ slow 4 $ arpeggiate "c'min'4") - 24) + # "supersaw" + # midiG' "^56" 0 1 + # crushbus 51 (range 16 2 "^36") + + # pan 0.2 + # velocity 0.9 + # room 0.4 diff --git a/live/collab/Sexes/julien.tidal b/live/collab/Sexes/julien.tidal index ccbe957..b9a4c9e 100644 --- a/live/collab/Sexes/julien.tidal +++ b/live/collab/Sexes/julien.tidal @@ -1,10 +1,10 @@ -setcps 0.5 -- One pattern per two seconds -- TODO: Intro basse volume -- TODO: Intro rhodes volume premiere note --- TODO: better bass volume, more manual than sine? -- TODO: filtered outro -- TODO: filler notes bass 8/8 +-- TODO Replace scaffolding with relevant noises +setcps 0.5 -- One pattern per two seconds -- Intro -- Rouge -- Blanc -- Generique -- FIN -- 0 68 131 143 166 @@ -12,23 +12,29 @@ setcps 0.5 -- One pattern per two seconds -- 0 34 65 71 86 do -- resetCycles -let intro = mask "" -let fromVelo = mask "" -let fromSophie = mask "" -let rouge = "<0!36 1!6 0!2 1!2 0!3 1!2 0!6 2!12 0!90>" +let intro = mask "" +let fromVelo = mask "" +let fromSophie = mask "" +let rouge = "<0!30 [0 1] 0!5 [1 0 1 1] 1!5 [1!3 0] 0 [0 1!3] 1 0!3 1!4 [1 0!3] 0 0 [0 1] 1!12 0!90>" let outro = "<0!150 1!16>" let lOutro = 16 +let whenEnd = whenmod 160 86 +let whenEndRouge = whenmod 86 68 let whenRouge = someCyclesBy rouge let whenNotRouge = someCyclesBy (1 - rouge) let whenOutro = (someCyclesBy outro) --- let gain amount = (gain (amount * 1.5)) -d1 +let gPluck = "<0.28!6 0.32!8 0.335!82>" +let prog = ">" +let g = (whenEnd (# silence)) +-- d12 $ whenRouge (|- note 12) $ "superpiano*4" # velocity 0.2 -- Caleur rouge +d1 $ g $ intro $ whenRouge (fast 4) -- Rouge + $ whenEndRouge (|* gain (slow 16 $ range 1 0.5 saw)) $ superimpose ((# "reverbkick") . (# hpf 200) . (|* gain 0.7) .(# legato "<1!4 !4>")) $ "jazz" # gain 0.45 # lpf 200 -d3 +d3 $ g $ intro $ whenOutro (degradeBy (slow lOutro $ range 0.1 0.95 sine)) $ whenRouge (sometimesBy "<0.25 0.5 0.5 <0.75 0.9>>" (mask "t(16,32)" . ply 2)) @@ -36,7 +42,7 @@ d3 $ slice 4 "0 1 2 <3!4 2!4 3 3 [2 3] 3*4>" $ whenmod 4 2 (off "q" id) $ "break:10" # gain 0.5 # cut 3 -- Runner -d4 -- Piano Nappes/Arps +d4 $ g-- Piano Nappes/Arps $ intro $ fromVelo $ whenOutro (degradeBy ("0 1!7" * (slow lOutro $ range 0.1 0.9 saw))) @@ -52,54 +58,122 @@ d4 -- Piano Nappes/Arps . fromSophie . sometimesBy (slow 4 "<0 0.25 0.5 0.75>") (ply "1 <1 2 4 8>") . struct ("t . t(<3!3 <5 [3 5]>>,8)") - . arp "" + -- . arp "" . (|+ note 12) . (|* amp 0.8) . (|+ pan 0.3) ) - $ note ">" + $ note prog # "" # octave 4 # pan 0.4 # amp 0.35 # gain (0.54 - (slow 68 $ range 0 0.14 sine)) -- synced bass -d5 -- RESONANT BASSLINE from Angel frappe +d5 $ g -- RESONANT BASSLINE from Angel frappe $ fromSophie $ someCyclesBy "<1!67 0!99>" (mask "[t ~]*4") + $ whenRouge (# crush 8.5) $ whenOutro (# hpf (slow lOutro $ range 0 1000 saw)) $ whenNotRouge (mask "t f t . t f ") $ note "b2!6 > b2" # "supersaw" - -- # gM' 0 1 "^81" - # room 0.5 # sz 0.8 + # room 0.85 # sz 0.8 # hpf (slow 16 $ range 400 0 cosine) # pan (slow 16 $ range 0.2 0.3 cosine) # gain (slow 68 $ range 0.25 0.34 saw) -- synced piano -d10 -- Metronome timings - $ (|* gain 0.5) - $ every' 166 110 ((<| "a*2") . (# note "b'maj'2") . (# gain 0.8)) -- - $ every' 166 90 ((<| "a*2") . (# note "c'maj'2") . (# gain 0.8)) -- - $ every' 166 85 ((<| "a*8") . (# note "d'maj'2") . (# gain 0.8)) -- FIN - $ every' 166 80 ((<| "a*4") . (# note "e'maj'2") . (# gain 0.8)) -- - $ every' 166 72 ((<| "a*2") . (# note "d'maj'2") . (# gain 0.8)) -- Generique? - $ every' 166 68 ((<| "a*2") . (# note "d'maj'2") . (# gain 0.8)) -- Amis - $ every' 166 60 ((<| "a*2") . (# note "c'maj'2") . (# gain 0.8)) -- Impuissants? - $ every' 166 50 ((<| "a*2") . (# note "a'maj'2") . (# gain 0.8)) -- Homme femme nombril - $ every' 166 35 ((>| note "f(5,8)") . (# gain 0.8)) -- Moon, bientot rouge - $ every' 166 32 ((<| "a*4") . (# note (arpeggiate "a4'maj'4")) . (# gain 0.8)) -- Hercule - $ every' 166 30 ((>| note "f(5,8)") . (# gain 0.8)) -- Anarchie - $ every' 166 15 ((# note "g") . (# gain 0.8)) -- Piece? - $ every' 166 11 ((>| note "f(5,8)") . (# gain 0.8)) -- 1 Fin couple, 2-5 Sophie - $ every' 166 9 ((# note "d") . (# gain 0.8)) -- Vetement - $ every' 166 7 ((>| note "~ e ~ e*4") . (# gain 0.8)) -- Mains - $ every' 166 6 ((>| note "~ ~ ~ d") . (# gain 0.8)) -- Velo - $ every' 166 5 ((>| note "c*4") . (# gain 0.8)) -- Oreille - $ every' 166 3 ((>| note "b(3,8)") . (# gain 0.8)) -- Main - $ every' 166 1 ((>| note (arpeggiate "a'maj'4")) . (# gain "0.8!3 1.1")) -- CLAP - $ note "a" # "arpy" # gain 0 +d10 $ g -- Events timings + $ fix (sometimes (ply 2) . (# n 1) . (# hpf 4500)) ("clap") + $ whenmod 166 75 (mask "t(8,16)" . off "h" id) + $ every' 166 85 ((<| "a*8") . (# note "d3'maj'2'8") . (# gain gPluck)) -- FIN + $ every' 166 83 ((>| "clap([4 [8 12] . 10 [4 0 . [16 8]]],16)") . (# gain gPluck)) -- ...Julien! :clap: + $ every' 166 82 ((>| "clap*[8 . 16 4]") . (# gain gPluck)) -- ...and :clap: + $ every' 166 81 ((>| "clap(5,8,0)") . (# gain gPluck)) -- Leopold :clap: + $ every' 166 80 ((>| "clap(3,8,0)") . (# gain gPluck)) -- Gregoire :clap: + $ every' 166 79 ((>| "clap(3,4,0)") . (# gain gPluck)) -- Gregoire :clap: + $ every' 166 78 ((>| "clap(4,4,0)") . (# gain gPluck)) -- Sophie :clap: + $ every' 166 77 ((>| "clap(3,4,0)") . (# gain gPluck)) -- Gregoire :clap: + $ every' 166 76 ((>| "clap(2,4,0)") . (# gain gPluck)) -- Cyril :clap: + $ every' 166 75 ((>| "clap(1,4,0)") . (# gain gPluck)) -- ...avec... :clap: + $ every' 166 74 ((>| "clap(4,4,0)") . (# gain gPluck)) -- SEPTEMBRE ROSE :clap: + $ every' 166 73 ((>| "clap") . (# gain gPluck)) -- Gregoire :clap: + $ every' 166 72 ((>| "clap") . (# gain gPluck)) -- Gregoire :clap: + $ every' 166 71 ((<| "e*4") . (# note "d'maj'2") . (# gain gPluck)) -- Generique? + $ every' 166 70 ((<| "d*2") . (# note "d'maj'2") . (# gain gPluck)) -- Generique? + $ every' 166 68 (const -- Tinks résolution + $ off 1 (degradeBy "0 0.5!7" . rev) + $ struct "t([16 [12 4]],16)" + $ note (arp "down" ">") + # pan (range 0.1 0.9 saw) + # "tink" # gain 0.8 + # room "0 0.2 0.4 0.5" + ) -- Amis + $ every' 166 60 ((>| note (struct "t(2,8) t(3,8)" $ arp "down" "d'maj7'4")) . (# gain gPluck)) -- Impuissants? + $ every' 166 50 ((<| "a*4") . (# note (arpeggiate "a4'min7'4")) . (# gain gPluck)) -- Homme femme nombril + $ every' 166 35 (const -- Tinks glitchés + $ struct "t([12 32],16)" + $ note (arp "up" "a'maj7") + # "tink" # gain 0.8 + # pan (range 0.9 0.1 saw) + # room "0 0.4" + ) -- Moon, bientot rouge + $ every' 166 32 ((<| "a*4") . (# note (arpeggiate "a4'maj'4")) . (# gain gPluck)) -- Hercule + $ every' 166 30 (const $ "igor:4" # lpf 2000 # gain 0.45) -- Anarchie + $ every' 166 15 (const -- Tinks retour + $ off 1 (degradeBy "0 0.5!7" . rev) + $ struct "t(12,16)" + $ note (arp "down" ">") + # "tink" # gain 0.8 + # pan (range 0.1 0.9 saw) + ) -- Piece + $ every' 166 11 ((>| note "b(5,8)") . (# gain gPluck)) -- 1 Fin couple, 2-5 Sophie + $ every' 166 9 (const -- Tinks aller + $ off 1 (degradeBy "0 0.5!7" . rev) + $ struct "t([6 12],16)" + $ note (arp "up" ">") + # "tink" # gain 0.9 + # pan (range 0.9 0.1 saw) + ) -- Vetement + $ every' 166 7 ((>| note "~ e ~ [b d ~ e]") . (# note (arp "down" "d'maj7")) . (# gain gPluck)) -- Mains + $ every' 166 6 ((>| note "~ ~ ~ d") . (# gain gPluck)) -- Velo + $ every' 166 5 (struct "t([5 10],16)" . (>| note (arp "updown" "b'min7'4")) . (# gain gPluck)) -- Oreille + $ every' 166 3 ((>| note "[b d](2,8,3)") . (# gain gPluck)) -- Main + $ every' 166 1 ((>| note (arpeggiate "a'maj'4")) . (# gain "0.5!3 0.6")) -- CLAP + $ note "a" # "cpluck:4" # gain 0 + # pan 0.4 +d7 $ g -- Side high cello + $ whenRouge (someCyclesBy 0.8 (off "0.625" (|+ pan 0.18))) + $ someCyclesBy 0.2 (degrade) + $ whenmod 8 4 (superimpose ( + (|+| note "0 <~!2 12!2> <~ 0!3> . 7") + . (ply 2) + )) + $ whenNotRouge (swing "2") + $ note (arp "" ">") + # "cpluck:4" + # gain (slow 100 $ range 0.1 0.34 cosine) + # pan 0.8 + # room 0.4 + # hpf (slow 100 $ range 0 9000 cosine) + # legato (0.7 - (slow 4 $ perlin/8)) + +once $ "clap([4 [8 12] . 10 [4 0 . [16 8]]],16)" + # gain 0.6 + +) . (# gain gPluck)) -- Julien :clap: + + +once $ "cpluck:4" # gain 0.5 once $ "super808*" # gain 0.7 +once $ "igor:0" # cut 21 # gain 0.5 + +once + $ off 1 (degradeBy "0 0.5!7" . rev) + $ struct "t(12,16)" + $ note (arp "up" ">") + # "tink" + once $ "igor:4" # cut 21 # gain 0.5 once diff --git a/live/dub/fdlm2021.tidal b/live/dub/fdlm2021.tidal new file mode 100644 index 0000000..431f40c --- /dev/null +++ b/live/dub/fdlm2021.tidal @@ -0,0 +1,205 @@ + +setcps (90/60/4) +-- Hello Twitch :) + +-- Nous sommes le 21 Juin 2021 +-- C'est la Fête de la Musique +-- Nous sommes en live :) + +-- Ce soir, je découvre les samples avec vous +-- Il s'agit du pack Modern Roots Reggae : https://freesound.org/people/zuluonedrop/packs/17834/?page=4#sound +-- Détails en description après le live ;) +-- Petits réglages sonores... +-- On commence +-- Je connecte maintenant le code qui produit les sons +-- À un controleur qui va permettre d'envoyer des paramètres +-- Permettant ainsi de controller le code en live :) +do +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) +let g = gDJF +d1 $ g + $ midiOn "^42" (fast 2) + $ midiOn "^41" (<| "k k k ") + $ midiOff "^41" (<| "k ~ ~ <~!3 k>. k ~ <~ k> ")-- RubADub+adjustements + $ "[jazz,rootsDrums:0]" + # midiG' "^78" 0 1.1 +d2 $ g + $ midiOn ("^43"+"^75") (superimpose (slice 8 ("0*4 1 1*4 3 4 5 6*2 7") + . (loopAt 1) + . (>| "breaks165") + . (|* gain 0.7) + )) + $ fast "<1 [4!3 8]>" "~ s" + # "snare:20" + # note (range "-8" 8 "^51") + # midiG' "^79" 0 0.9 + # room 0.3 + # dry 0.98 + # sz 0.5 +d10 $ g -- Drumroll bonus <3 + $ whenmod 32 16 (degradeBy 0.25) + $ midiOn "^42" (fast 2) + $ midiOn "^44" (slow 2) + $ fast (2 * "<8 8 4 8> 8 . 16 [8 32]") + $ "dr" + # midiG' "^79" 0 1.1 +d3 -- Running Hats + $ g + -- $ degradeBy ("1 0 0 1!13" - "^52") + $ midiOn "^44" (slow 2) + $ midiOn "^76" (fast 2) + $ sometimesBy "0 . 0!3 0.95" (ply "<2 [2|4]>") + $ "hh*[8 . 8 <16 8 4 [4 8]>]" + -- # n "[0|0|0|0|1|1|3|3]*8" + # midiG' "^80" 0 1.2 + # pan 0.6 + # cut 3 +d4 -- Bassline + $ g + $ "rootsBass:3" + # crushbus 41 (range 16 1.5 "^53") + # midiG' "^81" 0 0.8 + # pan 0.3 +d5 $ g -- Guitar + $ slice 4 "0 3 0*<1!4 2 2 1 2> 2*<1!3 4>" + $ "rootsGuitar:3" + # cut 5 # gain 0.9 + # midiG' "^82" 0 1 + # hpf (slow 16 $ range 0 2000 sine) +d7 $ g-- Trompettes en retard + $ fast "4 8" + $ slice 4 "<0 1 2 3>" + $ "rootsTrump:8" -- ritournelle + # cut 7 + # midiG' "^56" 0 0.6 + # pan 0.6 + # cut 3 +d8 $ g -- Trombone Pensif + $ fast ("<4 [4 <2!3 8>]>" * "<0.25!8 1!8 2!8 2!8>") + $ slice 4 "<1? 1 0 1?>" + $ "rootsTromb:1" + # cut 4 + # midiG' "^55" 0 0.65 + # room 0.3 + # crushbus 41 (range 16 1.25 "^35") + # cut 8 + # pan 0.8 +d6 $ g -- Piano contretemps reggae! + $ superimpose ( + (# cut 61) + . mask "t(16,32)" + . (|+ note 12) + ) + $ midiOn "^91" (slow 4 . mask "t(8,16)") -- 59: Slow and delayed + $ midiOn "^91" ((# delay 0.25) . (# delayfb "<0.5!3 0.8>") . (|* gain 0.9)) + $ n ("~ 1 ~ <1 <[~ 1] 1?>> ~ <0!3 [0 1]> ~ 0*<1!6 2 <4 [4 8]>>" + + "<0!3 [-1 1]>" + ) + # "rootsPiano" -- Let's reboot this line + # gain 0.5 + # cut 6 + # room 0.6 + # sz 0.5 + # midiG' "^83" 0 1 +d9 $ g -- Mix Drums :) + $ juxBy 0.25 rev -- For all the Tidalers out there :P + $ midiOn "^60" (fast 2) + $ midiOn "^92" (fast 2) + $ slice 8 "0 1 2 3 <4 0> <5 1>*2 6 7*<1 <2 4>>" + $ "rootsMix/2" + # cut 9 + # pan ((slow 4 sine) + (perlin/8)) -- Random locations :) + # midiG' "^84" 0 0.8 +d11 $ g -- Final saxes + $ slow "<4!4 2!2 1 <1 2>>" + $ n "<9 10> . <~!8 10!8>" # "rootsSaxes" + # cut 8 + # crushbus 110 (range 16 4 "^19") + # midiG' "^20" 0 0.8 + +-- C'est fini pour ce live-coding from scratch :) + +-- Je vous propose une dernière pour la route : +-- Un précédent livecoding de Dub qui n'a encore jamais été diffusé ;)# +-- Computer Riddim : + + + +d6 + $ degradeBy "0 0.4!7 . 0.8!3 0.1" + $ often rev + $ slice 8 (run 8) + $ slow 2 + $ "rootsMix" + # n "<1 2>" + # cut 6 + # gain 0.2 + + + + + + +onc + + +-- region Study + + +-- rootsBass (4) +-- rootsDrums (12) +-- rootsGuitar (8) +-- rootsMix (6) +-- rootsPiano (4) +-- rootsSaxes (11) +-- rootsTromb (10) +-- rootsTrump (9) + +o + + + +d1 + $ slow 2 + $ "rootsMix" + # n "<0 1 2 3 4 5>" + # cut 1 + # gain 0.6 + + once $ "rootsTrump:8" -- ritournelle + # cut 4 # gain 0.6 + +-- 0 Long low end riff -- INTRO +-- 1 Short low +-- 2 Short *2 high echo cocotte tension +-- 6 Short *2 high echo cocotte resolution +-- 7 Long 2/6/2/6/2/6/2/6 +-- 3 Short low riff +-- 4 Short low +-- 5 Long low -- INTRO +once $ "rootsGuitar:8" + # cut 4 # gain 0.6 + + + +-- 1 Short aigu tendu +-- 2 Short aigu conclu +-- 3 Long 1-2-1-2-1-2-1-2 aigu +-- 0 Long 1-2-1-2-1-2-1-2 mid +once $ "rootsPiano:0" + # cut 2 + # gain 0.6 + +once $ "rootsTromb:8" + # cut 4 # gain 0.46 + +once $ "rootsSaxes:<9 10>" + # cut 4 # gain 0.6 + +-- BASS +once $ "rootsBass:3" + # cut 3 + + + +-- Reorder mixes? diff --git a/live/hip/lofi/back_baby.tidal b/live/hip/lofi/back_baby.tidal index 5ae4bb9..4bbcb23 100644 --- a/live/hip/lofi/back_baby.tidal +++ b/live/hip/lofi/back_baby.tidal @@ -12,7 +12,7 @@ d1 $ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)" # "hh27:5" # cut 1 - # gain 1.1 + # gain 1.5 d2 $ g $ mask "" @@ -21,13 +21,13 @@ d2 # "hh27:2" # release 0.57 # note "-5" - # gain 1.2 + # gain 1.8 d3 $ g $ sometimesBy "0 <1!3 0.5> 0 <0!3 0.5>" (ply "[8|8 16|16]") $ "h h h ,2,<0!3 1>) [~!3 h]>" # "[hh27:3,drum:2]" # release 0.8 - # gain 0.85 + # gain 1.25 d10 $ g $ note ( diff --git a/live/midi/jazz_tech_piano.tidal b/live/midi/jazz_tech_piano.tidal index 5168177..6dc8e9e 100644 --- a/live/midi/jazz_tech_piano.tidal +++ b/live/midi/jazz_tech_piano.tidal @@ -17,7 +17,7 @@ do # (velocity (range 0.4 0.7 "^1")) # (crush (range 32 5 "^1")) ) - $ s "superpiano" + $ s "superpiano"a # note "<-20 [-19,-15] [-20,-16] ~>" # velocity "<0.7 0.5 0.6>" # sustain 3 diff --git a/live/midi/nova/breaks/StolenChoir.tidal b/live/midi/nova/breaks/StolenChoir.tidal index 43fc418..9ce3782 100644 --- a/live/midi/nova/breaks/StolenChoir.tidal +++ b/live/midi/nova/breaks/StolenChoir.tidal @@ -55,6 +55,11 @@ d5 $ g # crush (range 16 4 "^34") # chorus (range 0 4 "^54") -- 0.7 + + + + + -- TODO REWORK ARABIC LOOP do -- resetCycles diff --git a/live/midi/nova/breaks/break_90s.tidal b/live/midi/nova/breaks/break_90s.tidal index 408d6af..8bc3c7d 100644 --- a/live/midi/nova/breaks/break_90s.tidal +++ b/live/midi/nova/breaks/break_90s.tidal @@ -89,7 +89,7 @@ d5 $ g -- Piano base # room 0.6 # sz 0.8 # pan 0.65 # orbit 5 - # midiG' "^82" 0.3 1.5 + # midiG' "^82" 0.3 1.7 d4 -- Skank organ $ g -- $ superimpose (const $ g diff --git a/live/midi/nova/breaks/break_low.tidal b/live/midi/nova/breaks/break_low.tidal index a710b7e..96066e4 100644 --- a/live/midi/nova/breaks/break_low.tidal +++ b/live/midi/nova/breaks/break_low.tidal @@ -1,10 +1,10 @@ import Sound.Tidal.ParVagues.Control -setcps (60/60/4) do let modIndex = pF "modIndex" let g = (midiDJF "^49" 150 9850 0 1000) +setcps (60/60/4) d1 -- Snare $ g $ midiOn "^41" (fast 2) @@ -53,7 +53,7 @@ d5 -- Bassline # crush (range 10 5 "^53") # room 0.5 # sz 0.4 - -- # pan 0.2 + -- # pan 0.21 # midiG' "^81" 0 1.2 d6 $ g $ off "e s" (|+ note 7) diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index 7ada8c5..02b2da7 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -5,6 +5,17 @@ -- TODO: Chap 22 - From reggae to dub + +-- C'était ParVagues :) +-- Vous pouvez retrouver plus de son/plus de code sur soundcloud.com/ParVagues + +-- Prochains lives éventuels sur Twitch +-- Quelques sons sur Spotify/Deezer/Youtube/etc ;) + +-- Bonne fête de la Musique à tous ! + + + do -- region Nova Utils let gFactor = 2 @@ -17,13 +28,15 @@ 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 -let gDelayD = (# delay (range 0 5 "^13")) -let gDelayFB = (# delayfb (range 0 0.9 "^14")) +-- let gDelayD = (# delay (range 0 5 "^13")) +-- let gDelayFB = (# delayfb (range 0 0.9 "^14")) let gRoom = ((|+ room (range 0 0.5 "^29")) . (# dry 0.99)) let gSize = (|+ size (min 0 (range "-0.5" 0.5 "^29"))) -let gDelay = (gDelayD . gDelayFB . (# delayt 0.25) . (# orbit 2)) +-- let gDelay = (gDelayD . gDelayFB . (# delayt 0.25) . (# orbit 2)) let g = (gDJF . gRoom) let chords = "<[a5,c5,e5] [e4,g4,b4]>" +let gDelay = id +let gDelayD = id setcps (140/60/4) -- keep it between 110-190 BPM. You won't be sorry you did. -- resetCycles d1 @@ -38,7 +51,7 @@ d1 $ novaOff "^41" (<| "k . k <~ [<~ k> ]>")-- RubADub $ "[jazz,tech:5]" # room 0.05 - # gM' 0 1.05 "^78" + # midiG' "^78" 0 1.05 d2 $ g -- Snare $ (|- lpf 1000) @@ -55,24 +68,25 @@ d3 $ g -- Hats ) $ 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 jjjjjjjjjjjjjjj Hi Hat hit + $ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the Hi Hat hit $ s "gretsch:4" -- # pan "^52" # cut 3 # orbit 1 + # pan 0.2 # 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 $ note "0" # "bass1:3" # cut 4 - # pan 0.6 - # attack (range 0 1 "^53") - # crush (range 16 4 "^53") + # pan 0.7 + -- # attack (range 0 1 "^53") # lpq (range 0 0.33 "^33") # release 0.95 # orbit 1 - # gM' 0.25 1.5 "^81" + # crushbus 41 (range 16 3.5 "^53") + # midiG' "^81" 0.25 1 d5 $ g $ gDelay -- Skank Piano $ whenmod 4 3 (sometimesBy "0 1 . 0" ( (# note "[d5,g4,b4]") . (|* gain 0.8) @@ -87,7 +101,7 @@ d5 $ g $ gDelay -- Skank Piano # release 0.8 # room 0.13 # sz 0.4 # pan 0.4 - # gM' 0 1 ("^82" * (range 0.25 1.5 "^54")) + # midiG' ("^82" * (range 0.25 1.5 "^54")) 0 1 d6 $ g $ gDelay-- Skank Hammond $ ("0.125" ~>) $ fast 2 @@ -107,22 +121,22 @@ d7 d8 -- Trompette lancinante $ g $ gDelayD $ degradeBy "^35" - $ novaOn "^59" (mask "") + $ midiOn "^59" (mask "") $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.95)) $ note (" bf d ~]> " + "0 <12 0>" - 12) # "brass" # n "2" - # gM' 0.2 1 "^55" + # gM' 0.2 1 "^83" # attack 0.5 # cut 8 d9 -- CP - $ sometimesBy "^59" (fast 2) + $ midiOn "^60" (fast 2) $ (# lpf 2000) $ g $ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8))) $ fast 2 $ "~ cp" - # gM' 0 1.1 "^83" + -- # gM' 0 1.1 "^84" # room 0.2 # dry 0.9 # lpf 2000 diff --git a/live/midi/nova/dnb/lucy_rode.tidal b/live/midi/nova/dnb/lucy_rode.tidal index f178199..b08b164 100644 --- a/live/midi/nova/dnb/lucy_rode.tidal +++ b/live/midi/nova/dnb/lucy_rode.tidal @@ -45,6 +45,7 @@ do $ "drum:2" # midiG' "^80" 0 1.8 d4 $ g -- Bassline pompée + $ midiOn "^89" (chop 2) $ midiOn "^57" (ply 2) $ note (scale "aeolian" ( "0*8" @@ -53,10 +54,10 @@ do + "<0!6 7!2>" )) # "bassWarsaw" - # crush (range 10 2 "^53") + # crushbus 41 (range 10 2 "^53") # room 0.4 # pan 0.2 - # midiG' "^81" 0 1.3 + # midiG' "^81" 0 1.8 d6 $ g --Rhodes arps $ juxBy 0.8 ( (# modIndex 15) @@ -92,7 +93,9 @@ do # pan 0.74 # sustain (range 0.125 0.5 "^55") # midiG' "^83" 0 1 - d10 $ "~ clap" # midiG' "^84" 0 1.2 + d10 $ g $ "~ clap" + # midiG' "^84" 0 1.8 + # note "-4" d2 diff --git a/live/midi/nova/dnb/meurice.tidal b/live/midi/nova/dnb/meurice.tidal index f575274..b59a615 100644 --- a/live/midi/nova/dnb/meurice.tidal +++ b/live/midi/nova/dnb/meurice.tidal @@ -83,7 +83,7 @@ d7 -- Guitar B # lsize (1 + (slow 8 perlin * 2)) # lrate 6.7 # cut 71 -d8 $ g -- Clave de l'été +d8 $ g -- 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") diff --git a/live/midi/nova/dnb/noname.tidal b/live/midi/nova/dnb/noname.tidal new file mode 100644 index 0000000..2986917 --- /dev/null +++ b/live/midi/nova/dnb/noname.tidal @@ -0,0 +1,104 @@ +import Sound.Tidal.ParVagues.Control + +-- This is a test ;) +-- +do +setcps (160/60/4) +let gDJF = (# djfbus 1 (range 0.1 0.9 "^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)) +let g = (gDJF . gFreqL . gFreqH) +d1 + $ g + $ superimpose ( -- Undertone + (|+ note "<12!3 8 12!2 8 4>") + . (|* gain 0.9) + ) + $ (|* gain "1!7 0.95") + $ midiOn "^41" (<| "k k k ") + $ midiOff "^41" (<| "b . ~ b ~ <~!3 b>") + $ "kick:5" + # midiG' "^78" 0 1.4 +d2 -- Snare tchak! + $ g + $ g32Bridge + $ whenmod 16 12 (struct "t*<4 4 8 16>") + $ whenmod 16 4 (fast 2) + $ "~ cp" + # "[snare:40,snare:22]" + # pan 0.55 + # note (range "-7" 7 "^51") + # room 0.8 # dry 0.99 # sz 0.2 + # midiG' "^79" 0 1.2 +d3 -- Running Hats + $ g + $ midiOn "^76" --BOUTON NASSIM + (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1) + . (>| "breaks125") + . (|* gain 0.9) + ) + -- $ degradeBy ("1 0 0 1!13" - "^52") + $ midiOn "^44" (slow 2) + $ midiOn "^76" (fast 2) + $ "hh*[8 . 8 <16 8 4 [4 8]>]" + -- # n "[0|0|0|0|1|1|3|3]*8" + # midiG' "^80" 0 (1.7 + (slow 4 perlin/4)) + # room (slow 8 $ range 0.2 0.45 saw) + # sz (slow 8 $ range 0.8 0.2 saw) + # dry (slow 4 $ range 0 2 perlin) + # pan 0.6 + # cut 3 +d4 -- Resolute Bass + $ g + $ midiOn "^57" ( -- Glitch vary end + rev + ) + $ slice 4 ("0 <~ 3> 0 1*<1 2 4 8>") + $ loopAt 4 + $ chop 16 + $ "fbass:43" + # pan 0.15 + # room 0.25 # sz 0.1 + # crushbus 41 (range 16 1.25 "^53") + # midiG' "^81" 0 1.6 + # cut 4 +d6 -- Opiniatre guitare + $ g + -- $ someCyclesBy "" (segment "<8 <4 2>>") + $ midiOn "^90" (slice 2 (run "<4 <2 8>>")) + $ "fguitar:40/2" + # crushbus 51 (range 10 3.5 "^54") + # midiG' "^82" 0 1.2 + # cut 6 +d7 + $ superimpose ( + (# cut 71) + . arp "up" + . (|+| note ("[c, ef, f, c6]" + 12)) + ) + $ note ("< c >") + # "moog" + # midiG' "^83" 0 1.5 + # cut 7 +d9 $ g -- CLAPS! + $ midiOff "^60" (mask "") + $ midiOn "^92" (fast 4) + $ "~ clap:2" + # midiG' "^84" 0 1.5 + +once $ "forgan:24" + # gain 1 + # cut 3 + +once $ "fguitar:59" -- sometimes 43 + # gain 1.2 + # cut 5 + + + +d6 $ "seawolf:0/4" + # cut 6 + # gain 0.75 + +once $ "dr" # gain 1 diff --git a/live/midi/nova/fusion/elephunk.tidal b/live/midi/nova/fusion/elephunk.tidal index 1c93ada..22d0f51 100644 --- a/live/midi/nova/fusion/elephunk.tidal +++ b/live/midi/nova/fusion/elephunk.tidal @@ -1,17 +1,21 @@ import Sound.Tidal.ParVagues.Control -do resetCycles -setcps (92/60/4) + +do +setcps (60/60/4) let patFunk = "ds gf f " -let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw)) +let gDJF = (# djfbus 1 (range 0.5 0.15 "^49")) let gPont = whenmod 64 32 (mask "") let g = gDJF d1 $ g $ gPont $ mask "" - $ "[bd,jazz]*4" # room 0.1 -d2 $ g $ gFadeIntro $ gPont $ mask "" - $ "~ c ~ c" # "[clap]" # gain 0.4 + $ midiOn "^41" (fast 2) + $ "[bd,jazz]*4" + # midiG' "^78" 0 1.2 +d2 $ g $ gPont $ mask "" + $ "~ c ~ c" # "[clap]" + # midiG "^79" d3 $ g $ gPont -- $ mask "" $ ( @@ -19,46 +23,48 @@ d3 $ g $ gPont . sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4")) $ "gretsch:4*16" # pan 0.25 - # gain (0.35 + 0.1 * (segment 8 perlin)) + # midiG' "^80" 0 1.5 d4 $ g $ mask "" $ note patFunk # "bass3" # pan 0.2 - # gain 0.5 + # crush (range 16 2.5 "^53") + # midiG' "^81" 0 1.3 d5 $ g $ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2)) + $ ("q" ~>) $ note patFunk # "pluck" # room 0.6 # sz 0.8 - # gain 0.35 + # crush (range 16 2.5 "^54") + # midiG' "^82" 0 1.3 d6 $ g -- Final guitare rita - $ whenmod 64 48 (# gain 0.25) $ slice 16 "0 . 1 <~ 1 2>" $ loopAt 6 $ "rita:0" # gain 0 # cut 6 # hpf 400 -d7 -- Bonus breaks - $ mask ",16)!16 t!3 [t f t f] t!28>" +d7 $ g -- Bonus breaks + $ midiOff "^76" (mask ",16)!16 t!3 [t f t f] t!28>") $ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>" $ "breaks165" # pan 0.75 # cut 7 - # gain (slow 8 $ range 0.35 0.45 saw) + # midiG' "^80" 0 1.2 # room 0.2 # hpf 100 d8 $ g -- Organic madness $ mask "" - -- $ sometimesBy (slow 4 saw) (ply 2) + $ midiOn "^59" (sometimesBy (slow 4 saw) (ply 2)) $ chop 4 $ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw)) -- $ mask "" $ "forgan:14" # lpf 1000 - # gain 0.3 * "<1!7 0.95 0.9!7 0.85>" + # midiG' "^83" 0 1.2 # cut 8 d10 -- F-U-N-K $ mask "" @@ -68,5 +74,5 @@ d10 -- F-U-N-K $ n "5 20 13 10" # "alphabet" # release 0.8 - # gain (slow 32 $ range 0.2 0.34 cosine) + # midiG' "^84" 0 1.3 # pan "<0.1!4 0.9!4>" diff --git a/live/midi/nova/lofi/dark_money.tidal b/live/midi/nova/lofi/dark_money.tidal index ff75900..5970bf3 100644 --- a/live/midi/nova/lofi/dark_money.tidal +++ b/live/midi/nova/lofi/dark_money.tidal @@ -9,16 +9,18 @@ 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 = midiDJF "^49" 200 9800 0 1000 +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) let g = (gDJF) d1 $ g -- Kick - $ whenBrkLPF + -- $ whenBrkLPF $ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>") - $ "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)" # "jazz" - # lpf 1000 - # room 0.2 # att 0.5 + $ midiOn "^41" (<| "k*2 k*2 k*2 k*<2 4>") + $ midiOff "^41" (<| "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)" ) + $ midiOn "^41" (superimpose (# "kick:5")) + $ midiOff "^41" (superimpose (# "reverbkick")) + $ "[reverbkick,jazz]" # legato 2 # cut 1 - # midiG' "^78" 0 1.8 + # midiG' "^78" 0 1.2 d2 $ g -- Contretemps snare $ whenBrkLPF $ whenmod 16 8 (fast 2) @@ -28,20 +30,20 @@ d2 $ g -- Contretemps snare # "snare:20" # midiG "^79" d3 $ g -- Drumroll fantôme + $ midiOn "^76" (fast "<2!3 4>") $ whenBrk (slow "<2 2 4 4 8 8 16 16>") $ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>") $ "drum:2" # room 0.6 # sz 0.9 # dry 1.01 - # midiG' "^80" 0 1.4 + # midiG' "^80" 0 1.8 d5 $ g -- Bassline {hypno,aqua}tique $ swing 2 $ whenNotBrk (off " . " (|+ note 7)) $ struct "t*<[1 0] 2 4 [12 . 8]>" - $ (|/ crush (range 0 2 "^53")) -- Manual crush enabler - $ (# crush (slow 8 $ range 10 7 saw)) $ note ("fs a" - 24) # "bassWarsaw" - # midiG' "^81" 0 1 + # crushbus 51 (range 10 5.2 "^53") + # midiG' "^81" 0 1.3 d4 $ g -- Toy bogdan $ every' 16 15 (>| "~ ~ ~ bogdan:4") $ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8)) diff --git a/live/midi/nova/lofi/new_dust.tidal b/live/midi/nova/lofi/new_dust.tidal index d790675..c16084d 100644 --- a/live/midi/nova/lofi/new_dust.tidal +++ b/live/midi/nova/lofi/new_dust.tidal @@ -88,7 +88,7 @@ d5 $ g -- Infectious Bassline # "bassWarsaw" # width "^34" # crush (range 16 2.5 "^54") - # midiG' "^82" 0 1 + # midiG' "^82" 0 1.3 # room 0.2 d7 -- TOYS $ degradeBy (0.99 - "^55") diff --git a/live/midi/nova/lounge/hoover_sepia.tidal b/live/midi/nova/lounge/hoover_sepia.tidal new file mode 100644 index 0000000..38e5187 --- /dev/null +++ b/live/midi/nova/lounge/hoover_sepia.tidal @@ -0,0 +1,59 @@ +-- TODO Try Control with busses :D +do +-- region Utils +let modIndex = pF "modIndex" +let cF5 ch = cF 0.5 ch +let gDJF = (# djfbus 1 (range 0.15 0.99 "^49")) +let gRoom = (# roombus 2 (cF5 "29")) +let gSize = (# sizebus 3 (cF5 "30")) +let g = gDJF . gRoom . gSize +let gG = 1 * "^77" +let gM' ch l h = gain (range l h (gG * ch)) +let gM ch = gM' ch 0 1 +let ampb bus pat = (ampbus bus (gG * pat)) +let midiOn ch pat = someCyclesBy ch pat +-- endregion +let prog = "" +setcps (95/60/4) +d1 -- Kick techno 1-2-4/4 + $ g + $ midiOn "^41" (fast 2) + $ midiOn "^42" (fast 2) + $ whenmod 4 3 (ply "2") + $ "[jazz]" + # gM' "^78" 0 2 +d2 $ g + $ midiOn "^43" (struct "t*[4 8 16 <8 [32 16]>]") + $ "~ ~ h ~ ~ h*2 [<~ h h ~> ] h" # "h2ogmhh" # n "<0!4 1!4 2!4 3!4>" + # gM' "^79" 0 1.25 +d3 $ g + $ loopAt 2 + $ midiOn "^76" (scramble "1 2") + $ midiOn "^44" (scramble "1 8") + $ slice 8 ("0 1 2*<1 <2 4>> 3 4 <5 4> <6!3 4> 7*<1!3 <2 4>>") + $ "fbreak100:4" + # gM' "^80" 0 1.8 +d4 $ g -- Hoover bassline + $ slow 2 + $ n ("0*[4 8]" + prog - 12) + # s "superhoover" + # squizbus 30 (range 1 1.7 "^33") + # crushbus 31 (range 16 1 "^53") + # ampb 32 (range 0 0.125 "^81") + # pan 0.2 + # legato 1.05 +d5 $ g -- Arp aigus Rhodes + $ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)") + $ note (arp "" + $ prog + |+ "0 12" + - 24 + ) + # "FMRhodes1" + # ampbus 40 (range 0 0.82 "^82") + # crushbus 41 (range 16 1 "^54") + # modIndex "[0,5]" +d10 $ g + $ "~ [h2ogmcp,clap]" + # gM' "^84" 0 1.5 + # room 0.7 # sz 0.7 # dry 0.9 diff --git a/live/midi/nova/lounge/invoque_ete.tidal b/live/midi/nova/lounge/invoque_ete.tidal index c96d914..ad0b788 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -25,7 +25,7 @@ d1 $ g d2 $ g -- Clave de l'été $ midiOn "^43" (fast 2) $ midiOn ("^75"-"^43") (fast 2) - $ (|* gain "0.75 1 1 1 0.75 1 1 1") + $ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7)) $ "d ~ ~ d d ~ d <~!3 d>" # "snare:22" # gM' 0 1.4 "^79" # speed (range 0.5 1.5 "^51") @@ -97,7 +97,7 @@ d9 $ g ) $ "hh:3" # lpq (range 0 0.2 "^35") - # gM' 0 1.2 "^19" + # gM' 0 1.7 "^19" do d1 $ "reverbkick" # gain 1.2 diff --git a/live/midi/nova/party/electro_blues.tidal b/live/midi/nova/party/electro_blues.tidal index 21997c7..3354c3e 100644 --- a/live/midi/nova/party/electro_blues.tidal +++ b/live/midi/nova/party/electro_blues.tidal @@ -9,12 +9,11 @@ let chord = "c'maj" let chordAug = "c'maj'8" d1 -- Kick rarement doublé $ g - $ midiOn "^41" (fast 2 . whenmod 4 3 (ply "2 <1 <2 [1 2]>>")) - $ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>") - $ midiOn ("^42"+"^41") (<| "k*4") - $ midiOff ("^42"+"^41") (<| "k . k(<5 6 7 5>,8,<0!7 3>)") - $ "808bd" # n "15" - # midiG' "^78" 0 1.5 + $ fast 2 -- Cause this is REPETITIVE MUSIC + $ midiOn "^41" ((<| "k*4") . (superimpose (# "kick:5"))) + $ midiOff "^41" (<| "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" + # midiG' "^78" 0 1.1 d2 $ g $ midiOn "^43" (fast 2) $ "~ [jazz:4,cp]" @@ -28,13 +27,15 @@ d3 $ g -- Snakes # "hh*6" # midiG "^80" d4 $ g + $ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>") $ midiOn "^57" (juxBy 0.2 ( -- ply "<2 4 [4 8] 8>" . - arpeggiate - -- . (# "supermandolin") + arp "pinkyup" + . (often (ply 2)) -- . (|* gain 0.8) -- . (# pan 0.6) -- . (# crush 16) + . (|+ note 12) )) $ note ( cat blues + chord @@ -44,14 +45,15 @@ d4 $ g # pan 0.75 # room 0.1 # voice 0.8 + # crushbus 41 (range 10 3 "^53") # midiG' "^81" 0 1.3 d5 $ g -- Choeurs $ juxBy 0.5 ( (0.5 ~>) . midiOn "^58" (superimpose ( - arpeggiate + arp "" . (|+ note chordAug) . (|+ pan 0.05) - . (|* gain 0.85) + -- . (|* gain 0.85) ) . (|+ note 12) . (|* gain 0.95) diff --git a/live/midi/nova/party/hoover_sepia.tidal b/live/midi/nova/party/hoover_sepia.tidal deleted file mode 100644 index 38e5187..0000000 --- a/live/midi/nova/party/hoover_sepia.tidal +++ /dev/null @@ -1,59 +0,0 @@ --- TODO Try Control with busses :D -do --- region Utils -let modIndex = pF "modIndex" -let cF5 ch = cF 0.5 ch -let gDJF = (# djfbus 1 (range 0.15 0.99 "^49")) -let gRoom = (# roombus 2 (cF5 "29")) -let gSize = (# sizebus 3 (cF5 "30")) -let g = gDJF . gRoom . gSize -let gG = 1 * "^77" -let gM' ch l h = gain (range l h (gG * ch)) -let gM ch = gM' ch 0 1 -let ampb bus pat = (ampbus bus (gG * pat)) -let midiOn ch pat = someCyclesBy ch pat --- endregion -let prog = "" -setcps (95/60/4) -d1 -- Kick techno 1-2-4/4 - $ g - $ midiOn "^41" (fast 2) - $ midiOn "^42" (fast 2) - $ whenmod 4 3 (ply "2") - $ "[jazz]" - # gM' "^78" 0 2 -d2 $ g - $ midiOn "^43" (struct "t*[4 8 16 <8 [32 16]>]") - $ "~ ~ h ~ ~ h*2 [<~ h h ~> ] h" # "h2ogmhh" # n "<0!4 1!4 2!4 3!4>" - # gM' "^79" 0 1.25 -d3 $ g - $ loopAt 2 - $ midiOn "^76" (scramble "1 2") - $ midiOn "^44" (scramble "1 8") - $ slice 8 ("0 1 2*<1 <2 4>> 3 4 <5 4> <6!3 4> 7*<1!3 <2 4>>") - $ "fbreak100:4" - # gM' "^80" 0 1.8 -d4 $ g -- Hoover bassline - $ slow 2 - $ n ("0*[4 8]" + prog - 12) - # s "superhoover" - # squizbus 30 (range 1 1.7 "^33") - # crushbus 31 (range 16 1 "^53") - # ampb 32 (range 0 0.125 "^81") - # pan 0.2 - # legato 1.05 -d5 $ g -- Arp aigus Rhodes - $ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)") - $ note (arp "" - $ prog - |+ "0 12" - - 24 - ) - # "FMRhodes1" - # ampbus 40 (range 0 0.82 "^82") - # crushbus 41 (range 16 1 "^54") - # modIndex "[0,5]" -d10 $ g - $ "~ [h2ogmcp,clap]" - # gM' "^84" 0 1.5 - # room 0.7 # sz 0.7 # dry 0.9 diff --git a/live/midi/nova/party/last_one.tidal b/live/midi/nova/party/last_one.tidal index 8bc02ef..86fcede 100644 --- a/live/midi/nova/party/last_one.tidal +++ b/live/midi/nova/party/last_one.tidal @@ -7,9 +7,6 @@ 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 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 "^15")) let g = gDJF setcps (110/60/4) let prog = " d6'm9 >" @@ -38,10 +35,10 @@ d4 $ g -- Bassline - 36) # "bassWarsaw" # pan 0.2 - # room 0.4 + # room 0.2 # crushbus 40 (range 10 2.85 "^53") # midiG' "^81" 0 1.5 -d5 $ g +d5 $ g -- Nappes plage $ midiOn "^58" (superimpose ( struct "t . t(3,8)" . arpeggiate @@ -54,7 +51,7 @@ d5 $ g # midiG' "^82" 0 1 # attack 0.8 # room 0.4 # sz 0.9 -d6 +d6 -- Guitare nostalgique $ midiOn "^59" (slice 4 "0 1 2 3") $ mask "" $ "fguitar" # n "<34!32 35!16 34!16>" @@ -88,4 +85,4 @@ d8 $ g ) # "cbow" # n "[9,<~!4 10!4>]" # pan "<0.3!7 0.7>" - # midiG' "^84" 0 1 + # midiG' "^84" 0 1.5 diff --git a/live/midi/nova/punk/hello_poesie.tidal b/live/midi/nova/punk/hello_poesie.tidal index 1f2dfb1..99d2ddb 100644 --- a/live/midi/nova/punk/hello_poesie.tidal +++ b/live/midi/nova/punk/hello_poesie.tidal @@ -10,16 +10,17 @@ 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 + $ midiOff "^42" (<| "k . ~ k ~ ~") -- Attente $ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]") -- Transition - $ "[super808,jazz]" + $ "kick:5" # midiG "^78" # room 0.85 # dry 0.98 # sz 0.8 d2 $ g $ slowdown - $ "hh*[<16!4 8 8 16 16> . 8 16]" + $ fix (someCyclesBy "<1!16 0!16>" (degradeBy "0 0.5!6 0")) ("hh") + $ "[hh*[<16!4 8 8 16 16> . 8 16],[~ snare:20]*2]" # note "0 2 0 <2 3 2 -1>" - # midiG' 0.5 1.5 "^80" + # midiG' "^80" 0 1.5 d10 $ "~ s ~ s*<0!8 1!3 2 1 1 2 [2 4]>" # "snare" @@ -44,7 +45,7 @@ d3 $ g -- Bassline + arps d4 $ g -- Synth disto baseline $ "poesieSynth/2" # n (slow 4 "<0 1>") - # midiG' "^82" 0 0.85 + # midiG' "^82" 0 0.95 # crushbus 41 (range 10 3.5 "^54") # cut 4 # pan 0.8 diff --git a/live/mood/tired/afternoon.tidal b/live/mood/tired/afternoon.tidal index 442859d..a89dec0 100644 --- a/live/mood/tired/afternoon.tidal +++ b/live/mood/tired/afternoon.tidal @@ -58,7 +58,7 @@ d7 $ g -- Hello PWM! # 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 2 + # midiG' "^81" 0 1.42 d6 $ g -- Nappes Rhodes $ note ( prog @@ -68,7 +68,7 @@ d6 $ g -- Nappes Rhodes # pan 0.2 # modIndex (range 0 100 "^54") # crushbus 61 (range 16 5 "^34") - # midiG' "^82" 0 1.8 + # midiG' "^82" 0 1.5 d9 $ g $ midiOff "^60" (mask "") $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]") -- libgit2 0.27.0