livke: Sunday LoFi

backlog.md

@@ -24,9 +24,10 @@
 
 ## MIDI
 
+- Dark Money: bonne impro midi lofi beat
+- New Dust: impro lofi base Psychedelic Jazz
 
 - Breaks:
-  - Lofi: bonne impro midi lofi beat
 
 - Metal break! Guitar break en Si
 - Cyprès Poudreux - Break dusty cypress + guitars, too much cypress

live/midi/nova/lofi/dark_money.tidal

+import Sound.Tidal.ParVagues.Control
+
+-- Dark Money: Downtempo dark minor LoFi
+do
+setcps (60/60/4)
+let whenIntro    pat = someCyclesBy "<t!8 f!24>" pat
+let whenNotIntro pat = someCyclesBy "<f!8 t!24>" pat
+let whenBrk      pat = whenmod 16 10 pat
+let whenNotBrk   pat = someCyclesBy "<t!10 f!6>" pat
+let whenBrkLPF  = whenBrk (# lpf "<400 200 100 50 0 0>")
+let gDJF = midiDJF "^49" 200 9800 0 1000
+let g = (gDJF)
+d1 $ g -- Kick
+  $ whenBrkLPF
+  $ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>")
+  $ "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)" # "jazz"
+  # lpf 1000
+  # room 0.2 # att 0.5
+  # legato 2 # cut 1
+  # midiG' "^78" 0 1.5
+d2 $ g -- Contretemps snare
+  $ whenBrkLPF
+  $ whenmod 16 8 (fast 2)
+  $ whenmod 8 6 (mask "<f [f t]>")
+  $ superimpose (# hpf 500)
+  $ "~ s"
+  # "snare:20"
+  # midiG "^79"
+d3 $ g  -- Drumroll fantôme
+  $ whenBrk (slow "<2 2 4 4 8 8 16 16>")
+  $ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>")
+  $ "drum:2"
+  # room 0.6 # sz 0.9 # dry 1.01
+  # midiG' "^80" 0 0.8
+d5 $ g  -- Bassline {hypno,aqua}tique
+  $ swing 2
+  $ whenNotBrk (off "<e q> . <q h>" (|+ note 7))
+  $ struct "t*<[1 0] 2 4 [12 . 8]>"
+  $ (|/ crush (range 0 2 "^53")) -- Manual crush enabler
+  $ (# crush (slow 8 $ range 10 7 saw))
+  $ note ("fs a" - 24)
+  # "bassWarsaw"
+  # midiG' "^81" 0 1
+d4 $ g -- Toy bogdan
+  $ every' 16 15 (>| "~ ~ ~ bogdan:4")
+  $ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
+  $ "~"
+  # room 0.5
+  # legato 2
+  # hpf 200
+  # midiG' "^84" 0.5 1.1

live/midi/nova/lofi/new_dust.tidal

+import Sound.Tidal.ParVagues.Control
+
+-- New Dust: LoFi howto dust to dust
+do
+setcps (60/60/4)
+let whenIntro    pat = someCyclesBy "<t!8 f!24>" pat
+let whenNotIntro pat = someCyclesBy "<f!8 t!24>" pat
+let whenBrk      pat = whenmod 16 10 pat
+let whenNotBrk   pat = someCyclesBy "<t!10 f!6>" pat
+let whenBrkLPF  = whenBrk (# lpf "<400 200 100 50 0 0>")
+let gDJF = midiDJF "^49" 200 9800 0 1000
+let g = (gDJF)
+let prog =  "<e [a5,f] [e,gs5] ~>"
+let att = pF "att"
+let dec = pF "dec"
+let sus = pF "sus"
+let width = pF "width"
+d1 $ g -- Kick
+  $ whenBrkLPF
+  $ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>")
+  -- $ superimpose (
+  --   (# "reverbkick") . (|* gain 0.5)
+  -- . (# cut 11)
+  -- . (# attack 0.5)
+  -- . (# release 0.5)
+  -- )
+  $ "k ~ <~ ~ k ~> k . k k(<1!4 <5 3>!12>,8)"
+  # "jazz"
+  # attack 0.5
+  # midiG' "^78" 0 2
+  # cut 1
+d2 $ g -- Contretemps snare
+  $ whenBrkLPF
+  $ whenmod 8 6 (mask "<f [f t]>")
+  $ superimpose (# hpf 500)
+  $ every' 8 7 (ply 2 . mask "f!7 t" . (|* gain 0.8)) -- Double final
+  $ "~ s ~ <s [<~ s> s]>"
+  # "[snare:20,gretsch:2]"
+  # midiG "^79"
+d3 $ g  -- Drumroll fantôme
+  $ midiOn "^44" (const
+      -- $ sometimesBy "0 0.8!6 0" (ply "<2 [2|4]>" . (|* gain 0.9))
+      $ slice 8 (run 4 + "0 <~!4 4!4>")
+      $ loopAt 2
+      $ "break:21"
+      # midiG' "^80" 0 0.9
+      # room 0.2 # dry 1 # sz (slow 8 $ range 0.45 0.9 saw)
+      # leslie 0.2 # lrate 0.1 # lsize 0.7
+      # pan 0.7
+  )
+  -- $ whenBrk (slow "<2 2 4 4 8 8 16 16>")
+  $ whenmod 8 4 (
+    (often (degradeBy "0 0.25!6 0"))
+    . (sometimesBy "0.75 0!6 0.75" (ply 2))
+    )
+  $ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>")
+  $ "drum:2"
+    # leslie (slow 12 perlin)
+    # lsize 2.8 # lrate 6.7
+  # room 0.6 # sz 0.9 # dry 1.01
+  # pan (0.4 + (slow 4 perlin/4))
+  # midiG' "^80" 0 0.8
+d4 $ g -- Lead nostalgia gauche
+  $ midiOn "^57" (fast 2)
+  -- $ (|* gain "<1 [0.8 0.9] 0.8 ~>") -- ajust prog nombre variable
+  $ note (prog
+    |+|   "<0 [0 . ~!3 <~ <1 -2>>] 0 ~>" -- fillers
+    -- $ note ("<e [g4,<d!3 f> . ~!3 <c!3 g>] [b4,e] ~>"
+    - 24 -- Gamme
+  )
+  # s "FMRhodes1"
+  # room 0.2
+  # leslie (range 0.1 1 "^33") # lrate 0.7 # lsize 0.5
+  # crush (range 16 6 "^53")
+  -- # note "<-20 -15 [-20,-16] ~>"
+  -- # velocity "<0.7 0.6 0.7>"
+  # midiG' "^81" 0 1.5
+d5 $ g  -- Infectious Bassline
+  $ whenmod 16 8 (degradeBy "[0 0.5!3]*2")
+  $ ply "[1 2]*<4 4 2 4>"
+  $ note (fast 8 "<e d c b4>"
+  - 12
+  )
+  # legato 2 # cut 5
+  # "bassWarsaw"
+  # width "^34"
+  # crush (range 16 2.5 "^54") -- Manual crush enabler
+  # midiG' "^82" 0 1
+  # room 0
+d7 -- TOYS
+  $ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1"))
+  $ degradeBy (slow 16 $ "<0.95 0.8 0.45 [0 0.2!3]>")
+  $ slice 8 (stack [
+    "<~!8 4!4 [4 5]!4>", -- Classico
+    "<0!4 1 0 1 [0 1]>*<4!4 8 4 8 8>", -- Toy melod
+    ""])
+  $ "toys"
+  # midiG' "^83" 0 0.75
+d8 $ g -- Toy bogdan
+  $ fix (|* gain 0.75) "hh"
+  $ every' 16 15 (>| "~ ~ ~ bogdan:4")
+  $ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
+  $ "~ ~ ~ hh"
+  # room 0.5
+  # legato 2
+  # hpf 200
+  # midiG' "^84" 0.5 1.1
+  # leslie 0.2 # lrate 6.7 # lsize 0.7
+
+once $ ""# cut 21
+once $ "dr" # cut 21 # gain 0.5

live/techno/delic_jazz.tidal

@@ -17,7 +17,8 @@ $ s "bd sn bd <cp cp cp cp*2>"
 d4 -- main gauche
 $ whenmod 32 24 (|+ note 7)
 $ s "superpiano"
-# note "<-20 [-19,-15] [-20,-16] ~>"
+-- # note "<-20 [-19,-15] [-20,-16] ~>"
+# note "-16"
 # velocity "<0.7 0.6 0.7>"
 # sustain 3