From e8b13bf384e4ebc94bb84993e2358370f6c86d2f Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Fri, 1 May 2020 20:13:18 +0200 Subject: [PATCH] update: Lessons, live from abstract to pensif --- blocks/rolls.tidal | 4 ++++ copycat/resistance.tidal | 4 ++-- live/TODO/dildo_cycles.tidal | 3 +++ live/boeuf/dimanche_pizza.tidal | 126 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/chill/bad_bad_guy.tidal | 32 ++++++++++++++++---------------- live/chill/dub.tidal | 2 +- live/chill/tete.tidal | 37 +++++++++++++++++++++++++++++++++++++ live/chill/timeless.tidal | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/dnb/neuro.tidal | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/dnb/slow_step_abstract.tidal | 25 +++++++++++++++++++++++++ live/dub.tidal | 20 -------------------- live/fusion/castle.tidal | 76 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/fusion/du_code.tidal | 2 ++ live/fusion/dub_night.tidal | 69 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/fusion/lucy_sky.tidal | 2 +- live/hip/entre_en_scene.tidal | 162 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------------------------------------------- live/hip/mask.tidal | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++ live/hip/pensif.tidal | 195 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------------------------------------------------- live/hip/sunny.tidal | 32 ++++++++++++++++++++------------ live/hip/sunny2.tidal | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/hip/volette.tidal | 5 ++--- live/techno/abstract.tidal | 36 ++++++++++++++++++++++++++++++++++++ live/techno/raclette.tidal | 3 +++ live/techno/saturday4.tidal | 34 ++++++++++++++++++++++++++++++++++ notes.md | 7 +++++++ output/DuCode_VagueBleue.jpg | Bin 0 -> 99053 bytes output/Penseur.jpg | Bin 0 -> 205727 bytes study/club/14april.tidal | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ study/club/snippets.tidal | 18 ++++++++++++++++++ study/eric/tidal-electro.tidal | 6 ++++++ 30 files changed, 994 insertions(+), 244 deletions(-) create mode 100644 live/TODO/dildo_cycles.tidal create mode 100644 live/boeuf/dimanche_pizza.tidal create mode 100644 live/chill/tete.tidal create mode 100644 live/chill/timeless.tidal create mode 100644 live/dnb/neuro.tidal create mode 100644 live/dnb/slow_step_abstract.tidal delete mode 100644 live/dub.tidal create mode 100644 live/fusion/castle.tidal create mode 100644 live/fusion/dub_night.tidal create mode 100644 live/hip/mask.tidal create mode 100644 live/hip/sunny2.tidal create mode 100644 live/techno/abstract.tidal create mode 100644 live/techno/saturday4.tidal create mode 100644 output/DuCode_VagueBleue.jpg create mode 100644 output/Penseur.jpg create mode 100644 study/club/14april.tidal create mode 100644 study/club/snippets.tidal create mode 100644 study/eric/tidal-electro.tidal diff --git a/blocks/rolls.tidal b/blocks/rolls.tidal index e503648..23ed759 100644 --- a/blocks/rolls.tidal +++ b/blocks/rolls.tidal @@ -20,3 +20,7 @@ d3 -- Percroll $ almostNever (# n 1) . degrade $ s "d(<10!2 14 16>,16)" # s "bsperc:5" + +d4 +$ fast "<8!3 [[8 16] 1]>" +$ s "dr" diff --git a/copycat/resistance.tidal b/copycat/resistance.tidal index 6a50fe8..3638620 100644 --- a/copycat/resistance.tidal +++ b/copycat/resistance.tidal @@ -6,10 +6,10 @@ d1 -- $ euclid 2 4 $ s "b" $ s "~ . b . ~ . b" # s "kick:8" -# gain 0.5 +-- # gain 0.5 d2 $ s "~ . b . ~ . b" # n "[0,1]" # s "dr" -# gain 0.6 +-- # gain 0.6 diff --git a/live/TODO/dildo_cycles.tidal b/live/TODO/dildo_cycles.tidal new file mode 100644 index 0000000..6e68c01 --- /dev/null +++ b/live/TODO/dildo_cycles.tidal @@ -0,0 +1,3 @@ +--- TODO: Sample Geisha by Les elles +-- Drone vibrating dildo +-- Chopped moans diff --git a/live/boeuf/dimanche_pizza.tidal b/live/boeuf/dimanche_pizza.tidal new file mode 100644 index 0000000..976dabd --- /dev/null +++ b/live/boeuf/dimanche_pizza.tidal @@ -0,0 +1,126 @@ +d1 $ slow 4 $ note melody # s "supersaw" # gain 0.6 # voice 0.1 # legato 1.1 + +d2 $ scramble 4 $ chop 8 $ s "tablex" # n (irand 2) # gain 0.9 # speed (cycleChoose [1,1.5,00.5]) + +do + let melody = "[-24, <-17 -17 -18 -17 -17 -14>]" + d3 -- drumroll + $ fast "16 <8!3 [32 <8 16>]>" $ s "dr" + # gain 0.7 + # pan (slow 16 $ range 0.2 0.8 saw) + d2 -- Snares + $ sometimes (superimpose (# s "glitch3:4") + $ someCycles (hurry 2) + $ s "s(<1 3 5>, 8)" + # s "sn:10" + # gain (slow 8 $ range 0.5 0.7 sine) + d4 -- Allez + $ s " k([1||1|1|3|3|5],8)" + # s "reverbkick" + # lpf (slow 16 $ range 200 2000 sine) + # gain 0.7 + d7 + $ superimpose (# s "supergong") . (# gain 0.45) + $ s "~ f f*2 ~" + # s "superfork" + # note melody + # gain 0.45 + # release 0.5 + +-- Part 2: Church + +let melody = scale "mixolydian" "[-14, <-9 -9 -10 -7 -7 -5>]" + +d1 $ superimpose ((# s "superpiano") . (# gain 0.8)) $ slow 4 $ note melody # s "supersaw" # voice 0.2 # gain 0.65 # legato 1.1 # triode 0.2 + +d2 $ scramble "<4 8 16>" $ chop "<4 8 16>" $ s "tablex" # n (irand 3) # gain 0.9 # speed ((cycleChoose [1,0.8, 0.9]) * cycleChoose([-1])) # coarse (cycleChoose [8,2,16]) + +d3 $ fast (cycleChoose [1,4,4,6]) $ s "juno" # gain 0.7 # triode 0.2 # legato 0.5 # silence + +d4 $ s "glitch(12,16)" # gain 0.95 # n ((choose [3,2,6]) + 0) # legato 1 + +d5 $ note (" "melody + 12) # s "supervibe" # gain 0.85 + + +do + let melody = scale "mixolydian" "[-14, <-9 -9 -10 -7 -7 -5>]" + d6 -- drumroll + $ fast "16" + $ s "[dr,hh:8]" + # gain 0.8 + d7 -- Snares + $ whenmod 8 7 (fast "<1 [2 1]>") + $ sometimesBy "<0 0 0 [0 0.75]>" (hurry 2) + $ s "s(<1 3 5 8>, 8)" + # s "sn:10" + # gain 0.8 + d8 -- Allez + $ s "jazz(<3 5> <1!3 2>,8)" + # gain 0.85 + d9 + $ superimpose ( + stut 4 0.95 "<0.25 0.5>" . + (# s "supergong") . (|- gain 0.1) + (|+ note 12) + ) + $ sometimes (off 0.5 (|+ note 5)) + $ off 0.25 (|+ note "<0 12>") + $ slow 4 + $ note (melody - 2) + # s "superfork" # gain 0.7 + + +-- Grave cool ta superfork ! +-- Thanks ! Ca fait des super gongs/cloches + + +-- DYNAMISME VIA EFFETS: + +d5 $ note ((inside 4 (fast (cycleChoose [2,4])) $ "0 4 0 <7 12 10>") + melody + (cycleChoose [12, 24])) # s "supervibe" # gain 0.75 # legato 3 # coarse (cycleChoose [8,2,1,1]) # hpf (slow 4 $ range 440 2000 sine) # tremdp 1 # tremolorate 15 # hpq (slow 3 $ range 0 0.5 sine) + +-- Part 3: Outro + +let melody = scale "" "[-14, <-9 -9 -10 -7 -7 -5>]" + +d1 $ superimpose ((# s "superpiano") . (# gain 0.85)) $ slow 4 $ note melody # s "supersaw" # voice 0.2 # gain 0.6 # legato 1.1 # silence + +d2 $ jux rev $ scramble "<4 8>" $ chop "<4 8>" $ s "tablex" # n (irand 3) # gain 0.9 # speed ((cycleChoose [1,1.2, 0.9]) * cycleChoose([-1])) # coarse (cycleChoose [8, 2,16]) # hpf (slow 6 $ range 200 1000 sine) # hpq (slow 4 $ range 0 0.4 sine) # silence + +d4 $ s "glitch(12,16)" # gain 0.95 # n ((choose [3,2,6]) + 3) # legato 4 # silence + +d5 $ note ((inside 4 (fast (cycleChoose [2,2,4,4,3])) $ "0 4 0 <7 12 10>") + melody + (cycleChoose [12, 24])) # s "supervibe" # gain 0.75 # legato 3 # coarse (cycleChoose [8,2,1,1]) # hpf (slow 4 $ range 440 2000 sine) # tremdp (slow 12 $ range 0 1.5 saw) # tremolorate (slow 8 $ range 0 15 saw) # hpq (slow 3 $ range 0 0.5 sine) # silence + +do + let melody = scale "" "[-14, <-9 -9 -10 -7 -7 -5>]" + d6 -- drumroll + $ rarely (degradeBy "0 1!8") + $ fast "<8!3 16> [16 [32 16]]" + $ s "dr" # silence + d7 -- Snares + $ fix (# s "hh:8") (s "h") + $ fix (# s "sn:10") (s "s") + $ s "~ [s*[1|2] h]" + # gain 0.9 # silence + d8 -- Allez + $ whenmod 16 12 (# gain 0) + $ sometimesBy "0 0.5" (fast 2) + $ s "k(5,8)" + # s "jazz" + # gain 0.9 # silence + d9 + $ superimpose ( + (# s "supergong") . (|- gain 0.1) . + (|+ note 12) + ) + $ sometimes (off 0.5 (|+ note 5)) + $ off 0.25 (|+ note "<0 12>") + $ slow 4 + $ note (melody - 2) + # s "superfork" # gain 0.7 # silence + + +-- Changement de modes dans la progression harmonique +-- nice, jamais tenté auparavent +-- C du jazz maintenant lol +-- En tout cas de la muique msodale +--J'avoue c'est devenu etonnament harmonieux diff --git a/live/chill/bad_bad_guy.tidal b/live/chill/bad_bad_guy.tidal index f1d70ae..85e5054 100644 --- a/live/chill/bad_bad_guy.tidal +++ b/live/chill/bad_bad_guy.tidal @@ -3,39 +3,39 @@ setcps 0.5 d1 $ every 16 (0.25 ~>) $ every 8 (0.125 ~>) --- $ fast 4 -- faster! -$ fast 2 -- fast! +$ fast 4 -- faster! +-- $ fast 2 -- fast! -- $ euclid "<1 1 1 1 2 2 2 2>" 2 $ s "jazz:0" +# gain 0.7 d2 -- drums, someroll -$ whenmod 16 8 (# gain 1) -$ whenmod 16 4 (# gain 0.8) -$ whenmod 16 0 (# gain 0.6) --- $ fast 2 +$ fast "2 1" $ sometimes (# s "dr 808cy:5") $ s "dr*<2 4> [hh hh?]" +# gain 0.7 d3 -- bass -$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3") +$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + +"0 7 ~ 0 6 7 6 3") # s "bass3" # gain 0.8 d3 -- pont 80 drums -$ fast 2 +$ fast 8 $ someCycles ((off 0.625 id) . (# n "3")) $ off 0.125 id $ s "e" # s "electro1" # n "2" +# gain 0.9 -d4 -- TODO: gets annoying, do something -$ (chop 4) . (# cut 1) -- chopped echo -$ off 0.25 ((|+ note 7) . (# cut 1)) -$ off 0.125 (|+ note 3) +d4 -- Choeurs! +-- $ (chop 4) . (# cut 1) -- chopped echo +-- $ off 0.25 ((|+ note 7) . (# cut 1)) +-- $ off 0.125 (|+ note 3) $ "moogBass" -# note "<0 0 0 0 3 3 3>" -# gain 0.7 --- # cut 1 +# note ("<0!4 3!4>" + "0 -2") +# gain 0.75 -d6 $ s "cp/4" +d6 $ s "cp:1/4" diff --git a/live/chill/dub.tidal b/live/chill/dub.tidal index 8247636..8daa3b0 100644 --- a/live/chill/dub.tidal +++ b/live/chill/dub.tidal @@ -1,7 +1,7 @@ setcps 0.6 d1 -- beat: default chill, run tous les 64 -$ whenmod 128 1000 ( -- run +$ whenmod 128 129 ( -- run const $ "[r r?] r r [r r?]" # s "[kick:4,kick:10]" # release 0.8 # gain 0.7 diff --git a/live/chill/tete.tidal b/live/chill/tete.tidal new file mode 100644 index 0000000..9645642 --- /dev/null +++ b/live/chill/tete.tidal @@ -0,0 +1,37 @@ +setcps 0.45 + +d1 +$ sometimesBy "0 0.5" (# n 0) +$ s "bsperc(<3 [3|6] 12>,6)" +# n "[5|6]" +# gain 0.9 + +d2 +$ sometimes (ply 2) +$ whenmod 8 7 (# gain 0) +$ s "[dr(<6!3 12>,4),[~ . ~ ~ ~ 808oh]]" +# gain 0.7 + +d4 +$ off 0.5 degrade +$ off 0.25 degrade +$ often (superimpose (off 0.125 + (|+ note "12") +)) +$ slow 4 +$ note ( +"<7!3 0> . <5 12> 0? ~ 0?" +- 12 +) +|+ note "" +# s "superpiano" +# velocity 0.45 + +d5 +$ slow 2 +$ note ("" ++ "0(5,8) <<4!3 8> <2 6>>*2" ++ (slow 4 $ "<0 12>") +) # s "superfork" +# gain 0.7 +# room 0.2 diff --git a/live/chill/timeless.tidal b/live/chill/timeless.tidal new file mode 100644 index 0000000..62d25df --- /dev/null +++ b/live/chill/timeless.tidal @@ -0,0 +1,62 @@ +setcps 0.45 + +do + let bars = 96 + let slowdown = 14 + let chordC = "[0, 12, 16, 19]" + let chordG = "[-5, 11, 14, 19]" + let chordF = "[-7, 12, 17, 21]" + let timeless = [chordC, chordG, chordF, chordG] + let metronome = "<4!3 [4|2]>" + let semiRoll = "32 8" + let fullRoll = "16 [32 . 4 16]" + let cutProg = "0 <[1 0]> <1!3 0> <1!3 0.5>" + let cutMost = "0 0.9" + let cutFew = "0 0.1" + d1 -- Kick + $ whenmod bars (bars - slowdown) + -- (# cps (0.45 - "<0.03 0.05 0.1 0.1 0.1 [0.1 0.05]>")) -- SLOWDOWN + (degradeBy 0.9) + $ every 8 degrade + $ s "k(<3!3 1>,8,<0!3 1>) . k(3,4,<1 3>)" # s "jazz" # gain 1.2 + d2 -- Snares + white noise + $ s "~ . ~ < s*2>" # s "[glitch:2,snare:11]" # gain 0.9 + d3 -- Metronomo-roll + $ sometimes (jux id) + $ whenmod bars (bars - slowdown) -- SLOWDOWN? Nope! + (fast "<0.5 0.25 1 0.5 [1 2] [2 4]>") + $ fast (slowcat [metronome, metronome, metronome, semiRoll]) + $ s "dr" + -- # room 0.5 + # size 0.1 # dry 0 + # cut 1 + # pan (slow 8 $ range 0.6 0.8 sine) + d4 -- Piano + $ degradeBy (slowcat [cutMost, cutMost, + cutProg, cutProg, cutProg, cutProg, cutFew]) + $ sometimes (off 0.125 (|+ note "12 0?")) + $ sometimesBy 0.5 (off 0.375 (|+ note "<12 5>")) + $ note ((slowcat timeless) - 12) + # s "superpiano" + # velocity 0.55 + d5 -- basse + $ chew 4 "0*2 1(3,8) <2 [~ 2]> <3 [3 2]>" + $ arp "updown" + $ note ((slowcat timeless) - 36) + # s "supersaw" # voice 0.05 + # sustain 0.25 + # gain (slow 4 $ 0.55) + # pan (slow 8 $ range 0.5 1 sine) + d6 -- brass hits + $ whenmod bars (bars - slowdown) (# gain 0.5) -- SLOWDOWN? Gain up + $ s "~ ~ b/8 ~" # s "brass:6" + # note (scale "major" ("<1 1 2 1>")) + # gain 0.5 + d8 -- Forks in tune + $ whenmod 32 16 (# accelerate "<0!3 <0.1 0.2>>") + $ euclid "<5 4 5 <8 [16 32]>>" 8 + $ s "superfork" + # note ((slowcat timeless) - 24) + # sustain "<0.5!7 [0.25 0.125]>" + # gain (slow 32 $ range 0.5 0.8 cosine) + # pan (slow 2 $ rand / 2) diff --git a/live/dnb/neuro.tidal b/live/dnb/neuro.tidal new file mode 100644 index 0000000..a6bfb3d --- /dev/null +++ b/live/dnb/neuro.tidal @@ -0,0 +1,60 @@ +setcps 0.8 + +do + let bars = 32 + let br2 = (bars - 4) + let br1 = (bars - 8) + let brEnd = (bars - 1) + d1 -- Poum tchak poum tchak + -- $ whenmod (bars*2) bars (mask "t(<[2|4|8] [3|5]>,16)") + $ whenmod bars brEnd (# gain "0!3 0.9") + $ whenmod bars br1 (# gain 0) + $ fix ( + superimpose ((# s "abstract:2") . (# release 0.5)) + . (# s "kick:4") + ) ("k") + $ fix ( + sometimes (whenmod 4 3 (hurry 2)) + . sometimes (# lpf 5000) + . (# s "snare:30") + ) ("s") + $ s "]> s [~ k] [s <~ s?>]" + # release 0.75 + # pan (slow 4 $ "<0.3 0.7>") + -- # gain 0.9 + d2 -- Le rush + -- $ degradeBy 0.5 + -- $ whenmod (bars*2) bars (mask "f(<[2|4|8] [3|5]>,16)") + $ whenmod bars brEnd (# gain 1.2) + $ whenmod bars br1 (hurry 2) + $ rarely (# crush 6) + $ someCycles (fast "1 . 2 1") + $ sometimesBy "0 0.5" (# n 7) + $ sometimesBy "0.5 0" (# n 8) + $ s "hh*8" + # pan (slow 24 $ sine * 0.8) + d3 -- Vent numeriques montants + $ whenmod bars br2 (# gain 1) + $ whenmod bars br1 (# gain 0) + $ sometimes (# crush "<9!3 8>") + $ jux rev + $ n "<0 3 2>(<3 5>,8)" # s "wind" + # speed (range 0.4 1 rand) + # note (slow 16 $ range (-16) 0 saw) + # gain (slow bars $ range 1 0.7 saw) + d4 -- vent renversant avant drop + $ whenmod bars br1 ( + fast "<1 2 1 1 2 4 8>" . (# gain 0.8)) + $ slow 2 + $ s "space:3" + -- # speed "<1 0.75 0.7 0.6>" + # room "<0.2 0.4>" + # gain 0 + d5 -- synthe fou + $ degradeBy (slow 8 "<0 0 0.5 [0.5 0]>") + $ s "~ c([3|4|6?],8)" + # note ( + ">" + "-12" + + (slow 4 $ "<0 [0|12]>") + ) + # s "[casio]" # gain 0.9 diff --git a/live/dnb/slow_step_abstract.tidal b/live/dnb/slow_step_abstract.tidal new file mode 100644 index 0000000..b897398 --- /dev/null +++ b/live/dnb/slow_step_abstract.tidal @@ -0,0 +1,25 @@ +setcps 0.5 + +once $ s "methbass" # n 6 + +do + let chordC = "[0, 12, 16, 19]" + let chordG = "[-5, 11, 14, 19]" + let chordF = "[-7, 12, 17, 21]" + let timeless = [chordC, chordG, chordF, chordG] + d1 $ slow 2 $ s "kick:5" + d2 $ slow 2 $ s "~ snare:5" + d3 -- Metronomo-roll + $ every 4 (fast "1 2") + $ fast "<8 <16 [16 [32 [64 16]]]>>" + $ s "dr" + # pan (slow 8 $ range 0.6 0.8 sine) + d4 $ every' 4 3 (fast "2 1" . rev) $ arpeggiate $ note "c3'six" # s "supersaw" # voice 0.1 # gain 0.5 + d5 -- Piano + $ whenmod 16 15 (# gain "0.8 0!7") + $ whenmod 16 8 (# gain 0.75) + $ n "0(<[3|5] 4>,8)" + # note ((slowcat timeless) - 12) + # s "phazer" + # gain 0 + # sustain "0.5" diff --git a/live/dub.tidal b/live/dub.tidal deleted file mode 100644 index 62566c5..0000000 --- a/live/dub.tidal +++ /dev/null @@ -1,20 +0,0 @@ -hush - -setcps 0.5 - -solo 3 - -d1 -$ degradeBy 0.5 -$ s "hh*8 ~" - -d4 - - -d2 $ s "birds*2" # n 5 -# gain 0.8 - -d3 -$ s "birds" -# n (irand 10) -# gain 0.9 diff --git a/live/fusion/castle.tidal b/live/fusion/castle.tidal new file mode 100644 index 0000000..5661156 --- /dev/null +++ b/live/fusion/castle.tidal @@ -0,0 +1,76 @@ +-- Castle beats +setcps 0.6 + +d1 -- Beat hip +$ mask "f(<8 7 6 5 4 3 2 1>,8)" +$ s "k(<<3 5>!3 <5 3>>,8)" +# s "jazz" +# gain 0.8 + +do + let bars = 64 + let tEnd = (bars - 2) + let bEnd = (bars - 4) + let bMid = (bars - 32) + d1 -- technoo + $ whenmod bars tEnd (fast 2) + $ whenmod bars (tEnd - 3) (degrade) + $ whenmod bars 16 (fast 2) + $ whenmod bars 0 (slow 2) + -- $ slow 2 + $ s "k k . [~ k|k . k k?]" + # s "reverbkick" + # gain 0.8 + # lpf (slow 16 $ range 1000 8000 sine) + -- + d2 -- snares contretemps assez reguliers + $ juxBy 0.3 rev + $ someCyclesBy "<0!3 0.75>" (hurry 2) + $ "~ " + # s "snare:11" + # note (-12) + # gain (slow 4 $ range 0.8 0.95 sine) + -- + d3 -- Carillon Roll + $ whenmod 32 24 (mask "f(3,4)") + $ fast "<2 4> <2!3 [4 2]>" + $ fast "<[4 2] [8 4]>" + $ s "hh:8" + # gain 0.8 + d4 -- Pianooo + -- $ degradeBy (slow 8 $ "<0 [0 0.75 0.9 0.5]>") + -- $ sometimes (0.125 ~>) + $ whenmod (bars * 2) bars ((euclid "<3!4 5!4>" 16) . slow 16) + $ bite 4 "<0!4 3!4> <0!3 1 3!3 2> <0!3 2 3!3 1> <0!3 3 3!3 0>" + $ note (scale "aeolian" (run 8) + ) + # s "superpiano" + # velocity 0.5 + d5 + $ mask "t(<1 3>,4)" + $ whenmod 64 32 (often (superimpose + (sometimesBy (slow 16 $ "<0 1>") (mask "t f*7")) + . (# crush 2) . (|- gain 0.1) + )) + $ sometimesBy "0.8 0.2 0 0.05" (fast 2) + $ every 8 rev + $ often rev + $ bite 4 "0 1 [2|3] [3|2]" + $ note (scale "aeolian" (run 8) - 24) + # s "supersaw" + # voice 0.1 + # sustain 0.2 + # room 0.8 + # gain 0.5 + d6 -- Choeurs + $ bite 4 (slow 2 $ "<0 <1 2>>") + $ slow 2 + $ note (scale "aeolian" (run 8) + "[12]") + # s "moogBass" + # gain 0.8 + d7 -- claps + $ sometimes (whenmod 4 2 (# s "cp")) + $ s "~ ~ ~ <~ >" + # s "clap" + # n "~ ~ ~ [0 . 1]" + # gain 0.9 diff --git a/live/fusion/du_code.tidal b/live/fusion/du_code.tidal index eddd445..1138db1 100644 --- a/live/fusion/du_code.tidal +++ b/live/fusion/du_code.tidal @@ -1,3 +1,5 @@ + + -- DU CODE ! do d1 -- BEAT diff --git a/live/fusion/dub_night.tidal b/live/fusion/dub_night.tidal new file mode 100644 index 0000000..601b097 --- /dev/null +++ b/live/fusion/dub_night.tidal @@ -0,0 +1,69 @@ +-- Dub digitale? decouverte supersynths + +setcps 0.5 + +d1 +$ whenmod 32 30 (# silence) +$ whenmod 32 24 (degrade) +$ fast "4 <4!3 <8 [16 4]>>" +$ s "kick808" + +d2 -- Snares +$ n "~ [s*[1|2] ~]" +# s "snare:3" + +d3 +$ someCycles (fast "1 1 1 2") +$ sometimes (# s "drum:8") +$ fast "<<4 12> 8> <4 <8 6>>" +$ s "dr" + +d4 +$ n "~ 0(3,4,[0|1]) ~ 0(3,4,[0|2])" +# note (scale "aeolian" "[0,3,7]" + "0 <3!3 <2 5>>") +|- note 24 +# s "superhammond" +# voice 32 +# gain 0.8 + +d5 +$ whenmod 8 6 (rev) +$ chop "<1 2 4>" +$ arp "updown" +$ s "supersiren" +# note ( + scale "aeolian" "[0,3,7]" + "0 <3!3 <2 5>>" + - 7 +) +# release 1.5 +# sustain 8 +# gain 0.45 + +d6 +$ s "0(<8 5>,8)" +# note ( + scale "aeolian" "[0,3,7]" + "0 <3!3 <2 5>>" + - 7 +) +# s "supermandolin" +# gain 0.9 + +d7 +$ s "superhoover" +# note ( + scale "aeolian" "[0,3,7]" + "0 <3!3 <2 5>>" + - 12 + ) +# slide 2 +# accelerate "<2 4 8 16 32 64 128>" +# decay "[0.5 0.25]" +# gain 0.6 + +d8 +$ slow 4 +-- $ off (1/16) (# note "c3'maj") +$ chop "<16 [16 8] [16 16 8]>" +$ arp "updown" +$ s "superzow" +# note (slow 4 $ "") +# gain 0.7 diff --git a/live/fusion/lucy_sky.tidal b/live/fusion/lucy_sky.tidal index 5f7ea09..b0ef196 100644 --- a/live/fusion/lucy_sky.tidal +++ b/live/fusion/lucy_sky.tidal @@ -1,4 +1,4 @@ -setcps 0.5 +dsetcps 0.5 d1 $ sometimesBy "0 0 0 <0 0.9>" (fast 2) diff --git a/live/hip/entre_en_scene.tidal b/live/hip/entre_en_scene.tidal index 75ebb8d..129bc6d 100644 --- a/live/hip/entre_en_scene.tidal +++ b/live/hip/entre_en_scene.tidal @@ -1,89 +1,87 @@ -- Hip-Hop energetic instrumental - setcps 0.42 d8 $ -- silence -- metronome s "" # gain "<0.2 0.3 0.3 0.3>" -d1 -- 4: KICK Chaloupe -$ whenmod 16 14 (# gain 0.7) -$ whenmod 16 11 (# gain 0) -$ whenmod 16 7 (# gain 0.7) -$ whenmod 16 6 (# gain 0) -$ jux rev -$ s " <~ k> . k k ~ k" -# s "jazz" -# pan 0.4 -# gain 0.65 - -d2 -- 3: Hats sur 8! -$ whenmod 16 15 (|+ gain 0.5) -$ whenmod 16 11 (|- gain 0.6) -$ whenmod 16 4 (|+ gain 0.4) -$ whenmod 16 3 (|/ gain 2) --- $ jux rev -$ sometimesBy 0.8 (superimpose ( -- bulles glissantes 8bit! - (# s "supersnare"). (# n (-12)) - . (# accelerate 8) . (# sustain 1) - . (|- gain 0.3) - )) -$ every' 4 3 ((1/16) ~>) -- decale sur 8 -$ euclid "<1 3 5 8>" 8 -$ s "superhat" -# pan (slow 16 $ sine) -# gain 0.5 - -d3 -- 2: Drumroll! --- $ jux rev -$ whenmod 16 11 (|+ gain 0.1) -$ sometimesBy "0 0.5" (off (1/16) id) -$ whenmod 16 8 (fast 2) -$ n "0*4" # s "drum:8" -# gain (slow 32 $ cosine / 4 + 0.4) -# pan 0.4 - -d4 -- 1: Scratched birds! -$ ((1/16) ~>) --- $ degradeBy "0 0.7 0.1" $ s "b*16" -$ rarely (off (1/16) id) $ s "b(8,8)" --- $ s "b(<3 3 5 3 5 5 8 5 8 8 8 8>,8)" -# s "birds3" # n (irand 3) -# gain (slow 32 $ sine / 4 + 0.5) -# pan 0.6 - -d5 -- 4: Lead saw -$ whenmod 32 16 (# silence) -$ whenmod 16 14 (stut 4 0.9 (1/16)) -$ whenmod 16 12 (|+ n 12) -$ whenmod 16 8 (|+ n 12) -$ degradeBy (slowcat [ - "0", "0", "0", "0 1 . ~ . 1 1 . <0 1>", - "0", "0", "0", "1 0 . ~ . 1 1 . <0 1>", - "0 . 1", "0 . 1", "0 . 1", "0 . 1", - "0 . 1", "0 . 1", "0 . 1", "0 . 1" -]) -$ n ( - "0 5 . ~ . 12 13 . <12 15>" -) -# s "supersaw" -# gain 0.4 - -d6 -- 4: Basses accompagnement -$ jux id -$ n "0([1|3|5],[3|8]) <1 [1 . ~ 1] 1(3,2) <5 5(3,3)>>" # s "bassWarsaw" -|- 24 -# pan 0.2 -# gain 0.7 - -d10 -- 5: Toy Classical music! -$ hurry 2 -$ -every' 32 28 -(|> s "toys:2") -$ s "~ ~ t ~" -# s "~" -# lpf 1000 # vowel "u" -# leslie 0.01 # lsize 4 # lrate 0.7 -# note (-10) -# gain 0.8 +do + let gKick = 2 + let gSnares = 1 + let gDrums = gSnares + d1 -- 4: KICK Chaloupe + $ whenmod 16 11 (# gain ("<0!3 1!3>" * gKick)) + $ whenmod 16 7 (# gain gKick) + $ whenmod 16 6 (# gain 0) + $ s "k <~!7 k> <~ k?> k ~ <~ k> k <~!3 k>" + # s "jazz" + # pan 0.4 + # lpf (slow 8 $ "<500 <200 [200 500]>>") + # gain gKick + d2 -- 3: Snares + bulles + $ degradeBy "0.75 0 0.75 0.1" + $ whenmod 64 48 (sometimesBy 0.8 (superimpose ( -- bulles glissantes 8bit! + (# s "supersnare"). (# n (-12)) + . (# accelerate 8) . (# sustain 1) + . (|- gain 1) + ))) + $ sometimesBy "0!3 0.1" (off ("[1|3]/16") id) + $ every' 4 3 ((1/16) ~>) -- decale sur 8 + $ juxBy 0.2 rev + $ euclid "<1 3 5 3>" 8 + $ s "sn:8" + # pan (slow 16 $ range 0.25 1 saw) -- Chasing drums + # gain gSnares + d3 -- 2: Drumroll! + $ whenmod 32 28 ( -- hihatification + degradeBy "0.75 0.25" . + (# dry (slow "<16 8 4>" $ range 0.1 4 saw)) + ) + $ whenmod 32 4 (fast "8 . 16 <16 [8 [8|16]]>") + $ every' 32 1 (fast 4) + $ every 32 (fast 8) + $ s "drum:8" + # pan (slow 16 $ range 1 0.25 saw) -- Chasing snares + # room 0.8 + # dry 1 + # gain gDrums + d4 -- 1: Scratched birds! + $ ((1/16) ~>) + $ degradeBy "0 0.7 0.1" $ s "b*16" + -- $ rarely (off (1/16) id) $ s "b(8,8)" + -- $ s "b(<3 3 5 3 5 5 8 5 8 8 8 8>,8)" + # s "birds3" # n (irand 3) + # gain (slow 32 $ sine / 4 + 1.5) + # pan 0.6 + d5 -- 4: Lead saw + -- $ often (chop 4) + $ whenmod 16 14 (stut 4 0.9 (1/16)) + $ whenmod 16 12 (|+ note 12) + $ whenmod 16 8 (|+ note 12) + $ degradeBy (slowcat [ + "0", "0", "0", "0 1 . ~ . 1 1 . <0 1>", + "0", "0", "0", "1 0 . ~ . 1 1 . <0 1>", + "0 . 1", "0 . 1", "0 . 1", "0 . 1", + "0 . 1", "0 . 1", "0 . 1", "0 . 1" + ]) + $ note ( + "0 5 . ~ . 12 13 . <12 15>" + ) + # s "supersaw" + # gain 0.8 + d6 -- 4: Basses accompagnement + $ whenmod 32 24 (# silence) + $ every' 32 0 (degradeBy "0 1!7") + $ jux id + $ n "0 <1 [1 . ~ 1] [5 5 ~ 5] [5 . ~ 5]>" + -- $ n "0([1|3|5],[3|8]) <1 [1 . ~ 1] 1(3,2) <5 5(3,3)>>" + # s "bassWarsaw" + |- 24 + # pan 0.2 + d10 -- 5: Toy Classical music + $ s "~ ~ t/2 ~" + # s "toys:2" + # end "<0.46 1>" # release 1.7 + # lpf 500 + # crush 7 + # gain 1.2 diff --git a/live/hip/mask.tidal b/live/hip/mask.tidal new file mode 100644 index 0000000..34d5d8a --- /dev/null +++ b/live/hip/mask.tidal @@ -0,0 +1,53 @@ +setcps 0.5 + +-- mask: degrade onoff +-- ply: nice repeat each +-- squiz +-- djf: nice low/high split +do + let maskDown = "t(<8 6 4 2>,8)" + let maskUp = "t(<8 6 4 2>,8)" + let melody = (scale "lydian" ("c4'maj" + "<2 4 6 9>")) + d1 + $ mask (slowcat [ + maskDown, maskDown, maskDown, maskDown, + maskUp, maskUp, maskUp, maskUp + ]) + $ sometimesBy "0 1" (off 0.5 id) + $ ply "1.02" $ s "reverbkick(3,8) snare:23" + # djf (slow 8 $ sine * 0.8) + # gain 0.8 + d3 + $ whenmod 16 12 (hurry 2) + $ whenmod 16 12 degrade + $ ply "<[8 . 16 <8 16> 8] [16 8]>" + $ s "dr" + # room 0.1 # sz 0.2 + d4 + -- $ euclid "<3 <<5? 5> 2>>" 8 + $ mask "f(<<0 2> 4 8>,8,[1|3|5|7])" + $ iter 4 $ arp "" + $ note (melody + - 12 + ) + # s "superfork" + # sustain 1 + d5 + $ chew 4 "0<2 (5,4)> . 1(3,8) [2 3]" + $ slow 2 + $ superimpose (arpeggiate) + $ note (melody + - 12 + ) + # s "supersaw" + # voice 0.1 + # gain 0.6 + d6 + $ always (|+ note "0 . <[-2 -4] [5 0]>") + $ sometimesBy "<0 0 0.25 0.5>" (off (3/16) (# squiz 1)) + $ often (off (2/16) id) + $ mask "t f*<7 3 1>" + $ arp "updown" + $ note (melody + 12) + # s "superpiano" + # velocity 0.7 diff --git a/live/hip/pensif.tidal b/live/hip/pensif.tidal index daa64ed..3ab0778 100644 --- a/live/hip/pensif.tidal +++ b/live/hip/pensif.tidal @@ -1,110 +1,91 @@ -setcps 0.5 - -d1 -- beat hip-hop -$ whenmod 16 12 (# gain 1.3) -$ whenmod 16 11 (# gain 1) -$ whenmod 16 8 (# gain 0) -$ s "k k k [ <~ k>]" -- techno!# --- Hip hop! --- $ every' 8 6 (degradeBy "0 1 . 1 . 1") --- $ s "b ~ b b ~ b b ~" -# s "electro1:5" -# gain 1.3 - -d2 -$ every' 8 6 (degradeBy "<1 0>") -$ every' 8 3 (degradeBy 1) -$ jux rev -$ sometimes (off (1/16) id) -$ s "~ <~ > ~ t" -# s "snare:1" -# gain 0.9 - -once $ s "superpiano" # gain 1 - -d3 -$ every' 8 7 (degrade) -$ every' 4 3 (off (1/16) id) -- double -$ s "dr*8" -# s "drum:8" -# gain 0.7 - -d3 -$ whenmod 8 7 (# silence) -$ sometimesBy "<0 0.25 0.75 0>" (off (3/16) id) -$ sometimesBy 0.8 (off (2/16) id) -$ sometimesBy 0 (off (1/16) id) -$ s "d*4" -# s "drum:8" -# gain (slow 16 $ 0.2 * sine + 0.75) - -d4 -- drums -$ degradeBy "<1 1 1 <[1 0.8 0.2 0] 0>>" -$ s "~ electro1(6,8)" -# n (choose [2,3,4]) - +-- Hip-hop pensif, majeur, triomphal sur la fin -d5 -- basse -$ whenmod 64 32 (# gain (slow 32 $ sine * 0.3 + 0.6)) -$ whenmod 32 24 (|+ note 12) -- pont octave! -$ every' 8 0 (degradeBy "0 0 0 1") -$ superimpose ((arp "") . (# gain 0.9)) -$ whenmod 8 3 (fast 2) -$ whenmod 8 0 (slow 2) -$ note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>" -) -# s "bassWarsaw" -|- note 32 -# gain 0.9 -d5 -- basse reggae -$ chop "<1 <2 4 8>>" -$ note ("[0,5]" + "<7 7 5 [5 9 7]>") -# s "bassWarsaw" -|- note 24 - -d6 -- Choeurs <3 -$ every' 4 3 (arp "") -$ note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>" -) -# s "moogBass" -|- note 12 -# gain 0.7 - -d6 -- piano triomphal -$ whenmod 64 63 (degradeBy "0 0.25 . 0.75 1") -$ whenmod 64 59 (|+ velocity 0.1) -$ whenmod 64 54 (|- velocity 0.1) -$ whenmod 64 48 (|+ velocity 0.1) -- pont octave! -$ note "[0 0? 0]*4" -# note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>" -) -# s "superpiano" -# velocity 0.5 -# sustain "[0.25 0.25 <0.05 0.15>]*4" -# gain 0.5 - -d7 -- piano fou contretemps reggae -$ note ("[0,5]" + "0 0 . 0 0 ~ 0 " + "<7 7 5 5>") -# s "superpiano" -# velocity 0.5 -# room 0.2 - - -d10 -- background voice "Queue" -$ superimpose (chop 8 . (# crush 5) . (# sustain 2) . (# room 0.4)) -$ note "0/4" -# s "alphabet:16" -# gain 0.5 - -d8 -- cymbale -$ whenmod 16 14 (sometimesBy "0.6 0.7 0.8 0.9" (#s "hh:10")) -$ sometimesBy "0 0 0 0.05" (#s "hh:8") -$ s "h(3,8) h(3,8,<0 <2 4>>)" -# s "hh" -# gain (slow 16 $ sine * 0.6 + 0.6) +setcps 0.5 -d9 -- claps -$ s "~ c ~ c" -# s "clap" -# gain 0.9 +do + d1 -- beat hip-hop + $ whenmod 16 12 (# gain 1.3) + $ whenmod 16 11 (# gain 1) + $ whenmod 16 8 (# gain 0) + -- $ s "k k k [ <~ k>]" -- techno!# + $ every' 8 6 (degradeBy "0 1 . 1 . 1") -- Hip hop! + $ s "b ~ b b ~ b b ~" + # s "electro1:5" + # pan (slow 4 $ "<0.45 0.55>") + d2 -- Snares bruités + $ every' 8 6 (degradeBy "<1 0>") + $ every' 8 3 (degradeBy 0.9) + -- $ jux rev + $ sometimes (off (1/16) id) + $ s "~ <~ > ~ t" + # s "snare:1" + # gain (slow 16 $ "<0.6 0.7>") + d3 -- Drums + $ fast "<[2|4]!3 8> . <[8|16]!3 8> <4 4 8 16>" + $ s "drum:8" + # gain (slow 16 $ 0.5 * sine + 0.75) + d4 -- 80s Break drums + $ juxBy 0.25 rev + $ degradeBy "<1 1 1 <[1 0.8 0.2 0] 0>>" + $ s "~ electro1(6,8)" + # n (choose [2,3,4]) + d5 -- basse + $ whenmod 64 32 (# gain (slow 32 $ sine * 0.3 + 0.6)) + -- $ whenmod 32 0 (# crush 8) -- pont electrique! + $ every' 8 0 (degradeBy "0 0 0 1") + $ superimpose ((arp "") . (# gain 0.9)) + $ whenmod 8 3 (fast 2) + $ whenmod 8 0 (slow 2) + $ note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>" + ) + # s "bassWarsaw" + |- note 32 + # gain 0.9 + # pan 0.35 + d6 -- piano triomphal + $ degradeBy "0 0.75!2 0" + $ whenmod 64 63 (degradeBy "0 0.25 . 0.75 1") + $ whenmod 64 59 (|+ velocity 0.1) + $ whenmod 64 54 (|- velocity 0.1) + $ whenmod 64 48 (|+ velocity 0.1) -- pont octave! + $ degradeBy (slow 64 $ sine * 0.5) + $ note "[0 0? 0]*4" + # note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>" + ) + # s "superpiano" + # velocity 0.55 + # sustain ("[0.5 0.5 <0.05 0.15>]*4" + (rand * 0.15)) + d7 -- quinte complement 1 3 56 8 + $ note ("[0,5]" -- quinte + + "0 0 . 0 0 ~ 0 " -- rythme + + "<7 7 5 5>" -- variations + - 12 + ) + # s "superpiano" + # velocity 0.35 + # sustain 1 + # room 0.2 + d8 -- Choeurs <3 + $ every' 4 3 (arp "") + $ note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>" + ) + # s "moogBass" + |- note 12 + # gain 0.8 + d9 -- Cymbale + $ whenmod 16 14 (sometimesBy "0.6 0.7 0.8 0.9" (#s "hh:10")) + $ sometimesBy "0 0 0 0.05" (#s "hh:8") + $ s "h(3,8) h(3,8,<0 <2 4>>)" + # s "hh" + # gain (slow 16 $ sine * 0.6 + 0.6) + d10 -- background voice "You" + $ superimpose (chop 8 . (# crush 5) . (# sustain 2) . (# room 0.4)) + $ note "0/4" + # accelerate (slow 4 $ "<0 <0.2 -0.1>>") + # s "alphabet" # n (slow 4 $ "20") + # gain 0.5 + d11 -- claps + $ s "~ c ~ " + # s "clap" + # gain 0.7 diff --git a/live/hip/sunny.tidal b/live/hip/sunny.tidal index 46a7ea3..c05c46e 100644 --- a/live/hip/sunny.tidal +++ b/live/hip/sunny.tidal @@ -1,37 +1,36 @@ setcps 0.3 d1 -$ sometimes (stut 3 0.9 0.125) -$ rarely (# cut "[1,2]") -$ s "k ~ k . k k " -# s "kick" # n "[2,9]" -# lpf (slow 32 $ range 200 20000 sine) +$ whenmod 16 12 (degradeBy "0 0.5 0.75 0") +$ n "0 . <~ [0 0?]> [0? 1]" +# s "kick:5" +# lpf 200 # gain 0.8 d2 -- Snares plus ou moins reguliers -$ whenmod 48 36 (# gain (slow 12 $ 0.9 - saw / 2)) $ fast 2 -$ sometimes (fast 2) +$ sometimes (hurry 2) $ s "~ <~ s?> . s s?" # "snare" # n "[2|3] . <4 6>" # gain (slow 32 $ range 0.5 0.9 cosine) -d3 -- Et tititi, et tatata, et titititatatatititi, et tititi... -$ rarely (degrade) +d3 -- roll +$ whenmod 16 8 (degrade . fast 2) $ rarely (fast 2) $ s "dr*8" # s "drum:8" -# gain (slow 32 $ range 0.5 1.2 sine) +# gain (slow 32 $ range 0.5 1 sine) d4 $ n (stack [ "0(3,8,<0 4>)" - ,"<~ 1*2?>(1,8,7)" ,"[2, 3?](3,8,<0 0 0 0 2 2 2 4>)" ]) # s "hh" +# gain 0.8 d5 +$ every 2 (often (slow 2)) $ juxBy 0.2 (# crush 5) $ arp (slow 4 $ "") $ whenmod 16 8 (someCyclesBy 0.75 rev) @@ -39,7 +38,16 @@ $ note (scale "aeolian" ( "f4'maj d4'min d4'maj c4'maj" - 7 )) # s "supersaw" # voice 0.05 -# gain 0.75 +# gain 0.5 + +d5 +$ superimpose (swing 2 . arp "downup") . (|+ note 7) +$ note (scale "aeolian" +"4'maj>" +- 21) +# s "supersaw" # voice 0.05 +# gain 0.5 + d7 $ every 2 (superimpose ((swing 2) . (arp "[updown|downup]") . (# room 0.5))) diff --git a/live/hip/sunny2.tidal b/live/hip/sunny2.tidal new file mode 100644 index 0000000..446dc06 --- /dev/null +++ b/live/hip/sunny2.tidal @@ -0,0 +1,83 @@ +-- Sunny days +setcps 0.5 + +do + let bars = 16 + d1 -- Kick/snares + $ fix ( + (# s "reverbkick") . (# lpf (slow 8 $ 100 * ("<2 4 8 20>"))) + ) (s "k") + $ fix ((# s "sn:2") . (|- gain 0.1)) (s "s") + $ whenmod bars (bars - 2) -- Pont SNARE RUSH! + (const $ s "[~ s*8 s*[16 8] s*[16 32]]/4" # s "snare:2") + -- $ fast (slow 2 $ "<4 [8 . <4 2>]>") $ s "k" + -- ^: Regulier techno-ish + $ almostAlways (slow 2) $ s "k*8 . [k ~ . k*2] k*2" + -- ^: rapide sautillant balance + -- $ slow 2 $ s "k(3,8) s k(5,8) s*2" + -- ^: accelerant sautillant + # gain 1 + d2 -- Hi-hat polisson + $ sometimesBy (slow 8 $ sine) (jux (# crush 3)) + $ rarely (hurry 2) + $ s "hh(<5 10>,16)" + d3 -- Birds roll! + $ (# note "<[0 [0 7] 7 [7 0]] [0|7]>") + $ jux (# crush 2) + $ fast (slow 4 $ "<2 [2|4] 4 [4 2]>") + $ fast "4 . [8 4]" + $ s "birds3" + # n "2" + # gain (slow 4 $ range 0.6 1 sine) + d5 -- Regular bass + $ degradeBy "<[0 0.5 . 1] 0>" -- cut motif + -- $ sometimes rev + -- $ whenmod (bars*4) (bars*2) (jux rev) + $ whenmod (bars*2) bars (chop 2) + $ sometimesBy "0 0.5" ((|- gain 0.2 ) . (superimpose (# crush 6))) + $ euclid "<3 5>" 8 + $ note (scale "major" + (slow 8 $ "") + + "<0 0 <-2 3> 0>" + - 21 + ) + # s "supersaw" + # voice 0.05 + # gain 0.65 + d6 + $ sometimesBy "0 0.5 0 0" (stut "<2 4 8>" 0.5 (1/16)) + $ s "~ c ~ [c c?]" + # s "cp:2" + # room 0.4 # dry 1 + d7 + $ note (scale "major" + "0" + + (slow 8 $ "")) + # s "superpiano" + # velocity 0.7 + d8 -- Bird toys + $ degradeBy "<0.75 0.5 0.25 0>" + $ sometimes (0.5 ~>) + $ s "~ birds ~ ~" # n (1 + irand 9) + # gain 0.7 + d9 + $ whenmod 16 15 (# gain 0.8) + $ s "supersiren/2" + # sustain 4 + # note (scale "major" ("0" - 14)) + # gain 0 + + +---- + +d4 -- Weird vibe +$ slow 4 +$ note (scale "major" +">" +) +# s "supervibe" +# decay 2 +# velocity 2 +# accelerate 0.25 +# detune 0.75 +# gain 0.3 diff --git a/live/hip/volette.tidal b/live/hip/volette.tidal index 0761429..6fe8d21 100644 --- a/live/hip/volette.tidal +++ b/live/hip/volette.tidal @@ -7,8 +7,7 @@ $ whenmod 8 6 (degradeBy "1 1 1 1 1 1 1 0") $ s " . k ~ <~ k?> " # s "reverbkick" # lpf 500 -# gain 0.6 -# pan 0.1 +# gain 1.5 d2 $ whenmod 8 6 (juxBy 0.2 (# crush 4)) @@ -47,7 +46,7 @@ $ note ("5 6 8 ~ 8 [6 5] 6 ~" # resonance 0.1 # decay (slow 32 $ range 0 0.5 cosine) # lfo (slow 16 $ range 0 1.8 sine) -# gain 0.5 +# gain 0.8 -- Apris à - à la volette diff --git a/live/techno/abstract.tidal b/live/techno/abstract.tidal new file mode 100644 index 0000000..912f446 --- /dev/null +++ b/live/techno/abstract.tidal @@ -0,0 +1,36 @@ +once $ s "abstract:3" # cut 1 # end 0.1 + + + +d1 +$ whenmod 16 14 (# silence) +$ whenmod 16 4 (fast 2) +$ whenmod 16 0 (slow 2) +$ every' 16 0 (degrade) +$ n "0 0 [0 <~ 0?>] 0*2" +# s "clubkick:2" +-- # gain 1.2 + +d2 +$ whenmod 16 14 (# silence) +$ s "~ s*2" # "sn:1" +# gain 1.2 + +d3 $ fast 8 $ s "dr" + +d4 +$ chop 4 +$ arp "up" +$ s "bassWarsaw" +# crush 5 +# note "" +# gain 0.9 + +d5 +$ chop 8 +$ s "methbass:2" +# speed "<2!3 4>" +# cut 5 +# gain 0.8 + +d6 $ s "~ ~ s ~" # s "methbass:10" diff --git a/live/techno/raclette.tidal b/live/techno/raclette.tidal index 593f3bd..40be156 100644 --- a/live/techno/raclette.tidal +++ b/live/techno/raclette.tidal @@ -1,9 +1,12 @@ +setcps 0.5 + d1 $ whenmod 64 60 (degradeBy "<0.25 0.5 0.75 1>") $ whenmod 32 16 (fast 2) $ euclid 4 8 $ s "k" # s "kick:5" +# gain 0.7 -- # s "clubkick:2" d2 diff --git a/live/techno/saturday4.tidal b/live/techno/saturday4.tidal new file mode 100644 index 0000000..ca75764 --- /dev/null +++ b/live/techno/saturday4.tidal @@ -0,0 +1,34 @@ +-- TECHNO +setcps 0.35 + +do + d1 -- BEAT + $ whenmod 40 35 (# silence) -- pont 2 + $ degradeBy "0 0 0.25 0" + $ s "0 0 0 <0 [~ 0]>" + # lpf 300 + d2 -- Snares sur 8 + $ whenmod 40 25 (# silence) -- pont 2 + $ s "snare:7(<[3|5] 5 [5|4] 4>,8,[0|4])" + # room (slow 16 $ range 0 0.3 saw) + # size (slow 9 $ range 0 0.6 sine) + # gain (slow 4 $ 0.7 + rand / 4) + d3 -- Drumroll basique + $ whenmod 40 38 (sometimes $ hurry 2) + $ whenmod 40 35 (fast 2) -- pont 2 + $ s "dr(7,8,<1 .. 7>)" + d4 -- Claps alternes + $ fast (slow 4 $ "<1 2>") + $ s "~ clap" + # gain (slow 40 $ range 0.7 1 saw) + # lpf 2000 + d5 -- basse motif + $ whenmod 16 10 ( -- break 1 + superimpose (# s "subBass2") . (|- gain 0.1)) + $ whenmod 60 64 (swing 2) + $ arp (slow 8 $ "") + $ note ("f'maj e'min d'maj ~" + + (slow 4 $ "<0 4 2 <0 12>>") -- descente + - 24) + # s "subBass1" + # room 0.4 # size 0.2 diff --git a/notes.md b/notes.md index 3748c84..8c78fe6 100644 --- a/notes.md +++ b/notes.md @@ -254,3 +254,10 @@ --- 7 --- 8 --- 9 + +# Chords +6by9 7f10 7f5 7f9 7s5 7s5f9 7sus2 7sus4 9s5 9sus4 aug dim dim7 dom7 eleven elevenSharp five m11 +m11s m11sharp m13m6 m6by9 m7f5 m7f9 m7flat5 m7flat9 m7s5 m7s9 m7sharp5 m7sharp5flat9 m7sharp9 m9 +m9s5 m9sharp5 maj maj11 maj7 maj9 major major7 min min7 minor minor7 msharp5 nine nineSharp5 +nineSus4 ninesus4 one plus sevenFlat10 sevenFlat5 sevenFlat9 sevenSharp5 sevenSharp5flat9 sevenSus2 +sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen diff --git a/output/DuCode_VagueBleue.jpg b/output/DuCode_VagueBleue.jpg new file mode 100644 index 0000000..da3d6c0 Binary files /dev/null and b/output/DuCode_VagueBleue.jpg differ diff --git a/output/Penseur.jpg b/output/Penseur.jpg new file mode 100644 index 0000000..7f1848c Binary files /dev/null and b/output/Penseur.jpg differ diff --git a/study/club/14april.tidal b/study/club/14april.tidal new file mode 100644 index 0000000..d39a673 --- /dev/null +++ b/study/club/14april.tidal @@ -0,0 +1,80 @@ +setcps 0.62 + +do + let bars = 4 + key = "8" + rightHand = "[4 -3] [0 . ~ [0 -3]] . [~ -8] [7 5 4 0]" + leftHand = "[0 9 12 16] [4 12 16 19] . [5 12 17 19] [2 12 17 16]" + cutPreEnd = "1!4 1 <1!7 0> <1!3 0> 0" + cutPostBegin = "[0 <1!3 0>] 1!7" + d1 -- Piano, with cutting progression + $ slow bars + $ degradeBy (slowcat [ + "1", + cutPreEnd, cutPreEnd, + cutPostBegin, + "0.75", "0.5", "0.25", "0", + "0", "0" + ]) + $ stack [ + degradeBy (slow 4 $ "<1 0 [0 1] 1>") $ + n (rightHand + key+ "<24 36>/2"), + degradeBy (slow 4 $ "<0 [1 0.5] 0 0>") $ + n (leftHand + key) + ] + # "superpiano" + # velocity 0.35 + # octave "3" + # sustain "[2 0.7]*4" + d2 -- Beat slowly varying + $ slow (bars / (slow 16 $ "<1 2>")) + $ s "d(<[5 4] [3 8] 5 [4 16]>,8)" + # s "jazz" + # lpf (slow 16 $ range 500 15000 sine) + # gain 0.8 + d3 -- Drumroll + $ fast "16 <2!3 8> <4!3 8> <1!3 <4, 8>>" + $ s "drum:2" + # gain (slow 8 $ range 0.65 0.8 sine) + d4 -- Bass + $ slow bars + $ rarely rev + $ bite 4 ( + "[0, ~ ~ <3 [3|2|1]>*4 1]" + ) + $ note (leftHand + key) + |- note 36 + # s "bassWarsaw" + # gain 0.7 + d5 -- Choir + $ whenmod 4 2 (superimpose (|+ note 12) . (|- gain 0.1)) + $ slow (bars * 2) + $ bite 4 "0" + $ note (leftHand + key) + |- note 36 + # s "moogBass" + # gain (slow 32 $ range 0.7 0.9 saw) + + +---- # Initial + +setcps 0.62 +solo 2 + + +do + let bars = 4 + key = "8" + rightHand = "[4 -3] [0 . ~ [0 -3]] . [~ -8] [7 5 4 0]" + leftHand = "[0 9 12 16] [4 12 16 19] . [5 12 17 19] [2 12 17 16]" + d1 + $ slow bars + $ stack [ + n (rightHand + key+ "<24 36>/2") + # sustain 1, -- TODO find right value + n (leftHand + key) + ] + # "superpiano" + # velocity 0.5 + # octave "3" + # sustain "[2 0.7]*4" diff --git a/study/club/snippets.tidal b/study/club/snippets.tidal new file mode 100644 index 0000000..47e06a7 --- /dev/null +++ b/study/club/snippets.tidal @@ -0,0 +1,18 @@ +d1 $ every (irand 4) (slow (((rand + 1.0)/2.0)*3.0)) +$ n "1 0 2 3" # s "bd bd bd bd" # cut 1 + + +-- This has the kind of expanding and contracting rhythmic quality of late 20thC music where complex rhythm is employed, but what makes it powerful is it’s not gridlocked like traditional notation (mostly) is, and like most DAWs are. +d1 $ rarely (jux $ striate 16) + $ sometimes rev + $ every (irand 5) (slow (rand * 4.0)) + $ n "1 [0 3 4] 2 3" # s "bd [jazz jazz jazz] popkick bd" + +-- great one ! i also felt compelled to dig into this example which was super cool to understand irand - i played with cut a bit but i still didn’t get it fully +-- here’s my hack of your cool snippet, i added funny samples and a phaser… :japanese_ogre: +d1 $ every (irand 16) (slow (irand 64 + (rand * 3.0))) +$ n "3 0/2 1/3 0 1 1/5 3 2 0 2 0 4 [ 1 [1 1 ] 1 1]" +# s "808bd:1 808sd:1 808:1 bass:0 bass:1 " +# cut "[1 2 3]*2" +#phaserdepth 10 +#phaserrate 3 diff --git a/study/eric/tidal-electro.tidal b/study/eric/tidal-electro.tidal new file mode 100644 index 0000000..548b200 --- /dev/null +++ b/study/eric/tidal-electro.tidal @@ -0,0 +1,6 @@ +-- http://ericfairbanks.org/music/tidal/supercollider/code/2012/08/26/tidal-electro.html + +do + d1 $ density 2 $ s "[bd, <~ sn:6> hh:13]" # shape "0.7" # speed 1 # gain 0.7 # orbit 0 + d2 $ slow 2 $ s "bass:3(<1>,12)" # up "0 1 2 3" # hcutoff 100 # orbit 1 # hcutoff 4000 + d3 $ slow 2 $ s "bass:3(<16 16 16 20>,24)" # up "24 25 26 27" # hcutoff 1000 # orbit 1 # hcutoff 3000 -- libgit2 0.27.0