live: from rhadamanthe to pixels roses

live/collab/rhadamanthe.tidal

+
+do
+setcps (135/60/4)
+let f1 = (# djfbus 1 (range 0.15 0.85 "^49"))
+let f2 = (# djfbus 2 (range 0.15 0.85 "^29"))
+let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
+let m = mBreak
+let modIndex = pF "modIndex"
+d1 $ f1
+  $ midiOn "^42" (fast 2)
+  $ "[cpu,jazz]*2"
+  # midiG' "^78" 0 1.8
+d2 $ f1 $ mask "<t!16 f!8 t!8>"
+  $ "~ c ~ c*<1 2>"
+  # "electro1"
+  # n "<2!3 <3 3 2 3>>"
+  # midiG' "^79" 0 1.8
+d10 $ mask "<f!8 t!8>" $ "~ <c c [c . c*2] c>" # "clap"
+  # lpf 1500
+  # midiG' "^79" 0 1.8
+d9 $ mask "<f!8 t!8>" $ "~ <~ c [c . c*2] c>" # "h2ogmhh"
+  # midiG' "^79" 0 1.2
+d3 $ f2 $ "d*[8 <8 <[8 4] 16>>]" # "drum:2"
+  # midiG' "^80" 0 1.8
+d4 $ f1
+  $ whenmod 16 8 (superimpose (|+| note (
+    "0 12*<1!3 2> <0 12> 0?"
+    + 12
+  )))
+  $ note (scale "aeolian" "<0 3 5 7>")
+  # "moog"
+  # crushbus 4 (range 16 2 "^53")
+  # cut 4
+  # pan 0.2
+  # midiG' "^81" 0 1
+d5 $ f2
+  $ whenmod 16 8 (superimpose (|+| note (
+    "0 12*<1!3 2> <0 12> 0?"
+    - 24
+  )))
+  $ note (scale "aeolian" "<0 3 5 7>")
+  # "FMRhodes1"
+  # modIndex (range 0 100 "^54")
+  # cut 5
+  # room 0.4
+  # dry 1.5
+  # sz 0.8
+  # pan 0.8
+  # midiG' "^82" 0 1.8
+
+
+once
+  $ "electro1:2"
+
+
+
+do
+let g = (# djf "^49")
+d1 $ g $ "jazz*4"
+  # gain (slow 8 $ range 0.5 1 sine)
+d2 $ g $ "~ cp"
+d3 $ g $ n "0(3,8)" # "amencutup"
+--
+
+do
+let modIndex = pF "modIndex"
+once $ note "c4"
+  # "FMRhodes1"
+  # gain 2.5
+  # att 0.1
+  # rel 0.9
+  # modIndex 100

live/dub/tubby_study.tidal

-setcps (90/60/4)
 
 -- Study Tubby: See https://www.pure.ed.ac.uk/ws/portalfiles/portal/15441495/Tubbys_Dub_Style.pdf
 -- TODO:
@@ -6,16 +5,16 @@ setcps (90/60/4)
 -- HMIX: Mix Hfiltered global with dry to interfere
 
 do
-let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
-let f2 = (# djfbus 2 (range 0.05 0.99 "^29"))
+setcps (90/60/4)
 let f3 = (# djfbus 3 (range 0.05 0.99 "^13"))
+let f2 = (# djfbus 2 (range 0.05 0.99 "^29"))
+let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
 d1 $ f1 -- Kick classic runner 4/4 <-> dub rhythm
   $ midiOn  "^41"  (<| "k k k <k [<~ k> k]> k k k <k k*2 k [~ k]>")
   $ midiOff "^41" (<| "k . k([<3 1 3 3> <1 3>],8)")
   $ "[ab:5,jazz]"
-  # lpf 3000
   # legato 0.8
-  # midiG' "^78" 0 0.8
+  # midiG' "^78" 0 1.2
 d2 $ f1  -- snare contretemps
   $ whenmod 16 12 (fast 2)
   $ mask "<f!4 t!28>"

live/funky_veranda.tidal

@@ -2,7 +2,7 @@ resetCycles
 
 do
 setcps (60/60/4)
-let whenPontHPF = ()
+let whenPontHPF = (whenmod 64 32)
 d1
   $ whenPontHPF (# silence)
   $ mask "t <t!3 f>"

live/hip/chaude_civ.tidal

@@ -2,6 +2,8 @@
 -- Breakbeat bassline diphonique
 resetCycles
 
+d1 $ "<bd sd>"
+
 do
 setcps (90/4/60)
 d1 -- Kick base chaloupé ?
@@ -10,7 +12,7 @@ d1 -- Kick base chaloupé ?
   # "reverbkick"
   # room 0.1 # sz 0.1
   # gain (slow 32 $ range 0.5 0.7 saw)
-d2 -- Breakbeat
+d2 -- Breakbeat # FIXME WHICH fbreak WAS IT? :sweat:
   $ mask "<f!8 t!4 t f [f t]!2 t!3 f>"
   $ slice "<8!12 4 4 2 [4 . 8 4]>" ("<0!3 4>" + "0 1 2 3")
   $ loopAt 2

live/hip/instru/pixels_roses.tidal

+do
+resetCycles
+setcps (60/60/4)
+let modIndex = pF "modIndex"
+let gF1 = (someCyclesBy "<f!12 t!4 f!112>" (# djfbus 1 (slow 4 $ range 0.5 0.02 saw))) -- Intro DJF
+let gF2 = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.2 saw))) -- Parts DJF
+let gF = gF1 . gF2 -- Global filter
+let gM1 = (whenmod 16 8 (whenmod 8 7 (mask "t(<3 [3 4]>,4)")))
+let gM2 = (whenmod 32 16 (whenmod 16 12 (mask "t t <f t> <f f t f>")))
+let gM3 = ((someCyclesBy "<f!32 t!8>" (mask "<f f t t> <f t t t> <f t> <f f t f>")))
+let gM = gM1 . gM2 . gM3 -- Global mask
+let fadeOut = (whenmod 128 120 (|* gain (slow 8 $ range 1 0.5 saw)))
+-- d11 $ slow 8 $ n (run 8) # "numbers" # gain 0.35
+d1
+  $ gF $ gM $ fadeOut
+  $ mask "<f!5 t!27>" -- Orchestration
+  $ "<k [k k ~!6 . ~]>"
+  -- $ "<k [k . [~!3 . k*<2 2 1 <2 1>> [<k*<2!5 1 1 2> [~ k]> <k!3 [~ k]>]]]>" -- FIGHT NOW
+  # "[reverbkick,jazz]"
+  # room 0.8
+  # dry 1
+  # gain 0.9
+  # lpf 2000
+d2
+  $ gF $ gM $ fadeOut
+  $ mask "<f!8 t!24>" -- Orchestration
+  -- $ "~ <~!8 s!8> ~ <s!3 <<s [~ s]> s*2>>" -- Snare rhythm instictif
+  $ "~ s" -- Snare rhythm minimaliste tarba
+  # "[sn:13,snare:20,snare:45]"
+  # pan 0.6
+  # gain 0.8
+d3-- Drumroll
+  $ gF $ gM $ fadeOut
+  $ mask "<f!3 [f!3 t] t!28>" -- Orchestration
+  $ fast "16 24 . 8 <16 <32 [32 16]>>"
+  $ "[drum:2,cpu:4]"
+  # gain 0.7
+  # pan 0.2
+d4 -- Main theme choir
+  $ whenmod 128 64 ( -- Second part more instrumental
+    (|* gain (slow 64 $ range 1 0.45 saw))
+  )
+  $ someCyclesBy "<t!8 f!56>" -- intro mask
+  (
+    (|* gain (slow 32 $ range 0.64 0.9 saw))
+    . (mask "t t <f!2 t!2> <f!3 t> t t <f!4 f!4> <f!6 t f>")
+  )
+  -- $ sometimesBy (slow 16 $ range 0 0.33 saw) -- Echo
+  $ always -- Echo
+  (juxBy 0.2 (
+    (# rel (range 0.4 1 perlin))
+    . (|+ pan 0.1)
+    )
+   . (|* gain 0.74) -- Compensate echo loudness
+  )
+  $ note "<gs <<es es c es>!2 g!2>>*8"
+  # "moogBass"
+  # pan 0.8
+  # room (slow 8 $ range 0.5 0.8 saw)
+  # sz 0.76
+  # dry 2.2
+  # rel (0.45 + 0.2 * perlin)
+  # gain (slow 16 $ range 0.7 0.8 saw)
+d5 -- Support bassline
+  $ gF
+  $ mask "<f!7 [f!3 t] t!24>" -- Orchestration
+  $ whenmod 64 48 ( -- Crushed outro
+    (# crushbus 50 (slow 16 $ range 10 2.5 saw))
+    . (|* gain     (slow 16 $ range 1  0.8 saw))
+  )
+  $ note (
+    "0(3,8) 0*<8!3 4>" |+| "<gs <<es es c es>!2 g!2>>*8"
+    - 24)
+  # "bassWarsaw"
+  # pan 0.25
+  # room 0.8
+  # gain 0.7
+d6 -- RHODE ELECTRIC ARPS bassline
+  $ gF $ gM
+  $ mask "<t!120 f(<3!3 <2 4>>,4)!8>" -- Outro
+  $ mask "<f!16 t!8 f!8 t!32>" -- Orchestration
+  $ whenmod 64 20 (superimpose (
+    whenmod 8 4 (mask "t f . t(<1 3 5 7>,8)")
+    -- . degradeBy (slow 32 $ "0 1!14 0" * (range 0.9 0.05 saw))
+    . (arp "up")
+    . (|+ note "<<c'maj'2 c'maj'4> c'maj'4 <c'min'4 c'min'2> c'maj'4>")
+  ))
+  $ note (
+    "<gs <<es es c es>!2 g!2>>*8"
+    - 12
+  )
+  # "FMRhodes1"
+  # modIndex (slow 16 $ range 1 15 perlin)
+  # room 0.4
+  # sz (0.28 + 0.2 * perlin)
+  # gain (slow 16 $ range 0.67 0.89 cosine)
+  # pan 0.8
+d8 -- Breakbeat for ya
+  $ gF $ gM
+  $ mask "<f!16 t!48>" -- Orchestration
+  $ degradeBy (slow 32 $ range 0.05 0.9 sine)
+  $ loopAt 2
+  $ slice 16 ((sometimes (ply "2 <4 <8 [8|16]>>")) $ run "<16!6 8 <8 16>>")
+  $ "break"
+  # cut 8
+  # pan 0.7
+  # gain 0.57
+d9 -- Bones NOISE
+  $ gF $ whenmod 128 8 (gM)
+  $ slice 4 (run "<1 <1 2> 4 4> <2 2 4 <4 8>>")
+  $ "igor:0"
+  # begin (0.1 * perlin)
+  # end (slow 4 $ range 0.85 1 perlin)
+  # cut 9
+  # room 0.3
+  # sz 0.3
+  # dry 0.9
+  # gain (slow 64 $ range 0.7 0.35 saw)

live/hip/lofi/sete_et_match.tidal

 resetCycles
 
-
-once $ "dr"
-# gain 1
+-- Soleil de Sete - LoFi avec accompagnement
 
 -- TODO:
 -- Add lead - or use it to improvise? <3
@@ -21,16 +19,16 @@ d1 $ g
   $ mask "<f!6 t f t!24>"  -- Intro mask
   $ "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]"
   # "[bd:2,kick:5]"
-  # gain 0.9
+  # gain 0.76
   # legato 2
   # att 0.1
   # rel 0.8
 d2 $ g -- Aerian snare
-  $ mask "<t!16 f!3 t t!12>" -- First break
+  -- $ mask "<t!16 f!3 t t!12>" -- First break
   $ mask "<f!12 t!4 f!5 t!13>" -- Snare mask
   $ n "~ <~!3 [~!3 <10 10?>]>. 9"
   # "sn"
-  # gain 0.85
+  # gain 0.8
   # pan 0.6
   # lpf 1500
 d3 $ g2
@@ -39,7 +37,7 @@ d3 $ g2
   # "drum:2"
   # pan 0.35
   # dry 1.1 # room 0.5 # sz 0.8
-  # gain (slow 8 $ range 0.4 0.5 saw)
+  # gain (slow 8 $ range 0.45 0.65 saw)
 d5 $ g -- BREAKBEAT BUDDY
   $ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break
   $ mask "<f!8 t!14 f f t!16>"
@@ -59,20 +57,21 @@ d4 $ g2
     - 24
   )
   # "FMRhodes1"
-  # gain (slow 32 $ range 0.48 0.66 saw)
+  # gain (slow 32 $ range 0.66 0.8 saw)
+  # sz 0.9
   # room 0.4
 d6 $ g
-  $ mask "<f!4 f!12>"
-  $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin)))
+  $ mask "<f!8 t!8 f!4 t!12>"
+  -- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin)))
   $ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]"
     |+ chordsMin
     - 24
   )
