etapes

live/midi/nova/fusion/elephunk.tidal

+import Sound.Tidal.ParVagues.Control
+
 do
--- resetCycles
--- setcps (92/60/4)
-let gain p = gain (1.5 * p)
-let gFadeIntro = someCyclesBy "<t!8 f!56>" (|* gain (slow 8 $ range 0 1 saw))
+resetCycles
+setcps (92/60/4)
 let patFunk = "ds gf f <bf4!3 bf>"
 let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw))
 let gPont = whenmod 64 32 (mask "<f!6 t!26>")
-let g = (gDJF)
-d1 $ g $ gFadeIntro $ gPont
+let g = gDJF
+d1 $ g $ gPont
   $ mask "<f!4 t!60>"
   $ "[bd,jazz]*4" # room 0.1
-  # gain 0.45
 d2 $ g $ gFadeIntro $ gPont $ mask "<t(1,2)!4 t!60>"
   $ "~ c ~ c" # "[clap]" # gain 0.4
 d3 $ g $ gPont

live/midi/nova/fusion/etapes.tidal

+do
+setcps (120/60/4)
+let g = midiDJF "^49" 200 9800 0 6000
+let modIndex = pF "modIndex"
+d1 $ g
+  $ midiOn "^41" (<| "k*4")
+  $ midiOff "^41" (<| "k ~ k <~!3 [~ k]>")
+  $ "[cpu2,jazz]"
+  # midiG' "^78" 0 1.5
+  # room 0.1 # sz 0.2 # dry 1
+  # release (0.24 + (slow 4 perlin)/4)
+d2 $ g
+  $ fast 4
+  "~ hh*<1 1 <2 [2 1] [1 2] 1> 1>"
+  # midiG "^79"
+d3 $ g
+  $ note (
+    "<df4 a3>(<3!8 4!8>,8,<0!6 2 2>) <b3!3 e4>*<1 1 1 2 2 2 4 [4 8]>"
+    - 12
+  )
+  # "bassWarsaw"
+  # pan 0.3
+  # crush (range 10 1.5 "^53")
+  # midiG' "^81" 0 1.5
+d4
+  $ g
+  $ midiOn "^44" (slow 2)
+  $ midiOn "^76" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")))
+  $ midiOn "^41" (<| "k*4")
+  $ loopAt 1
+  $ slice 8 ("0 1 2 3 4 5 6 7"
+             |+| "0 . 0 0*<1!6 2 4>" -- Surplus /8
+             - "0 . <0!3 4>" -- Lag /4
+             )
+  $ "breaks125"
+  # midiG "^80"
+d5
+  $ g
+  $ midiOff "^41" (mask "t(<2 4 8 <8 16>>,16)")
+  $ midiOn "^58" ( -- Arps
+    superimpose (
+    struct "t(<8!4 12!4 16!4 16!2 <16 32>!2>,8)" .
+    arp "up . <up up down speedupdown>"
+    . (|+ note "12 0")
+  ))
+  $ note (
+    "<df4 a3> <b3!3 e4>" + "12*[4 8]"
+    + "<c'maj!2 c'min c'maj'>" -- Accords!
+    + "<0!3 12> <12!3 0>(3,8)"
+    + "[0,12]"
+    - 24
+  )
+  # "FMRhodes1"
+  # modIndex 5
+  # midiG "^82"
+  # room 0.5 # sz 0.8
+  # hpq (range 0 0.5 "^34")
+  # crush (range 10 4.5 "^54")
+d8 -- Hold on?
+  $ g
+  $ fix (# pan 0.62) (cut 81)
+  $ whenmod 16 12 (midiOn "^59" $ scramble 4)
+  $ whenmod 64 16 (chop 16)
+  $ mask "<t f!3 t f!3 t f!3 t!4>"
+  $ "daft"
+  # cut "[8|8|8|8|81]"
+  # room 0.7
+  # midiG "^83"
+  # pan 0.8
+  # crush (range 10 4.5 "^55")
+  # hpq 0.5
+  # sz 0.7
+
+once $ "daft" # gain 0.5