live: Crime

live/bdmania.tidal

@@ -21,7 +21,7 @@ $ sound "bd"
 # note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
 >| speed (
   segment 100
-  $ range 1 3 saw
+  $ range 1 3 cosine
   )
 # gain 0.65
 

live/midi/nova/computer_riddim.tidal

@@ -4,6 +4,7 @@
 -- Skipped: Chap 21 (Too complex, rather live synth)
 -- TODO: Chap 22 - From reggae to dub
 
+
 do
 -- region Nova Utils
 let gG a = (gain ("^77" * a)) -- gain Global

live/midi/nova/instruments/AtomicRhodes.tidal

 resetCycles
 
 do
+d1 $ "" #  "reverbkick" # gain 0.7
+d2
+
+once $ note (arpeggiate "c2'maj'4")
+  # "supergong" # gain 0.65
+  # accelerate (-0.4)
+
+d1
+$ n (slow 2 $ fmap (*7) $ run 8)
+# s "supergong"
+# decay (range 0 1000 "^13")
+# voice (range "-1" 1 "^14")
+# accelerate (range "-1" 1 "^29")
+# gain 0.7
+
+
+do
 let gFactor = 1.2
 let gG a = (gain (gFactor * "^77" * a)) -- gain Global
 let gM' l h a = (gG (range l h a)) -- gain Modéré
@@ -38,7 +55,7 @@ d1 $ g
   $ degradeBy (1 - "1 ^49!15")
   $ off "h" id
   $ "FMRhodes1"
-  # gain (range 0.5 1.5 "^77")
+  # gain (range 0.3 1.5 "^77")
   # inputLevel 0.1
 d2 $ gA $ whenmod 32 24 (slow 2) "[jazz,techno]*4" # gain 0.57
 d3 $ gA

live/ncis_evening.tidal