-  # "supersaw"
-  # voice 0.1
+  # "bassWarsaw"
   # pan 0.3
   # hpf (range 0 500 perlin)
-  # gain 0.5
+  # gain (slow 16 $ range 0.54 0.6 sine)
+  # room 0.4
 d5 $ g -- BREAKBEAT BUDDY
   $ mask "<t!16 f!4 t!12>" -- First break
   $ mask "<t!32 f!12 t!20>" -- Post-filter break
@@ -84,4 +83,4 @@ d5 $ g -- BREAKBEAT BUDDY
   $ loopAt 2
   $ "fbreak100"
   # pan 0.85
-  # gain 0.78
+  # gain 0.7

live/midi/nova/computer_riddim.tidal

@@ -93,7 +93,7 @@ d6 $ g $ gDelay-- Skank Hammond
   $ note (("[0 12 0 <~!6 12!2>]" |+ (slow 2 chords)))
   # "superhammond"
   # gM' 0 0.8 ("[0 0.25 0 0]" |+ "^82" * (range 0 0.9 "^34"))
-  # voice 6
+  # voice 4
   # octave 6
   # pan 0.74
   # sustain 0.25

live/midi/nova/instruments/AtomicRhodes.tidal

 resetCycles
 
-
 do
 let gFactor = 1.2
 let gG a = (gain (gFactor * "^77" * a)) -- gain Global
