From f0d10c31782dc7fd96c4885d188e52a865741305 Mon Sep 17 00:00:00 2001
From: PLN <pln@PLN-THINK-DEB>
Date: Wed, 10 Mar 2021 16:40:18 +0100
Subject: [PATCH] live: pair nina punk
---
live/dub/steps.tidal | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
live/midi/nova/dnb/BreakBass.tidal | 35 ++++++++++++++++++++---------------
live/pair/be_my_punk.tidal | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3 files changed, 155 insertions(+), 15 deletions(-)
create mode 100644 live/dub/steps.tidal
create mode 100644 live/pair/be_my_punk.tidal
diff --git a/live/dub/steps.tidal b/live/dub/steps.tidal
new file mode 100644
index 0000000..6696dd2
--- /dev/null
+++ b/live/dub/steps.tidal
@@ -0,0 +1,60 @@
+-- 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
diff --git a/live/midi/nova/dnb/BreakBass.tidal b/live/midi/nova/dnb/BreakBass.tidal
index d9d892e..665290a 100644
--- a/live/midi/nova/dnb/BreakBass.tidal
+++ b/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
diff --git a/live/pair/be_my_punk.tidal b/live/pair/be_my_punk.tidal
new file mode 100644
index 0000000..1f2f1a4
--- /dev/null
+++ b/live/pair/be_my_punk.tidal
@@ -0,0 +1,75 @@
+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
--
libgit2 0.27.0