live: invoque ete

live/boeuf/fevrier.tidal

+setcps (0.5)
+
+do
+let gG a = (gain ("^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 = (sometimesBy ch pat)
+let novaOff ch pat = sometimesBy (1 - ch) (pat)
+let gSync = ("0.18" <~)
+let g = gSync . gDJF
+d1 $ g
+  $ novaOn "^41" (<| "k k k <k!3 k*2>")
+  $ novaOff "^41" (<| "k . k(<3 1 3 5>,8)")
+  $ "reverbkick" # gM' 0 1.4 "^78"
+d2 $ (|- lpf 2000) $ g
+  -- $ whenmod 8 6 (degradeBy "<0.25 0.75>" . stut 4 0.9 "e")
+  $ novaOn "^41" (|- note 24)
+  $ fast 2 $ "~ [cp,drum:2]"
+  # gM' 0 1.5 "^79"
+  # lpq "^51"
+  # size 0.9
+  # room 0.2 # dry 0.99
+d3 $ g
+  $ loopAt 1
+  $ novaOn  "^76" (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>"))
+  $ novaOff "^76" (slice 8 "0 <0 1>*<1 2> <2 0> <0 0 3 3>")
+  $ "breaks165"
+  # lpq "^52"
+  # room 0.5
+  # gM' 0 2 "^80"
+d4 $ g
+  -- $ someCycles (swingBy 2)
+  $ novaOn "^89" (chop 16)
+  -- $ novaOn "^58" (+ note (slow 4 "<0 12>"))
+  $ note (scale "aeolian"
+  ("<c!4 f!4> <c!4 f!4> <c!4 f!4> [c <ds!3 f>]"
+  + "[0,4,9]") -- TODO LEARN VAL: layering accords
+  )
+  -- # detune 1.005
+  # octave 3
+  # "bassWarsaw"
+  # voice (range 0.1 2 "^33")
+  # gM' 0.4 1.5 "^81"
+  # room 0.6 # sz 0.7
+  # crush (range 10 3.1 "^53")
+  # pan 0.4
+d5 $ g
+  $ inside 4 (someCyclesBy "^34" (ply 2))
+  $ sometimesBy "^54" (swingBy "q" 4)
+  $ note (scale "aeolian" (
+    "<0 9 7 2>" -- progression
+    + "[0 2 4 <0 6>]*4" -- arpegiateur
+    + "[0 <7 <-7 14>>]" -- spread
+    - 7
+  ))
+  # "FMRhodes1"
+  # gM' 0 2 "^82"
+
+-- #
+
+do
+let gF = 1.5
+let gG a = (gain (gF * "^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 = (sometimesBy ch pat)
+let novaOff ch pat = sometimesBy (1 - ch) (pat)
+let gSync = ("0.18" <~)
+let g = gSync . gDJF
+let modIndex = pF "modIndex" -- 0.2
+let mix = pF "mix" -- 0.2
+let prog = "<5 0 6 4 3>"
+-- let prog = "<0 6 6 6 6>"
+d1 $ g
+  $ novaOn "^74" (mask "t(4,8)")
+  $ novaOn "^75" (mask "t(3,8)")
+  $ loopAt 2
+  $ slice 8 "0 1 2 3 <4!3 0> <5!3 1> <6 0> <7 0>"
+  $ "fbreak120:2"
+  # gM' 0 1.5 "^78"
+d2 $ (|- lpf 100) $ g
+  $ "[~ hh*<1 1 2 <1 2>>]*4"
+  # lpq (range 0 0.45 "^51")
+  # gM' 0 1.5 "^79"
+d3 $ g
+  $ novaOn "^60" (fast 2)
+  $ "~ clap"
+  # gM' 0 1.2 "^84"
+d4 $ g
+  $ novaOn "^89" (chop 4)
+  $ off "q" (|+ note 12)
+  $ note (scale "aeolian" (prog
+  + "[0,4,9]"
+  + "[0 <7 <-7 -14>>]" -- spread
+  - 21))
+  # "FMRhodes1"
+  # mix (range 0 20 "^33")
+  # modIndex (range 0.2 100 "^53")
+  # gM' 0 1.2 "^81"
+  # room 0.5 # sz 0.6
+d5 $ g
+  $ note (scale "aeolian" (prog
+    + "0 . <0 0(3,8)>" -- rythme
+    + "[0,4,9]"
+    - 28
+  )
+  )
+  # crush (range 10 3.5 "^54")
+  # "bassWarsaw" # gM' 0 1.3 "^82"
+  # room 0.3
+d6 $ g
+  $ whenmod 4 2 (off "h" (
+    (|+ note 12) . (|* gain 0.5) . (# room 0.5))
+  )
+  $ slice 8 "<3!3 5>"
+  $ "fguitar:42"
+  # gM' 0 1 "^83"
+d8 $ g
+  $ whenmod 32 16 (slice 3 "<0!4 2!4> 1 2 <2!3 3>")
+  $ mask "<t t t f>"
+  $ "bogdan:10"
+  -- # lpfbus 1 (10000)
+  -- # lpfbus 1 (fast (cycleChoose [1,2,4])
+    -- $ segment 32 $ range 50 4000 sine)
+  # gM' 0 1 "^84"
+  # cut 1
+
+once $ "dr"

live/midi/lounge/invoque_ete.tidal

+do
+let gG a = (gain ("^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 = (sometimesBy ch pat)
+let novaOff ch pat = sometimesBy (1 - ch) (pat)
+let gSync = ("0.18" <~)
+let g = gDJF
+setcps (115/60/4)
+d1 $ g
+  $ novaOn "^41" (<| "k k k <k!3 k*2>")
+  $ novaOff "^41" (<| "k*2")
+  $ "[jazz,808bd:1]"
+  # gM' 0 1.2 "^78"
+d2
+  $ (|* gain
+    "0.75 1 1 1 0.75 1 1 1" )
+  $ "d ~ ~ d d ~ d <~!3 d>"
+  # "snare:22" # gM' 0 1.2 "^79"
+d4 $ g
+  $ novaOn "^44" (slow 2)
+  $ novaOn "^76" (slice 8 ("0 1 2 3 <4 0> <5 1>  6 7") . (loopAt 2) . (>| "fbreak80:2") .
+  (# gM' 0 1.5 "^80")
+  )
+  $ (|* gain (slow 2 $ range 1 1.1 perlin))
+  $ novaOff "^76" (<| "s*[8 . 16 8 8]" )
+  $ "snare:26"
+  # gM' 0 1 "^80"
+  # cut 4
+d5 $ g
+  $ loopAt 2
+  $ slice 8 (run "<4!4 8 8 [4 8 4] 8>")
+  $ "fbass:13"
+  # pan 0.2
+  # gM' 0.2 1 "^81"
+  # room 0.2
+  # crush (range 10 4.5 "^53")
+  # cut 4
+d6 $ g
+  $ whenmod 16 12 (rev)
+  $ whenmod 8 4 (chop 4)
+  $ loopAt 4
+  $ "fguitar" # n "<12!16 13!16>"
+  # gM' 0 1 "^82"
+  # pan 0.75
+  # room 0.2 # dry 1
+  # cut 3
+d7 $ g
+  $ loopAt 4
+  $ mask "t(<4 8 12 16>,16)"
+  $ slice 16 (run 16)
+  $ "fpiano:13"
+  # pan 0.45
+  # room 0.2
+  # gM' 0 1.3 "^83"
+  # cut 7
+d8
+  $ novaOn "^60" (
+  superimpose (
+    struct "t(5,8)"
+    . arp "down"
+    . (|+ note 12)
+    . (|* gain 1.1)
+    . (|- pan 0.1)
+    )
+  . superimpose (
+    arp "up"
+    . (|+ note 12)
+    . (|* gain 0.9)
+    . (|- pan 0.25)
+  ))
+  $ note "<a3'maj g3'maj a3'min d3'maj>"
+  # crush (range 8 4 "^56")
+  # room 0.4
+  # "moogBass"
+  # gM' 0 1 "^84"

live/midi/nova/computer_riddim.tidal

@@ -4,6 +4,10 @@
 -- Skipped: Chap 21 (Too complex, rather live synth)
 -- TODO: Chap 22 - From reggae to dub
 
+d1 $ "superpiano" # room 0.1
+
+setcps 0.5
+
 
 do
 -- region Nova Utils

live/midi/nova/instruments/8box.tidal

+-- region wit val
+do
+d1 $ euclidOff
+  (discretise 8 ((cF "49")*16))
+  8 -- (round ("^29" * 16))
+  0  -- (round ("^13" * 16))
+  $ "jazz"
+
+-- endregion
+
 
 do
 -- region Nova Utils

live/midi/nova/tidal_crime.tidal

@@ -15,13 +15,14 @@ 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 gRes = (# hpq "^29") . (# lpq "^30")
 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 g = (gDJF . gRes)
 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)
@@ -31,9 +32,8 @@ 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"
+  $ "[jazz,cpu2,kick:5]"
+  # gM' 0 1.2 "^78"
 d2 $ g
   $ whenmod 16 8 (-- clap
     superimpose ((# "clap") . (# lpf 200) . (# note "-0")

study/val/layers.tidal

+
+
+do
+let gG a = (gain ("^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)
+let chorus = pF "chorus"
+let cutoff = pF "cutoff"
+let lagamount = pF "lagamount"
+let pAtt = pF "att"
+let prog = "<0 <2 3> 4 0>"
+let g = gDJF
+d1 $ g
+  $ novaOn "^74" (<| "K*16")
+  $ novaOn "^42" (<| "k k k <k k*2 k [~ k]>")
+  $ superimpose ((|* gain 0.75) . (# "kick:5"))
+  $ "[jazz,cpu]"
+  # room 0.8 # sz 0.8 # dry 1
+  # gM' 0 1.5 "^78"
+d2 $ g
+  $ novaOn "^75" (slice 8 ("0 1 2 3 0 ~ 3 <~ ~ 3 3>") . (loopAt 4) . (>| "fbreak100:1"))
+  $ novaOff "^75" (<| "~ s*<[1 . <1!4 2 2 4 4>]!8 [<4 8 8 4> <8 [8 . 4 8] 4 [8 4]>]!8>")
+  $ fast 2
+  $ "snare" # n "[20,21,28]"
+  # release "0.125!<7!3 3> 1"
+  # gM' 0 1.4 "^79"
+d3
+  $ g
+  $ loopAt 2
+  $ slice 4 ("[0 1 <~!4 2!4> <~!8 3!8> <~!8 4!4 ~!4 4!16> 5 ~ ~] [<0 1> ~]")
+  $ "fbreak120:2"
+  # room 0.08
+  # pan (slow 16 $ range 0.4 0.6 sine)
+  # gM' 0 0.8 "^80"
+d9 $ g
+  $ whenmod 16 12 (often (off "q e" id))
+  $ whenmod 16 8 (fast 2)
+  $ "~ clap"
+  # lpf 400
+  # lpq 0.21 # attack 0.45
+  # room 0.4 # sz 0.8
+  # pan 0.8
+  # gM' 0 1.2 "^84"
+d4 $ g -- BASSLINE
+  $ note (scale "aeolian" (
+    whenmod 16 8 (+ "[<0!3 7> <7!3 <0 7>>]") -- spread
+    $ novaOn "^57" (+ "[0 0 ~ 2 . ~ <2!3 3>]*2") -- arp
+    prog
+    + "[0,4,9]"
+    - 21
+    ))
+  # "supersaw"
+  # voice "^17"
+  # pan 0.3
+  # accelerate (range "-4" 4 "^33")
+  # lfo (range "-2" 2 "^53")
+  # gM' 0 1.2 "^81"
+d5 $ g
+  $ note (scale "aeolian" (
+    prog
+    + "[0,7,16]"
+    + "[[0 2 <2 0 2 3> 3] [~ 3]]*<[1 2] [2 1]>"
+    - 21
+    ))
+  # "FMRhodes1"
+  # pan 0.8
+  # gM' 0 2 "^82"
+d6
+  $ juxBy 0.8 rev
+  $ novaOn "^59" (someCyclesBy 0.75 (off "q" id))
+  $ note (scale "aeolian" (prog + "[0,9]"
+  + "0 <-7!4 -5 -5 -7 -5>"
+  ))
+  # "moogBass"
+  # pAtt 0.1 # rel 2
+  # legato 2
+  # chorus "^55"
+  # cutoff (range 500 3000 "^35")
+  # room 0.2
+  # gM' 0 1.5 "^83"
+
+
+
+
+
+-- From boeuf/fevrier
+d5
+  -- $ g
+  -- $ inside 4 (someCyclesBy "^34" (ply 2))
+  $ sometimesBy "^54" (swingBy "q" 4)
+  $ note (scale "aeolian" (
+    "<0 9 7 2>" -- progression
+    + "[0 2 4 <0 6>]*4" -- arpegiateur
+    + "[0 <7 <-7 14>>]" -- spread
+    - 7
+  ))
+  # "FMRhodes1"
+  -- # gM' 0 2 "^82"
+  # gain 0.7