sessions: omondi no more to cooldown

live/fusion/minuit.tidal

+resetCycles
+-- TECHNOBASS Sypathique
+-- Bim, DNB, sorry
+-- TODO: Laisse tourner tes boucles!
+
+do
+  let fxManual = (# crush (slow 16 $ range 16 4 saw))
+  let fxManual = (id)
+  let fxFilter = (whenmod 16 12 (# lpf ("<20 15 10 5>" * 1000)))
+  let dGlob = (fxFilter . fxManual)
+  setcps (150/60/4)
+  d1 -- Kick
+    $ dGlob
+    $ whenmod 128 64 ((# "snare") . (# n "[4,20]") . (# gain 0.65)) -- INVERSION KS
+    -- $ sometimes (mask "t [t|f]")
+    $ "k . ~ k ~ ~"
+    # "[jazz,kick:7]"
+    # gain 0.8
+  d2 -- Snare
+    $ sometimes (mask "t [t|f]")
+    $ dGlob
+    $ whenmod 128 64 (# "[jazz,kick:7]") -- INVERSION KS
+    $ fast 1 $ "~ . s <~!7 s>"
+    # "snare" # n "[4,20]"
+    # gain 0.6
+    # lpf 5000
+  d3
+    $ dGlob
+    $ whenmod 128 96 (|* gain 0.8)
+    $ whenmod 128 64 (slow 2)
+    $ someCycles (fast "2 1")
+    $ fast "<4 8 16>" $ "drum:8" # gain 0.7
+  d4
+    $ dGlob
+    $ whenmod 64 32 (mask "<t [t f]!3>")
+    $ whenmod 32 16 (degradeBy (slow 8 $ saw) . segment 16)
+    $ slice 4 (cat [
+      run 8,
+      "0 1 2 3 4!4",
+      run 8, run 8, run 8,
+      "<0!4 1!4 3!8>(5,8)"
+      ])
+    $ "fbass"
+    # n "<42!14 41!2>"
+    # cut 2
+    # gain (slow 32 $ range 0.75 0.55 tri)
+  d5
+    $ dGlob
+    $ slow (slow 4 $ "<2 4>")
+    $ every' 8 7 (sometimes (# n 42))
+    $ degradeBy "<1!64 0.8!32 0.5!16 0.1!16>"
+    $ slice 4 "<0 ~ 0?!2> 1? <0 2> <1 3>"
+    $ "fguitar:43"
+    # cut 4
+    # gain 0.65
+  d6
+    $ superimpose (arp "updown downup" . ply 2  . (|+ note 12))
+    $ note ("<c'maj!3 c'min!4 c'maj>")
+    # s "superhoover"
+    # gain (slow 32 $ range 0.35 0.5 saw)
+
+
+
+d5
+$ note (scale "major" "<0!2 2 4 -2>")
+# "supergong"
+# accelerate (slow 32 $ "<1 -1>")
+# octave 2
+# gain 0.65
+
+d7
+$ segment (slow 8 "<1 <2 4>>") -- Light to tornado
+-- $ sometimesBy "<0.75!3 0.1>" (arp "updown")
+$ note ("<f e d <d!2 e f>>" + "c'maj'5")
+# octave 5
+# s "superpiano"
+-- # velocity (slow 8 ("<0.8 <0.75 0.65>>" + 0.45)) -- TODO: Electric velocity
+# gain 0.4

live/hip/instru/cooldown.tidal

+-- CoolDown piano Guitare :)
+
+do
+setcps (80/60/4)
+d1
+  $ mask "<f!8 t!10 f!4>"
+  $ "k(<5!3 10>,16)"
+  # "[stomp:1,reverbkick,kick:5]"
+  # hpf 50 # lpf 12000 # gain 0.8
+d2
+  $ whenmod 16 8 ( -- Solo guitare echo /4
+    fast "<2!4 1!4>")
+  $ splice 8 "0 1 2 3*<1!3 2>"
+  $ "fbonus" # gain 0.95
+d3
+  $ whenmod 16 8 ( -- Solo guitare echo /4
+    |* gain "<0.8 0.7!2 0.8 1!4>")
+  $ slice 8 (
+    (cat [
+      "0 1 2 3", "4 5 6 7",
+      "0 1 2 3", "4 6 5 7",
+      "0 1 . 2(3,8)", "4 5*2 5*2 7",
+      "7 1 2 3", "4 6 5 0",
+      "0*<1 2> 1 <2 3> 3", "<4 5> <5 4> 6 7"
+    ])
+  )
+  $ "fpiano:8"
+  # cut 2
+  # gain 0.8
+d4
+  $ whenmod 128 64 (rev . chop 8)
+  $ whenmod 16 8 ( -- Solo guitare echo /4
+    # room "<0.8!4 0!4>"
+    )
+  $ bite 8 "0*<1 4 2 1 4 1 4 1 4 4 1 1>"
+  $ "fguitar:8"
+  # gain 0.7
+  # cut 4

live/hip/instru/guitar_roll.tidal

@@ -2,13 +2,20 @@ resetCycles
 
 do
   setcps (80/60/4)
-  unsolo 1 -- Break + BEAT
-  unsolo 2 -- Contresnares
-  unsolo 3 -- Drumroll
-  unsolo 4 -- Guitare aigue background
-  unsolo 5 -- Guitare med foreground
+  solo 1 -- Break + BEAT
+  solo 2 -- Contresnares
+  solo 3 -- Drumroll
+  solo 4 -- Guitare aigue background
+  solo 5 -- Guitare med foreground
   solo 6 -- Piano conclusif
-  unsolo 8 -- Nappes
+  solo 8 -- Nappes
+  let gKick = 0.8
+  let gBreak = (slow 4 $ range 0.8 0.9 perlin)
+  let gRoll = (slow 16 $ range 0.6 0.95 saw)
+  let gGuitA = 1.1
+  let gGuitG = 1.1
+  let gPiano = (slow 128 $ range 0.45 0.8 saw) -- x2 64/128
+  let gNappes = (0.5 * "<1!8 0.95 0.9 0.85 0.8>")
   d1 -- Beat sautillant 3-5
     $ superimpose (const -- BREAKBEAT
       $ whenmod 64 48 -- Part et revient
@@ -20,36 +27,40 @@ do
       $ slice 4 ("0 1 <1!3 2> <1!4 3!4>")
       $ "fbonus"
       # n ("<0!12 1!4>")
-      # gain (slow 4 $ range 0.5 1.5 perlin)
+      # gain gBreak
       # cut 8
     )
     $ whenmod 64 48 (mask "<f!31 t>")
     $ whenmod 16 12 (# lpf "<1000 750 500 250>")
-    $ s ("k . k(<3!3 5 3!3 5 3!3 [5 3] 7 6 5 [3 5]>,8)")
+    $ every' 2 1 (sometimes (<| "k*4 . k(3,8)"))
+    $ s ("k . <[~ ~ ~ k] k(3,8)>")
     # "[jazz,reverbkick]"
     # lpf 2500 # release 0.5
-    # gain 1.2
+    # gain gKick
     # pan 0.45
   d2 -- Contresnares
     $ whenmod 64 32 (mask "<f!7 t>")
     $ fast "<2!3 4 2!3 4 2!3 4 [4 8] 8 [8 4] 8>"
     $ superimpose (# "sn:4")
-    $ s "~ s"
+    $ s "~ <s!3 [~ s]>"
     # "snare"
+    # lpf 5000
     # n "<2 [2|3] 2 [2|3|3]>"
-    # gain 0.9
+    # gain (slow 4 $ range 0.6 0.9 perlin)
     # pan 0.55
   d3
+    $ mask "<f!8 [t? t?]!4 [t t?]!4 t!16>"
     $ whenmod 32 28 (degradeBy ("0 1!15" * (1)))
     $ juxBy 0.75 (0.125 ~>)
     $ fast (
     "<1!8 2!6 4 [8 4]>" -- Accelera 16
     * "1 <1 2 1 [2 1]>"
     * "<4!28 2!3 [1 4]>" -- base 4 temps, ralentissement 32
-    ) $ s "d" # "drum:8"
-    # gain 1
+    ) $ s "d" # "cpu:4"
+    # gain gRoll
     # pan 0.4
   d4 -- Guitare aigue background
+    $ mask ("<t!64 [f t]!32 f!32>")
     $ mask "<t!8 f!8 t!16>" -- Progressive guitar blending
     $ slice 8 (cat [
       "0 1 2 3", "0 1 2 3", "0 1 2 3*2",
@@ -62,8 +73,9 @@ do
     # hpf (slow 24 $ range 0 6000 saw)
     # cut 4
     # pan 0.7
-    # gain 0.8
+    # gain gGuitA
   d5 -- Guitare grave background
+    $ mask ("<t!64 [t f]!32 f!32>")
     $ mask "<f!8 t!8 t!16>" -- Progressive guitar blending
     $ slice 4 (
       whenmod 32 16 (|>| "<0!4 1!4 2!4 3!4>(<3 4 6 7>,8)") $
@@ -75,7 +87,21 @@ do
     # djf (slow 32 $ range 0.4 0.8 isaw)
     # cut 5
     # pan 0.35
-    # gain 1.2
+    # gain gGuitG
+  d6 -- Piano conclusif
+    $ mask (slow 64 "<f t>")
+    $ whenmod 64 48 (mask "t(5,8)" . ply 4)
+    $ whenmod 64 32 (whenmod 4 2 (mask "t t? t? f"))
+    $ someCyclesBy "<0!3 0.25>" ((ply 4) . (|* gain 0.65))
+    $ loopAt 2
+    $ slice 4 (cat [
+      "0 1 2 3", "0 1 2 3", "0 1 2 0", "0 1 2 3",
+      "0 1", "0 . 1 2", "0 1 0 3", "1 1 3 3"
+    ])
+    $ "fpiano:10"
+    # gain gPiano
+    # cut 6
+    # pan 0.6
   d8 -- Nappes synthetiques
     $ jux id
     $ stut 2 "q" 0.95
@@ -87,17 +113,5 @@ do
            -- "[12 10 8 <6 5>]" -- Nanana
     + "-12")
     # s "moog:2"
-    # gain (0.5 * "<1!8 0.95 0.9 0.85 0.8>")
+    # gain gNappes
     # legato "<0.8!7 0.4>" -- Nappage parfois parcimonieux
-  d6 -- Piano conclusif
-    $ whenmod 64 48 (mask "t(5,8)" . ply 4)
-    $ whenmod 64 32 (ply "<2!3 4>")
-    $ loopAt 2
-    $ slice 4 (cat [
-      "0 1 2 3", "0 1 2 3", "0 1 2 0", "0 1 2 3",
-      "0 1", "0 . 1 2", "0 1 0 3", "1 1 3 3"
-    ])
-    $ "fpiano:10"
-    # gain (slow 128 $ range 0.4 1.2 saw) -- x2 64/128
-    # cut 6
-    # pan 0.6

live/hip/instru/nu.tidal

+-- Nu: jazzy improvised instrumental
+-- Tags: Hip-Hop, Melancholic, Piano
+-- Ready:
+do
+setcps (90/60/4)
+d1
+  $ whenmod 16 10 (# silence)
+  $ n "0 [1 ~ ~ <~!8 1!8>]" # "cpu2"
+  # gain 0.65
+  # lpf 3000
+d2
+  $ mask "<f!4 t!8 f!2 t!6 f!4>"
+  $ someCycles (degradeBy "0 0.5!7" . fast 2)
+  $ someCycles (ply 2)
+  $ "~ ~ ~ sn" # "cpu:2" # gain 0.8
+d3
+  $ mask "<f!8 t!16 f!8>"
+  $ whenmod 8 4 (# n "<3 4 [4 2] 2>")
+  $ "808mt(3,8,1)"
+  # n "<0 2>"
+  # gain (slow 8 $ range 0.45 0.65 sine)
+d4
+  $ whenmod 16 8 (juxBy 0.25 id)
+  $ fast "<1!2 4 1 4!2 [4 8] 8 [16 . 8 16] [16 . 4 8]>"
+  $ "cpu:4"
+  # gain (slow 32 $ range 0.4 0.7 sine)
+d5
+  $ note (scale "major" "<0!2 2 4 -2>")
+  # "supergong"
+  # accelerate (slow 32 $ "<1 -1>")
+  # octave 2
+  # gain 0.5
+d6
+  $ note ("<f e d <d!2 e f>>")
+  # octave 3
+  # pan 0.4
+  # s "superpiano"
+  # velocity 0.45
+d7
+  $ swing (slow 8 $ "<<2 4> 1>")
+  $ whenmod 32 16 (mask "t(<10 11 12 13 14 15 16!7 12 10>,16)")
+  $ ply 2
+  $ segment (slow 8 "<1 <2 4>>") -- Light to tornado
+  -- $ sometimesBy "<0.75!3 0.1>" (arp "updown")
+  $ note ("<f e d <d!2 e f>>" + "c'maj'5")
+  # octave 5
+  # pan 0.55
+  # pan 0.4
+  # s "superpiano"
+  -- # velocity (slow 8 ("<0.8 <0.75 0.65>>" + 0.45)) -- TODO: Electric velocity
+  # gain (slow 8 ("<1 <0.9 0.8>>" * 0.35))
+
+
+-- SANDBOX
+
+once $ note "e"
+# s "superpiano"
+# velocity 0.8
+
+
+d8 -- Cuivre Lancinant
+  $ note "~ <<c5 e5> c5'min'2>/2"
+  # "brass:12"
+  # legato 2
+  # pan 0.7
+  # gain (slow 4 $ range 0.15 0.35 perlin)

live/noise/omondi_no_more.tidal

+resetCycles
+
+
+do
+let tilt = pF "tilt"
+setcps (80/60/4)
+solo 1 -- beat
+solo 2 -- break
+solo 4 -- Bass/tremolo aigu telephone
+solo 5 -- Epiano féérique
+unsolo 6 -- O?ONDI
+solo 10 -- Noise phonique
+d1
+  $ sometimesBy "0 0.25!6 0.5" (off "s" ((|* gain 0.9) . (# lpf 500)))
+  $ whenmod 16 8 (juxBy 0.5 rev)
+  $ n "0(<1!3 [1|3]>,8) . 0(<3!3 5>,8)"
+  # "[reverbkick,jazz]"
+  # lpf 5000
+  # gain 0.8
+d2
+  $ juxBy 0.125 (# crush 5)
+  $ slice 4 (
+    whenmod 16 10 (<| "0*8") $
+    whenmod 16 8 (<| "0(5,8)")
+    "0 1*<1!6 2 4> 2 <1!3 3>"
+    )
+  $ loopAt "<1!14 2!2>" $ "break:1"
+  # gain 0.6
+  # cut 1
+d4
+  $ whenmod 32 16 (superimpose (
+    arp "downup <down up>"
+    . ply 2 . fast "<2!3 [2 4]>"
+    . (# octave 7)
+    . (# gain 0.7)
+  ))
+  $ note ("c3'maj <c3'maj!4 c3'min!2> <c3'maj!3 f3'maj>")
+  <| note "0*<4!2 5>"
+  # s "bassWarsaw"
+  # gain 0.75
+d5
+  $ whenmod 64 32 (
+    segment "<1!3 0.5 1!3 0.5 1!3 0.5 1!3 0.5 1!3 2!3 4!2 8>"
+    )
+  $ whenmod 24 16 (fast "1 . <1!4 2!2 4 2>")
+  $ loopAt 2
+  $ "fepiano:11"
+  # cut 7
+  # gain 0.48
+d6
+  $ often rev
+  $ slice 32 (
+    rev $ run (2 * 128 * 8)
+    -- run "<8 <16 32>>" -- Level up7
+    -- run 16 -- INTRO
+  )
+  $ (striate 32 $ s "bogdan:11")
+  |- begin "0.015"
+  |+ end "0.0015"
+  # tilt 0.5
+  # gain 0.8
+d10
+  $ superimpose (const
+      -- $ superimpose ((|- octave (slow 4 $ "<1 2 3>"))
+      -- . (|* gain 0.5))
+      $ note "f5'maj . e5'maj(3,8)"
+      # "glitch:5"
+      # gain 0.5
+      )
+  $ fix (# gain 0.4) (n 2)
+  $ fix (# gain 0.5) (n 1)
+  $ n (stack ["1*4",
+  "~ 2(<1 [3|5]>,8)"
+  ]) # "glitch" # pan (range 0.25 0.55 perlin)

live/techno/balais.tidal

+-- Balais metallique, menage en musique!
+resetCycles
+
+do
+solo 1 -- Kick
+solo 2 -- Claps
+solo 3 -- Balais
+solo 4 -- Space
+solo 5 -- Basse
+solo 6 -- Juno Metal !
+let mKick = "<t [f!3 t] t!10 f!3 t>"
+let mClaps = "<f!4 t!8 f!3 t>"
+let mBalais = "<t!4 f [f t?] [t f?]!2 t!4 f!3 t>"
+let mJuno = "t" -- "<f!8 t!16 [<f t> f .  t]!4>"
+let mel = "<c'maj!3 c'min c'min!3 c'maj>"
+d1
+  $ mask mKick
+  $ fast "<2!2 4!14>"
+  $ "k" # "jazz" # gain 0.85
+d2
+  $ mask mClaps
+  $ juxBy "0.4" ((1/64) ~>)
+  $ fast 2 $ s "~ clap"
+  # lpf 4000
+  # gain (slow 16 $ range 0.6 0.8 saw)
+d3
+  $ mask mBalais
+  $ juxBy 0.35 rev
+  $ "b(3,8,<3!4 5!4>)" # "bend"
+  # dry 0.95 # sz 0.8 # room 0.9
+  # gain (slow 4 $ range 0.6 0.8 cosine)
+d4
+  $ mask "<t f!3 t!2 f!2 t!6 f t>"
+  $ superimpose (
+    (stut' 4 (slow 4 $ "<h q e s>") (|* gain 0.9))
+     . (# octave 6)
+  )
+  $ note (mel)
+  # s "hoover"
+  # octave 4
+  # gain "<0.45!32 0.35!32>"
+  # pan 0.6
+d5 -- Basse
+  $ note ("c'maj c'maj(<1 3>,<8 4>)" |+ mel)
+  # "supersaw"
+  # octave 3
+  # voice 0.1
+  # gain 0.35
+  # pan 0.3
+d6
+  $ mask mJuno
+  $ whenmod 128 104 (# n 1)
+  $ whenmod 128 96 ((# n 8) . (|* gain 0.9)) -- Aigu
+  $ whenmod 128 80  (# n 7) -- METTALIZE
+  $ whenmod 128 64  (# n 4) -- Metallique
+  $ superimpose ((|- note 12) . (|* gain 0.9))
+  $ off "e" (|+ note "<0!4 7 5 3 0>")
+  $ note (scale "aeolian" "0 ~ 2 <4 5 4 3>")
+  # "juno:1"
+  # gain 0.55
+  # pan "<0.6!24 0.65 0.7 0.75!2 0.7 0.65 0.6>"

live/techno/funk/ant.tidal

@@ -6,9 +6,10 @@ do
   setcps 0.5
   unmute 1 -- Kick
   unmute 2 -- Contre-claps
-  unmute 3 --
+  unmute 3 -- Breakbeat
   unmute 4 --
-  unmute 5 --
+  unmute 5 -- Gong
+  unmute 6 --
   d1
     $ dGlob
     $ whenmod 64 32 (slow "<4!16 2!16>")
@@ -17,6 +18,7 @@ do
     $ fast "<4!3 [4|2]>"
     $ s "[jazz,cpu2]" # gain 0.7
   d2
+    $ mask "<t f>"
     $ fast 2
     $ dGlob
     $ "~ . <c!3 c*2>" # "clap"
@@ -30,7 +32,7 @@ do
    $ bite 8 "0 1 2 <3 5>(3,8)"
    $ loopAt 2 $ "break"
    # cut 3
-   # gain 0.5
+   # gain 0.7
   d4 -- Moog lead
     $ dGlob
     $ jux rev
@@ -48,7 +50,7 @@ do
     # note (slow 4 $ "<c'maj c'min>")
     # octave (slow 8 $ "<4 5>")
     # room 0.4 # sz 0.4
-    # gain 0.55
+    # gain 0.5
   d6
     $ dGlob
     $ mask "t(<1!2 2!2 4!4 8!24>, 8)"

live/techno/funk/bbass.tidal

+do
+setcps 0.55
+d1
+  $ whenmod 32 16 (mask "<f!8 [f|t]!4 t!4>")
+  $ juxBy 0.25 rev
+  $ slow "<1!4 2 4 8 8>"
+  $ "k k k k"
+  # "[jazz,techno]"
+  # gain 0.6
+d2
+  $ every' 4 3 (often $ off "e" id)
+  $ "~ cp"
+  # gain (slow 16 $ range 0.5 0.9 saw)
+  # room 0.2
+  # dry 0.95
+  # lpf 2000
+d3
+  $ whenmod 32 8 (degradeBy "0 0.5!6 0")
+  $ whenmod 32 28 (# djf "<0.4 0.5 0.6 0.8>")
+  $ juxBy 0.5 rev
+  $ "d(<1!3 [1|2]>,4) d(4,4)"
+  # "amencutup" # n "<4!4 5 6 7 4>"
+  # gain 0.65
+d4
+  $ whenmod 128 64 (|* gain (slow 64 $ range 1 0.2 isaw))
+  $ slice 4 (cat
+    [
+      "<0!4 1 2 3 1!4 2!4 3!4 [0 1]!2 [1 2]!2 [2 3]!2 [3 0]!2>(<3 3 2 1>,8)"
+    ]
+  )
+  $ loopAt 4 $ "fbass:42"
+  # cut 4
+  # gain 0.6
+d5
+  $ note (scale "phrygian" "<0!4 7 0!3> <~ <3 5>>")
+  # n "0"
+  # "moog"
+  # gain 0.5
+  # cut 5