live: Franken v1

live/hip/trapped_in_space.tidal

@@ -10,11 +10,11 @@ d1
   $ whenTrap (|<| "k ~ ~ k . ~")
   $ "k ~ ~ k . ~"
   # "reverbkick"
-  # lpf 500
+  # lpf 1500
   # orbit 0
   # legato 2
   # room 0.2 # dry 1
-  # gain 0.75
+  # gain 0.85
 d2
   $ "~ hh27:9"
   # lpf 1000
@@ -46,7 +46,7 @@ d4
     + prog
   ) - 24)
   # "arpy"
-  # gain (slow 24 $ range 0.55 0.75 perlin)
+  # gain (slow 24 $ range 0.55 0.65 perlin)
   # lpf 500
   # room 0.3
   # orbit 4
@@ -59,12 +59,13 @@ d5
   $ note (scale "aeolian" (
     "0 . 0 [0 1]"
     + prog
+    + "[0,7]"
     ) - 24)
   # orbit 4
   # "supersaw"
   # voice 0.1
   # pan 0.2
-  # gain (slow 16 $ range 0.35 0.55 perlin)
+  # gain (slow 16 $ range 0.35 0.65 perlin)
 d6
   $ note (scale "aeolian" (
     whenmod 16 9 (+ "<0 -1 -2 -4>")

live/midi/break_metal.tidal

@@ -6,7 +6,7 @@ do
   setcps (70/60/4)
   d1
     -- $ fast (slow 8 "<1 2 4 <8 [8 0]>>")
-    $ "[cpu,jazz]*8"
+    $ "[cpu,jazz]*4"
     # room 0.8 # sz 0.8
     # dry 1.02
     # lpf 2000

live/midi/nova/breaks/break_90s.tidal

@@ -3,12 +3,10 @@ import Sound.Tidal.ParVagues.Control
 -- Accompagnement en ré au https://mmontag.github.io/dx7-synth-js/
 
 
--- Break90s∷
-
-
 setcps (80/60/4)
 resetCycles
 
+-- Break90s∷ :)
 do
 let gF = (whenmod 16 12 (# djf (slow 4 $ range 0 0.5 sine)))
 let gDJF = (midiDJF "^49" 0 10000 0 10000)
@@ -68,7 +66,7 @@ d3 -- Bassline
   # cut 3
   # crush (range 10 4 "^53")
   # pan 0.2
-  # midiG' ("^81" + 0.125*"^53") 0 1.5
+  # midiG' ("^81" + 0.125*"^53") 0 1.8
 d4 -- Skank organ
   $ g
   -- $ superimpose (const $ g
@@ -102,7 +100,7 @@ d5 $ g
   $ whenmod 16 4 (|+| note "<0!4 [0 a4]!4>")
   $ note "<d3!3 [g3 . ~ a4]>"
   # "superpiano"
-  # velocity (0.35 + perlin/8)
+  # velocity (0.4 + perlin/8)
   # room 0.6 # sz 0.8
   # pan 0.6
   # orbit 5

live/midi/nova/breaks/slower.tidal

@@ -2,6 +2,8 @@ import Sound.Tidal.ParVagues.Control
 
 setcps (80/60/4)
 
+-- Merci :)
+
 do
 let gF = (whenmod 16 12 (# djf (slow 4 $ range 0 0.5 sine)))
 let gDJF = (midiDJF "^49" 0 10000 0 10000)
@@ -17,15 +19,15 @@ d1 $ g -- KICK
   $ midiOn "^42" (<| "k*4 . k k k k*<1 2>") -- Run
   $ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)")
   $ "[hh27:6,jazz]"
-  # midiG' "^78" 0 1.5
+  # midiG' "^78" 0 1.9
   # room 0.3 # sz 0.5 # dry 0.9
 d2 -- Breakbeat
   $ g
   $ midiOn "^43" (fast "[1|2|0.5]" . loopAt 1)
   -- $ midiOn "^43" (fast 4 . often (scramble 2))
   -- $ sometimesBy "0 <0.5!3 0.95>" (ply "[2|4]")
-  $ slice 16 "~ <0 1 2 3>" $ "break"
-  # midiG' "^79" 0 1.8
+  $ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break"
+  # midiG' "^79" 0 1.75
 d3 $ g
   $ midiOn "^44" (fast 2)
   $ "d ~ ~ d d ~ d <~!3 d>"
@@ -61,7 +63,7 @@ d5 -- fmono
   $ "fmono:40"
   # cut 4
   # crush (range 12 1.85 "^54")
-  # midiG' ("^82" + 0.125 * "^54") 0 1
+  # midiG' ("^82" + 0.125 * "^54") 0 1.2
   # orbit 5 # room 0.3 # sz 0.8 # dry 1
 d9 -- Hats
   $ g
@@ -104,7 +106,7 @@ d7 -- Arps FMRhodes1
   # pan 0.3
   # modIndex (range 0 100 "^34")
   # room 0.6 # sz 0.8
-  # midiG' "^18" 0 1.2
+  # midiG' "^18" 0 1.8
 d10 -- Follow claps
   $ g
   $ "~ clap"

live/midi/nova/dnb/BreakBass.tidal

+resetCycles
+
 do -- BreakBass: Break to DNB
 -- region moogBass parameters
 let cutoff = pF "cutoff"
@@ -27,8 +29,7 @@ let gDJF = (gLPF . gHPF)
 -- endregion Nova Utils
 let g = (gDJF . gReverb)
 let prog = "<1 1 2 4>"
-setcps (139/60/4)
-resetCycles
+setcps (159/60/4)
 d1 $ g
   $ mask "<f!3 t!125>"
   $ someCyclesBy "<0!8 2 0!55>" (<| "k*12")

live/midi/nova/dnb/frankenbass.tidal

+resetCycles
+
+import Sound.Tidal.ParVagues.Control
+
+setcps (159/60/4)
+
+-- .....  8 Intro  -> 8 Hello DNB -> 16 Arps
+-- Kick     RushDrop
+-- S                --  HELLO SNARE -- LOWER SNARE
+-- B
+-- C
+
+do
+  let g = id
+  let mel = "c"
+  let prog = ("<cs5!4 a4 a4 b4 gs4>")
+  let chorus = pF "chorus"
+  let mix = pF "mix"
+  let modIndex = pF "modIndex" -- 0.2
+  d1 $ g
+    $ someCyclesBy "<1!8 0!24>" (<| "k*<1 1 2 2 4 4 8 16>")
+    $ someCyclesBy "<0!8 1!24>" (<| "k . ~ k ~ ~")
+    $ "reverbkick" # sus "0.25"
+    # gain 0.85
+  d2
+    $ mask "<f!8 t!24>"
+    $ "~ s ~ s*<1 2 1 1>"
+    # "[snare:21,snare:22,snare:3]"
+    # note "<0!16 -4!16>"
+  d3 -- Drumroll
+    $ mask "<f!16 t!16>"
+    $ mask "<t(4,8)!8 t!8>"
+    $ "drum:2*[8 <8 16 32> 8 16]"
+    # room 0.4
+    # gain "<0.75 0.8!15>" * 1.35
+  -- d3 $ g -- BASSLINE
+  --   $ novaOn "^41" (mask "<f!8 t!120>")
+  --   $ loopAt 2
+  --   $ note (scale "aeolian" $ mel)
+  --   # "bassWarsaw"
+  --   # pan 0.2
+  --   # octave 2
+  --   # cut 3
+  d4 -- Rhodes base + chords
+    $ mask "<f!3 [f t] f!3 t t!24 t!32>"
+    $ someCyclesBy "<0!16 1!16>" ( -- ARPS <3
+      (|+ note 12)
+      . sometimesBy "0 0.5!7" rev
+      . fast "1 2"
+      . arp "pinkyup"
+      . (|+ pan 0.1)
+      . (|* gain 1.2)
+    )
+    $ note ((
+      "<0 ~> 0"
+      + prog
+      + "0 -12"
+      - "12" -- Octave
+    ))
+    # "FMRhodes1"
+    # modIndex "[0,5,10]"
+    # pan 0.6
+    # crush (range 10 4 "^54") --TODO Drop2
+    # gain 0.85
+  d5
+    $ mask "<f!32 t!32>"
+    $ slice 8 (run "<8!4 4!4>")
+    $ (loopAt 1)
+    $ "breaks165"
+    # gain 0.95
+
+once $ "macron:10" # gain 1.5
+
+
+-- # gM' 0 1 "^80"

live/midi/nova/dnb/prepabass.tidal

@@ -5,6 +5,8 @@ once $ "methbass:3" # cut 1 # gain 0 -- Comete
 
 once $ "methbass:4" # cut 1 # gain 0 -- ALERTE
 
+resetCycles
+
 do
 -- region Nova Utils
 let gFactor = 1.2

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
 let gF = 1.5
 let gG a = (gain (gF * "^77" * a)) -- gain Global
@@ -11,7 +14,6 @@ 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 g = gDJF
-setcps (115/60/4)
 d1 $ g
   $ midiOn  "^42" (slow 4)
   $ midiOn  "^41" (<| "k k k <k!3 k*2>")
@@ -25,6 +27,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
   $ 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)
@@ -73,6 +76,7 @@ d7 $ g
   # gM' 0 1.3 "^83"
   # cut 7
 d8 $ g
+  $ midiOn "^92" (|+ note 12)
   $ midiOn "^60" (
   superimpose (
     struct "t(5,8)"

live/midi/nova/lounge/top_hats.tidal

@@ -13,21 +13,24 @@ let gG a = (gain (1.2 * "^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 gDJF = midiDJF "^49" 0 10000 0 7500
-let g = (gDJF)
+let gFreqL = (# lpq (range 0 0.25 "^29"))
+let gFreqH = (# hpq (range 0 0.25 "^30"))
+let gFreqs = (gFreqH . gFreqL)
+let g = (gDJF . gFreqs)
 setcps 0.5
 d1 $ g
   $ midiOn "^41" ( -- KICK RUN
-    ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.5))
+    ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.25))
   )
   $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
   $ "hh27" # n "[5,6]"
-  # gM' 0 3 "^78"
+  # gM' 0 4 "^78"
 d2 $ g  -- Breathing snare contretemps
   $ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>")
   $ "hh27:2 hh27:7"
   # room 0.6 # sz 0.7 # dry (slow 20 $ range 0 2 perlin)
   # gM' 0.5 1.5 "^79"
-d3
+d3 -- Runny Maracas
   $ g
   $ whenmod 16 8 (often $ fast 2)
   $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
@@ -54,7 +57,7 @@ d6 $ g -- Guitar riffs
   # room 0.3
   # sz 0.9
   # gM' 0.4 1.5 "^81"
-d4
+d4 -- Rhodes base + chords
   $ g
   $ midiOn "^58" (superimpose ( -- ARPS <3
     (|+ note 12)
@@ -74,7 +77,7 @@ d4
   # modIndex "[0,5,10]"
   # pan 0.6
   # crush (range 10 4 "^54")
-  # gM' 0.3 1.6 "^82"
+  # gM' 0.3 1.9 "^82"
 d5 $ g -- Choirs + arps
   $ juxBy "-0.7" (
     arp "<up <up down>>"
@@ -88,17 +91,17 @@ d5 $ g -- Choirs + arps
   # gM' 0.3 1.5 "^56"
   # pan 0.2
   # chorus 0.6
-d8 $ g
+d8 $ g -- Electrified laggy moog
   $ midiOn "^91" (ply 2)
   $ midiOn "^59" (
     (# lpf 2000)
-    . (# crush (range 16 4.5 "^55"))
     . (# lpq (slow 16 $ range 0 0.15 perlin))
   )
   $ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
   $ note (prog + "0 12")
   # "moog"
   # cut 8
+  # crush (range 16 4 "^55")
   # gM' 0 1.8 "^83"
   # release 100
 d9 $ g

live/midi/nova/party/funk_angel_frappe.tidal

@@ -16,7 +16,7 @@ let novaOff ch pat = someCyclesBy (1 - ch) pat
 let g = (gDJF . gRes)
 setcps 0.5
 d1 $ g
-  $ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>"
+  -- $ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>"
   $ "k k k <k [k k] k [~ k]>"
   # "[jazz,cpu]"
   # room 0.8 # sz 0.8 # dry 1

live/midi/zelda/mashup.tidal

@@ -2,6 +2,12 @@ setcps (120/60/4)
 
 once $ note ("a3 g3 f3 e3") #"arpy"
 
+-- Main theme
+-- https://musescore.com/static/musescore/scoredata/gen/6/4/8/4880846/ea1cf311c1390dad9144c752c6a58c4bfd11923d/score_0.png@850x1100?no-cachee=1563558543
+
+-- Kass's theme
+-- https://musescore.com/chromelxd/scores/3604791
+
 -- Meeting the Heart Fairy
 do
 resetCycles

live/mood/tired/afternoon.tidal

 import Sound.Tidal.ParVagues.Control
 
+-- Gauche si+mi/sol+re/la+fa/si+sol
+-- Droite whatever autour ;)
+
+
 resetCycles
 
 do
@@ -50,7 +54,8 @@ d6 $ g -- Nappes Rhodes
   # pan 0.2
   # modIndex (range 0 100 "^54")
   # midiG' "^82" 0 1.8
-d7 -- Hello PWM!
+d7 $ g -- Hello PWM!
+  $ (|* gain "<1!15 0.8>")
   $ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
   $ midiOn "^89" (superimpose $ segment 16)
   $ note (mel - 12)
@@ -60,7 +65,7 @@ d7 -- Hello PWM!
   # rate "<1!5 2 4 <1 4>>"
   # resonance (slow 32 $ range 0.2 0.6 sine)
   # crush (range 10 3 "^53")
-  # midiG' "^81" 0 1.75
+  # midiG' "^81" 0 2
 
 -- TODO MidiCloud
 p "midiclock" $ midicmd "midiClock*48" # s "midi"