diff --git a/live/drone/hello_drones.tidal b/live/drone/hello_drones.tidal new file mode 100644 index 0000000..77d68fa --- /dev/null +++ b/live/drone/hello_drones.tidal @@ -0,0 +1,59 @@ +-- Drone in D +do +setcps (105/60/4) +let mel = ("") +let maskB = mask "" +d1 + -- $ degradeBy "0 0.9!7" + $ maskB + $ loopAt 2 + $ slice 8 (iter 4 $ run 8) + $ "fbreak100" + # gain (slow 8 $ range 0.45 0.8 saw) + # cut 1 +d3 + $ stut 4 0.85 0.25 + $ mask "t f!7" $ note mel + # "supersquare" + # voice 1.4 + # gain (slow 32 $ range 0.15 0.28 sine) + # crush (slow 64 $ range 16 3 isaw) + # legato 2 +d2 + -- $ maskB + $ off "e" (|+ note "7 <7 12>") + $ slow 2 + $ arpeggiate $ note mel + # "superpiano" + # octave 3 + # velocity 0.5 + # crush 8 + # lpf (slow 64 $ range 0 2000 saw) + # gain 0.85 + # pan 0.6 +d4 + $ superimpose (chop 8 . (# octave 3) . (# gain 0.85)) -- BOURDON + $ arp "updown" + $ note ("/2") + # "bassWarsaw" + # legato 2 + # pan 0.4 + # gain (slow 40 $ range 0.65 0.8 sine) +d8 + $ juxBy 0.75 (|+ note 12) + $ mask "" + $ note ("<[0,2] [0,2] [0,1,2] [0,2]>") + # "supergong" + # accelerate 0.1 + # room 0.4 + # octave 6 + # legato 1 + # gain 0.35 +d9 + $ superimpose ((|- note 12) . (# legato 2)) + $ "g g(3,8,<3!3 0>)" + # "glitch:1" + # release 0.9 + # room (slow 16 $ range 0.1 0.6 sine) + # sz (slow 32 $ range 0 1 saw) + # gain 0.8 diff --git a/live/exp/bogdanniv.tidal b/live/exp/bogdanniv.tidal new file mode 100644 index 0000000..9a8f5f9 --- /dev/null +++ b/live/exp/bogdanniv.tidal @@ -0,0 +1,80 @@ + +-- 2 Aight 'Aa' +-- 3 Hey bro ' b' +-- 4 Monney-ee 'ni' +-- 5 That's right +-- 56 Cheeky basterd +-- +-- +-- + +C C D C F E +C C D C G F +C C C A F E D +A# A# A F G F F + +do +setcps (120/60/4) +d1 $ "k . <~!4 k!4 k(<3 3 5 3>,8)!4>" + # "reverbkick" + # gain 0.8 # djf 0.2 + +d3 + $ fix (|* gain "<0!16 1.2!16>") ("bogdan") + $ fix ((# "superpiano") + . (# velocity 0.75) + ) ("arpy") + $ (>| note (cat [ + "c ~ [c d ] ~ c f e ~", + "c ~ [c d ] ~ c g f ~", + "c ~ [c a ] ~ f e d ~", + "as ~ [as a] ~ f g f ~" + ])) + $ slice 6 "0 1 2 <~!3 1> 3 4 5" + $ "[arpy,bogdan:11]" + # gain (slow 16 $ range 0.65 1 saw) + +-- BIRTHDAY DUST +do +resetCycles +setcps (90/60/4) +d1 + $ sometimesBy "<1!8 0!240>" (mask "t f!7") -- TODO INTRO + $ whenmod 8 7 (mask "f!3 t") + $ s "h*<2 1 1 2> ~ . ~ h . ~ h . h <~!3 h*2>" + # lpf 2000 + # legato 1 + # "reverbkick" + # gain 0.7 +d2 --DUSTY + $ mask "" -- TODO INTRO + $ (0.02 ~>) -- Fix decalage? + $ loopAt 4 + $ slice 4 "0 <1!3 0> 2 3" + $ "dusty:0" + # gain 0.8 + # lpf 2000 + # pan 0.35 + # cut 2 +d3 + $ mask "" -- TODO INTRO + $ "d d d*<1 2> d*<4 [8 4 <8 8 4 8> <4 8>]>" + # "[drum:2,cpu:4]" + # pan (slow 4 $ sine) + # gain 0.65 +d4 + $ mask "" -- TODO INTRO + $ fix ( + (every' 2 1 $ ply 2) + ) (n 5) + $ fix ("q" <~) (n 6) + $ n "~ ~ ~ <5!3 <6 3>>" -- Right cheeky right bro + # "bogdan" + # pan 0.9 + # gain 0.8 + # cut 4 + + +once $ "bogdan:2" # end 0.2 +once $ "bogdan:4" # begin 0.2 # end 0.4 +once $ "bogdan:15" # begin 0.358 # end 0.362 # cut 1 diff --git a/live/fusion/morning/flowers.tidal b/live/fusion/morning/flowers.tidal index bfb21a9..71302f4 100644 --- a/live/fusion/morning/flowers.tidal +++ b/live/fusion/morning/flowers.tidal @@ -1,17 +1,21 @@ -- Morning breakbeat bassline funky :) --- TODO too much when fulltime - +-- MIDI Accompagnement: Grille Impro Jazz :) resetCycles do setcps (90/60/4) -d1 +d1 -- Kick chaloupé décalé $ mask "" - $ s "k(3,8)" # "jazz" -d2 + $ s "k(3,8,<0!3 3>)" # "jazz" +d2 -- Snare clappé $ mask "" $ s "~ . ~" # s "[snare,cp]" # gain 0.85 -d3 +d7 -- Drumroll énergisant + $ jux rev + $ fast "<4!3 <8 [8 16 8]>>" + $ "drum:2*[<2!3 4>]" + # gain 0.95 +d3 -- Bass loop / découpe $ mask "" $ slice 4 (cat [ "0 1 2 3", "0 1 2 3", "0 1 2 3", "0 1 2 3", @@ -42,17 +46,16 @@ d4 -- break from Pray $ loopAt 1 $ "break:1" # cut 4 - # gain 0.7 -d5 + # gain 0.85 +d5 -- Guitare de l'espérance $ mask "" $ every' 8 6 (fast 2) $ "fguitar" # cut 5 # n (slow 8 $ "<13 14 13 15>") # gain 0.8 -d6 -- Piano final +d6 -- Piano finaliste $ mask "" $ slice 8 ("<0 4> 1 2 3 0 1 2 0") $ "fpiano:15" # gain 0.7 # pan 0.9 - # djf (slow 8 $ saw) diff --git a/live/hip/instru/courant_alternatif.tidal b/live/hip/instru/courant_alternatif.tidal index 0a6f628..58d9565 100644 --- a/live/hip/instru/courant_alternatif.tidal +++ b/live/hip/instru/courant_alternatif.tidal @@ -1,4 +1,5 @@ -- Courant alternatif: drum-instrumental-hop +-- [Released](https://soundcloud.com/parvagues/courant-alternatif) resetCycles do diff --git a/live/hip/instru/minibreak.tidal b/live/hip/instru/minibreak.tidal new file mode 100644 index 0000000..2583937 --- /dev/null +++ b/live/hip/instru/minibreak.tidal @@ -0,0 +1,99 @@ +-- MINI1: Filtré militaire bruité +do +resetCycles +setcps (90/60/4) +let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.1 0.9 sine))) +d1 + $ gF + $ mask "t ,4,1)!8>" + $ mask "t . f" + $ whenmod 32 16 (rarely (stut "[2|4]" 0.35 "s")) + $ "k . k(<<3 5> 3!3>,8,3)" # "reverbkick" + # gain (slow 16 $ range 0.8 1.1 saw) +d2 + $ gF + $ whenmod 32 30 (fast "<2 4>") + $ whenmod 32 8 (fast 2) + $ fix (# legato (slow 4 $ sine)) ("glitch") + $ "~ . s ~" + # "[sn:1,snare:6,glitch:2]" + # note ("a4" + "0 <-2!3 1!3>") + # gain (slow 16 $ range 0.5 0.9 saw) + # room 0.4 # dry 0.95 + # pan 0.35 +d3 -- Drums excited! + $ gF + $ mask "t t t? t . t t? t" + $ (" e>" ~>) + $ loopAt 2 + $ slice 16 (run + $ whenmod 16 8 (iter 2) + $ slow 16 "<4 8 16 32>" + ) + $ "break:3" + # gain (slow 32 $ range 0.4 0.8 saw) + # legato 1 + # room 0.4 # dry 0.98 # sz 0.8 + # cut 1 + # pan (slow 32 $ range 0.5 0.8 saw) +d4 + $ mask ">" + $ "h(<5!3 <8 [8 4]>>,8)" + # "h2ogmhh" + # n ("<0!8 4!8>" + run 16) + # gain 0.65 + # release 0.9 + # cut 4 + + +-- Mini2: minimaliste breakbeat +do + setcps (80/60/4) + d1 + $ "k . k(<3!3 <5 [5 3]>>,8)" + # "auto:5" # gain 0.6 + d2 + $ loopAt 2 + $ "ade:8" + # cut 2 + # gain (slow 32 $ range 0.4 0.6 saw) + +-- Mini3: Dark low freq downtempo +do + setcps (60/60/4) + let gF = (whenmod 32 24 (# djf (slow 16 $ sine))) + d1 + $ gF + $ "k k . k k(<1 3 5 <1 2>>,8,<0 0 0 2>)" -- Breakbeat + -- $ fast 2 $ "k k k " -- TECHNO + # "jazz" # gain 0.65 + d2 + $ gF + -- $ juxBy 0.8 ((|* gain 0.8) . rev) + $ fast ("<4!6 <4 [8 4] 8> 8>" * "4 <8 [8 4]>") + $ "[drum:2,cpu:4]" # gain 0.4 + d3 -- OMINOUS rework + $ note (scale "majPent" ( + -- often rev $ + iter 2 $ + run 4)) + # "bass1" + # gain 0.4 + # cut 3 + +do +setcps (70/60/4) +d1 + $ "jazz" + # gain 0.65 + # lpf (slow 10 $ range 2000 10000 perlin) +d2 -- Slowed break + $ loopAt 2 + -- $ slow 2 + $ slice 4 "0 1 <2 0 0 2> <3 3 1 1 1 1 1 3>" -- Double + -- $ slow 2 $ slice 8 ("0 1 <0 2> 3 4 5 6 7*<1 2>") -- Simple + $ "break:13" + # gain 0.65 + # cut 2 + + "break:11" -- Cloches/hh diff --git a/live/midi/ambient_space.tidal b/live/midi/ambient_space.tidal new file mode 100644 index 0000000..1c42ff4 --- /dev/null +++ b/live/midi/ambient_space.tidal @@ -0,0 +1,72 @@ +-- :'( + +-- SPACE BEAT +do +setcps (120/60/4) +d1 + -- $ fast 4 + $ "[jazz,kick:9]" + # gain 0.75 + # djf (slow 64 $ range 0.25 0.75 sine) +d2 + $ every' 8 7 (ply 2) $ "~ cp" # note (-2) # lpf 2000 +d4 + $ slow 3 + $ sometimesBy "0!7 [0.2 0]" (# "ho") + $ "hh*<8!3 <[8 16 8] 16 [16 8] [8 16 8 16]>>" + # gain 0.7 +d3 $ "wind(<3 5>,8)" # note ("c3 g3") # cut 3 # gain 0.7 +d5 -- bourrasque + $ every 2 (often ("h" ~>)) + $ s "space:3" + # speed (0.25 + perlin/4) + # gain 0.8 + # lpf (slow 16 $ range 0.45 0.55 perlin) + +-- BREAK SPACIAL +do +setcps (100/60/4) +d2 + $ whenmod 16 8 (degradeBy "0.1 <0.8 0.25> <0.2 0.8>") + $ scramble (slow 4 "<1 2 4>") + $ "fbreak100" + # gain (slow 8 $ range 0.85 0.5 saw) # cut 2 +d3 + $ fix ( + (# djf (slow 64 $ sine)) . + superimpose ((# "reverbkick") . (# lpf 1000)) + . (|* gain 0.85) + ) (n 1) + $ fix ( + (jux (rev . (|- gain 0.1))) . + (# room 0.75) . (# sz 0.15) . (# dry 0.98) + . (|* gain 0.65) + . (|+ pan 0.1) + ) (n 0) + $ fix (|+ note "[0,<12!7 9>]") (n 6) + $ fix ( + (fast "[0.25 <0.25 0.5>]!16 [<0.5!3 1> <1 [1 0.5 1]>]!16 1!32") + . (|* gain (slow 16 $ range 0.75 1.1 cosine)) + ) (n "[4,5,6]") + $ n (stack [ + "1 ~ ~ <~!3 1> ~ 1 <~ 1?0.9> ~", + "0(<3!3 5>,8,<0!3 4>)", + "<[4 5]!7 6>*[8 <8!8 16!8> <8!12 16>]" + ] + ) + # "gretsch" + # gain 0.6 + # pan (slow 16 $ range 0.2 0.8 sine) + + + +d6 + $ slow 4 + $ ply "<2!3 8> <2 4>" + $ note (scramble 6 $ run 12) + # "superhex" + # octave 3 + # rate (slow (slow 32 $ "<32 16 8 4>") $ range 0.05 50 sine) + # cut 2 + # legato 4 + # gain 0.45 diff --git a/live/midi/beats.tidal b/live/midi/beats.tidal index b69db49..76d6148 100644 --- a/live/midi/beats.tidal +++ b/live/midi/beats.tidal @@ -1,18 +1,29 @@ -- Metronome do - setcps (120/60/4) - d1 $ "m*4" # "drum:8" # gain 0.75 - d2 $ "reverbkick" - # gain "<0.75 0.65!3>" - # hpf 1000 + setcps (100/60/4) + d1 $ "m*4" # "gretsch:11" # gain 0.55 + d2 + $ every' 4 3 (off (1 - "e") + (|* gain 0.8) + . (# lpf 2000) + ) + $ "[bd,gretsch:12]" + # release 1 + # gain "<0.55 0.5!3>" +d1 $ slow 2 $ stitch "t . t(3,8)" + (n "0 .. 7" # sound "bd") + (sound "arpy") + # gain 0.7 -- TECHNO do setcps (120/60/4) - d1 $ "jazz*4" - d3 $ "hh*8" - d2 $ "~ cp" + let gG = (# gain 0.95) + d1 $ gG $ "jazz*4" + d3 $ gG + $ sometimesBy (slow 16 $ range 0.2 0.8saw) (off "s" id) $ "hh*8" + d2 $ gG $ "~ cp" # lpf 2000 -- Techno hh(13/16) PIANO prog+MIDI"note" degrade1 @@ -32,30 +43,79 @@ d3 # velocity 0.7 # legato 4 -- BREAKS +do + d1 $ "" --- BreakBeat +-- Lucy's Broken Diamond do +let gD = (degradeBy 0.1) +setcps (80/60/4) +d1 + $ superimpose (const + $ "k . <~!16 k!4 k(3,8)!4 k(3,8,3)!4>" + # "reverbkick" + # lpf 200 + # gain 1.1 + ) + $ gD + $ slice 4 ("0 <0 1> <2 0> 3*<1 2 4 4>") + $ loopAt 1 $ "fbreak80:5" # cut 1 + # gain (slow 32 $ range 0.85 1.25 sine) +d2 + $ fast "<1!8 2!8>" + $ "~ cp" + # gain 0.8 + # lpf 2000 +d3 + $ whenmod 64 32 (iter 4) + $ slice 2 ("<<0 1>!16 0!4 1!4 [0 1]!4 [0*2 1*2]!4>") + $ "fbass:8" + # cut 3 + # gain (slow 16 $ range 0.85 1.2 sine) + +-- rare 9 +-- 1 4 +-- 5 6 7 8 + +-- BreakBeat Echographie +do + let gD = degradeBy "0" setcps (80/60/4) d1 + $ gD $ sometimesBy "0 0" (swing 2) $ "k . <~!4 k(<1 2 3 5>,8)!4>" # "[jazz,bd]" - # lpf 1500 + -- # lpf 1500 d2 + $ gD $ jux (rev . (# cut 21)) $ whenmod 8 4 (ply "<1 <2 [2|4]>>") $ slice (slow 4 "<2 4>") ("0 <0 1>") $ "fbreak80:5" # cut 2 # gain 1 # lpf (slow 24 $ range 10000 200 sine) - d3 $ "~ ~ ~ cp/2" # djf (slow 16 cosine) + d3 + $ gD + $ "~ ~ ~ cp/2" # djf (slow 16 cosine) + d10 + $ fix (|* gain 0.75) (n 4) + -- $ often (fast "<[2|4] [4|8]>") + $ n (stack ([ + "4(1,8)", + "<5 6>(<5 3>,8,<0!3 4>)" + ])) + # "space" + # cut 10 + # gain 0.8 + -- setcps 0 -- TODO record with SEQ 6: jazz impro All the things you are left hand -- Noisy Snake Hats do - -- setcps 0.55 + setcps 0.55 -- resetCycles - let dg = (degradeBy $ (1 - (range 0.25 1 "^1"))) + let dg = id d1 $ dg $ someCyclesBy (slow 16 $ "<0 0.25>") (off "e" id) @@ -70,7 +130,7 @@ do $ whenmod 16 8 (fast ("2 <4!8 <8!8 [4 . 8 [2|4]]!8>>")) $ superimpose ((# "clap:2") . (|* gain 0.7)) $ "~ snare" # n "[1,2]" - -- # gain (slow 32 $ range 0.8 0.5 isaw) + # gain (slow 32 $ range 0.8 0.5 isaw) # pan 0.3 # djf (slow 64 (cosine + perlin/4)) d3 -- Hats snake-ish @@ -107,3 +167,17 @@ d3 $ whenmod 16 8 (jux rev) $ fast "<4 4 8 4>" $ "drum:8" # gain (slow 16 $ range 0.6 0.85 saw) + +-- Space techno beat +do +setcps (115/60/4) +d1 -- Kick techno + $ s "k*4" # "jazz" # gain 0.525 +d2 -- Snare contretemps + $ mask "" + $ s "~ . ~" # s "[snare,cp]" # gain 0.5 +d7 -- Drumroll énergisant + $ jux rev + $ fast "<4!3 <8 [8 16 8]>>" + $ "drum:2*[<2!3 4>]" + # gain 0.65 diff --git a/live/midi/dub.tidal b/live/midi/dub.tidal new file mode 100644 index 0000000..a9bba6b --- /dev/null +++ b/live/midi/dub.tidal @@ -0,0 +1,61 @@ +-- Dark dub base reguliere +do +resetCycles +setcps (90/4/60) +let mel = (">") +let gF = (whenmod 32 16 (# lpf (slow 16 $ range 0 1 sine))) +d1 + $ gF + $ whenmod 16 8 (off "s" id) + $ "[electro1:6,reverbkick]" + # lpf 2000 # gain 0.8 +d2 + $ gF + $ off "e" (|* gain 0.7) + $ fast "<4!3 [4 <[8 4] <8 16>>]>" + $ "h2ogmhh" + # gain 0.45 +d3 + $ ("0.25" ~>) + $ superimpose ( + (|- pan 0.1) + . (# "bassWarsaw") + . (|- note 24) + . (|* gain 0.8) + . (# legato 1) + ) + $ note ("c [c d] c ~ ~ ~ ") + # "bass3:1" + # legato 0.95 + # room 0.2 + # pan 0.8 + # gain 0.65 +d4 -- Aigu contretemps + -- $ mask "" + $ superimpose ( + (# "superpiano") + . (|<| "p(<4!4 8!4 12!4 16!4>,8)") + . (# velocity 0.45) + ) + $ fast 2 + $ "~ p" + # note (mel) + # octave 7 + # "pluck" + # gain 0.65 +d5 -- Piano grave temps + -- $ mask "" + $ off "e" id + $ fast 2 + $ note mel + # "superpiano" + # octave 3 + # room 4 # dry 0.99 # sz 0.9 + # legato 2 + # pan 0.25 + # velocity (slow 64 $ range 0.35 0.55 sine) + + +d1 $ "hand:15" # cut 1 +once $ "fbass" # note (-2) +once $ "electro1:6" diff --git a/live/midi/dubmini.tidal b/live/midi/dubmini.tidal new file mode 100644 index 0000000..143b264 --- /dev/null +++ b/live/midi/dubmini.tidal @@ -0,0 +1,68 @@ +-- Dub lancinante + +do +setcps (60/60/4) +let gDeg = (degradeBy "0 1 0.8 1" . (|* gain 0.65)) +let gLF = (whenmod 64 32 (# lpf (slow 32 $ range 200 10000 sine))) +let gHF = (whenmod 66 33 (# hpf (slow 33 $ range 0 2000 cosine))) +let gFx = (gLF . gHF . gDeg) +d1 + $ gFx + $ fast 8 + -- $ fast "<1!16 2!4 4!12 8!16>" + $ "h2ogmbd:3" # gain 1.2 +d2 + $ gFx + $ whenmod 64 48 (# lpf (slow 16 $ range 0 0.5 saw)) + $ fast "<4!3 [4 8]>" $ "~ h2ogmcp" # gain 0.75 +d3 -- Drums left + $ gFx + $ degradeBy (slow 64 $ range 0 0.8 saw) + $ "t(3,8) t(<1 5>,8)" # "h2ogmft:2" # gain 0.85 + # pan (slow 16 $ range 0 0.65 cosine) +d4 -- Drums right + $ gFx + $ sometimesBy (slow 32 $ range 0 0.8 saw) (juxBy 0.75 rev) + $ "t(5,8,4) t(<1 3>,8,4)" # "h2ogmft:3" # gain 0.8 + # pan (slow 16 $ range 0.35 1 sine) +d5 -- Bassline + $ superimpose gFx + $ whenmod 64 48 (degradeBy "0 <0.25!4 0.5!4 0.75!4 0.85!4>") + $ sometimesBy "<0.25!3 0.75> 0.8" (fast 2) + $ note ("fs2*2 [a2 b2] [~ >] ~") + # "supersaw" + # voice 0.1 + # gain 0.6 -- Warning superimposed twice +d6 -- Crazy hats + $ gFx + $ "h2ogmhh(12,16,<0!3 3>)" + # n "[0|3|4]*16" + # gain (slow 12 $ range 0.65 0.75 saw) + # pan (slow 16 $ "<0.6 0.4>") +d7 -- Snare rush /32 + $ gFx + $ mask "" + $ "h2ogmsn:7*<4 [4 4 8] 8 [8 16] 16 [16 32 32] 32 [32 64]>" # gain 0.75 +d8 -- Piano regulier folie swing + $ gFx + $ whenmod 128 64 ( + swingBy "q" (slow 4 $ "<1!4 2 [1 2] [1 2 1 2]!2>") + ) + $ fast 2 + $ whenmod 32 16 (off "h" id) + $ superimpose (|+ note 12) + $ note ("~ fs*2 ~") + # "superpiano" # velocity 0.55 # legato 1.25 + # room 0.4 # sz 0.7 + # gain (slow 50 $ range 0.65 0.95 perlin) + # pan 0.7 +d9 -- Trompettes lancinantes + $ gFx + $ note (" . ~") + # "brass" + # gain (slow 64 $ range 0.45 0.65 perlin) + # legato 2 + # room (slow 64 $ range 0.4 0.7 saw) + # sz (slow 32 $ range 0.4 0.8 saw) + # pan 0.7 + # cut 9 diff --git a/live/midi/jazz.tidal b/live/midi/jazz.tidal new file mode 100644 index 0000000..18c7c9c --- /dev/null +++ b/live/midi/jazz.tidal @@ -0,0 +1,54 @@ +resetCycles + +do +setcps (80/60/4) +let gLpf = (whenmod 16 8 (# lpf (slow 8 $ range 0 0.5 saw))) +d1 + $ gLpf + $ "jazz" # gain 0.7 +d2 + $ gLpf + $ "~ [jazz:4,cp]" + # gain (slow 16 $ range 1.2 0.8 isaw) + # hpf (range 0 10000 perlin) +d3 -- Snakes + $ juxBy (slow 8 $ range 0.1 0.9 sine) rev + $ fast 4 + $ "s . s <~!3 s>" + # "hh*6" + # gain (slow 32 $ range 0.5 1 saw) +d4 + $ superimpose ( + ply "<2 4 [4 8] 8>" . + mask "t(1,4)" . arpeggiate . (# "supermandolin") + . (|* gain 0.8) + . (# pan 0.6) + ) + $ note (cat [ -- grille du blues + "c3'maj", "f3'maj", "c3'maj", "c3'maj", + "f3'maj", "f3'maj", "c3'maj", "c3'maj", + "g3'maj", "f3'maj", "c3'maj", "c3'maj", + "g3'maj", "f3'maj", "c3'maj", "g3'maj" + ]) # "bassWarsaw" + # pan 0.35 + # crush (slow 64 $ range 16 4 isaw) + # voice 0.8 # gain 0.85 + +d4 $ note (cat [ + "d3'min", "e3'maj", "c3'min", "c3'min" + ]) # "bassWarsaw" # voice 0.8 # gain 0.8 + +once $ arp "up" $ note "d'min" # "superpiano" # velocity 0.38 + +-- region BACASABL + + +d4 + $ note (cat [ -- FIXME dur a suivre! + "c3'min", "c3'maj", "c3'min", "c3'min", + "c3'maj", "c3'maj", "c3'min", "c3'min", + "d3'min", "d3'maj", "d3'min", "d3'min", + "d3'maj", "d3'min", "d3'maj", "d3'min", + "g3'min", "g3'maj", "g3'min", "g3'min", + "g3'maj", "g3'maj", "g3'min", "g3'maj" + ]) # "bassWarsaw" # voice 0.8 # gain 0.92 diff --git a/live/mood/soothing/tone_down.tidal b/live/mood/soothing/tone_down.tidal new file mode 100644 index 0000000..9165e4e --- /dev/null +++ b/live/mood/soothing/tone_down.tidal @@ -0,0 +1,70 @@ +-- DIGITAL DREAMS OF MINITEL REVIVAL +-- Techno numérico-mélancolique résolvable +do +setcps (60/60/4) +let mel = "c > > @4" +d1 -- BEAT + $ slow 2-- TODO Resolve :) + $ whenmod 64 32 (# djf (slow 32 $ range 0.5 0 isaw)) + $ fast 2 $ (<| "k k k >") -- TECHNO <3 + $ "jazz" # gain 0.5 +d2 -- Drums résolus + $ slow 2 $ (|* gain 0.85) -- TODO Resolve :) + $ whenmod 4 2 (often (mask "t [!7 t]")) + $ whenmod 64 32 (# djf (slow 32 $ range 0.5 1 saw)) + $ superimpose ( + (# "glitch:2") + . (# legato 1) + . (|* gain (slow 16 $ range 0.5 0.75 saw)) + ) + $ "[d ~!3 . d*<12!3 16>]" + # "[snare:20,glitch:0]" + # gain (slow 16 $ range 0.3 0.45 saw) +d4 -- Cymbales fantômes + $ ((|* gain 0.8) . (# room 0.4))-- TODO Resolve :) + $ rarely ((swing 2 . (|* gain 0.75))) + $ juxBy 0.9 ((|* gain 0.9) . (|+ room 0.4)) + $ sometimesBy "" (mask "") + $ "~ ~ ~ [c <~ c> <~ c> <~ ~ c ~>]" # "h2ogmcy" + # gain 0.35 + # n "<[<0 1 2 3 4>]!16 [<6 7 8 9 10>]!16>" + # room (slow 8 $ range 0.3 0.65 saw) # size 0.7 + # legato 4 +d5 -- Rhodes nappes + $ (|* gain 0.7) + $ whenmod 64 32 (|* gain (slow 32 $ range 1 0.5 isaw)) + $ off 1 ( -- Lower + whenmod 64 32 (chop 4) + . (|+ pan 0.2) + . (|- note 12) + . (# room 0.5) + ) + $ off 1 ( -- Mid + stut 4 0.9 "" + . (|* gain 0.95) + . (|+ pan 0.2) + . (|- note 12) + ) + $ note mel + # "FMRhodes1" + # gain 0.65 + # room 0.2 + # pan 0.4 + # legato 2 +d6 -- Rhodes lead folie minitel + $ degradeBy "0 0.95!7" . (|* gain 0.8) + $ sometimesBy "" (degradeBy "t f [f t] f") + $ scramble 8 + $ ply 4 + $ note mel + # octave "<5 5 [5|6] 6>" + # "FMRhodes2" + # room (slow 32 $ range 0.1 0.4 perlin) + # size 0.2 + # gain (slow 32 $ range 0.6 0.85 sine) + +once $ note ("af") # "FMRhodes1" # gain 0.8 # room 0.2 +once $ note ("d'min'2") # "FMRhodes1" # gain 0.95 +once $ note ("c'maj'2") # "FMRhodes1" # gain 0.95 +once $ note ("e'maj'2") # "FMRhodes1" # gain 0.95 +once $ note ("c f d af g@2") # "FMRhodes1" # gain 0.95 # cut 1 diff --git a/live/techno/bailar.tidal b/live/techno/bailar.tidal index 369d72e..7447b70 100644 --- a/live/techno/bailar.tidal +++ b/live/techno/bailar.tidal @@ -1,20 +1,20 @@ do -let gGlob = 1 -setcps (126/60/4) +let gGlob = 1.5 +setcps (128/60/4) resetCycles d1 -- Kick etouffable $ mask "" -- Pont! $ fast "<4!16 1!4 2!4 4!8 1!4 8 1!3 4 1 1 2 4 4!8>" $ "[jazz,techno]" # djf (slow 64 $ sine) - # gain (gGlob * 0.8) + # gain (gGlob * 0.78) d2 -- Drums reguliers $ mask "" -- Pont! $ sometimesBy "0 0 0.25 0" (ply 2) $ fast "<4!12 8!6 16 [8 4]>" $ "drum:2" # djf (slow 64 $ sine) - # gain (gGlob * 1) + # gain (gGlob * 0.9) d3 -- Tambours marche $ mask "" -- Pont! $ "cpu:2*<4!3 <8 [8 16] [8 16 8] [16 8 16] [16!3 8]>>" @@ -31,13 +31,13 @@ d4 -- Rita Orchestra # cut 4 # room 0.2 # sz 0.8 # pan 0.7 - # gain (gGlob * (slow 96 $ range 0.25 0.45 sine)) + # gain (gGlob * (slow 96 $ range 0.35 0.45 sine)) d5 -- Wahwah $ mask "" -- Pont! $ whenmod 8 6 (juxBy 0.8 (rev . chop 4)) $ iter 2 $ striate 4 $ "rita:2" - # gain (gGlob * (slow 4 "<1 0.9 0.8 0.7>") * 0.58) + # gain (gGlob * (slow 4 "<1 0.9 0.8 0.7>") * 0.6) # pan 0.3 # cut 5 diff --git a/live/techno/funk/FFF/mad_fonk.tidal b/live/techno/funk/FFF/mad_fonk.tidal index 6e8a874..a8c30c9 100644 --- a/live/techno/funk/FFF/mad_fonk.tidal +++ b/live/techno/funk/FFF/mad_fonk.tidal @@ -7,22 +7,22 @@ resetCycles -- endregion do - unsolo 1 -- Kick + solo 1 -- Kick solo 2 -- Snare roll/rush - unsolo 3 -- Drumroll - unsolo 4 -- Bassline - unsolo 5 -- Guitare intro/pompeA - solo 6 -- Epiano groovy + solo 3 -- Drumroll + solo 4 -- Bassline + solo 5 -- Guitare intro/pompe + unsolo 6 -- Epiano groovy solo 7 -- Claps from grace let bpm = 80 -- Que tu crois! setcps (bpm/60/4) solo 10 -- NOISES d10 $ funk_noise d1 - $ every' 8 7 (# lpf 200) + -- $ every' 8 7 (# lpf 200) -- region Pauses Hip-hop - $ whenmod 8 6 (juxBy 0.5 rev) - $ "k . k(<3 <5 4>>,8)" -- Le simple + -- $ whenmod 8 6 (juxBy 0.5 rev) + -- $ "k . k(<3 <5 4>>,8)" -- Le simple -- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité -- region hardkick -- $ whenmod 32 0 ( @@ -37,9 +37,9 @@ do -- region INTRO/Run -- $ slow 2 -- intro -- $ whenmod 8 6 (# silence) - -- $ "k k k k k k k " + $ "k k k k k k k " # "[jazz,tech:6]" - # gain 1.4 + # gain 1.1 # pan 0.45 d2 $ slow 2 @@ -49,7 +49,7 @@ do $ "~ s*<1 <2 <4 <8 [8 16]>>>>" # "snare:3" # note ("<0 -1 -2 -3>") - # gain 0.8 + # gain 0.9 # pan (slow 8 $ range 0.4 0.8 sine) d3 -- Drumroll -- $ slow 8 -- TODO IN/OUTRO @@ -67,7 +67,7 @@ do ( -- iter (slow 2 "<2 4>") $ -- run 8 -- Classique: jumpy groovy - "0*4 2 1 3 4 5 6 7"-- HAVE FUN + "0*4 <1 2 3> <2 3 1> <1 2 3> 4 5 6 7*2"-- HAVE FUN -- "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>" -- Jumpy rappel -- "<0 4 0 0*2> 4 <0 1 2 3> <0 4!2>" -- Attente -- "<0!3 <1 2>>*8" -- COME ON CRUSH @@ -75,12 +75,9 @@ do $ "fbass:8" # legato 1 -- # crush (3.5 + "6 <5 4>") -- CRUSH THIS - # gain 0.8 + # gain 1 # pan 0.6 d5 -- Guitare pompe - -- $ whenmod 64 32 ( -- TODO Renverse - -- someCyclesBy "<0.5!16 0.9!16>" rev - -- ) -- region Guitare pompe $ slice 8 (cat [ "0*4", @@ -111,7 +108,7 @@ do $ slow 2 -- $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS $ slice 8 ( - -- "0 3 2 1 4 5 6 7*<1 2>" -- regulier + "0 3 2 1 4 5 6 7*<1 2>" -- regulier -- "0 3 2 1 0 3 <2 6> 7" -- variant -- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE -- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE @@ -119,14 +116,14 @@ do -- "2*4 3*4 5(3,8)" -- "0 3 2 1!5" -- repeat aigu -- "5!7 7" -- END OF FILE - "4!5 5 6 7*<1 2>" -- repeat end + -- "4!5 5 6 7*<1 2>" -- repeat end ) $ s "fepiano" # n (slow 8 "<24 25>") - # gain 1.4 -- 0.99 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37 + # gain 0.9 -- 0.99 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37 # cut 6 # pan 0.7 d7 $ fast 2 $ s "clap" # lpf 2000 - # gain (slow 16 $ range 0.8 1.2 saw) + # gain (slow 16 $ range 0.8 1.1 saw) # room 0.4 diff --git a/live/techno/funk/naufrage.tidal b/live/techno/funk/naufrage.tidal index 73b4d7f..80bb192 100644 --- a/live/techno/funk/naufrage.tidal +++ b/live/techno/funk/naufrage.tidal @@ -6,11 +6,11 @@ do -- resetCycles - solo 1 -- KICK! + unsolo 1 -- KICK! solo 2 -- Hats rolling - solo 3 -- LEAD piano - solo 4 -- guitar riff - solo 5 -- Théorie du naufrage + unsolo 3 -- LEAD piano + unsolo 4 -- guitar riff + unsolo 5 -- Théorie du naufrage solo 6 -- Glitches setcps (110/60/4) d1 -- KICK @@ -42,7 +42,7 @@ do ) $ s "fpiano" # n (slow 4 $ "<0 1>") - # gain (slow 32 $ range 0.7 0.8 saw) + # gain (slow 32 $ range 0.7 0.9 saw) # legato 1 -- # room 0.5 # sz 0.8 # pan (slow 4 $ "<0.5 0.6>") diff --git a/live/techno/kumai_nights.tidal b/live/techno/kumai_nights.tidal new file mode 100644 index 0000000..7af5906 --- /dev/null +++ b/live/techno/kumai_nights.tidal @@ -0,0 +1,85 @@ +-- Kumai nights Techno kawai nocturne +-- Accompagne piano Do re Mib Sol Lab Do re Mib +do +-- resetCycles +setcps (60/60/4) +let gF = (whenmod 32 16 (# djf (slow 16 $ range 0 0.5 saw))) +d1 -- Kick régulier + $ mask "" -- Intro/128 + $ gF + $ fast "8 <8!3 4 8 [8 4] 8 [8 4]>" + $ "jazz" + # gain 0.9 +d2 -- Gretsch entrainée + $ gF + $ someCyclesBy "" -- Intro/128 + (mask " " + . degradeBy "<[0 <0.9 0.1> <0.9!3 [t f!3]!2 [t f]!2 t>]!8 0!120>" + ) + $ fix + ( -- HATS + whenmod 64 48 (fast "0.5 0.25") + . (|* gain (slow 16 $ range 0.55 1 sine)) + . (# room 0.5) + . (# sz 0.5) + . (# legato + "<[1 <1!3 <0.5 0.375 0.25 0.125>>]!24 0.125!8>" + ) + ) + (n "[4,5]") + $ fix ( -- BD irrégulier + # lpf (slow 10 $ range 10000 200 perlin) + ) + (n "[0,1]") + $ fix -- Cloches + (|* gain 0.85) + (n 6) + $ fix ( -- Cymbales + sometimesBy "f t" (swing 2) . + (<| "h(<8!6 <2!3 16> <2!3 16>>,12)") + . (|* gain (slow 4 $ range 0.65 0.45 (sine + perlin))) + . (# cut 27) + . (# pan 0.55) + ) (n 7) + $ n (stack [ + "[0,1](<3!3 [3 5]>,8,<0!8 3!8>)", + "[<5!2 4!2> <4!3 5!3>](<12!4 16 [16 12] [12 16] [16 12 16]>,16)", + "6*<1!4 2 [2 4] 4 <8 [8 1]>>", + "7" + ]) # "gretsch" # gain 0.8 +d3 -- Rhodes gamme + $ superimpose ( + (|* gain 0.8) + . (|- note 12) + ) + $ often (ply "<2!3 <4 8>>") + $ whenmod 64 16 (superimpose ( + arp "" + . (|+ note "[0,7]") + . (# "FMRhodes2") + . (# gain 0.8) + )) + $ slow 4 + $ note (scale + "kumai" + ( + run "<4!8 8!4 4!4>" + )) + # "FMRhodes1" + # octave 4 + # gain (slow 16 $ range 0.9 1 perlin) + # room 0.4 + # sz 0.5 + # voice 0.9 +d10 + $ juxBy 0.25 rev + $ arp " " + $ note (scale + "kumai" + ( + "c'maj'4 c'min'4 c'min'4 c'maj'4" + )) + # "glitch2:9" + # room 0.25 + # sz 0.5 + # gain 0.5 diff --git a/live/transe/barrels.tidal b/live/transe/barrels.tidal new file mode 100644 index 0000000..04134a0 --- /dev/null +++ b/live/transe/barrels.tidal @@ -0,0 +1,29 @@ +-- Interesting techno-barrel needs a lead +do +setcps (120/60/4) +-- resetCycles +let gF = (whenmod 64 32 (# djf (slow 48 $ 0.5 + sine))) +d1 + $ gF + $ mask "" + $ "jazz*4" # gain 1 +d2 + $ gF + $ mask "" + $ "hh(<16 <16!8 <16 8>!16> 16 [16 <12 8 4>]>,16)" + # gain (slow 8 $ range 0.6 0.9 cosine) + # pan (slow 16 $ range 0.2 0.4 perlin) + # cut 2 +d3 + $ gF + $ sometimesBy ("<1!8 0!120>") ( + (slow "<8!2 4!2 2 2 [2 1] 1>") + . (ply 2) + . (|* gain (slow 8 $ range 0.75 1 saw)) + ) + $ slice 4 (run 8) + $ "bsbass" + # lpf 2000 + # gain (slow 32 $ range 0.65 0.85 sine) + # cut 1 + # pan 0.6 diff --git a/live/work/wake_the_funk.tidal b/live/work/wake_the_funk.tidal index 0b1b278..e70ed47 100644 --- a/live/work/wake_the_funk.tidal +++ b/live/work/wake_the_funk.tidal @@ -6,7 +6,7 @@ do setcps (110/60/4) d1 $ whenmod 16 12 (mask "") - $ fast 4 $ "jazz" + $ fast 4 $ "jazz" # gain 0.9 d2 $ whenmod 16 12 (mask "") $ sometimesBy "0!4 0.5!3 0" ( -- Open hat diff --git a/study/nova/chill_funk_new_disco.tidal b/study/nova/chill_funk_new_disco.tidal new file mode 100644 index 0000000..2aa501d --- /dev/null +++ b/study/nova/chill_funk_new_disco.tidal @@ -0,0 +1,110 @@ +-- Inspiré par [PV Nova](https://www.youtube.com/watch?v=EE-6l6g7YtA) +-- # Rythmique +-- Poum tchak poum tchak +-- Charley fretillants +-- Claps reverb +-- p t p t pp t p cc +-- h hhh h hh hhh h +-- # Melodie: accords magiques +-- Fa Sol Lam Mim +-- Grosse basse qui tache +-- Guitares elec legere cocotte bondissant de croche en croche +-- # Refrain +-- Piano: memes accords, plaqués +-- Guitare: aigus "a la neil rogers"? -- Lol non je code pas ça +-- Basse: nouvelle ligne! +-- Gimmick funky piano electrique +-- Synthé aérien "famille des pads" +-- Percus bonus: triangle/claves + +do +resetCycles +setcps (105/60/4) +d1 + $ fix ( + (# "hh") . (# n "0 <0!3 <7 [7 8]>>") + . (sometimesBy "0 <0!3 <0 1>>" (ply "2 [2 1]")) + . (# cut 11) + . (# hpf 3000) + ) "h" + $ fix (# "cpu:2") "sn" + $ fix ( + (# "clap:1") + . (# room 0.1) + . (# sz 0.2) + . (# dry 0.9) + . (|* gain 0.65) + ) "cp" + $ fix ( + (# "[808bd:3,cpu2]") + ) "bd" + $ stack [ + "bd sn bd <[sn bd] cp*2>", + "h(<3!3 5>,8) h(<5 3>,8)" + ] + # gain 0.7 +d2 -- Piano altéré: FAM7 SOLsus4 LAm7 MIm7 + $ mask "" + $ someCyclesBy "" (superimpose ( -- Accords aigus + swing "1 <1 2>" + . sometimesBy "" (fast 2) + . scramble 4 + . arp "" + . (|+ note 12) + . (|* gain 0.9) + . (|+ pan 0.1) + )) + $ note "" + # "" + -- # "superpiano" # velocity 0.75 # hpf 2500 + # octave 4 + # pan 0.4 + -- # gain 0.95 +d3 -- Bassline + $ mask "" + $ sometimesBy "" (# lpf 200) + $ loopAt 2 + $ slice 8 ( + sometimesBy "" ((>| "0 1 0 1 1 1 1*2 [1 0]")) + "0 0 1 1 0 1 [0 1] <~ [~ 1]>" + ) + $ "fbass:3" + # cut 3 + # pan 0.55 + # gain (slow 16 $ range 0.65 0.85 sine) +d4 -- Cocotte + $ mask "" + $ slice 4 "0(3,8) <4!3 3>" + $ "fguitar:48" + # gain (slow 64 $ range 0.45 0.75 sine) + # pan 0.8 + # legato (slow 32 $ range 0.8 1.2 sine) + # cut 4 +d5 -- EPiano groovy refrain + $ mask "" + $ loopAt 2 + $ "fepiano:19" + # gain (slow 64 $ range 0.5 0.75 (1 - sine)) + # cut 5 + # pan 0.25 +d6 -- Percus bonus + $ mask "" + $ fast "<16 <16!4 <16 [16 8 16]>!4> 16 [16 <8 [8 16]>]>" + $ "tech:8" + # pan (slow 32 $ range 0.7 0.85 sine) + # gain 0.8 + # cut 6 +d7 -- Roll bonus + $ mask "" + $ someCyclesBy (slow 32 $ sine) (# gain 0.95) + $ "gretsch:11(<12!3 [12 16]>,16)" + # hpf 2500 + # gain 0 + # pan (slow 32 $ range 0.3 0.45 sine) + # cut 7 +d8 -- Synthé aerien pad-like + $ note " >" + # "supersaw" + # voice 0.1 + # gain (slow 32 $ range 0 0.25 saw) + # room 0.1 diff --git a/study/patterns.pdf.tidal b/study/patterns.pdf.tidal new file mode 100644 index 0000000..6d1c9b1 --- /dev/null +++ b/study/patterns.pdf.tidal @@ -0,0 +1,10 @@ +d1 + $ superimpose rev + $ superimpose (fast 2) + -- $ chunk 4 (blend 0.5 "cpu:2" <$>) + $ superimpose rev + -- $ fast "1 5 3" + $ n ( + iter 4 + "0 1 2 3") + # "cpu" # gain 0.5 diff --git a/study/wiki/tones.tidal b/study/wiki/tones.tidal new file mode 100644 index 0000000..ea1b850 --- /dev/null +++ b/study/wiki/tones.tidal @@ -0,0 +1,63 @@ +-- Kumai darling Techno kawai nocturne +-- Accompagne piano Do re Mib Sol Lab Do re Mib +do +setcps (60/60/4) +let gF = (whenmod 32 16 (# djf (slow 16 $ range 0 0.5 saw))) +d1 -- Kick régulier + $ gF + $ fast "8 <8!3 4 8 [8 4] 8 [8 4]>" + $ "jazz" + # gain 0.9 +d3 -- Rhodes gamme + $ superimpose ( + (|* gain 0.8) + . (|- note 12) + ) + $ often (ply "<2!3 <4 8>>") + $ arp "" + $ slow 4 $ note (scale + "kumai" + ( + run "<4!8 8!4 4!4>" + )) + # "FMRhodes1" + # octave 4 + # gain (slow 16 $ range 0.9 1 perlin) + # room 0.4 + # sz 0.5 + # voice 0.9 +d2 -- Gretsch entrainée + $ gF + $ fix + ( -- HATS + whenmod 64 48 (fast "0.5 0.25") + . (|* gain (slow 16 $ range 0.55 1.25 cosine)) + . (# room 0.5) + . (# sz 0.5) + . (# legato + "<[1 <1!3 <0.5 0.375 0.25 0.125>>]!24 0.125!8>" + ) + ) + (n "[4,5]") + $ fix ( -- BD irrégulier + # lpf (slow 10 $ range 10000 200 perlin) + ) + (n "[0,1]") + $ fix -- Cloches + (|* gain 0.85) + (n 6) + $ fix ( -- Cymbales + sometimesBy "f t" (swing 2) . + (<| "h(<8!6 <2!3 16> <2!3 16>>,12)") + . (|* gain (slow 4 $ range 0.65 0.45 (sine + perlin))) + . (# cut 27) + . (# pan 0.55) + ) (n 7) + $ n (stack [ + "[0,1](<3!3 [3 5]>,8,<0!8 3!8>)", + "[<5!2 4!2> <4!3 5!3>](<12!4 16 [16 12] [12 16] [16 12 16]>,16)", + "6*<1!4 2 [2 4] 4 <8 [8 1]>>", + "7" + ]) # "gretsch" # gain 0.8 + +once $ "superreese"