+resetCycles
+
+
+do
+-- region Nova Utils
+let gFactor = 1.2
+let gG a = (gain (gFactor * "^77" * a)) -- gain Global
+let gM' l h a = (gG (range l h a)) -- gain Modéré
+let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
+let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
+let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
+let gDJF = (gLPF . gHPF)
+let novaOn  ch pat = (someCyclesBy ch pat)
+let novaOff ch pat = someCyclesBy (1 - ch) pat
+-- endregion Nova Utils
+let sawHarmonic = pF "sawHarmonic"
+let mix = pF "mix"
+let modIndex = pF "modIndex" -- 0.2
+let g = gDJF
+let gMix = ((# mix (range 0 20 "^53")) . (|* gain (range 1 0.7 "^53")))
+let gMod = ((# modIndex (range 0.2 100 "^33")) . (|* gain (range 1 0.6 "^33")))
+let gP = (gMix . gMod)
+let keyboard = "FMRhodes1"
+setcps (110/60/4)
+d1 $ g
+  -- $ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>"
+  $ novaOff "^42" (<|"k . ~ k")
+  $ novaOn "^42" (<| "k k k <k!3 k*2>")
+  $ "[jazz,cpu2]"
+  # lpf 4000
+  # gM' 0 0.9 "^78"
+d2 $ g
+  $ whenmod 16 8 (-- clap
+    superimpose ((# "clap") . (# lpf 200) . (# note "-0")
+    . (|* gain "<0.85 0.9 1!6>"))
+  )
+  $ novaOn "^42"  (<| "~ s ~ s*2")
+  $ novaOff "^42" (<| "~ s ~ s")
+  $ "sn:20"
+  # lpf 2000
+  # gM' 0.2 0.9 "^79"
+d3 $ g
+  $ novaOn ("^76") --BOUTON NASSIM
+  (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
+  . (>| "breaks125")
+  )
+  $ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw))
+  $ "d d d d d d d*2 d"
+  # "[drum:2,amencutup:5]"
+  # gM' 0 0.75 "^80"
+  # pan (slow 16 $ range 0.1 0.9 sine)
+  # room 0.2 # dry 0.99
+d4 $ g $ gP -- Gauche
+  $ mask "<f!4 t!12 f!8 t!8>"
+  $ note "<c3!3 as3> . ~ [gs3 g3]"
+  # keyboard
+  # gM' 0 1.2 ("^81" * range 0.8 1 sine)
+  # pan 0.45
+d5 $ g $ gP -- Droite 2/3
+  $ whenmod 16 10 (superimpose (const
+    $ note (
+      "[gs5 g5 gs5 ~] [g5 ~ . <gs5 as5>] . ~"
+    )
+    # keyboard
+    # pan 0.65
+    # gM' 0 1 "^81"
+  ))
+  $ mask "<f!6 t!10 t!8 f!4 t!4>"
+  $ note (
+    "<c3 [as4 gs3 g3 ~] cs3 c3> . ~ <[gs3 g3][gs3 g3 f3]>" + 12
+  )
+  # keyboard
+  # pan 0.55
+  # gM' 0 0.9 "^81"
+d6 $ g -- Horloge
+  $ fast 8
+  $ note "<0 -2>"
+  # "drum:2"
+  # hpf 5000
+  # hpq 0.3
+  # room 0.1 # dry 0.98
+  # gain ("^80" * 0.45)
+d7 $ g
+  $ mask "<f!8 t!8>"
+  $ note "[gs5 g5 gs5 ~] [g5 ~ . <gs5 as5>] . <~ ~ [<g5 ~> ~ . <gs5 ~>] [~ as5]> ~"
+  # "strings"
+  # sawHarmonic 1.9
+  # pan 0.1
+  # mix 0.8
+  # gM' 0 0.8 "^83"
+  # room 0.2
+d8 $ g
+  $ novaOn "^90" (chop 16)
+  $ novaOn "^58" (+ note (slow 4 "<0 12>"))
+  $ note ("<c3 c3 g3 gs3>")
+  # "bassWarsaw"
+  # voice (range 0.1 2 "^34")
+  # room 0.6 # sz 0.2
+  # gM' 0.4 1 "^82"
+  # crush (range 10 3.6 "^54")
+d9 $ note ("gs5(3,8)") # "supergong" # gM' 0 0.8 "^83"
+
+  11   │     //Standard Definitions
+  12   │     out = 0, freq = 440, amp = 1, gate = 1, pan = 0, freqLag = 0.2, att = 0.001, dec = 0.1, sus = 0.75, rel = 0.3,
+  13   │     //Other Controls (mix ranges from 0 - 1)
+  14   │     rq = 0.001, combHarmonic = 4, sawHarmonic = 1.5, mix = 0.33;
+
+
+once $ "amencutup:3" # gain 0.6

live/remix/stup.tidal

+
+do
+resetCycles
+let ptits = "stup" # cut 894 # end 0.19 # begin 0.03
+let trucs = "stup" # cut 894 # begin 0.15 # end 0.19
+let ensemble = "stup" # cut 894 # end 0.448
+setcps (95/60/4)
+d1
+  $ "k . <k ~> <~ k> ~ ~"
+  # "[jazz,reverbkick]"
+  # lpf 5000
+  # room 0.3 # dry 0.99
+  # gain 0.7
+d3
+  $ "[d*<2 4 2 <1 [4 8]>>]*4"
+  # "[drum:2,hh]"
+  # pan 0.3 # gain 0.75
+d2 $ loopAt 1
+  $ slice 8 "0 1 <2!3 [2 ~ 1 2]> [<3!3 ~> <~ 3!3>]"
+  $ "breaks125"
+  # gain 0.7
+d4
+  $ somecyclesBy "<0 1 1 0>" (off "h" (
+    stut 4 0.75 "<q e>" . (# cut 8941) . (# trucs))
+    . (# pan 0.98) . (# room 0.1) . (|* gain 0.8)
+  )
+  $ someCyclesBy "<0!3 1>" (# ensemble)
+  $ ptits # gain (slow 16 $ range 1 0.85 saw)
+d5
+  $ mask "<t!4 f t!27>"
+  $ whenmod 16 4 (juxBy 0.8 (
+    whenmod 32 16 (ply "<2 4>")
+    . chop ("4 <4 <8 16>>")
+  ))
+  $ note ("<fs a>") # "supersaw"
+  # gain 0.32
+  # pan 0.2 # room 0.1
+d6
+  $ mask "<f!8 t!8>"
+  $ note ("<b5 <c6 g5>>") # "supersaw"
+  # gain (slow 4 $ range 0.35 0.42 saw)
+  # pan 0.8
+  # room 0.1