collab raph: Diable, partir

live/ambient/empreinte_du_numerique.tidal

@@ -7,6 +7,7 @@ let gPont1 = (whenmod 32 24 gLPF)
 let g = gPont1
 let g = (# djfbus 1 (range 0.05 0.95 "^49"))
 let modIndex = pF "modIndex"
+-- resetCycles
 setcps (110/60/4)
 d1 $ g
   $ midiOn "^41"  (<| "k k k <k k*2>")
@@ -17,12 +18,13 @@ d2 $ g
   $ "~ s" # "[dr55:3,snare:4]"
   # midiG' "^79" 0 1.3
 d3 $ g
+  $ midiOn "^76" (fast 2)
   $ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>")
   $ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0"
   # midiG' "^80" 0 (1.3 * "1.2 1!6 <1 1 1.1 <1.2 1>>")
   # room 0.3
   # dry 0.95
-d4
+d4 -- Break bonus banane
   $ g
   $ midiOn "^60" ( -- Aerial mask
     mask "t <f t> <f f t f> <t t f t> f <f t> <f!3 t> t"
@@ -41,14 +43,14 @@ d5 $ g $ gPont2
   # room 0.4
   # sz 0.9
   # crushbus 51 (range 10 1.61 "^53")
-  # midiG' "^81" 0 1.3
-d7 $ g
+  # midiG' "^81" 0 0.9
+d7 $ g -- Back solar mandoline
   $ superimpose (|+| note "<[0 12 0]!3 [0 12 0 12]>")
   $ note "<d <d a> <gf> c>"
   # "supermandolin"
   # pan 0.8
   # midiG' "^83" 0 1.3
-d6 -- RHODES FOLIE
+d6 -- RHODES FOLIE <33
   $ g
   $ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)"
   $ swing (1 + ("0 2" * "^58") + (2 * "^90"))

live/collab/raph/diable.tidal

+do
+setcps (170/60/4)
+let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw)))
+d1 $ g
+  $ fix ((# att 1) . (# rel 2)) "kick"
+  $ "[jazz,bd,kick:5]*4" # gain 1
+d2 $ g
+  $ note "~ 0 . <~ <[~ -2]!3 ~>> 0"
+  # "snare:4" # lpf 2000
+d3 $ g $ "hh*8"
+d4 $ g
+  $ note (
+    "[d3 <f3!4 g3!4>]*4"
+    )
+  # "superhammond"
+  # cut 4
+  # gain 1.1
+  # begin 0
+d5
+  $ g
+  $ mask "t(<1!3 5 1 5 1 5>,8)"
+  $ slice 4 "0 1 2 3*<1!3 2>"
+  $ loopAt 1
+  $ "breaks165"
+  # gain 1.1
+  # lpf 5000
+d6
+  $ sometimesBy (slow 8 $ range 0 0.8 saw) (ply 2)
+  $ juxBy 0.4 (rev . (|- note 24))
+  $ mask "t(<4 3>,8) . t(<5 3>,8)"
+  $ arp "converge"
+  $ note "d4'maj11'8"
+  # "superfork"
+  # pan 0.8
+  # gain (slow 64 $ range 0.5 1.6 saw)
+  # begin 0
+d7
+  $ slice 4 "<0 0 1 1>"
+  $ "punk:0"
+  # note ("<0!32 -4!32>")
+  # cut 7
+  # pan 0.2
+  # gain 0.9

live/collab/raph/partir.tidal

+resetCycles
+
+do
+setcps (85/60/4)
+let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49"))
+let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
+let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
+let g1 = (gDJF1)
+let g2 = (gDJF2)
+let mDegrade = (midiOn "^73" (chop 4))
+let m = mBreak . mDegrade
+d1 $ g1 $ m -- Kick basic
+  $ "k . ~!3 <~ <k k*2>>"
+  # "[jazz,808bd:2]"
+  # lpf 1200
+  # midiG' "^78" 0 1.2
+d2 $ g1 $ m -- Snare 90s hip-hop
+  -- $ mask "<f!8 t!54>"
+  -- $ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>")
+  -- $ fast "<2 <2!8 [4!3 2]!8>>"
+  $ midiOff "^43" (mask "f t")
+  $ "~ s ~ s" # "[snare:8]"
+  # midiG' "^79" 0 1.2
+d3 $ g1 $ m -- Drumroll offert
+  $ ply "1!3 <1 2>"
+  $ mask "t <t!3 [f t]>"
+  $ "drum:2*8"
+  # midiG' "^80" 0 1.1
+  # pan 0.4
+d4 $ g1 $ m -- Break lourd pneumatique déconstruit
+  $ midiOn ("^44" - "^76") (ply 2)
+  $ midiOn "^76" (striate 4)
+  $ slice 4 (run 4)
+  $ loopAt 1
+  $ "break:15"
+  # gain 0.5
+  # pan 0.6
+  # midiG' "^80" 0 1.2
+  # cut 4
+d5 $ g2 -- BASSLINE
+  $ midiOn "^57" ((|+ note 12) . (# legato 4))
+  $ note ("a4@2 c@3 <e!3 f> <f!3 e>")
+  # "90s_matrix:3"
+  # cut 4
+  # pan 0.3
+  # midiG' "^81" 0 0.57
+  # lesliebus 41 (range "-1" 1 "^17")
+  # lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
+  # lpf 5000
+  # lsizebus 42 (range 1.9 6.7 "^33")
+  # crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
+  # room 0.2
+d6
+  $ midiOn "^58" (iter "1 4")
+  $ midiOn "^90" (ply "<2 4>")
+  $ someCyclesBy "<0!4 1!60>" (slice 4 (
+    "0 1 2 <3!3 2*<1 2>>"
+    ))
+  $ someCyclesBy "<1!4 0!60>" (slice 4 ("0 <~!3 0>"))
+  $ loopAt 1
+  $ "celtic_guitar85"
+  # pan 0.67
+  # midiG' "^82" 0 1.2
+  # cut 6
+
+
+once $ "808bd:1" # note "d" # gain 2
+
+d5 -- SUB accompagnateurs
+  $ g
+  $ mask "<f!8 f f t t t!50>"
+  $ note "d*<1!4 2!4> ~!3 . ~!3 <~ <f g>*<1!3 <4 [4 2]>>>"
+  # "808bd:1"
+  # lpf 4000
+  # gain 1.1
+  # room 0.5
+  # pan 0.33

live/dnb/bluesify.tidal

+do
+-- resetCycles
+let whenDJF = (whenmod 32 20)
+let g = (whenDJF (# djfbus 1 (slow 16 $ range 0.5 0.12 saw)))
+-- let g = id
+setcps (140/60/4)
+d1 $ g
+  $ mask "<f!2 t!30>"
+  $ "k . ~ <~ k!31> ~ ~"
+  # "[jazz,kick:5]"
+  # gain 0.9
+d2 $ g
+  $ mask "<f!8 t!60>"
+  $ whenmod 64 32 (
+    |* gain (slow 32 $ range 0.4 1.1 saw)
+  )
+  $ fast 2 $ "~ snare:8"
+d3 $ fast "1 1 <1!3 4> <1 0.5>" $  "hh*16"
+  # gain (slow 32 $ range 0.65 0.95 sine)
+  # pan 0.3
+d4 $ g
+  -- $ mask "<f!32 t!32>"
+  $ mask "t!3 <t!3 [f <f t>]>"
+  $ chop 16 $ loopAt 2 $ "break:0" # cut 4 # pan 0.8
+d5
+  $ slice 4 0
+  $ "blues_elmore:7"
+  # cut 5
+  # pan 0.3
+  # gain 0.8
+  # room 0.5

live/hip/boombap/plage.tidal

+resetCycles
+
+do
+setcps (85/60/4)
+let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.18 saw)))
+d1 $ g
+  $ mask "<f!16 t!48>"
+  $ "k*<1!4 2 1!3> ~ . ~ k ~ <~ k ~ <~ k>>"
+  # "reverbkick" # gain 0.86
+d2 $ g
+  $ mask "<f!8 t!54>"
+  $ 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
+d3 $ g
+  $ mask "<f!4 t!28>"
+  $ fast "1 <1 <2 [<2 [4 8]> <4 [4 . 16 8]>]>>"
+  $ "drum:2*8"
+  # gain 0.8
+d4
+  $ whenmod 64 0 ((# legato "<1!8 h!4 q q e s>") . chop "<4 4 16 <4 2>>")
+  $ whenmod 32 16 (# djfbus 4 (slow 16 $ range 0.5 0.98 saw))
+  $ n "<0!4 1 0 1 1*2>"
+  # "celtic_guitar85"
+  # gain 0.9
+  # room (slow 16 $ range 0.35 0.8 saw)
+  # pan 0.67
+  # drybus 41 (1.3 + 0.4 * perlin)
+  # sz 0.49
+  # cut 4
+d5 -- SUB accompagnateurs
+  $ g
+  $ mask "<f!8 f f t t t!50>"
+  $ note "d*<1!4 2!4> ~!3 . ~!3 <~ <f g>*<1!3 <4 [4 2]>>>"
+  # "808bd:1"
+  # lpf 4000
+  # gain 1.1
+  # room 0.5
+  # pan 0.33
+d6
+  $ whenmod 64 32 (
+    (|* gain (slow 32 $ range 4 1 saw))
+    . mask "t!3 <t!4 f t f t> . <f t [t f] t> t"
+  )
+  $ whenmod 32 16 (|* gain (slow 16 $ range 1.5 4 saw))
+  $ slice 8 (run "8 <8!3 16>")
+  $ chop 8
+  $ loopAt 1
+  $ "break:11"
+  # gain 0.2

live/hip/boombap/princesse_de_mars.tidal

+
+do
+-- resetCycles
+-- once $ "choir:5" # gain 0.5
+setcps (100/60/4)
+let g = (whenmod 32 24 (# djfbus 1 (range 0.5 0.1 saw)))
+d1 $ g
+  $ superimpose (const
+    $ mask "<f!3 t t!28>" -- Intro
+    $ mask "<t!3 <f t>>"
+    -- $ "k(<1!4 [1 3]!4 3!4 [3 5]!4>,8)"
+    $ "k"
+    # "[bd,jazz]")
+  -- SUBS
+  $ mask "<f!8 t!16 t!4 f t f t>"
+  $ "k . ~ <~!2 k!2> ~ <~!3 k>" # "808bd:6"
+d2 $ g
+  $ mask "<f!3 t t!28>" -- Intro
+  $ "~ s" # "[sn,snare:28]"
+d3 $ g
+  $ mask "<f f t f t!60>" -- Intro
+  $ fast "<1!8 <2 [2|4] 4>!8>"
+  $ "h*<1!4 2 1 2 1> h h h*<1!3 2>"
+  # "dr"
+  # gain 0.75
+d4 $ g -- Clave résolu
+  -- $ slow 2
+  $ mask "<f!8 t!16 t!7 f>"
+  $ note "c ~ ~ <b4 df> c ~ c <~ c ~ <c ~>>"
+  # "gretsch:6"
+  # gain 1
+  # pan 0.8
+  # hpf (slow 32 $ range 400 2000 sine)
+d5 -- Base layer choir
+  $ superimpose (
+    mask "<f!6 t t f t!7>"
+    . (+| note ("0 12 0 12"))
+    . (# cut 11)
+    . (# room 0.5)
+    . (|* gain 0.84)
+    . (# sz "<0.9!7 <1.2 1.4>>")
+    )
+  $ note "<c c <d!3 a4> b4>"
+  # "choir"
+  # cut 5
+  # gain (slow 16 $ range 0.45 0.8 saw)
+d6
+  $ mask "<f!16 t!48>"
+  $ note (
+    "<c c <d!3 a4> b4>" + "<0 [0 0] 0 <[0@5 0@2 0] [0@6 0 0]>>"
+    - 24)
+  # "bassWarsaw"
+  -- # crush 9
+  # gain 0.85
+  # pan 0.6
+d7 -- Slit Singer
+  $ mask "<f!3 t t!28>" -- Intro
+  $ slice 16 "<2 2 3 3 [3 2] [3 2] 3 3 4(<1 1 2 1 3 3 5 5>,8)!8 5!3 6 5!3 [6 6] 7!3 6 7!3 5>"
+  $ "choir:4"
+  # cut 2
+  # att 2
+  # release 5
+  # gain 0.78
+  # room 0.2
+  # sz 0.5
+  # pan 0.4
+d8 -- DRUMROLL PRINTER
+  $ mask "t(<1!3 3 1!3 [3 5] 4!3 8 4!3 16 4!3 [8 4] 4!3 [8 16] 16!8>,16)"
+  $ ply "1!3 <1 2 <1 2> 4>"
+  $ iter "1 4"
+  $ slice 16 (run 16)
+  $ loopAt 2
+  $ "break"
+  # gain 0.8
+
+once $ "super808" # gain 1

live/hip/lofi/poke_bone.tidal

+once $ "hh" # gain 1.2
+
+do
+setcps (70/60/4)
+let djfsine = (# djfbus 1 (slow 32 $ range 0.35 0.65 sine))
+d1 $ djfsine $ "k*2 ~!6" # "jazz" # gain 0.8
+d2 $ "~ s ~ [s*<1!3 2> ~]" # "[snare:20,clap]" # gain 0.6
+d3 $ "h*12" # "hh" # gain 1.1
+d4 $ note ("0*[16 <16 2>]"
+    + (fast 2 "<[g,bf] [f,a]>")
+  )
+  # legato "q!7 <q 0.9> . <q 1>"
+  # octave 4
+  # "FMRhodes2" # gain 1.2
+d5
+  $ someCyclesBy "<1!8 0!8 0!16>" (>| note ("<[d3@3 g3@13]!3 [d3 f3 d3 g3@13]>") )
+  $ someCyclesBy "<0!0 1!8 0!16>" (>| note ("[d3 <d3 bf3 d3!2> f3 g3@13]") )
+  $ someCyclesBy "<0!16 1!16>" (>| note ("[d3 d3 f3 g3@7 d4@2 <c4 <f4 g4>>@4]"))
+  $ note ("<[d3@3 g3@13]!3 [d3 f3 d3 g3@13]>")
+  # "bassWarsaw" # gain 1.2
+  # room 0.2
+d6
+  $ djfsine
+  $ whenmod 64 32 (slice 4 "<0 1>*4")
+  $ loopAt 2
+  $ chop 16
+  $ slice 4 (run "4 <4!3 8 4 4 8 8>")
+  $ "break:0"
+  # cut 6
+  # gain 1.3
+  # pan 0.7
+
+once $ loopAt 4 $  "breaks165"
+  # gain 2

live/hip/lofi/soleil_enthousiaste.tidal

+resetCycles
+
+do
+setcps (110/60/4)
+let gDJF1 = (# djfbus 1 (range 0.10 0.90 "^49"))
+let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
+let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
+let g1 = (gDJF1)
+let g2 = (gDJF2)
+let mel = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
+let melB = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
+let modIndex = pF "modIndex"
+d1 $ g1 $ "k<1!4 2 1 1 2> . ~!3 <~!3 k>"
+  # "[808bd:1,jazz]"
+  # midiG' "^78" 0 0.9
+d2 $ g1 $ "~ . s ~ ~ <~!4 s!4>"
+  # "[sn:20,snare:8]"
+  # midiG' ("^79" * "~ . 1 0.9") 0 0.9
+d3 $ g1
+  $ midiOn "^44" (fast 2)
+  $ sometimesBy 0.1 (fast 2)
+  $ "d*[8 <8 <4 [4 16]>>]"
+  # "drum:2"
+  # midiG' "^80" 0 0.9
+d4 $ g2
+  $ whenmod 32 24 (superimpose (
+    arp "<up!6 downup!2>"
+    . (|+ note 12)
+    . (# pan 0.7)
+  ))
+  $ note ("<0 0(<3 5>,8)>"
+  + (slow 4 mel)
+  -- # Cmin11,Fmin9,Cmin11,G7#5 - Enthusiasm
+  - 24)
+  # "FMRhodes1"
+  # att 1 # rel 2
+  # modIndex 0
+  # room 0.8
+  # dry 1
+  # sz 0.2
+  # midiG' "^82" 0 1.3
+d5 $ g2
+  $ note ("<[f af bf] [f@2 <af!4 bf!4> <bf!4 af!4>]> [<cs6!4 [cs6@3 ds6]!4>]"
+  - 24)
+  # "bassWarsaw"
+  # midiG' "^81" 0 1.3
+  # crushbus 51 (range 16 4.6 "^53")
+  # pan 0.3
+d6
+  $ slice 16 ("<0!4 ~!3 0> 1 2 3 4 5 6*<1!3 2> <7 15>")
+  $ "break:18"
+  # midiG' "^84" 0 1.3
+  # speed (range 0 2 "^56")
+  # cut 6

live/hip/lofi/toujours_plus.tidal

@@ -2,7 +2,7 @@
 -- Les cours montent au firmament
 -- Mais la tension scrute
 do
-resetCycles
+-- resetCycles
 let modIndex = pF "modIndex"
 setcps (75/60/4)
 -- # Amin11, D7, Fmaj7, Cmaj7 - Pure bliss
@@ -10,18 +10,18 @@ let chords = "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c
 let chordsN = "<[a,c6,e6,g6] [<fs f>,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>"
 let g = (# djfbus 1 (slow 32 $ range 0.15 0.85 cosine))
 d1 $ g $ "k . [<~ k ~ ~> <~ ~ k k>] <k!3 k*<2 4>>" # "jazz"
-  # gain 0.8
+  # gain 1.1
   # att 0.1
   # rel 10
 d2 $ g
   $ "~ cp"
   # hpf 4000
-  # gain 0.5
+  # gain 0.8
 d3 $ g
   $ ply "8 <8 8 4 <8 [4 8]>> . 16 [32 <8 <16 32>>]"
   $ "drum:2"
   # cut 3
-  # gain 0.45
+  # gain 0.85
 d4 $ g -- Base arps
   $ whenmod 64 32 (superimpose (
     struct "t t t t <~ t> <t t*2>"
@@ -39,20 +39,16 @@ d4 $ g -- Base arps
   # room 0.8
   # dry 1
   # sz 0.2
-  # gain 0.65
+  # gain 0.95
 d5 $ g -- Bassline
-  $ ply 2
+  $ ply "1!3 <2 [2 4]>"
   $ note (arp "<updown!3 <downup updown>>" $ chordsN - 36)
   # "bassWarsaw"
-  # gain 0.5
-  # room 0.5
-  # dry 1
-  # sz 0.8
+  # gain 1.3
   # pan 0.2
   # cut 5
 d6 $ g -- Angel in the Wire
   $ mask "<f!3 t f!12 t!6 f t f!8 t!16>"
-  -- [a,c6,e6,g6] [<fs f>,a,c6,d6] [f,a,c6,e6] [c,e,g,b]
   $ note ("<c <d!4 ~!2 d d> <g c g c ~ ~ g c> <a a4>>")
   # "90s_synatm:2"
   # cut 6
@@ -60,12 +56,12 @@ d6 $ g -- Angel in the Wire
   # room 0.5
   # sz 0.5
   # dry 0.8
-  # gain 0.35
+  # gain 0.8
 d9
   $ chop 8
   $ loopAt 2
   $ "break:20"
-  # gain (slow 16 $ range 0.3 0.55 saw)
+  # gain (slow 16 $ range 0.6 0.9 saw)
 d10 $ g
   $ fix ( -- Trainwreck
     (mask "<f!16 t!48>")
@@ -77,4 +73,4 @@ d10 $ g
   "[~ 7]*<4!3 8>",
   ""
   ]) # "auto"
-    # gain 0.5
+  # gain 0.9

live/midi/nova/ambient/contre_visite.tidal

@@ -3,8 +3,8 @@
 
 do
 -- TODO TRIGGER INTRO
-resetCycles
-once $ "90s_synatm:8" # gain 0.84 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
+-- resetCycles
+-- once $ "90s_synatm:8" # gain 0.84 # 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 f = (# djfbus 1 (range 0.05 0.95 "^49"))
@@ -46,7 +46,8 @@ d3 $ f-- Sidekick, doubtful, yet hardworking hats
 d4 $ f -- Atmospheric synth: aerial questions
   $ "90s_synatm:8/4"
   # cut 4
-  # room 0.4
+  # room 0.8
+  # legato 4
   # dry 1
   # pan "<0.3 0.25 0.2>"
   # crushbus 42 (range 16 4.5 "^53")

live/midi/nova/ambient/drone_aveugle.tidal

+
 -- Le DR0NE AVEUGLE
 -- Intro weird superchip: is this even music?
 -- Pont superchip crushed+plyed

live/midi/nova/breaks/solar.tidal

@@ -46,6 +46,7 @@ d2 $ g1 $ m -- BREAK
   # 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!3 d*2> d*<1 2> [d . <d ~> d]"
@@ -53,7 +54,23 @@ d4 $ g1 $ m -- Drum/hh roll!
   # room "^53"
   # dry 0.99
   # cut 4
-  # midiG' "^81" 0 1
+  # midiG' "^81" 0 1.8
+d4
+  $ whenmod 4 3 (off "q" id)
+  $ midiOn "^58" ((
+    (|+| note (
+    arp "<up!8 converge!7 diverge>"
+    "c'maj'8")
+  )))
+  $ rev
+  $ struct "~ t"
+  $ slow 4
+  $ arpeggiate
+  $ note "e3'maj"
+  # "bassWarsaw"
+  # crushbus 51 (range 16 4.6 "^53")
+  # midiG' "^81" 0 1.5
+  # pan 0.2
 d5 $ g2
   $ midiOn "^58" (superimpose (
     (|+| note (
@@ -66,6 +83,7 @@ d5 $ g2
   $ note "e3'maj"
   # "FMRhodes1"
   # room "<0.4!3 0.7>"
+  # pan 0.8
   # modIndex (range 0 128 "^34")
   # crushbus 51 (range 16 4.6 "^54")
   # midiG' "^82" 0 1.5

live/midi/nova/dnb/break_the_loop.tidal

@@ -62,7 +62,7 @@ d4 -- BASSLINE BRULANTE
   # midiG' ("^81" - 0.3 * "^33") 0 1.5
   # cut 4
 d5 $ gF2 $ gM -- Ritournelle Rhodes TODO: Variations mélodie?
-  $ midiOn "^58" (off "e" (+ note 12))
+  $ midiOn "^58" (off "q" (|+ note 12) . (|* gain 0.85))
   $ note (
     "<[c ~ c d ~ d <ef!3 f> ~]!0 [f ~ f g ~ <g!3 f> <gs!3 f> ~]!8>"
   - "<24!12 12!4>")
@@ -74,7 +74,7 @@ d5 $ gF2 $ gM -- Ritournelle Rhodes TODO: Variations mélodie?
 d6 $ gF2 -- Voices from the st0rm
   $ midiOn "^91" ((# cut 6) . slow 8)
   $ swingBy 0.125 8
-  $ midiOn "^59" (superimpose (
+  $ midiOn "^59" (superimpose ( -- Resolution chant
     (>| note (scale "aeolian" "<7 [7@3 <5 9>]>"))
     . (# cut 61)
     . (# legato 1.2)
@@ -90,5 +90,7 @@ d6 $ gF2 -- Voices from the st0rm
   # pan 0.6
   # midiG' "^83" 0 1
 d8
+  $ midiOn "^60" (slow 2)
+  $ midiOn "^92" (mask "t(<8!3 4>,16)")
   $ "dr*<4!3 2 4!3 8 <16!3 8>!16>"
   # midiG' "^84" 0 1

live/midi/nova/dnb/lucy_rode.tidal

@@ -21,14 +21,14 @@ do
     $ midiOn "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
     $ midiNo "^41" "^42" (<| "<k <k*2 k(3,8)>>")
     $ "[jazz,kick:5]"
-    # midiG' "^78" 0 1.75
+    # midiG' "^78" 0 0.9
   d2 $ g -- Break
     $ midiOn "^43" (scramble 4 . often (ply 2))
     $ midiOn "^75" (struct "t*[8 16]")
     $ slice 4 (run 8)
     $ loopAt 1
     $ "break:15"
-    # midiG' "^79" 0 1.5
+    # midiG' "^79" 0 1.2
     # pan 0.35
     # speed (range 0 2 "^51")
     # cut 2
@@ -72,7 +72,7 @@ do
     # room 0.2 # dry 2 # sz 0.8
     # crush (range 10 3.7 "^54")
     # modIndex (range 0 4.19 "^34")
-  d7 $ g -- Hammond
+  d7 $ g -- Hope's Hammond
     $ ("0.125" ~>)
     $ fast 2
     $ midiOn "^59" (

live/techno/nightly_repair.tidal

+
+do
+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 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"
+  # midiG' "^78" 0 1.2
+d2
+  $ g1
+  $ midiOn "^43" (fast 2)
+  $ "~ cp"
+  -- # lpf 1400
+   -- # lpq 0
+  # midiG' "^79" 0 1
+d3 $ g1
+  $ 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
+d9 $ g2 -- G0dz1ll4
+  $ midiOn "^60" (off 1 (
+    (|+ pan 0.3)
+    . (# cut 91)
+    . (|+| note "[0|12]*8")
+    . (|* gain 0.9)
+    . (# squizbus 92 (range 0 10 perlin))
+    ))
+  $ "90s_matrix:1/4"
+  # cut 9
+  # gain 0.55
+  # crushbus 9 (slow 16 $ range 2.6 2 perlin)
+  # roombus 91 (slow 16 $ range 0 0.82 perlin)
+  # sz 0.9
+  # pan 0.7
+  # midiG' "^84" 0 0.9
+  # dry 2
+d4 $ g2 -- BASSLINE
+  $ midiOn "^57" ((|+ note 12) . (# legato 4))
+  $ note ("<bf g bf g bf g bf c c!4 g bf c6@2>" - 24)
+  -- $ note ("c6")
+  # "90s_matrix:3"
+  # cut 4
+  # pan 0.3
+  # midiG' "^81" 0 1.3
+  # lesliebus 41 (range "-1" 1 "^17")
+  # lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
+  # lpf 5000
+  # lsizebus 42 (range 1.9 6.7 "^33")
+  # crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
+  # room 0.2
+d5 $ g1
+  $ degradeBy (range 0.95 0.05 ("^18!15 1"))
+  $ slice 16 (run 16)
+  $ midiOn "^58" (striate 2)
+  $ superimpose (# modIndex (range 0 96 "^34"))
+  $ ply "1 4"
+  $ note (scale "blues" (
+    -- arp
+    -- up, down, updown, downup, converge, diverge, disconverge, pinkyup,
+    arp "<up pinkyup downup thumbupdown>" "[0,1,2,<3 4>,<4 <5 6>>]")
+  + "0!3 <0!3 <1 3>>"
+  - 12
+  )
+  # "FMRhodes1"
+  # crushbus 5 (range 16 4.2 "^54")
+  # midiG' "^82" 0 1.5
+
+
+
+let scale = getScale (scaleTable ++ [("blues",["c", "ef", "f", "fs", "g", "bf"])])
+
+
+once
+  $ note (fastcat )
+  # "FMRhodes1"
+
+scaleList
+
+
+
+
+once $ "90s_weird" # cut 4
+
+once $ "90s_matrix:3" # cut 1