live: Prepa stream

backlog.md

@@ -2,18 +2,32 @@
 -- Nina(s) with Raph
 -- Stupefaction with Raph
 -- Breakbass with Nass
+-- Prepabass with Nass
+
 # Work in progress
 
 ## Worksheet
 - Jazz noise: basis for jazzy drums / hip instru
 - TODO Foret noire: techno sorciere-forestiere!
 
+- Trapped in space: glitchy late trap dark space beat
+
+## Matière
+- Minibreak: many small breakbeats
+- Beats.tidal: various background beats, hip/techno
+
 ## MIDI
-Beats.tidal: various background beats, hip/techno
 
 - Metal break! Guitar break en Si
 - Cyprès Poudreux - Break dusty cypress + guitars, too much cypress
 - BruitHiver: grand froid cosmic noise
+- Break90s: break sec + organ, monosynth + impro dx7
+
+-- Afternoon: Chill breakbeat evening sunset PWM
+---- Excellent accompagnement deux mains:
+-- Gauche si+mi/sol+re/la+fa/si+sol
+-- Droite whatever autour ;)
+
 
 --Dubmini: mini minor midi dub basis
 
@@ -21,7 +35,7 @@ Beats.tidal: various background beats, hip/techno
 
 ### Nova
 - Funk angel frappe: techno dark frappe?
-
+- TopHats: technopunk+hhats+arps <3
 
 ## ARDOUR
 - HarpsiDub: minidub + harpsichord
@@ -43,8 +57,6 @@ Epilog!
 <!-- endregion -->
 
 
-- Tired Funk: Nice
-
 - Solitude hivernale: cool melancolic hip
 - Break britafuninnique: boucle hip hop breatbeat piano attend un lead
 
@@ -84,12 +96,9 @@ La voix de l'Ordre: Monotonal drone <> breakbeat
 
 ### Mood
 -- ToneDown: Techno numérico-mélancolique résolvable
--- Afternoon: Chill breakbeat evening sunset
 
 ## Hip-hop
 -- Boom [minibeat]
--- Re comme remede dans malade!
-
 
 ## Copycat
 - 44 More
@@ -103,7 +112,26 @@ La voix de l'Ordre: Monotonal drone <> breakbeat
 # Somewhat complete
 ## Prod
 -- Good morning Minneapolis: time to finish
--- Chaude civ: Breakbeat bassline diphonique
+-- Chaude civ: Breakbeat bassline diphonique yalta
 
 ## Record :)
 - Morning flowers: breakbeat bassline funky + MIDI Jazzy éventuel :)
+
+## LIVE Twitch
+-- 20/03/21 Slower :)
+-- TODO: Afternoon Breakbeat+pwm
+
+-- Invoque été ?
+
+### Live 27/03
+-- Intro TopHats
+-- Afternoon? Pourquoi pas mais avec clavier -  DX7?
+
+-- Intermission Flowers: Jazz Techno MIDI Impro
+-- Break 90s?
+
+-- Avant final: Invoque l'été
+--- Final Slower:)
+
+## LIVE XXX
+-- DNB/Meurice

live/hip/chaude_civ.tidal

@@ -38,7 +38,7 @@ d5 -- Guitare conclusive seconde partie
   # n (slow 16 $ "<12 14 13 15>")
   # room 0.2
   # cut 5
