From c1b13c5c43e4a8b01b3a308064538f9dfb2a3be3 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Fri, 11 Mar 2022 18:43:20 +0100 Subject: [PATCH] live: With val --- live/collab/val/ambient_dust.tidal | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/collab/val/euclidian_machine.tidal | 155 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 215 insertions(+) create mode 100644 live/collab/val/ambient_dust.tidal create mode 100644 live/collab/val/euclidian_machine.tidal diff --git a/live/collab/val/ambient_dust.tidal b/live/collab/val/ambient_dust.tidal new file mode 100644 index 0000000..5ae1464 --- /dev/null +++ b/live/collab/val/ambient_dust.tidal @@ -0,0 +1,60 @@ +do +setcps (160/60/4) +let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) +let g = (slow 2 . gDJF) +d1 $ g + $ midiOn "^42" (fast 2) + $ midiOn "^41" (struct "t t t t]>") + $ midiOff "^41" (fast 2 . struct "t . ~ t ~ ~") + $ "kick:5" + # midiG' "^78" 0 0.7 + # lpf 500 +d2 $ g + $ fix ((# lpf 1500) . (|* gain 0.8)) "cp" + $ midiOn "^43" (whenmod 4 3 (ply 2) . fast 2) + $ fast 2 + $ midiOff "^43" (fast "<1!5 2!3>") + $ "~ [snare:40,cp]" + # note (range "-10" "10" "^51") + # midiG' "^79" 0 0.87 +d3 $ g + $ midiOn "^76" --BOUTON NASSIM + (ply 2 . (# speed 2)) + $ midiOn "^44" (slice 4 "0 1 <2 2 0 0> <3 3 1 3>*<1!3 <2 1>>") + $ midiOff "^44" (slice 4 "0 1 2 3") + $ loopAt 2 + $ "breaks165" + # midiG' "^80" 0 0.9 + # pan 0.3 + # lpf 5000 + # crushbus 31 (range "10" 2.5 "^52") + # cut 3 +d4 $ g + $ midiOn "^89" (ply 2) + $ ply "<1!4 2!4> <2 1 2 1 1 1 2 1> . [2 <4 8>]" + $ "d d d d d d d d" # "drum:2" + # midiG' "^81" 0 0.9 +d5 $ g $ "hh(<<7!3 10> [3 <3 <7 12>>]>,12)" + # midiG' "^82" 0 0.65 +d6 -- Runny Maracas Pitchables + $ g + $ midiOn "^59" (fast 2) + $ midiOn "^91" (ply 2) + $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1") + -- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9) + $ "d ~ ~ d d ~ d <~!3 d>" + # "hh27:2" + # note (range "-10" "10" "^55") + -- # crushbus 51 (range 16 4.2 "^54") + # midiG' "^83" 0 1.2 + -- # speed (range 0 2 "^51") +d8 $ g + $ midiOn "^60" (iter "1 4") + $ midiOn "^92" (ply 2) + $ slice 8 (run 8) + $ loopAt 2 + $ "break:12" + # room 0.4 # dry 1.05 # sz 0.6 + # pan 0.7 + # midiG' "^84" 0 0.75 + # crushbus 81 (range 16 2.5 "^56") diff --git a/live/collab/val/euclidian_machine.tidal b/live/collab/val/euclidian_machine.tidal new file mode 100644 index 0000000..f6abebe --- /dev/null +++ b/live/collab/val/euclidian_machine.tidal @@ -0,0 +1,155 @@ +-- region V1 +-- Improvements: +-- TODO Premapper valeurs fixes [0,1,3,5,8,..] les pas totaux +-- TODO Peaufiner control scaling coté max +do +let l = 16 +let noVoid = fix ((# "cp") . (# gain 0)) "VOID" +let euclidOrVoid inscrit total pat = euclidFull inscrit total pat (s "VOID") +let pasTotal ch = range 1 l $ (cF 0 ch) +let rotVal ch = range 0 (1-l) $ (cF 0 ch) +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 +d1 + $ midiOn "^41" (fast 0.5) + $ midiOn "^73" (ply 2) + $ midiRot "49" + $ noVoid $ midiEuclid + (round <$> pasInscrit "13" "29") + (round <$> pasTotal "29") + (s "kick:5") + # midiG' "^77" 0 0.9 +d2 + $ midiOn "^42" (fast 0.5) + $ midiOn "^74" (ply 2) + $ midiRot "50" + $ noVoid $ midiEuclid + (round <$> pasInscrit "14" "30") + (round <$> pasTotal "30") + (s "snare:39") + # lpf 2000 + # midiG' "^78" 0 1.2 +d3 + $ midiOn "^43" (fast 0.5) + $ midiOn "^75" (ply 2) + $ midiRot "51" + $ noVoid $ midiEuclid + (round <$> pasInscrit "15" "31") + (round <$> pasTotal "31") + (s "drum:2") + # midiG' "^79" 0 1.2 +d4 + $ midiOn "^44" (fast 0.5) + $ midiOn "^76" (ply 2) + $ midiRot "52" + $ noVoid $ midiEuclid + (round <$> pasInscrit "16" "32") + (round <$> pasTotal "32") + (s "hh") + # midiG' "^80" 0 1.2 +d5 + $ midiOn "^57" (fast 0.5) + $ midiOn "^89" (ply 2) + $ midiRot "53" + $ noVoid $ midiEuclid + (round <$> pasInscrit "17" "33") + (round <$> pasTotal "33") + (s "hh") + # midiG' "^81" 0 1.5 +d6 + $ midiOn "^58" (fast 0.5) + $ midiOn "^90" (ply 2) + $ midiRot "54" + $ noVoid $ midiEuclid + (round <$> pasInscrit "18" "34") + (round <$> pasTotal "34") + (s "[gretsch:4,gretsch:6]") + # midiG' "^82" 0 1.2 +d7 + $ midiOn "^59" (|+ note 2) + $ midiOn "^91" (|+ note "[0,12]") + $ midiRot "55" + $ noVoid $ midiEuclid + (round <$> pasInscrit "19" "35") + (round <$> pasTotal "35") + (s "superfork") + # note 9 + # legato 2.8 + # room 0.2 + # dry 1.2 + # sz (slow 32 $ range 0 0.7 saw) + # midiG' "^83" 0 1.2 +d8 + $ midiOn "^60" (fast 0.5) + $ midiOn "^92" (ply 2) + $ midiRot "56" + $ noVoid $ midiEuclid + (round <$> pasInscrit "20" "36") + (round <$> pasTotal "36") + (s "superfork") + # legato 3.5 + # room (slow 16 $ range 0.6 0.3 saw) + # sz 0.3 + # dry (1 + (slow 8 $ perlin)) + # (note "<0 <[0,12] [0,7]>>" - 24) + # midiG' "^84" 0 1.2 +d9 -- BASSLINE TODO REW0RK + $ slow 2 + $ note "" + # "moog" + # cut 9 + # gain 0.25 + # pan 0.6 + # room 0.5 + # legato 4 + +-- endregion + +d5 $ "hh" + + +-- region MVP +do +let l = 8 +let pasTotal = range 1 l $ (cF 0 "29") +let rotVal = range 0 (l-1) $ (cF 0 "49") +let maxInscrit = (min l pasTotal) +let pasInscrit = (range 0.49 (maxInscrit - 0.49) $ (cF 0 "13")) +let rotInscrit = 0 +d1 + $ fix ((# "cp") . (# gain 0)) "VOID" + $ rot (round <$> rotVal) + $ euclidFull + (round <$> pasInscrit) + (round <$> pasTotal) + (s "kick:5") (s "VOID") + # gain (range 0 1.2 "^77") +-- endregion + + +-- region SANDBOX + +do +d1 $ rot 1.2 $ "cp(3,8)" # gain 0.9 + +d2 $ "dr*4" # pan 0.9 + +d3 $ rot 3 $ euclidFull 1 4 (s "blip") (s "cp" # gain 0) + +d1 $ segment 8 $ euclid 3 8 $ "bd" + +d3 $ rot (3) $ euclid 3 8 $ "bd" + +once $ "amencutup:7" # gain 2 +once $ "amencutup:9" # gain 2 + +:t cF + +d1 + $ sound "cp" + # gain 1.2 + + + -- endregion -- libgit2 0.27.0