@@ -20,7 +19,7 @@ let mix = pF "mix" -- 0.2
 let gMix = ((# mix (range 0 20 "^78")) . (|* gain (range 1 0.88 "^78")))
 let gMod = ((# modIndex (range 0.2 100 "^79")) . (|* gain (range 0.8 0.58 "^79")))
 let gArp = (stutWith 4 "e" (sometimesBy (range 0.125 0.875 "^50") ((|+ freq 110) . (|* gain 0.95))))
-let gRemix = ((novaOn "^41" (|- note 12)) . (novaOn "^42" $ ply 4) . (novaOn "^43" $ striate 2))
+let gRemix = ((novaOn "^41" (|- note 24)) . (novaOn "^42" $ slow 4) . (novaOn "^43" $ striate 2))
 let n1 = novaOn "^73" (|+ note 5)
 let n2 = novaOn "^74" (|+ note 7)
 let n3 = novaOn "^75" (|+ note 12)
@@ -37,8 +36,8 @@ d1 $ g
   $ degradeBy (1 - "1 ^49!15")
   $ off "h" id
   $ "FMRhodes1"
-  # gain (range 0.3 1.5 "^77")
   # inputLevel 0.1
+  # gain (range 0.3 1.8 "^77")
 d2 $ gA $ whenmod 32 24 (slow 2) "[jazz,techno]*4" # gain 0.57
 d3 $ gA
   $ whenmod 16 8 (fast 2) "hh(<4 3 5>,8)"
@@ -47,7 +46,7 @@ d3 $ gA
   # gain (range 0.45 0.85 "^83")
 d4 $ gA
   $ novaOff "^60" (# silence)
-  $ novaOn "<^92!3 1>" (off "e" id)
+  $ novaOn "^92" (fast 2)
   $ "~ clap"
   # lpf 2000
   # gain (range 0 0.75 "^84")

live/midi/nova/party/electro_blues.tidal

@@ -2,33 +2,35 @@ resetCycles
 
 -- Electro-jazz grille du blues snakish
 do
-setcps (80/60/4)
+setcps (70/60/4)
+let f2 = (# djfbus 2 (range 0.1 0.9 "^29"))
 let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
-let f2 = (# djfbus 1 (range 0.1 0.9 "^49"))
-let f3 = (# djfbus 1 (range 0.1 0.9 "^49"))
 let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
 let chord = "c'maj"
 let chordAug = "c'maj'8"
 d1 -- Kick rarement doublé
   $ f1
   $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
-  $ midiOn  "^42" ((<| "k*4") . (superimpose (# "kick:5")))
+  $ midiOn  "^42" ((<| "k*4") . (superimpose (# "909")))
   $ midiOff  "^42" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)")
-  $ "super808"
+  $ "jazz"
+  # legato 2
+  # room 0.2
   # midiG' "^78" 0 1.1
 d2 $ f1
-  $ midiOn  "^43" (fast 2)
+  $ midiOn "^43" (fast 4)
   $ "~ [jazz:4,cp]"
-  # hpf (range 0 10000 perlin)
+  # hpf (slow 4 $ range 0 10000 perlin)
   # room 0.6  # sz 0.6 # dry 0.99
-  # midiG' "^79" 0 1.2
+  # midiG' "^79" 0 1.9
 d3 $ f1 -- Snakes
   $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
   $ juxBy (slow 8 $ range 0.1 0.9 sine) rev
   $ fast 2
   $ "s . s <s!3 ~> <~!3 s>"
   # "hh*6"
-  # midiG "^80"
+  # pan 0.7
+  # midiG' "^80" 0 1.5
 d4 $ f2
   $ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
   $ midiOn "^57" (juxBy 0.2 (
@@ -41,11 +43,11 @@ d4 $ f2
     -- . (|+ note 12)
   ))
   $ note (
-    cat blues + chord
+    cat blues
     - 24
   )
   # "bassWarsaw"
-  # pan 0.75
+  # pan 0.3
   # room 0.1
   # voice 0.8
   # crushbus 41 (range 10 3 "^53")
@@ -54,11 +56,10 @@ d5 $ f2 -- Choeurs
   $ juxBy 0.5 (
   (0.5 ~>) . midiOn "^58" (superimpose (
     arp "<converge!8 diverge!4>"
-    . (|+ note chordAug)
+    . (|+ note ("[0,12]"))
     . (|+ pan 0.05)
     -- . (|* gain 0.85)
     )
-  . (|+ note 12)
   . (|* gain 0.95)
   . (# legato 0.5)
   . (|+ pan 0.05))
@@ -75,5 +76,5 @@ d9 $ f1
   $ midiOff "^60" (slice 8 (run ("<8!4 16 [8 . 32 16] [8 . 16 8] [8 4]>"))) -- Decroissance
   $ "fbreak80"
   # cut 42
-  # midiG' "^84" 0 1.4
+  # midiG' "^84" 0 1.8
   # pan 0.3

live/techno/remember.tidal

+do
+setcps (120/60/4)
+let gF = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.08 sine)))
+d1 -- Kick it
+  $ mask "<f!8 f t!7 f t!3 [f t] t!3 [t f] t!8>"
+  $ gF
+  $ superimpose ((# "909") . (# att 0.2) . (# rel 0.2))
+  $ "k k k <k [<~ k> k]>"
+  # "jazz"
+  # lpf 2000
+  # gain 0.65
+d2 $ gF -- Balance it
+  $ sometimesBy "<0 0.1 0.1 0.25>" (degradeBy "0 0.1!7")
+  $ "~ [s <~ <s [~ s]>> . <~!3 s*<1 2>>]"
+  # "electro1:3"
+  # gain (
+    slow 16 $ range 0.4 0.7 saw
+    + 0.1 * perlin)
+  # pan 0.8
+d3 $ gF -- Clap it
+  $ "~ <c!3 ~ ~ [c? c]>"
+  # "[cp,house:4]"
+  # gain 0.5
+  # lpf 2000
+  # room 0.5
+  # dry 1
+  # pan 0.8
+d4 $ gF -- Zip it.
+  $ juxBy 0.2 id
+  $ note "0 <~!4 1!4> ~ [2 <2 ~> <2 ~ 2*2 [~ 2]> 2]"
+  # "invaders:0"
+  # gain 0.4
+  # pan 0.7
+d5 -- Log it...
+  $ mask "<f!3 t f!2 t!2 t!8 f!8 t!8>"
+  $ always (superimpose ( -- Burn IT!
+    (# crushbus 5 (slow 16 $ range 12 7.5 (isaw + perlin / 8)))
+    . (# room 0.4)
+    . (|- note 12)
+    . (|+ pan 0.28)
+    . (|* gain 0.68)
+  ))
+  $ note (
+    "0 <~!4 0!4> ~ [0 <0 ~> <0 ~ 0*2 [~ 0]> 0]" -- Layered Structure
+    + "0 1" -- Notes
+    - 24
+    )
+  # "bassWarsaw"
+  # pan 0.2
+  # att 0.07
+  # rel "0.3!3 <0.3!3 <0.6 1>>"
+  # gain 0.7
+d10 $ gF -- Roll it ->
+  $ fix (
+    (# note (scale "aeolian" ("0 1 2 4 5 <7 4 7 4 7 4 4 4>")))
+    . (|* gain 0.85)
+    . (# pan 0.85)
+    )
+    (n 7)
+  $ fix (
+    degradeBy "0 <0.1!2 <q <h e>> 0.05>!6 0"
+    . (|* gain (slow 16 $ range 0.5 0.79 saw))
+    ) (n 5) -- Metalic long hats
+  $ n (stack [
+    "[4 4*<1 2 4 8> 4*<2 4 4 2> 4*<2 4>]",
+    "5*[8 <8!7 16 8!4 16!4>]",
+    "7*[[4|8]!4 [8||<8 16>|<8!3 16>|16]!4]",
+    ""
+    ]) # "cpu"
+  # gain 0.8