-  # gain 0.45
+  # gain (slow 32 $ range 0.45 0.55 saw)
 d9 -- Invader fight: Tir variable, echec | touche | ambulance
   $ mask "<f!16 [t f]!8 t!8>"
   $ fix ((|* gain 0.9) . (# pan 1)) (n "9")
@@ -53,7 +53,7 @@ d6 -- A Yatta, a Jutta!
   $ fast "<2!4 1!4> <2!4 4!4 2!4 4 4 [8 4!3] [4!3 8] 2!4 8!4 4!8 2!4>"
   $ "diphone"
   # n (slow 38 $ "<0 .. 38>")
-  # gain (slow 128 $ range 0.2 0.65 (saw + (perlin /2)))
+  # gain (slow 128 $ range 0.3 0.85 (saw + (perlin /2)))
   # pan 0.5
   # cut 6
 d7 -- Synth second bass

live/hip/instru/minibreak.tidal

@@ -45,7 +45,6 @@ d4
   # release 0.9
   # cut 4
 
-
 -- Mini2: minimaliste breakbeat
 do
   setcps (80/60/4)

live/hip/trapped_in_space.tidal

+resetCycles
 -- TRAPPED IN SPACE: Glitchy trap beat
 
 do

live/midi/dusty_cypres.tidal

+resetCycles
+
 do
 setcps (90/60/4)
-resetCycles
 let glob = (degradeBy $ "<0 1> 0.95!15" * (1 - (cF 0 "1")))
 d1 -- Beat
   $ mask "<f!4 t!12>"
@@ -8,7 +9,7 @@ d1 -- Beat
   # "reverbkick"
   # lpf 2000
   # legato 1.5
-  # gain (fast 8 $ 0.9 + (perlin/10))
+  # gain (fast 8 $ 0.8 + (perlin/10))
 d2 -- Break
   $ glob
   $ loopAt 4

live/midi/nova/breaks.tidal

-
 d1 $ "dr*8" # gain "^80"
 
 do

live/midi/nova/breaks/break_90s.tidal

@@ -2,15 +2,16 @@ import Sound.Tidal.ParVagues.Control
 
 -- Accompagnement en ré au https://mmontag.github.io/dx7-synth-js/
 
+
+-- Break90s∷
+
+
 setcps (80/60/4)
 resetCycles
 
 do
-let gG a = (gain (1 * "^77" * a)) -- gain Global
 let gF = (whenmod 16 12 (# djf (slow 4 $ range 0 0.5 sine)))
 let gDJF = (midiDJF "^49" 0 10000 0 10000)
-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 g = (gF . gDJF)
 d1
   $ g
@@ -19,27 +20,27 @@ d1
   . (# room 0)
   . (|* gain 0.9)
   )
-  $ midiOn "^42" (mask "<f!8 t!24>")
   $ whenmod 4 2 (off (-1/"<8 16>") (
     degradeBy "0 1!7" . (|* gain 0.9))
   )
-  $ midiOff "^41" (
+  $ midiOn "^42" (<| "k . ~ k ~ ~")
+  $ midiNo "^41" "^42" (
     someCyclesBy "<0!8 1!8>" (<| "k . k(<5 <3 [3 <8 [8!3 4]>]>>,8)")
    . someCyclesBy "<1!8 0!8>" (<| "k . <~!4 k!4>" )
   )
-  $ "reverbkick"
-  # room 0.4 # sz 0.8 # dry 0.99 # orbit 1
-  # midiG' "^78" 0 1.5
+  $ "[jazz,808bd:2]"
+  # room 0.5 # sz 0.2 # dry 0.99
+  # midiG' "^78" 0 1.4
 d2
   $ g
-  $ midiOn "^43" (slice 4 "0 1")
+  $ midiOn "^43" (slice 4 "0 1*<1 1 2 4>")
   $ midiOff "^43" (
     slice 4 (
     "0 1*[1|2] 2 3*<1 1 2 <2 4>>" -- Progressif
     -- "0 <~ 0 1 ~> <0 0 2 2> <~ 0 2 3>" -- Broken
   ))
   $ "fbreak80:2"
-  # midiG' "^79" 0 1.5
+  # midiG' "^79" 0 1.65
   # pan 0.6
   # cut 2
 d3 -- Bassline
@@ -68,53 +69,63 @@ d3 -- Bassline
   # crush (range 10 4 "^53")
   # pan 0.2
   # midiG' ("^81" + 0.125*"^53") 0 1.5
-d4
+d4 -- Skank organ
   $ g
-  $ superimpose (const
-    $ whenmod 8 4 (degrade)
-    $ segment 8 $ "fmono:9"
-    # midiG' "^55" 0.2 1.2
-    # cut 42)
-  $ midiOn "^59" (superimpose (
+  -- $ superimpose (const $ g
+    -- $ whenmod 8 4 (iter "1 4")
+    -- $ segment 8 $ "fmono:9"
+    -- # midiG' "^55" 0.2 1.2
+    -- # cut 42)
+  $ midiOn "^59" (superimpose ( -- MAD ARPS
     degradeBy ("0 1!14 0" * (slow 16 $ (1-"^55")))
     . struct "t*16"
     . (|+ note (12 + "[0|5]"))
-    . (|* gain (slow 16 $ range 0.9 0.5 sine))
+    . (|* gain (slow 16 $ range 0.85 0.65 sine))
     . (# cut 41)
   ))
   $ slice 8 ("<~ 3 ~ 2> 0 <~ 4 5 6> <0 1>")
   $ "forgan:9" # cut 5
   # orbit 4
   # room 0.7 # sz 0.8
-  # midiG' "^83" 0.2 0.8
+  # midiG' "^83" 0.2 1
 d5 $ g
   $ midiOn "^58" (superimpose (
     (0.5 ~>)
+    . degradeBy (1 - "^54")
     . fast "<1!8 2!8 4!8 1!4 2!4 4!8>"
     . (|+ note ("12"))
     . (|* gain 1.2)
     . (|+ pan 0.125)
   ))
+  $ degradeBy (1 - "1 ^54!3")
   $ sometimesBy 0.125 ("1/32" ~>)
   $ whenmod 16 4 (|+| note "<0!4 [0 a4]!4>")
   $ note "<d3!3 [g3 . ~ a4]>"
   # "superpiano"
   # velocity (0.35 + perlin/8)
-  # room 0.6 # sz 0.5
+  # room 0.6 # sz 0.8
   # pan 0.6
   # orbit 5
   # midiG' "^82" 0.3 1.5
-d8 $ g
-  $ someCyclesBy (slow 8 $ saw) (juxBy 0.3 rev)
+d8 -- Tom roll
+  $ g
+  $ midiOn "^76"  (fast 2)
+  $ midiOn "^44"  (<| "~ h ~ h")
+  $ midiOff "^44" (<| "h(<4 5 8 [8 16]>,8)")
+  -- $ someCyclesBy (slow 8 $ saw) (juxBy 0.3 rev)
   $ whenmod 16 8 (ply "2 1")
-  $ "hh27:2(<4 5 8 [8 16]>,8)"
+  $ "hh27:2"
   # pan 0.8 # room 0.4 # orbit 8 # dry 0.9
   # midiG' "^80" 0 1.5
-d9
+d9 -- Finger claps
   $ whenmod 16 12 (
     fast 2 . (|* gain (slow 4 $ range 1 0.5 saw))
   )
-  $ midiOn "^60" (fast 2 ) -- TODO DNB
-  $ "~ clap"
+  -- $ midiOn "^60"   (<|)
+  $ midiOff "^60"  (<| "~ c")
+  $ "clap"
+  # speed (range 0.75 1.25 "^56")
   # release "<0.25!3 0.125 0.25!4 0.125!4>"
-  # midiG' "^84" 0 1.5
+  # midiG' "^84" 0 1.7
+
+once $ "dr"

live/midi/nova/breaks/slower.tidal

+import Sound.Tidal.ParVagues.Control
+
+setcps (80/60/4)
+
+do
+let gF = (whenmod 16 12 (# djf (slow 4 $ range 0 0.5 sine)))
+let gDJF = (midiDJF "^49" 0 10000 0 10000)
+let gFreqL = (# lpq (range 0 0.25 "^29"))
+let gFreqH = (# hpq (range 0 0.25 "^30"))
+let gFreqs = (gFreqH . gFreqL)
+-- region Params Rhodes
+let modIndex = pF "modIndex"
+-- endregion
+let g = (gF . gDJF . gFreqs)
+d1 $ g -- KICK
+  $ midiOn "^41" (<| "k <k!4 ~ k!3> k k*<1 <2 4>>")
+  $ 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
+  # 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
+d3 $ g
+  $ midiOn "^44" (fast 2)
+  $ "d ~ ~ d d ~ d <~!3 d>"
+  # "snare:22"
+  # midiG' "^80" 0 1.8
+  # speed (range 0.5 1.5 "^52")
+d4 -- Bassline
+  $ g
+  $ midiOn "^57" (-- + Arps aigus!
+    superimpose (
+      often (off "h" rev)
+      . (|+ note (
+        "[0 <12 <12 24>>]" -- spread
+        + "0(5,8)" |+ "0 7"
+        + 12
+      ))
+      . (|* gain (1 - (0.1 * "^53")))
+      . (# crush (range 12 1.85 "^53"))
+    )
+  )
+  $ note ("<0 [0 . 0 [0 3] 5 ~]>")
+  # "bass1"
+  # crush (range 10 5 "^53")
+  # room 0.5 # sz 0.8 # orbit 4
+  # pan 0.2
+  # midiG' "^81" 0 1.3
+d5 -- fmono
+  $ g
+  $ (# lpf (range 10000 5000 "^54"))
+  $ slice 8 (
+    "0 <1 1 0 0*2> 2 3*<1 <2 4>>" +
+    "<0 3>")
+  $ "fmono:40"
+  # cut 4
+  # crush (range 12 1.85 "^54")
+  # midiG' ("^82" + 0.125 * "^54") 0 1
+  # orbit 5 # room 0.3 # sz 0.8 # dry 1
+d9 -- Hats
+  $ g
+  $ fix (
+    midiOff "^60" (slow 4)
+    . whenmod 8 6 (fast "<2 [2 4]>")
+    . (>| "hh*[<4 8 8 4> 8 8 16]")
+    . (# cut 91)
+  ) ("a")
+  $ fix (
+      midiOff "^60" (fast 2 . (<| "~ c"))
+    . midiOn  "^60" (every' 4 3 (fast 2) . (<| "c*[8 16]"))
+    . (# "hh27:2")
+    ) ("b")
+  $ "[a,b]"
+  # orbit 9
+  # midiG' "^84" 0.2 1.5
+d6 -- Pwm steps
+ $ g
+ $ whenmod 32 16 (scramble 2)
+ $ note (
+   "0*2 . ~ 0*2"
+   + "0 <0 12>"
+   + (arp "up" "<c'minor'4!3 c'maj'4>")
+   + "-24" -- Base gamme
+ )
+ # "superpwm"
+ # voice (range 0.01 2 "^55")
+ # pan 0.8
+ # room 0.5
+ # sz 0.4
+ # midiG' "^83" 0 1.2
+d7 -- Arps FMRhodes1
+  $ stut 4 "q" "[0.95|0.8]"
+  $ g
+  $ superimpose (arp "down" .
+  (|+ note ("c'maj'2" + "0 12" + 12)))
+  $ note "<c4 ds4 c4 b3>/2"
+  # "FMRhodes1"
+  # pan 0.3
+  # modIndex (range 0 100 "^34")
+  # room 0.6 # sz 0.8
+  # midiG' "^18" 0 1.2
+d10 -- Follow claps
+  $ g
+  $ "~ clap"
+  # midiG' "^56" 0.3 1.3
+  # room 0.2
+
+
+
+-- region Sandbox
+
+d3
+  $ whenmod 4 2 (someCycles $ ply 2)
+  $ slice 4 "<0 1 0 1 2 3 2 3>" $ "break:1" # gain 0.85
+
+d4
+  $ note (
+    scale "lydian" ("0 4 3 <4 1 5 3>" + "c'maj"
+    + "<0 0 1 1 2 2 3 3>")
+    - 12
+  )
+  # "FMRhodes1" # gain 0.9
+
+once

live/midi/nova/dnb/meurice.tidal

+import Sound.Tidal.ParVagues.Control
+
+-- This is a test ;)
+--
+do
+setcps (160/60/4)
+let gDJF = midiDJF "^49" 200 9800 0 4000
+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))
+let g = (gDJF . gFreqL . gFreqH)
+d1
+  $ g
+  $ superimpose ( -- Undertone
+    (|+ note "<12!3 8 12!2 8 4>")
+    . (|* gain 0.9)
+  )
+  $ (|* gain "1!7 0.95")
+  $ "b . ~ b ~ <~!3 b>"
+  # "[reverbkick,jazz,kick:5]"
+  # release 0.8
+  # midiG' "^78" 0 1.2
+d2
+  $ g
+  $ g32Bridge
+  $ whenmod 16 12 (struct "t*<4 4 8 16>")
+  $ whenmod 16 8 (fast 2)
+  $ "~ cp"
+  # "[snare:4,snare:22]"
+  # pan 0.55
+  # note (range "-7" 7 "^51")
+  # room 0.8 # dry 0.99 # sz 0.2
+  # midiG' "^79" 0 1.2
+d3 -- Running Hats
+  $ g
+  $ degradeBy ("1 0 0 1!13" - "^52")
+  $ midiOn "^44" (fast 2)
+  $ "h2ogmhh*8"
+  # n "[0|0|0|0|1|1|3|3]*8"
+  # midiG' "^80" 0 (1.3 + (slow 4 $ perlin/4))
+  # room  (slow 8 $ range 0.2 0.45 saw)
+  # sz    (slow 8 $ range 0.8 0.2 saw)
+  # dry   (slow 4 $ range 0 2 perlin)
+  # pan 0.6
+  # cut 3
+d4 -- Resolute Bass
+  $ g
+  $ midiOn "^57" ( -- Glitch vary end
+    whenmod 32 8 (slice 8
+    "<[0 1 <2!3 1*2> <3!3 1*2>]!4 0*4!2 [0 1 0 1] [0 1 0 [0 1 2 3]]>"
+  ))
+  $ loopAt 4
+  $ chop 16
+  $ "fbass:25"
+  # pan 0.15
+  # room 0.25 # sz 0.1
+  # crush (range 16 1.45 "^53")
+  # midiG' "^81" 0 1.6
+  # cut 4
+d6 -- Guitar A
+  $ g
+  $ mask "<f!3 t>"
+  $ ("0.175" ~>) -- Calage
+  $ whenmod 4 2 (slice 8 "0")
+  $ slice 5 4
+  $ segment 16
+  $ "fguitar:24"
+  -- # pan 0.8
+  # crush (range 10 3.5 "^54")
+  # midiG' "^82" 0 (1.2 * (range 1.4 0.5 "^18"))
+  # cut 6
+d7 -- Guitar B
+  $ g
+  $ whenmod 4 3 (# silence)
+  $ segment "<0.5!2 1 <2 4 8 [8 16]>>"
+  $ "fguitar" # n "<25!3 [25 26] 25!2 27!2 27!8>"
+  # pan 0.65
+  # crush (range 10 2 "^54")
+  # midiG' "^82" 0 (1.2 * (range 0.5 1.4 "^18"))
+  # leslie "^34"
+  # lsize (1 + (slow 8 perlin * 2))
+  # lrate 6.7
+  # cut 71
+
+
+
+d6 $ "seawolf:0/4"
+  # cut 6
+  # gain 0.75
+
+once $ "dr" # gain 1

live/midi/nova/lounge/invoque_ete.tidal

 import Sound.Tidal.ParVagues.Control
 
+resetCycles
+
 do
-let gF = 1.3
+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 g = gDJF
 setcps (115/60/4)
 d1 $ g
-  $ novaOn "^41" (<| "k k k <k!3 k*2>")
-  $ novaOff "^41" (<| "k*2")
-  $ "[reverbkick,jazz,808bd:1]"
+  $ midiOn  "^42" (slow 4)
+  $ midiOn  "^41" (<| "k k k <k!3 k*2>")
+  $ midiOff "^41" (<| "k*2")
+  $ "[jazz,808bd:1]"
   # gM' 0 1.2 "^78"
-d2 $ g
-  $ novaOn "^75" (fast 2)
+d2 $ g -- Clave de l'été
+  $ midiOn "^75" (fast 2)
   $ (|* gain "0.75 1 1 1 0.75 1 1 1")
   $ "d ~ ~ d d ~ d <~!3 d>"
   # "snare:22" # gM' 0 1.4 "^79"
   # speed (range 0.5 1.5 "^51")
 d4 $ g
-  $ midiOn "^44" (slice 8 "0 <1 ~> 7 3*<1 2 4 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)
   $ someCyclesBy "^52" (iter 4)
   -- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>"
@@ -34,14 +36,16 @@ d4 $ g
   # cut 4
 d5 $ g
   $ loopAt 2
-  $ slice 8 (run "<4!4 8 8 [4 8 4] 8>")
+  $ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
   $ "fbass:13"
   # pan 0.2
   # room 0.2
+  # lpq  (range 0 0.125 "^33")
   # crush (range 10 4.5 "^53")
   # gM' 0.3 1.1 "^81"
   # cut 4
 d6 $ g
+  $ chop 16
   $ someCyclesBy "^58" (superimpose (
     degradeBy (slow 8 $ sine) . segment 8
     . (# speed 1)
@@ -54,6 +58,8 @@ d6 $ g
   $ loopAt 4
   $ "fguitar" # n "<12!16 13!16>"
   # gM' 0 1 "^82"
+  # release (range 0.15 1 "^34")
+  # crush (range 8 1.4 "^54")
   # pan 0.75
   # room 0.2 # dry 1
   # cut 3
@@ -67,31 +73,24 @@ d7 $ g
   # gM' 0 1.3 "^83"
   # cut 7
 d8 $ g
-  $ novaOn "^60" (
+  $ midiOn "^60" (
   superimpose (
     struct "t(5,8)"
-    . arp "down"
+    . arp "[down,up]"
     . (|+ note 12)
     . (|* gain 1.1)
     . (|- pan 0.1)
-    )
-  . superimpose (
-    arp "up"
-    . (|+ note "[12,-12]")
-    . (|* gain 0.9)
-    . (|- pan 0.25)
   ))
   $ note "<a3'maj g3'maj a3'min d3'maj>"
-  # crush (range 8 4 "^56")
+  # octave 4
   # room 0.4
   # "moogBass"
-  # gM' 0 1 "^84"
-  # pan (segment 16 $ "^36")
+  # midiG' "^84" 0 1.8
 d9 $ g
   $ degradeBy (slow 16 $ range 0.8 0.2 saw)
   $ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
-  $ novaOn "^59" (# speed (range 0.25 2 ("^55" + perlin)))
-  $ novaOff "^59" (# speed
+  $ midiOn "^59" (# speed (range 0.25 2 ("^55" + perlin)))
+  $ midiOff "^59" (# speed
     (segment 16 $ fast 2 $ range 0.25 1.2 (perlin + (slow 8 $ sine)))
   )
   $ "hh:3"

live/midi/nova/lounge/top_hats.tidal

@@ -35,6 +35,25 @@ d3
   $ "hh27*8"
   # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
   # gM' 0.5 1.75 "^80"
+d6 $ g -- Guitar riffs
+  $ whenmod 16 12 (off "h" (
+    chop 4
+  . (# cut 61)
+  ))
+  $ slice 4 (
+    whenmod 16 8 (+| "0 <0!6 ~ ~>")
+    "<0!4 1 1 2 3>"
+  )
+  $ note 2 -- correction
+  # "punk"
+  # cut 6
+  # attack (range 0.5 1 "^17")
+  # crush (range 12 1.75 "^53")
+  # lpq (range 0 0.125 "^33")
+  # pan 0.9
+  # room 0.3
+  # sz 0.9
+  # gM' 0.4 1.5 "^81"
 d4
   $ g
   $ midiOn "^58" (superimpose ( -- ARPS <3
@@ -64,42 +83,23 @@ d5 $ g -- Choirs + arps
     . (# lpf 2000)
   )
   $ "moogBass"
-  # note prog
+  # note (prog + "[0,24]")
   # octave 3
   # gM' 0.3 1.5 "^56"
   # pan 0.2
   # chorus 0.6
-d6 $ g -- Guitar riffs
-  $ whenmod 16 12 (off "h" (
-    chop 4
-  . (# cut 61)
-  ))
-  $ slice 4 (
-    whenmod 16 8 (+| "0 <0!6 ~ ~>")
-    "<0!4 1 1 2 3>"
-  )
-  $ note 2 -- correction
-  # "punk"
-  # cut 6
-  # attack (range 0.5 1 "^17")
-  # crush (range 12 3.5 "^53")
-  # lpq (range 0 0.5 "^33")
-  # pan 0.9
-  # room 0.3
-  # sz 0.9
-  # gM' 0.4 1.5 "^81"
 d8 $ g
   $ midiOn "^91" (ply 2)
   $ midiOn "^59" (
     (# lpf 2000)
-    . (# crush (range 16 5 "^55"))
+    . (# 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
-  # gM' 0 1.5 "^83"
+  # gM' 0 1.8 "^83"
   # release 100
 d9 $ g
   $ midiOn "^60" (fast 2 . ply "1 <1 <2!3 1>>")

live/midi/nova/party/funk_angel_frappe.tidal

 -- FUNKY ANGEL FRAPPE
+-- Needs bass/more lead high?
 do
 -- region Nova Utils
-let gFactor = 1.2
+let gFactor = 1.4
 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
@@ -22,10 +23,10 @@ d1 $ g
   # gM' 0 1.5 "^78"
 d2 $ g -- Clap
   $ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2"))
-  $ novaOff "^80" (# silence)
-  $ "~ [clap,cp]"
+  $ novaOff "^60" (# silence)
+  $ "~ [clap,<cp!3 ~>]"
   # lpf 2500
-  # room 0.7 # dry 0.99
+  # room 0 # dry 0.99
   # gM' 0 1.3 "^84"
 d3  $ g -- Break 4/4
   -- $ sometimes (off "e" id)
@@ -64,6 +65,9 @@ d5 $ g -- Synth voices
   $ "fsynth:47"
   # gM' 0 1 "^82"
   # cut 5
+
+
+
 d7 $ g -- Fill drums
   $ (|* gain (slow 10 $ range 0.9 1.2 perlin))
   -- $ loopAt 2

live/midi/zelda/mashup.tidal

+setcps (120/60/4)
+
+once $ note ("a3 g3 f3 e3") #"arpy"
+
+-- Meeting the Heart Fairy
+do
+resetCycles
+let prog = ("<a3 <g3 g3 as3 g3> <f3 f3 c4 f3> <e3 e3 f3 e3>>") -- FIXME Pont Final + synchro arps below
+-- let arps = "0 <-2 -2 -1 -2> <-3 -3 -2 -3> <-2 -2 -1 -2>"
+let arps = ("<[0 <-2 -2 -1 -2> <-3 -3 -2 -3> <-2 -2 -1 -2>]>" - "<0 [0]>")
+-- let arps = ("[0 -2 -3 -2]" + "<0 <0 0 1 0>!3>") -- FIXME FACTORIZE ABOVE
+d1
+  $ "odx"
+  # lpf 400
+  # release "<0.9!3 2>"
+  # room 0.1 # dry 1.01
+d2 $ "~ amencutup:7"
+  # note (-4)
+  -- # hpf 1000
+  # gain 0.7
+d4
+  $ note prog
+  # "supersaw"
+  # voice 0.1
+  # gain 0.5
+  # cut 4
+d4
+  $ struct "t <~ t> . t <t [t t] [t t t]>"
+  $ note (
+      prog + arps
+  )
+  -- # octave 4
+  # "FMRhodes1"
+  -- # voice 0.4
+  # gain 0.95
+d5
+  -- $ swingBy "1/8" 4
+  $sometimesBy "0 <0 0 1 1> <0 1> 0" (ply 2)
+  $ note (prog + arps + 24)
+  # "FMRhodes2"
+  # gain 0.8

live/mood/tired/afternoon.tidal

+import Sound.Tidal.ParVagues.Control
+
 resetCycles
 
 do
 setcps (60/60/4)
 let mel = "<e3 [g3 <a3 f3>] e3 b3>"
 let prog = "<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>"
-d1 -- BEAT + Snares
-  $ fix (
-    whenmod 4 3 (ply "2 4")
-    . fast "<1!4 2!10 4 [4 8]>"
-    . (# n "[3,11]")
-    . (# gain 0.6)
-    ) ("snare")
-  $ "[jazz,bd](<1!3 <3 5>>,8) snare" # gain 0.8
-  # room 0.2 # sz 0.6
-d2 -- BREAK
+let modIndex = pF "modIndex"
+let gDJF = (midiDJF "^49" 0 10000 0 10000)
+let gFreqL = (# lpq (range 0 0.25 "^29"))
+let gFreqH = (# hpq (range 0 0.25 "^30"))
+let gFreqs = (gFreqH . gFreqL)
+let g = (gDJF . gFreqs)
+d1 $ g -- BEAT
+  $ fast 2
+  $ "k . ~ k ~ ~ "
+  # "[jazz,cpu2,hh27:6]"
+  # release "<0.7!3 1>"
+  # midiG' "^78" 0 1.8
+d3 $ g -- Snare contretemps rushé
+   $ whenmod 4 3 (ply "2 4")
+   $ midiOn "^43" (fast 2)
+   $ fast "<1!4 2!10 4 [4 8]>"
+   $ "~ snare"
+   # room 0.2
+   # dry 1
+   # speed (range 0.5 1.5 "^51")
+   # n "[11,25]"
+   # midiG' "^79" 0 1.5
+d2 $ g -- BREAK
+  $ degradeBy (range 0.1 0.99 "0 ^32!15")
   $ whenmod 32 16 (# djf (slow 32 (cosine + 0.5)))
   $ slice 8 (
     fast "<8 [8 16] 8 [16 <8 4>]>"
@@ -22,21 +38,41 @@ d2 -- BREAK
     )
   $ loopAt 2
   $ "break:3"
-  # gain 0.65
+  # speed (range 0.5 1.5 "^52")
+  # midiG' "^80" 0 2
   # cut 2
-d6 -- Nappes Rhodes
+d6 $ g -- Nappes Rhodes
   $ note (
     prog
     + "0 12"
   )
   # "FMRhodes1"
   # pan 0.2
-  # gain 1.1
-d7 -- Hello PWM
+  # modIndex (range 0 100 "^54")
+  # midiG' "^82" 0 1.8
+d7 -- Hello PWM!
+  $ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
+  $ midiOn "^89" (superimpose $ segment 16)
   $ note (mel - 12)
   # "superpwm"
   # semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte
   # accelerate "<0!7 <6 12>>"
   # rate "<1!5 2 4 <1 4>>"
   # resonance (slow 32 $ range 0.2 0.6 sine)
-  # gain (slow 32 $ range 0.65 0.85 saw)
+  # crush (range 10 3 "^53")
+  # midiG' "^81" 0 1.75
+
+-- TODO MidiCloud
+p "midiclock" $ midicmd "midiClock*48" # s "midi"
+
+-- Your MIDI device should then adjust its BPM to Tidal's cps. Then it's worth sending a 'stop' message like this:
+
+once $ midicmd "stop" # s "midi"
+
+-- and then finally a start message to start the MIDI clock at the right time. The following sends a start message every fourth cycle:
+
+p "midictl" $ midicmd "start/4" # s "midi"
+
+-- Once everything's started and in sync, it's probably best to stop sending the start messages to avoid glitching:
+
+p "midictl" $ silence