diff --git a/live/boeuf/premier_tour.tidal b/live/boeuf/premier_tour.tidal new file mode 100644 index 0000000..08e4d60 --- /dev/null +++ b/live/boeuf/premier_tour.tidal @@ -0,0 +1,80 @@ +once $ "breaks" + +do +setcps (80/60/4) +let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) +let rDeg = degradeBy ("[0 1!7]*2" * (slow 32 $ range 0 0.75 saw)) +let mDeg = degradeBy ("[0 1!7]*2" * range 0 0.9 "^13") +d1 $ g1 $ mDeg + $ (# midiG' "^78" 0 1.5) + -- $ superimpose (const $ "k . k(<1 3 1 5>, 8)" # "jazz" # gain 0.4) + -- $ midiOn "^42" (<| "k <~!16 k!16> . ~ k*2 k*<1!3 <2 4>>") -- BREAK + $ midiOn "^42" (<| "k . k(5,8)") -- BREAK + $ midiOff "^42" (<| "k k k ") -- 4F! + $ "[808bd:2]" +d2 $ g1 $ mDeg + $ whenmod 4 3 (off "" id) + $ midiOn "^43" (fast 2) + $ "~ a" + # note (-4) + # "[amencutup:5, snare:40]" + # midiG' "^79" 0 1 +d3 $ g1 $ mDeg + $ "d d*<1!8 2!8> d*<1!8 2!8> d*<2 2 4 8>" + # "drum:2" + # pan (slow 8 $ range 0.4 0.6 isaw) + # midiG' "^80" 0 1.3 +d5 $ g1 $ mDeg + $ midiOn "^57" (|* speed 2) + $ midiOn "^89" (ply "<2!3 4>") + $ slice 4 ("0 <~ 1> 2 <3!3 3*2>") + $ loopAt 1 + $ "break:17" + # pan (slow 16 $ range 0.33 0.66 sine) + # pan 0.7 + # midiG' "^81" 0 0.9 + # crushbus 51 (range 16 3 "^53") +d6 $ g1 $ mDeg + $ midiOn "^60" (sometimesBy "0 1" rev) + $ midiOn "^92" (ply 2) + $ slice 32 ("[0 1*<0 1 2 3>] [1 0] 2*2 3*<1!3 2>") + $ loopAt 2 + $ "break:19" + # midiG' "^84" 0 0.9 + # cut 6 + # pan 0.8 +d7 $ g1 $ mDeg + $ midiOn "^59" (iter "1 2") + $ midiOn "^91" (superimpose ((|* speed 2))) + $ loopAt "<4!8 2!28>" + $ "breaks165" + # midiG' "^83" 0 0.9 + # cut 7 + # pan 0.8 + + +-- PHASE 2: RESOLUMENT CARRE + +do + setcps (80/60/4) + let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) + d1 + $ "k*4" + # "jazz" + # gain 0.5 + d2 + $ "~ c ~ c" + # "cp" + # lpf 400 + # gain 0.9 + d3 + $ "[h*<1!4 2 1!2 2>] h*3 . h*<1!8 2!8> h*4" + # "hc:3" + # cut 3 + # gain 0.4 + # pan 0.7 + d4 + $ slice 8 (run "8 <8!3 4>") + $ "break:1" + # cut 4 + # gain 0.48 diff --git a/live/chill/break/break_the_sunday.tidal b/live/chill/break/break_the_sunday.tidal new file mode 100644 index 0000000..76bebca --- /dev/null +++ b/live/chill/break/break_the_sunday.tidal @@ -0,0 +1,31 @@ +once $ "dr" + +setcps (75/60/4) + +do +let g = whenmod 32 0 (# djfbus 1 (slow 8 $ range 0.45 0.1 saw)) +let prog = "" +d1 $ g + $ "808bd:5" +d2 $ g $ loopAt 2 + $ whenmod 4 3 (ply "1 2") + $ "break" + # gain 1 + # cut 1 +d3 $ g $ "dr*8" + # gain 0.9 +d4 $ g $ note ("c'maj'4" + prog) + # "FMRhodes1" + # gain 0.9 +d5 $ g + $ whenmod 32 16 ( + superimpose ( + arp "updown" + . (|+ note "c'min'4")) + . (|* gain 0.85) + . (# pan 0.6) + ) + $ note (prog - 24) + # "bassWarsaw" + # pan 0.2 + # gain 1.2 diff --git a/live/dub/renfort_solaire.tidal b/live/dub/renfort_solaire.tidal new file mode 100644 index 0000000..18ab48b --- /dev/null +++ b/live/dub/renfort_solaire.tidal @@ -0,0 +1,87 @@ +do +-- resetCycles +-- once $ note "a3" # "bassWarsaw" # pan 0.35 # cut 6 # gain 0.4 # room 0.8 -- IntroBass Base +setcps (70/60/4) +let g = (# djfbus 1 (0.27)) +d1 $ g -- Kick somewhat RubaDub + $ mask "" -- Intro + $ "k . ~ [~ k] <~ [ <~ k>]>" + # "[cpu2,jazz,808bd:3,808bd:7]" + # lpf 5000 + # room 0 # sz 0 + # orbit 1 -- Does this fix the weird first room ?! + # gain 1.2 +d2 $ g -- Drums semi-clave pattern + $ "~ ~ ~ d ~ ~ d <~ d*<1 2 4>>" + # "[drum:2,auto:9]" + # gain 0.9 +d3 $ g -- Clap snare: phantom agora + $ whenmod 4 3 (juxBy 0.4 (# lpf 4000)) -- Side time-travel echoes + $ "~ ~ <~ <[~ c]!3 ~>> ~ <~!2 [~ c] ~> c ~ ~" + # "clap:2" + # hpf 2000 + # room "<0.64!7 1>" + # sz 0.3 + # dry 0.98 + # gain 0.65 +d4 $ g -- Surprise, breakbeat! + $ rarely (juxBy 0.8 (ply "[2|2|<2 4>|<2!3 4>]")) + $ whenmod 64 48 (|* gain (slow 16 $ range 1 0.5 saw)) + $ someCyclesBy "<0!16 1!16 0!32>" (|* gain (slow 16 $ range 0.65 1 saw)) + $ mask "" + $ slice 4 "0 1 <2!4 0!4> 3 0 <1!6 ~ ~> <2!6 ~ 2> <3!3 <2 [2 3]>>" + $ loopAt 0.5 + $ "breaks165" + # pan 0.65 + # gain 0.9 +d5 $ g + $ (0.125 ~>) -- Bien calé! + $ mask "" -- Intro/64 + $ whenmod 4 3 (slow "<2 4>") -- Break-ish + $ mask ",4,<0!3 1>)!16>" -- Dégradé + $ chop 4 + $ slice 4 "<0!3 1>" + $ loopAt 4 + $ "rootsGuitar:7" + # room (slow 32 $ range 0.2 0.65 saw) + # dry 1 + # sz 0.9 + # pan (0.75 + 0.25 * (slow 8 perlin)) + # gain (0.8 - 0.1 * perlin + 0.2 * (slow 16 $ saw)) + # cut 5 +d6 $ g -- Bass Base + $ whenmod 32 16 (superimpose ((# cut 61) -- Crushed cousin + . (# crushbus 61 (range 6.5 4.85 (fast 8 perlin))) + . (|+ pan 0.2) + . (|* gain (slow 32 $ range 0.5 1 saw)) + )) + $ note ( + ">" + + "0 0(<3!3 5>,8)" + |+ "0 . 0 <0!3 7> 0" + - 24 + ) + # "bassWarsaw" + # pan 0.35 + # cut 6 + # gain (slow 8 $ range 0.45 0.56 cosine) + # room 0.8 +d7 -- Forks of love + $ mask "" + $ superimpose (struct "t*[8 <8 <16 <[32 16] [16 32 16]>>>]" . arp "up") + $ note "<[cs,e,a5] [cs,e,af5] [cs,e,gf] <[cs,e,af5] [b4,cs,af5]>>" + -- $ note "<[b4,cs,af5]>" + # "superfork" + # gain (slow 64 $ range 0.24 0.73 saw) + # dry 1 # room 0.8 # sz 0.9 + + + + +once + -- $ (arp "up pinkyup") + $ note "<[cs,e,a5] [cs,e,af5] [cs,e,gf] [cs,e,af5]>" + # "superfork" + -- # voice 8 + # gain 0.85 + -- # velocity 0.7 diff --git a/live/fusion/comete/my_other_car_is_a_storm.tidal b/live/fusion/comete/my_other_car_is_a_storm.tidal new file mode 100644 index 0000000..76d9f77 --- /dev/null +++ b/live/fusion/comete/my_other_car_is_a_storm.tidal @@ -0,0 +1,69 @@ +do +setcps (80/60/4) +let modIndex = pF "modIndex" +let g = (someCyclesBy "" (# djfbus 1 (slow 16 $ range 0.5 0.9 saw))) +d1 $ g $ "k k k k]>" + # "jazz" # gain 0.9 +d2 + $ off "h" ((|* gain 0.8) + . (# cut 11) + . (|+ hpf 1500) + . (# pan 0.8) + ) + $ slice 4 ( + -- "<0!2 0*2 0 1!3 0 0 1 0*2 0 1!3 0 2!4 3(3,8)!4>" -- HARD SYNC + "<0!2 0*2 0 1!3 0>" + ) + $ loopAt 4 + $ "noir_radio" + # cut 1 + # room 0.5 + # sz 0.5 + # gain 0.6 +d3 $ g + $ off "" + ((ply "<1 <2 4>>") + . (|* gain 0.9) + . (# pan 0.6) + ) + $ "g*4" # "gretsch:4" + # pan 0.4 + # gain 0.8 +d4 $ g + $ slow 2 + $ note "<[gs@14 gs a] [f@15 g]>" + # octave 3 + # "bassWarsaw" + # cut 4 + # pan 0.7 + # gain 0.7 +d5 -- INCOMING BEAT + $ slice 4 ("0 1 <2 <0 [0 2]>> 3*<1!3 4>") + $ loopAt 2 + $ "noir_beats:3" + # cut 5 + # room 0.4 + # gain (slow 32 $ range 0.25 "<0.65!32 0.85!32>" saw) + # pan (slow 32 $ range 0.89 0.6 (saw + 0.25 * perlin)) +d6 + $ superimpose ( + ply "<1!3 <2 [2 4]>>" + . struct "t(<3 <5 8>>,8)" + . arp "up" + . (|+ note "[c'maj'4]") + . (# modIndex (slow 32 $ range 1 50 saw)) + . ply 2) + $ note "" + # "FMRhodes1" + # modIndex 0 + # gain 0.9 + +once + $ note (arp "downup" "g'min'4" -12) + # "superpiano" + # velocity 0.6 + # gain 1.7 + +do +d1 $ "808bd:4" +d2 $ "drum:2*4" diff --git a/live/fusion/latin/like_what.tidal b/live/fusion/latin/like_what.tidal new file mode 100644 index 0000000..433d8e1 --- /dev/null +++ b/live/fusion/latin/like_what.tidal @@ -0,0 +1,20 @@ +do +setcps (80/60/4) +d1 + $ "jazz" + # gain 1.1 +d2 +-- $ "d ~ ~ d d ~ d <~!3 d>" + $ "k*8" + # "drum:2" + # gain 0.9 +d3 + $ "~ g*8" + # "gretsch:3" + # gain 1.1 +d4 + $ fast 2 + $ note " c>" + # octave 3 + # "bassWarsaw" + # gain 1.2 diff --git a/live/hip/boombap/plage.tidal b/live/hip/boombap/plage.tidal index 275dd84..ad04033 100644 --- a/live/hip/boombap/plage.tidal +++ b/live/hip/boombap/plage.tidal @@ -10,8 +10,8 @@ d1 $ g d2 $ g $ mask "" $ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>") - $ fast "<2 <2!8 [4!3 2]!8>>" $ "~ cp" # "[cp,sn:10]" - # gain 0.85 + $ fast "<2 <2!8 [4!3 2]!8>>" $ "~ cp" # "[sn:45,sn:10]" + # gain 0.95 d3 $ g $ mask "" $ fast "1 <1 <2 [<2 [4 8]> <4 [4 . 16 8]>]>>" @@ -32,10 +32,12 @@ d5 -- SUB accompagnateurs $ g $ mask "" $ note "d*<1!4 2!4> ~!3 . ~!3 <~ *<1!3 <4 [4 2]>>>" - # "808bd:1" + # "[808bd:1,wobble]" # lpf 4000 # gain 1.1 # room 0.5 + # sz 0.9 + # dry 1 # pan 0.33 d6 $ whenmod 64 32 ( diff --git a/live/hip/lofi/poke_bone.tidal b/live/hip/lofi/poke_bone.tidal index 26fd7f6..6d25d33 100644 --- a/live/hip/lofi/poke_bone.tidal +++ b/live/hip/lofi/poke_bone.tidal @@ -27,8 +27,5 @@ d6 $ slice 4 (run "4 <4!3 8 4 4 8 8>") $ "break:0" # cut 6 - # gain 1.3 + # gain 1 # pan 0.7 - -once $ loopAt 4 $ "breaks165" - # gain 2 diff --git a/live/jam/cbow.tidal b/live/jam/cbow.tidal index f424729..9112893 100644 --- a/live/jam/cbow.tidal +++ b/live/jam/cbow.tidal @@ -14,25 +14,25 @@ let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine)))) let g = gF setcps (100/60/4) d1 $ gDJF $ g - $ midiOff "^41" (mask "") - $ midiOn "^41" (<| "k*4") - $ midiOff "^41" (<| "k . k <~ [<~ k> ]>")-- RubADub + $ midiOff "^42" (mask "") + $ midiOn "^42" (<| "k k k ") + $ midiOff "^42" (<| "k . k <~ [<~ k> ]>")-- RubADub $ "[jazz,bd]" # midiG' "^78" 0 1.1 d2 $ gDJF $ g -- Snare prog $ "~ ~ " # "h2ogmsn:6" - # midiG' "^79" 0 0.8 + # midiG' "^79" 0 1.1 d5 $ g -- Breakbeat $ midiOn "^76" (ply "<2!3 [4 <4 1>]>") $ midiOff "^44" (slow "<4 2>") $ sometimesBy "^32" rev $ someCyclesBy (0.9 * "^52") (scramble "1 4") - $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>" + $ slice 4 "0 1 <0 2 6 2> <1 3 7 3>" $ loopAt 2 $ "fbreak100" # cut 5 - # midiG' "^80" 0 1.2 + # midiG' "^80" 0 1.5 d3 $ g -- Bass bows $ gDJF $ gLeslie @@ -49,6 +49,7 @@ d3 $ g -- Bass bows # midiG' "^81" 0 0.86 # crushbus 31 (range 10 2 "^53") d4 $ g -- Higher bows + $ midiOn "^90" (off "e" (|+ note "<7!3 12>")) $ midiOn "^58" gLeslie -- $ mask "" $ whenmod 8 7 (ply "1 4") @@ -64,7 +65,7 @@ d4 $ g -- Higher bows # midiG' "^82" 0 1.05 d8 $ g -- Angels $ midiOff "^59" (mask "") - $ note "<[c . ~!3 <~ >] a4>" + $ note "<[ . ~!3 <~ >] a4>" # "cbow:3" # cut 8 # crushbus 81 (range 10 2 "^55") @@ -72,8 +73,9 @@ d8 $ g -- Angels d9 $ midiOn "^92" (ply "2 <1 <4 [4 8]>>") $ midiOff "^60" (slow 2) - $ whenmod 32 16 (jux rev) + $ whenmod 32 16 (juxBy 0.5 rev) $ "h2ogmcp(5,8,<0!3 [0 3]>)" - # midiG' "^84" 0 1.3 + # midiG' "^84" 0 1.2 + # pan 0.7 (5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn ( diff --git a/live/midi/nova/ambient/contre_visite.tidal b/live/midi/nova/ambient/contre_visite.tidal index e8d7a04..cfde5ae 100644 --- a/live/midi/nova/ambient/contre_visite.tidal +++ b/live/midi/nova/ambient/contre_visite.tidal @@ -1,24 +1,29 @@ -- TODO: Add some spaceship fx -- TODO: Reconsider if enough rythmic variations - what about a DROP? +once $ "kick:5" # crush 4 + do --- TODO TRIGGER INTRO :) -resetCycles -once $ "90s_synatm:8" # gain 0.94 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94 +-- DONE TRIGGER INTRO :) +-- resetCycles +-- once $ "90s_synatm:8" # gain 0.94 # 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 -- TODO: Rework kick - $ midiOn ("^42" - "^41") (slow 4) -- PAUSE +d1 $ f1 -- FIXME: CRUSHED? + $ kCrush + $ midiOn ("^42") (slow 4) -- PAUSE -- $ mask "" - $ midiOff "^41" (maskLoops) + $ midiOff "^42" (maskLoops) $ midiOn "^41" ((<| "k k k k]>") . (# legato 0.6)) $ midiOff "^41" (<| " . ~ ~ ~ <~!3 k>") - $ "[reverbkick,808bd:6]" + $ "[reverbkick,808bd:6,kick:8]" # lpf 1000 + # crush 16 # midiG' "^78" 0 1.3 d2 $ f1 $ mask ",4)!4 t!28>" -- Intro / break/32 @@ -51,9 +56,10 @@ d4 $ f2 -- Atmospheric synth: aerial questions # room 0.8 # legato 4 # dry 1 - # pan "<0.3 0.25 0.2>" - # crushbus 42 (range 16 4.5 "^53") - # midiG' "^81" 0 1.4 + # pan 0.45 + # crushbus 42 (range 16 3.4 "^53") + # legato 2 + # midiG' "^81" 0 1.7 d5 $ f2 -- Synth: ELECTRONIC ANSWERS -- $ mask "" -- Intro $ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>")) @@ -61,11 +67,13 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS $ "90s_synatm:14/4" # cut 5 # room 0.65 + # pan 0.43 # dry 1 # panbus 51 (range 0.8 0.65 saw) # crushbus 52 (range 12 2.85 "^54") # midiG' "^82" 0 1.6 d6 -- High lead: Winds of truth + $ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3 $ whenmod 8 6 (swing "<4 2>") $ whenmod 32 8 (superimpose ( -- Echos of doubts (arp "") @@ -80,25 +88,28 @@ d6 -- High lead: Winds of truth # pan 0.9 # room 0.4 # sz 0.8 # crushbus 62 (range 16 2.25 "^55") - # midiG' "^83" 0 0.58 + # midiG' "^83" 0 0.8 # dry 0.1 + # pan "^19" # cut 6 d10 $ f1 -- RANDOM FOREST NOISES $ fix ( + kCrush . struct "t t t t t*<1 2> [ ] t t" . (# "[future:1]") . (# midiG' "^13" 0 2) ) ("n1") $ fix ( - struct "" + struct "[~ t]*2" . (# "snare:34") - . (# midiG' "^14" 0 1.5) + . (# midiG' "^14" 0 1.8) ) "n2" -- tchak reverb phantome $ fix ( whenmod 32 16 (someCyclesBy (slow 16 $ saw) (iter 4 . ply "2 [2|1]")) . struct "t([3 <3!3 5>],8,<0!8 3!8>)" . (# n "<3!3 [3 2]>") . (# "amencutup") + . (# pan 0.88) . (# midiG' "^15" 0 1.25) ) "n3" -- amen excerpt $ fix ( @@ -108,5 +119,13 @@ d10 $ f1 -- RANDOM FOREST NOISES . (# pan (range 0.5 0.9 perlin)) . (# midiG' "^16" 0 1.4) ) "n4" -- FX1 - $ "[n1,n2,n3,n4]" -- n4 + $ fix ( + (# "[dr,drum:2]") + . (slow "<1!24 2!8>") + . (struct "t*[16!3 <16!3 [32 16 32 16]>]") + -- . (# cut 105) + . (# pan (range 0.02 0.25 perlin)) + . (# midiG' "^17" 0 0.9) + ) "n5" -- Drumroll + $ "[n1,n2,n3,n4,n5]" -- n4 # gain 0.8 diff --git a/live/midi/nova/ambient/drone_aveugle.tidal b/live/midi/nova/ambient/drone_aveugle.tidal index 642f9fd..9ef5782 100644 --- a/live/midi/nova/ambient/drone_aveugle.tidal +++ b/live/midi/nova/ambient/drone_aveugle.tidal @@ -1,41 +1,42 @@ - -- Le DR0NE AVEUGLE -- Intro weird superchip: is this even music? -- Pont superchip crushed+plyed do setcps (100/60/4) -let slide x = acceleratebus 01 (2**(x/12)) let g = (# djfbus 1 (range 0.1 0.9 "^49")) -let g2 = (# djfbus 2 (range 0.05 0.95 "^29")) +let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) d1 $ g -- KICK - $ fix (|* gain 0.8) "kick" - $ midiOn "^41" (<| "k k k []> <~ k>]") -- Cours toujours - $ midiOff "^41" (<| "k . ~ ~ ~ ") -- Attente Chaloupée - $ "[jazz,808bd:3,kick:5]" + $ fix (* gain 0.82) "wobble" + $ fix ((|* gain 0.8) . (|+ note "0 0 <1 2 4 -1> <0!3 <0 -2>>")) "wobble" + $ midiOn "^42" (<| "k k k []> <~ k>]") -- Cours toujours + $ midiOff "^42" (<| "k . ~ ~ ~ ") -- Attente Chaloupée + $ "[jazz,808bd:3,wobble]" + # room 0 # dry 1 # sz 0 # crush 32 # midiG' "^78" 0 1.4 d2 $ g -- Snare minitel -- $ midiOn "^43" (<| "~ s ~ s*<1!3 <[2 <2 2 4 4>] [4!3 16]>>") -- $ fix (ply "1 <1!3 <2 4>>" . (|* gain 0.9) . (# legato "<0.4!6 0.5!2>")) "glitch" $ fix ((|* gain 0.85) . (# "realclaps:2")) "cp" $ fix (|* gain 0.8) "snare" - $ fix (|* gain 0.9) "glitch" $ midiOn "^43" (fast 2) - $ "~ . [glitch:5,snare:11,<~!8 cp!24 cp!8 ~!8 cp!16>]" + $ (|* gain "1 . 1 ~ ~ 0.76") + $ "~ . s ~ ~ <~ s*<1!3 2>>" + # "[snare:27,<~!8 cp!24 cp!8 ~!8 cp!16>]" # midiG' "^79" 0 1.4 d7 $ g -- Down Break - $ midiOn "^60" (chop 4) + $ midiOn "^60" (slice 4 "0 1 2 [2 1*<1 2>]") $ midiOn "^92" (ply 4) $ slice 4 "0 1 <2 [2|1]> <1 2 3 7*<1 <2 4>>>" $ loopAt 2 $ "break:15" # speed (range 0 2 "^56") - # midiG' "^84" 0 1.2 + # midiG' "^84" 0 1.4 # cut 7 # pan 0.35 d3 $ g -- Fight hats -- FIXME Rework? Could be loved <3 $ midiOn "^44" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN $ "h2ogmhh(3,8)" # n "<1 <2!3 1 2!2 1 1>>" - # midiG' "^80" 0 1 + # midiG' "^80" 0 1.4 d4 -- Frequency-modulated hopes $ g2 $ midiOn "^89" (chop 16) @@ -51,14 +52,16 @@ d4 -- Frequency-modulated hopes # crushbus 41 (range 10 0.85 "^53") -- Harmonics of destruction # midiG' "^81" 0 (1 - 0.2 * "^17") d5 $ g2 -- BASSLINE + $ midiOn "^90" (ply "[2|4]") $ midiOn "^58" (chop 4) + $ superimpose ((|- note 12) . (|* gain 0.8)) $ arp "up" $ n (scale "aeolian" "<0 <2 [<2 0> . ~ <~ 2> 4 2]>>" -- V1: Love the end Pattern -- "<<[0] [0*4]> <[2 . ~!4 2] [2 2 4 2] 2 [<2 0> . ~ <~ 2> 4 2]>>" -- V1.1: Noisy :/ + "<0!8 [0,12]!24>" -- "" - - 24) + - "24") # s "superchip" # voicebus 51 (range 0.7 0.05 "^34") # crushbus 52 (range 16 2.9 "^54") @@ -76,10 +79,6 @@ d6 $ g2 -- Sirene apocalyptico-commerciale - 36) # "supersiren" # crushbus 62 (range 10 2.5 "^55") - # midiG' "^83" 0 0.6 + # midiG' "^83" 0 0.77 # panbus 63 (range 0.4 0.8 (sine - 2 * (fast "<2!3 4 4!3 0.25>" $ perlin))) - -once - $ loopAt 2 $ "fbass:1" - # cut 5 diff --git a/live/midi/nova/ambient/empreinte_du_numerique.tidal b/live/midi/nova/ambient/empreinte_du_numerique.tidal index 350f6f4..8f84b2a 100644 --- a/live/midi/nova/ambient/empreinte_du_numerique.tidal +++ b/live/midi/nova/ambient/empreinte_du_numerique.tidal @@ -1,4 +1,4 @@ -once $ "dr" +d1 $ "dr" do let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw))) @@ -11,8 +11,8 @@ let modIndex = pF "modIndex" -- resetCycles setcps (110/60/4) d1 $ g - $ midiOn "^41" (<| "k k k ") - $ midiOff "^41" (<| "k ~ <~ k> k . ~ ~ <~ k> ~") + $ midiOn "^42" (<| "k k k ") + $ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~") $ "jazz" # midiG' "^78" 0 1.3 d2 $ g @@ -32,7 +32,7 @@ d4 -- Break bonus banane $ midiOn "^60" ( -- Aerial mask mask "t f t" ) - $ sometimesBy ("0 1!7" * "^56") (iter 4) + $ sometimesBy ("0 1!7" * "^56") (iter "<4!3 8>") $ chop 16 $ loopAt 2 $ "break:3" @@ -49,8 +49,10 @@ d5 $ g $ gPont2 # lsizebus 51 (range 0.8 4.8 "^17") # lesliebus 52 "^33" # 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)) $ superimpose (|+| note "<[0 12 0]!3 [0 12 0 12]>") $ note " c>" # "supermandolin" diff --git a/live/midi/nova/boombap/saloon.tidal b/live/midi/nova/boombap/saloon.tidal new file mode 100644 index 0000000..2c5ed4c --- /dev/null +++ b/live/midi/nova/boombap/saloon.tidal @@ -0,0 +1,69 @@ +once $ "scratch_long:4" + # gain 01.1 + # cut 4 + + +d1 $ "808bd:2" + +do +setcps (80/60/4) +let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49")) +let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29")) +let g1 = (gDJF1) +let g2 = (gDJF2) +let mBreak = (midiOn "^41" (mask "t f . f t")) +d1 $ g1 + $ fix (# cut 12) "wobble" + $ fix (# cut 11) "808bd" + $ "k ~ ~ k . ~ ~ k <~!4 ~ ~ k k*2>" + # "[808bd:1,wobble]" + # midiG' "^78" 0 1.4 +d2 $ g1 + $ fix (|- note 12) "sn" + $ "~ [s ~ ~ s] . [~ s] ~ s <~ s*<1!3 2>>" + -- # "[amencutup:8,sn:4]" + # "[snare:30]" # note "-4" + # midiG' "^79" 0 1.1 + # room 0.8 + # sz 0.8 + # dry 0.98 +d3 + $ g1 + $ ply "<1 1 <1 2> [4 <2!3 4>]>" + $ fast "<1!8 2!24>" + $ "s*6" + # "amencutup:4" + # gain 0.8 + # pan 0.7 + # midiG' "^80" 0 1 +d4 $ g2 -- Broken Saloon + -- $ superimpose ( + -- (|- pan 0.2) + -- . (|+ note 12) + -- . (# cut 51) + -- ) + $ midiOn "^58" (iter 16) + $ sometimesBy "^54" (striate 4 . ply "1 <1 <2 [2 4]>>") + $ slice 8 (run "<4!2 2 <8 [8 4] [4 8] 4>>" + (slow 8 "<0 4>")) + $ loopAt 2 + $ "fpiano:8" + # cut 5 + # pan 0.65 + # midiG' "^82" 0 0.9 +d5 -- Desert bird angel + $ g2 + -- $ mask "" -- Economise + $ slice 2 ("<0 1 0 [0 0 1] 1 [1 1] [2*4] [1 3]>") + $ loopAt 1 + $ "fmono:8" + # room 0.3 + # pan 0.7 + # sz "<0.3 0.5!2 <0.9 1.4>>" + # cut 6 + # midiG' "^83" 0 0.9 +-- d6 -- TODO: FIX SOME BASS <3 + -- $ slice 8 "0 1 0 0" + -- $ "fbass:8" + -- # gain 1.3 + -- # pan 0.3 + -- # cut 6 diff --git a/live/midi/nova/breaks/lunar.tidal b/live/midi/nova/breaks/lunar.tidal index f67e2e9..81dfbfa 100644 --- a/live/midi/nova/breaks/lunar.tidal +++ b/live/midi/nova/breaks/lunar.tidal @@ -15,22 +15,23 @@ let m = mBreak d1 $ g -- $ midiOn "^42" (<| "k k k k]>") $ midiOff "^42" (<| "k . ~ k*<1!3 2 2 2 1 2> <~ ~ k >") - $ "jazz" + $ "[jazz,hh:5]" -- # release "<0.7!3 1>" - # midiG' "^78" 0 1 + # midiG' "^78" 0 1.3 d3 $ g $ m -- Clap contretemps stable $ superimpose ((# lpf 2000) . (# "cp:0")) $ "~ clap:1" # room 0.8 # sz 0.6 # dry 0.9 - # midiG' "^79" 0 1.4 + # midiG' "^79" 0 1.0 d2 $ g $ m -- BREAK $ midiOn ("^44" - "^76") (ply 2) - $ midiOn "^76" (striate 4) + $ midiOn "^76" (striate 2) $ loopAt 2 $ whenmod 8 6 (off "h" id . mask "t . f") $ slice 8 (run 8) $ "break" # n "<13!12 14!4 15!16>" # midiG' "^80" 0 1.2 + # speed (range 0 2 "^52") # cut 2 d4 $ g $ m $ midiOn "^57" (chop "8 1") @@ -59,7 +60,7 @@ d5 $ g $ m - 12 ) # "FMRhodes1" - # midiG' "^82" 0 1.8 + # midiG' "^82" 0 2 # modIndex (range 0.1 32 "^54") # cut 5 # pan 0.8 diff --git a/live/midi/nova/breaks/solar.tidal b/live/midi/nova/breaks/solar.tidal index 9b313e0..ede2592 100644 --- a/live/midi/nova/breaks/solar.tidal +++ b/live/midi/nova/breaks/solar.tidal @@ -8,7 +8,7 @@ once $ "dr" # gain 1 do setcps (110/60/4) let modIndex = pF "modIndex" -let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49")) +let gDJF1 = (# djfbus 1 (range 0.02 0.98 "^49")) let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29")) let mBreak = (midiOn "^41" (mask "t f . f t")) let g1 = (gDJF1) @@ -45,22 +45,12 @@ d2 $ g1 $ m -- BREAK # octersubsubbus 22 (range 0 1.2 "^32") # midiG' "^80" 0 1 # cut 2 -d4 $ g1 $ m -- Drum/hh roll! - -- FIXME I'd rather be in bassland - $ midiOn "^57" (# "drum:2") - $ midiOn "^89" (fast "2 . <2!3 4>") - $ "d d*<1 2> [d . d]" - # "hh:8" - # room "^53" - # dry 0.99 - # cut 4 - # midiG' "^81" 0 1.8 d4 $ whenmod 4 3 (off "q" id) - $ midiOn "^58" (( + $ midiOn "^57" (( (|+| note ( arp "" - "c'maj'8") + "c'maj'8" - "[0,12]") ))) $ rev $ struct "~ t" @@ -72,11 +62,11 @@ d4 # midiG' "^81" 0 1.5 # pan 0.2 d5 $ g2 - $ midiOn "^58" (superimpose ( - (|+| note ( - arp "" - "c'maj'8" - 12) - ))) + -- $ midiOn "^58" (superimpose ( + -- (|+| note ( + -- arp "" + -- "c'maj'8" - 12) + -- ))) $ struct "~ t" $ slow 4 $ arpeggiate @@ -86,14 +76,15 @@ d5 $ g2 # pan 0.8 # modIndex (range 0 128 "^34") # crushbus 51 (range 16 4.6 "^54") - # midiG' "^82" 0 1.5 + # midiG' "^82" 0 2 + # gain 0.8 d9 $ g1 $ m $ midiOff "^60" (mask "") $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]") $ midiOff "^92" (<| "~ c") $ "clap" # speed (range 0.5 1.5 "^56") - # midiG' "^84" 0 1.7 + # midiG' "^84" 0 1.0 -- REGION BACKYARD diff --git a/live/midi/nova/dnb/alerte_verte.tidal b/live/midi/nova/dnb/alerte_verte.tidal index 5755001..5813c19 100644 --- a/live/midi/nova/dnb/alerte_verte.tidal +++ b/live/midi/nova/dnb/alerte_verte.tidal @@ -3,10 +3,10 @@ import Sound.Tidal.ParVagues.Control -- Alerte Verte do setcps (160/60/4) -let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) -let f2 = (# djfbus 2 (range 0.05 0.95 "^29")) +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 $ f1 -- KICK +d1 $ g1 -- KICK $ midiOn "^41" (<| "k k k ") -- RUN! $ midiOn "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT? $ midiOff ("^41" + "^42") (<| "k*2") -- ST0P. @@ -14,7 +14,7 @@ d1 $ f1 -- KICK $ "[jazz,kick:5]" # release 0.8 # midiG' "^78" 0 1.5 -d2 $ f1 -- Snare tchak! +d2 $ g1 -- Snare tchak! $ midiOn "^75" (ply 2) $ g32Bridge $ whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush @@ -24,7 +24,7 @@ d2 $ f1 -- Snare tchak! # note (range "-7" 7 "^51") # room 0.8 # dry 0.99 # sz 0.2 # midiG' "^79" 0 1.2 -d3 $ f1-- Running Hats +d3 $ g1-- Running Hats $ g32Bridge $ midiOn "^44" (slow 2) $ midiOn "^76" (fast 2) @@ -37,7 +37,7 @@ d3 $ f1-- Running Hats # dry (slow 4 $ range 0 2 perlin) # pan 0.6 # cut 3 -d4 $ f1 -- Resolute Bass +d4 $ g1 -- Resolute Bass -- $ jux ((# cut 41) . (|+ crush (range 0.5 1 perlin))) $ midiOn "^89" ( -- Glitch vary end slice 8 "<[0 1 <2!3 1*2> <3!3 1*2>]!4 0*4!2 [0 1 0 1] [0 1 0 [0 1 2 3]]>" @@ -46,13 +46,13 @@ d4 $ f1 -- Resolute Bass $ loopAt 4 $ chop 16 $ "fbass:25" -# pan 0.15 + # pan 0.15 -- # room 0.125 # sz 0.1 # dry 1 # crushbus 41 (range 16 1.25 "^53") # midiG' "^81" 0 1.5 # cut 4 d6 -- Guitar A -- L'attente (18=0) TODO Rework? - $ f2 + $ g2 $ mask "" $ ("0.175" ~>) -- Calage $ whenmod 4 2 (slice 8 "0") @@ -61,10 +61,10 @@ 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.2 * (range 1.4 0 "^18")) + # midiG' "^82" 0 (1.5 * (range 1.4 0 "^18")) # cut 6 d7 -- Guitar B -- Le run (18=127) - $ f2 + $ g2 $ whenmod 4 3 (# silence) $ midiOn "^58" ( (# n 27) @@ -78,7 +78,7 @@ d7 -- Guitar B -- Le run (18=127) # lsize (1 + (slow 8 perlin * 2)) # lrate 6.7 # cut 71 -d8 $ f1 -- Clave de l'été pitchable +d8 $ g1 -- 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") @@ -86,10 +86,7 @@ d8 $ f1 -- Clave de l'été pitchable # "[<808lc!6 808hc!2>,<~!4 808mc!4>]" # speed (range 0.5 2 "^55") # midiG' "^83" 0 1.5 -d9 $ f1 -- CLAPS! -- FIXME Broken whenmod 4 3 - $ "~ c ~ " # "cp" - # midiG' "^84" 0 1.5 -d10 $ f2 -- Nappes crushées indépendantes +d10 $ g2 -- Nappes crushées indépendantes $ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>") -- $ superimpose ((|- note 12) . (# cut 101)) $ note (euclid "<5 3 6>" 6 @@ -100,7 +97,7 @@ d10 $ f2 -- Nappes crushées indépendantes # pan 0.85 # crushbus 100 (range 16 0.35 "^36") # midiG' "^20" 0.2 1.5 -d11 $ f2 -- Sirene indépendante +d11 $ g2 -- Sirene indépendante $ note ("/4") # octave 3 # legato 2 @@ -109,10 +106,13 @@ d11 $ f2 -- Sirene indépendante # crushbus 110 (range 10 0.1 "^35") # ampbus 111 (range 0 0.5 "^19") # pan "<0.2!16 0.8!16>" - # midiG' "^19" 0 0.75 + # midiG' "^19" 0 1.5 # 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 + $ "~ c ~ " # "cp" + # midiG' "^84" 0 1.5 d6 $ "seawolf:0/4" diff --git a/live/midi/nova/dnb/break_the_loop.tidal b/live/midi/nova/dnb/break_the_loop.tidal index 9969337..60adf74 100644 --- a/live/midi/nova/dnb/break_the_loop.tidal +++ b/live/midi/nova/dnb/break_the_loop.tidal @@ -7,7 +7,7 @@ let modIndex = pF "modIndex" let gF2 = (# djfbus 2 (range 0.05 0.95 "^29")) let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gM = (midiOn "^42" (mask "t >")) -d1 -- TODO: Improve kick. Sound? Rhythm? +d1 $ gF $ midiOn ("^42" - "^41") (mask "t(1,4)") -- $ mask "" @@ -39,6 +39,12 @@ d3 $ gF $ gM -- Breaks du Marathon # midiG' "^80" 0 1.5 d4 -- BASSLINE BRULANTE $ gF + $ midiOn "^53" (-- Trigger: DATA BURN + superimpose ( + (# cut 42) . (|* gain 0.85) . + (# squizbus 41 (range 200 0 "^53")) + ) + ) $ midiOn "^57" ( -- Ritournelle midiOn "^89" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>") . (+| note (scale "aeolian" (arp "converge" $ @@ -55,11 +61,11 @@ d4 -- BASSLINE BRULANTE # "90s_synatm:9" # pan 0.15 # room 0.5 # dry 0.2 # sz 0.8 - # crushbus 41 (range 16 1.9 "^53") - # lesliebus 42 (range 0 2.2 "^33") - # lratebus 43 (range 6.7 0.6 "^17") + # lratebus 43 (range 0.6 6.7 "^33") + # lesliebus 42 (range "-1" 1 "^17") # lsize (slow 8 $ range 2 6 saw) - # midiG' ("^81" - 0.3 * "^33") 0 1.5 + # midiG' "^81" 0 (1.5 - 0.3 * "^17" - 0.25 * "^53") + # crushbus 41 (range 10 4.5 "^53") # cut 4 d5 $ gF2 $ gM -- Ritournelle Rhodes $ midiOn "^58" (off "q" (|+ note 12) . (|* gain 0.85)) @@ -67,10 +73,9 @@ d5 $ gF2 $ gM -- Ritournelle Rhodes "<[c ~ c d ~ d ~]!0 [f ~ f g ~ ~]!8>" - "<24!12 12!4>") # "FMRhodes1" - # pan 0.7 # modIndex (range 0 100 "^54") - # crushbus 41 (range 10 4.5 "^34") - # midiG' "^82" 0 1.5 + # crushbus 51 (range 10 4.5 "^34") + # midiG' "^82" 0 2 d6 $ gF2 -- Voices from the st0rm $ midiOn "^91" ((# cut 6) . slow 8) $ swingBy 0.125 8 @@ -88,9 +93,12 @@ d6 $ gF2 -- Voices from the st0rm # squizbus 61 (range 0 4 "^55") # room 0.42 # dry 1 # sz 0.8 # pan 0.6 - # midiG' "^83" 0 1 -d8 + # midiG' "^83" 0 2 +d8 -- Ominous drumroll + $ fix (|* gain 0.9) "dr" $ midiOn "^60" (slow 2) $ midiOn "^92" (ply "[2 1]*8") - $ "dr*<4!3 2 4!3 8 <16!3 8>!16>" + $ "d*<4!3 2 4!3 8 <16!3 8>!16>" # "[dr,drum:2]" # midiG' "^84" 0 1 + # room 0.8 # dry 1 + |- note 4 diff --git a/live/midi/nova/dnb/lucy_rode.tidal b/live/midi/nova/dnb/lucy_rode.tidal index 33823fb..89e4d23 100644 --- a/live/midi/nova/dnb/lucy_rode.tidal +++ b/live/midi/nova/dnb/lucy_rode.tidal @@ -40,8 +40,8 @@ do . (# dry (slow 64 $ range 0.5 1.5 perlin)) ) $ whenmod 4 3 (fast "<2 4 [4 8] 8>") - $ fast "4 8" - $ "drum:2" + $ fast "2 4" + $ "[drum:2,dr]" # pan 0.7 # midiG' "^80" 0 1.8 d4 $ g -- Bassline pompée diff --git a/live/midi/nova/lofi/sunny_march.tidal b/live/midi/nova/lofi/sunny_march.tidal index a8156bf..efb9210 100644 --- a/live/midi/nova/lofi/sunny_march.tidal +++ b/live/midi/nova/lofi/sunny_march.tidal @@ -5,7 +5,7 @@ let lofiBlissEq = "<[a,c6,e6,g6,b6,d7] [fs,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,c7] [c let lofiBlissMin = "<[a,c6,e6,g6] [fs,c6,d6,fs6] [f,a,c6,e6] [c,e,g6,b6]>" setcps (86/60/4) -- resetCycles --- once $ (0.5 ~>) $ note (lofiBlissMin - 24) # "moogBass" # gain 0.4 # legato 1 +once $ (0.5 ~>) $ note (lofiBlissMin - 24) # "moogBass" # gain 0.4 # legato 1 let mask86 = (whenmod 8 6 (mask "f")) let mask86' = (whenmod 8 6 (mask "f . ")) let low86 = (whenmod 8 6 (|* gain 0.8)) @@ -54,7 +54,7 @@ d4 $ g -- Wobble bassline -- "a fs . <[f *<1 2>] [~ f c <~ >]>" -- Descente ) # "wobble" - # gain (slow 32 $ range 0.6 0.9 saw) + # gain (slow 32 $ range 0.75 1 saw) # room 0.74 # pan 0.23 # sz 0.8 diff --git a/live/midi/nova/lounge/invoque_ete.tidal b/live/midi/nova/lounge/invoque_ete.tidal index bcee270..441180b 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -11,7 +11,7 @@ let gF = 1.5 let mBreak = (midiOn "^41" (mask "t f . f t")) let m = mBreak let f1 = (# djfbus 1 (range 0.1 0.9 "^49")) -let f2 = (# djfbus 2 (range 0.1 0.9 "^29")) +let f2 = (# djfbus 2 (range 0.1 0.9 "^50")) d1 $ f1 $ m $ midiOn "^41" (slow 4) $ midiOn "^42" (<| "k k k ") @@ -24,7 +24,7 @@ d2 $ f1 $ m -- Clave de l'été $ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7)) $ "d ~ ~ d d ~ d <~!3 d>" # "[snare:22,sn:4]" - # midiG' "^79" 0 1 + # midiG' "^79" 0 1.9 # speed (range 0 2 "^51") d4 $ f1 $ m -- Mecano Course -- $ fast "<<4 2> 4!7 2!4 2 2 4 8>" @@ -48,7 +48,7 @@ d5 $ f1 $ m -- Bassline variable double piste # pan 0.2 -- # room 0.2 # crushbus 51 (range 16 4.5 "^53") - # midiG' "^81" 0 1.2 + # midiG' "^81" 0 1.4 # cut 4 d6 $ f2 $ m -- Douce guitare juxée $ chop 16 @@ -60,7 +60,7 @@ d6 $ f2 $ m -- Douce guitare juxée # midiG' "^82" 0 1 # release (range 2 0.15 "^34") # crushbus 61 (range 16 1.4 "^54") - # pan 0.85 + # pan 0.8 # room 0.2 # dry 1 # cut 3 d7 $ f2 $ m diff --git a/live/midi/nova/lounge/michael.tidal b/live/midi/nova/lounge/michael.tidal index 860b3e2..c3b88eb 100644 --- a/live/midi/nova/lounge/michael.tidal +++ b/live/midi/nova/lounge/michael.tidal @@ -7,8 +7,8 @@ let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let g = gDJF setcps (120/60/4) d1 $ g - $ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>") - $ midiOff "^41" (struct "t*<1!3 2> . t(3,8)") + $ midiOn "^42" (struct "t t t*<2 1 1 2> t*<1 2>") + $ midiOff "^42" (struct "t*<1!3 2> . t(3,8)") $ "jazz" # room 0.5 # sz 0.5 # dry 1 @@ -25,9 +25,10 @@ d2 $ g # midiG' "^79" 0 0.8 # note (range "-12" 12 "^51") d3 + $ sometimesBy "^52" (ply 2) $ g $ midiOn "^44" (slow 2) - $ "~ h ~ h ~ h*2 ~ h" # "hh27:2" + $ "~ h ~ h ~ ~ h" # "hh27:2" # note ( whenmod 4 3 (2 -) "0 . 2 0" @@ -90,7 +91,7 @@ d8 $ g $ midiOn "^60" (iter 4) $ midiOn "^92" (ply 2) $ loopAt 2 - $ degradeBy ("0 0.9!7 0" - "^56") + $ degradeBy ("0 0.9!7 0" - "^36") $ scramble 2 $ slice 8 (run 8) $ "fbreak120" diff --git a/live/midi/nova/lounge/top_hats.tidal b/live/midi/nova/lounge/top_hats.tidal index 382b9b3..aee0867 100644 --- a/live/midi/nova/lounge/top_hats.tidal +++ b/live/midi/nova/lounge/top_hats.tidal @@ -23,6 +23,7 @@ d1 $ g d2 $ g -- Breathing snare contretemps $ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>") $ "~ [snare:12,drum:2]" + # speed (range 0 4 "^51") # midiG' "^79" 0.5 1.3 d3 -- Runny Maracas $ g @@ -74,7 +75,7 @@ d4 -- Rhodes base + chords # crushbus 41 (range 10 4 "^54") # roombus 42 (range 0 0.8 "^54") # szbus 43 (range 0.45 0.9 "^54") - # midiG' "^82" 0.3 1.9 + # midiG' "^82" 0.3 1.3 d8 $ g -- Electrified laggy moog $ midiOn "^92" (ply 2) $ midiOn "^59" ((|- note 12)) @@ -96,7 +97,7 @@ d5 $ g -- Choirs + arps $ "moogBass" # note (prog + "[0,24]") # octave 3 - # crushbus 51 (range 13 4.5 "^56") + # crushbus 51 (range 13 1.5 "^56") # midiG' "^84" 0 1.2 # pan 0.2 # chorus 0.6 diff --git a/live/mood/tired/afternoon.tidal b/live/mood/tired/afternoon.tidal index 022d838..de31200 100644 --- a/live/mood/tired/afternoon.tidal +++ b/live/mood/tired/afternoon.tidal @@ -22,16 +22,19 @@ d1 $ g -- BEAT # release "<0.7!3 1>" # midiG' "^78" 0 1.7 d3 $ g -- Snare contretemps rushé + $ midiOn "^43" (fast 2) $ mask "t(16,32)" $ whenmod 4 3 (ply "2 4") $ fast "<1!4 2!10 4 [4 8]>" $ "~ snare" # room 0.2 # dry 1 - # speed (range 0.5 1.5 "^51") + # speed (range 0.5 1.5 "^52") # n "[11,25]" # midiG' "^79" 0 1.4 d2 $ g -- BREAK + $ midiOn "^44" (sometimesBy "0 1!7" rev) + $ midiOn "^76" (ply 4) $ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8) $ slice 8 ( fast "<8 [8 16] 8 [16 <8 4>]>" @@ -40,6 +43,7 @@ d2 $ g -- BREAK ) $ loopAt 2 $ "break:3" + # speed (range 0 2 "^51") # midiG' "^80" 0 1.5 # cut 2 d7 $ g -- Hello PWM! diff --git a/live/techno/nightly_repair.tidal b/live/techno/nightly_repair.tidal index b40151a..c8cda61 100644 --- a/live/techno/nightly_repair.tidal +++ b/live/techno/nightly_repair.tidal @@ -4,29 +4,36 @@ setcps (90/60/4) let scale = getScale (scaleTable ++ [("blues",[0, 3, 5, 6, 7, 10])]) let modIndex = pF "modIndex" let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49")) -let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29")) +let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50")) 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 - $ midiOn "^41" (<| "k*4") - $ midiOff "^41" (<| "k") - $ "jazz" + $ midiOn "^42" (<| "k k*<1!3 2> k ") + $ midiOff "^42" (<| "k . k(3,8)") + $ fix (# lpf 2500) "808bd" + $ fix ((# lpf 4000) . (|* gain 0.8)) "909" + $ "[jazz,909,808bd:4]" # midiG' "^78" 0 1.6 d2 $ g1 + $ superimpose ( + (# "clap:1") + . (|* gain (slow 16 $ range 0.5 0.8 saw)) + ) $ midiOn "^43" (fast 2) $ "~ cp" - -- # lpf 1400 - -- # lpq 0 - # midiG' "^79" 0 1 + # lpf 1500 + # room 0.5 + # dry 1.1 + # midiG' "^79" 0 1.8 d3 $ g1 $ midiOn "^44" (fast "1 2") $ sometimesBy "^52" (ply "1 2 1 2") $ fix ((|* gain 0.86) . (# n "[4|5]")) "gretsch" $ "~ h ~ h ~ h ~ h*<1 2>" # "[hh,gretsch]" - # midiG' "^80" 0 1 + # midiG' "^80" 0 1.75 d9 $ g2 -- G0dz1ll4 $ midiOn "^60" (off 1 ( (|+ pan 0.3) @@ -38,13 +45,13 @@ d9 $ g2 -- G0dz1ll4 $ "90s_matrix:1/4" # cut 9 # gain 0.55 - # crushbus 9 (slow 16 $ range 2.6 2 perlin) + # crushbus 9 (slow 16 $ 16 * (1 - "^56") + (range 2.6 2 (perlin))) # roombus 91 (slow 16 $ range 0 0.82 perlin) + # dry 2 # sz 0.9 # pan 0.7 # midiG' "^84" 0 0.9 - # dry 2 -d4 $ g2 -- BASSLINE +d4 $ g1 -- BASSLINE $ midiOn "^57" ((|+ note 12) . (# legato 4)) $ note ("" - 24) -- $ note ("c6") @@ -58,7 +65,7 @@ d4 $ g2 -- BASSLINE # lsizebus 42 (range 1.9 6.7 "^33") # crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin))) # room 0.2 -d5 $ g2 +d5 $ g2 -- BLUES RUN $ degradeBy (range 0.95 0.05 ("^18!15 1")) $ slice 16 (run 16) $ midiOn "^58" (striate 2) @@ -73,22 +80,20 @@ d5 $ g2 ) # "FMRhodes1" # crushbus 5 (range 16 4.2 "^54") - # midiG' "^82" 0 1.5 - + # midiG' "^82" 0 1.85 + -- # pan (slow 8 $ range 0.5 1 (saw - (slow 2 perlin))) + # pan 0.8 let scale = getScale (scaleTable ++ [("blues",["c", "ef", "f", "fs", "g", "bf"])]) - +-- REGION SANDBOX once $ note (fastcat ) # "FMRhodes1" scaleList - - - once $ "90s_weird" # cut 4 once $ "90s_matrix:3" # cut 1