live: sunny march

live/collab/val/euclidian_machine.tidal

@@ -12,6 +12,7 @@ let maxInscrit ch = (min l (pasTotal ch))
 let pasInscrit ch1 ch2 = (range 0.49 (maxInscrit ch2 - 0.49) $ (cF 0 ch1))
 let midiRot ch = rot (round <$> rotVal ch)
 let midiEuclid a b c = (euclidOrVoid a b c) -- FIXME [API] Add noVoid inside
+setcps (90/60/4)
 d1
   $ midiOn "^41" (fast 0.5)
   $ midiOn "^73" (ply 2)
@@ -19,7 +20,7 @@ d1
   $ noVoid $ midiEuclid
     (round <$> pasInscrit "13" "29")
     (round <$> pasTotal "29")
-  (s "kick:5")
+  (s "[808bd:2,808bd:3]")
   # midiG' "^77" 0 0.9
 d2
   $ midiOn "^42" (fast 0.5)

live/fusion/comete/808_et_etoiles.tidal

+--
+d1 $ "drum:2*8" # gain 1.68
+--
+-- Bonsoir :)
+
+-- Ce soir, je vous propose un livecoding
+-- parti de quelques samples
+-- arrivés quelque-part :)
+
+
+
+do
+setcps (120/60/4)
+let g1 = (whenmod 32 24 (# djfbus 1 (slow 8  $ range 0.5 0.15 saw)))
+let g2 = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.75 saw)))
+let g3 = ((# djfbus 3 (range 0.05 0.95 "^49")))
+let g = g1 . g2 . g3
+d1 $ g -- Kick ;)
+  $ whenmod 64 16 (struct "t t t <t [~ t]>")
+  $ someCyclesBy "<1!16 0!48>" (struct "t . <~!4 t!3 t*2> ~")
+  $ fix (|* gain (range 0.5 1.2 "^50")) "808bd:3"
+  $ fix (|* gain 1.15) "808bd:5"
+  $ fix (
+    (|* gain (range 0.5 1.2 "^30"))
+    . (# att 0.01) . (# rel 2)
+    ) "909"
+  $ "kick"
+  # "[jazz,808bd:3,808bd:5,909]"
+  # midiG' "^78" 0 1.1
+d2 $ g -- CP/Snare Contretemps
+  $ mask "<f!8 t!24>"
+  $ "~ cp ~ cp"
+  # "[clap:1,ab:11]"
+  # lpf (slow 16 $ range 4000 200 saw)
+  # midiG' "^79" 0 0.9
+d4 $ g -- ELECTRIC bass
+  $ midiOn "^89" (chop 4)
+  $ midiOn "^57" ((sometimesBy "f t" rev) . chop 8)
+  $ "90s_matrix:3"
+  # cut 4
+  # midiG' "^81" 0 0.65
+  # pan 0.666
+  # crushbus 41 (range 16 1.5 "^53")
+d5 $ g
+  $ mask "<f!32 t!32>"
+  $ superimpose ((# cut 51)
+  . (# crushbus 51 (range 16 1.5 "^54")))
+  $ "90s_glassatm:3"
+  # cut 5
+  # midiG' "^82" 0 0.5
+d6 $ g2 . g3 -- Nice Hats
+  -- $ mask "<f!8 t!24>"
+  $ "ab:6 . ~!3 <~!3 <ab:0 ~>>"
+  # cut 6
+  # pan 0.25
+  # midiG' "^80" 0 1
+d7 $ g3
+  $ whenmod 4 3 (juxBy 0.3 ((# cut 71) .
+    (# crushbus 71 (range 8.5 3.5 saw))))
+  $ "90s_glassatm:2" -- Ambient glass
+  # cut 7
+  # midiG' "^83" 0 0.65
+  # pan 0.8
+d8  -- DUSTY BREAKS
+  $ g3
+  $ loopAt 4
+  $ midiOn "^92" (ply 2)
+  $ sometimesBy "^36" (iter 4)
+  $ slice 16 (run 16)
+  $ "break:13"
+  # pan 0.45
+  # crushbus 81 (range 16 1.5 "^56")
+  # midiG' "^84" 0 1
+  # cut 8
+
+
+  -- Merci :)
+  -- À bientôt .-)

live/midi/nova/lofi/sunny_march.tidal

+
+do
+let lofiBliss = "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
+let lofiBlissEq = "<[a,c6,e6,g6,b6,d7] [fs,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,c7] [c,e,g,e6,g6,b6]>"
+let lofiBlissMin = "<[a,c6,e6,g6] [fs,c6,d6,fs6] [f,a,c6,e6] [c,e,g6,b6]>"
+setcps (86/60/4)
+-- resetCycles
+-- once $ (0.5 ~>) $ note (lofiBlissMin - 24) # "moogBass" # gain 0.4 # legato 1
+let mask86 = (whenmod 8 6 (mask "f"))
+let mask86' = (whenmod 8 6 (mask "f . <f t>"))
+let low86 = (whenmod 8 6 (|* gain 0.8))
+let modIndex = pF "modIndex"
+let g1 = whenmod 16 12 (# djfbus 1 (slow 4 $ range 0.5 0.25 saw))
+let g2 = (# djfbus 2 (range 0.05 0.95 "^49"))
+let g = g1 . g2
+d1 $ g $ mask86'
+  $ mask "<f!6 t f t!56>" -- Intro nokick
+  $ fix (# cut 11) "jazz"
+  $ fix (# cut 12) "808bd:4"
+  $ fix (# cut 13) "808bd:22"
+  $ struct "<t!3 ~> . ~ [<~ t*<1 2 1 <1 2>>> <~!3 t>]"
+  $ "[jazz,808bd:4,808bd:22]"
+  # gain 1.4
+  # room 1.2
+  # sz 0.5
+  # dry 1
+  # legato 2
+d2 $ g $ mask86
+  $ mask "<f!8 t!24>" -- Intro snare
+  -- $ whenmod 32 16 (fast 2) -- Faster snare?
+  $ "~ db:12"
+  # hpf 500
+  # gain 0.7
+d3 $ g
+  $ sometimesBy (slow 8 $ range 0 0.2 saw) ( -- Begaye
+    off "[e|s]" (|* gain 0.9)
+  )
+  $ mask86 -- Jumpy hats
+  $ mask "<f!8 t!24>"
+  $ someCyclesBy "<1!16 0!16>" (slow 2)
+  $ "~ h ~ h ~ h*<1!3 2 1 2!3> ~ h*<1!6 2 2>"
+  # "db:7"
+  # gain 0.65
+  # pan 0.6
+d4 $ g -- Wobble bassline
+  $ mask "<f!12 t!52>" -- Intro nobass
+  $ mask "<t!3 [<t f> . f t]>" $ low86 -- Dégradation
+  -- $ whenmod 8 7 (>| note "c f fs a") -- Complément descente
+  $ whenmod 32 16 ( -- Complément LofiBlissBass
+    superimpose ((|+ note 12) . (|* gain 0.65) . (|+ pan 0.08))
+  )
+  $ note (
+    (struct "t([<5!3 3 5!3 3 5 5 [5 3] 3 3 3 [3 5] 5 8 5 8 5 8 8 5 5 5 8 5 8 5 5 8 5> <5!15 8>],8)" $ arp "up" lofiBlissEq - 12)
+    -- "a fs . <[f <c!3 c6>*<1 2>] [~ f c <~ <c [c f fs]>>]>" -- Descente
+  )
+  # "wobble"
+  # gain (slow 32 $ range 0.6 0.9 saw)
+  # room 0.74
+  # pan 0.23
+  # sz 0.8
+  # legato 2
+d5 $ g -- Blissed keys
+  $ someCyclesBy "<t!8 f!58>" (|* gain (slow 8 $ range 0.5 1 saw)) -- Intro keys
+  $ whenmod 32 24 (superimpose ( -- STELLAR RAIN
+    ("<0.15 <0.25!3 0.45>>" ~>)
+    . (|+ note 12)
+    . (|+ pan 0.12)
+    . (# hpf 2500)
+    . (|* gain 0.68)
+    . (# room 0.9)
+    . (# legato 2.9)
+    ))
+  $ note (lofiBliss
+    + "<0!8 [<0*2!3 0>]!8> . <~!4 12!11 <12 ~>>" -- Echo [0 12] travaillé
+    - 12
+    )
+  # "FMRhodes1"
+  # pan 0.65
+  # modIndex "[0.5]"
+  # gain 0.7
+  # room 0.84
+  # dry 0.8
+  # sz 0.25
+d6 $ g2 -- Nappes gratos
+  $ (0.5 ~>)
+  $ note (lofiBlissMin
+    + "<0!7 [0 12 . ~]>"
+    - 24
+    )
+  # "moogBass"
+  # gain 0.46
+d7 $ g2 $ mask86 -- Break inéluctable
+  $ mask "<f!16 t!48>" -- Intro
+  $ mask "<f!8 t!16 <t!8 f!8>>" -- masque /32
+  $ ply 1 -- TODO HAVE FUN ;)
+  $ slice 8 ("0 1*<1 2> 2 3*<1!3 4>" + "<0 4>")
+  $ loopAt 2
+  $ "break:1"
+  # cut 8
+  # pan (slow 32 $ range 0.95 0.58 saw)
+  # gain (slow 32 $ range 0.5 0.75 saw)