diff --git a/live/collab/val/euclidian_machine.tidal b/live/collab/val/euclidian_machine.tidal index f6abebe..77e22a2 100644 --- a/live/collab/val/euclidian_machine.tidal +++ b/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) diff --git a/live/fusion/comete/808_et_etoiles.tidal b/live/fusion/comete/808_et_etoiles.tidal new file mode 100644 index 0000000..abd9752 --- /dev/null +++ b/live/fusion/comete/808_et_etoiles.tidal @@ -0,0 +1,78 @@ +-- +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 ") + $ 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 "" + $ "~ 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 "" + $ 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 "" + $ "ab:6 . ~!3 <~!3 >" + # 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 .-) diff --git a/live/midi/nova/lofi/sunny_march.tidal b/live/midi/nova/lofi/sunny_march.tidal new file mode 100644 index 0000000..a8156bf --- /dev/null +++ b/live/midi/nova/lofi/sunny_march.tidal @@ -0,0 +1,101 @@ + +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 . ")) +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 "" -- Intro nokick + $ fix (# cut 11) "jazz" + $ fix (# cut 12) "808bd:4" + $ fix (# cut 13) "808bd:22" + $ struct " . ~ [<~ 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 "" -- 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 "" + $ 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 "" -- Intro nobass + $ mask " . 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 *<1 2>] [~ f c <~ >]>" -- 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 "" (|* 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 "" -- Intro + $ mask ">" -- 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)