live: last one

live/midi/nova/breaks/break_90s.tidal

@@ -11,7 +11,7 @@ once "dr"
 -- Break90s∷ :)
 do
 -- let gF = (whenmod 32 28 (# djf (slow 4 $ range 0 0.5 sine)))
-let gDJF = (midiDJF "^49" 0 10000 0 10000)
+let gDJF = (# djfbus 1 (range 0.15 0.9 "^49"))
 let g = (gDJF)
 d1
   $ g

live/midi/nova/dnb/lucy_rode.tidal

@@ -12,9 +12,9 @@ do
   let mix = pF "mix"
   let modIndex = pF "modIndex" -- 0.2
   let vibrato = pF "vibrato"
-  let gDJF = midiDJF "^49" 100 9900 0 1500
-  let gFreqL = (# lpq (range 0 1 "^30"))
-  let gFreqH = (# hpq (range 0 (1/16) "^29"))
+  let gFreqL = (# lpqbus 2 (range 0 1 "^30"))
+  let gFreqH = (# hpqbus 3 (range 0 (1/16) "^29"))
+  let gDJF =   (# djfbus 1 (range 0.1 0.9 "^49"))
   let gFreqs = (gFreqH . gFreqL)
   let g = gDJF . gFreqs
   d1
@@ -23,7 +23,7 @@ do
     $ midiOn "^41" (<|  "k k k k")
     $ midiOn "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
     $ midiNo "^41" "^42" (<| "<k <k*2 k(3,8)>>")
-    $ "jazz"
+    $ "[jazz,kick:5]"
     # midiG' "^78" 0 1.5
   d2 $ g -- Break
     $ loopAt 1
@@ -44,6 +44,19 @@ do
     $ fast "4 8"
     $ "drum:2"
     # midiG' "^80" 0 1.8
+  d4 $ g -- Bassline pompée
+    $ midiOn "^57" (ply 2)
+    $ note (scale "aeolian" (
+      "0*8"
+      |+ (fast 4 $ arp "up"
+      "<ds3'major7'4!2 <ds3'major7'4 [ds3'major7'4|ds3'major7'6]> ds3'major7'8>")
+      + "<0!6 7!2>"
+    ))
+    # "bassWarsaw"
+    # crush (range 10 2 "^53")
+    # room 0.4
+    # pan 0.2
+    # midiG' "^81" 0 1.3
   d6 $ g --Rhodes arps
     $ juxBy 0.8 (
       (# modIndex 15)
@@ -59,18 +72,6 @@ do
     # room 0.2 # dry 2 # sz 0.8
     # crush (range 10 3.7 "^54")
     # modIndex (range 0 4.19 "^34")
-  d4 $ g -- Bassline pompée
-    $ midiOn "^57" (ply 2)
-    $ note (scale "aeolian" (
-      "0*8"
-      |+ (fast 4 $ arp "up"
-      "<ds3'major7'4!2 <ds3'major7'4 [ds3'major7'4|ds3'major7'6]> ds3'major7'8>")
-    ))
-    # "bassWarsaw"
-    # crush (range 10 2 "^53")
-    # room 0.4
-    # pan 0.2
-    # midiG' "^81" 0 1.3
   d7 $ g -- Hammond
     $ ("0.125" ~>)
     $ fast 2
@@ -91,6 +92,7 @@ do
     # pan 0.74
     # sustain (range 0.125 0.5 "^55")
     # midiG' "^83" 0 1
+  d10 $ "~ clap" # midiG' "^84" 0 1.2
 
 
 

live/midi/nova/dnb/meurice.tidal

@@ -4,7 +4,7 @@ import Sound.Tidal.ParVagues.Control
 --
 do
 setcps (160/60/4)
-let gDJF = midiDJF "^49" 200 9800 0 4000
+let gDJF =  (# djfbus 1 (range 0.1 0.9 "^49"))
 let gFreqL = (# lpq (range 0 0.5 "^29"))
 let gFreqH = (# hpq (range 0 0.5 "^30"))
 let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
@@ -32,9 +32,10 @@ d2
   # room 0.8 # dry 0.99 # sz 0.2
   # midiG' "^79" 0 1.2
 d3 -- Running Hats
-  -- $ g
+  $ g
   -- $ degradeBy ("1 0 0 1!13" - "^52")
-  -- $ midiOn "^44" (fast 2)
+  $ midiOn "^44" (slow 2)
+  $ midiOn "^76" (fast 2)
   $ "hh*[8 . 8 <16 8 4 [4 8]>]"
   -- # n "[0|0|0|0|1|1|3|3]*8"
   # midiG' "^80" 0 (1.3 + (slow 4 $ perlin/4))

live/midi/nova/lofi/new_dust.tidal

@@ -109,10 +109,14 @@ d8 $ g -- Toy bogdan
   # leslie 0.2 # lrate 6.7 # lsize 0.7
 d9 $ g -- Toy Dusty
   $ slice 24
-  (cat [
+  (cat [ -- TODO: Confirm/refine progression, add echoes, :)
     "0 0",
     "~ 1 ~ 1",
       "0 0 0 0",
+      "~ 1 1 1",
+      "~ 1 1 1",
+      "~ 1 1 1",
+      "~ 1 1 1",
       "~ 1 ~ 1 ~ 1 2 3"
   -- "2",
   -- "0 1*2 2 ~ ~ ~ ~ ~"
@@ -120,5 +124,3 @@ d9 $ g -- Toy Dusty
   $ "dusty"
   # cut 9 # gain 0.65
   # midiG' "^56" 0.3 1.1
-
-once $ "dr" # cut 21 # gain 0.5

live/midi/nova/lounge/cbow.tidal

@@ -8,23 +8,36 @@ do
 let chord = "d4'min7'4"
 let gF = midiDJF "^49" 200 9800 0 2000
 let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30"))  .(# lrate 6.7))
-let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
+let gDJF = (whenmod 32 28 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
 let g = gF . gLeslie
 setcps (100/60/4)
+-- d10 $ "hh*128" # gain 1.1
 d1 $ gDJF $ g
   $ midiOff "^41" (mask "<f f [t f] t t!28>")
-  $ midiOn "^41"  (<| "k*4" )
-  $ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~" )
+  $ midiOn "^41"  (<| "k k k <k k*2 k [~ k]>")
+  $ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~")
   $ "[jazz,bd]"
-  # midiG' "^78" 0 0.75
+  # midiG' "^78" 0 1
 d2 $ gDJF $ g
   $ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>"
   $ "~ s ~ s"
   # "h2ogmsn:6"
-  # midiG' "^79" 0 0.8
+  # midiG' "^79" 0 1
+d6
+  $ g
+  $ midiOn "^44" (slow 2)
+  -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
+  -- $ degradeBy ("0 0.95!7 0" - "^52")
+  $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
+  # note (
+    whenmod 4 3 (2 -)
+    "0 . 2 0"
+    )
+  # midiG' "^80" 0 1.6
 d3 $ g -- Bass
   $ gDJF
   $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
+  $ ("0.125" ~>)
   $ slow 4
   $ note (
     (arp "up <up!8 down!8>" chord))
@@ -33,7 +46,7 @@ d3 $ g -- Bass
   # cut 3
   # room 0.6
   # sz 0.5
-  # midiG' "^81" 0 0.56
+  # midiG' "^81" 0 0.8
   # crush (range 10 2 "^53")
 d4 $ g
   -- $ mask "<f!8 t!24>"
@@ -46,7 +59,7 @@ d4 $ g
   # "cbow:2"
   # cut 4
   # room 0.2
-  # midiG' "^82" 0 0.4
+  # midiG' "^82" 0 0.8
 d5 $ g -- Breakbeat
   $ midiOn "^76" (fast "<2!3 4>")
   $ midiOff "^44" (slow "<4 2>")
@@ -62,11 +75,33 @@ d8 $ g -- Angels
   $ note "<[c . ~!3 <~ <d g4>>] a4>"
   # "cbow:3"
   # cut 8
-  # midiG' "^83" 0 0.56
+  # midiG' "^83" 0 0.86
+d10
+  $ (# lpf 2000)
+  $ g $ "~ cp"
+  # midiG' "^83" 0 1.6
 
 d4
   $ whenmod 32 16 (jux rev)
   $ "h2ogmcp(5,8,<0!3 [0 3]>)"
   # gain 0.45
 
+do
+let g = (midiDJF "^41" 200 9800 0 1000)
+d1 $ g $ fast 4 $ "jazz"
+d2 $ g $ fast 2 $ "~ sn:7"
+d3 $ g
+  $ note (scale "aeolian" ("<0 0 1 2>"))
+  # "cbow:0"
+  # cut 3
+  # gain 0.75
+d4 $ g
+  $ sometimes (rev)
+  $ note (scale "aeolian" (run "6 12"))
+  # "cbow:1"
+  # cut 1
+  # gain 0.58
+
+
+
 (5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (

live/midi/nova/lounge/invoque_ete.tidal

 import Sound.Tidal.ParVagues.Control
 
 resetCycles
-setcps (115/60/4)
 
 -- Invoque l'été
 -- Il ne viendra pas tout seul ;)
 do
+setcps (115/60/4)
 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é
@@ -32,7 +32,7 @@ d2 $ g -- Clave de l'été
   # "snare:22" # gM' 0 1.4 "^79"
   # speed (range 0.5 1.5 "^51")
 d4 $ g
-  $ fast 2
+  $ fast 4
   $ midiOn "^44"  (slice 16 ("0*<1 2> 1 2 3*<2 1>") . (>| "breaks125"))
   $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
   $ sometimesBy "0 ^32!7" (shuffle 8)

live/midi/nova/lounge/michael.tidal

-setcps (120/60/4)
 resetCycles
+
+
 -- Michael: lounge piano/brass tech/break
 do
 let gDJF = midiDJF "^49" 200 9800 0 1000
 let g = gDJF
+setcps (120/60/4)
 d1 $ g
   $ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>")
   $ midiOff "^41" (struct "t(<3!3 [3 <8 [5 8]>]>,8)")

live/midi/nova/party/hoover_sepia.tidal

+-- TODO Try Control with busses :D
+do
+-- region Utils
+let modIndex = pF "modIndex"
+let cF5 ch = cF 0.5 ch
+let gDJF = (# djfbus 1 (range 0.15 0.99 "^49"))
+let gRoom = (# roombus 2 (cF5 "29"))
+let gSize = (# sizebus 3 (cF5 "30"))
+let g = gDJF . gRoom . gSize
+let gG = 1 * "^77"
+let gM' ch l h  = gain (range l h (gG * ch))
+let gM ch  = gM' ch 0 1
+let ampb bus pat = (ampbus bus (gG * pat))
+let midiOn ch pat = someCyclesBy ch pat
+-- endregion
+let prog = "<d6'm9 g6'dom7'ii c6'maj7 c5'maj7'iii>"
+setcps (95/60/4)
+d1 -- Kick techno 1-2-4/4
+  $ g
+  $ midiOn "^41" (fast 2)
+  $ midiOn "^42" (fast 2)
+  $ whenmod 4 3 (ply "2")
+  $ "[jazz]"
+  # gM' "^78" 0 2
+d2 $ g
+  $ midiOn "^43" (struct "t*[4 8 16 <8 [32 16]>]")
+  $ "~ ~ h ~ ~ h*2 [<~ h h ~> <h ~>] h" # "h2ogmhh" # n "<0!4 1!4 2!4 3!4>"
+  # gM' "^79" 0 1.25
+d3 $ g
+  $ loopAt 2
+  $ midiOn "^76" (scramble "1 2")
+  $ midiOn "^44" (scramble "1 8")
+  $ slice 8 ("0 1 2*<1 <2 4>> 3 4 <5 4> <6!3 4> 7*<1!3 <2 4>>")
+  $ "fbreak100:4"
+  # gM' "^80" 0 1.8
+d4 $ g -- Hoover bassline
+  $ slow 2
+  $ n ("0*[4 8]" + prog - 12)
+  # s "superhoover"
+  # squizbus 30 (range 1 1.7 "^33")
+  # crushbus 31 (range 16 1 "^53")
+  # ampb     32  (range 0 0.125 "^81")
+  # pan 0.2
+  # legato 1.05
+d5 $ g -- Arp aigus Rhodes
+  $ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)")
+  $ note (arp "<up!6 [up|down|updown]>"
+  $ prog
+  |+ "0 12"
+  - 24
+  )
+  # "FMRhodes1"
+  # ampbus   40 (range 0  0.82 "^82")
+  # crushbus 41 (range 16 1 "^54")
+  # modIndex "[0,5]"
+d10 $ g
+  $ "~ [h2ogmcp,clap]"
+  # gM' "^84" 0 1.5
+  # room 0.7 # sz 0.7 # dry 0.9

live/midi/nova/party/last_one.tidal

+do
+let midiGGlobal = "^77" * 1.5
+let _gainG ch     = (gain (midiGGlobal * ch)) -- gain Global
+let midiG' ch l h = _gainG (range l h ch)     -- midiGain   control
+let midiG  ch     = midiG' ch 0 1             -- let midiG ch val  = (gGain (ch * val))
+let midiOn    ch    pat = someCyclesBy ch             pat
+let midiOff   ch    pat = someCyclesBy (1 - ch)       pat
+let midiNo    c1 c2 pat = someCyclesBy (1 - c1 - c2)  pat
+let gDJF =  (# djfbus 1 (range 0.1 0.9 "^49"))
+let gDJFb = (# djfbus 1 (range 0.3 0.7 "^49"))
+let gLPQ =  (# lpqbus  4 (range 0 0.5 "^13"))
+let gHPQ =  (# hpqbus  5 (range 0 0.5 "^14"))
+let gRoom = (# roombus 6 (range 0 0.5 "^14"))
+let g = gDJF
+setcps (110/60/4)
+let prog = "<c6'maj7'2 <g6'maj'2 g6'maj> d6'm9 <g6'maj g6'maj'4>>"
+-- let prog = "<d6'm9 g6'maj'4>"
+let progm = "<<c c e e> d e <d g>>"
+d1 $ g
+  $ midiOn "^41" (<| "k*4")
+  $ midiOff "^41" (<| "k k")
+  $ "jazz"
+  # midiG' "^78" 0 1.8
+d2 $ g
+  $ whenmod 8 4 (ply "1 <1 2 1 1> <2 1 1 2> <1 1 2 1>")
+  $ midiOn "^43" (fast 2)
+  $ "~ s ~ s" # "sn" # n "[1,10]"
+  # midiG' "^79" 0 1.6
+d3 $ g
+  $ midiOn "^76" (fast 2)
+  $ struct "t*[8 <<4 16> 16 <8 [8 4] 4 8> 16>]"
+  $ "h2ogmhh" # n "[10|11|12]*4"
+  # midiG' "^80" 0 1.5
+d4 $ g -- Bassline
+  $ midiOff "^57" (degradeBy $ "0 1!3 0 1!2 0" * 0.5)
+  $ note ((struct "t(3,8) t(<4 4 5 [5 8]>,8)"
+  $ arpeggiate prog)
+  + "[0,<0 12>]"
+  - 36)
+  # "bassWarsaw"
+  # pan 0.2
+  # room 0.4
+  # crushbus 40 (range 10 2.85 "^53")
+  # midiG' "^81" 0 1.5
+d5 $ g
+  $ midiOn "^58" (superimpose (
+    struct "t . t(3,8)"
+    . arpeggiate
+    . (|+ note 12)
+    . (# cut 51)
+    . (|* gain 1.1)
+  ))
+  $ note (prog - 12)
+  # "moog:2"
+  # midiG' "^82" 0 1.2
+  # attack 0.8
+  # room 0.4 # sz 0.9
+d6
+  $ midiOn "^59" (slice 4 "0 1 2 3")
+  $ mask "<t!3 f>"
+  $ "fguitar" # n "<34!32 35!16 34!16>"
+  # midiG' "^83" 0 1.4
+  # crushbus 60 (range 10 2.85 "^55")
+  # cut 6
+d7 $ g
+  $ midiOn "^60" (mask "t([4 <8 8 4 8>],16)")
+  $ superimpose (
+    (>| note (
+      "<0 <-1 2>>" + "0(3,8) 0"
+      ))
+    . (|+ note 24)
+    . (|* gain (1.1 * (range 0 1.25 "^56")))
+  )
+  $ note (
+    progm
+    + "<0 0 10 0> <7 12>"
+    + "0 . [0!3 ~] 0*<1!7 2>"
+  )
+  # "cbow:8"
+  # pan "<0.7!7 0.3>"
+  # midiG' "^84" 0 (1.5 * "^20")
+d8 $ g
+  $ note (
+    struct "t(5,8)"
+    $ arpeggiate
+    $ prog
+    -- + "<0 0 10 0> <7 12>"
+    -- + "0 . [0!3 ~] 0*<1!7 2>"
+  )
+  # "cbow:10"
+  # pan "<0.3!7 0.7>"
+  # midiG' "^84" 0 1

live/midi/nova/party/phunk.tidal

+
+
+do
+let midiGGlobal = "^77" * 1.5
+let _gainG ch     = (gain (midiGGlobal * ch)) -- gain Global
+let midiG' ch l h = _gainG (range l h ch)     -- midiGain   control
+let midiG  ch     = midiG' ch 0 1             -- let midiG ch val  = (gGain (ch * val))
+let midiOn    ch    pat = someCyclesBy ch             pat
+let midiOff   ch    pat = someCyclesBy (1 - ch)       pat
+let midiNo    c1 c2 pat = someCyclesBy (1 - c1 - c2)  pat
+let gDJF =  (# djfbus 1 (range 0.1 0.9 "^49"))
+let gDJFb = (# djfbus 1 (range 0.3 0.7 "^49"))
+let gLPQ =  (# lpqbus  4 (range 0 0.5 "^13"))
+let gHPQ =  (# hpqbus  5 (range 0 0.5 "^14"))
+let gRoom = (# roombus 6 (range 0 0.5 "^14"))
+let gSlow = (midiOn "^42" (slow 2))
+let g = gDJF . gSlow
+setcps (92/60/4)
+let patFunk = "ds gf f <bf4!3 bf>"
+d1 $ g
+  $ midiOn "^73" (fast 2) -- Techno
+  $ midiOn "^41" (<| "k*4") -- Techno
+  $ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
+  $ "jazz"
+  # midiG' "^78" 0 1.8
+d2 $ g
+  $ whenmod 8 4 (ply "1 <1 2 1 1> <2 1 1 2> <1 1 2 1>")
+  $ midiOn "^43" (fast 2)
+  $ "~ s ~ s" # "sn" # n "[1,10]"
+  # midiG' "^79" 0 1.6
+d3 $ g
+  $ (# midiG' "^80" 0 1.5)
+  $ midiOn "^76" (fast 2)
+  $ midiOn "^44" (const $
+    slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>"
+    $ "breaks165"
+    # pan 0.75
+    # cut 7
+    # room 0.2
+    # hpf 100
+  )
+  $ struct "t*[8 <<4 16> 16 <8 [8 4] 4 8> 16>]"
+  $ "h2ogmhh" # n "[10|11|12]*4"
+d4 $ g -- Smells like Bass
+  $ mask "<f!4 t!28>"
+  $ note patFunk
+  # "bass3"
+  # pan 0.2
+  # crushbus 40 (range 10 2.85 "^53")
+  # midiG' "^81" 0 1.8
+d5 $ g -- Guitar
+  $ whenmod 8 4 (juxBy 0.75 ((|* gain 0.8) . off "e" id))
+  $ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
+  $ note patFunk
+  # "pluck"
+  # room 0.2
+  # sz 0.8
+  # gain 0.35
+  # crushbus 50 (range 10 1.65 "^54")
+  # midiG' "^82" 0 1.8
+d6 $ g
+  $ sometimesBy "0 . 1 0" (ply 2)
+  $ midiOn "^91" (sometimesBy "0!3 1" (rev))
+  $ midiOn "^59" (chop (slow 4 "<16 32 48 64>"))
+  $ "b/4" # "brass:27"
+  # midiG' "^83" 0 1.5
+  # cut 9
+d7 $ g
+  $ midiOn "^60" ( -- Arps aigus
+    superimpose (
+    (# "cbow:11")
+    . off "e" id
+    . mask "t(4,8)"
+    . (# cut 71)
+    ))
+  $ note ("<g ds>(3,8) f([3 <3 1 1 3> 3],8)")
+  # "cbow:10"
+  # midiG' "^84" 0 1.5
+  # cut 7
+
+
+d6 $ g
+  $ midiOn "^58" (superimpose (
+    struct "t . t(3,8)"
+    . arpeggiate
+    . (|+ note 12)
+    . (# cut 51)
+    . (|* gain 1.1)
+  ))
+  $ note (prog - 12)
+  # "moog:2"
+  # midiG' "^82" 0 1.2
+  # attack 0.8
+  # room 0.4 # sz 0.9
+
+d6
+  $ midiOn "^59" (slice 4 "0 1 2 3")
+  $ mask "<t!3 f>"
+  $ "fguitar" # n "<34!32 35!16 34!16>"
+  # midiG' "^83" 0 1.4
+  # crushbus 60 (range 10 2.85 "^55")
+  # cut 6
+d7 $ g
+  $ midiOn "^60" (mask "t([4 <8 8 4 8>],16)")
+  $ superimpose (
+    (>| note (
+      "<0 <-1 2>>" + "0(3,8) 0"
+      ))
+    . (|+ note 24)
+    . (|* gain (1.1 * (range 0 1.25 "^56")))
+  )
+  $ note (
+    progm
+    + "<0 0 10 0> <7 12>"
+    + "0 . [0!3 ~] 0*<1!7 2>"
+  )
+  # "cbow:8"
+  # pan "<0.7!7 0.3>"
+  # midiG' "^84" 0 (1.5 * "^20")
+d8 $ g
+  $ note (
+    struct "t(5,8)"
+    $ arpeggiate
+    $ prog
+    -- + "<0 0 10 0> <7 12>"
+    -- + "0 . [0!3 ~] 0*<1!7 2>"
+  )
+  # "cbow:10"
+  # pan "<0.3!7 0.7>"
+  # midiG' "^84" 0 1
+
+
+  do
+  -- resetCycles
+  setcps (92/60/4)
+  let gain p = gain (1.5 * p)
+  let gFadeIntro = someCyclesBy "<t!8 f!56>" (|* gain (slow 8 $ range 0 1 saw))
+  let patFunk = "ds gf f <bf4!3 bf>"
+  let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw))
+  let gPont = whenmod 64 32 (mask "<f!6 t!26>")
+  let g = (gDJF)
+  d1 $ g $ gFadeIntro $ gPont
+    $ mask "<f!4 t!60>"
+    $ "[bd,jazz]*4" # room 0.1
+    # gain 0.45
+  d2 $ g $ gFadeIntro $ gPont $ mask "<t(1,2)!4 t!60>"
+    $ "~ c ~ c" # "[clap]" # gain 0.4
+  d3 $ g $ gPont
+    -- $ mask "<f!8 t!24>"
+    $ (
+      mask "t . t t(2,4)"
+      . sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4"))
+    $ "gretsch:4*16"
+    # pan 0.25
+    # gain (0.35 + 0.1 * (segment 8 perlin))
+  d6 $ g -- Final guitare rita
+    $ whenmod 64 48 (# gain 0.25)
+    $ slice 16 "0 . 1 <~ 1 2>"
+    $ loopAt 6
+    $ "rita:0"
+    # gain 0
+    # cut 6
+    # hpf 400
+
+
+  d8 $ g -- Organic madness
+    $ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
+    $ sometimesBy (slow 4 saw) (ply 2)
+    $ chop 4
+    $ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw))
+    -- $ mask "<f!32 t!32>"
+    $ "forgan:14"
+    # lpf 1000
+    # gain 0.3 * "<1!7 0.95 0.9!7 0.85>"
+    # cut 8
+  d10 -- F-U-N-K
+    $ mask "<f!8 t!24>"
+    $ degradeBy "0 <0.5 0.45 0.35 0.3 0.25 0.2 0.15>!7 <1!3 0>"
+    $ whenmod 64 48 (swing "<6!8 [3 4]!8>")
+    $ someCyclesBy "<1!48 0!16>" (ply "<1 <2 [4 2]>>")
+    $ n "5 20 13 10"
+    # "alphabet"
+    # release 0.8
+    # gain (slow 32 $ range 0.2 0.34 cosine)
+    # pan "<0.1!4 0.9!4>"

live/midi/nova/zelda.tidal

 once $ "space" # gain 0.4
 
+
+
+-- Legend of Main theme
+do
+-- region Utils
+let modIndex = pF "modIndex"
+let cF5 ch = cF 0.5 ch
+let gDJF = (# djfbus 1 (range 0.15 0.99 "^49"))
+let gRoom = (# roombus 2 (cF5 "51"))
+let gSize = (# sizebus 3 (cF5 "52"))
+let g = gDJF . gRoom . gSize
+let gG = 2 * "^77"
+let gM' l h ch  = gain (range l h (gG * ch))
+let gM ch  = gM' ch 0 1
+let ampb bus pat = (ampbus bus (gG * pat))
+let midiOn ch pat = someCyclesBy ch pat
+setcps (95/60/4)
+-- endregion
+d1 $ g
+  $ midiOn "^42" (fast 2)
+  $ midiOn "^41" (<| "k k k [<k!3 ~> <~ k>]")
+  $ midiOff "^41" (<| "k . k(<3!3 5>,8)")
+  $ "[jazz,cpu2]"
+  # gM' 0 1.2 "^78"
+d2 $ g
+  $ midiOn "^43" (fast 2)
+  $ "h*8"
+  # "hh"
+  # gM' 0 1.5 "^79"
+d3 $ g
+  $ midiOff "^41" (slow 2)
+  $ midiOn "^44" (slow 2)
+  $ midiOn "^76" (loopAt 0.5)
+  $ slice 8 "[0 <0 1> <0 0 2 2> <0!4 3!4>]*4"
+  $ "breaks165"
+  # gM' 0 1 "^80"
+d4 $ g
+  $ note ("a e . a ~ ~ <c6 e6 c6 e6 e6 e6 e6 c6>"
+  - 24)
+  # "bassWarsaw"
+  # ampb 40 (range 0 0.45 "^81")
+  # room 0.2
+  # crushbus 41 (range 16 2.95 "^53")
+d5 $ g
+  $ note (cat [
+    "a e . [~ . a] [a b c6 d6]",
+    "e6 . ~ ~",
+    "a e . [~ . a] [a b c6 d6]",
+    "e6 . ~ ~",
+    "a e . [~ . a] [a b c6 d6]",
+    "e6 . ~ [e6*2]",
+    "f6 . ~ g6 . a6 ~",
+    "a6 a6 g6 f6 . g6 [~ f6] e6 ~",
+    "[d6 ~ d6 e6] f6 . ~ [f6 . e6 d6]",
+    "[c6 ~ c6 d6] e6 . ~ [e6 . d6 c6]",
+    "[b5 ~ b5 cs6] ds6 . ~ fs6",
+    "e6"
+    ] - 12
+    )
+  # "FMRhodes1"
+  # modIndex (range 1 15 "^54")
+  # ampb 50 (range 0 0.45 "^82")
+
+
+
+
+
+
+
+-- V0.1 Noel 2020
 do
 -- region Nova Utils
 let gF = 1.5

live/mood/fight/clav_clash.tidal

@@ -19,7 +19,7 @@ d4 -- Clav clash kalash!
   $ loopAt 2
   $ "fclav"
   # n 10
-  # gain 0.5
+  # gain 0.65
   # cut 4
 d5 -- Cymbales noise
   $ sometimesBy "<1!16 0!112>" (|* gain (slow 16 $ saw))
@@ -52,6 +52,6 @@ d7 -- LEAD PIANO!
   $ arp "<up!3 down>"
   $ note ("<e g e b>" + "c'majPent'4 c'minPent'4")
   # "superpiano"
-  # velocity (slow 256 $ range 0.25 0.55 cosine)
+  # velocity (slow 256 $ range 0.25 0.5 cosine)
   # pan 0.6
   # legato 2 # room 0.1