Skip to content

T
Tidal
Unverified Commit d5139803 by PLN (Algolia)
Options

Live: Post FDLM versioning

parent a5a295f7
Showing with 116 additions and 82 deletions
PatchBay_Perf.xml
<!DOCTYPE patchbay> <!DOCTYPE patchbay>
<patchbay version="0.9.7" name="PatchBay_Perf"> <patchbay name="PatchBay_Perf" version="0.9.7">
<output-sockets> <output-sockets>
<socket client="Built\-in\ Audio\ Analog\ Stereo" exclusive="off" type="jack-audio" name="Built-in Audio Analog Stereo"> <socket name="Built-in Audio Analog Stereo" exclusive="off" client="Built\-in\ Audio\ Analog\ Stereo" type="jack-audio">
<plug>capture_FL</plug> <plug>capture_FL</plug>
<plug>capture_FR</plug> <plug>capture_FR</plug>
</socket> </socket>
<socket client="SuperCollider" exclusive="off" type="jack-audio" name="SuperCollider"> <socket name="SuperCollider" exclusive="off" client="SuperCollider" type="jack-audio">
<plug>out_1</plug> <plug>out_1</plug>
<plug>out_2</plug> <plug>out_2</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-audio" name="ardour"> <socket name="ardour" exclusive="off" client="ardour" type="jack-audio">
<plug>auditioner\/audio_out\ 2</plug> <plug>auditioner\/audio_out\ 2</plug>
<plug>auditioner\/audio_out\ 1</plug> <plug>auditioner\/audio_out\ 1</plug>
<plug>Tidal\/audio_out\ 1</plug> <plug>Tidal\/audio_out\ 1</plug>
...@@ -20,21 +20,21 @@ ...@@ -20,21 +20,21 @@
<plug>LTC\-Out</plug> <plug>LTC\-Out</plug>
<plug>Master\/audio_out\ 2</plug> <plug>Master\/audio_out\ 2</plug>
</socket> </socket>
<socket client="Built\-in\ Audio\ Analog\ Stereo\ Monitor" exclusive="off" type="jack-audio" name="Built-in Audio Analog Stereo Monitor"> <socket name="Built-in Audio Analog Stereo Monitor" exclusive="off" client="Built\-in\ Audio\ Analog\ Stereo\ Monitor" type="jack-audio">
<plug>monitor_FL</plug> <plug>monitor_FL</plug>
<plug>monitor_FR</plug> <plug>monitor_FR</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-audio" name="ardour 2"> <socket name="ardour 2" exclusive="off" client="ardour" type="jack-audio">
<plug>auditioner\/audio_out\ 2</plug> <plug>auditioner\/audio_out\ 2</plug>
<plug>auditioner\/audio_out\ 1</plug> <plug>auditioner\/audio_out\ 1</plug>
<plug>Master\/audio_out\ 1</plug> <plug>Master\/audio_out\ 1</plug>
<plug>Master\/audio_out\ 2</plug> <plug>Master\/audio_out\ 2</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-audio" name="ardour 3"> <socket name="ardour 3" exclusive="off" client="ardour" type="jack-audio">
<plug>Tidal\/audio_out\ 1</plug> <plug>Tidal\/audio_out\ 1</plug>
<plug>Tidal\/audio_out\ 2</plug> <plug>Tidal\/audio_out\ 2</plug>
</socket> </socket>
<socket client="Midi\-Bridge" exclusive="off" type="jack-midi" name="Midi-Bridge"> <socket name="Midi-Bridge" exclusive="off" client="Midi\-Bridge" type="jack-midi">
<plug>Midi\ Through\:\(capture_0\)\ Midi\ Through\ Port\-0</plug> <plug>Midi\ Through\:\(capture_0\)\ Midi\ Through\ Port\-0</plug>
<plug>Launch\ Control\ XL\:\(capture_0\)\ Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\:\(capture_0\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>Launch\ Control\ XL\:\(capture_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\:\(capture_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
...@@ -42,40 +42,40 @@ ...@@ -42,40 +42,40 @@
<plug>SuperCollider\:\(capture_6\)\ out1</plug> <plug>SuperCollider\:\(capture_6\)\ out1</plug>
<plug>SuperCollider\:\(capture_7\)\ out2</plug> <plug>SuperCollider\:\(capture_7\)\ out2</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-midi" name="ardour"> <socket name="ardour" exclusive="off" client="ardour" type="jack-midi">
<plug>MIDI\ Clock\ out</plug> <plug>MIDI\ Clock\ out</plug>
<plug>MTC\ out</plug> <plug>MTC\ out</plug>
<plug>x\-virtual\-keyboard</plug> <plug>x\-virtual\-keyboard</plug>
<plug>Scene\ out</plug> <plug>Scene\ out</plug>
<plug>MMC\ out</plug> <plug>MMC\ out</plug>
</socket> </socket>
<socket client="Midi\-Bridge" exclusive="off" type="jack-midi" name="Midi-Bridge 2"> <socket name="Midi-Bridge 2" exclusive="off" client="Midi\-Bridge" type="jack-midi">
<plug>Launch\ Control\ XL\:\(capture_0\)\ Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\:\(capture_0\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>Launch\ Control\ XL\:\(capture_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\:\(capture_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
</socket> </socket>
<socket client="Midi\ Through" exclusive="off" type="alsa-midi" name="Midi Through"> <socket name="Midi Through" exclusive="off" client="Midi\ Through" type="alsa-midi">
<plug>Midi\ Through\ Port\-0</plug> <plug>Midi\ Through\ Port\-0</plug>
</socket> </socket>
<socket client="Launch\ Control\ XL" exclusive="off" type="alsa-midi" name="Launch Control XL"> <socket name="Launch Control XL" exclusive="off" client="Launch\ Control\ XL" type="alsa-midi">
<plug>Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\ Launch\ Contro</plug>
</socket> </socket>
<socket client="SuperCollider" exclusive="off" type="alsa-midi" name="SuperCollider"> <socket name="SuperCollider" exclusive="off" client="SuperCollider" type="alsa-midi">
<plug>out0</plug> <plug>out0</plug>
<plug>out1</plug> <plug>out1</plug>
<plug>out2</plug> <plug>out2</plug>
</socket> </socket>
</output-sockets> </output-sockets>
<input-sockets> <input-sockets>
<socket client="Built\-in\ Audio\ Analog\ Stereo" exclusive="off" type="jack-audio" name="Built-in Audio Analog Stereo"> <socket name="Built-in Audio Analog Stereo" exclusive="off" client="Built\-in\ Audio\ Analog\ Stereo" type="jack-audio">
<plug>playback_FL</plug> <plug>playback_FL</plug>
<plug>playback_FR</plug> <plug>playback_FR</plug>
</socket> </socket>
<socket client="SuperCollider" exclusive="off" type="jack-audio" name="SuperCollider"> <socket name="SuperCollider" exclusive="off" client="SuperCollider" type="jack-audio">
<plug>in_1</plug> <plug>in_1</plug>
<plug>in_2</plug> <plug>in_2</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-audio" name="ardour"> <socket name="ardour" exclusive="off" client="ardour" type="jack-audio">
<plug>physical_audio_input_monitor_enable</plug> <plug>physical_audio_input_monitor_enable</plug>
<plug>LTC\ in</plug> <plug>LTC\ in</plug>
<plug>SC\ Tidal\/ACE\ Compressor\ \(stereo\)\ 1\/audio_in\ 1</plug> <plug>SC\ Tidal\/ACE\ Compressor\ \(stereo\)\ 1\/audio_in\ 1</plug>
...@@ -84,25 +84,25 @@ ...@@ -84,25 +84,25 @@
<plug>Master\/audio_in\ 2</plug> <plug>Master\/audio_in\ 2</plug>
<plug>Master\/audio_in\ 1</plug> <plug>Master\/audio_in\ 1</plug>
</socket> </socket>
<socket client="Built\-in\ Audio\ Analog\ Stereo" exclusive="off" type="jack-audio" name="Built-in Audio Analog Stereo 2"> <socket name="Built-in Audio Analog Stereo 2" exclusive="off" client="Built\-in\ Audio\ Analog\ Stereo" type="jack-audio">
<plug>playback_FR</plug> <plug>playback_FR</plug>
<plug>playback_FL</plug> <plug>playback_FL</plug>
<plug>playback_FL</plug> <plug>playback_FL</plug>
<plug>playback_FR</plug> <plug>playback_FR</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-audio" name="ardour 2"> <socket name="ardour 2" exclusive="off" client="ardour" type="jack-audio">
<plug>Tidal\/audio_in\ 1</plug> <plug>Tidal\/audio_in\ 1</plug>
<plug>Tidal\/audio_in\ 2</plug> <plug>Tidal\/audio_in\ 2</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-audio" name="ardour 3"> <socket name="ardour 3" exclusive="off" client="ardour" type="jack-audio">
<plug>Master\/audio_in\ 1</plug> <plug>Master\/audio_in\ 1</plug>
<plug>Master\/audio_in\ 2</plug> <plug>Master\/audio_in\ 2</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-audio" name="ardour 4"> <socket name="ardour 4" exclusive="off" client="ardour" type="jack-audio">
<plug>physical_audio_input_monitor_enable</plug> <plug>physical_audio_input_monitor_enable</plug>
<plug>physical_audio_input_monitor_enable</plug> <plug>physical_audio_input_monitor_enable</plug>
</socket> </socket>
<socket client="Midi\-Bridge" exclusive="off" type="jack-midi" name="Midi-Bridge"> <socket name="Midi-Bridge" exclusive="off" client="Midi\-Bridge" type="jack-midi">
<plug>Midi\ Through\:\(playback_0\)\ Midi\ Through\ Port\-0</plug> <plug>Midi\ Through\:\(playback_0\)\ Midi\ Through\ Port\-0</plug>
<plug>Launch\ Control\ XL\:\(playback_0\)\ Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\:\(playback_0\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>Launch\ Control\ XL\:\(playback_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\:\(playback_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
...@@ -113,60 +113,60 @@ ...@@ -113,60 +113,60 @@
<plug>SuperCollider\:\(playback_4\)\ in4</plug> <plug>SuperCollider\:\(playback_4\)\ in4</plug>
<plug>aseqdump\:\(playback_0\)\ aseqdump</plug> <plug>aseqdump\:\(playback_0\)\ aseqdump</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-midi" name="ardour"> <socket name="ardour" exclusive="off" client="ardour" type="jack-midi">
<plug>physical_midi_input_monitor_enable</plug> <plug>physical_midi_input_monitor_enable</plug>
<plug>MIDI\ Clock\ in</plug> <plug>MIDI\ Clock\ in</plug>
<plug>MTC\ in</plug> <plug>MTC\ in</plug>
<plug>Scene\ in</plug> <plug>Scene\ in</plug>
<plug>MMC\ in</plug> <plug>MMC\ in</plug>
</socket> </socket>
<socket client="ardour" exclusive="off" type="jack-midi" name="ardour 2"> <socket name="ardour 2" exclusive="off" client="ardour" type="jack-midi">
<plug>physical_midi_input_monitor_enable</plug> <plug>physical_midi_input_monitor_enable</plug>
<plug>physical_midi_input_monitor_enable</plug> <plug>physical_midi_input_monitor_enable</plug>
</socket> </socket>
<socket client="Midi\ Through" exclusive="off" type="alsa-midi" name="Midi Through"> <socket name="Midi Through" exclusive="off" client="Midi\ Through" type="alsa-midi">
<plug>Midi\ Through\ Port\-0</plug> <plug>Midi\ Through\ Port\-0</plug>
</socket> </socket>
<socket client="Launch\ Control\ XL" exclusive="off" type="alsa-midi" name="Launch Control XL"> <socket name="Launch Control XL" exclusive="off" client="Launch\ Control\ XL" type="alsa-midi">
<plug>Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>Launch\ Control\ XL\ Launch\ Contro</plug> <plug>Launch\ Control\ XL\ Launch\ Contro</plug>
</socket> </socket>
<socket client="SuperCollider" exclusive="off" type="alsa-midi" name="SuperCollider"> <socket name="SuperCollider" exclusive="off" client="SuperCollider" type="alsa-midi">
<plug>in0</plug> <plug>in0</plug>
<plug>in1</plug> <plug>in1</plug>
<plug>in2</plug> <plug>in2</plug>
<plug>in3</plug> <plug>in3</plug>
<plug>in4</plug> <plug>in4</plug>
</socket> </socket>
<socket client="aseqdump" exclusive="off" type="alsa-midi" name="aseqdump"> <socket name="aseqdump" exclusive="off" client="aseqdump" type="alsa-midi">
<plug>aseqdump</plug> <plug>aseqdump</plug>
</socket> </socket>
<socket client="SuperCollider" exclusive="off" type="alsa-midi" name="SuperCollider 2"> <socket name="SuperCollider 2" exclusive="off" client="SuperCollider" type="alsa-midi">
<plug>in3</plug> <plug>in3</plug>
<plug>in4</plug> <plug>in4</plug>
</socket> </socket>
<socket client="PipeWire\-RT\-Event" exclusive="off" type="alsa-midi" name="PipeWire-RT-Event"> <socket name="PipeWire-RT-Event" exclusive="off" client="PipeWire\-RT\-Event" type="alsa-midi">
<plug>input</plug> <plug>input</plug>
<plug>input</plug> <plug>input</plug>
</socket> </socket>
<socket client="SuperCollider" exclusive="off" type="alsa-midi" name="SuperCollider 3"> <socket name="SuperCollider 3" exclusive="off" client="SuperCollider" type="alsa-midi">
<plug>in2</plug> <plug>in2</plug>
</socket> </socket>
</input-sockets> </input-sockets>
<slots/> <slots/>
<cables> <cables>
<cable output="Built-in Audio Analog Stereo" input="SuperCollider" type="jack-audio"/> <cable input="SuperCollider" output="Built-in Audio Analog Stereo" type="jack-audio"/>
<cable output="Built-in Audio Analog Stereo" input="ardour 4" type="jack-audio"/> <cable input="ardour 4" output="Built-in Audio Analog Stereo" type="jack-audio"/>
<cable output="SuperCollider" input="ardour 2" type="jack-audio"/> <cable input="ardour 2" output="SuperCollider" type="jack-audio"/>
<cable output="ardour 2" input="Built-in Audio Analog Stereo 2" type="jack-audio"/> <cable input="Built-in Audio Analog Stereo 2" output="ardour 2" type="jack-audio"/>
<cable output="ardour 3" input="ardour 3" type="jack-audio"/> <cable input="ardour 3" output="ardour 3" type="jack-audio"/>
<cable output="Midi-Bridge 2" input="ardour 2" type="jack-midi"/> <cable input="ardour 2" output="Midi-Bridge 2" type="jack-midi"/>
<cable output="Midi Through" input="aseqdump" type="alsa-midi"/> <cable input="aseqdump" output="Midi Through" type="alsa-midi"/>
<cable output="Midi Through" input="SuperCollider 3" type="alsa-midi"/> <cable input="SuperCollider 3" output="Midi Through" type="alsa-midi"/>
<cable output="Midi Through" input="PipeWire-RT-Event" type="alsa-midi"/> <cable input="PipeWire-RT-Event" output="Midi Through" type="alsa-midi"/>
<cable output="Launch Control XL" input="SuperCollider 2" type="alsa-midi"/> <cable input="SuperCollider 2" output="Launch Control XL" type="alsa-midi"/>
<cable output="Launch Control XL" input="Midi Through" type="alsa-midi"/> <cable input="Midi Through" output="Launch Control XL" type="alsa-midi"/>
<cable output="Launch Control XL" input="PipeWire-RT-Event" type="alsa-midi"/> <cable input="PipeWire-RT-Event" output="Launch Control XL" type="alsa-midi"/>
</cables> </cables>
</patchbay> </patchbay>
backlog.md
...@@ -3,6 +3,7 @@ ...@@ -3,6 +3,7 @@
# Coop # Coop
## RAPH ## RAPH
- 8Bit Race!!!
- OldSkoolRadius: Raph - OldSkoolRadius: Raph
-- Diable with Raph -- Diable with Raph
-- Partir with Raph -- Partir with Raph
......
lib-parvagues/src/Sound/Tidal/ParVagues/Control.tidal
...@@ -10,7 +10,7 @@ ...@@ -10,7 +10,7 @@
midiDJF ch lMin lMax hMin hMax = (_LPF lMin lMax ch) . (_HPF hMin hMax ch) midiDJF ch lMin lMax hMin hMax = (_LPF lMin lMax ch) . (_HPF hMin hMax ch)
-- FIXME: Seems to cut some lows when lMin != 0 -- FIXME: Seems to cut some lows when lMin != 0
-- Midi gain control (faders) -- Midi gain control (faders)
midiGGlobal = "^77" * 1.8 midiGGlobal = "^77" * 1.9
_gainG ch = (gain (midiGGlobal * ch)) -- gain Global _gainG ch = (gain (midiGGlobal * ch)) -- gain Global
midiG' ch l h = _gainG (range l h ch) -- midiGain control midiG' ch l h = _gainG (range l h ch) -- midiGain control
midiG ch = midiG' ch 0 1 -- midiGain default midiG ch = midiG' ch 0 1 -- midiGain default
live/boeuf/algorythm/intro_parvagues.tidal
_______ _ ______ _
(_______) | (_____ \ _ | |
_______| | ____ ___ _____) ) _ _| |_| |__ ____
| ___ | |/ _ |/ _ \| __ / | | (_ _) _ \| \
| | | | ( (_| | |_| | | \ \ |_| | | |_| | | | | | |
|_| |_|\_)___ |\___/|_| |_\__ | \__)_| |_|_|_|_|
(_____| (____/
FETE DE LA MUSIQUE
2022
____ __ __ ____ __ __
| _ \ __ _ _ _\ \ / /_ _ __ _ _ _ ___ ___ | _ \ __ _ _ _\ \ / /_ _ __ _ _ _ ___ ___
| |_) / _` | '__\ \ / / _` |/ _` | | | |/ _ \/ __| | |_) / _` | '__\ \ / / _` |/ _` | | | |/ _ \/ __|
...@@ -9,6 +26,19 @@ ...@@ -9,6 +26,19 @@
Music LiveCoding with TidalCycles Music LiveCoding with TidalCycles
setcps (120/60/4)
do
let g = (# djf "^49")
d1 $ g $ "k . k(3,8)" # "kick:5"
d2 $ g $ "~ snare:20"
d3 $ g $ fast "<1 [2|1] [2|4] 4>" $ "dr*<8 4 8 16>" # gain 0.9
d1 $ "k*<4 8>" # "808:1"
d1 $ "kick:5*4"
-- L'interprete c'est l'Ordinateur -- L'interprete c'est l'Ordinateur
...@@ -20,10 +50,10 @@ do ...@@ -20,10 +50,10 @@ do
let g1 = whenmod 32 24 (# djfbus 1 ((slow 8 $ range 0.5 0.1 saw))) let g1 = whenmod 32 24 (# djfbus 1 ((slow 8 $ range 0.5 0.1 saw)))
let g2 = whenmod 64 32 (# djfbus 2 ((slow 32 $ range 0.5 0.9 saw))) let g2 = whenmod 64 32 (# djfbus 2 ((slow 32 $ range 0.5 0.9 saw)))
let g = g1 . g2 let g = g1 . g2
d1 $ g $ "k . k(<1 3 3 <5 8>>,8)" # "kick:5" # gain 1.2 d1 $ g $ "k . k(<1 3 3 <5 8>>,8)" # "kick:5" # gain 0.9
d2 $ g $ fast 2 $ "~ snare:20" # gain 1.2 d2 $ g $ fast 2 $ "~ snare:20" # gain 0.8
d3 $ g $ fast "<1 [2|1] [2|4] 4>" $ "dr*<8 4 8 16>" # gain 0.9 d3 $ g $ fast "<1 [2|1] [2|4] 4>" $ "dr*<8 4 8 16>" # gain 0.9
d4 $ g $ slice 2 "<0!3 1>" $ "fpiano:8" # gain 1.2 d4 $ g $ slice 2 "<0!3 1>" $ "fpiano:8" # gain 0.8
# cut 4 # cut 4
...@@ -43,6 +73,8 @@ d4 $ g ...@@ -43,6 +73,8 @@ d4 $ g
# cut 4 # gain 0.8 # cut 4 # gain 0.8
d5 $ "drum:2*[8 <16 [8 16] [16 8] <16 32>>" # gain 1.2 -- Le drumroll aussi d5 $ "drum:2*[8 <16 [8 16] [16 8] <16 32>>" # gain 1.2 -- Le drumroll aussi
once $ "fguitar" # lpf 5000
do do
setcps (80/60/4) setcps (80/60/4)
let g = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 1 saw)) let g = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 1 saw))
......
live/boeuf/algorythm/jolene.tidal
...@@ -3,9 +3,9 @@ do ...@@ -3,9 +3,9 @@ do
setcps (100/60/4) setcps (100/60/4)
let g = (# djfbus 1 ("^49")) let g = (# djfbus 1 ("^49"))
let m1 = whenmod 4 3 (mask "t!3 <f [f t]>") let m1 = whenmod 4 3 (mask "t!3 <f [f t]>")
let m2 = whenmod 16 12 (mask "t") -- let m2 = whenmod 16 12 (mask "t")
let m3 = midiOn "^73" (mask "f*16") let m3 = midiOn "^73" (mask "f*16")
let m = m1 . m2 . m3 let m = m1 . m3
d1 $ g $ m d1 $ g $ m
$ chop 16 $ loopAt 4 $ chop 16 $ loopAt 4
$ "algorythm" $ "algorythm"
......
live/boeuf/algorythm/lady.tidal
...@@ -20,7 +20,7 @@ d2 $ g $ stut "[1|2|4]" 0.5 "e" ...@@ -20,7 +20,7 @@ d2 $ g $ stut "[1|2|4]" 0.5 "e"
$ "~ electro1" # n "<2!3 3>" $ "~ electro1" # n "<2!3 3>"
# room 0.2 # sz 0.5 # room 0.2 # sz 0.5
# pan 0.4 # pan 0.4
# midiG' "^79" 0 0.9 # midiG' "^79" 0 1.2
d3 $ g d3 $ g
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
-- $ mask "<f!4 t!12 f!4 t!12 f!8 t!8 f!12 t!4>" -- $ mask "<f!4 t!12 f!4 t!12 f!8 t!8 f!12 t!4>"
...@@ -31,7 +31,7 @@ d3 $ g ...@@ -31,7 +31,7 @@ d3 $ g
# midiG' "^80" 0 1 # midiG' "^80" 0 1
d4 $ g d4 $ g
$ midiOn "^58" (# "lady_fx") $ midiOn "^58" (# "lady_fx")
$ whenIntro (# n "0") -- INTRO: AAAA $ whenIntro (# n "0") -- INTRO: AAAA`
$ whenVerse ((# n "<0 0 0 0 1 1 2 2>")) -- VERSE: AA AA BB CC $ whenVerse ((# n "<0 0 0 0 1 1 2 2>")) -- VERSE: AA AA BB CC
$ whenChorus ( $ whenChorus (
(fix (mask "<t f>") (n 6)) (fix (mask "<t f>") (n 6))
......
live/boeuf/algorythm/toxic.tidal
...@@ -5,7 +5,7 @@ do ...@@ -5,7 +5,7 @@ do
setcps (140/60/4) setcps (140/60/4)
let maskFirstBar = mask "<f!1 t!31>" let maskFirstBar = mask "<f!1 t!31>"
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.15 0.95 "^49")) let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gCrush = (# crushbus 2 (range 16 4.5 "^29")) let gCrush = (# crushbus 2 (range 16 4.5 "^29"))
let g = maskFirstBar . gDJF . gCrush let g = maskFirstBar . gDJF . gCrush
d1 $ g d1 $ g
...@@ -28,7 +28,7 @@ d3 $ g ...@@ -28,7 +28,7 @@ d3 $ g
$ "hh*[8 8 8 <8!3 [16 8]>]" $ "hh*[8 8 8 <8!3 [16 8]>]"
# att 0.01 # rel 0.5 # cut 3 # hpf 5000 # att 0.01 # rel 0.5 # cut 3 # hpf 5000
# midiG' "^80" 0 1.3 # midiG' "^80" 0 1.3
d7 d7 $ gDJF
$ midiOn "^92" (ply 2) $ midiOn "^92" (ply 2)
$ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff $ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff
# "bassWarsaw" # "bassWarsaw"
...@@ -36,8 +36,8 @@ d7 ...@@ -36,8 +36,8 @@ d7
# room 0.1 # room 0.1
# sz 0.1 # sz 0.1
# cut 7 # cut 7
# crushbus 71 (range 16 1.5 "^56") # crushbus 71 (range 16 1.5 "^53")
# midiG' "^84" 0 1 # midiG' "^81" 0 1
d8 $ gDJF -- CUE Toxic Theme d8 $ gDJF -- CUE Toxic Theme
$ midiOff "^91" (mask "<f!7 t>") $ midiOff "^91" (mask "<f!7 t>")
$ midiOn "^59" (rev) $ midiOn "^59" (rev)
...@@ -46,8 +46,8 @@ d8 $ gDJF -- CUE Toxic Theme ...@@ -46,8 +46,8 @@ d8 $ gDJF -- CUE Toxic Theme
# legato 4 # legato 4
# room "0!15 0.4" # room "0!15 0.4"
# attack 0.05 # attack 0.05
# modIndex "^83" # modIndex "^55"
# rel 2 # rel 2
# sz 0.5 # sz 0.5
# pan 0.9 # pan 0.9
# midiG' "^83" 0 1.1 # midiG' "^83" 0 1.5
live/jam/cbow.tidal
...@@ -49,7 +49,7 @@ d3 $ g -- Bass bows ...@@ -49,7 +49,7 @@ d3 $ g -- Bass bows
# "cbow:0" # "cbow:0"
# pan 0.24 # pan 0.24
# cut 3 # cut 3
# room 0.6 -- # room 0.6
# sz 0.5 # sz 0.5
# midiG' "^81" 0 0.86 # midiG' "^81" 0 0.86
# crushbus 31 (range 10 2 "^53") # crushbus 31 (range 10 2 "^53")
......
live/midi/nova/FFF/pray.tidal
...@@ -26,7 +26,6 @@ d1 $ g -- KICK ...@@ -26,7 +26,6 @@ d1 $ g -- KICK
# pan 0.4 # pan 0.4
# gM' 0.2 1.5 "^78" # gM' 0.2 1.5 "^78"
d4 $ g -- BREAKBEAT d4 $ g -- BREAKBEAT
$ degradeBy "^51"
$ someCyclesBy "^74" -- Intro $ someCyclesBy "^74" -- Intro
(slice 8 "0 4") (slice 8 "0 4")
$ someCyclesBy "^75" -- Laggy $ someCyclesBy "^75" -- Laggy
...@@ -36,6 +35,7 @@ d4 $ g -- BREAKBEAT ...@@ -36,6 +35,7 @@ d4 $ g -- BREAKBEAT
$ loopAt 1 $ slice 8 (run 8) $ loopAt 1 $ slice 8 (run 8)
$ "break:1" $ "break:1"
# gM' 0 1.8 "^79" # gM' 0 1.8 "^79"
# speedbus 41 (range 0 2 "^51")
# cut 4 # cut 4
d2 $ g -- Snares gretscha d2 $ g -- Snares gretscha
$ someCyclesBy "^44" ( $ someCyclesBy "^44" (
......
live/midi/nova/ambient/contre_visite.tidal
...@@ -94,7 +94,7 @@ d10 $ f1 -- RANDOM FOREST NOISES ...@@ -94,7 +94,7 @@ d10 $ f1 -- RANDOM FOREST NOISES
$ fix ( $ fix (
kCrush . kCrush .
struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t" struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t"
. (# "[future:1]") . (# "[future:1,jazz]")
. (# midiG' "^13" 0 2) . (# midiG' "^13" 0 2)
) ("n1") ) ("n1")
$ fix ( $ fix (
......
live/midi/nova/ambient/empreinte_du_numerique.tidal
...@@ -50,6 +50,7 @@ d5 $ g $ gPont2 -- BASSLINE BoomRang! ...@@ -50,6 +50,7 @@ d5 $ g $ gPont2 -- BASSLINE BoomRang!
# lrate 0.93 # lrate 0.93
# lsizebus 51 (range 0.8 4.8 "^17") # lsizebus 51 (range 0.8 4.8 "^17")
# lesliebus 52 "^33" # lesliebus 52 "^33"
# pan 0.3
# crushbus 53 (range 10 1.61 "^53") # crushbus 53 (range 10 1.61 "^53")
# midiG' "^81" 0 0.9 # midiG' "^81" 0 0.9
d7 $ g -- Back solar mandoline d7 $ g -- Back solar mandoline
...@@ -64,12 +65,13 @@ d7 $ g -- Back solar mandoline ...@@ -64,12 +65,13 @@ d7 $ g -- Back solar mandoline
# midiG' "^83" 0 1.3 # midiG' "^83" 0 1.3
d6 -- RHODES FOLIE <33 d6 -- RHODES FOLIE <33
$ g $ g
$ midiOn "^58" (off "h") $ midiOn "^58" (off "h" id)
$ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)" $ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)"
$ swing (1 + ("0 2" * "^58") + (2 * "^90")) $ swing (1 + ("0 2" * "^58") + (2 * "^90"))
$ note ("d4/2" + scale "<augmented!6 diminished2!2>" (run 16)) $ note ("d4/2" + scale "<augmented!6 diminished2!2>" (run 16))
# "FMRhodes1" # "FMRhodes1"
# room 0.5 # room 0.5
# pan 0.7
# crushbus 61 (range 10 4.4 "^54") # crushbus 61 (range 10 4.4 "^54")
# modIndex (range "-0.1" 100 "^34") # modIndex (range "-0.1" 100 "^34")
# midiG' "^82" 0 1.3 # midiG' "^82" 0 1.3
live/midi/nova/breaks/lunar.tidal
...@@ -15,7 +15,7 @@ d1 $ g1 -- ...@@ -15,7 +15,7 @@ d1 $ g1 --
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>") $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,hh:5]" $ "[jazz,hh:5]"
-- # release "<0.7!3 1>" -- # release "<0.7!3 1>"
# midiG' "^78" 0 1.3 # midiG' "^78" 0 1.9
d3 $ g1 $ m -- Clap contretemps stable d3 $ g1 $ m -- Clap contretemps stable
$ superimpose ((# lpf 2000) . (# "cp:0")) $ superimpose ((# lpf 2000) . (# "cp:0"))
$ "~ clap:1" $ "~ clap:1"
......
live/midi/nova/breaks/solar.tidal
...@@ -12,11 +12,11 @@ let mDegrade = (midiOn "^73" (chop 4)) ...@@ -12,11 +12,11 @@ let mDegrade = (midiOn "^73" (chop 4))
let m = mBreak . mDegrade let m = mBreak . mDegrade
d1 $ g1 $ m -- d1 $ g1 $ m --
$ mask "<f!4 t!12>" $ mask "<f!4 t!12>"
$ fix (# cut 1) ("808bd") $ fix ((# cut 1). (|* gain 0.85)) ("808bd")
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") $ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>") $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,808bd:1,hh:5]" $ "[jazz,808bd:1,hh:5]"
# midiG' "^78" 0 1.3 # midiG' "^78" 0 1.7
d3 $ g1 $ m -- Snare d3 $ g1 $ m -- Snare
$ mask "<f!3 [f t] t!8 [t f]!4>" $ mask "<f!3 [f t] t!8 [t f]!4>"
-- $ fast "<1!4 2!10 4 [4 8]>" -- $ fast "<1!4 2!10 4 [4 8]>"
...@@ -133,7 +133,7 @@ $ striate 2 ...@@ -133,7 +133,7 @@ $ striate 2
$ loopAt 2 $ loopAt 2
$ slice 8 (run 8) $ slice 8 (run 8)
$ "fbass:3" $ "fbass:3"
# midiG' "^81" 0 1.2 # midiG' "^81" 0 1.4
# crushbus 4 (range 16 1.5 "^53") # crushbus 4 (range 16 1.5 "^53")
# cut 4 # cut 4
# pan 0.2 # pan 0.2
......
live/midi/nova/dnb/alerte_verte.tidal
...@@ -71,7 +71,7 @@ d6 -- Guitar A -- L'attente (18=0) TODO Rework? ...@@ -71,7 +71,7 @@ d6 -- Guitar A -- L'attente (18=0) TODO Rework?
$ "fguitar:24" $ "fguitar:24"
# pan 0.8 # pan 0.8
# crushbus 51 (range 10 3.5 "^54") # crushbus 51 (range 10 3.5 "^54")
# midiG' "^82" 0 (1.5 * (range 1.4 0 "^18")) # midiG' "^82" 0 (1 * (range 1.4 0 "^18"))
# cut 6 # cut 6
d7 -- Guitar B -- Le run (18=127) d7 -- Guitar B -- Le run (18=127)
$ g2 $ g2
...@@ -84,7 +84,7 @@ d7 -- Guitar B -- Le run (18=127) ...@@ -84,7 +84,7 @@ d7 -- Guitar B -- Le run (18=127)
$ "fguitar" # n "<25!3 [25 26] 25!2 27!2 27!8>" $ "fguitar" # n "<25!3 [25 26] 25!2 27!2 27!8>"
# pan 0.65 # pan 0.65
# crushbus 71 (range 10 2 "^54") # crushbus 71 (range 10 2 "^54")
# midiG' "^82" 0 (1.2 * (range 0 1.4 "^18")) # midiG' "^82" 0 (1 * (range 0 1.4 "^18"))
# leslie "^34" # leslie "^34"
# lsize (1 + (slow 8 perlin * 2)) # lsize (1 + (slow 8 perlin * 2))
# lrate 6.7 # lrate 6.7
......
live/midi/nova/lofi/reboot.tidal
import Sound.Tidal.ParVagues.Control import Sound.Tidal.ParVagues.Control
-- TODO: Rework and record :)
-- Reboot: From Dark Money to motivating beats -- Reboot: From Dark Money to motivating beats
do do
setcps (80/60/4) setcps (80/60/4)
......
live/midi/nova/lounge/top_hats.tidal
...@@ -9,10 +9,12 @@ let prog = ("<cs5!4 a4 a4 b4 gs4>") ...@@ -9,10 +9,12 @@ let prog = ("<cs5!4 a4 a4 b4 gs4>")
let chorus = pF "chorus" let chorus = pF "chorus"
let mix = pF "mix" let mix = pF "mix"
let modIndex = pF "modIndex" -- 0.2 let modIndex = pF "modIndex" -- 0.2
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let gDJF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = (gDJF) let gDJF2 = (# djfbus 2 (range 0.1 0.9 "^50"))
let g1 = gDJF1
let g2 = gDJF2
setcps 0.5 setcps 0.5
d1 $ g d1 $ g1
$ fix (|* gain 0.75) "kick:5" $ fix (|* gain 0.75) "kick:5"
$ midiOn "^41" ( -- KICK RUN $ midiOn "^41" ( -- KICK RUN
((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.8)) ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.8))
...@@ -20,13 +22,13 @@ d1 $ g ...@@ -20,13 +22,13 @@ d1 $ g
$ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>") $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
$ "[jazz,cpu]" $ "[jazz,cpu]"
# midiG' "^78" 0 1.4 # midiG' "^78" 0 1.4
d2 $ g -- Breathing snare contretemps d2 $ g1 -- Breathing snare contretemps
$ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>") $ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>")
$ "~ [snare:12,drum:2]" $ "~ [snare:12,drum:2]"
# speed (range 0 4 "^51") # speed (range 0 4 "^51")
# midiG' "^79" 0.5 1.3 # midiG' "^79" 0.5 1.3
d3 -- Runny Maracas d3 -- Runny Maracas
$ g $ g1
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ whenmod 16 8 (often $ fast 2) $ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1") $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
...@@ -35,7 +37,7 @@ d3 -- Runny Maracas ...@@ -35,7 +37,7 @@ d3 -- Runny Maracas
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>" # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# midiG' "^80" 0.25 1.5 # midiG' "^80" 0.25 1.5
# note (range "-12" 12 "^52") # note (range "-12" 12 "^52")
d6 $ g -- Guitar riffs d6 $ g2 -- Guitar riffs
$ whenmod 16 12 (off "h" ( $ whenmod 16 12 (off "h" (
chop 4 chop 4
. (# cut 61) . (# cut 61)
...@@ -54,7 +56,7 @@ d6 $ g -- Guitar riffs ...@@ -54,7 +56,7 @@ d6 $ g -- Guitar riffs
# sz "<0.6!3 0.9>" # sz "<0.6!3 0.9>"
# midiG' "^81" 0.4 1.5 # midiG' "^81" 0.4 1.5
d4 -- Rhodes base + chords d4 -- Rhodes base + chords
$ g $ g2
$ midiOn "^58" (superimpose ( -- ARPS <3 $ midiOn "^58" (superimpose ( -- ARPS <3
(|+ note 12) (|+ note 12)
. sometimesBy "0 0.5!7" rev . sometimesBy "0 0.5!7" rev
...@@ -76,19 +78,19 @@ d4 -- Rhodes base + chords ...@@ -76,19 +78,19 @@ d4 -- Rhodes base + chords
# roombus 42 (range 0 0.8 "^54") # roombus 42 (range 0 0.8 "^54")
# szbus 43 (range 0.45 0.9 "^54") # szbus 43 (range 0.45 0.9 "^54")
# midiG' "^82" 0.3 1.3 # midiG' "^82" 0.3 1.3
d8 $ g -- Electrified laggy moog d8 $ g2 -- Electrified laggy moog
$ midiOn "^92" (ply 2) $ midiOn "^92" (ply 2)
$ midiOn "^59" ((|- note 12)) $ midiOn "^59" ((|- note 12))
$ midiOn "^91" (segment "4 <4 <8 [8 16]>>") $ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
$ note (prog + "0 <12!4 12 12 16 <12 16>>") $ note (prog + "0 <12!4 12 12 16 <12 16>>" - 12)
# "moog:2" # "moog:2"
# crushbus 8 (range 10 3.4 "^55") # crushbus 8 (range 10 3.4 "^55")
# midiG' "^83" 0 1.3 # midiG' "^83" 0 1.5
# legato 2 # legato 2
# cut 8 # cut 8
# pan 0.6 # pan 0.6
# release 100 # release 100
d5 $ g -- Choirs + arps d5 $ g2 -- Choirs + arps
$ juxBy "0.7" ( $ juxBy "0.7" (
arp "<up <up down>>" arp "<up <up down>>"
. midiOn "^60" ((|- note 12)) . midiOn "^60" ((|- note 12))
......
live/techno/nightly_repair.tidal
...@@ -18,7 +18,7 @@ d1 $ g1 ...@@ -18,7 +18,7 @@ d1 $ g1
$ fix (|* gain 1) "808bd" $ fix (|* gain 1) "808bd"
$ fix ((|* gain 0.8)) "909" $ fix ((|* gain 0.8)) "909"
$ "[jazz,909,808bd:4]" $ "[jazz,909,808bd:4]"
# midiG' "^78" 0 1.6 # midiG' "^78" 0 1
d2 d2
$ g1 $ g1
$ superimpose ( $ superimpose (
...@@ -27,9 +27,6 @@ d2 ...@@ -27,9 +27,6 @@ d2
) )
$ midiOn "^43" (fast 2) $ midiOn "^43" (fast 2)
$ "~ cp" $ "~ cp"
# lpf 1500
# room 0.5
# dry 1.1
# midiG' "^79" 0 1.8 # midiG' "^79" 0 1.8
d3 $ g1 d3 $ g1
$ midiOn "^44" (fast "1 2") $ midiOn "^44" (fast "1 2")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment