Collab: Josh & algorythm

live/boeuf/algorythm/fdlm2022/toxic.tidal

@@ -12,23 +12,24 @@ d1 $ g
   -- $ mask "<t!12 f!4>"
   $ fix ((|* gain 0.9) . (# lpf 5000)) "kick"
   $ "k ~ ~ k . ~ ~" # "[ifdrums,kick]"
-  # midiG' "^78" 0 1.3
+  -- # midiG' "^78" 0 1.3
   # pan 0.4
 d2 $ g
   $ superimpose (const $ g
     $ "~ ~ ~ ~ ~ <~!4 s!4> ~ <~!7 s>" # "snare:5" # pan 0.8
-    # midiG' "^79" 0 1)
+    -- # midiG' "^79" 0 1
+    )
   $ mask "<f t!15>"
   $ "~ s ~ <s!3 ~>"
   # "[snare:10,drum:2]"
-  # midiG' "^79" 0 1
+  -- # midiG' "^79" 0 1
 d3 $ g
   $ midiOn "^76" (ply 2)
   -- $ mask "<f!16 t!16>"
   $ "hh*[8 8 8 <8!3 [16 8]>]"
   # att 0.01 # rel 0.5 # cut 3 # hpf 5000
-  # midiG' "^80" 0 1.3
-d7 $ gDJF
+  -- # midiG' "^80" 0 1.3
+d4 $ gDJF
   $ midiOn "^92" (ply 2)
   $ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff
   # "bassWarsaw"
@@ -37,10 +38,10 @@ d7 $ gDJF
   # sz 0.1
   # cut 7
   # crushbus 71 (range 16 1.5 "^53")
-  # midiG' "^81" 0 1
+  -- # midiG' "^81" 0 1
 d8 $ gDJF -- CUE Toxic Theme
-  $ midiOff "^91" (mask "<f!7 t>")
-  $ midiOn "^59" (rev)
+  $ midiOff "^92" (mask "<f!7 t>")
+  $ midiOn "^60" (rev)
   $ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24)
   # "FMRhodes1"
   # legato 4
@@ -50,4 +51,4 @@ d8 $ gDJF -- CUE Toxic Theme
   # rel 2
   # sz 0.5
   # pan 0.9
-  # midiG' "^83" 0 1.1
+  -- # midiG' "^83" 0 1.1

live/boeuf/algorythm/love23/something_about_us.tidal

 do
-setcps (92/60/4)
+-- resetCycles
+setcps (100/60/4)
 let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
-let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
+let gF2 =  (# djfbus 2 (range 0.05 0.95 "^50"))
 let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
 let gMute = (midiOn "^73" (mask "f*16"))
+let gMute2 = (midiOn "^74" (mask "f*16"))
+-- let gMute = (midiOn "^73" (mask "f*16"))
 let gM = gMask . gMute
+let gM2 = gMask . gMute2
 let modIndex = pF "modIndex"
 let gF = gF1 . gF2
-d1 $ gF1 -- Kick
-  $ midiOn  "^42" (<| "k k k <k <k*2 [~ k]>>")
-  $ midiOff "^42" (<| "k ~ ~ <~ k> . <k ~>")
-  $ "jazz"
-  # midiG' "^78" 0 1.3
+d1 $ gF1 $ gM2 -- Kick
+  $ midiOff  "^42" (<| "k k k <k <k*2 [~ k]>>")
+  $ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>")
+  $ "[jazz,kick:5]"
+  -- # midiG' "^78" 0 1.3 -- FIXME Remove after unplugging direct SC->output line
   # pan 0.8
-d2 $ gF1
-  $ midiOn  "^43" (<| "~ s ~ s*<1!4 2!3 1>")
-  $ midiOff "^43" (<| "~ ~ ~ k")
+  # gain 1.4
+d2 $ gF1 $ gM
+  $ midiOff  "^43" (<| "~ s ~ s*<1!4 2!3 1>")
+  $ midiOn "^43" (<| "~ ~ ~ k")
   $ "[drumtraks:9]"
-  # midiG' "^79" 0 1.45
-d3 $ gF1
+  -- # midiG' "^79" 0 1.45
+d3 $ gF1 $ gM
   $ midiOn "^44" (ply 2)
   $ midiOn "^76" (ply 2)
   $ "d d d <d [<d ~> d]>" # "drum:2"
-  # midiG' "^80" 0 1
+  # gain 0.8
+  -- # midiG' "^80" 0 1
   # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
 d4 $ gF2 -- V2
+  -- $ superimpose ((arp "up") . (|+ note 12))
   $ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
   $ note (cat [
-    "[bf3, d4, f4, a4]", -- Bbmaj7
-    "[a3, c4, e4, g4]", -- Am7
-    "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
-    "[g3, b4, d5, <f5 ~>]" -- <G7 G>
-    -- "[cs4, b4, d5, <f5 ~>]" -- <G7 G>
-  ])
+    -- PARTITION ORIGINALE
+    -- "[bf3, d4, f4, a4]", -- Bbmaj7
+    -- "[a3, c4, e4, g4]", -- Am7
+    -- "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
+    -- "[g3, b4, d5, <f5 ~>]" -- <G7 G>
+    -- TRANSPOSE POUR SP <3
+      "[d4, fs5, a4, cs5]", -- Dmaj7
+      "[gs4, b4, cs5, es5]", -- Csm7
+      "<[fs4, a4, cs5, e5, gs5] [fs4, b5, cs5, e5, gs5]>", -- Fsm9/Fsm11
+      "[b4, d5, fs5, <a4 a5>]" -- <B7 B>
+  ]
+  - 12
+  )
   # "FMRhodes2"
   -- |- note 12
   |+ note 2 -- Adjust to C
   # modIndex (range 0 2 "^53")
-  # midiG' "^81" 0 1.6
+  -- # midiG' "^81" 0 1.6
+d5 $ note ("<[d3@1.25 e3@0.25 ~@0.75 f3@2 ~] [e3@1.25 f3@0.25 ~@0.75 g3@2 ~] [f3@1.25 g3@0.25 ~@0.75 a3@2 ~] [a3 g3 g3 f3 f3 d3 c3 d3]>")
+  # "bassWarsaw"
+  # cut 1
+d8 $ gF1 $ gM
+  $ midiOn "^92" (ply 4)
+  $ iter "1 <1!4 4!4>"
+  $ chop 8
+  $ loopAt 2
+  $ "break:2"
+  -- # n 4
+  # cut 8
+  # gain 0.7
+d10
+  $ (0.5 <~)
+  $ n "<1 2 3 4 5 6 7 8>"
+  # "numbers"
+  # crush 8
+  # hpf 1250
+
+once $ "ho:5"
+  # gain 0.5
+
+once $ "jungle_breaks:27" # cut 1
+
+
+once $ note "a3" # "superpiano"

live/boeuf/algorythm/season2/blues_wednesday.tidal

@@ -2,46 +2,92 @@
 do
 -- resetCycles
 setcps (90/60/4)
+let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
+let gMute = (midiOn "^73" (mask "f*16"))
+let gMute2 = (midiOn "^74" (mask "f*16"))
+let gMute3 = (midiOn "^75" (mask "f*16"))
+let gM1 = gMask . gMute
+let gM2 = gMask . gMute2
+let gM3 = gMask . gMute3
+let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
+let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
+let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
 -- Modified blues to add a seventh with bflat
 let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"]
 let gDJF = (# djfbus 1 (slow 32 $ range 0.2 0.8 saw))
 let gDJF = id
-d1 $ gDJF
+d1 $ gF1 $ gM2
+  $ midiOn "^42" (<| "k k k <k k*2>")
+  $ midiOff "^42" (<| "k . k(3,8)")
   $ fix ((|* gain 0.6) . (# hpf 200)) "jazz"
-  $ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>" # "[jazz,cpu]" # gain 1
-d2
--- $ gDJF
-  -- $ mask "<f!16 t!48>"
-  $ note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8)
-  # "[snare:60,snare:21]"
-  # gain 0.46
+  -- $ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>"
+  $ "[jazz,cpu]" # gain 1
+  -- # midiG' "^78" 0 1.5
+d2 $ gF1 $ gM1
+  $ midiOff "^43"  (<| note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8))
+  $ midiOn "^43"  (<| note ("~ 0 ~ 0"))
+  $ "[snare:60,snare:21,snare:51]"
+  # gain 0.56
   # pan 0.3
   -- # room 0.2 # dry 1.1 # sz 0.8
-d8 $ gDJF
+d3 $ gF1 $ gM1
+  $ midiOn "^44" (ply 2)
+  $ midiOn "^76" (ply 2)
   $ "drum:2*[4 <4 <8 16>>]"
+  -- $ "drum:2*[6 12]"
+  # att 0.03
+  # rel 0.9
   # pan 0.3
-  # gain 0.55
-d3 $ gDJF
-  $ mask "<f!16 t!48>"
-  $ mask "t(<1 1 4 2 2 2 4 <2 4>>,4)"
-  $ chop 8 $ loopAt 1 $ "break:1"
-  # cut 4 # gain 0.4
+  # gain 0.85
+d8 $ gF1 $ gM1
+  $ midiOn "^92" (ply 2)
+  $ chop 8
+  $ midiOn "^36" (loopAt 1 . (# "break:5"))
+  $ midiOn "^56" (loopAt 1 . (# "break:9"))
+  $ loopAt 2
+  $ "jungle_breaks:8"
+  # gain 0.8
   # pan 0.7
-d4
-  $ superimpose (|+| note "[0 0(<3!3 5>,8)]")
+d4 $ gF2 $ gM3
+  $ midiOn "^57" (|+| note "0 <7 7 12 12>(3,8) 0 <7 12>([5 <3 2>],8)")
+  $ midiOn "^89" (superimpose (|+| note "[0 0(<3!3 5>,8)]"))
   $ note (
     cat blues + "[0]"
   )
   -- # "bass3:4"
   -- # "modalMarimba" |+| note "0*4"
   # "bassWarsaw" |- note 24
+  # octersubbus 41 (range 0 2 "^53")
   # pan 0.3 # crush 16
   -- # room 0.1
   -- # voice 0.8
   -- # cut 1
+  # gain 1.075
+  # lpf 300
+d5 $ gF3 $ gM3
+  $ swing 4 -- TODO Replace with sampled guitar wahwah
+  $ arp "updown"
+  $ note (
+    cat (blues) + "c'maj'4"
+    + 12
+  )
+  # "cpluck:2"
+  # pan 0.3
+  # cut 5
+  # gain 1.075
+  # lpf 300
+d10 $ gF3 $ gM3
+  -- $ superimpose (|+| note "[0 0(<3!3 5>,8)]")
+  $ note (
+    cat blues + "[0*4]"
+  )
+  # "moogBass"
+  # pan 0.7 # crush 16
+  # cut 10
   # gain 0.75
   # lpf 300
 
+
 -- TODO Recover this guitar and make it midi-agnostic
 d5 $ gF3 $ note (
   "<0 [0, [~@3 <2 0 0 2>@3 0@2]] [0@4 0@2] 0([1 3],8)>"
@@ -56,3 +102,6 @@ d5 $ gF3 $ note (
   # crushbus 51 (range 16 3 "^54")
   # "come_guitar:0"
   # midiG' "^82" 0 1.7
+
+
+once $ "cpluck:3"

live/midi/nova/nujazz/cafe_glace.tidal

@@ -3,9 +3,8 @@ once $ "nujazz_beats120"
 -- It's a nuday
 -- It's a new sample
 
-resetCycles
-
 do
+resetCyclesm
 setcps(125/60/4)
 let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
 let gMute = (midiOn "^73" (mask "f*16"))

live/midi/nova/nujazz/josh_nu.tidal

-once $ "nujazz_beats120"
-
--- It's a nuday
--- It's a new sample
-
-resetCycles
-
-do
-setcps(125/60/4)
-let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
-let gMute = (midiOn "^73" (mask "f*16"))
-let gMute2 = (midiOn "^74" (mask "f*16"))
-let gMute3 = (midiOn "^75" (mask "f*16"))
-let gM1 = gMask . gMute
-let gM2 = gMask . gMute2
-let gM3 = gMask . gMute3
-let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
-let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
-let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-d1 $ gF1 $ gM2
-  $ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
-  $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
-  $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
-  $ "[kick:5,tech:5,jazz]"
-  # gain 1
-d2 $ gF1 $ gM1
-  $ midiOn "^43"  (<| "~ c ~ c")
-  $ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
-  $ "[cp:1,rampleM1:10]"
-  # gain 0.9
-  # lpf 4650
-d3 $ gF1 $ gM1 -- Highest hats
-  $ midiOn "^44" (ply 2)
-  $ midiOn "^76" (ply 2)
-  -- $ (0.125 ~>) -- decalage
-  -- $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
-  -- $ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>")
-  -- $ "d*<8 [8 [16 <8 16> 16 <8 4 <16 32>>]]>"
-  $ sometimesBy "0!3 <0 0.5>"  (# n 12)
-  $ sometimesBy "0!3 <0.1 0>"  (# n 13)
-  $ "d*[4 2]"
-  # "h2ogmsn:14"
-  # cut 3
-  # legato (range 0.28 1 sine)
-  # gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
-  # room 0.14 # sz 0.4 # dry 1
-  # pan 0.8
-d4 $ loopAt 4
-  $ "nujazz_bass125:1" 
-  # cut 4
-
-d6 $ gF1 $ gM1 -- Highest hats
-  $ (0.125 ~>) -- decalage
-  $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
-  $ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>")
-  $ "hh:7"
-  # cut 3
-  # gain (0.7 * (range 0.75 1.1 (fast 4 perlin)))
-  # legato (range 1.1 0.25 (fast 4 perlin))
-  # room 0.4 # sz 0.4
-  # pan 0.8
-d4 $ gF2 $ gM3 --
-  $ midiOn "^57" ((off "0.125" (
-    (|+| note "0 <7 12>") . (|- pan 0.1) . (# cut 41)
-    )))
-  $ midiOn "^89" (ply "<4!3 8>")
-  $ note ("<[a4@4 c5 <c5 d5 c5 fs4>] a4>"
-    + "[0,12]"
-    - 36
-    )
-  # "bassWarsaw"
-  # cut 4
-  # gain 1.1
-  # pan 0.3
-  # octersub 0.5
-  # octerbus 41 "^53"
-  # squizbus 42 "^33"
-d5 $ gF3 $ gM3 -- Piano guide premier
-  $ midiOn "^58" (juxBy 0.9 ( -- Piano reflet second
-      mask "<<f t> [<f t> t]>" .
-      (# begin 0.5)
-      . rev
-      . (|+ note 12)
-      . (|+ pan 0.2)
-      . (|* gain 0.87)
-      . (# cut 55))
-  )
-  $ slice 4 "<0 1 2 3 0 1 2 3 1 2 1 3 1 2 1 <~ 3>>"
-  $ "nujazz_keys120"
-  # n "<54!16 53!16>"
-  # pan 0.8
-  # freezebus 51 (range 0 0.7 "^34")
-  # cut 5
-  # gain 0.9
-d7 $ gF2 $ gM3 -- Guitare egaree
-  $ midiOn "^59" (ply 2)
-  $ midiOn "^91" (ply 2)
-  $ chop 4
-  $ n "<0!3 1 0!3 1 3!3 4 3!3 5 6!3 7 6 6 7 7 6 7!3 7!4>"
-  -- $ n "<>"
-  # "nujazz_wahwah125"
-  # cut 7
-  # pan 0.8
-  # room 0.24 # sz 0.5 # dry 0.5
-  # octersubbus 71 (range 0 2 "^55")
-  # octersubsubbus 72 (range 0 3 "^55")
-  # gain 1
-d8 $ gF1 $ gM1 -- JazzyBelle JazzyBreak
-  $ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
-  $ chop 16
-  $ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:24"))
-  $ midiOn "^56" (# "jungle_breaks:24")
-  $ loopAt 4
-  $ n "<0!4 1!3 0 2!4 3!3 <2 3>>"
-  # "nujazz_beats120"
-  # pan 0.26
-  # gain 0.7
-  # octersub 1.2
-  # octersubsub 2
-  # cut 8
-d10 $ gF3 -- Pads
-  $ whenmod 64 132 ( -- ELECTRIFICATION
-    # octerbus 101 (slow 32 $ range 0.1 1.9 cosine)
-  )
-  $ n "<47 <48!3 46>>"
-  # cut 10
-  # "nujazz_keys120"
-  # room 0.5 # sz 0.8 # dry 0.5
-  # pan 0.4
-  # gain 0.75
-d9 $ gM3 $ gF3 -- La chorale du jugement
-  $ jux rev
-  $ note "<[a4@3 <c5 f5>] e5 [<d5!3 f5>] <a5!3 c6>>"
-  # "moogBass"
-  # chorus 0.2
-  # gain 0.5
-  # att 0.3
-  # rel 2
-  # room 0.8
-  # sz 0.8
-  # pan 0.8
-
-once $ "jungle_vocals:28" # cut 6