From 154ca23d39c70c9781598d3e880f4823af0dbd42 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Wed, 27 Oct 2021 23:06:37 +0200
Subject: [PATCH] save: Igor studio, sables mouvants
---
copycat/bad_guy.tidal | 10 +++++-----
copycat/sables_mouvants.tidal | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
live/collab/igor/hello_studio.tidal | 154 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3 files changed, 227 insertions(+), 5 deletions(-)
create mode 100644 copycat/sables_mouvants.tidal
create mode 100644 live/collab/igor/hello_studio.tidal
diff --git a/copycat/bad_guy.tidal b/copycat/bad_guy.tidal
index fc48665..9985c04 100644
--- a/copycat/bad_guy.tidal
+++ b/copycat/bad_guy.tidal
@@ -52,7 +52,7 @@ d1 -- FOUR ON THE FLOOR, cut on last 2 of each verse
$ "jazz"
# lpf 2000
# attack 0.2
- # gain 0.9
+ # gain 1.5
d3 -- Bassline: melodie cut sur la fin du verse
-- $ TODO: Bassline relance end cut seconde verse FIXME trigger?
-- FIXME synchro second verse: restart loop? Copy paste? Fix Decalage & second Chorus
@@ -78,7 +78,7 @@ d3 -- Bassline: melodie cut sur la fin du verse
])
# "bass3"
# cut 3
- # gain 0.7
+ # gain 1.2
d7 -- Claps
$ mask "t!3 <t!3 f>"
$ mask "<f!15 t t!24 f!4 t!6 t!24 f!4 t!6 f!4 t!6>" -- Orchestration
@@ -90,7 +90,7 @@ d7 -- Claps
# size 0.8
# rate 50
# pitch1 (range 1 1.5 perlin)
- # gain 1.15
+ # gain 1.5
d4 -- Brass voice
$ jux ((|+ room 0.1))
$ superimpose ((# "kurt:2") . (|* gain 0.7) . (|+ pan 0.1))
@@ -186,7 +186,7 @@ d4 -- Brass voice
# "brass"
# legato "<0.75!7 1>"
# room 0.2
- # gain 0.4
+ # gain 0.5
d6 -- synth Chorus
$ note (cat [
"","","","","","","","", -- Intro
@@ -225,7 +225,7 @@ d6 -- synth Chorus
]) # "moogBass"
# release 0.8
# legato 1.5
- # gain 0.7
+ # gain 1
once $ note ("d") # "kurt:7" # gain 0.8
diff --git a/copycat/sables_mouvants.tidal b/copycat/sables_mouvants.tidal
new file mode 100644
index 0000000..8918ab3
--- /dev/null
+++ b/copycat/sables_mouvants.tidal
@@ -0,0 +1,68 @@
+d1 $ ""
+
+
+do
+resetCycles
+setcps (90/60/4)
+let gDJFBreak = (whenmod 32 24 (# djfbus 1 (slow 8 (range 0.05 0.45 saw))))
+let whenMask33 = (someCyclesBy "<f!32 t f!31>")
+let mask33 = whenMask33 (mask "t!3 f") -- TODO Retravailler Mask+FX
+let mask8 = whenmod 8 7 (mask "f!3 t")
+let m = mask8 . mask33
+let g = gDJFBreak
+d1 $ g
+ $ mask "<f!3 t!31>" -- Intro
+ $ someCyclesBy "<f!8 t!24>" (
+ superimpose (
+ (# "[reverbkick,kick:5]")
+ . (|- note 8)
+ . (# lpf 2000)
+ . (# att 0) . (# rel 0.7)
+ . (|* gain (slow 4 $ range 0.5 0.75 saw))
+ )
+ )
+ $ "k*<1 1 2 <1 2>> . k(<3!3 <5 [5 <3 [3 6]>]>>,8)"
+ # "dr55:1" # gain 0.95
+d2
+ $ mask "<f!8 t!24>" -- Intro
+ $ g $ mask8 -- Phantom Snare
+ $ whenMask33 ( -- mask33 fx
+ (# speed (range 2 0.135 saw))
+ . (ply "1!7 <2!3 4>")
+ . degradeBy "0 0.23!6 0"
+ . (>| (n "[0 .. 15]" # "amencutup"))
+ )
+ $ mask "<t!16 f!8 t t f t t!4> <t!24 t t f f t!4>"
+ $ fix ((# att 0) . (# rel 0.4)) ("snare")
+ $ fix ((|- note 2) . (* gain 0.7)) ("clap")
+ $ fast 2 $ "~ <s!3 s?>" # "[snare:1,clap:1]"
+ # room 0.8 # dry 1 # sz 12
+ # pan 0.8
+ # gain 0.6
+d3
+ $ mask "<f!16 t!48>" -- Not until first drop
+ $ g $ m -- Drumroll basique
+ $ mask "<t!8 f!8> <t!16 f!4 t!4 f!4 t!4>"
+ $ "d d d [d . <d ~> d]"
+ # "drum:2"
+ # gain 0.58
+ # pan 0.1
+d4 $ g $ mask33 -- Baseline bassline
+ $ note "<c c*2 f*2 f*2> ~ ~ <~!3 g>"
+ # "bass3"
+ # gain 0.79
+ # room 0.6
+ # dry 1.2
+ # legato 2
+ # sz 0.9
+d5
+ $ mask "<f!8 t!64>" . someCyclesBy "<t!16 f!16>" (|* gain (slow 16 saw)) -- Intro
+ $ g
+ $ note (
+ "<c <c*2 [c@2 d c]> [f f] [f@2 g f]> ~ ~ <~!3 <g b5>>"
+ + "[0,12]"
+ - 24
+ )
+ # "blip1"
+ # pan 0.8
+ # gain 0.5
diff --git a/live/collab/igor/hello_studio.tidal b/live/collab/igor/hello_studio.tidal
new file mode 100644
index 0000000..a397068
--- /dev/null
+++ b/live/collab/igor/hello_studio.tidal
@@ -0,0 +1,154 @@
+once $ "reverbkick" # lpf 1000 # gain 0.5
+
+
+once $ loopAt 2 $ "break:2"
+ # gain 0.8
+ # cut 8
+
+do
+setcps (95/60/4)
+let f1 = (# djfbus 1 (range 0.25 0.75 "^20"))
+let f2 = (# djfbus 2 (range 0.01 0.99 "^21"))
+let gMaster x = (gain (x))
+let gMaster x = (gain (x * (range 0 2 "^14")))
+let gPan = (# panbus 3 "^15")
+let g1 = (f1)
+let g2 = (f2)
+let modIndex = pF "modIndex"
+d1
+ $ g1
+ -- $ "k*2 k*2 k k*<2!3 4>"
+ $ "k . k(<<1!4 3!4> <5 [5 3]>>,8)"
+ -- $ "k . k(<1 5>, 8)"
+ # "[jazz,kick:5]"
+ # gMaster 0.9
+ # room 0
+d2
+ $ g1 $ "~ [s*<1!3 2> ~]" # "[glitch:1]"
+ # gMaster 0.7
+d3
+ $ g1
+ $ sometimesBy 0.2 (ply 2)
+ $ fast "2 <4!3 [8|12]>"
+ $ "[drum:2,dr]*4"
+ # gMaster 0.75
+ # room 0.25
+ # dry 0.999
+d4
+ $ g1
+ $ degradeBy ("0 1!15 0" - 1 * "^16")
+ $ chop 16
+ $ slice 4 "0*<1 2 4> 1 0 <1 1 3 0>"
+ $ loopAt 1
+ $ "breaks165"
+ # gMaster 0.95
+ # cut 4
+d5 $ g2
+ $ slow 4
+ -- $ struct "t*<1 2> . t(<5!4 4!3 3>,8)"
+ $ note (arp "up" "<c'min'4!3 g'min'4>"
+ - "[12,24]")
+ # "bassWarsaw"
+ # gMaster (range 0 1.4 "^17")
+ # crushbus 41 (range 16 4.5 "^18")
+d6
+ $ g2
+ -- $ striate 4
+ -- $ struct "t([3|5],8,<0 1 2 3>)"
+ $ note (scale "aeolian" (
+ "0 <2 [~ 2]> 4*<1 2 1 4> <<7 11> 9>"
+ - 7)
+ )
+ # "[FMRhodes1,FMRhodes2]"
+ # room 0.4
+ # dry 0.99
+ # sz 0.8
+ # modIndex (range 0 25 "^19")
+ -- # hpf (range 0 5000 "^19")
+ # gMaster 0.7
+
+once $ note "d3" # "supergong"
+ # gain 1.2
+
+
+-- TECHNOLOGICAL WINDS
+
+do
+let f = (# djfbus 1 (range 0.05 0.95 "^20"))
+let p = (# panbus 2 "^15")
+d1 $ f
+ -- $ "k . ~ k(<1!3 3>,8)"
+ $ "k k k <k [~ k] k k*2>"
+ # "jazz"
+ # gain 1.5
+ # room 0.8
+ # dry 1
+ # sz 0.8
+d2 $ f
+ -- $ superimpose ((# "sn:20") . (# speed 1))
+ $ "~ [glitch:2]"
+ # speed (range 0.5 1.5 rand)
+ # gain 1.45
+d4 $ f
+ $ off 0.5 (
+ (|- crush 5)
+ . (# hpf 1500)
+ )
+ $ n ("<4 1 3 1>" + "0 5")
+ # "numbers"
+ # crush 4.5
+ # hpf (slow 16 $ range 0 5000 sine)
+ # gain 1.2
+ # cut 4
+d6$ f
+ $ "cosmicg/2"
+ # speed (range 0.9 2 perlin)
+ # begin (range 0 0.52 rand)
+ # pan 0.9
+ # gain 0.12
+ # cut 4
+d7 $ f $ p
+ $ sometimesBy (slow 4 $ range 0 0.1 saw)
+ (rev . (stut 8 0.8 "e"))
+ $ whenmod 8 0 (off "e" (|+ n "<2 1>"))
+ $ sometimesBy 0.2 (# n "<3 4>")
+ $ n "[5|6](<3!4 3 1 1 <1 8>>,8)"
+ # "wind"
+ # gain (0.3 + 0.1 * perlin)
+d8 $ f
+ $ someCyclesBy 0.2 (ply 2)
+ $ "~ h ~ h*<1 2> ~ h ~ [<h!3 ~> h*2]"
+ # "h2ogmhh:1"
+ # room 0 # dry 1
+ # gain 1.25
+d9
+ $ f
+ $ slow "<1!3 2>"
+ $ ply 1
+ $ whenmod 4 3 (scramble 4)
+ $ n (run 16)
+ # "amencutup"
+ # gain 1.7
+ # room 0 # pan 0.5 # dry 1
+
+once $"amencutup:7" # gain 1.5
+
+
+
+once $ "hh"
+ # gain 0.2
+
+
+once $ "dr" # gain 1.6
+
+once $ slice 8 5 "bev" # cut 5 # gain 1.2
+
+once
+ -- $ slice 4 2
+ $ "ircam:2"
+ # cut 5
+
+
+once $ "bogdan:2"
+ # gain 1.9
+ # cut 5
--
libgit2 0.27.0