From 33a05da2570aae7d2a8191d3ab4a47ee904f58a5 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sun, 22 Nov 2020 01:37:49 +0100 Subject: [PATCH] sessions: mood, techno 4-4 --- backlog.md | 24 ++++++++++++++++++++---- blocks/drums.tidal | 12 ++++++++++++ live/mood/fight/clav_clash.tidal | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/mood/soothing/tone_down.tidal | 9 +++++---- live/mood/tired/afternoon.tidal | 37 +++++++++++++++++++++++++++++++++++++ live/remix/kanye_fly.tidal | 39 ++++++++++++++++++++++++++++++++++++++- live/techno/4stems/_template.tidal | 6 ++++++ live/techno/4stems/detroit_outer_space.tidal | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/4stems/la_vibe.tidal | 36 ++++++++++++++++++++++++++++++++++++ study/20201104.tidal | 23 +++++++++++++++++++++++ 10 files changed, 300 insertions(+), 9 deletions(-) create mode 100644 live/mood/fight/clav_clash.tidal create mode 100644 live/mood/tired/afternoon.tidal create mode 100644 live/techno/4stems/_template.tidal create mode 100644 live/techno/4stems/detroit_outer_space.tidal create mode 100644 live/techno/4stems/la_vibe.tidal create mode 100644 study/20201104.tidal diff --git a/backlog.md b/backlog.md index 14c330c..bc840de 100644 --- a/backlog.md +++ b/backlog.md @@ -10,6 +10,10 @@ Beats.tidal: various background beats, hip/techno - Cyprès Poudreux - Break dusty cypress + guitars, too much cypress - BruitHiver: grand froid cosmic noise +--Dubmini: mini minor midi dub basis + +-- Kumai nights: Techno kawai nocturne + ## Lessons - Reread building up @@ -24,27 +28,35 @@ Beats.tidal: various background beats, hip/techno -- BAILAR: Marcia danse pour moi! +- BAILAR: Marcia danse pour moi! Accompagne Clavinet bass ou lead - Crapeau HipPo: Clav sur rythme hip-hop manuel - Break britafuninnique: boucle hip hop breatbeat piano attend un lead - Marche vertige: vertige vibration attend drum militaire -- Wake the Funk: WIP techno funk résolue + hats - -- Morning flowers: breakbeat bassline funky - [Hardcore] Noise in the wires - [Transe] Tentative (Didgeri) Doo +-- [Trans/techno] Interesting barrels needs a lead + +-- BUBULLE! Comment t'ais-je oublié ? - Le naufrage! Funkpiano 110BPM +- Wake the Funk: WIP techno funk attend résolue + hats + - Vertige expérientiel : Techno progressive+ résolue bass laggy+ forks - Cuba space program: Techno-clave + vibraphone, bonne montée attends drop! +### Techno 4 Temps, 4 Stems: +-- Detroit: various tentatives +-- La Vibe +### Mood +-- ToneDown: Techno numérico-mélancolique résolvable +-- Afternoon: Chill breakbeat evening sunset ## Copycat - 44 More @@ -58,3 +70,7 @@ Beats.tidal: various background beats, hip/techno ## Prod -- Good morning Minneapolis: time to finish -- Chaude civ: Breakbeat bassline diphonique + +## Record :) + +- Morning flowers: breakbeat bassline funky + MIDI Jazzy éventuel :) diff --git a/blocks/drums.tidal b/blocks/drums.tidal index e894611..f90e67a 100644 --- a/blocks/drums.tidal +++ b/blocks/drums.tidal @@ -101,3 +101,15 @@ $ fast 2 $ n ("0 . 0 0 0 . 0 . 0 <0 ~> <0 ~> . 0 . 0 . <0 ~>" + "2 [2|3] 2 [2 3]") # s "electro1" # gain 1.3 # room 0.2 + +-- Rythme de l'été +do +setcps (130/60/4) +d1 + $ fast 2 + $ fix (# "sn:1") ("sn") + $ fix (# "jazz") ("k") + -- $ "[k ~ <~!7 k> k] [ . k]" + $ "k ~ <~!3 sn> sn . k sn" + # gain 0.7 +-- d2 $ "hh*8" # gain 0.6 diff --git a/live/mood/fight/clav_clash.tidal b/live/mood/fight/clav_clash.tidal new file mode 100644 index 0000000..42d6de6 --- /dev/null +++ b/live/mood/fight/clav_clash.tidal @@ -0,0 +1,55 @@ +do +setcps (60/60/4) +resetCycles +d1 -- Kick chaloupé + $ mask "" + $ whenmod 32 24 (# djf (slow 8 $ range 0.5 1 isaw)) + $ "k . k(<5 3 5 [4 8]>,8)" + # "[reverbkick,jazz]" + # gain 0.6 +d3 -- Drumroll léger + $ sometimesBy "<0!3 1 0 1!3 0!120>" (stut "<4!3 3>" 0.5 "s") + $ someCyclesBy "<0.2!3 0.5>" (fast 2) + $ fast "<1!4 2 2 4 [8 16]>" "drum:2" # gain 0.8 +d4 -- Clav clash kalash! + $ sometimesBy "<1!8 0!120>" (|* gain (slow 16 $ range 0.25 1 saw)) + $ whenmod 64 48 (scramble 4 . chop 4) + $ whenmod 32 24 (# djf (slow 8 $ range 0.1 0.5 saw)) + $ loopAt 2 + $ "fclav" + # n 10 + # gain 0.5 + # cut 4 +d5 -- Cymbales noise + $ sometimesBy "<1!16 0!112>" (|* gain (slow 16 $ saw)) + $ whenmod 64 48 ( + # legato "<0.5 0.65 0.75 0.85 0.9 0.95>" + ) + $ whenmod 32 24 (# djf (slow 8 $ range 1 0.5 saw)) + $ fast "<16!3 <4 8>>" + $ "808cy" + # n "<1!3 4>" + # cut 5 + # attack "[1 <0.2 0.4 0.5 0.8>]*8" + # gain (slow 32 $ range 0.4 0.5 sine) +d6 -- Nappes Rhodes + $ note (">") + # "FMRhodes1" + # pan 0.2 + # gain 0.8 +d7 -- LEAD PIANO! + $ mask "" + $ whenmod 64 48 ( + euclid (slow 2 $ "<1 2 3 3 4 5 5 8>") 8 + . (# crush "<16 14 10 9>") + ) + $ off ("q" + "<0!8 s!8>") ( + |+ note "!16>" + ) + $ whenmod 32 16 (sometimesBy "f 0.8" (scramble 2)) + $ arp "" + $ note ("" + "c'majPent'4 c'minPent'4") + # "superpiano" + # velocity (slow 256 $ range 0.25 0.55 cosine) + # pan 0.6 + # legato 2 # room 0.1 diff --git a/live/mood/soothing/tone_down.tidal b/live/mood/soothing/tone_down.tidal index 9165e4e..6ae7726 100644 --- a/live/mood/soothing/tone_down.tidal +++ b/live/mood/soothing/tone_down.tidal @@ -1,15 +1,16 @@ -- DIGITAL DREAMS OF MINITEL REVIVAL -- Techno numérico-mélancolique résolvable do +resetCycles setcps (60/60/4) let mel = "c > > @4" d1 -- BEAT - $ slow 2-- TODO Resolve :) + -- $ 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 :) + -- $ 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 ( @@ -21,7 +22,7 @@ d2 -- Drums résolus # "[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 :) + -- $ ((|* 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 "") @@ -52,7 +53,7 @@ d5 -- Rhodes nappes # pan 0.4 # legato 2 d6 -- Rhodes lead folie minitel - $ degradeBy "0 0.95!7" . (|* gain 0.8) + -- $ degradeBy "0 0.95!7" . (|* gain 0.8) -- TODO Resolve :) $ sometimesBy "" (degradeBy "t f [f t] f") $ scramble 8 $ ply 4 diff --git a/live/mood/tired/afternoon.tidal b/live/mood/tired/afternoon.tidal new file mode 100644 index 0000000..0151554 --- /dev/null +++ b/live/mood/tired/afternoon.tidal @@ -0,0 +1,37 @@ +do +resetCycles +setcps (60/60/4) +let mel = "] e3 b3>" +let prog = ">" +d1 -- BEAT + Snares + $ fix ( + whenmod 4 3 (ply "2 4") + . fast "<1!4 2!10 4 [4 8]>" + . (# n "[3,11]") + . (# gain 0.75) + ) ("snare") + $ "jazz(<1!3 <3 5>>,8) snare" # gain 0.7 +d2 -- BREAK + $ whenmod 32 16 (# djf (slow 32 (cosine + 0.5))) + $ slice 8 ( + fast "<8 [8 16] 8 [16 <8 4>]>" + -- "<0!4 [0 1]!4 <0 1 2 3 4 5 6 7>!4>" + "<0 2 0 7 5 5 0 7>" + ) + $ loopAt 2 + $ "break:3" + # gain 0.65 + # cut 2 +d6 -- Nappes Rhodes + $ note prog + # "FMRhodes1" + # pan 0.2 + # gain 0.9 +d7 -- Hello PWM + $ note (mel - 12) + # "superpwm" + # semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte + # accelerate "<0!7 <6 12>>" + # rate "<1!5 2 4 <1 4>>" + # resonance (slow 32 $ range 0.2 0.6 sine) + # gain (slow 128 $ range 0.5 0.65 saw) diff --git a/live/remix/kanye_fly.tidal b/live/remix/kanye_fly.tidal index 5e2f3a8..e229e48 100644 --- a/live/remix/kanye_fly.tidal +++ b/live/remix/kanye_fly.tidal @@ -105,7 +105,7 @@ do $ "[jazz,techno]" # gain 0.8 d2 - $ jux rev + $ juxBy 0.25 rev -- $ sometimesBy "" (slow 4 . (|* gain (slow 8 saw))) $ "hh(<5!4 3 3 5 3>,8) ho" # n "0 <0 0 1 2 3 4 5 6>" @@ -133,3 +133,40 @@ do # cut 4 -- delay / delaytime / delayfeedback / cutoff / resonance / room / size +-- endregion + +-- region Fly again [spleeter] +do +setcps (100/60/4) +resetCycles +d1 + $ superimpose (const $ "jazz*4" # gain 0.8) + $ whenmod 4 2 (often (slow 2)) + $ n "11*[8 <8!3 <4 16>>]" + # "gretsch" + # gain 0.8 +d2 + $ slice 32 ( + "1*<1 1 4 1 4 4 4 8 [4 1] 4 4 8 4>" + ) + $ "kanye:1" + # cut 2 + # gain 1.1 +d3 + $ juxBy 0.25 ( + ply 2 + . (|+ note 12) + . (|* gain (slow 4 $ range 0.45 1 saw)) + ) + $ slice 16 ("<0 <1 2>>") + -- $ slice 64 ("0*4" + cat [0, "[0 1]*<1 <2 4>>"]) + $ "kanye:2" # cut 3 # gain 0.65 +d4 + $ mask "" + $ slow "1 <1 2 4 0.5 0.5>" + $ chop "8 <16 4 16 1>" + $ "kanye:3" + # cut 3 + # pan 0.2 + # gain 0.6 +-- endregion diff --git a/live/techno/4stems/_template.tidal b/live/techno/4stems/_template.tidal new file mode 100644 index 0000000..0de4c53 --- /dev/null +++ b/live/techno/4stems/_template.tidal @@ -0,0 +1,6 @@ +do +setcps (120/60/4) +d1 $ "" +d2 $ "" +d3 $ "" +d4 $ "" diff --git a/live/techno/4stems/detroit_outer_space.tidal b/live/techno/4stems/detroit_outer_space.tidal new file mode 100644 index 0000000..d2a4264 --- /dev/null +++ b/live/techno/4stems/detroit_outer_space.tidal @@ -0,0 +1,68 @@ +do +resetCycles +setcps (120/60/4) +d1 $ mask "" $ "[kick:5,bd]*4" # gain 0.65 +d2 + $ degradeBy (slow 32 $ range 0 0.8 cosine) + $ sometimesBy "" (superimpose (# "glitch")) + $ "[~ dr]*4" # gain 0.7 +d3 + $ degradeBy (slow 32 $ range 0 0.8 (sine + 0.25)) + $ "hh*<16!3 [16!3 4]>" # gain 0.55 +d4 + $ degradeBy (slow 32 $ range 0 0.8 sine) + $ superimpose (mask "t f!3" . (|- note 24)) + $ sometimesBy "0 <0.5!3 1>" rev + $ slice 8 (run 16) + $ note (scale "minPent" $ ("" + run 8 - 12)) + # "supercomparator" + # gain (slow 64 $ range 0.65 0.6 sine) + # pan (range 0.6 0.9 perlin) +d5 + $ mask "" + $ note (scale "minPent" $ ">" + - 24 + ) + # "superpwm" + # legato 2 + # gain "<0.7!3 0.65>" + # pan 0.3 + # room 0.1 + +-- PWN Maniac +do +d1 -- 4, the four + $ whenmod 16 12 (fast "<2 2 1 [0.5 1]>") + $ "jazz*4" # gain 0.5 +d2 -- Claps graves contretemps + $ whenmod 8 7 (fast "<2!3 4>") + $ "~ cp" + # lpf 2000 + # gain 0.8 +d3 -- LEAD BASS + $ whenmod 16 8 (euclid "<5!3 <3 8>>" 8) + $ note ">>" + # "superpwm" + # octave 2 + # resonance 0.25 + # semitone "<7!3 12>" + # legato (slow 64 $ range 0.75 1 sine) + # gain 0.65 +d4 + $ fast 4 + $ "hh*<1!4 2 2 [2 4 2] [4 8]>" + # gain 0.45 + # cut 4 + +-- NOISE +do +d1 $ "jazz*4" # gain 0.8 +d2 $ "[glitch:2]*8" # gain 0.6 +d3 + $ note ("b3'sevenSus2'2") + # "superchip/4" + # legato 2 + # slide (0) + # pitch2 4 + # pitch3 (-12) + # gain 0.5 diff --git a/live/techno/4stems/la_vibe.tidal b/live/techno/4stems/la_vibe.tidal new file mode 100644 index 0000000..6281a04 --- /dev/null +++ b/live/techno/4stems/la_vibe.tidal @@ -0,0 +1,36 @@ +-- La vibe: techno basse vibratoire +do +setcps (120/60/4) +let gDjf = (whenmod 64 32 (# djf (slow 32 $ range 0 0.5 saw))) +d1 + $ gDjf + $ mask "<[t f!3]!4 [t f t f]!4 t!24 f!4 t f!3 [t f]!4 t!24>" + $ fast 4 $ "jazz" # gain 0.65 +d2 + $ gDjf + $ "~ . ~" + # gain (slow 16 $ range 0.5 0.8 saw) + # lpf 2000 +d3 -- Bass marche nocturne + $ sometimesBy "<0!16 1!16 0!3 1 0 0 1 0 0!3 1 1!3 0 1!16>" + ( -- La Vibe + juxBy 0.25 ( + (|+ note 12) + . (# room 0.1) . (# sz 0.1) + . scramble 4 + . ply 4 + )) + $ note ("c [~ f] . c >") + # octave 2 + # legato 1 + # "superpwm" + # gain (slow 32 $ range 0.45 0.65 cosine) + # pan 0.4 + # room 0.2 # size 0.3 +d4 + $ often (stut 4 0.9 "") + $ mask "t . t" + $ "hh*[4 <8 <4 16>>]" + # gain (slow 32 $ range 0.65 0.9 sine) + # pan (slow 32 $ range 0.4 0.8 sine) + # cut 4 diff --git a/study/20201104.tidal b/study/20201104.tidal new file mode 100644 index 0000000..d15005e --- /dev/null +++ b/study/20201104.tidal @@ -0,0 +1,23 @@ +-- https://gist.github.com/cleary/4a70f56ec2a4e484759816ba13790167 +setcps 0.5 + +d1 $ slow 4 $ n "c1" # s "superpwm" # legato 7 # gain "1.15" # room 0.2 # size 0.2 + +d2 $ plyWith 3 (# squiz 4 ) $ n "g5/4" # s "superpwm" # hpf 8000 # room 0.2 # sz 0.2 # orbit 0 + +d3 $ every 16 (# attack 0.4) $ rarely (struct "t/6" . (# up "e'minor7")) $ slow 4 $ n "c5" # s "superfm" + +d4 $ rarely (jux rev) $ slow 8 $ n (arp "down" "g7'dom7/3") # s "superchip" + # accelerate (choose [-1, -0.5, 0.25, -1, 0, 0, 0]) + # hpf 6000 + # gain 0.7 + +d4 silence + +xfade 5 silence + +d5 $ slow 4 + -- $ struct ("t(3,8)*4") + $ n "g2" # s "supercomparator" # gain 1.2 + +-- that'll do, thanks for listening -- libgit2 0.27.0