live: pair nina punk

live/dub/steps.tidal

+-- Steps: Baby dub steps, trying out some delay
+-- TODO Elaguer pause delay piano drums only
+-- TODO Autre pause delay hammond
+
+resetCycles
+
+do
+let chords = "<e5 d5>"
+setcps (120/60/4)
+d1
+  $ "k . <k!16 ~!16> [~ <~ k>]" # "reverbkick" # lpf 1500
+  # gain 0.8
+  # release 0.8
+d2
+  $ fix (mask "f t") ("hh27:3")
+  $ superimpose (
+    sometimesBy "0 <0 0.2!3>!2 <0!3 [0 0.5]>" (fast 2)
+    . (<| "k*[8 <8!3 4>]") . (# n 2) . (# cut 31) . (|* gain 0.65)
+  )
+  $ "h h" # "hh27:3" # cut 3 # gain 1
+d4
+  $ juxBy 0.5 ((# cut 41) . (# octave 4))
+  $ struct "t*2 t . t*<2 [4 2] 4 [2 4]>"
+  $ note (arp "up . <up!3 downup>" (chords + "c'min7"))
+  # "bass3:1"
+  # cut 4
+  # room 0.15
+  # gain (slow 8 $ range 0.55 0.75 cosine)
+d5
+  $ every' 16 15 (# silence)
+  $ mask "<t!8 t f!7>"
+  $ every' 16 8 (
+    (|+ note 12)
+    . (# delay 0.75)
+    . (# delayfb 0.8)
+    . (# delaytime 1)
+  )
+  $ "~ p ~ p" # "superpiano"
+  # note (chords + "<c4'min a4'min>")
+  # room 0.3 # sz 0.6
+  # velocity 0.7
+  # gain 0.75
+d6 -- Skank Hammond
+  $ mask "<f!4 t!4 t f!3 t f f t t>"
+  $ mask "[<f!4 t?!4 t!4> <t? f!4 t!4> t?] . f <~!8 t!8> f f"
+  $ fast 2
+  $ note (("[0 12 0 <~!6 12!2>]" |+ (slow 2 chords)))
+  # "superhammond"
+  # gain (0.68 * "[1 0.85 1 0.85]")
+  # voice 6
+  # octave 6
+  # sustain 0.25
+d9
+  $ "hh*[8 . 8 8 <8 16> <8 8 4 16>]"
+  # gain "<0.5!4 0.7!4 0.6!4 0.7!4>"
+d7
+  $ note "<[2 . ~ <2!3 4>] [0 . <~ 0> <0 0 1 4>]>" # "brass:20"
+  # gain (slow 8 $ range 0.3 0.47 saw)
+  # pan 0.25 # room 0.3
+  # cut 7

live/midi/nova/dnb/BreakBass.tidal

@@ -27,44 +27,49 @@ let gDJF = (gLPF . gHPF)
 -- endregion Nova Utils
 let g = (gDJF . gReverb)
 let prog = "<1 1 2 4>"
-setcps (135/60/4)
--- resetCycles
+setcps (139/60/4)
+resetCycles
 d1 $ g
-  -- $ mask "<f!4 t!16 t!3 f f!4 t f!2 t!2>"
-  -- $ novaOn  "^42" (<| "k k k <k!2 k*2 [~ k]>")
-  -- $ novaOff "^42" (<| "k k . ~ k k ~")
-  $ novaOff "^42" (<| "k . ~ k ~ ~")
-  -- $ novaOff "^42" (<| "k*2")
+  $ mask "<f!3 t!125>"
+  $ someCyclesBy "<0!8 2 0!55>" (<| "k*12")
+  $ someCyclesBy "<0!6 2!2 0!56>" (<| "k*8")
+  $ someCyclesBy "<0!9 1!55>" (<| "k . ~ k ~ ~")
+  $ someCyclesBy "<1!9 0!55>" (<| "k*4")
   $ "reverbkick" # sus "0.25"
-  -- $ "[kick:2,kick:5,kick:9]" # sustain 0.5
   # gM' 0 1 "^78"
 d2 $ g
-  $ novaOn  "^75" (<| "k*8")
+  $ mask "<f!9 t!55>"
   $ "~ s ~ s*<1 2 1 1>"
   # "[snare:21,snare:22,snare:3]"
   # gM' 0 1.2 "^79"
   # note (range "-4" 12 "^51")
 d3 $ g
-  $ novaOn ("^76")  (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
+  $ whenmod 128 64 (
+    slice 8 (run 8) . (loopAt 1) . (>| "breaks165")
+    . (|* gain "<1.1!8 0.95!24>")
+  )
   $ "d*[8!3 <[8 . 8 4] [16 <4 16>]>]"
   # "[hh27,drum:2]"
   # gM' 0 1 "^80"
 d4 $ g
+  $ mask "<f!9 t!55>"
+  $ novaOn "^89" (chop 4)
   $ whenmod 16 8 (rev)
   $ slice 8 ("0(3,8)" + "0 <0 1!3>")
   $ "fbass:3"
-  -- # crush 5
-  # gM' 0 1 "^80"
+  # crush (range 10 4.5 "^53")
+  # gM' 0 1.1 "^81"
   # pan 0.2
   # cut 1
 d5 $ g
+  $ someCyclesBy "<1!64 0!64>" (# octave 4)
+  $ novaOn "^90" (scramble 4 . fast 4)
   $ slice 4 ("<0 1 2 3>")
   $ "fguitar:1"
-  # octave 4
   # pan 0.7
-  -- # crush 2
+  # crush (range 10 2 "^54")
   # room 0.2 # sz 0.8
-  # gain 0.8
+  # gM' 0 1.1 "^82"
   # cut 1
 
 

live/pair/be_my_punk.tidal

+do
+resetCycles
+setcps (80/60/4)
+d1 -- grosse caisse / caisse claire poum tchak
+  $ fix (# s "[bd,808bd]") (s "k")
+  $ fix (
+    whenmod 16 12 (fast "2 [4!3 8]")
+    . (# s "[snare:2,snare:49]")
+    . (|- note 2)
+    . (|* gain "<0!4 1!60>")
+  ) (s "s")
+  $ s "k s k s"
+  # gain 0.9
+d2 -- charley double croche
+  $ mask "<f!4 [t f]!3 t!20>"
+  $ s "[hh,h2ogmcy:1]*[16 <16!3 32>]"
+  # release 0.7
+  # note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
+  # pan (slow 16 $ range 0.35 0.65 sine)
+  # gain 0.9
+d3
+  -- $ superimpose ((|* speed 2) . (# cut 31)) -- Chipmunk
+  $ whenmod 64 32 (
+    sometimesBy "0 <1 1 0 1>" ((# delay 0.75) . (# delayfb "<0 0 0 0.75>") . (# delaytime "h"))
+    . slice 16 "<[14 15] [14 15] [12 13] [14 15]>"
+  )
+  $ someCyclesBy "<1!32 0!32>" (
+    slice 8 (run "<8!4 4 4 8 4 2 2 8 2 1!4 1!48>"))
+  $ whenmod 16 12 (# hpf 5000)
+  $ "nina/4"
+  # pan 0.4
+  # gain 1.25
+  # cut 3
+d4
+  $ mask "<f!8 t!56>"
+  $ someCyclesBy "<1!4 0!4 1!6 0!2>" (
+    (# lpf 1000)
+    . (|* gain "<1!3 1.15 0!4 1!4 1.1 1.15 0!2>") -- Fade out up
+  )
+  $ superimpose (
+    (# crush (slow 8 $ range 2.5 8 sine))
+    . (# cut 41)
+    . (|* gain 0.85)
+  )
+  $ slice 2 "<0 0 1 1>"
+  $ "punk"
+  # pan 0.8
+  # gain 0.8
+  # cut 4
+
+
+
+
+once
+  $ slice 8 ("7") $ "nina/4" # gain 1.3 # cut 4
+
+
+
+once
+  $ slice 4 0
+  $ "punk:2" # cut 5
+
+-- TODO: TECHNOPUNK!!1!
+do
+setcps (130/60/4)
+d1 $ "jazz*4" # gain 1.15
+d2 $ "~ cp" # lpf 2000 # gain 1.5 # room 0.5 # dry 0.99
+d3 $ "hh*16" # gain 1.6
+d4
+  $ loopAt 2
+  $ "punk"
+  # crush (1.5)
+  # pan 0.8
+  # gain 0.95
+  # cut 4