From 25b59ab2b914a05793c5b3399f4206172075602a Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Fri, 11 Nov 2022 23:15:35 +0100 Subject: [PATCH] Practice: Batavia --- live/ambient/batavia_la_tortue.tidal | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/ambient/before.tidal | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/ambient/brise_les_chaines.tidal | 46 ++++++++++++++++++++++++++++++++++++++++++++++ live/chip/ataright.tidal | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++++-------------- live/chip/step_silence.tidal | 9 ++++++--- live/collab/please_die/concombre.tidal | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/fusion/morning/latin_core.tidal | 44 ++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/ambient/contre_visite.tidal | 28 ++++++++++++---------------- live/midi/nova/ambient/empreinte_du_numerique.tidal | 36 ++++++++++++++++++++++-------------- live/midi/nova/breaks/its_about_time.tidal | 46 +++++++++++++++++++++++++++++----------------- live/midi/nova/breaks/lunar.tidal | 1 + live/midi/nova/breaks/solar.tidal | 3 +++ live/midi/nova/dnb/alerte_verte.tidal | 19 ++++++++++--------- live/midi/nova/dnb/lucy_rode.tidal | 13 +++++++------ live/midi/nova/lounge/top_hats.tidal | 8 ++++---- live/mood/soothing/breathe.tidal | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/nightly_repair.tidal | 12 ++++++------ live/techno/noir/burn_this_book.tidal | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------- 18 files changed, 560 insertions(+), 97 deletions(-) create mode 100644 live/ambient/batavia_la_tortue.tidal create mode 100644 live/ambient/before.tidal create mode 100644 live/ambient/brise_les_chaines.tidal create mode 100644 live/collab/please_die/concombre.tidal create mode 100644 live/fusion/morning/latin_core.tidal create mode 100644 live/mood/soothing/breathe.tidal diff --git a/live/ambient/batavia_la_tortue.tidal b/live/ambient/batavia_la_tortue.tidal new file mode 100644 index 0000000..f7c98c7 --- /dev/null +++ b/live/ambient/batavia_la_tortue.tidal @@ -0,0 +1,60 @@ +-- Batavia... + +do +setcps (105/60/4) +let gF = (# djfbus 1 (range 0.05 0.95 "^49")) +let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) +let gMask = (midiOn "^41" (mask " . > >")) +let gMute = (midiOn "^73" (mask "f*16")) +let gM = gMask . gMute +d1 $ gF $ gM + $ midiOn "^14" (fast 2) + $ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t >") + -- $ midiOff "^42" (<| " . ~ ~ <~ t> <~!3 t>") + $ midiOff "^42" (<| "t") + $ "[jazz,cpu:8]" + # midiG' "^78" 0 1.2 +d2 $ gF2 $ gMask -- Coupe de feu + $ midiOn "^43" (struct "~ t ~ t ~ t ~ [ <~ t>]") + $ midiOff "^43" (slow 2) + $ "~ cp" + # lpf 2000 + # note (-4) + # midiG' "^79" 0 1.2 +d3 -- weird memories + $ gF2 + $ "90s_weird:1" + # cut 3 + # note 0 + # crushbus 31 (range 16 2.5 "^56") + # panbus 32 (range "<0.1 0.2 0.3 0.4>" "<0.4 0.5 0.6 0.7>" (fast 16 sine)) + # room 0.74 # dry 1.4 + # sz 0.1 + # midiG' "^84" 0 0.9 +d4 $ gF $ gMute -- roll till you can + $ whenmod 64 48 (ply "<2!3 4>") + $ "d*<1!4 0 1 2 1 1> d*<1!4 0!3 8> d*4 d*<1 2 2 1>" + # "[dr,drum:2]" + # midiG' "^80" 0 1.2 +d5 $ gF2 $ gMask + $ sometimesBy "^33*8" ( (ply 1 + . mask "t f" + . (arp "down") + . (|+ note "[12,24,36,48]") + . (|+ pan 0.12) + )) + $ midiOn "^57" (euclid "<3 [3 5] 5 [5 <4 8>]>" 8) + $ note (slow 2 "[gs3@2,]") + # "bassWarsaw" + # crushbus 51 (range 16 2.5 "^53") + # room 0.2 + # midiG' "^81" 0 1.3 +d6 $ gF $ gM -- Break rayon laser =------------> + $ midiOn "^91" (ply 8) + $ midiOn "^59" (ply "1 <1!3 2>") + $ midiOff "^59" (slow 4) + $ slice 8 (run "<8!7 16>") + $ "break:4" + # cut 6 + # speed (range 0 2 "^55") + # midiG' "^83" 0 1.5 diff --git a/live/ambient/before.tidal b/live/ambient/before.tidal new file mode 100644 index 0000000..b05572c --- /dev/null +++ b/live/ambient/before.tidal @@ -0,0 +1,75 @@ +-- Before +-- Ils arrivent +do +setcps (80/60/4) +let gF = (# djfbus 1 (range 0.05 0.95 "^49")) +let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) +let gMask = (midiOn "^41" (mask "t . > >")) +let gMute = (midiOn "^73" (mask "f*16")) +let gM = gMask . gMute +d1 + $ midiOn "^14" (fast 2) + $ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t >") + -- $ midiOff "^42" (<| " . ~ ~ <~ t> <~!3 t>") + $ midiOff "^42" (<| "t") + $ "[808bd:13,cpu]" -- 4 6 + # midiG' "^78" 0 1.2 +d2 $ gF -- Slow clap + $ midiOn "^41" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN! + $ midiOn ("^43" - "^42") ((whenmod 8 4 (fast "<1 2 1 4> <2 2 4 4>")) . (struct "~ t ~ t")) + $ midiOff ("^43" + "^42") (struct "~ t") + $ "clap" + # hpqbus 22 (range 0 (1 - "^41") "^31") + # hpfbus 21 (range 0 5000 "^51") + # midiG' "^79" 0 1.2 +d3 $ gM $ gF -- Broken drummer + $ sometimesBy (1 - "^52") (mask "t(3,8)") + $ sometimesBy "0!4 1 0!3" (mask "t(4,16)") + $ sometimesBy "0!7 1" (ply 2) + $ n (run 16) + # "amencutup"-- V2: FrankAmenBreak + -- $ chop 32 $ loopAt 1 $ "fbreak80" -- V1: Existing + # midiG' "^80" 0 1.2 + # cut 3 +d6 $ gMute + $ "dr*[<16 [16 32 16]> 16 <32 [32 16 32]> <16 [8 16]>]" + # "drum:2" + # midiG' "^83" 0 1.1 +d7 $ gM $ gF -- Final cymbal + $ mask "" + $ "808cy:4" # gain 0.8 + # room 0.5 # dry (slow 8 $ range 0 0.8 saw) + # lpf 3400 +d4 $ gF2 "atmos/4" # "90s_synatm:0" # cut 4 + # delay 0.2 + # delayfb 0.8 + # delayt 0.125 + # crushbus 41 (range 16 1.2 "^56") + # pan 0.7 + # midiG' "^84" 0 0.9 +d5 $ gMask $ gF2-- La Basse qui devance + $ midiOn "^57" ( + superimpose (off 0.5 (|* gain 0.9) . arp "up" . (|+| note "") + . mask "t(1,4)" + ) + -- chop "4 <[4 8]> 4 <4!3 16>" + ) + $ juxBy 0.3 ( + (# crushbus 51 (range 16 2.2 "^53")) + . (|* gain 0.8) + ) + $ note (" e@2>" + - "[0,12]" + - 24) + # "bassWarsaw" + # room 0.2 # sz 0.5 + # pan 0.3 + # midiG' "^81" 0 1.2 +d8 $ gM $ gF2-- Mothership + $ whenmod 64 32 (off 4 (# crush 4) . (# cut 81)) + $ "<~!8 ~ fx ~ ~>" + # "fx_commodore:8" + # cut 8 + # midiG 0.6 + # room 0.2 # dry 1 # szbus 81 (slow 4 $ range 0.2 0.8 saw) + # pan "<0.8!8 0.2!8>" diff --git a/live/ambient/brise_les_chaines.tidal b/live/ambient/brise_les_chaines.tidal new file mode 100644 index 0000000..7d8e926 --- /dev/null +++ b/live/ambient/brise_les_chaines.tidal @@ -0,0 +1,46 @@ +once $ "90s_synatm:1" # cut 1 # gain 0.98 + +do +let gF = (# djfbus 1 (range 0.05 0.95 "^49")) +let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) +let gMask = (midiOn "^41" (mask "t . > >")) +let gMute = (midiOn "^73" (mask "f*16")) +setcps (110/60/4) +d1 $ gF + $ "k " # "[jazz,kick:4,kick:5]" + # midiG' "^78" 0 1.2 +d2 $ gF + $ midiOn "^43" (fast "<2!3 <4 [4 8]>>") + $ "~ snare" # n "[22,26]" + # midiG' "^79" 0 1.5 + # room 0.8 # dry 1 + # lpf 2000 +d3 $ gF $ n (stack [ + "0", "~ 2*<1 2 4 8>", "~ 3 <~ 3>" + ]) + # "amencutup" + # midiG' "^80" 0 1.2 +d4 $ gF + $ midiOn "^57" (mask "t(<4!4 8!4 12!4 16!4>,16)") + $ chop 16 + $ whenmod 32 24 (iter "1 4") + -- $ superimpose ((|+ note 12) . (# cut 41)) + -- $ midiOn "^57" (rev) + $ loopAt 2 + $ chop 8 + $ "bass_commodore:6" # cut 4 + # midiG' "^81" 0 1.2 + # crushbus 41 (range 16 1.2 "^53") +d7 -- ACID BUS + $ midiOn "^58" (slice 32 ("<0 0 0 0 0 1 1 1 0 1 2 2 0 2 2 3>*4")) + $ midiOff "^58" (slice 8 "<0 1 2 3>") + $ loopAt 8 $ "synth_commodore:0" + # midiG' "^82" 0 1.2 + # cut 7 +d8 $ gF + $ superimpose ((# leslie 0.4) . (# lsize 2.8) . (# lratebus 81 (range 0 64 "^55"))) + $ "90s_synatm:1" # lpf 2000 + # lpq (slow 32 $ range 0 0.4 saw) + # cut 8 # midiG' "^83" 0 1 + # room 0.2 + # crushbus 82 (range 16 1.2 "^35") diff --git a/live/chip/ataright.tidal b/live/chip/ataright.tidal index b131072..fad4246 100644 --- a/live/chip/ataright.tidal +++ b/live/chip/ataright.tidal @@ -1,17 +1,45 @@ -once $ "dr" + + _______________________________________ + |,---"-----------------------------"---,| + ||___ 16 bit.................... || + ||====\ :HHHHHHHHHHHHHHHHHHHHHHHHHHH || + ||=====):H c> ATA-RIGHT??? # H || + ||====/ :H H || + ||""" :H H || + || :H H || + || :HHHHHHHHHHHHHHHHHHHHHHHHHHH || + ||_____,_________________________,_____|| + |)_____)-----.| /I\ATARI |.------(_____(| + //"""""""|_____|=----------=|______|"""""""\ + // _| _| _| _| _| _| _| _| _| _| _| _| _| _| \ + // ___| _| _| _| _| _| _| _| _| _| _| _| | | \ + |/ ___| _| _| _| _| _| _| _| _| _| _| _| ______| \ + / __| _| _| _| _| _| _| _| _| _| _| _| _| _| ___| \ + / _| _| _| _| ________________________| _| _| _| _| \ +|------"--------------------------------------"-------| +`-----------------------------------------------------' + [] ,----.___ [] ,----.___ + __||_/___ '. __||_/___ '. + / O|| /| ) / O|| /| ) + / "" / / =._/ / "" / / =._/ +/________/ / /________/ / +|________|/ |________|/ +-- Thanks dew & PORTFO for the ASCII art <3 do let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) let g2 = (# djfbus 2 "^50") +let gMask = (midiOn "^41" (mask "t . > >")) +let gMute = (midiOn "^73" (mask "f*16")) +let gM = gMask . gMute let modIndex = pF "modIndex" setcps (120/60/4) -d1 $ g1 -- THE ROAD - $ midiOn "^41" (fast 2) - $ midiOn "^42" (struct "t*2") - $ midiOff "^42" (struct "t t t ") +d1 $ g1 $ gM -- THE ROAD + $ midiOn "^42" (struct "t t t ") + $ midiOff "^42" (struct "t*2") $ "[jazz,808bd:6]" - # midiG' "^78" 0 1 -d2 $ g1 -- THE FUEL + # midiG' "^78" 0 1.4 +d2 $ g1 $ gMute -- THE FUEL $ midiOn "^43" (mask "t f . f t ") $ midiOn "^75" (ply 2) $ loopAt 4 @@ -20,17 +48,18 @@ d2 $ g1 -- THE FUEL # midiG' "^79" 0 1.2 # lpf 2800 # cut 2 -d3 $ g2 -- THE GUIDELINES +d3 $ gM $ g1 -- THE GUIDELINES $ midiOn ("^44" - "^76") (sometimesBy (slow 8 $ range 0.3 0.95 saw) $ mask "t(3,8)") $ midiOn "^76" (fast "<2!4 <4 [4 8]>>") -- YOU SHALL RUN $ struct "t*[<8!3 <16 [[16|32]*4]>>!3 <16!3 [12|24]*4> 12!4]" $ "h2ogmhh" - # midiG' "^80" 0 1 + # midiG' "^80" 0 1.2 # n "<0!4 1 2 3>" -d4 -- THE THUNDER +d4 $ gMask -- THE THUNDER $ g2 + $ midiOn "^57" (off "0.75" id) $ midiOn "^89" (off "1" id . chop "8") $ fix (|* gain 0.8) (note "a4") $ note " ~ >]!4>>" @@ -43,17 +72,26 @@ d4 -- THE THUNDER # pan "<0.8!3 0.5>" # midiG' "^81" 0 1.8 # room 0.4 -d5 -- THE RAIN - $ g2 +d5 $ g2 $ gMask -- THE RAIN + $ midiOn "^58" ((whenmod 8 7 (off "s" id)) .(off "e" id)) $ midiOn "^90" (striate "<2!3 4>" . ply 2) $ struct "t(<3!7 [3 8]>,8,<0!3 3>)" $ note ( arp "down" - (" g'min'4>" |+| "ef3")) + (" g'min'4>" |+| "ef3" - 12)) # "FMRhodes2" # modIndex (range 0 128 "^54") # crushbus 41 (range 16 4 "^34") # roombus 42 (range 0 0.2 "^34") # sz 0.5 # pan 0.8 - # midiG' "^82" 0 1.5 + # midiG' "^82" 0 1.9 +d8 $ g1 $ gM -- THE UNAVOIDABLE BREAKS + $ mask "t(16,64)" + $ midiOn "^60" (ply 2) -- + $ midiOn "^92" (fast 2) -- FIXME + $ slice 8 ("<0!3 ~> <1!3 3> <2 2 [2 6][ 2 6 6 6]> <3!3 7>*<1 2>") + $ loopAt 2 + $ "fbreak120:3" + # cut 8 + # midiG' "^84" 0 1.3 diff --git a/live/chip/step_silence.tidal b/live/chip/step_silence.tidal index c7dde8e..fce5b0e 100644 --- a/live/chip/step_silence.tidal +++ b/live/chip/step_silence.tidal @@ -41,7 +41,7 @@ d5 $ g2 -- THE BASS REMNANTS # legato 2 # cut 5 # midiG' "^81" 0 1 d6 -- TODO BASSLINE <3 - $ "bassWarsaw" + $ note (-24) # "bassWarsaw" # midiG' "^82" 0 1.3 d8 $ g2 $ midiOn "^59" (chop 2) @@ -49,9 +49,12 @@ d8 $ g2 $ "90s_glassatm:3" -- Scintillant espoir # crushbus 81 (range 16 1.8 "^55") # cut 8 - # midiG' "^83" 0 0.8 + # midiG' "^83" 0 1.2 # pan (0.9 - 0.3 * perlin) - +d9 + $ slice 8 "0 1 2*<1!4 2 1!3> 3 0 <~!3 1> 3 7*<1!3 2>" + $ "fm:7" + # midiG' "^84" 0 1.2 once $ "90s_glassatm:1" diff --git a/live/collab/please_die/concombre.tidal b/live/collab/please_die/concombre.tidal new file mode 100644 index 0000000..1897311 --- /dev/null +++ b/live/collab/please_die/concombre.tidal @@ -0,0 +1,63 @@ +do +setcps (120/60/4) +let gF = (# djfbus 1 (range 0.05 0.95 "^49")) +let gF2 = (# djfbus 2 (range 0.2 0.8 "^50")) +let gM = midiOn "^73" (mask "f*16") +d1 $ gF $ gM + $ (|* midiG' "^78" 0 1.4) + $ superimpose (const $ "~ s ~ s*<1 2 1 [1|2]>" # "snare:24" # gain 1.3 # note (8)) + $ fix (|* gain 0.9) "jazz" + $ fix (|* gain 1.2) "kick:5" + $ midiOn "^42" (<| "k k k k]>") + $ midiOff "^42" (<| "k ~ [~ k] <~!3 k>") + $ "[kick:5,jazz]" +d2 $ gF $ gM + $ midiOn "^43" (fast 2) + $ "~ s ~ s" +-- $ "~ ~ s ~" +-- $ "~ ~ ~ ~ s ~ ~ ~" + # "snare:24" # gain 1.3 + # midiG' "^79" 0 1.5 +d3 $ gF $ gM + $ ply "2!3 1" + $ "dr*8" + # crushbus 51 (range 16 2.5 "^53") + # midiG' "^80" 0 1.5 +d5 $ gF2 $ gM + $ chop 8 + $ "90s_matrix:3" + # crushbus 51 (range 16 2.5 "^53") + # sz 0.9 + # room 0.3 + # cut 5 + # midiG' "^81" 0 1.2 +d7 $ gF2 + $ midiOn "^57" (off "e" (mask "t!7 f")) + -- $ struct "t*4" + $ note (arp "" $ "") + -- $ note (arp "" $ "<>") + # "bassWarsaw" + # crushbus 71 (range 16 2.5 "^54") + # midiG' "^82" 0 1.8 +d6 $ gF2 $ gM + $ midiOn "^57" (ply "4 8") + $ "90s_matrix:0" + # crushbus 61 (range 16 2.5 "^55") + # sz 0.9 + # cut 6 + # midiG' "^83" 0 2 +d8 $ gF2 + $ struct "t*16" + -- $ superimpose (|+| note "[0 12]") + $ arp "up" + $ note ("a3'min'4" + "[0,<12!3 24>]") + # "acidOto3092" + # crushbus 81 (range 16 3.5 "^56") + # rel 2 + # midiG' "^84" 0 2 +d9 $ gF -- Breaks silence pesant. + $ slice 8 "<0 1 2 3> . <~!4 5 6 7>" + $ loopAt 4 + $ "drums_atari:15" + # midiG' "^20" 0 2 + # cut 9 diff --git a/live/fusion/morning/latin_core.tidal b/live/fusion/morning/latin_core.tidal new file mode 100644 index 0000000..6f87fd9 --- /dev/null +++ b/live/fusion/morning/latin_core.tidal @@ -0,0 +1,44 @@ +do +let scale = getScale (scaleTable ++ [("latin", [1,3,4,6,8,10])]) +setcps (65/60/4) +let mFast = midiOn "^41" (fast 2) +d1 $ mFast + $ midiOn "^42" ((<| "k k k ")) + $ midiOff "^42" (<| "k . k(<3!3 [<3 8> 5]>,8)" ) + $ "jazz" + # midiG' "^78" 0 1.8 +d2 + $ often (ply "1 . [2 <2!3 [2|4]>]") + $ fast 8 + $ "~ jungle:8" + # midiG' "^79" 0 1.8 +d10 $ whenmod 32 16 (fast 2) + $ whenmod 4 3 (mask "" . off "e" (# pan 0.1)) + $ "~ h2ogmcp" + # midiG' "^79" 0 1.8 +d3 -- Broken break + $ slice 4 "0*<<1 2> 1 1 2> <1 ~> <2 ~ ~ 2> 3*<1 1 2 <1 4>>" + $ loopAt 1 $ "fbreak80:2" + # midiG' "^80" 0 1.8 +d4 + $ slice 16 ("0 0 0 <0 0 1 2>" + "<0!4 1!8 2!3 3>") + $ loopAt 16 + $ "latin" + # rel 1 + # cut 4 + # midiG' "^82" 0 2 + # room 0.42 # sz 0.8 # dry 1 +d5 $ note (scale "latin" ("-2@3 <-2 -3 -4 -5> . -2 <0 0 1 <2 4>>") - 12) + # "bassWarsaw" + # crushbus 51 (range 16 2.5 "^53") + # midiG' "^81" 0 2 +d6 + $ note (scale "latin" (arp "up" "1*<1 1 2 1 2 1!3> ~ . <[1 3 2 3 <5 6 6 7>] [1 3 <5 6>]>") + - 1) -- Adjuste jvbass-1 + # "jvbass:3" + # midiG' "^82" 0 2 + + +d7 + $ slow 4 $ "fmono:12" + # cut 7 # gain 0.8 diff --git a/live/midi/nova/ambient/contre_visite.tidal b/live/midi/nova/ambient/contre_visite.tidal index 087e6f5..596d7af 100644 --- a/live/midi/nova/ambient/contre_visite.tidal +++ b/live/midi/nova/ambient/contre_visite.tidal @@ -1,28 +1,24 @@ + -- Contre Visite -- Un deuxième regard n'est jamais de trop. do -- TRIGGER INTRO :) -resetCycles -once $ "90s_synatm:8" # gain 0.45 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94 +-- resetCycles +-- once $ "90s_synatm:8" # gain 0.5 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94 let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine))) let gF = 1.01 let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) let f2 = (# djfbus 2 (range 0.05 0.95 "^50")) let maskLoops = (mask "" . mask "") -let kCrush = midiOn "^74" ((# crush 2.5) . (# legato 0.25)) setcps (90/60/4) d1 $ f1 - $ kCrush - $ midiOn ("^73") (fast 2) -- RUN - $ midiOn ("^42") (slow 4) -- PAUSE + -- $ kCrush + $ midiOn "^42" (struct "t t t ]>") + $ midiOff "^42" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>") -- $ mask "" - $ midiOff "^42" (maskLoops) - $ midiOn "^41" ((<| "k k k k]>") . (# legato 0.6)) - $ midiOff "^41" (<| " . ~ ~ ~ <~!3 k>") - -- $ "[reverbkick,808bd:6,kick:8]" - $ "[jazz]" - # lpf 1000 - # crush 16 + $ "[808bd:6,kick:8]" + -- $ "[jazz,kick:5]" + # room 0 # midiG' "^78" 0 1.3 d2 $ f1 $ mask ",4)!4 t!28>" -- Intro / break/32 @@ -69,8 +65,8 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS # pan 0.43 # dry 1 # panbus 51 (range 0.8 0.65 saw) - # crushbus 52 (range 12 2.85 "^54") - # midiG' "^82" 0 1.4 + # crushbus 52 (range 16 2.85 "^54") + # midiG' "^82" 0 1.8 d6 $ f1 -- High lead: Winds of truth $ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3 $ whenmod 8 6 (swing "<4 2>") @@ -93,7 +89,7 @@ d6 $ f1 -- High lead: Winds of truth # cut 6 d10 $ f1 -- RANDOM FOREST NOISES $ fix ( - kCrush . + -- kCrush . struct "t t t t t*<1 2> [ ] t t" . (# "[future:1,jazz]") . (# midiG' "^13" 0 1.8) diff --git a/live/midi/nova/ambient/empreinte_du_numerique.tidal b/live/midi/nova/ambient/empreinte_du_numerique.tidal index 0de922d..177bded 100644 --- a/live/midi/nova/ambient/empreinte_du_numerique.tidal +++ b/live/midi/nova/ambient/empreinte_du_numerique.tidal @@ -1,27 +1,33 @@ - -d1 $ "dr*8" # gain 0.8 - + -- + -- c=====e + -- H + -- ____________ _,,_H__ + -- (__((__((___()()__________________________// |0101| + -- (__((__((___() //|1010| + -- (__((__((___()()()------------------------' |0111| + -- EMPREINTE DU NUM3R1QU3 do let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw))) let gHPF = ((# djfbus 2 (slow 8 $ range 0.5 0.85 saw))) let gPont2 = (someCyclesBy "<0!32 1!16 0!16>" gHPF) let gPont1 = (whenmod 32 24 gLPF) --- let g = gPont1 let g = (# djfbus 1 (range 0.05 0.95 "^49")) let modIndex = pF "modIndex" --- resetCycles +let gMask = (midiOn "^41" (mask "t . > >")) +let gMute = (midiOn "^73" (mask "f*16")) +let gM = gMask . gMute setcps (110/60/4) -d1 $ g +d1 $ g $ gMute $ midiOn "^42" (<| "k k k ") $ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~") - $ "jazz" - # midiG' "^78" 0 1.3 -d2 $ g + $ "[jazz,808bd:6]" + # midiG' "^78" 0 1.5 +d2 $ g $ gM $ midiOn "^43" (fast "<1!3 2 2 2 4 <8 [8 4]>>") $ "~ s" # "[sn:40,snare:20]" # note "<-2!3 -4>" # midiG' "^79" 0 1.8 -d3 $ g +d3 $ g $ gMute $ midiOn "^76" (fast 2) $ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>") $ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0" @@ -29,7 +35,7 @@ d3 $ g # dry 0.95 # midiG' "^80" 0 (1.6 * "1.2 1!6 <1 1 1.1 <1.2 1>>") d4 -- Break bonus banane - $ g + $ g $ gM $ midiOn "^92" (ply "2!3 1 2!3 <2 4>") $ midiOn "^60" ( -- Aerial mask mask "t f t" @@ -41,6 +47,8 @@ d4 -- Break bonus banane # cut 4 # midiG' "^84" 0 1.3 d5 $ g $ gPont2 -- BASSLINE BoomRang! + $ midiOn "^57" (# n "50") + $ midiOn "^89" (ply "2 4" . chop "2 <2 4>") -- $ whenmod 64 32 (# crushbus 41 (range 16 2.5 (slow 32 saw))) $ slice 2 "<0!3 1>" $ "fbass:51" @@ -52,7 +60,7 @@ d5 $ g $ gPont2 -- BASSLINE BoomRang! # lesliebus 52 "^33" # pan 0.3 # crushbus 53 (range 10 1.61 "^53") - # midiG' "^81" 0 0.9 + # midiG' "^81" 0 1.4 d7 $ g -- Back solar mandoline $ midiOn "^59" (off "s" (|+ note "<7 9 5 <7 12>>")) $ midiOn "^91" (off "e" (|+ note 12)) @@ -62,10 +70,10 @@ d7 $ g -- Back solar mandoline # pan 0.8 # room (range 0 0.3 "^55") # crushbus 71 (range 10 3.61 "^55") - # midiG' "^83" 0 1.3 + # midiG' "^83" 0 1.5 d6 -- RHODES FOLIE <33 $ g - $ midiOn "^58" (off "h" id) + $ midiOn "^58" (off "e" id) $ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)" $ swing (1 + ("0 2" * "^58") + (2 * "^90")) $ note ("d4/2" + scale "" (run 16)) diff --git a/live/midi/nova/breaks/its_about_time.tidal b/live/midi/nova/breaks/its_about_time.tidal index 66f6d23..0a19789 100644 --- a/live/midi/nova/breaks/its_about_time.tidal +++ b/live/midi/nova/breaks/its_about_time.tidal @@ -1,9 +1,12 @@ once + $ off 3 id + $ off 2 id $ "90s_weird:0" - # speed 0.8 -- TODO Slowly move to 0.5 - # gain 0.68 # cut 13 -- Spooky intro! - # gain 0 - -- (ParVagues ------ live) + # speed 0.35 -- TODO Slowly move to 0.5 + # gain 0.9 # cut 13 -- Spooky intro! + -- # gain 0 + + -- (.ParVagues ----- L1VE.) -- T""""""""""""""""""""T -- |.;....,..........;..| -- |;;:: . . . | @@ -36,24 +39,26 @@ once -- (For 0rbit.l0ve <3) -- """""""""""""""""""""" - do setcps (110/60/4) let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) -d10 -- Ready player two +let gMask = (midiOn "^41" (mask "t . > >")) +let gMute = (midiOn "^73" (mask "f*16")) +let gM = gMask . gMute +d10 -- Ready playerm two $ mask "" $ slice 8 "0 <0!3 1>" $ loopAt 4 $ "fx_gameboy:5" # crushbus 101 (slow 32 $ range 1.8 0.61 saw) # midiG' "^20" 0 0.85 -d1 $ gF -- Tradition never disappoints: 4 on the fl00r... +d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... $ midiOn "^42" (<| "k k k k]>>") $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . ]>") -- ..or not? $ "[kick:5,808bd:4]" - # midiG' "^78" 0 1.1 -d2 $ gF -- Break "80s' Apocalypse in a Box™" + # midiG' "^78" 0 1.3 +d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™" $ midiOn "^44" (fast "1 2") $ midiOn "^76" -- L'Esprit de Nassim ( @@ -63,19 +68,22 @@ d2 $ gF -- Break "80s' Apocalypse in a Box™" (# "breaks165") . (# cut 2) . (|* gain 1.1) ) + $ chop 8 $ loopAt 4 - $ chop 4 $ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]" # cut 2 - # gain 0.77 - # midiG' "^80" 0 1.1 + # midiG' "^80" 0 1.2 # pan 0.4 d3 $ gF -- Un peu d'encouragement? $ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000)) $ "~ clap" - # midiG' "^79" 0 1.1 + # midiG' "^79" 0 1.4 -- # gain 0.8 d4 $ gF2 -- BURN THE BASS WITCH + $ midiOn "^57" (superimpose ( -- chain of wicked thoughts + (|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>")) + . (|* gain "<1 1 1.05 1.1>") + . (chop "8 . <8!3 16>") . (# cut 41))) $ midiOn "^89" (chop (slow 4 $ "[16 32 64 128]")) $ "synth/4" # "90s_synatm:9" @@ -85,10 +93,11 @@ d4 $ gF2 -- BURN THE BASS WITCH # dry 1 # cut 4 # midiG' "^81" 0 1.1 -d5 $ gF2 -- Ghosts from an easier time +d5 $ gM $ gF2 -- Ghosts from an easier time $ midiOn "^58" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge") $ note ("c'maj'4" + "" - 12) # "90s_synatm:8/4" # cut 5 + # crushbus 51 (range 16 2.5 "^54") # midiG' "^82" 0 1.1 d6 $ gF2 -- Jump aboard the BASIC BUS $ midiOn "^59" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)") @@ -99,14 +108,17 @@ d6 $ gF2 -- Jump aboard the BASIC BUS # squizbus 62 (range 0 1.5 "^35") # roombus 63 (range 0 0.5 "^19") # midiG' "^83" 0 1.45 + # panbus 64 (range 0.13 0.87 (slow 16 saw)) # cut 6 -d7 -- Break from the past +d7 $ gM -- Break from the past + $ (# speed (range 0 (1) "^56")) + $ midiOn "^60" (often (ply 2)) $ midiOn "^92" (slice 8 "0 ~ ~ 3 . 4 <~ 5> 6 <~ 7*<1 2>>" . loopAt 2) $ loopAt 1 - $ midiOff "^92" (splice 8 "0 <0 1 2*<1 2> 3*<1 2>>") + -- $ midiOff "^92" (splice 8 "0 <0 1 2*<1 2> 3*<1 2>>") $ "fbreak100" # n "<0!3 [0 4]>" # cut 7 # pan 0.8 # room 0.3 # dry 1 - # midiG' "^84" 0 1.45 + # midiG' "^84" 0 1.8 diff --git a/live/midi/nova/breaks/lunar.tidal b/live/midi/nova/breaks/lunar.tidal index 0e28953..7b3fd03 100644 --- a/live/midi/nova/breaks/lunar.tidal +++ b/live/midi/nova/breaks/lunar.tidal @@ -21,6 +21,7 @@ d3 $ g1 $ m -- Clap contretemps stable $ "~ clap:1" # room 0.8 # sz 0.6 # dry 0.9 # midiG' "^79" 0 1.0 + # pan "^15" d2 $ g1 $ m -- BREAKs divers $ midiOn ("^44" - "^76") (ply 2) $ midiOn "^76" (striate 2) diff --git a/live/midi/nova/breaks/solar.tidal b/live/midi/nova/breaks/solar.tidal index 7173897..573782b 100644 --- a/live/midi/nova/breaks/solar.tidal +++ b/live/midi/nova/breaks/solar.tidal @@ -1,4 +1,6 @@ -- Solar - breakbeat nostalgic playground +d1 $ "jazz*4" + do setcps (110/60/4) @@ -83,6 +85,7 @@ d9 $ g1 $ m # midiG' "^84" 0 1.0 + -- REGION BACKYARD d8 $ g2 -- FIXME REMOVE OR SAVE diff --git a/live/midi/nova/dnb/alerte_verte.tidal b/live/midi/nova/dnb/alerte_verte.tidal index dcab298..031cdeb 100644 --- a/live/midi/nova/dnb/alerte_verte.tidal +++ b/live/midi/nova/dnb/alerte_verte.tidal @@ -6,16 +6,17 @@ setcps (160/60/4) let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw)) -d1 $ g1 -- KICK +let gM = (midiOn "^73" (mask "f*16")) +d1 $ g1 $ gM -- KICK $ midiOn "^74" (fast 2) - $ midiOn "^41" (<| "k k k ") -- RUN! + $ midiOn "^41" (<| "k k k ") -- RUN! $ midiOn "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT? $ midiOff ("^41" + "^42") (<| "k*2") -- ST0P. $ fix (|* gain 0.9) "kick:5" $ "[jazz,kick:5]" # release 0.8 # midiG' "^78" 0 1.5 -d2 $ g1 -- Snare tchak! +d2 $ g1 $ gM -- Snare tchak! $ midiOn "^43" (ply 2) $ midiOn "^75" --BOUTON NASSIM ( @@ -34,7 +35,7 @@ d2 $ g1 -- Snare tchak! # note (range "-7" 7 "^51") # room 0.8 # dry 0.99 # sz 0.2 # midiG' "^79" 0 1.2 -d3 $ g1-- Running Hats +d3 $ g1 $ gM -- Running Hats $ g32Bridge $ midiOn "^44" (slow 2) $ midiOn "^76" (fast 2) @@ -59,7 +60,7 @@ d4 $ g1 -- Resolute Bass # pan 0.15 -- # room 0.125 # sz 0.1 # dry 1 # crushbus 41 (range 16 1.25 "^53") - # midiG' "^81" 0 1.5 + # midiG' "^81" 0 1.6 # cut 4 d6 -- Guitar A -- L'attente (18=0) TODO Rework? $ g2 @@ -71,7 +72,7 @@ d6 -- Guitar A -- L'attente (18=0) TODO Rework? $ "fguitar:24" # pan 0.8 # crushbus 51 (range 10 3.5 "^54") - # midiG' "^82" 0 (1 * (range 1.4 0 "^18")) + # midiG' "^82" 0 (1 * (range 1.2 0.5 "^18")) # cut 6 d7 -- Guitar B -- Le run (18=127) $ g2 @@ -95,8 +96,8 @@ d8 $ g1 -- Clave de l'été pitchable $ (|* gain "0.75 1 1 1 0.75 1 1 1") $ "d ~ ~ d d ~ d <~!3 d>" # "[<808lc!6 808hc!2>,<~!4 808mc!4>]" - # speed (range 0.5 2 "^55") - # midiG' "^83" 0 1.5 + # speed (range 0 2 "^55") + # midiG' "^83" 0 1.8 d10 $ g2 -- Nappes crushées indépendantes $ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>") -- $ superimpose ((|- note 12) . (# cut 101)) @@ -121,7 +122,7 @@ d11 $ g2 -- Sirene indépendante # room 0.4 # sz (slow 32 $ range 0.125 0.9 saw) # dry (slow 32 $ range 0 2 perlin) # cut 11 -d9 $ g1 -- CLAPS! -- FIXME Broken whenmod 4 3 +d9 $ g1 -- CLAPS! $ "~ c ~ " # "cp" # midiG' "^84" 0 1.5 diff --git a/live/midi/nova/dnb/lucy_rode.tidal b/live/midi/nova/dnb/lucy_rode.tidal index 8930782..78c9ccf 100644 --- a/live/midi/nova/dnb/lucy_rode.tidal +++ b/live/midi/nova/dnb/lucy_rode.tidal @@ -16,21 +16,21 @@ do setcps (60/60/4) d1 $ g -- Beat $ fast 2 - $ midiOn "^41" (<| "k k k ") + $ midiOn "^41" (<| "k k k >") $ midiOn "^42" (<| "k . k <~ [<~ k> ]>")-- RubADub $ midiNo "^41" "^42" (<| ">") $ "[jazz,kick:5]" - # midiG' "^78" 0 1.1 + # midiG' "^78" 0 1.5 d2 $ g -- Break $ midiOn "^43" (scramble 4 . often (ply 2)) $ midiOn "^75" (struct "t*[8 16]") $ slice 4 (run 8) $ loopAt 1 $ "break:15" - # midiG' "^79" 0 1.2 # pan 0.35 - # speed (range 0 2 "^51") # cut 2 + # speed (range 0 2 "^51") + # midiG' "^79" 0 1.6 d3 $ g -- Drumroll $ midiOn "^44" (ply 2) $ midiOn "^76" (ply 2) @@ -71,6 +71,7 @@ do # cut 6 # midiG' "^82" 0 1.8 # room 0.2 # dry 2 # sz 0.8 + # pan 0.8 # crush (range 10 3.7 "^54") # modIndex (range 0 4.19 "^34") d7 $ g2 -- Hope's Hammond @@ -93,8 +94,8 @@ do # pan 0.74 # sustain (range 0.125 0.5 "^55") # midiG' "^83" 0 1 - d10 $ g + d10 $ g -- Le clap des abysses $ "~ c ~ [c*<1 2> ~]" # "cp" - # midiG' "^84" 0 1 # room 0 # sz 0 # dry 1 # note "-4" + # midiG' "^84" 0 1.2 diff --git a/live/midi/nova/lounge/top_hats.tidal b/live/midi/nova/lounge/top_hats.tidal index c377566..d916d86 100644 --- a/live/midi/nova/lounge/top_hats.tidal +++ b/live/midi/nova/lounge/top_hats.tidal @@ -16,10 +16,10 @@ let g2 = gDJF2 setcps 0.5 d1 $ g1 $ fix (|* gain 0.75) "kick:5" - $ midiOn "^41" ( -- KICK RUN + $ midiOn "^42" ( -- KICK RUN ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.8)) ) - $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>") + $ midiOff "^42" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>") $ "[jazz,cpu]" # midiG' "^78" 0 1.4 d2 $ g1 -- Breathing snare contretemps @@ -55,7 +55,7 @@ d6 $ g2 -- Guitar riffs # room "<0.13!3 0.05>" # sz "<0.6!3 0.9>" # midiG' "^81" 0.4 1.5 -d4 -- Rhodes base + chords +d4 -- Rhodes base + chordsQ $ g2 $ midiOn "^58" (superimpose ( -- ARPS <3 (|+ note 12) @@ -100,6 +100,6 @@ d5 $ g2 -- Choirs + arps # note (prog + "[0,24]") # octave 3 # crushbus 51 (range 13 1.5 "^56") - # midiG' "^84" 0 1.2 + # midiG' "^84" 0 1.6 # pan 0.2 # chorus 0.6 diff --git a/live/mood/soothing/breathe.tidal b/live/mood/soothing/breathe.tidal new file mode 100644 index 0000000..ec22cee --- /dev/null +++ b/live/mood/soothing/breathe.tidal @@ -0,0 +1,64 @@ + +do +let modIndex = pF "modIndex" +let g = (# djfbus 1 (range 0.1 0.9 "^49")) +let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) +setcps (83/60/4) +d1 $ g + $ fix (|* gain 0.8) "jazz" + $ midiOn "^42" (<| "k*<<1!3 2> 2 <1!3 2> <1 <2 1>>> k k <~ k>]>") + $ midiOff "^42" (<| "k . k(<3!3 <1 3>>,8) <~!3 k>") + $ "[808bd:4,jazz]" + # room 0 # sz 0 + # midiG' "^78" 0 1.2 +d2 $ g -- Snare contretemps + $ mask " >>" -- Some breaks + $ whenmod 4 3 (off (-1/16) (|- note 3)) -- Double shot + $ "~ c" + # "snare:42" + # midiG' "^79" 0 1.8 +d3 $ g -- Drumroll + $ midiOn "^44" (ply 2) + $ midiOn "^76" (ply 2) + $ fast "1 <1 1 2 1>" $ ply "1 1 <2 1> <1 1 2 2>" + $ "[amencutup]*8" + # n "[3!3 <3 4> 3!3 4]" + # midiG' "^80" 0 1.8 +d4 $ g2 + -- $ superimpose (|- note 24) + $ note ( + "0 . <0 0([<1 3> 3],8)>" |+ + -- "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>" + "<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>" + ) + # "FMRhodes1" + # modIndex (range 0 32 "^54") + # pan 0.8 + # midiG' "^82" 0 1.8 +d5 $ g2 -- Programmatic bass robot + $ midiOn "^57" (mask "t f!6 t?") -- Take a break my dear + $ whenmod 64 32 (sometimesBy "0 1" rev) -- Run in circles + $ swing 8 + $ arp "" + $ superimpose ((|+ note 12) . (# cut 51)) + $ note ( + "<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b,]>" + - 36 + ) + # "bassWarsaw" + # pan 0.2 + # crushbus 51 (range 16 4 "^53") + # room 0.6 # dry 1 # sz 0.83 + # legato 8 # cut 5 + # midiG' "^81" 0 0.98 +d8 $ g -- Nes Drumfest + $ midiOn "^92" (ply 2) + $ midiOn "^60" (superimpose (const $ g + $ chop 16 $ loopAt 4 $ "drums_nes:5" # cut 81 # midiG' "^84" 0 1.2) + ) + $ loopAt 2 + $ slice 4 (run 4) + $ "drums_nes" + # n ("<1!3 [1 <1 1 2 [2 3]>]>") + # cut 8 + # midiG' "^84" 0 0.98 diff --git a/live/techno/nightly_repair.tidal b/live/techno/nightly_repair.tidal index 81ff36c..7423a85 100644 --- a/live/techno/nightly_repair.tidal +++ b/live/techno/nightly_repair.tidal @@ -10,25 +10,25 @@ let gLPQ = (# lpqbus 3 (range 0 0.95 "^13")) let gHPQ = (# hpqbus 4 (range 0 0.95 "^14")) let g1 = (gDJF1 . gLPQ . gHPQ) let g2 = (gDJF2 . gLPQ . gHPQ) -d1 $ g1 +d1 $ g1 -- Le pouvoir de voler $ midiOn "^74" (fast 2) $ midiOn "^42" (<| "k k*<1!3 2> k ") $ midiOff "^42" (<| "k . k(3,8)") $ fix (|* gain 1) "808bd" $ fix ((|* gain 0.8)) "909" $ "[jazz,909,808bd:4,kick:5]" - # midiG' "^78" 0 1 -d2 + # midiG' "^78" 0 1.4 +d2 -- Every superhero needs a clap + $ midiOn "^43" (fast 2) $ g1 $ superimpose ( (# "clap:1") . (|* gain (slow 16 $ range 0.5 0.8 saw)) ) - $ midiOn "^43" (fast 2) $ "~ cp" # note (-2) # midiG' "^79" 0 1.1 -d3 $ g1 +d3 $ g1 -- Gretsch frappe ton os pour le renforcer $ midiOn "^44" (fast "1 2") $ sometimesBy "^52" (ply "1 2 1 2") $ fix ((|* gain 0.86) . (# n "[4|5]")) "gretsch" @@ -50,7 +50,7 @@ d9 $ g2 -- G0dz1ll4 # dry 2 # sz 0.9 # pan 0.7 - # midiG' "^84" 0 0.9 + # midiG' "^84" 0 1.4 d4 $ g1 -- BASSLINE VOLTAIQUE $ midiOn "^57" ((|+ note 12) . (# legato 4)) $ note ("" - 24) diff --git a/live/techno/noir/burn_this_book.tidal b/live/techno/noir/burn_this_book.tidal index 62733d4..9c8dc62 100644 --- a/live/techno/noir/burn_this_book.tidal +++ b/live/techno/noir/burn_this_book.tidal @@ -1,21 +1,45 @@ +-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __ +-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ / +-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| / +-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \ +-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\ +-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __ +-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ / +-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| / +-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \ +-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\ +-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __ +-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ / +-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| / +-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \ +-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\ +-- 🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥 +-- + do let modIndex = pF "modIndex" let g = (# djfbus 1 (range 0.1 0.9 "^49")) let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) + let gMask = (midiOn "^41" (mask "t . > >")) + let gMute = (midiOn "^73" (mask "f*16")) + let gM = gMask . gMute setcps (120/60/4) - d1 $ g + d1 $ g $ gM $ midiOn "^42" (<| "kick*4" ) - $ midiOff "^42" (<| "k . k(3,8)" ) + $ midiOff "^42" (<| "k . k(3,8)") $ "jazz" # midiG' "^78" 0 1.8 - d2 $ g $ "~ cp" # note "<8!3 -2>" # lpf 4000 + d2 $ g $ gM + $ midiOn "^43" (fast 2) + $ "~ cp" # note "<8!3 -2>" # lpf 4000 # midiG' "^79" 0 1.8 - d5 $ g + d5 $ g $ gM $ gM -- Le comburant $ midiOn "^76" (off "e" id) -- TODO Validate $ midiOn "^44" (ply 2) $ "~ t*<1!8 2 1!6 2> ~ t ~ > ~ " # "cpu2:3" # midiG' "^80" 0 1.65 - d3 + d3 $ g $ gM -- L'étincelle + $ someCyclesBy "^36" (slow "<2!3 [2 1]>") $ midiOn "^92" ((iter 4)) $ midiOn "^60" ( (# delay 0.85) @@ -27,16 +51,40 @@ do $ "drums_nes:3" # midiG' "^84" 0 1.3 # pan 0.2 - d4 $ g2 + d4 $ g2 -- Le combustible + $ midiOn "^57" ( + (superimpose (arp "up " . (|+ note "c'min'8"))) . + (# "bassWarsaw") . (|- note 24) + ) $ note (scale "aeolian" ( "<0 [0, <<7 7 8 9>!3 <8 8 8 7>>]>" )) # "cpluck:0" + # roombus 42 (range 0 0.8 "^33") # sz 0.6 # crushbus 41 (range 16 1.4 ("^53" - 0.12 * (fast 2 perlin))) # midiG' "^81" 0 1.65 - d6 $ g2 + # pan 0.3 + d6 $ g2 $ gMask -- La fumee $ note (scale "aeolian" (arp "up" ("<0!2 3 [0 3]>" |+| "c'maj'4"))) # "cpluck:1" # crushbus 61 (range 16 1.4 ("^54")) - # cut 6 # gain 0.9 + # cut 6 # midiG' "^82" 0 1.65 + # pan 0.7 + d7 $ loopAt 8 -- L'auteur + $ "90s_synatm:16" + # cut 7 + # midiG' "^83" 0 0.93 + # octerbus 71 (range 0 2.4 ("^55")) + # room 0.2 # dry 1 + d8 + $ mask "" + $ "90s_megafx:268@2" + # release 3 + # att 0.1 + # cut 8 + # note (-4) + -- # n (4 + "<1 1 [2|3|4] <1 4>>") + # midiG' 1 0 0.8 + -- # room 0.2 # dry 1 + -- # pan "<0.3!3 <0.7 0.3>>" -- libgit2 0.27.0