Skip to content

T
Tidal
Commit c0f0edcc by PLN
Options

Merge branch 'feat-search' into 'master' 

Merge from feat search

See merge request !1
parents bf4a3a5f ebed78f3
Showing with 3182 additions and 691 deletions
BootTidal.hs
...@@ -101,6 +101,10 @@ let modIndex = pF "modIndex" ...@@ -101,6 +101,10 @@ let modIndex = pF "modIndex"
midiG' ch l h = _gainG (range l h ch) -- midiGain control midiG' ch l h = _gainG (range l h ch) -- midiGain control
midiGdef = midiG' 1 0 1 -- midiGain default midiGdef = midiG' 1 0 1 -- midiGain default
midiG ch = midiG' ch 0 1 -- midiGain default midiG ch = midiG' ch 0 1 -- midiGain default
-- Global filters
gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
:} :}
:set prompt "tidal> " :set prompt "tidal> "
......
PatchBay_Perf.xml
<!DOCTYPE patchbay> <!DOCTYPE patchbay>
<patchbay name="PatchBay_Perf" version="0.9.7"> <patchbay name="PatchBay_Perf" version="0.9.8">
<output-sockets> <output-sockets>
<socket name="Built-in Audio Analog Stereo" exclusive="off" client="Built\-in\ Audio\ Analog\ Stereo" type="jack-audio"> <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>
...@@ -155,18 +155,18 @@ ...@@ -155,18 +155,18 @@
</input-sockets> </input-sockets>
<slots/> <slots/>
<cables> <cables>
<cable input="SuperCollider" output="Built-in Audio Analog Stereo" type="jack-audio"/> <cable output="Built-in Audio Analog Stereo" input="SuperCollider" type="jack-audio"/>
<cable input="ardour 4" 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 2" output="SuperCollider" type="jack-audio"/> <cable output="SuperCollider" input="ardour 2" type="jack-audio"/>
<cable input="Built-in Audio Analog Stereo 2" output="ardour 2" type="jack-audio"/> <cable output="ardour 2" input="Built-in Audio Analog Stereo 2" type="jack-audio"/>
<cable input="ardour 3" output="ardour 3" type="jack-audio"/> <cable output="ardour 3" input="ardour 3" type="jack-audio"/>
<cable input="ardour 2" output="Midi-Bridge 2" type="jack-midi"/> <cable output="Midi-Bridge 2" input="ardour 2" type="jack-midi"/>
<cable input="aseqdump" output="Midi Through" type="alsa-midi"/> <cable output="Midi Through" input="aseqdump" type="alsa-midi"/>
<cable input="SuperCollider 3" output="Midi Through" type="alsa-midi"/> <cable output="Midi Through" input="SuperCollider 3" type="alsa-midi"/>
<cable input="PipeWire-RT-Event" output="Midi Through" type="alsa-midi"/> <cable output="Midi Through" input="PipeWire-RT-Event" type="alsa-midi"/>
<cable input="SuperCollider 2" output="Launch Control XL" type="alsa-midi"/> <cable output="Launch Control XL" input="SuperCollider 2" type="alsa-midi"/>
<cable input="Midi Through" output="Launch Control XL" type="alsa-midi"/> <cable output="Launch Control XL" input="Midi Through" type="alsa-midi"/>
<cable input="PipeWire-RT-Event" output="Launch Control XL" type="alsa-midi"/> <cable output="Launch Control XL" input="PipeWire-RT-Event" type="alsa-midi"/>
</cables> </cables>
</patchbay> </patchbay>
PatchBay_Perf5.1.xml 0 → 100644
<!DOCTYPE patchbay>
<patchbay name="PatchBay_Perf5" version="0.9.8">
<output-sockets>
<socket client="Built\-in\ Audio\ Analog\ Stereo" type="jack-audio" name="Built-in Audio Analog Stereo" exclusive="off">
<plug>capture_FL</plug>
<plug>capture_FR</plug>
</socket>
<socket client="SuperCollider" type="jack-audio" name="SuperCollider" exclusive="off">
<plug>out_1</plug>
<plug>out_2</plug>
</socket>
<socket client="ardour" type="jack-audio" name="ardour" exclusive="off">
<plug>auditioner\/audio_out\ 2</plug>
<plug>auditioner\/audio_out\ 1</plug>
<plug>Tidal\/audio_out\ 1</plug>
<plug>Tidal\/audio_out\ 2</plug>
<plug>Master\/audio_out\ 1</plug>
<plug>Click\/audio_out\ 2</plug>
<plug>Click\/audio_out\ 1</plug>
<plug>LTC\-Out</plug>
<plug>Master\/audio_out\ 2</plug>
</socket>
<socket client="Built\-in\ Audio\ Analog\ Stereo\ Monitor" type="jack-audio" name="Built-in Audio Analog Stereo Monitor" exclusive="off">
<plug>monitor_FL</plug>
<plug>monitor_FR</plug>
</socket>
<socket client="ardour" type="jack-audio" name="ardour 2" exclusive="off">
<plug>auditioner\/audio_out\ 2</plug>
<plug>auditioner\/audio_out\ 1</plug>
<plug>Master\/audio_out\ 1</plug>
<plug>Master\/audio_out\ 2</plug>
</socket>
<socket client="ardour" type="jack-audio" name="ardour 3" exclusive="off">
<plug>Tidal\/audio_out\ 1</plug>
<plug>Tidal\/audio_out\ 2</plug>
</socket>
<socket client="Midi\-Bridge" type="jack-midi" name="Midi-Bridge" exclusive="off">
<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_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>SuperCollider\:\(capture_5\)\ out0</plug>
<plug>SuperCollider\:\(capture_6\)\ out1</plug>
<plug>SuperCollider\:\(capture_7\)\ out2</plug>
</socket>
<socket client="ardour" type="jack-midi" name="ardour" exclusive="off">
<plug>MIDI\ Clock\ out</plug>
<plug>MTC\ out</plug>
<plug>x\-virtual\-keyboard</plug>
<plug>Scene\ out</plug>
<plug>MMC\ out</plug>
</socket>
<socket client="Midi\-Bridge" type="jack-midi" name="Midi-Bridge 2" exclusive="off">
<plug>Launch\ Control\ XL\:\(capture_0\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>Launch\ Control\ XL\:\(capture_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
</socket>
<socket client="Midi\ Through" type="alsa-midi" name="Midi Through" exclusive="off">
<plug>Midi\ Through\ Port\-0</plug>
</socket>
<socket client="Launch\ Control\ XL" type="alsa-midi" name="Launch Control XL" exclusive="off">
<plug>Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>Launch\ Control\ XL\ Launch\ Contro</plug>
</socket>
<socket client="SuperCollider" type="alsa-midi" name="SuperCollider" exclusive="off">
<plug>out0</plug>
<plug>out1</plug>
<plug>out2</plug>
</socket>
</output-sockets>
<input-sockets>
<socket client="Built\-in\ Audio\ Analog\ Stereo" type="jack-audio" name="Built-in Audio Analog Stereo" exclusive="off">
<plug>playback_FL</plug>
<plug>playback_FR</plug>
</socket>
<socket client="SuperCollider" type="jack-audio" name="SuperCollider" exclusive="off">
<plug>in_1</plug>
<plug>in_2</plug>
</socket>
<socket client="ardour" type="jack-audio" name="ardour" exclusive="off">
<plug>physical_audio_input_monitor_enable</plug>
<plug>LTC\ in</plug>
<plug>SC\ Tidal\/ACE\ Compressor\ \(stereo\)\ 1\/audio_in\ 1</plug>
<plug>Tidal\/audio_in\ 2</plug>
<plug>Tidal\/audio_in\ 1</plug>
<plug>Master\/audio_in\ 2</plug>
<plug>Master\/audio_in\ 1</plug>
</socket>
<socket client="Built\-in\ Audio\ Analog\ Stereo" type="jack-audio" name="Built-in Audio Analog Stereo 2" exclusive="off">
<plug>playback_FR</plug>
<plug>playback_FL</plug>
<plug>playback_FL</plug>
<plug>playback_FR</plug>
</socket>
<socket client="ardour" type="jack-audio" name="ardour 2" exclusive="off">
<plug>Tidal\/audio_in\ 1</plug>
<plug>Tidal\/audio_in\ 2</plug>
</socket>
<socket client="ardour" type="jack-audio" name="ardour 3" exclusive="off">
<plug>Master\/audio_in\ 1</plug>
<plug>Master\/audio_in\ 2</plug>
</socket>
<socket client="ardour" type="jack-audio" name="ardour 4" exclusive="off">
<plug>physical_audio_input_monitor_enable</plug>
<plug>physical_audio_input_monitor_enable</plug>
</socket>
<socket client="Midi\-Bridge" type="jack-midi" name="Midi-Bridge" exclusive="off">
<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_1\)\ Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>SuperCollider\:\(playback_0\)\ in0</plug>
<plug>SuperCollider\:\(playback_1\)\ in1</plug>
<plug>SuperCollider\:\(playback_2\)\ in2</plug>
<plug>SuperCollider\:\(playback_3\)\ in3</plug>
<plug>SuperCollider\:\(playback_4\)\ in4</plug>
<plug>aseqdump\:\(playback_0\)\ aseqdump</plug>
</socket>
<socket client="ardour" type="jack-midi" name="ardour" exclusive="off">
<plug>physical_midi_input_monitor_enable</plug>
<plug>MIDI\ Clock\ in</plug>
<plug>MTC\ in</plug>
<plug>Scene\ in</plug>
<plug>MMC\ in</plug>
</socket>
<socket client="ardour" type="jack-midi" name="ardour 2" exclusive="off">
<plug>physical_midi_input_monitor_enable</plug>
<plug>physical_midi_input_monitor_enable</plug>
</socket>
<socket client="Midi\ Through" type="alsa-midi" name="Midi Through" exclusive="off">
<plug>Midi\ Through\ Port\-0</plug>
</socket>
<socket client="Launch\ Control\ XL" type="alsa-midi" name="Launch Control XL" exclusive="off">
<plug>Launch\ Control\ XL\ Launch\ Contro</plug>
<plug>Launch\ Control\ XL\ Launch\ Contro</plug>
</socket>
<socket client="SuperCollider" type="alsa-midi" name="SuperCollider" exclusive="off">
<plug>in0</plug>
<plug>in1</plug>
<plug>in2</plug>
<plug>in3</plug>
<plug>in4</plug>
</socket>
<socket client="aseqdump" type="alsa-midi" name="aseqdump" exclusive="off">
<plug>aseqdump</plug>
</socket>
<socket client="SuperCollider" type="alsa-midi" name="SuperCollider 2" exclusive="off">
<plug>in3</plug>
<plug>in4</plug>
</socket>
<socket client="PipeWire\-RT\-Event" type="alsa-midi" name="PipeWire-RT-Event" exclusive="off">
<plug>input</plug>
<plug>input</plug>
</socket>
<socket client="SuperCollider" type="alsa-midi" name="SuperCollider 3" exclusive="off">
<plug>in2</plug>
</socket>
</input-sockets>
<slots/>
<cables>
<cable input="SuperCollider" type="jack-audio" output="Built-in Audio Analog Stereo"/>
<cable input="ardour 4" type="jack-audio" output="Built-in Audio Analog Stereo"/>
<cable input="ardour 2" type="jack-audio" output="SuperCollider"/>
<cable input="Built-in Audio Analog Stereo 2" type="jack-audio" output="ardour 2"/>
<cable input="ardour 3" type="jack-audio" output="ardour 3"/>
<cable input="ardour 2" type="jack-midi" output="Midi-Bridge 2"/>
<cable input="aseqdump" type="alsa-midi" output="Midi Through"/>
<cable input="SuperCollider 3" type="alsa-midi" output="Midi Through"/>
<cable input="PipeWire-RT-Event" type="alsa-midi" output="Midi Through"/>
<cable input="SuperCollider 2" type="alsa-midi" output="Launch Control XL"/>
<cable input="Midi Through" type="alsa-midi" output="Launch Control XL"/>
<cable input="PipeWire-RT-Event" type="alsa-midi" output="Launch Control XL"/>
</cables>
</patchbay>
backlog.md
...@@ -2,6 +2,7 @@ ...@@ -2,6 +2,7 @@
-- It's About Time [Take1?] -- It's About Time [Take1?]
-- Burn this book -- Burn this book
-- SlowMo: Orchestrated, ready to record :) -- SlowMo: Orchestrated, ready to record :)
-- Suns of Gold <3
# Study # Study
...@@ -9,7 +10,14 @@ ...@@ -9,7 +10,14 @@
# Coop # Coop
## Val
soir noir
## BOGDAN
-- Bogdan arrive
## RAPH ## RAPH
-- Euphorie Solitaire
-- JeuDrill :)
- Ragga la hierarchie :D - Ragga la hierarchie :D
- HAN! - HAN!
- Rainbow Race !!! - Rainbow Race !!!
...@@ -34,13 +42,52 @@ ...@@ -34,13 +42,52 @@
# Work in progress # Work in progress
## Beatober ## `24Facons` to love music
- Oct4: Techno recorded once, peaufine :) ### August August
-- Fabuleux 🎇
-- Le Bruit des Bots [WIP]
## July Not Sure If Fry
-- Nouveau Punk ✊
-- Blue Gold
-- Blue Burn
### June Summer of Bike Love
-- Suns of Gold
-- Golden Drum
-- Force Motrice
-- Bruler Franchement [WIP]
### Winter&Spring Cold Love
-- PERMANENCE
-- Trois Cafes :)
-- Disparition Elmo 🇬🇵
-- Infiltrations </3
-- Froid de Minuit ❄️❄️❄️
-- Infusion Basse 🍵
-- Qui sait ? 🌇 [Ambient][WIP]
-- Suns of Gold <3
## Nouvelle Epoque 23
### **December Celebrations**
-- Salut Nu
-- Nu dans la Boue
### November Rains
-- _Ambient Chaos_ <3 TODO: Add more leads :D
-- JeuDrill
### Beatober and other seasonal activities
- Oct4: Glitch Sauvages Techno recorded once, peaufine :)
- Oct5: DNB wobwob - manque leads/aigus? - Oct5: DNB wobwob - manque leads/aigus?
- Oct29: Can I code it? - Oct29: Can I code it?
- BECAUSE it's There <33 - BECAUSE it's There <33
- Nuit agitee ! Gameboy et breaks <3
## INDUSTRY ### INDUSTRY
-- No Panic! -- No Panic!
-- **ABLETON**: -- **ABLETON**:
...@@ -48,7 +95,7 @@ ...@@ -48,7 +95,7 @@
- Punk Teng with raph! - Punk Teng with raph!
- The Good Bass! - The Good Bass!
- Tour du ciel - Tour du ciel
- _Prestance_: Ambient wip - _Prestance_: Ambient wip needs adjustment :)
-- **Sel Marin**: Nuit noire dans la mer noire, TODO varier bass -- **Sel Marin**: Nuit noire dans la mer noire, TODO varier bass
-- **_Bain bouillant_**: sub bass and jungle breaks :) -- **_Bain bouillant_**: sub bass and jungle breaks :)
...@@ -676,14 +723,18 @@ Clameur? Brouillon? ...@@ -676,14 +723,18 @@ Clameur? Brouillon?
## REPAIR MULTILINE ## REPAIR MULTILINE
-- Reboot
-- Nouveau soleil -- Nouveau soleil
## Adapt to DAW, removing midiG calls ## Adapt to DAW, removing midiG calls
-- Oct4 -- Prestance
-- **Oct4 Glitch Sauvages**
-- About time -- About time
-- Toxic
-- Venons ensemble
## READY FOR MIX ## READY FOR MIX
-- Reboot
-- Premiere Grillade -- Premiere Grillade
-- Rainy day -- Rainy day
...@@ -695,7 +746,145 @@ Clameur? Brouillon? ...@@ -695,7 +746,145 @@ Clameur? Brouillon?
### **VELOCITE** ### **VELOCITE**
-- Bain bouillant -- Bain bouillant
-- Acid RAIN -- Acid RAIN
-- No Time to Die -- No Time to Die?
-- Haunted house -- Haunted house
-- _Finale_: **L'été a Mauerpark** -- _Finale_: **L'été a Mauerpark**
## Live Valentin <3
-- Bogdan
-- PERMANENCE
-- Blue Tuesday :))
-- Nouveau Soleil
-- dernier dimanche
...............................................................................
...............................................................................
...........................................''''................................
......................................''''''''''''.............................
..................................''''''''''''.................................
...................................'''................'........................
...................................''........''''''''''''''....................
.............................''''''''''''''''',,,,,,,,,,'''''''''..............
............................''''''''',,,,,,;;;;;;;;;;;;,,,,,,,''''''''''.......
.............................'''''''',,,,,,,;;;;;;;;;;;;,,,,,,,,,''''''........
............................'''''''',,,,,,,,;;,,,,,,,,,,,,,,'''''''''''........
.............................''''''''',,,,,,,;:solllllos:;,,,,,,,,,'''''''.....
...........................''''''',,,,,,;;:oooOO00000OOooos:;;;;,,,,''''''.....
.........................'''''',,,,;;;;;oooOOOOOO0000OOOOOoos:;;,,,,''''''.....
........................'''',,,,,;;;;;:sssSSSSSSSSSSSSSSSSsssss;;;,,,,'''''....
........................'''',,,,,;;;;:ooooOOOOOOOOOOOOOOOOoooooo;;;,,,,''''....
.........................'''',,,,,;;;ollllLLLLLLLLLLLLLLLLlllllo;,,,'''''......
...............................'''',,ssssSSSSSSSSSSSSSSSSSSSssss:''.'..........
..................................'',ttttTTTTTTTTTTTTTTTTTTTtttt:.'............
.................................'''':iiiiIIIIIIIIIIIIIIIIiiiiii,''............
..................................''',cdxxCCCCCCCCCCCCCCCCxxxxo:'.'............
....................................'',:eeEEEEEEEEEEEEEEEEeeee:'...............
.......................................';eeeeeeeeeeeeeeeeeee:,.................
.........................................',:eeeeeeeeeeeeee;,...................
.............................................',;;:::;;,,'......................
...............................................................................
...............................................................................
## TOPLAP SOLSTICE 23
-- Permanence 🫶🫶🫶🫶
-- Bain Bouillant 🤿 🤿
-- Haunted House 👻 👻
-- Salut nu 👋👋👋👋
# Mission H
-- My name is Bond, Drums Bond 🕵️
-- Bain Bouillant
-- Atelier de Force Motrice
-- Glitch Sauvages
-- _Cafe chaud_
-- _Cafe tiede_
-- Salut Nu <3
## TOPLAP 20 YEARS 🍪🎂🍪
- **Café Tiède** ☕☕☕
- **Force motrice** 💪💪💪
- **Café Glaçé** 🥃🥃🥃
- Nuit agitée 🌃🌃🌃
## Algolia FDLM2024
### Intro
- *Lendemain Divin* 🛏️
### 2022 throwback 🕵️
- *Contre Visite*
- *Nightly Repair* 🌆
- *Invoque l'Été* 🌇
### 2024 new thingies
- Venons Ensemble 🧑‍🧑‍🧒
- JeuDrill 🌠
- PERMANENCE ♾️♾️
- Force motrice 🌬️🌬️🌬️🌬️
- *Café Tiède* ☕🥃☕
- *Café Bouillant* ☕☕☕
- *Café Glaçé* 🥃🥃🥃
- *Salut Nu* 👋💛🧡💛👋
- *Nuit agitée* 🌃🎆🌃🎆🌃🎆🌃
- **MauerPark** 🎻🌇🌄🌇🌄🌇🥨
## Sur le Toit <3
-- *Fabuleux* 🎆
-- *Blue Gold* 🌠
-- *Haunted House*
-- Force Motrice
-- *Cafe Tiede*
-- Cafe Bouillant
-- Lendemain Divin (AddUp!)
-- Invoque l'été
-- Nuit agitée
-- L'été à MauerPark
-- Permanence :)
-- Encore: Blue Gold
...
## Opal <3🦉
⠀⠀⢀⣤⣾⣿⣿⣿⣿⣿⣶⣤⡀⢀⣤⣶⣿⣿⣿⣿⣿⣷⣤⡀⠀⠀
⠀⣰⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣆⠀
⢠⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡄
⢸⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡇
⠀⣿⣿🦉🦉🦉 OPAL 2024 🦉🦉🦉⣿⣿⣿⠀
⠀⠘⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⠃⠀
⠀⠀⠈⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠁⠀⠀
⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠉⠻⣿⣿⠟⠉⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠈⠁⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
- _Intro_: *Fabuleux**
- Cafe Glacé
- Café **Bouillant**
- Cafe Tiède
- Force MOTRICE
- Alerte verte 💚
- Nouveau Punk
- Jeudrill
- Bain Bouillant
- **Haunted House**
- Blue Gold
- L'été à MauerPark
----
- _ _Bonus_ _: Contre Visite
- _Passation_: Lendemain Divin
copycat/bad_guy.tidal
...@@ -78,7 +78,7 @@ d3 -- Bassline: melodie cut sur la fin du verse ...@@ -78,7 +78,7 @@ d3 -- Bassline: melodie cut sur la fin du verse
]) ])
# "bass3" # "bass3"
# cut 3 # cut 3
# gain 1.2 # gain 2
d7 -- Claps d7 -- Claps
$ mask "t!3 <t!3 f>" $ mask "t!3 <t!3 f>"
$ mask "<f!15 t t!24 f!4 t!6 t!24 f!4 t!6 f!4 t!6>" -- Orchestration $ mask "<f!15 t t!24 f!4 t!6 t!24 f!4 t!6 f!4 t!6>" -- Orchestration
...@@ -186,7 +186,7 @@ d4 -- Brass voice ...@@ -186,7 +186,7 @@ d4 -- Brass voice
# "brass" # "moogBass" -- FIXME RESTORE BRASS SAMPLES! # "brass" # "moogBass" -- FIXME RESTORE BRASS SAMPLES!
# legato "<0.75!7 1>" # legato "<0.75!7 1>"
# room 0.2 # room 0.2
# gain 0.8 # gain 0.6
d6 -- synth Chorus d6 -- synth Chorus
$ note (cat [ $ note (cat [
"","","","","","","","", -- Intro "","","","","","","","", -- Intro
......
copycat/elastic_heart.tidal 0 → 100644
do
setcps (93/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let rootD = "[d3'maj'3]"
let rootA = "[a3,cs4,e4]"
let rootE = "[e3,gs3,b3]"
let rootFm = "[e3,gs3,b3]"
let verse = [rootD, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootFm]
let preChorus = [rootA, rootD]
let chorus = [rootD, rootFm, rootD, rootFm, rootD, rootD, rootD, rootD]
let song = [rootD, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootD, rootD, rootFm, rootD, rootFm, rootD, rootD, rootD, rootD, rootD, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootD, rootD, rootFm, rootD, rootFm, rootD, rootD, rootD, rootD]
let verseOff = [rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD]
let preChorusOff = [rootE, rootE]
let chorusOff = [rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE]
let songOff = [rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE]
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 k <~ [~ k]>>")
$ midiOff "^42" (<| "k . ~ <~ k*<1 2 2 4>>")
$ "[clubkick:2,jazz,808bd:4]"
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ cp")
$ midiOff "^43" (<| "~ cp")
$ "clap:2"
# hpf 5000
d3 $ gF1 $ gM1
$ sometimesBy "0 . 0.1 <0.25 0.5 0.7 0.9>" (ply 2)
$ "hh*8" |* gain (range 0.6 0.9 perlin)
d4 $ gF2 $ gM3 -- BASSLINE COMPAGNONNE
$ struct "t(<2 [1|3|3|5]>,8) t(<3!3 5>,8,<0!3 1>)"
$ note (arp "<up!8 down!6 down <down downup updown up>>" $ cat song) -- Intro
# "bassWarsaw"
# octerbus 41 (range 0 1.5 "^53")
# room 0.2
d5 $ gF2 $ gM3
$ note (cat song) -- Main song
# "FMRhodes1"
# pan 0.3
d7 $ gF2 $ gM3
$ struct "t(1,2,1)" -- TODO Better structure
$ note (cat songOff + 12) -- Offbeat
# "FMRhodes2"
# pan 0.8
d8 $ gM1 $ gF1
$ midiOn "^60" (mask "t(<4 8>,<8 8 16 16>)")
$ midiOn "^92" (ply 2)
$ chop 16
$ loopAt 2
$ "jungle_breaks" # n "<42!3 41>"
# gain 0.8
# cut 8
once $ note "[a3,cs4,e4]" # "FMRhodes1" # orbit 3
once $ note "[e3,gs3,b3]" # "FMRhodes1" # orbit 3
once $ note "[fs3,a3,cs4]" # "FMRhodes1" # orbit 3
intro.md 0 → 100644
# Live: ParVagues @ Bazurto
> Tignes | Hiver 2023
⠀⠀⢀⣤⣾⣿⣿⣿⣿⣿⣶⣤⡀⢀⣤⣶⣿⣿⣿⣿⣿⣷⣤⡀⠀⠀
⠀⣰⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣆⠀
⢠⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡄
⢸⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡇
⠀⣿⣿⣿⣿⣿⣿ ParVagues ⣿⣿⣿⣿⣿⣿⠀
⠀⠘⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⠃⠀
⠀⠀⠈⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠁⠀⠀
⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠉⠻⣿⣿⠟⠉⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠈⠁⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
lib-parvagues/src/Sound/Tidal/ParVagues/Control.tidal
...@@ -10,7 +10,8 @@ ...@@ -10,7 +10,8 @@
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.9 midiGGlobal = "^77" * 1.3
_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
midiGdef = midiG' 1 0 1 -- midiGain default
midiG ch = midiG' ch 0 1 -- midiGain default midiG ch = midiG' ch 0 1 -- midiGain default
live/boeuf/algorythm/fdlm2022/toxic.tidal
...@@ -12,23 +12,24 @@ d1 $ g ...@@ -12,23 +12,24 @@ d1 $ g
-- $ mask "<t!12 f!4>" -- $ mask "<t!12 f!4>"
$ fix ((|* gain 0.9) . (# lpf 5000)) "kick" $ fix ((|* gain 0.9) . (# lpf 5000)) "kick"
$ "k ~ ~ k . ~ ~" # "[ifdrums,kick]" $ "k ~ ~ k . ~ ~" # "[ifdrums,kick]"
# midiG' "^78" 0 1.3 -- # midiG' "^78" 0 1.3
# pan 0.4 # pan 0.4
d2 $ g d2 $ g
$ superimpose (const $ g $ superimpose (const $ g
$ "~ ~ ~ ~ ~ <~!4 s!4> ~ <~!7 s>" # "snare:5" # pan 0.8 $ "~ ~ ~ ~ ~ <~!4 s!4> ~ <~!7 s>" # "snare:5" # pan 0.8
# midiG' "^79" 0 1) -- # midiG' "^79" 0 1
)
$ mask "<f t!15>" $ mask "<f t!15>"
$ "~ s ~ <s!3 ~>" $ "~ s ~ <s!3 ~>"
# "[snare:10,drum:2]" # "[snare:10,drum:2]"
# midiG' "^79" 0 1 -- # midiG' "^79" 0 1
d3 $ g d3 $ g
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
-- $ mask "<f!16 t!16>" -- $ mask "<f!16 t!16>"
$ "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 $ gDJF d4 $ 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"
...@@ -37,10 +38,10 @@ d7 $ gDJF ...@@ -37,10 +38,10 @@ d7 $ gDJF
# sz 0.1 # sz 0.1
# cut 7 # cut 7
# crushbus 71 (range 16 1.5 "^53") # crushbus 71 (range 16 1.5 "^53")
# midiG' "^81" 0 1 -- # midiG' "^81" 0 1
d8 $ gDJF -- CUE Toxic Theme d8 $ gDJF -- CUE Toxic Theme
$ midiOff "^91" (mask "<f!7 t>") $ midiOff "^92" (mask "<f!7 t>")
$ midiOn "^59" (rev) $ midiOn "^60" (rev)
$ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24) $ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24)
# "FMRhodes1" # "FMRhodes1"
# legato 4 # legato 4
...@@ -50,4 +51,4 @@ d8 $ gDJF -- CUE Toxic Theme ...@@ -50,4 +51,4 @@ d8 $ gDJF -- CUE Toxic Theme
# 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.1
live/boeuf/algorythm/love23/something_about_us.tidal
do do
setcps (92/60/4) -- resetCycles
setcps (100/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let gF = gF1 . gF2 let gF = gF1 . gF2
d1 $ gF1 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>") $ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" (<| "k ~ ~ <~ k> . <k ~>") $ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>")
$ "jazz" $ "[jazz,kick:5]"
# midiG' "^78" 0 1.3 -- # midiG' "^78" 0 1.3 -- FIXME Remove after unplugging direct SC->output line
# pan 0.8 # pan 0.8
d2 $ gF1 # gain 1.4
$ midiOn "^43" (<| "~ s ~ s*<1!4 2!3 1>") d2 $ gF1 $ gM
$ midiOff "^43" (<| "~ ~ ~ k") $ midiOff "^43" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOn "^43" (<| "~ ~ ~ k")
$ "[drumtraks:9]" $ "[drumtraks:9]"
# midiG' "^79" 0 1.45 -- # midiG' "^79" 0 1.45
d3 $ gF1 d3 $ gF1 $ gM
$ midiOn "^44" (ply 2) $ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2" $ "d d d <d [<d ~> d]>" # "drum:2"
# midiG' "^80" 0 1 # gain 0.8
-- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw) # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 -- V2 d4 $ gF2 -- V2
-- $ superimpose ((arp "up") . (|+ note 12))
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0))) $ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ note (cat [ $ note (cat [
"[bf3, d4, f4, a4]", -- Bbmaj7 -- PARTITION ORIGINALE
"[a3, c4, e4, g4]", -- Am7 -- "[bf3, d4, f4, a4]", -- Bbmaj7
"[d4, f4, a4, c5, <e5 e4>]", -- Dm9 -- "[a3, c4, e4, g4]", -- Am7
"[g3, b4, d5, <f5 ~>]" -- <G7 G> -- "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
-- "[cs4, b4, d5, <f5 ~>]" -- <G7 G> -- "[g3, b4, d5, <f5 ~>]" -- <G7 G>
]) -- TRANSPOSE POUR SP <3
"[d4, fs5, a4, cs5]", -- Dmaj7
"[gs4, b4, cs5, es5]", -- Csm7
"<[fs4, a4, cs5, e5, gs5] [fs4, b5, cs5, e5, gs5]>", -- Fsm9/Fsm11
"[b4, d5, fs5, <a4 a5>]" -- <B7 B>
]
- 12
)
# "FMRhodes2" # "FMRhodes2"
-- |- note 12 -- |- note 12
|+ note 2 -- Adjust to C |+ note 2 -- Adjust to C
# modIndex (range 0 2 "^53") # modIndex (range 0 2 "^53")
# midiG' "^81" 0 1.6 -- # midiG' "^81" 0 1.6
d5 $ note ("<[d3@1.25 e3@0.25 ~@0.75 f3@2 ~] [e3@1.25 f3@0.25 ~@0.75 g3@2 ~] [f3@1.25 g3@0.25 ~@0.75 a3@2 ~] [a3 g3 g3 f3 f3 d3 c3 d3]>")
# "bassWarsaw"
# cut 1
d8 $ gF1 $ gM
$ midiOn "^92" (ply 4)
$ iter "1 <1!4 4!4>"
$ chop 8
$ loopAt 2
$ "break:2"
-- # n 4
# cut 8
# gain 0.7
d10
$ (0.5 <~)
$ n "<1 2 3 4 5 6 7 8>"
# "numbers"
# crush 8
# hpf 1250
once $ "ho:5"
# gain 0.5
once $ "jungle_breaks:27" # cut 1
once $ note "a3" # "superpiano"
live/boeuf/algorythm/season2/blues_wednesday.tidal
...@@ -2,46 +2,92 @@ ...@@ -2,46 +2,92 @@
do do
-- resetCycles -- resetCycles
setcps (90/60/4) setcps (90/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- Modified blues to add a seventh with bflat -- Modified blues to add a seventh with bflat
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"] let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"]
let gDJF = (# djfbus 1 (slow 32 $ range 0.2 0.8 saw)) let gDJF = (# djfbus 1 (slow 32 $ range 0.2 0.8 saw))
let gDJF = id let gDJF = id
d1 $ gDJF d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ fix ((|* gain 0.6) . (# hpf 200)) "jazz" $ fix ((|* gain 0.6) . (# hpf 200)) "jazz"
$ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>" # "[jazz,cpu]" # gain 1 -- $ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>"
d2 $ "[jazz,cpu]" # gain 1
-- $ gDJF -- # midiG' "^78" 0 1.5
-- $ mask "<f!16 t!48>" d2 $ gF1 $ gM1
$ note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8) $ midiOff "^43" (<| note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8))
# "[snare:60,snare:21]" $ midiOn "^43" (<| note ("~ 0 ~ 0"))
# gain 0.46 $ "[snare:60,snare:21,snare:51]"
# gain 0.56
# pan 0.3 # pan 0.3
-- # room 0.2 # dry 1.1 # sz 0.8 -- # room 0.2 # dry 1.1 # sz 0.8
d8 $ gDJF d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "drum:2*[4 <4 <8 16>>]" $ "drum:2*[4 <4 <8 16>>]"
-- $ "drum:2*[6 12]"
# att 0.03
# rel 0.9
# pan 0.3 # pan 0.3
# gain 0.55 # gain 0.85
d3 $ gDJF d8 $ gF1 $ gM1
$ mask "<f!16 t!48>" $ midiOn "^92" (ply 2)
$ mask "t(<1 1 4 2 2 2 4 <2 4>>,4)" $ chop 8
$ chop 8 $ loopAt 1 $ "break:1" $ midiOn "^36" (loopAt 1 . (# "break:5"))
# cut 4 # gain 0.4 $ midiOn "^56" (loopAt 1 . (# "break:9"))
$ loopAt 2
$ "jungle_breaks:8"
# gain 0.8
# pan 0.7 # pan 0.7
d4 d4 $ gF2 $ gM3
$ superimpose (|+| note "[0 0(<3!3 5>,8)]") $ midiOn "^57" (|+| note "0 <7 7 12 12>(3,8) 0 <7 12>([5 <3 2>],8)")
$ midiOn "^89" (superimpose (|+| note "[0 0(<3!3 5>,8)]"))
$ note ( $ note (
cat blues + "[0]" cat blues + "[0]"
) )
-- # "bass3:4" -- # "bass3:4"
-- # "modalMarimba" |+| note "0*4" -- # "modalMarimba" |+| note "0*4"
# "bassWarsaw" |- note 24 # "bassWarsaw" |- note 24
# octersubbus 41 (range 0 2 "^53")
# pan 0.3 # crush 16 # pan 0.3 # crush 16
-- # room 0.1 -- # room 0.1
-- # voice 0.8 -- # voice 0.8
-- # cut 1 -- # cut 1
# gain 1.075
# lpf 300
d5 $ gF3 $ gM3
$ swing 4 -- TODO Replace with sampled guitar wahwah
$ arp "updown"
$ note (
cat (blues) + "c'maj'4"
+ 12
)
# "cpluck:2"
# pan 0.3
# cut 5
# gain 1.075
# lpf 300
d10 $ gF3 $ gM3
-- $ superimpose (|+| note "[0 0(<3!3 5>,8)]")
$ note (
cat blues + "[0*4]"
)
# "moogBass"
# pan 0.7 # crush 16
# cut 10
# gain 0.75 # gain 0.75
# lpf 300 # lpf 300
-- TODO Recover this guitar and make it midi-agnostic -- TODO Recover this guitar and make it midi-agnostic
d5 $ gF3 $ note ( d5 $ gF3 $ note (
"<0 [0, [~@3 <2 0 0 2>@3 0@2]] [0@4 0@2] 0([1 3],8)>" "<0 [0, [~@3 <2 0 0 2>@3 0@2]] [0@4 0@2] 0([1 3],8)>"
...@@ -56,3 +102,6 @@ d5 $ gF3 $ note ( ...@@ -56,3 +102,6 @@ d5 $ gF3 $ note (
# crushbus 51 (range 16 3 "^54") # crushbus 51 (range 16 3 "^54")
# "come_guitar:0" # "come_guitar:0"
# midiG' "^82" 0 1.7 # midiG' "^82" 0 1.7
once $ "cpluck:3"
live/boeuf/biarritz/blue_tuesday.tidal
resetCycles
once $ "dr"
do do
setcps (90/60/4) setcps (90/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
...@@ -6,8 +10,10 @@ let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) ...@@ -6,8 +10,10 @@ let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw)) let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw)) let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus" let chorus = pF "chorus"
...@@ -16,40 +22,43 @@ let dec = pF "dec" ...@@ -16,40 +22,43 @@ let dec = pF "dec"
let sus = pF "sus" let sus = pF "sus"
let cutoff = pF "cutoff" let cutoff = pF "cutoff"
let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f", "c", "g"] let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f", "c", "g"]
d1 $ gF $ gMute -- Do Fa Do Do
-- Fa Fa Do Do
-- Sol Fa Do Do
-- Sol Fa Do Sol
d1 $ gF $ gMute2
-- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>" -- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>"
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>") $ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8)") $ midiOff "^42" (<| "k . k(<3!3 5>,8)")
$ "k" $ "k"
# "[cpu,jazz,808bd:3,808bd:2]" # "[cpu,jazz,808bd:3,808bd:2]"
# midiG' "^78" 0 1.9 -- # midiG' "^78" 0 1.9
# gain 1.8
d2 $ gF $ gMute d2 $ gF $ gMute
$ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare" $ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare"
# midiG' "^79" 0 1.3 -- # midiG' "^79" 0 1.3
d3 $ gF $ gMute2 d3 $ gF $ gMute
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ rarely (ply 2) $ rarely (ply 2)
$ "drum:2*[8 <8 16>]" # gain 0.5 $ "drum:2*[8 <8 16>]" # gain 0.5
# midiG' "^80" 0 1.9 # midiG' "^80" 0 1.9
d9 $ gF d8 $ gF $ gM
$ chop 16
$ midiOn "^36" ((# "break:18") . loopAt 2) $ midiOn "^36" ((# "break:18") . loopAt 2)
$ midiOn "^56" ((# "jungle_breaks:45") . loopAt 2)
$ midiOn "^60" (mask "f . f(3,8)" . chop 8) $ midiOn "^60" (mask "f . f(3,8)" . chop 8)
$ midiOn "^92" (ply 2) $ midiOn "^92" (ply 2)
$ loopAt 2 $ loopAt 2
$ slice 4 "0 <1!2 ~ 1> <2 ~> 3*<1!3 2>" $ slice 4 "0 <1!2 ~ 1> <2 ~> 3*<1!3 2>"
$ "break:9" $ "break:9"
# cut 9 # cut 8
# midiG' "^84" 0 1.9 # gain 1.2
d4 $ gF2 d4 $ gF2 $ gMute3
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>") $ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 ( $ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" . -- ply "<2 4 [4 8] 8>" .
arp "pinkyup" arp "pinkyup"
. (often (ply 2)) . (often (ply 2))
-- . (|* gain 0.8)
-- . (# pan 0.6)
-- . (# crush 16)
-- . (|+ note 12)
)) ))
$ superimpose (|+ note "[0,7]") $ superimpose (|+ note "[0,7]")
$ note ( $ note (
...@@ -60,118 +69,24 @@ d4 $ gF2 ...@@ -60,118 +69,24 @@ d4 $ gF2
# pan 0.3 # pan 0.3
# room 0.1 # room 0.1
# voice 0.8 # voice 0.8
# crushbus 41 (range 16 3 "^53") # crushbus 41 (range 16 1.3 "^53")
# midiG' "^81" 0 1.3 # octerbus 42 (range 0 1.3 "^33")
# gain 1
d9
$ note ("0(<3!3 <5 [5 3]>>,8)" + "c'maj'2" + (cat blues))
# "FMRhodes2"
# modIndex 0
# gain 1.3
d10 $ gM3 $ gF3 $ note ("c'maj'4" - 12 + cat blues) # "moogBass"
# pan 0.8
d7 $ gF3 $ gM2 -- High Cello Dauphin
$ struct "t@2 t*<1 2 1 <4 1>> t*<1 2 4 8>"
$ midiOn "^59" (|- note 12)
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
)
# "[cbow:3]"
# cut 7
# room 0.2
# pan 0.9
# crushbus 71 (range 16 2.5 "^55")
# midiG' "^83" 0 1.2
d3 $ gF $ gMute2
$ midiOn "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
# midiG' "^80" 0 1.6
d4 $ gF2 $ slow 2 -- Basse Germanique
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
$ (0.125 <~) -- Calage :)
$ someCyclesBy (1 - "^33") (
(mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
) --
$ fix ((midiOff "^57" (# silence)) . (|* gain 0.8) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
"bass2"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
- 24
)
# "[bass2:1,bassWarsaw]" -- TODO: Autre basse moins venere?
# room 0.2
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1.6
d6 $ gF3 $ gMute2 -- Leads reponse
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
$ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
$ someCyclesBy "<f!3 t>" (mask "t f!15". (# legato 2))
-- $ (0.125 <~) -- Calage :)
-- $ someCyclesBy "^17" (
-- (mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
-- ) --
$ whenmod 32 24 (ply "2 <2!4 4!4>")
$ swing (1/3)
$ note (
"<ef4 g4 <ef g> d>"
+ "<0!0 [0 12]!0 [0(2,8), <12!3 -12>([<1 3> 3],8,3)]!32>"
+ "[0,<7 12 12 7>]"
- 12
)
# "FMRhodes1"
# room 0.2 # room 0.2
# pan 0.33 # chorus (range 0 2 "^29")
# modIndex (range 0 16 "^34")
# crushbus 61 (range 16 2.5 "^54")
# midiG' "^82" 0 1.5
d8 $ gM $ gF3 -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
$ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2
$ chop 8
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1.4
d10 $ gF3 -- Pads angéliques
$ sometimesBy "^19" (superimpose (
(# cut 101)
. (arp "up")
. (|+ note (
"<[0,0] [0,7] [0,9] [0,7,9,12]>"
))
. (|+ pan 0.1)
))
$ midiOff "^58" (mask "t([0 2],4)")
$ note (
slow 2 "<bf4 d5 <bf4 ef> [bf4 a4@3]>"
+ "[0,[0*<1 1 2 <2 1>> . 0 12*<1 2>]]"
)
# chorus (range 0 2 "^35")
# "moogBass" -- FIXME: Other synth?
# dec 0.2
# sus 1
# att (range 0.001 2 "^16")
# rel (range 0.2 10 "^17")
# roombus 101 (range 0 0.5 "^18")
# lesliebus 102 (range 0 2 "^19")
# sz 0.6 # dry 2 # sz 0.6 # dry 2
# midiG' "^20" 0 1.6 # room 0.3 # dry 0.9
# legato 2 # pan 0.2
# pan 0.64 d11 -- DEBUG CUE Voice
# cut 10 $ ("0.125" <~)
$ off "h" ((|* gain 0.95) . (# pan 0.8))
bf g bf <bf a> $ "numbers"
# n "<1 2 3 4 5 6 7 8>"
# pan 0.3
live/collab/baba/oparoles.tidal 0 → 100644
once $ "paroles:2" # gain 1.2 # cut 2 # lpf 2000
do
-- resetCycles
setcps (115/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2$ gMute1 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:24]"
# pan 0.65
# legato 0.22
-- # midiG' "^79" 0 1.6
d3 $ gM1 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
-- # midiG' "^80" 0 1.5]
d4 $ gF2 $ gMute3
$ midiOn "^89" (ply 8)
$ note "<b2 as2 gs2@2>"
# "bassWarsaw"
# gain 1.2 # cut 4
# crushbus 41 (range 16 4.5 "^53")
# octerbus 42 (range 0 1.2 "^33")
# octerbus 42 (range 0 1.2 "^33")
d5 $ gF3 $ gM3 -- Baba hums
-- $ midiOn "^58" ((# n 1) . ())
$ n "<1@2 2@2 3@2 4@2>"
# "paroles" # cut 5
# octersubbus 51 (range 0 2.5 "^54")
# lpf 3000
# legato 2
d8 $ gF1 $ gM1 $ chop 8 $ loopAt 1
$ midiOn "^56" ((loopAt 2) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "f(4,8)")
$ chop 8
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 2 . (# "breaks165")
. (# room 0)
)
$ "jungle_breaks:20"
# gain 1.2
d9 $ gM3
$ fix (slow 2 . (# "jerome:0")
. (# begin "<0!6 0.5!2>")
. (# end "<<0.3!2 0!2> 0.5 0.9>")
) "bonsoir"
$ "[bonsoir]" # cut 9
d10 $ gM3 $ ply "<1!4 2!4>" $ "<jerome:4 ~>" # end "<0.5 <0.64 1>>" # cut 10 # octersub (slow 16 $ range 0.2 0.8 perlin)
d11 $ "jerome/4" # n "<5 5 7 8>" # gain 1.2 # cut 11 # lpf 4000
d12 $ "<~ ~ jerome ~>" # n "<1 2 3>" # gain 1.2 # cut 12 # lpf 4000
-- 5 7 8
once $ "jerome:3" # cut 8
live/collab/cookie/ccc.tidal 0 → 100644
resetCycles
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
$ "kick:5"
d2 $ gM1 $ gF1
$ fix (# lpf 2500) "h2ogmsn"
$ midiOff "^43" (slow 2)
$ "~ s ~ <s!3 s*[<4 4 2 4> <2!3 4>]>"
# "[db:11,h2ogmsn:12]"
# "[dr55:3]"
d3 $ gM2 $ gF1
$ midiOn "^76" (ply "2 <2 4>")
$ someCyclesBy "<0 0.4>" (jux $ swing 2)
$ "<hh(<3!3 [3 5]>,8)!3 [hh(3,8) hh(<3!3 5>,8)]>"
# "rampleA4:6" # gain 0.5
# room 0.2
# size 0.9
# dry 0.9
# pan (range 0.2 0.8 (slow 4 perlin))
d4 $ gM3 $ gF2
$ midiOn "^57" (>| note ("<d d <d g> <a d d a>>" - 2 - 12))
$ note ("d" - 2 - 12)
# "90s_synatm:2"
# crushbus 41 (range 12 1.4 "^53")
# octerbus 42 (range 0 1.4 "^33")
# cut 4
# room 0.4
# pan (slow 32 $ range 0.98 0.7 saw)
# gain 0.7
d5 $ gM3 $ gF2
$ fix (|* gain 0.7) (n 10)
$ note "<<d!16 g!16> <d!16 g!16> d g [a@3 <~ bf>]>"
# n "<5!24 10!8>" # "cbow"
# crushbus 51 (range 12 2.4 "^54")
# cut 5
# gain 0.6
d7 $ gM3 $ gF3 -- Keys of Paradise
$ midiOn "^91" (ply 2 . (# freeze 0.2))
$ slice 4 "<[0 1] [2 3*<1 4>] [0 1] [2 1(<1 3>,8)]>"
$ "nujazz_keys120:25/2"
# octersub (slow 32 $ range 0.2 1.2 (saw+perlin/2))
# cut 7
d8 $ gF1 $ gM1 -- Train break train wreck
$ chop 16
$ midiOff "^36" (loopAt 2)
$ midiOff "^56" (loopAt 2)
$ midiOn "^60" (loopAt 0.5)
$ midiOn "^92" (ply "2 1 4 <2 1>")
$ chop 4
$ loopAt 4
$ "jungle_breaks:45"
# cut 8
d10 $ gM3 $ gF3
$ note "<g3!3 a3>" # "90s_weird:1"
# cut 10 # gain 0.8
# pan (slow 4 "<0.2 0.42 0.68 0.8>")
d11 $ gF3 $ gM3
$ note ("0(3,8)" + "<g4!3 a4 g4!3 a4 d4!3 d4s d4!3 a4s>")
# "90s_synatm:13"
# cut 11
# gain 0.8
# pan (slow 4 (1-"<0.2 0.42 0.68 0.8>"))
# att 0.1
# rel 2
d9 $ gF3 $ gM3 -- Submarine electric wave
$ someCyclesBy "<0!6 0.5 1>" (# silence)
$ note ("<g4!3 a4 g4!3 a4 d4!3 d4s d4!3 a4s>")
# "90s_synatm:14"
# cut 9
# gain 0.8
# crushbus 91 (slow 16 $ range 16 4.5 (perlin - (slow 8 saw)))
# pan (slow 4 (1-"<0.2 0.42 0.68 0.8>"))
live/collab/mousquetaires/blue_burn.tidal 0 → 100644
resetCycles
do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ fix (|* gain 0.9) "kick:5"
$ "[h2ogmbd:1,kick:5]" -- TODO: Meilleur kick?
# gain 1.2
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "cp"
# gain 0.9
# pan 0.6
# note "-3"
-- # room 0.84 # dry 0.95 # sz 0.1
d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2)
$ arp "up"
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
# "[h2ogmsn:14]"
-- # "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4 $ gM3 $ gF2
$ midiOn "^89" (superimpose (
(struct "t(8,16)") . (# legato 0.2). (# cut 41))
. (|* gain 0.8)
)
$ note "<<e!3 e4> <~ [~!7 <g g g a g a bf b>]>>"
# "moog"
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 "^33"
# cut 4 # gain 0.8
d5 $ gM3 $ gF3
$ midiOn "^90" (ply 2)
$ note (arp "down" "c'min'2" + "<<e!3 e4> <b3 [~!7 <g g g a g a bf b>]>>")
# "FMRhodes1"
# crushbus 52 (range 16 2.5 "^54")
# modIndex (range 0 2.5 "^34")
-- # cut 5
# pan 0.7
# gain 1.2
d8 $ gF1 $ gM1 -- Break populaire
$ midiOn "^92" (ply 2)
$ chop 8
$ loopAt 2
$ midiOn "^36" (loopAt "1 <1 0.5>" . (# "jungle_breaks:6"))
$ midiOn "^56" (# "jungle_breaks:24")
$ "jungle_breaks:18"
# gain 0.85
# pan "0.68 0.42 0.42 0.68"
d7 $ gF1 $ gM1 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
$ chop 8
$ loopAt 2
$ "jungle_breaks:22"
# pan "0.8 0.2"
live/collab/mousquetaires/blue_gold.tidal 0 → 100644
do
setcps(124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
$ fix ((# lpf 1400)) "kick:4"
$ "[techno:0,kick:4]"
# gain 2
# room 0.2
# dry 1
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
-- $ "[rampleM2:12,rampleD3:1,rampleD4:1]"
$ "[snare:10,snare:20]"
-- # note "-4"
# lpf 2000
# gain 1.5
# pan 0.6
# rel (slow 16 $ range 0.6 0.2 saw)
-- # note "-3"
-- # room 0.84 # dry 0.98 # sz 0.1
d3 $ gF1 $ gM1 -- Highest hats
-- $ juxBy 0.8 (id . (# cut 31))
$ whenmod 32 16 (swingBy (slow 16 $ range 0.08 0.01 saw) 4)
$ midiOn "^44" (off "s" id)
$ midiOn "^76" (ply "<2!2 4 8>")
$ fix (# legato 0.25) "rampleD2:3"
$ "~ h ~ h ~ h*<1 2> ~ h*<1!3 2>"
# "rampleD2:2!6 <rampleD2:2!3 rampleD2:3> rampleD2:3"
-- # n "<4 5 4 <5!3 6>>"
-- # note (-12 + "3.5" + "e6")
# cut 3
# gain (1.4 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.2 # dry 0.99 # sz 0.25
d4 $ gF2 $ gMute3
$ midiOn "^89" (ply "2 <2 <4 8>>")
$ fast (4/3) -- Le fameux
$ midiOff "^57" -- L'attente
(sometimesBy "<1!3 [0 <0 1>]>" (mask "t(<5!3 <5 8>>,8) t(<5!3 5>,8)"))
$ ("e" ~>) -- Decalage
$ note ("<[fs4 <a5!2 gs!4 fs5!4 <[a6 gs6 fs6]!3 [fs6 gs6 a6]>>@3]*4>")
# "bassWarsaw" |- note 24
# pan 0.4
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2 "^33")
# octerbus 43 (range 0 0.52 "^33")
# gain 2
# legato "[0.8 0.5]*4"
d5 $ gM3 $ gF3
$ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (slice 8 "<0 1 2 3>(<3 <5 [5 3]> <3!3 [1]> <8!3 [8 4]>>,8)")
$ midiOff "^58" (slice 8 "<0 1 2 3 4 5 6 7>")
$ "suns_keys" # n "<0 <1 2> 3 3>"
# pan 0.8
# room 0.8 # sz 0.5
# cut 5
# octerbus 51 (range 0 1 "^54")
d7 $ gM3 $ gF3
$ midiOn "^91" (ply "1 . 2 <2 <4 8>>")
$ slice 8 "0 0 0 <0 <1 2>>"
$ "suns_guitar:0/2"
# cut 7
# octersubbus 71 (range 0 1.9 "^35") -- BURN THIS GUITAR
# lpfbus 72 (range 10000 200 "^35")
# crushbus 73 (range 16 2.5 "^55") -- CRASH THIS GUITAR
# pan 0.2
# gain 1.1
d8 $ gF1 $ gM1
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ midiOff ("^60" + "^92") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ midiOn "^56" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# att 0.04
# rel 2
# gain 1.6
# hpf 1200
-- # room 0.52 # sz 0.04 # dry 1.01
d9 $ gF3 $ gMute3 -- Voice of the Father
$ someCyclesBy "<0!16 1!16>" (slice 10 "<5 5 <2 2 7 2> <7 4>>")
$ someCyclesBy "<1!16 0!16>" (slice 10 "<0 0 2 <4 5 5 4>>")
$ "suns_voice:0"
# octerbus 91 (slow 16 $ range 0.5 0.2 sine)
# hpf 1500
# cut 9
d10 -- CUES AND NOISES
$ fix (# lpf 2000) "rampleD5:3" -- Porte spaciale
$ fix ((# legato 4) . (# cut 101) . mask "<f!3 t>" . slow 8) "risers"
$ "[<~!3 rampleD5:3>,risers:5]"
# gain 1.2
-- # cut 10
d11 $ gM3 $ gF2 -- Flying triplet guitar
$ slice 8 ("<0 1 2 3>(3,8)")
$ "suns_guitar:2"
# cut 11
# room 0.8
# sz 0.5
# dry 1.2
# pan "<0.3!16 0.7!16>"
# legato 4
d12 $ gM3 $ gF3 -- Falling angel guitar
$ whenmod 16 8 (ply "<4 2 [4 2] [4 8]>")
$ slice 2 ("<0 1>")
$ "suns_guitar:1"
# cut 12
# pan "<0.7!16 0.3!16>"
# room 0.4
# sz 0.5
# hpf 1500
# dry 1.2
# gain 1.3
# legato 1.2
once
$ sound "suns_keys:0"
once $ "jazz"
setcps 0.25
d1 $ fastcat ["bd:0*2", "hh()", "dr*4", "[cp*<1 2> . ~]"]
-- # ""
# gain 1.8
-- # hpf 5000
live/collab/please_die/concombre.tidal deleted 100644 → 0
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.2 0.8 "^50"))
let gM = midiOn "^73" (mask "f*16")
d1 $ gF $ gM
$ (|* midiG' "^78" 0 1.4)
$ superimpose (const $ "~ s ~ s*<1 2 1 [1|2]>" # "snare:24" # gain 1.3 # note (8))
$ fix (|* gain 0.9) "jazz"
$ fix (|* gain 1.2) "kick:5"
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k ~ [~ k] <~!3 k>")
$ "[kick:5,jazz]"
d2 $ gF $ gM
$ midiOn "^43" (fast 2)
$ "~ s ~ s"
-- $ "~ ~ s ~"
-- $ "~ ~ ~ ~ s ~ ~ ~"
# "snare:24" # gain 1.3
# midiG' "^79" 0 1.5
d3 $ gF $ gM
$ ply "2!3 1"
$ "dr*8"
# crushbus 51 (range 16 2.5 "^53")
# midiG' "^80" 0 1.5
d5 $ gF2 $ gM
$ chop 8
$ "90s_matrix:3"
# crushbus 51 (range 16 2.5 "^53")
# sz 0.9
# room 0.3
# cut 5
# midiG' "^81" 0 1.2
d7 $ gF2
$ midiOn "^57" (off "e" (mask "t!7 f"))
-- $ struct "t*4"
$ note (arp "<up down>" $ "<c3'nine'5!2 g3'min7'5!2>")
-- $ note (arp "<up up>" $ "<>")
# "bassWarsaw"
# crushbus 71 (range 16 2.5 "^54")
# midiG' "^82" 0 1.8
d6 $ gF2 $ gM
$ midiOn "^57" (ply "4 8")
$ "90s_matrix:0"
# crushbus 61 (range 16 2.5 "^55")
# sz 0.9
# cut 6
# midiG' "^83" 0 2
d8 $ gF2
$ struct "t*16"
-- $ superimpose (|+| note "[0 12]")
$ arp "up"
$ note ("a3'min'4" + "[0,<12!3 24>]")
# "acidOto3092"
# crushbus 81 (range 16 3.5 "^56")
# rel 2
# midiG' "^84" 0 2
d9 $ gF -- Breaks silence pesant.
$ slice 8 "<0 1 2 3> . <~!4 5 6 7>"
$ loopAt 4
$ "drums_atari:15"
# midiG' "^20" 0 2
# cut 9
live/collab/raph/ambiance.tidal 0 → 100644
resetCycles
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (105/60/4)
do
-- d1 $ gF1 $ gM1 $ "kick:5"
-- d1 $ gF1 $ gM1 $ "kick:5"
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [<~ k> k*<1 4>]>")
-- $ midiOn "^42" (<| "k k(<3 [3 5]>,8)")
$ "kick:5"
d2 $ gF1 $ gM1
$ "~ cp"
# "rampleP5:15"
d3 $ gF1 $ gM1
$ "hh(5,8)"
# "rampleP5:16"
# cut 3
d4 $ gF2 $ gM1
$ "90s_synatm:9"
# cut 4
d5 $ gF3 $ gM1 -- Semi-basse
$ superimpose (("h" ~>)
. (|+ note 12)
. (# cut 51))
$ note ("<gs4!0 f4 f4 gs4 f4 f4 f4 ef4 f4>")
# "90s_synatm:3"
# cut 5
# gain 0.65
# pan 0.3
-- 0 4 0 1 0 2 0 3
d10 $ gF3 $ note "f/4" -- Anges des intertubes
# "90s_glassatm:2"
-- # crushbus 101 (range 16 2.5 (perlin))
# roombus 102 (slow 4 $ range 0.4 0.65 (perlin)) # sz 0.8
# legato 2
# pan 0.7
# cut 10
d4 $ gF2 $ gM1 -- Bass electrique
$ note (scale "aeolian" (
"3"
+ "<~!16 0!16> <4 1 <2 5> <3 6>>"
))
# "90s_synatm:9"
# att 0.2
# rel 2
# room 0.4 # dry 1.2 # sz 0.5
# octersubbus 42 (range 0 4 "^33")
# crushbus 41 (range 16 2.3 "^53")
# cut 4
live/collab/raph/bad_witch.tidal 0 → 100644
do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ fast 2
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~!3 <~!3 k>")
$ "[kick:5,clubkick]"
# cut
1
d2 $ gF1 $ gM1
$ fast 2
$ midiOn "^43" (<|"~ s ~ s*<1 2>" )
$ midiOff "^43" (<| "~ s/2")
$ "rampleM9:4"
# gain 0.9
d3 $ gF1 $ gM1
$ fast 2
$ midiOn "^76" (fast 2)
$ superimpose ((# "hh") . (# cut 31) . (# pan 0.8))
$ "~ d ~ d ~ d ~ d*<1 <2 [4 2]>>"
# "rampleA4:9"
# cut 3
# pan 0.2
d4 $ gF2 $ gMute3
$ midiOn "^89" (ply "2 4")
$ note ("[c4@2 c5 ~ [bf4 c5]@2 ~ bf4 c5 bf4 g4 fs4 f4@4]" - 12)
# "bassWarsaw"
# cut 4
# room 0
# octersub 0.8
# gain 0.8
# pan 0.6
# crushbus 41 (range 16 2.5 "^53")
d9 $ "90s_matrix:0/4"
# cut 9
-- # room 0.4
# gain 0.9
# pan 0.1
# lpfbus 91 (slow 16 $ range 200 2000 saw)
d5 $ gF3 $ gM3
$ whenmod 8 7 (>| note "c@2 c ef@2 ef f g")
$ fast 4 $ note ("[c <c!3 f> c <g fs ef b4>]")
# "FMRhodes1"
# modIndex (range 0 64 "^54")
# pan 0.2
# gain 1.2
# room 0.2 # sz 0.9
# cut 5
|- note 12
d8 $ gF1 $ gM1
$ midiOn "^60" (ply 2)
$ midiOn "^92" (ply 2)
$ chop 16
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:24") . (|* gain 1.1)) -- Legerete orleanaise
$ midiOn "^56" ((# "jungle_breaks:45")) -- Legerete orleanaise
$ loopAt 1 $ "jungle_breaks:62" -- Poudreuse epaisse
# cut 8
once $ note "c@2 c ef@2 ef f g" #"FMRhodes1" # orbit 6
live/collab/raph/diable.tidal
...@@ -3,7 +3,8 @@ setcps (170/60/4) ...@@ -3,7 +3,8 @@ setcps (170/60/4)
let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw))) let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw)))
d1 $ g d1 $ g
$ fix ((# att 1) . (# rel 2)) "kick" $ fix ((# att 1) . (# rel 2)) "kick"
$ "[jazz,bd,kick:5]*4" # gain 1 $ "[jazz,bd,kick:5]*4"
# gain 1.2
d2 $ g d2 $ g
$ note "~ 0 . <~ <[~ -2]!3 ~>> 0" $ note "~ 0 . <~ <[~ -2]!3 ~>> 0"
# "snare:4" # lpf 2000 # "snare:4" # lpf 2000
......
live/collab/raph/dub_a_trois.tidal 0 → 100644
do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[cpu,jazz]"
# lpf 5000
d2 $ gF1 $ gM1
$ "~ s ~ s*2" # "snare:44"
d3 $ gF1 $ gM1
$ "drum:2*[16 <16 [16 8] 8 [16 32]>]"
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*8")
-- $ superimpose (ma) . (# cut 41))
$ note ("<c!4 ef ef g g> <c!4 ef ef g g>@3 . ~!7 <~ <b3 d3>>" - 1)
# "bass3:2"
# cut 4
# crushbus 41 (range 16 2.5 "^53")
d5 $ gF3 $ gM3
$ (|+| note (arp "up" "~ 0 ~ 0" + (slow 2 "<g4 as4 c4 <d4 ds4>>") + 6))
$ slice 16 ("0")
$ "rootsGuitar:7"
# lpf 2000
# room 0.4 # dry 1.2
# cut 5
d8 $ gF1 $ gMute
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45") . (|* gain 0.8))
$ midiOn "^92" (ply "<2!3 4>")
$ loopAt 4
$ chop 16
$ "<trance_loops:0!3 trance_loops:4>"
-- # n "<0!3 4>"
# cut 8
once $ "rootsGuitar:7"
do
-- resetCycles
-- once $ note "a3" # "bassWarsaw" # pan 0.35 # cut 6 # gain 0.4 # room 0.8 -- IntroBass Base
once
$ (0.125 ~>) -- Bien calé!
-- $ mask "<f!16 t!48>" -- Intro/64
$ whenmod 4 3 (slow "<2 4>") -- Break-ish
$ mask "<t(1,4)!4 t(2,4)!4 t!8 t(<4!3 3>,4,<0!3 1>)!16>" -- Dégradé
$ chop 4
$ slice 4 "<0!3 1>"
$ loopAt 4
$ "rootsGuitar:7"
# room (slow 32 $ range 0.2 0.65 saw)
# dry 1
# sz 0.9
# pan (0.75 + 0.25 * (slow 8 perlin))
# gain (0.8 - 0.1 * perlin + 0.2 * (slow 16 $ saw))
# cut 5
live/collab/raph/jeudrill.tidal 0 → 100644
resetCycles
do
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (140/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
$ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOn "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ "[kick:5,clubkick]"
# room 0.2 # dry 1.1
# cut 1
# gain 1.5
d2 $ gF1 $ gM1
$ someCyclesBy "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>")
$ someCyclesBy "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
$ "[snare:24,snare:51]"
# gain "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>"
d3 $ gF1 $ gM1
-- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
$ "h(3,8) h(3,8)" # pan "0.2 0.8"
# drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^32")
d9 -- Bogdan the Grime sample provider
$ whenmod 16 12 ( -- I'm from Cardiff!
(# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
)
$ whenmod 16 8 ((# begin 0.66) . (# end 1)) -- Pints <3
$ end "<~ <0.42 <0.66 1>>>"
# "bogdan_grime:3"
-- # n 0 # begin 0 # end 1 # cut 9 -- FIXME DEBUG
# delay "<0 <0.7 0>>"
# delayt "h"
# delayfb 0
# speed 0.92
-- # room 0.4
# gain 1.2
d8 $ gF1 $ gM1 -- Come on breaks!
$ chop 8
$ midiOn "^92" (ply 4)
$ midiOn "^36" (loopAt 2 . (# n "<61>")) --
$ midiOn "^56" ((# n "19")) -- Pure COMEON!
-- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ midiOff "^60" (mask "t(4,8)")
$ loopAt 2
$ "jungle_breaks:26"
# cut 8
# gain 0.9
d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
$ slow 2 $ note (
-- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>"
"<<fs <[fs@15 e] [fs@14 cs e]>> b4>"
-- "c g"
- 12
+ 2
)
# "giorgio_syn:1"
-- # "bassWarsaw"
# cut 4
# pan 0.3
# room 0.4
# octersubsub 0
# crushbus 41 (range 16 3.5 "^53")
# octersubsubbus 42 (range 0 2 "^33")
# gain 0.7
d5 $ gM3 $ gF3
$ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
$ juxBy 0.4 rev
$ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>")
# "marimba1"
# att (range 0.8 0.2 "^34")
# rel 1
# squizbus 51 (range 0 2.5 "^54")
-- # delay 0 # delayfb 0.8 # delayt 0.25
# pan 0.9
# gain 3
# room 0.3
d10 $ gF2 -- Menace
$ note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>"
# "90s_synatm:10"
# room 0.3 # sz 0.8
# gain 1
# att 0.10
# rel 10
# legato 2
# cut 9
d7 $ gM2 $ gF2
-- $ ply 2
$ midiOn "^59" (# speed "-0.25")
$ midiOn "^91" (struct "t*<8!3 [8 4]>")
$ someCyclesBy "^19" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>")
$ chop 16
$ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6
-- # octersubsubbus 73 (range 0 8 "^19")
-- # octersubbus 72 (range 0 4 "^35")
-- # octerbus 71 (range 0 1.7 "^55")
# crushbus 71 (range 16 1.7 "^55")
# panbus 72 (range 0.2 0.8 (fast "<2!4 4!4>" sine))
once $ "bogdan_grime:1" # cut 9
90s_matrix:0
d8 $ "jungle_breaks"
live/collab/raph/nouveau_punk.tidal 0 → 100644
-- Nouvelle vague; NOUVEAU PUNK
do
setcps (155/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "t t t*<1!3 2> <t t*2 t t*4>")
$ midiOff "^42" (<| "t . ~ t ~ ~")
$ "[rampleA0:1,jazz]"
# gain 1.6
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ s ~ <s s*2 s [~ s]>")
$ midiOff "^43" (<| "~ s ~ s*<1!4 2 2 4 8>")
$ "snare:32"
# gain 1.1
d3 $ gF1 $ gM1
$ midiOn "^76" (ply 2)
$ "dr*<8!3 16>"
# "h2ogmhh" # cut 3
# gain 0.85
d8 $ gF1 $ gM1 $ chop 16 -- Breaks-in-a-box' (patent pending)
$ loopAt 1
$ midiOn "^92" (# "breaks165") -- BOUTON NASSIM <3
-- $ midiOn ("^36" - "^56" - "^89") (loopAt 2 . (# n 45))
$ midiOn ("^56" - "^92") (loopAt 4 . (# n 44))
$ "jungle_breaks:79" -- Arguably not very drum-n-bass
d4 $ gF2 $ gMute3 -- Ligne directrice: P-U-N-K
$ midiOn "^89" (ply 2)
$ midiOn "^57" (chop 2)
$ chop 4
$ "punk:0/4"
# cut 4
# gain 0.9
# legato (range 0.42 1 "^33")
# crushbus 41 (range 16 1.5 "^53")
# room 0.2 # dry 1.9 # sz 0.6
d5 $ gF2 $ gMute3
$ midiOn "^90" (ply "2 <1 4>")
$ midiOn "^58" (
chop "<4 4 8 16>"
. (# legato 0.5) . (# room 0.3) . (# sz 0.7))
$ note "<e c d b4>"
# "90s_synatm:9"
# crushbus 52 (range 16 3.5 "^54")
# octersubbus 51 (range 0 4 "^54")
# octerbus 53 (range 0 1 "^34")
# cut 5
# pan 0.7
d9 $ gF3 $ gMute3 -- Violoncelle Manouche punko-magique
-- $ chop "<4 4 8 16>"
$ struct "t(<3!3 5>,8,<0!7 1>)"
$ note (
"<e g a <b4 b4>>" + (arp "up" "[0,<7 7 9 7>,12]")
)
# "cpluck:2"
# cut 9
# legato 0.5
# pan 0.2
d11 $ gF3 $ gMute3 -- Anges melodiques
-- $ struct "t([5 <3!3 5>],8)"
$ note "<e <a a e6 e6> <g c6 a6 c6> b5>"
# "moogBass"
# att 0.1
# rel 1
# gain 1.2
# room 0.7
d10 $ gM3 -- Decoration/riser
$ fix (
(loopAt 8) . gMute . gMute2
. mask "<f!8 t!8>"
. (# gain 0.9)
. (# speed 0.125)
. (# cut 102)
) "risers" -- Riser occasionnel
-- $ fix (mask "<f!3 t f!4 f!3 t f!3 t t!3 f t!2 f f t f!3 t!4>"
-- . (# cut 101)
-- ) "suns_voice" -- Could add sample
$ stack ["risers:19/2"]
# room 0.2
-- e c d b
once $ "cbow"
live/collab/raph/permanence.tidal
...@@ -8,10 +8,10 @@ let gM1 = gMask . gMute ...@@ -8,10 +8,10 @@ let gM1 = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ superimpose ((|* gain (1.3 * "^30")) . (# "hardkick:2"))
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>") $ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "kick:5" $ "[techno:0,808bd:2,909,kick:4]"
-- # lpf 200 # lpf 1200
# gain 1
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
$ midiOn "^75" (ply 4) $ midiOn "^75" (ply 4)
$ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>") $ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
...@@ -24,8 +24,9 @@ d2 $ gF1 $ gM1 ...@@ -24,8 +24,9 @@ d2 $ gF1 $ gM1
# pan 0.25 # pan 0.25
-- # lpf 3000 -- # lpf 3000
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ midiOn "^76" (ply 2)
$ sometimesBy "0 <0.5!3 2>" (mask "t(<12!3 2>,16)") $ sometimesBy "0 <0.5!3 2>" (mask "t(<12!3 2>,16)")
$ midiOff "^44" ((mask "t(<8!3 [8!3 4]>,16,2)")) $ midiOff ("^44"+"^76") ((mask "t(<8!3 [8!3 4]>,16,2)"))
$ "hh:8*16" $ "hh:8*16"
|* gain "1 1 0.95 1 0.96 1 0.975 1.1" |* gain "1 1 0.95 1 0.96 1 0.975 1.1"
# gain 1.8 # gain 1.8
...@@ -41,7 +42,8 @@ d4 $ gF2 ...@@ -41,7 +42,8 @@ d4 $ gF2
# octersubbus 42 (range 0 1.5 "^17") # octersubbus 42 (range 0 1.5 "^17")
# squizbus 42 (range 0 1.5 "^33") # squizbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
d5 $ gF3 $ gM3 # gain 1
d5 $ gF3 $ gMute3
$ midiOff "^58" (slice 4 "<0 0 0 0 1 1 1 <1 2>>*<4!7 8>") $ midiOff "^58" (slice 4 "<0 0 0 0 1 1 1 <1 2>>*<4!7 8>")
$ midiOn "^58" ( $ midiOn "^58" (
slice 4 "<0 1 2 3> <0 1 0 3>*<1 2 1 4>" . slice 4 "<0 1 2 3> <0 1 0 3>*<1 2 1 4>" .
...@@ -58,14 +60,15 @@ d5 $ gF3 $ gM3 ...@@ -58,14 +60,15 @@ d5 $ gF3 $ gM3
# pan 0.66 # pan 0.66
d7 $ gM3 $ gF3 d7 $ gM3 $ gF3
$ n ("<0 0 0 ~>" + "<41!10 42 42>") # "fsynth" $ n ("<0 0 0 ~>" + "<41!10 42 42>") # "fsynth"
-- # crushbus 71 (range 16 2.5 "^55") # crushbus 72 (range 16 2.05 "^35")
# octersubbus 71 (range 0 2.5 "^55") # octersubbus 71 (range 0 3 "^55")
# octersubsubbus 73 (range 0 3 "^55")
# cut 7 # cut 7
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ midiOn "^20" (loopAt 4) $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ chop 16
$ loopAt 2 $ loopAt 2
$ chop 8 $ midiOn "^92" (ply "<2!3 [4!3 2]>")
$ midiOn "^92" (ply "<2!3 [4!3 8]>")
$ midiOn "^36" (# "jungle_breaks:55") $ midiOn "^36" (# "jungle_breaks:55")
$ midiOn "^56" (# "jungle_breaks:45") $ midiOn "^56" (# "jungle_breaks:45")
$ "jungle_breaks:1" $ "jungle_breaks:1"
......
live/collab/raph/ragga_la_hierarchie.tidal
...@@ -42,7 +42,7 @@ d4 $ gF2 -- Meth == Crash ...@@ -42,7 +42,7 @@ d4 $ gF2 -- Meth == Crash
# room 0.2 # sz 0.3 # dry 1.1 # room 0.2 # sz 0.3 # dry 1.1
# midiG' "^83" 0 1.2 # midiG' "^83" 0 1.2
d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot
$ midiOn "^57" (id) $ midiOn "^57" (id) show
$ midiOff "^57" (slice 8 "0 0 <~!8 0!8> 0*<1!8 2!8>" ) $ midiOff "^57" (slice 8 "0 0 <~!8 0!8> 0*<1!8 2!8>" )
$ loopAt 16 $ loopAt 16
$ chop 8 $ chop 8
......
live/collab/stevie/aime_la_jungle.tidal 0 → 100644
once $ "nujazz_beats120"
-- It's a nuday
-- It's a new sample
resetCycles
do
setcps(140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k(3,8) k [k k*2]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "[jazz,kick:5]"
d2 $ gF1 $ gM1 $ "~ ~ ~ <~ s> . s" # "snare:4"
d3 $ gF1 $ gM1 $ "d(<3!12 2!4>,8) d(<3!3 5>,8)" # "ho" # gain 0.8 # att 0.1 # rel 2
d4 $ gF2 $ gM3 $ note "<b2 d3 cs3 fs3>" # "bassWarsaw"
# crushbus 41 (range 16 3.6 "^53")
d8 $ gF1 $ gM1 -- JazzyBelle JazzyBreak
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
-- $ slice 4 "0 1*<1 2 4> 2? 3*<1!3 2>"
$ chop 16
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:51"))
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:44"))
$ loopAt 1
$ "jungle_breaks:36"
-- $ n "<0!4 1!3 0 2!4 3!3 <2 3>>"
-- # "nujazz_beats120"
# pan 0.26
# gain 1.1
# octersub 0
# octersubsub 0
# cut 8
live/collab/val/soir_noir.tidal 0 → 100644
resetCycles
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (120/60/4)
d1 $ gF1 $ gMute2
$ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOn "^42" (<| "k k <k!3 [k*2 ~]> k")
$ "kick:5"
-- # room 0.2 # dry 1.1
-- # gain "<1 0.8>"
-- # cut 1
d2 $ gF1 $ gM1
$ "~ <rampleO10:2!3 cp>"
-- $ someCyclesBy "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>")
-- $ someCyclesBy "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
-- $ "[snare:24,snare:51]"
-- # gain "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>"
-- d3 $ gF1 $ gM1 $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
-- # drumFrom "rolandtr909" "hh" # cut 3 # gain 0.6 # legato 0.25
d3
$ midiOn "^44" (stut 4 "0.8" "e")
$ n ("~ 1 ~ 2 ~ 2 ~ <1!3 2>") # "rampleS24" # cut 3
d4 $ gF2 $ gMute2 $ note (
"b4(<3 5 3 [3 5]>,8) <a5 <ef5 a4>>(<1!3 3>,8,<0 1>)"
- 24
-- - 1
)
# "bassWarsaw"
# rel 0.4
-- # octersubbus 41 (range 0 2 "^53")
-- # crushbus 42 (range 16 2 "^33")
# att 0.2
d4 $ gF2 $ gM1 -- BASSE SIMPLE
$ note "~ b ~ b ~ b ~ [c b]"
# octave 4
# n ("<1!4 2!4>")
# "rampleU4"
-- # crushbus 42 (range 16 2 "^33")
# cut 4
d7 $ gF2
$ midiOn "^89" (ply "<1 2> <2!3 4 4!3 8>")
$ slice 8 ("[0 1 2 3]*2" + "<0!4 3!4>")
-- $ loopAt 8
$ n "<3!3 4>"
# octave "<4 [4 4 <4 [5|4]> 4] 4 <4 [4|3]>>"
# "rampleU8"
# cut 7
d5 -- ARPEGIATEUR
-- $ mask "t(8,16)"
$ arp "<up down updown downup>"
$ fast (4/3)
$ note (
"[c3 b3]" + "c'min'4"
+ 4
)
# n ("<0 1 2>")
# "rampleS53"
-- # legato 0.25
-- # att 0.12
# rel (range 0.19 0.02 (perlin))
# pan 0.4
# gain 1.2
-- d9 $ mask "<f!3 t>"
-- -- $ (0.1 ~>)
-- $ "bogdan_grime:3"
-- # end "<0.42!3 0.66>"
-- # delay "<0!3 0.7>"
-- # delayt "h"
-- # delayfb 0
-- # speed 0.85
-- # room 0.4
-- # gain 1.2
d8 $ gF1 $ gM1 -- Come on breaks!
$ chop 8
$ midiOn "^56" (loopAt (2/3) . (# n "<74>"))
$ midiOn "^92" (ply 4)
$ midiOn "^36" (loopAt (2/3) . (# n "19")) -- Pure COMEON!
-- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ midiOff "^60" (mask "t(4,8)")
$ loopAt 2
$ "jungle_breaks:26"
# cut 8
# gain 0.8
-- d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
-- $ note (
-- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>"
-- - 12)
-- -- # "90s_matrix:0"
-- # "bassWarsaw"
-- # cut 4
-- # pan 0.3
-- # room 0.4
-- # octersubsub 0
-- # crushbus 41 (range 16 3.5 "^53")
-- # octersubsubbus 42 (range 0 2 "^33")
-- # gain 0.8
-- d5 $ gM3 $ gF3
-- $ juxBy 0.4 rev
-- $ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>")
-- # "marimba1"
-- # att 0.8
-- # rel 1
-- # pan 0.9
-- # gain 3
-- # room 0.3
d10 $ gF2 -- Menace
$ note "<b3 ~ ~ [~!7 c4]>"
# "90s_synatm:10"
# room 0.3 # sz 0.8
# gain 0.65
# att 0.10
# rel 10
# legato 2
# cut 9
-- d7 $ gM2 $ gF2
-- $ ply 2
-- $ midiOn "^91" (struct "t*<8!3 [8 4]>")
-- $ someCyclesBy "^19" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>")
-- $ chop 16
-- $ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6
-- -- # octersubsubbus 73 (range 0 8 "^19")
-- -- # octersubbus 72 (range 0 4 "^35")
-- -- # octerbus 71 (range 0 1.7 "^55")
-- # crushbus 71 (range 16 1.7 "^55")
-- # panbus 72 (range 0.2 0.8 (fast "<2!4 4!4>" sine))
live/fusion/sel_marin.tidal
...@@ -39,6 +39,7 @@ d4 $ gF2 -- Baleine sur la défensive ...@@ -39,6 +39,7 @@ d4 $ gF2 -- Baleine sur la défensive
-- TODO: seconde voix -- TODO: seconde voix
# "[bassWarsaw,supersaw]" # "[bassWarsaw,supersaw]"
# midiG' "^81" 0 0.8 # midiG' "^81" 0 0.8
# octerbus 41 (range 0 0.85 "^53")
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^53")
# room 0.3 # sz 0.4 # dry 1.1 # room 0.3 # sz 0.4 # dry 1.1
# pan 0.4 # pan 0.4
......
live/midi/nova/ambient/ambient_chaos.tidal 0 → 100644
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
let prog1 = "<b3 fs3 a3 e3>"
let prog2 = "<b2 d3 e3 <cf3 a2 cf3 <f3 fs3>>>"
-- DEBUG: Prog avec un copier coller sale
let prog = "<b3 fs3 a3 e3 b3 fs3 a3 e3 b3 fs3 a3 e3 b3 fs3 a3 e3 b2 d3 e3 cf3 b2 d3 e3 a2 b2 d3 e3 cf3 b2 d3 e3 <f3 fs3>>"
let prog = prog2
let prog = prog1
do
setcps(125/60/4)
d12 $ gM3 $ gF3 -- PIANO DE DEBUGGING
$ struct "<t(3,8)!11 t>"
$ note (prog + 5 - 12)
# "FMRhodes1"
# gain 1
# velocity 2
-- # room 0.3 # sz ("0.2 0.4 0.6")
d1 $ gF1 $ gMute2 -- KICK PLEIN
-- $ fix ((# att 0.05) . (# lpf 4500) . (# gain 0.9)) "rampleR1:0"
$ midiOn "^42" (<| "k k k <k!3 <k*2 [k*2 k] [k ~ k] [k*4]>>")
$ midiOff "^42" (<| "k")
$ "[rampleR1:0]"
d2 $ gF1 $ gM1
$ midiOn "^42" (whenmod 64 8 (<| "~ s ~ s"))
$ midiOff "^42" (<| "~ s")
$ "snare:36"
# lpf 4000
d3 $ gF1
$ "~ hh ~ h*<1!4 2!3 1> ~ h ~ h*<1 2 1 [8 4]>"
# "rampleS33:6"
d6 $ gF1 $ gM1-- La neige eternelle
$ struct "~ <~ t(<1 <2 3>>,8)>"
$ slow 16
$ slice 16 (run 16)
$ "drums_nes:13" # cut 3
# pan (slow 16 $ range 0.9 0.3 saw)
d4 $ gF2 $ gM3 -- La gravite, inevitable
$ note (prog
+ "[0 ~ <2 <-1 2>> ~ 0] <3!3 5>(1,2,<0!4 1!4>)"
+ 0
)
# "bassWarsaw"
# octersubbus 41 (range 0 1.4 "^53")
# cut 4
# pan 0.3
d5 $ gF3 $ gM3 -- La lumiere, partout
$ midiOn "^58" (chop 8)
$ midiOff "^58" (chop 2)
$ midiOn "^90" (ply "2 <2 4>")
$ note prog
# "90s_glassatm:0"
# cut 5
# pan 0.8
# octerbus 51 (range 0.01 1.99 "^54")
d7 $ gF1 $ gM1 -- Les inevitables trolls
$ fix ((|* gain 0.8) . (|- note 4) . (# "rampleR0:3")) "r0bd1"
$ fix (# "rampleR0:2") "r0bd"
$ fix ((# "90s_megafx") . (# cut 81) . (|* gain 1.1)) "fx"
$ stack ["r0bd@7 <~!0 r0bd1!8>","~ fx:78"]
# gain 0.5
d8 $ gF1 $ gM1
-- $ ply "1 2"
$ midiOn "^56" (# n "4")
$ midiOn "^60" (slice 16 (run "<[8!3 4]!3 <4 [4 <8 16>]>>"))
$ midiOn "^92" (ply 2)
$ chop 16
$ loopAt 2
$ "jungle_breaks:30"
# gain 0.6
once $ note "b4"
# "bassWarsaw"
# cut 1
# lpf 4000
# gain 0.5
# room 0.2 # sz 0.8
live/midi/nova/ambient/contre_visite.tidal
-- Contre Visite
-- Un deuxième regard n'est jamais de trop.
do do
-- TRIGGER INTRO :) -- TRIGGER INTRO :)
-- resetCycles -- resetCycles
...@@ -9,19 +6,22 @@ let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine))) ...@@ -9,19 +6,22 @@ let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01 let gF = 1.01
let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50")) let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let f3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>") let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
setcps (90/60/4) setcps (90/60/4)
d1 $ f1 $ gMute2 d1
$ f1 $ gMute2
-- $ kCrush -- $ kCrush
$ midiOn "^42" (struct "t t t <t!2 [<~ t> <t t?>]>") $ midiOn "^42" (struct "t t t <t!2 [<~ t> <t t?>]>")
$ midiOff "^42" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>") $ midiOff "^42" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>")
-- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>" -- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>"
-- $ "[808bd:6,kick:8]" -- $ "[808bd:6,kick:8]"
$ fix ((# hpf 500) . (|* gain 0.7)) "kick:5"
$ "[jazz,kick:5]" $ "[jazz,kick:5]"
# room 0 -- # room 0
# midiG' "^78" 0 1.3 # gain 1.3
d2 $ f1 $ gMute d2 $ f1 $ gMute
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32 $ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops $ midiOff "^75" maskLoops
...@@ -34,11 +34,16 @@ d2 $ f1 $ gMute ...@@ -34,11 +34,16 @@ d2 $ f1 $ gMute
$ "break:20" $ "break:20"
# pan 0.4 # pan 0.4
# cut 2 # cut 2
# speed (range "-0.25" 2.25 "^51") # speed (range "-0.25" 2.25 "^31")
# midiG' "^79" 0 1.3 -- # midiG' "^79" 0 1.3
d11 $ f1 $ gMute -- Snare <3 chak reverb phantome
$ struct "[~ t]*2"
$ "[snare:34,cp]"
# lpf 2000
-- # midiG' "^14" 0 1.8
d3 $ f1 $ gMute -- Sidekick, doubtful, yet hardworking hats d3 $ f1 $ gMute -- Sidekick, doubtful, yet hardworking hats
$ midiOn "^76" (ply "[4 <1 2>]*<4!3 8>") $ midiOn "^76" (ply "[4 <1 2>]*<4!3 8>")
$ mask "<t(<1!3 3>,4)!4 t(2,8)!8 [<t!3 [t f]>]!52>" -- Intro / break/32 -- $ mask "<t(<1!3 3>,4)!4 t(2,8)!8 [<t!3 [t f]>]!52>" -- Intro / break/32
$ maskLoops $ maskLoops
$ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s") $ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s")
$ sometimesBy (0.1 * "[0 <0 0.5> 0 <1!3 2>]!4") (# silence) $ sometimesBy (0.1 * "[0 <0 0.5> 0 <1!3 2>]!4") (# silence)
...@@ -47,8 +52,11 @@ d3 $ f1 $ gMute -- Sidekick, doubtful, yet hardworking hats ...@@ -47,8 +52,11 @@ d3 $ f1 $ gMute -- Sidekick, doubtful, yet hardworking hats
# "h2ogmhh" # "h2ogmhh"
# pan 0.6 # pan 0.6
# room 0.2 # room 0.2
# midiG' ("^80" + 0.08 * (slow 2 perlin)) 0 1.3 -- # midiG' ("^80" + 0.08 * (slow 2 perlin)) 0 1.3
d4 $ f2 -- Atmospheric synth: aerial questions # gain (0.8 + 0.08 * (slow 2 perlin))
d4 $ f3 -- Atmospheric synth: aerial questions
$ midiOn "^89" (|+ note "<2 2 4 <4 12>>")
$ midiOn "^57" (chop "<[16@3 32] [32@3 64]>")
$ "90s_synatm:8/4" $ "90s_synatm:8/4"
# cut 4 # cut 4
# room 0.8 # room 0.8
...@@ -57,7 +65,7 @@ d4 $ f2 -- Atmospheric synth: aerial questions ...@@ -57,7 +65,7 @@ d4 $ f2 -- Atmospheric synth: aerial questions
# pan 0.45 # pan 0.45
# crushbus 42 (range 16 3.4 "^53") # crushbus 42 (range 16 3.4 "^53")
# legato 2 # legato 2
# midiG' "^81" 0 1.2 -- # midiG' "^81" 0 1.5
d5 $ f2 -- Synth: ELECTRONIC ANSWERS d5 $ f2 -- Synth: ELECTRONIC ANSWERS
-- $ mask "<f!32 t!96>" -- Intro -- $ mask "<f!32 t!96>" -- Intro
$ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>")) $ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
...@@ -69,8 +77,9 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS ...@@ -69,8 +77,9 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS
# dry 1 # dry 1
# panbus 51 (range 0.8 0.65 saw) # panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 16 2.85 "^54") # crushbus 52 (range 16 2.85 "^54")
# octersubbus 53 (range 0 1.85 "^34")
# midiG' "^82" 0 2 # midiG' "^82" 0 2
d6 $ f2 -- High lead: Winds of truth d7 $ f3 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3 $ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>") $ whenmod 8 6 (swing "<4 2>")
$ whenmod 32 8 (superimpose ( -- Echos of doubts $ whenmod 32 8 (superimpose ( -- Echos of doubts
...@@ -83,19 +92,12 @@ d6 $ f2 -- High lead: Winds of truth ...@@ -83,19 +92,12 @@ d6 $ f2 -- High lead: Winds of truth
)) ))
$ note (scale "aeolian" "<0!3 [0@6 <4 -1>@2]> 2") $ note (scale "aeolian" "<0!3 [0@6 <4 -1>@2]> 2")
# "90s_synatm:18" # "90s_synatm:18"
# pan 0.9 -- # room 0.4 # sz 0.8
# room 0.4 # sz 0.8
# crushbus 62 (range 16 2.25 "^55")
# midiG' "^83" 0 1.2
# dry 0.1 # dry 0.1
# pan "^19" # cut 7
# cut 6 # crushbus 62 (range 16 2.25 "^55")
d7 $ f1 -- Snare <3 chak reverb phantome # panbus 63 (range 0.05 0.95 "^19")
$ struct "[~ t]*2" d8 $ f1 $ gMute2 -- Breaks divins
$ "[snare:34,cp]"
# lpf 2000
# midiG' "^14" 0 1.8
d8 $ f1 -- Breaks divins
$ midiOn "^92" (off "e" id) $ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]") $ midiOn "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81)) $ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
...@@ -152,4 +154,4 @@ d10 $ f1 -- RANDOM FOREST NOISES ...@@ -152,4 +154,4 @@ d10 $ f1 -- RANDOM FOREST NOISES
once $ "fx_gameboy:3" # gain 0.8 # cut 10 once $ "fx_gameboy:3" # gain 0.8 # cut 10
once $ "bassWarsaw" # freq 82 # gain 1.2 # cut 3 once $ "bassWarsaw" # freq 82 # gain 1.2 # cut 3
live/midi/nova/ambient/empreinte_du_numerique.tidal
...@@ -7,46 +7,37 @@ ...@@ -7,46 +7,37 @@
-- (__((__((___()()()------------------------' |0111| -- (__((__((___()()()------------------------' |0111|
-- EMPREINTE DU NUM3R1QU3 -- EMPREINTE DU NUM3R1QU3
do do
let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw))) -- let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw)))
let gHPF = ((# djfbus 2 (slow 8 $ range 0.5 0.85 saw))) -- let gHPF = ((# djfbus 2 (slow 8 $ range 0.5 0.85 saw)))
let gPont2 = (someCyclesBy "<0!32 1!16 0!16>" gHPF) -- let gPont2 = (someCyclesBy "<0!32 1!16 0!16>" gHPF)
let gPont1 = (whenmod 32 24 gLPF) -- let gPont1 = (whenmod 32 24 gLPF)
let g = (# djfbus 1 (range 0.05 0.95 "^49"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (110/60/4) setcps (110/60/4)
d1 $ g $ gMute -- Kick d1 $ gF1 $ gM2 $ gMute -- Kick
$ midiOn "^42" (<| "k k k <k k*2>") $ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~") $ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "[jazz,808bd:6]" $ "[jazz,808bd:6]"
# midiG' "^78" 0 1.5 # gain 1.5
d2 $ g $ gM -- d2 $ gF1 $ gM1 --
$ midiOn "^43" (fast "<1!3 2 2 2 4 <8 [8 4]>>") $ midiOn "^43" (fast "<1!3 2 2 2 4 <8 [8 4]>>")
$ "~ s" # "[sn:40,snare:20]" $ "~ s" # "[db:12]"
# note "<-2!3 -4>" -- # note "<-2!3 -4>"
# midiG' "^79" 0 1.8 # gain 1.4
d3 $ g $ gMute d3 $ gF1 $ gMute
$ midiOn "^76" (fast 2) $ midiOn "^76" (fast 2)
$ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>") $ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>")
$ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0" $ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0"
# room 0.3 # room 0.3
# dry 0.95 # dry 0.95
# midiG' "^80" 0 (1.6 * "1.2 1!6 <1 1 1.1 <1.2 1>>") |* gain "1.2 1!6 <1 1 1.1 <1.2 1>>"
d6 -- Break bonus banane d4 $ gF2 $ gM3 -- BASSLINE BoomRang!
$ g
$ midiOn "^92" (ply "2!3 1 2!3 <2 4>")
$ midiOn "^60" ( -- Aerial mask
mask "t <f t> <f f t f> <t t f t> f <f t> <f!3 t> t"
)
-- $ sometimesBy ("0 1!7" * "^56") (iter "<4!3 8>")
$ chop 16
$ loopAt 2
$ "break:3"
# cut 6
# midiG' "^84" 0 1.6
d4 $ g $ gPont2 -- BASSLINE BoomRang!
$ midiOn "^57" (# n "50") $ midiOn "^57" (# n "50")
$ midiOn "^89" (ply "2 4" . chop "2 <2 4>") $ midiOn "^89" (ply "2 4" . chop "2 <2 4>")
-- $ whenmod 64 32 (# crushbus 41 (range 16 2.5 (slow 32 saw))) -- $ whenmod 64 32 (# crushbus 41 (range 16 2.5 (slow 32 saw)))
...@@ -61,9 +52,19 @@ d4 $ g $ gPont2 -- BASSLINE BoomRang! ...@@ -61,9 +52,19 @@ d4 $ g $ gPont2 -- BASSLINE BoomRang!
# pan 0.3 # pan 0.3
# crushbus 53 (range 10 1.61 "^53") # crushbus 53 (range 10 1.61 "^53")
# midiG' "^81" 0 1.4 # midiG' "^81" 0 1.4
d7 $ g -- Back solar mandoline d8 $ gF1 $ gM1 -- Break bonus banane
$ midiOn "^92" (ply "2!3 1 2!3 <2 4>")
$ midiOn "^60" ( -- Aerial mask
mask "t <f t> <f f t f> <t t f t> f <f t> <f!3 t> t"
)
-- $ sometimesBy ("0 1!7" * "^56") (iter "<4!3 8>")
$ chop 16
$ loopAt 2
$ "break:3"
# cut 6
d7 $ gF3 $ gM3 -- Back solar mandoline
$ midiOn "^59" (off "s" (|+ note "<7 9 5 <7 12>>")) $ midiOn "^59" (off "s" (|+ note "<7 9 5 <7 12>>"))
$ midiOn "^91" (off "e" (|+ note 12)) -- $ midiOn "^91" (off "e" (|+ note 12))
$ superimpose (|+| note "<[0 12 0]!3 [0 12 0 12]>") $ superimpose (|+| note "<[0 12 0]!3 [0 12 0 12]>")
$ note "<d <d a> <gf> c>" $ note "<d <d a> <gf> c>"
# "supermandolin" # "supermandolin"
...@@ -71,8 +72,7 @@ d7 $ g -- Back solar mandoline ...@@ -71,8 +72,7 @@ d7 $ g -- Back solar mandoline
# room (range 0 0.3 "^55") # room (range 0 0.3 "^55")
# crushbus 71 (range 10 3.61 "^55") # crushbus 71 (range 10 3.61 "^55")
# midiG' "^83" 0 1.5 # midiG' "^83" 0 1.5
d6 -- RHODES FOLIE <33 d5 $ gF2 $ gM3 -- RHODES FOLIE <33
$ g
$ midiOn "^58" (off "e" id) $ midiOn "^58" (off "e" id)
$ midiOn "^90" (jux rev) $ midiOn "^90" (jux rev)
$ 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)"
...@@ -83,4 +83,3 @@ d6 -- RHODES FOLIE <33 ...@@ -83,4 +83,3 @@ d6 -- RHODES FOLIE <33
# pan 0.7 # 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
live/midi/nova/ambient/froid_de_minuit.tidal 0 → 100644
resetCycles
do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2 -- Kick solide 4/4 disponible
-- $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ "[kick:4]"
d2 $ gF1 $ gM1 -- Snare fantomatique
$ midiOn "^43" (<| "~ s ~ s")
$ midiOff "^43" (<| "~ s")
$ "[cp:1,rampleM1:10]"
# room 0.1 # sz 0.5 # dry 0.9
d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2)
$ midiOn "^76" (fast 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
-- # "[h2ogmsn:14]"
# "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
# gain (0.7 * (range 0.8 1.25 (fast 2 perlin)))
# pan 0.3
d6 $ gF1 $ gM1 $ "hh(3,8) hh(<3!6 5 <5 [5 8]>>,8)"
# "rampleS57:1" # "<hh:2 [hh:2 hh:3*<1!3 4>]>" # cut 6
# gain 0.9 # cut 3
d4 $ gM3 $ gF2 -- Major Ambient Bassline au rapport
$ midiOn "^89" (ply "<8!8 [16 <8 16>]!8> <8 16>")
$ midiOn "^57" (juxBy 0.2 (
("h" ~>)
. swing 2
-- . rarely (off "e" id)
. arp "<up!2 <updown!2 downup updown> up>"
. (|+ note "[0,12]") . (# cut 4) . (|+ pan 0.5)
. (# "FMRhodes1")
))
$ superimpose ( -- Little Angels
(0.5 ~>)
. (|+ note "[7,-12]")
. (|* gain 0.8)
. (# rel 2))
$ note ("<b3 d3 e3 g3>/2")
# "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53")
# squizbus 42 (range 0 1.5 "^33")
# octerbus 43 (range 0 1 "^17")
# octersubbus 44 (range 0 1 "^17")
# att 0.25 # rel 4
# pan 0.2 # room 0
d5 $ gF3 $ gM3 -- Guitare contetemps FIXME Pas convaincante
$ n "~ <0 0 4 [3(3,8),4([1 3],8,2)] 8 8 10 [14 4 14(3,8)]>"
# crushbus 51 (range 16 5 "^54")
# room 0.4 # att 0.4 # rel 0.252 # legato 0.4
# "nujazz_guitar"
d9 $ gF3 $ gM3 $ "wind:0" -- Vent de minuit originel
# speed (slow 16 $ range 0.12 0.34 perlin)
# roombus 91 (fast 4 $ range 0 0.4 sine)
d7 $ gM1 $ gF1 $ loopAt 2 -- Break de secours
$ midiOn "^91" (ply 8)
$ whenmod 4 2 (ply "1 <1 2>" . rev)
$ slice 4 (run 4)
$ "jungle_breaks:48" # gain 0.8
d8 $ gM1 $ gF1 -- Break horloger
$ midiOn "^92" (ply "2!3 <2 4>")
$ someCyclesBy (1-"^36") (mask "t(<3 3 5 [3 8]>,8)")
$ midiOff "^60" (mask "t(<1 <0!3 1>>,4)")
$ chop 8
$ "jungle_breaks:2"
# cut 8
# speed (range 0.125 4 "^56")
d10 -- Choir of moog major voices
$ ply "<1!8 2!8 4!16>"
$ arp "pinkydown"
$ "moogBass"
# note "<b3'maj'2 d3'maj'2 e3'maj'2 g3'maj'2>/2"
# cut 5
# room 0.2
# gain 0.6
# pan (slow 32 $ range 0.9 0.1 saw)
d11 -- CBOW friendo
$ whenmod 32 0 ( -- Triste souvenir du soleil
(|- note 12) . sometimesBy "0 1!3" rev)
-- $ ply "<1!8 2!8 4!16>"
$ rolledBy "<1.33!3 1.4>"
$ "cbow:3"
# note ("<b'maj'8 d'maj'8 e'maj'8 g3'maj'16>/2" - 12)
# cut 5
# room 0.2
# gain 0.6
# pan (slow 32 $ range 0.9 0.1 saw)
live/midi/nova/ambient/prestance.tidal
...@@ -15,11 +15,11 @@ d1 $ gF1 $ gM ...@@ -15,11 +15,11 @@ d1 $ gF1 $ gM
$ midiOn "^42" (<| "k k k k*<1!7 2>") $ midiOn "^42" (<| "k k k k*<1!7 2>")
$ midiOff "^42" (<| "k . k(<0!3 1 0 1 3 3>,8,<0!3 6>)") $ midiOff "^42" (<| "k . k(<0!3 1 0 1 3 3>,8,<0!3 6>)")
$ "[jazz,808bd:3]" $ "[jazz,808bd:3]"
# midiG' "^78" 0 1.4 -- # midiG' "^78" 0 1.4
d2 $ gF1 d2 $ gF1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>") $ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ <~ c>") $ midiOff "^43" (<| "~ <~ c>")
$ "cp" $ "snare:40"
# note "-4" # note "-4"
# midiG' "^79" 0 1.8 # midiG' "^79" 0 1.8
d3 $ gF1 $ gM d3 $ gF1 $ gM
......
live/midi/nova/ambient/snow_white.tidal 0 → 100644
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF $ gMute
$ midiOn "^42" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^42" (<| "k . ~ k ~ <~!7 k>")
$ "[techno:0,808bd:2,909,kick:4]"
# gain 0.9
d4 $ gF3 $ gMask -- La pluie d'étoiles
$ slow 4
$ slice 16 (run 4 + "<0 3 7 11>")
$ loopAt 16
$ "synth_nes:0"
# pan 0.2
# cut 4
d5 $ gF3 $ gMask -- La pluie d'étoiles
$ slow 4
$ slice 16 (run 4 + "<0 3 7 11>")
$ loopAt 8
$ "synth_nes:0"
# pan 0.8
# cut 5
# hpfbus 51 (range 0 8000 "^34")
# midiG' "^82" 0 0.9
d8 $ gF $ gMask
$ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
-- $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<1 [2 <2 4>]>")
$ midiOn "^60" (ply 2)
$ chop 8
$ loopAt 1
$ "breaks165"
# cut 4
# pan 0.7
# midiG' "^84" 0 1.2
d2 $ gF $ gM -- Snare FOU
$ superimpose (# lpf 5300) -- Double bass
$ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>")
$ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^43"- "^75") (<| "~ s")
$ "[sn:25,gretsch:4]"
# note (range "-4" 4 "^51")
# gain 0.7
d3 $ gF $ gM
$ midiOn "^44" (ply "1 2 1 <2 <1 4>>")
$ midiOn "^76" (ply 2)
$ ply "1 . 1 <<2 1> [<4 [4 2]> 1]>"
$ "dr:2*8"
# gain 0.8
-- # midiG' "^80" 0 1.2
# pan (0.3 - 0.2 * perlin)
d4 $ gF2 $ gMask
$ midiOff "^57" (midiOn "^89" (ply "<4!3 [4 8]>"))
-- $ midiOn "^57" (midiOn "^89" (slice 4 (run 8)) . chop 8)
-- $ midiOn ("^89" - "^57") (fast "2" . slice 16 ("[0 1 2 3]*<4 8>" + (slow 2 "<0 4 8 12>")))
-- $ midiOff "^57" (midiOn 1 (slice 16 (("[0 1 2 3]*<2!8 4!8>" + "<0 12 0 8>"))))
-- $ midiOff "^89" (chop 16)
$ chop 4
$ loopAt 4
$ midiOn "^57" (# "bass_gameboy:5") -- Sad truth pattern
$ "bass_gameboy"
# cut 4
# gain 0.9
d6 $ gF3 $ gMask -- La corne de l'espoir
$ whenmod 8 6 (juxBy 0.8 (rev . (# cut 61)))
$ slice 8 ("<0 0 1 <[1 1] [2 <~ 2> 3 <~ 3>]>>")
$ loopAt 2
$ "synth_atari:5"
# cut 6
# gain 0.8
# midiG' "^83" 0 0.9
d7
$ superimpose (|+ note "[0,7]")
$ note "<fs3 b4 a4 cs5 fs4 e4 d4 cs5 fs3 b4 a4 cs5 fs4 b5 a5 cs6>"
# "moogBass"
# octer 0
# octerbus 72 (range 0 1 "^35")
# roombus 71 (range 0.3 1.2 "^55") # dry 1.8 # sz 0.7
# gain 0.8
d8 $ gF $ gMask
$ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
-- $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<1 [2 <2 4>]>")
$ midiOn "^60" (ply 2)
$ chop 8
$ loopAt 1
$ "breaks165"
# cut 4
# pan 0.7
# midiG' "^84" 0 1.2
live/midi/nova/beatober/oct_16_haunted_house.tidal
...@@ -2,28 +2,28 @@ do ...@@ -2,28 +2,28 @@ do
-- resetCycles -- resetCycles
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16")) let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute let gM1 = gMask . gMute1
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gM2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4" $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>") $ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~") $ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]" $ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5 -- # midiG' "^78" 0 1.5
d2 d2$ gMute1 $ gF1 -- snare contretemps variable
$ gM1 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp" $ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>") $ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ cp") $ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:24]" $ "[cp,snare:24]"
# pan 0.65 # pan 0.65
# legato 0.22 # legato 0.22
...@@ -36,18 +36,19 @@ d3 $ gM1 $ gF1 ...@@ -36,18 +36,19 @@ d3 $ gM1 $ gF1
d4 -- Basse convaincante d4 -- Basse convaincante
$ gM3 $ gF2 $ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw)) $ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
-- $ midiOn "^89" (ply "<[4@5 2 4 2] 1>") $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>") $ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^17") (struct "<t [t t]>") $ someCyclesBy (1 - "^17") (struct "<t [t t]>")
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]") $ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>" $ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
# "bassWarsaw" # "bassWarsaw"
# room 0.32 # sz 0.1 # room 0.2 # sz 0.1
# crushbus 42 (range 16 4 "^53") # crushbus 42 (range 16 4 "^53")
# relbus 43 (range 2 0.02 "^33") # att 0.22 # relbus 43 (range 2 0.02 "^33") # att 0.22
-- # midiG' "^81" 0 1.5 -- # midiG' "^81" 0 1.d
# gain 1.4
# pan 0.4 # pan 0.4
|* gain "1@5 0.95 0.98 0.95" |* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
$ midiOn "^58" ( -- Oiseau de nuit $ midiOn "^58" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>") rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
...@@ -65,16 +66,17 @@ d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux ...@@ -65,16 +66,17 @@ d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
# delayfb 0.25 # delayfb 0.25
# pan 0.7 # pan 0.7
-- # midiG' "^82" 0 1.5 -- # midiG' "^82" 0 1.5
d8 d8 $ gF1 $ gM1
$ gF1
$ midiOn "^92" (ply "1 <2!3 4>") $ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" ((# n "22")) -- Raise COMEON!
$ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ chop 16 $ chop 16
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:45" $ "jungle_breaks:45"
# cut 8 # cut 8
-- # midiG' "^84" 0 1.5 # gain 1.5
d6 $ gF1 -- HAWKS d6 $ gF1 $ gM1 -- HAWKS
-- $ mask "<f!16 t!16>" -- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s <~!3 s>]" $ "~ [s s*2] ~ [s <~!3 s>]"
# "armora:1" # "armora:1"
...@@ -88,7 +90,8 @@ d6 $ gF1 -- HAWKS ...@@ -88,7 +90,8 @@ d6 $ gF1 -- HAWKS
-- # room 0 -- # room 0
-- # midiG' "^31" 0 1.5 -- # midiG' "^31" 0 1.5
d7 d7
$ gM2 $ gF3 -- High carillon! $ gM3 $ gF3 -- High carillon!
$ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^59" ( -- Basse reponse $ midiOn "^59" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45)) superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
) )
...@@ -98,8 +101,10 @@ d7 ...@@ -98,8 +101,10 @@ d7
) )
# "808hc:2" # "808hc:2"
# pan 0.85 # pan 0.85
-- # midiG' "^83" 0 1.5 # octerbus 71 (range 0 0.5 "^55")
# gain 0.8 # octersubbus 72 (range 0 1.4 "^55")
# room 0.2 # dry 1.08 # sz 0.3
# gain 1.4
d9 $ gF3 -- Pads atmospheriques d9 $ gF3 -- Pads atmospheriques
$ off 0.25 ((# pan 0.8) . (# cut 91)) $ off 0.25 ((# pan 0.8) . (# cut 91))
$ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>" $ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>"
...@@ -109,7 +114,7 @@ d9 $ gF3 -- Pads atmospheriques ...@@ -109,7 +114,7 @@ d9 $ gF3 -- Pads atmospheriques
# cut 9 # legato 2 # cut 9 # legato 2
-- # midiG' "^20" 0 1.4 -- # midiG' "^20" 0 1.4
# pan 0.4 # pan 0.4
# gain 1 # gain 1.4
# room 0.4 # room 0.4
d10 d10
$ mask "<f!16 t!16 t!96>" $ mask "<f!16 t!16 t!96>"
......
live/midi/nova/beatober/oct_29_can_i_code_it.tidal
...@@ -11,11 +11,12 @@ let gM = gMask . gMute ...@@ -11,11 +11,12 @@ let gM = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gM2 $ gF1 d1 $ gM2 $ gF1
$ midiOn "^42" (<| "k k k [k*2 <k [~ k]>]") $ midiOn "^42" (fast 2 . (<| "k k k <k [k*2 <k [~ k]>]>"))
$ midiOff "^42" (<| "k . k(<3 [3 <5 4 5 8>]>,8)") $ midiOff "^42" (<| "k . k(<3 [3 <5 4 5 8>]>,8)")
$ "[jazz, kick:5,808bd:2]" $ "[jazz, kick:5,808bd:2]"
# gain 0.8 # gain 0.8
d2 $ gM $ gF1 d2 $ gM $ gF1
$ midiOff "^43" (mask "f t")
$ fix (# lpf 200) "snare:15" $ fix (# lpf 200) "snare:15"
$ "~ s [~!3 <~!3 s ~ s ~ s>] s*<1!7 2>" $ "~ s [~!3 <~!3 s ~ s ~ s>] s*<1!7 2>"
# note "0 0 -2 0" # note "0 0 -2 0"
...@@ -26,9 +27,10 @@ d3 $ gM $ gF1 ...@@ -26,9 +27,10 @@ d3 $ gM $ gF1
$ midiOn "^76" (mask "t(<24 32 32 24>,32)" . ply "1 2 1 2") $ midiOn "^76" (mask "t(<24 32 32 24>,32)" . ply "1 2 1 2")
$ midiOn "^44" (ply 2) $ midiOn "^44" (ply 2)
$ "d*8" $ "d*8"
# note 3 # note "8"
# drumFrom "mpc1000" "sd:4" # drumFrom "mpc1000" "[sd:4,sd:5]"
# pan 0.2 # pan 0.2
# gain 0.9
|* gain (fast 2 $ segment 16 $ range 0.85 1.1 perlin) |* gain (fast 2 $ segment 16 $ range 0.85 1.1 perlin)
d4 $ gMute3 $ gF2 -- Can I? d4 $ gMute3 $ gF2 -- Can I?
$ slow 2 $ slow 2
...@@ -72,7 +74,7 @@ d5 $ gF3 $ gM3 -- BURNING IT ...@@ -72,7 +74,7 @@ d5 $ gF3 $ gM3 -- BURNING IT
d8 $ gM $ gF3 d8 $ gM $ gF3
$ (# pan "0.13@3 0.87") $ (# pan "0.13@3 0.87")
$ midiOn "^92" (ply "2 <2!3 4>") $ midiOn "^92" (ply "2 <2!3 4>")
$ midiOn "^36" (chop 16 . loopAt 0.25 . (|> "jungle_breaks:1")) $ midiOn "^36" (chop 16 . (|* gain 0.85) . loopAt 0.25 . (|> "jungle_breaks:1"))
$ midiOff "^36" (slice 16 ("<0 2 2 0> <1 3 3 1> <2 6> <3 <7 3>>")) $ midiOff "^36" (slice 16 ("<0 2 2 0> <1 3 3 1> <2 6> <3 <7 3>>"))
-- $ slice 16 (run 16) -- $ slice 16 (run 16)
$ loopAt 4 $ loopAt 4
...@@ -81,14 +83,22 @@ d8 $ gM $ gF3 ...@@ -81,14 +83,22 @@ d8 $ gM $ gF3
# rel 2 # rel 2
# cut 8 # cut 8
# orbit 7 # orbit 7
d7 $ gM $ gF1 d7 $ gF2 -- Mono Maniaque
$ loopAt 4 $ midiOn "^91" (stut 4 0.9 0.125)
$ chop 8 $ midiOn "^59" (off 0.5 id)
$ n "<0!4 5!4>!3 <0 4>" $ note (
# "drums_gameboy" -- "[~. a4 [b4 <e5 e4>] ~ ~ ]"
"[~ . d4@2 e4 <a4 <a3 b3>> <~!3 a3> ~ ~ ~ ]"
-4 -- Calage
)
# "fmono:3"
# cut 7 # cut 7
# pan 0.2 # end 0.05
# orbit 6 # orbit 6
# room 0.3 # sz 0.9 # dry 2
# gain 0.65
# pan 0.7
# crushbus 71 (range 14 2.5 "^55")
d9 $ gF3 $ n "<64!3 65>/4" d9 $ gF3 $ n "<64!3 65>/4"
# "90s_megafx:64" # "90s_megafx:64"
# cut 9 # cut 9
......
live/midi/nova/beatober/oct_4.tidal → live/midi/nova/beatober/oct_glitchs_sauvages.tidal
...@@ -9,38 +9,45 @@ let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) ...@@ -9,38 +9,45 @@ let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1 -- KICK SOUTENANT d1 $ gM2 $ gF1 -- KICK SOUTENANT
$ midiOn "^42" (<| "k k k <k!3 [<~ k> k]>") $ midiOn "^42" (<| "k k k <k!3 [<~ k> k]>")
$ fix ((# lpf 4000) . (# drumFrom "rolandtr909" "bd:4")) "909bd" $ fix ((# lpf 4000) . (# drumFrom "rolandtr909" "bd:4")) "909bd"
$ "[jazz,909bd]" $ "[jazz,909bd]"
# midiG' "^78" 0 1.9 d2 $ gM1 $ gF1 -- Snare glitch+perc
d2 $ gF1 $ midiOn "^43" (struct "~ t ~ t*<1!3 2>")
$ midiOff "^43" (struct "~ t")
$ fix (whenmod 4 3 (ply "4 [4 <1 2>]") . (|* gain 0.8) . (# rel 0.1)) "clap" $ fix (whenmod 4 3 (ply "4 [4 <1 2>]") . (|* gain 0.8) . (# rel 0.1)) "clap"
$ fix ((# n 2) . (# pan 0.2) . (# note "-24")) "glitch" $ fix ((# n 2) . (# pan 0.2) . (# note "-24")) "glitch"
$ whenmod 32 0 (superimpose ((# "clap"))) $ "glitch"
$ "~ glitch"
# begin 0.02 # begin 0.02
# end 0.35 # end 0.35
# pan 0.8 # pan 0.8
# midiG' "^79" 0 1.9 d3 $ gM1 $ gF1 -- Hats reguliers mais varies
d3 $ gF1 -- Hats reguliers mais varies
$ midiOn "^44" (ply 2) $ midiOn "^44" (ply 2)
$ midiOn "^76" (struct "t(3,8). t(5,8)") $ midiOn "^76" (struct "t(3,8). t(5,8)")
$ someCyclesBy "<1!8 0!56>" (mask "f . t f") $ someCyclesBy "<1!8 0!56>" (mask "f . t f")
$ "~ h ~ h ~ h*<1!7 2> ~ h" $ "~ h ~ h ~ h*<1!7 2> ~ h"
# drumFrom "rolandtr909" "hh:2" # drumFrom "rolandtr909" "hh:2"
# hpf 5000 # hpf 5000
# midiG' "^80" 0 1.9
|* gain (range 0.85 1 (fast 4 sine + (slow 2 perlin))) |* gain (range 0.85 1 (fast 4 sine + (slow 2 perlin)))
d8 d6 $ gM1 $ gF1
$ gF1
$ "~ rampleS0" $ "~ rampleS0"
# n "<6!6 7 7>" # n "<6!6 7 7>"
# pan 0.8 # pan 0.8
# midiG' "^79" 0 0.9 d8 $ gM1 $ gF1
d4 $ gF2 -- MATRIX BASS $ midiOn "^92" (ply 2)
$ whenmod 4 3 (ply 2)
$ chop 16
$ midiOn "^36" (loopAt 2 . (# n 40))
$ midiOn "^56" (loopAt 1 . (# n 40))
$ loopAt 2
$ "jungle_breaks:18"
# cut 8
d4 $ gM3 $ gF2 -- MATRIX BASS
$ slow 2 $ slow 2
$ midiOn "^57" (# freeze 0.1) $ midiOn "^57" (# freeze 0.1)
$ midiOn "^89" (slice 8 "0*[8 16]") $ midiOn "^89" (slice 8 "0*[8 16]")
...@@ -53,22 +60,27 @@ d4 $ gF2 -- MATRIX BASS ...@@ -53,22 +60,27 @@ d4 $ gF2 -- MATRIX BASS
# ampbus 44 (range 1 1.25 "^17") # ampbus 44 (range 1 1.25 "^17")
# distortbus 45 (range 0 0.5 "^33") # distortbus 45 (range 0 0.5 "^33")
# pan "<0.8!32 0.2!32>" # pan "<0.8!32 0.2!32>"
# midiG' "^81" 0 2.4 # gain 0.8
d5 $ gF2 -- ACID bassline d5 $ gM3 $ gF2 -- ACID bassline
-- $ note "f@2 f e@2 e ef2" $ midiOn "^90" ( -- Echoes of future
superimpose ((# cut 51) . superimpose ((# cut 52) . (|+ note 12))
. (|+ note "[12,<~!8 24!8>]")
. (|* gain 0.9) . (# room 0.2) . (# sz 0.9)) . (# cut 51))
$ midiOn "^58" (# freezebus 51 0.1) $ midiOn "^58" (# freezebus 51 0.1)
$ note ( $ note ( "f@2 f <gs!2 gf!2>@2 <gs!2 g!2> <g!2 gs <gs gs5>>@2"
"f@2 f <gs!2 gf!2>@2 <gs!2 g!2> <g!2 gs <gs gs5>>@2"
- 12 - 12
) )
# distortbus 51 (range 0 2.5 "^54") # distortbus 52 (range 0 2.5 "^54")
# "90s_matrix:4" # "90s_matrix:4"
# pan "<0.2!32 0.8!32>" # pan "<0.2!32 0.8!32>"
-- # octave 3 -- # octave 3
# cut 5 # cut 5
# midiG' "^82" 0 1.9 -- # midiG' "^82" 0 1.9
d7 $ gF3 $ note ( d7 $ gF3 $ gM3
"0([3 <3!3 5>],8) . c(<3!7 [3 5]>,8)" $ midiOn "^91" (|- note "c'maj'2")
$ note (
(slow 8 $ "<[<f4 as5>]!2 [<ef3!2 [ef4!3 f4] f4>]!2>")
+ "0([3 <3!3 5>],8) . 0(<3!7 [3 5]>,8)"
) )
# "superfork" # "superfork"
# room (slow 16 $ range 0 0.2 saw) # room (slow 16 $ range 0 0.2 saw)
...@@ -76,7 +88,6 @@ d7 $ gF3 $ note ( ...@@ -76,7 +88,6 @@ d7 $ gF3 $ note (
# octersubbus 71 (range 0 2 "^55") # octersubbus 71 (range 0 2 "^55")
# octersubsubbus 72 (range 0 2 "^55") # octersubsubbus 72 (range 0 2 "^55")
# pan (slow 16 $ (saw + 0.2 * perlin)) # pan (slow 16 $ (saw + 0.2 * perlin))
# midiG' "^83" 0 1.9
-- c bf g -- c bf g
d10 -- RISE! d10 -- RISE!
$ fix ( $ fix (
...@@ -96,7 +107,7 @@ d10 -- RISE! ...@@ -96,7 +107,7 @@ d10 -- RISE!
. (# sz 0.8) . (# sz 0.8)
. (# cut 82)) "r2" . (# cut 82)) "r2"
$ "[<~ ~ ~ <r1!3 ~>>,<~!24 ~!8 r2 ~!7>]" $ "[<~ ~ ~ <r1!3 ~>>,<~!24 ~!8 r2 ~!7>]"
# midiG' "^20" 0 1.3 -- # midiG' "^20" 0 1.3
-- risers:3 annonce -- risers:3 annonce
-- risers:4 -- risers:4
......
live/midi/nova/boombap/chemise_a_carreaux.tidal 0 → 100644
resetCycles
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*<1 1 1 2>")
$ midiOff "^42" ((<| "<k(3,8) [k k k k ~]>") . superimpose (# "kick:5"))
$ "[jazz,house]"
# gain 1.2
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "[rampleM1:10]"
# gain 0.9
# pan 0.6
# room 0.84 # dry 0.95 # sz 0.1
# lpf 4650
d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2)
$ arp "up"
$ midiOn "^76" (ply 2)
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
# "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4
$ loopAt 2
$ midiOn "^33" (chop 2)
$ midiOn "^89" (chop 8)
$ midiOn "^57" (slice 4 "4 3 2 1")
$ chop 8
$ "nujazz_bass120:18"
# crushbus 41 (range 16 4.5 "^53")
# room 0.3
# cut 4
# octer 0.9
# octersub 0.5
d5 $ n "<10 10 11 10 10 12 11 12 11 12 12 11 11 12 12 13>" # "nujazz_guitar120" # cut 5
# crushbus 51 (range 16 4.5 "^54")
# hpfbus 51 (range 0 1500 "^54")
d7
$ slice 4 "0 [~ 1] 2 <2 3>"
$ chop 16
$ loopAt 2
$ "jungle_breaks:19" # cut 7
d8 $ gF1 $ gM1 -- BREAK THIS FLOOR
$ midiOn "^60" (slice 8 $ run 16)
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
$ chop 16
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:6"))
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45")) -- ORLEANAISE
$ loopAt 4
$ "nujazz_beats120:2"
# pan "0.2 0.8 0.2 0.8"
-- FIXME GRAVEYARDDD
live/midi/nova/breaks/acid_rain.tidal
...@@ -2,15 +2,20 @@ do ...@@ -2,15 +2,20 @@ do
setcps (100/60/4) setcps (100/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... let gM2 = gMask . gMute2
$ midiOn "^42" (<| "k k k <k!3 k*2 k k ~ [~ k]>") let gM3 = gMask . gMute3
d1 $ gM2 $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^42" (<| "k k k <k <k*2 [k*2 k]>>")
$ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not? $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[kick:5,808bd:4,kick:4]" $ "[kick:5,808bd:4,kick:4]"
# gain 1.2 # gain 1.2
d2 d2 $ gM
$ gF $ gF
$ midiOn "^43" (<| "~ c ~ c*[1 <1 <4 <1 4>>>]" ) $ midiOn "^43" (<| "~ c ~ c*[1 <1 <4 <1 4>>>]" )
$ midiOff "^43" (<| "~ <c!7 ~>" ) $ midiOff "^43" (<| "~ <c!7 ~>" )
...@@ -19,45 +24,45 @@ d2 ...@@ -19,45 +24,45 @@ d2
# note "-2" # note "-2"
# room (slow 8 $ range 0.2 0.6 saw) # dry 1 # room (slow 8 $ range 0.2 0.6 saw) # dry 1
# gain 1.3 # gain 1.3
d3 $ gF $ gMute d3 $ gF $ gM
$ midiOn "^76" (ply "2 4") $ midiOn "^76" (ply "2 4")
$ midiOn "^44" (off (0.5- 0.125) id) $ midiOn "^44" (off (0.5- 0.125) id)
$ "~ h ~ h ~ h*<1 <1!4 2!4> 1 2> ~ h*<1!6 2 <2 4>>" $ "~ h ~ h ~ h*<1 <1!4 2!4> 1 2> ~ h*<1!6 2 <2 4>>"
# "hh" # "hh"
# panbus 31 ((range 0.3 0.7 (whenmod 8 6 rev $ saw))) # panbus 31 ((range 0.3 0.7 (whenmod 8 6 rev $ saw)))
# midiG' "^80" 0 1.4 # gain 1.4
# room 0.3 # room 0.3
# dry 1.1 # dry 1.1
d4 $ gF2 -- Piano solo lover sunset d4 $ gM3 $ gF2 -- Malediction acide
$ midiOn "^57" (-- Sunset echoes $ someCyclesBy (1 - "^17") (mask "t(3, 8)" . chop 8)
off 0.5 ((sometimes (juxBy 0.8 (off "[0.125,0.25]" (|+ note 12) . (|* gain 0.6)))) $ midiOn "^89" (chop "<8!3 16>")
. mask "<t [f t]> t(3,8)" $ midiOn "^57" (jux ((# cut 41) . rev))
)
. (|+ note 12) . (|+ pan 0.1) . (|* gain 0.8))
$ midiOff ("^57" + "^89") (mask "t f")
$ note (arp "up" ("<g <g6 df6>>" + "{0,[0 7]([3 5],8)}")
+ "[0,12]"
- 36)
# "FMRhodes1"
# crushbus 41 (range 16 2.25 "^53")
# modIndex (range 0 16 "^33")
# room 0.4
d5 $ gF2 -- Jump aboard the BASIC BUS
-- $ sometimesBy (1 - "^19") (mask "t(1, 8)")
$ midiOn "^90" (chop "<8!3 16>")
$ midiOn "^58" (jux rev)
$ midiOff "^41" ( $ midiOff "^41" (
whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93))) whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93)))
) )
$ chop 32 $ chop 8
$ loopAt 8 $ loopAt 8
$ "synth_commodore" # n "1" $ "synth_commodore" # n "1"
# crushbus 61 (range 16 2.25 "^54") # crushbus 41 (range 16 2.25 "^53")
# roombus 63 (range 0 0.5 "^34") # roombus 43 (range 0 0.5 "^33")
# cut 5 # cut 4
# gain 1.2 # gain 1.2
# panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw)) # panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw))
-- # pan 0.8 -- # pan 0.8
d5 $ gF3 -- Piano solo lover sunset
$ midiOn "^58" (-- Sunset echoes
off 0.5 ((someCyclesBy 0.1 (juxBy 0.8 (off "[0.125,0.25]" (|+ note 12) . (|* gain 0.6))))
. mask "<t [f t]> t(3,8)"
)
. (|+ note 12) . (|+ pan 0.1) . (|* gain 0.8))
$ midiOff ("^58" + "^90") (mask "t f")
$ note (arp "up" ("<g <g6 df6>>" + "{0,[0 7]([3 5],8)}")
+ "[0,12]"
- 36)
# "FMRhodes1"
# crushbus 41 (range 16 2.25 "^54")
# modIndex (range 0 16 "^34")
# room 0.4
d7 $ gF2 -- Nice organs you got there d7 $ gF2 -- Nice organs you got there
$ slice 8 "[5(3,8) <6 6 3 <2 7>>]" $ slice 8 "[5(3,8) <6 6 3 <2 7>>]"
$ loopAt 2 $ loopAt 2
...@@ -67,7 +72,7 @@ d7 $ gF2 -- Nice organs you got there ...@@ -67,7 +72,7 @@ d7 $ gF2 -- Nice organs you got there
# gain 1.4 # gain 1.4
# pan (slow 16 $ range 0.5 0.2 saw) # pan (slow 16 $ range 0.5 0.2 saw)
d8 $ gF $ gM d8 $ gF $ gM
$ midiOn "^60" (loopAt 4 . (# "drums_nes:7")) $ midiOn "^60" (loopAt 4 . (|* gain 0.9) . (# "drums_nes:7"))
$ midiOn "^92" (ply 2) $ midiOn "^92" (ply 2)
$ slice 4 "0 1 2 3 0*<1 1 2 1> 1 2 3*<1!4 2 2 2 [4 1]>" $ slice 4 "0 1 2 3 0*<1 1 2 1> 1 2 3*<1!4 2 2 2 [4 1]>"
$ striate "1 <1 <2 [0 1]>>" $ striate "1 <1 <2 [0 1]>>"
......
live/midi/nova/breaks/bain_bouillant.tidal
...@@ -3,41 +3,42 @@ setcps (128/60/4) ...@@ -3,41 +3,42 @@ setcps (128/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- let gDelay = (# delaybus 4 (range 0 0.5 "^13")) . (# delayfb 0.7) . (# delayt 0.5)
let gDelay = id
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
-- let gDJF1 = someCyclesBy "<0!30 2!2>" (# djfbus 4 (slow 2 $ range 0.5 0.1 saw)) let gM3 = gMask . gMute3
-- let gDJF2 = someCyclesBy "<1!8 0!24>" (# djfbus 4 (slow 8 $ range 0.1 0.5 saw))
-- let gDJF = gDJF1 . gDJF2
let gO = (# octersubbus 5 (range 0 1 "^29")) . (# octerbus 6 (range 0 1.2 "^29")) let gO = (# octersubbus 5 (range 0 1 "^29")) . (# octerbus 6 (range 0 1.2 "^29"))
let gDJF = id
let gOcter = id
d1 $ gF1 $ gM2 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k k k <k!7 [<k ~> k]>") $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" ((<| "k k k <k!7 [<k ~> k]>"))
$ midiOff "^42" ( $ midiOff "^42" (
(<| "<k!24 ~!8> ~ ~ <~!3 k> . ~ <~!7 k> ~ ~") -- (<| "<k!24 ~!8> ~ ~ <~!3 k> . ~ <~!7 k> ~ ~")
(<| "k . ~ k ~ <~ k>")
) )
$ fix ((|* gain 0.9) . (# lpf 5000)) "rampleA0" $ "[jazz,kick:4]"
$ "[rampleA0:3,jazz]" -- $ "[rampleA0:3,jazz]"
# gain 1.2 # gain 1.2
-- # midiG' "^78" 0 1.5 d2 $ gF1 $ gM1
d2 $ gF1 $ gM $ midiOn "^43" (<| "~ s ~ s*<1 1 2 <1 4>>")
$ "~ s ~ s" $ midiOff "^43" (<| "~ s ~ s*<1 2 <1 2> 1>")
# "[rampleA0:11,rampleA2:11]" -- Basic snare $ "[rampleA0:11,rampleA2:11]" -- Basic snare
# gain 1.2 # note "-5"
d3 $ gF1 $ gM $ gDelay -- Contretemps # gain 0.9
-- $ midiOn "^76" (slow 2) d3 $ gF1 $ gM1 -- Contretemps
-- $ midiOff "^44" (slow 2) $ midiOn "^76" (slow 2)
$ midiOff "^44" (slow 2)
$ "~ h ~ h ~ h ~ h*<1 2 2 <1 2>>" $ "~ h ~ h ~ h ~ h*<1 2 2 <1 2>>"
-- $ "~ h ~ <~!4 h!28> ~ <~!3 h ~!3 h h!8> ~ <h ~ h ~ h!3 <h*2 [~ h*<1 2>]>>" -- $ "~ h ~ <~!4 h!28> ~ <~!3 h ~!3 h h!8> ~ <h ~ h ~ h!3 <h*2 [~ h*<1 2>]>>"
# "[snare:38]" # "[snare:38]"
# room 0 # room 0
# gain 1.2 # gain 0.9
d4 $ gO $ gF2 -- SUBSUB INFRABASS d4 $ gO $ gF2 $ gM3 -- SUBSUB INFRABASS
$ midiOn "^57" (struct "t*8 t(<3!3 5>,8)")
$ midiOn "^89" (stut 4 0.9 "e")
-- $ juxBy 0.8 ( -- $ juxBy 0.8 (
-- (# crushbus 41 (slow 16 $ range 12 2.5 saw)) -- (# crushbus 41 (slow 16 $ range 12 2.5 saw))
-- . (# lpfbus 41 (slow 16 $ range 10000 2000 saw)) -- . (# lpfbus 41 (slow 16 $ range 10000 2000 saw))
...@@ -46,17 +47,19 @@ d4 $ gO $ gF2 -- SUBSUB INFRABASS ...@@ -46,17 +47,19 @@ d4 $ gO $ gF2 -- SUBSUB INFRABASS
# "jungbass:3" # "jungbass:3"
# lpf 2000 # lpf 2000
# cut 4 # cut 4
# crushbus 41 (range 16 2 "^53") # crushbus 41 (range 12 2 "^53")
# pan 0.8 -- # octersubsubbus 42 (range 0 1.2 "^33")
# gain 2 # pan 0.65
d5 $ gO $ gF2 -- Basse appel important # gain 1.2
d5
$ gO $ gM3 $ gF2 -- Basse appel important
$ note "<fs3 [fs3@7 b3] [fs3@7 g3] [fs3@5 g3 fs3 d2] [b2@7 d2] [b2@7 d2] [b2@7 gs2] [b2 . b2 d3 <fs3 g3>]>" $ note "<fs3 [fs3@7 b3] [fs3@7 g3] [fs3@5 g3 fs3 d2] [b2@7 d2] [b2@7 d2] [b2@7 gs2] [b2 . b2 d3 <fs3 g3>]>"
# "giorgio_syn:0" # "giorgio_syn:0"
-- # midiG' "^81" 0 1.5 # pan 0.351
# pan 0.32 # lpfbus 52 (range 400 4000 "^34")
# distortbus 51 (range 0 1.2 "^54") # distortbus 51 (range 0 1.2 "^54")
# cut 7 # cut 7
# gain 1.5 # gain 1.4
d7 $ gO $ gF3 -- guitare salvatrice d7 $ gO $ gF3 -- guitare salvatrice
-- $ mask "<f!32 t!32>" -- $ mask "<f!32 t!32>"
$ slice 16 "0*[4 <4 4 1 1 4 4 1 4 1 1 4 4> 4 <1!3 4>]" $ slice 16 "0*[4 <4 4 1 1 4 4 1 4 1 1 4 4> 4 <1!3 4>]"
...@@ -64,17 +67,18 @@ d7 $ gO $ gF3 -- guitare salvatrice ...@@ -64,17 +67,18 @@ d7 $ gO $ gF3 -- guitare salvatrice
$ loopAt 2 $ loopAt 2
$ "fguitar:55" $ "fguitar:55"
# cut 7 # cut 7
# gain 1.2 # gain 0.9
d6 $ gO $ gM $ gF1 -- Rim drums d6 $ gO $ gM1 $ gF1 -- Rim drums
$ fix ((|* gain (1.2 + 0.1 * perlin))) (n 18) $ fix ((|* gain (1.2 + 0.1 * perlin))) (n 18)
$ n (stack [ $ n (stack [
"~ ~ ~ <~!7 <13 14 15 16 17>>", -- Cy "~ ~ ~ <~!7 <13 14 15 16 17>>", -- Cy
"<~!0 18([<1 3> <1 <3!3 5>>],8)!16> 18(<1 1 3 1>,8)" "<~!0 18([<2 3> <1 <3!3 5>>],8)!16> 18(<1 1 3 1>,8)"
]) ])
# "h2ogmhh:1" # "h2ogmhh:1"
|* gain (range 0.8 1 perlin) |* gain (range 0.8 1 perlin)
# gain 1.5 # gain 1.5
d8 $ gM2 $ gF1 -- BOOM BOOM THE BREAKS d8 $ gM1 $ gF1 -- BOOM BOOM THE BREAKS
$ midiOn "^92" (ply 2)
$ fix (|* gain 0.8) ("jungle_breaks:24") $ fix (|* gain 0.8) ("jungle_breaks:24")
$ whenmod 8 7 (slice 4 "0 3 2*<1 2> 1*<1 2 4 4>") $ whenmod 8 7 (slice 4 "0 3 2*<1 2> 1*<1 2 4 4>")
$ midiOn "^36" ((# n "19")) -- Pure COMEON! $ midiOn "^36" ((# n "19")) -- Pure COMEON!
...@@ -84,23 +88,18 @@ d8 $ gM2 $ gF1 -- BOOM BOOM THE BREAKS ...@@ -84,23 +88,18 @@ d8 $ gM2 $ gF1 -- BOOM BOOM THE BREAKS
$ "jungle_breaks:24" $ "jungle_breaks:24"
# gain 1.2 # gain 1.2
d9 $ gF3 d9 $ gF3
$ "jungle_pads:22/4" $ ply "1 2 <1 <2 4 8 2>> <<2 1 4 <1 4>> 1>"
$ chop 8
$ "jungle_pads:24/4"
# note (2 + (slow 2 $ "<0 -5>"))
# cut 9 # cut 9
-- # midiG' "^19" 0 1 # gain 0.8
d10 $ gF1 -- NOISES # lpf 5000
$ fix (|* gain (slow 32 $ range 1 0.3 saw)) "giorgio_syn" d10 $ gF1 -- CONSTRUCTION NOISES
-- $ fix (|* gain (slow 32 $ range 1 0.3 saw)) "giorgio_syn"
$ (stack [ $ (stack [
"<~!16 giorgio_syn:52!16>/2" "<~!0 giorgio_syn:52!16>/2"
]) ])
# note (slow 2 "<0 <-4.5 -7>>")
# cut 10 # cut 10
# gain 0.6
d11 $ gF2 -- Le Météore (TODO: Variations? Autre sample de meteore?)
$ slice 4 "0 1 2*<1!7 8> 3*<1!3 2>"
$ "meth_bass:0/2"
# note "c"
# midiG' "^17" 0 1
# pan 0.35
# crushbus 91 (range 16 2.5 "^53")
# cut 11
live/midi/nova/breaks/break_the_rentree.tidal
...@@ -61,7 +61,7 @@ d6 $ gF2 -- Programmatic bass ...@@ -61,7 +61,7 @@ d6 $ gF2 -- Programmatic bass
# cut 6 # cut 6
# gain 0.6 # gain 0.6
# room 0.4 # room 0.4
# midiG' "^81" 0 0.8 # midiG' "^81" 0 1.3
# crushbus 61 (range 16 4 "^53") # crushbus 61 (range 16 4 "^53")
# room "<0.35!3 0.7>" # room "<0.35!3 0.7>"
d5 $ gF2 -- Le rythme de la rentree d5 $ gF2 -- Le rythme de la rentree
......
live/midi/nova/breaks/code_secret.tidal
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
do do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
...@@ -16,25 +16,30 @@ let gM = gMask . gMute ...@@ -16,25 +16,30 @@ let gM = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
setcps (93/60/4) setcps (93/60/4)
d1 $ gF1 d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k k") $ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k ~ ~ <~ k> . ~ k ~ <~!3 k*<1 2>>") $ midiOff "^42" (<| "k ~ ~ <~ k> . ~ k ~ <~!3 k*<1 2>>")
$ fix ((# att 0.1) . (# rel 10)) "wobble" $ fix ((# att 0.1) . (# rel 10)) "wobble"
$ "[jazz,808bd:4,wobble]" $ "[jazz,808bd:4,wobble]"
# midiG' "^78" 0 1.5 -- # midiG' "^78" 0 1.5
d2 $ gF1 d2 $ gF1 $ gM
-- $ mask "<f!8 t!24>" -- $ mask "<f!8 t!24>"
$ "~ s" # "snare:40" $ "~ s" # "snare:40"
# midiG' "^79" 0 1.4 -- # midiG' "^79" 0 1.4
# pan 0.8 # pan 0.8
d3 $ gF1 $ "~ h ~ h ~ h ~ [<h!2 ~ h> h*<1!7 2>]" d3 $ gF1 $ gM
$ "~ h ~ h ~ h ~ [<h!2 ~ h> h*<1!7 2>]"
# "hh" # pan 0.8 # "hh" # pan 0.8
# midiG' "^80" 0 1.4 -- # midiG' "^80" 0 1.4
d4 $ gF2 d4 $ gF2 $ gMute3
$ note "<[e2,b2] [e2,c3] [e2,cs3] [e3,c3]>" $ note "<[e2,b2] [e2,c3] [e2,cs3] [e3,c3]>"
# "moogBass" # "moogBass"
# chorus 0
# pan 0.1 # pan 0.1
# midiG' "^81" 0 1.8 # crushbus 41 (range 16 2.5 "^53")
d10
$ note ("<b4 c4 cs4 c4>" + 12)
# "moogBass"
d5 $ gF3 d5 $ gF3
$ midiOn "^58" (ply "<[4 2] 4 [4 8] [4 <[8 4] <16 [16 4]>>]>") $ midiOn "^58" (ply "<[4 2] 4 [4 8] [4 <[8 4] <16 [16 4]>>]>")
-- $ arpeggiate -- $ arpeggiate
...@@ -42,17 +47,18 @@ d5 $ gF3 ...@@ -42,17 +47,18 @@ d5 $ gF3
"<[e4,g4,b4] [e4,g4,c5] [e4,g4,cs5] [e4,g4,c5]>" "<[e4,g4,b4] [e4,g4,c5] [e4,g4,cs5] [e4,g4,c5]>"
|+| "<[~!3 0]!8 [~ 0 ~ 0]!8 [~ 0 ~ 0*2]!8 [~ 0 ~ ?]!8>" |+| "<[~!3 0]!8 [~ 0 ~ 0]!8 [~ 0 ~ 0*2]!8 [~ 0 ~ ?]!8>"
+ (slow 4 "<0 <12 24>>") + (slow 4 "<0 <12 24>>")
-- + "12" + "12"
) )
# modIndex (range 0 4.5 "^34") # modIndex (range 0 4.5 "^34")
# crushbus 51 (range 16 4.5 "^54") # crushbus 51 (range 16 4.5 "^54")
# "FMRhodes2" # "marimba1"
# pan 0.8 # pan 0.8
# midiG' "^82" 0 1.4 # gain 1.2
d8 $ gF3 d8 $ gM $ gF1
$ midiOn "^92" (ply 4) $ midiOn "^92" (ply 4)
$ slice 4 "0 1 2 3*<1 2 4 8>" $ midiOff "^56" (slice 4 "0 1 2 3*<1 2 4 8>")
$ loopAt 4 $ loopAt 4 $ chop 16
$ midiOn "^56" (loopAt 0.25 . (>| "breaks165"))
$ "trance_loops:0" $ "trance_loops:0"
# cut 8 # cut 8
# midiG' "^84" 0 1.8 -- # midiG' "^84" 0 1.8
live/midi/nova/breaks/its_about_time.tidal
...@@ -6,6 +6,8 @@ once ...@@ -6,6 +6,8 @@ once
# gain 0.9 # cut 13 -- Spooky intro! # gain 0.9 # cut 13 -- Spooky intro!
-- # gain 0 -- # gain 0
once $ "dr"
-- (.ParVagues ----- L1VE.) -- (.ParVagues ----- L1VE.)
-- T""""""""""""""""""""T -- T""""""""""""""""""""T
-- |.;....,..........;..| -- |.;....,..........;..|
...@@ -58,7 +60,7 @@ d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... ...@@ -58,7 +60,7 @@ d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not? $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[kick:5,808bd:4,kick:4]" $ "[kick:5,808bd:4,kick:4]"
# midiG' "^78" 0 1.5 # midiG' "^78" 0 1.5
d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™" d2 $ gM $ gF -- Break "80s' Apocalypse in a Box"
$ midiOn "^44" (fast "1 2") $ midiOn "^44" (fast "1 2")
$ midiOn "^76" -- L'Esprit de Nassim $ midiOn "^76" -- L'Esprit de Nassim
( (
...@@ -111,7 +113,8 @@ d6 $ gF3 -- Jump aboard the BASIC BUS ...@@ -111,7 +113,8 @@ d6 $ gF3 -- Jump aboard the BASIC BUS
# midiG' "^83" 0 1.4 # midiG' "^83" 0 1.4
# panbus 64 (range 0.13 0.87 (slow 16 saw)) # panbus 64 (range 0.13 0.87 (slow 16 saw))
# cut 6 # cut 6
d8 $ gM $ gF3 -- Breaks divins -- TODO Rework? d8
-- $ gM $ gF3 -- Breaks divins -- TODO Rework?
$ midiOn "^92" (off "e" id) $ midiOn "^92" (off "e" id)
$ midiOff "^60" (mask "[f t]") $ midiOff "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21")) $ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21"))
......
live/midi/nova/breaks/nuit_agitee.tidal
-- BASS GAMEBOY -- NUIT AGITEEE
d f Arc -- d f Arc
do do
-- resetCycles -- resetCycles
...@@ -15,7 +13,7 @@ let gM2 = gMask . gMute2 ...@@ -15,7 +13,7 @@ let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let scale = getScale (scaleTable ++ [("gameboy", [1,2,4,5,7,9,11])]) let scale = getScale (scaleTable ++ [("gameboy", [1,2,4,5,7,9,11])])
-- once $ note (scale "gameboy" (run 8)) # "superpiano" # gain 2 -- once $ note (scale "gameboy" (run 8)) # "superpiano" # gain 2
d1 $ gM2 $ gF1 d1 $ gM2 $ gF1
...@@ -25,13 +23,16 @@ d1 $ gM2 $ gF1 ...@@ -25,13 +23,16 @@ d1 $ gM2 $ gF1
$ "[jazz,kick:4]" $ "[jazz,kick:4]"
d2 $ gM1 $ gF1 d2 $ gM1 $ gF1
$ "~ <~!8 s!56> <s!8 ~!56> <~!8 s!56>" $ "~ <~!8 s!56> <s!8 ~!56> <~!8 s!56>"
# "[sn:20,snare:8]" # rel 0.4 # note "-12" # gain 1.3 # "[sn:20,snare:8]" # rel 0.4 # note "-12"
# gain 1
d3 $ gM1 $ gF1 d3 $ gM1 $ gF1
$ midiOff "^44" (mask "[~ [t . <~!3 t> ~!3 ]]*4") $ midiOff "^44" (mask "[~ [t . <~!3 t> ~!3 ]]*4")
$ midiOn "^76" (ply 2)
$ n ("~ 0*<1 1 2 1> ~ 0*<1 2 <1 2> 2> ~ <0!32 0*<1!4 2 4!3>!32> ~ <1!16 1*<1 1 2 1 4 1 2 <4 8>>!16>") $ n ("~ 0*<1 1 2 1> ~ 0*<1 2 <1 2> 2> ~ <0!32 0*<1!4 2 4!3>!32> ~ <1!16 1*<1 1 2 1 4 1 2 <4 8>>!16>")
# "amencutup" # "amencutup"
# cut 3 # cut 3
# panbus 31 "^52" # panbus 31 "^52"
|* gain (fast 8 $ range 0.9 1.1 perlin)
d6 $ gF1 $ gM1 d6 $ gF1 $ gM1
$ someCyclesBy "<f!3 t f f t t>" (superimpose ((|- note 1) . (|* gain 0.9) . (0.125 <~))) $ someCyclesBy "<f!3 t f f t t>" (superimpose ((|- note 1) . (|* gain 0.9) . (0.125 <~)))
$ "<~ cp>" $ "<~ cp>"
...@@ -39,27 +40,28 @@ d6 $ gF1 $ gM1 ...@@ -39,27 +40,28 @@ d6 $ gF1 $ gM1
# room 0.4 # dry 1.1 # sz 0.5 # room 0.4 # dry 1.1 # sz 0.5
# lpf 2000 # lpf 2000
# gain 1.1 # gain 1.1
d4 $ gF2 d4 $ gF2 $ gMute3
$ midiOn "^89" (slow "<4!12 8!4>" . striate "<4!12 8!4>") $ midiOn "^89" (slow "<4!12 8!4>" . striate "<4!12 8!4>")
$ midiOn "^57" (slow "<1!12 [1 2]!3 [2 4]>" . mask "<t!6 [<t f> [<t f> f]] [t f]>" . (stut "<4!12 2 2 4 8>" 0.7 "<e!12 e e s s>") . mask "t(2,16)") $ midiOn "^57" (slow "<1!12 [1 2]!3 [2 4]>" . mask "<t!6 [<t f> [<t f> f]] [t f]>" . (stut "<4!12 2 2 4 8>" 0.7 "<e!12 e e s s>") . mask "t(2,16)")
$ midiOn "^17" (mask "t(4,16)") -- $ midiOn "^17" (mask "t(4,16)")
$ loopAt 8 $ loopAt 8
$ chop 64 $ chop 64
$ "bass_commodore:7" $ "bass_commodore:7"
# cut 4 # cut 4
# crushbus 41 (range 8 0.81 "^53") # crushbus 41 (range 8 0.81 "^53")
# octersubbus 42 (range 0 7 "^33") # octersubbus 42 (range 0 7 "^33")
# lesliebus 43 (range 0 2 "^29") -- # lesliebus 43 (range 0 2 "^29")
# lsize 2.2 # lsize 2.2
# lrate (slow 4 $ range 0.2 0.8 sine) # lrate (slow 4 $ range 0.2 0.8 sine)
-- # distortbus 41 (range 0 5 "^53") -- # distortbus 41 (range 0 5 "^53")
# gain (0.8 - 0.1 * "^33" - 0.1 * "^29") # gain (0.8 - 0.1 * "^33" - 0.1 * "^29")
# room "<0.3!12 0.35 0.4 0.48 0.6>" # room "<0.3!12 0.35 0.4 0.48 0.6>"
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ someCyclesBy "^34" ((|- note 12) . (stut 4 0.5 "e"))
$ midiOn "^58" (superimpose ( $ midiOn "^58" (superimpose (
(|- note 12) . (# cut 51) . (# pan 0.2)) (|- note 12) . (# cut 51) . (# pan 0.2))
) )
$ whenmod 32 24 (off "e" ((|* gain 1.1) . (|+ pan 0.12) . (|+ note "<12!3 24>"))) $ whenmod 32 24 (off "e" ((|* gain 0.95) . (|+ pan 0.12) . (|+ note "<12!3 24>")))
$ note (scale "gameboy" ( $ note (scale "gameboy" (
"<1(3,8) [1(3,8), <~ [~!7 2]>] 0(3,8) <0!3 -2>(3,8)>" "<1(3,8) [1(3,8), <~ [~!7 2]>] 0(3,8) <0!3 -2>(3,8)>"
+ "<<0 0 2 2> <0 0 2 2> <0 7 7 9> <0 0 9 9>>" + "<<0 0 2 2> <0 0 2 2> <0 7 7 9> <0 0 9 9>>"
...@@ -70,36 +72,45 @@ d5 $ gF3 $ gM3 ...@@ -70,36 +72,45 @@ d5 $ gF3 $ gM3
# pan 0.85 # pan 0.85
# modIndex 0.3 # modIndex 0.3
# legato 2 # legato 2
# gain 1.5 # gain 1.2
d9 $ gF2 $ arp "up" d7 $ silence -- FIXME add d7, maybe arps/moog?
d9 $ gF2 $ gM3 -- Essouflement amoureux
$ arp "up"
$ note ( $ note (
"<a a g5 g5> ~ <~!24 d6!7 d5> <a a g g> ~ <~!12 d6!4> <a a g g> <~!16 d6!16>" -- "<a a g5 g5> ~ <~!24 d6!7 d5> <a a g g> ~ <~!12 d6!4> <a a g g> <~!16 d6!16>"
- 2.5 -- "calage" "<a a g5 e5> ~ <~!0 d6!3 d5> <a a g5 cs6> ~ ~ ~ ~"
-- "c8'maj'4"
+ 4
+ 12
-- - 2.5 -- "calage"
) )
# att 0.05 # att 0.05
# rel 2 # rel 2
# "jungbass:1" # cut 9 # "jungbass:1" # cut 9
# room 0.8 # dry 1.4 # sz 0.9 # room 0.3 # dry 1.4 # sz 0.9
d10 $ gF3 $ note (slow 2 $ ("<[a5, d6] [g5, <e6 <cs6 [cs6 a5]>>]>")) d10 $ gF3 -- Angels of constance
$ note (slow 2 $ ("<[a5, d6] [g5, <e6 <cs6 [cs6 a5]>>]>"))
# "moogBass" # "moogBass"
# room 0.2 # room 0.2
# pan 0.7 # pan 0.7
d11 $ gF3 $ gM3 d11 $ gF3 $ gMute3
$ note ("<d d e cs d d e cs f f g e f f g a>" $ note ("<d d e cs d d e cs f f g e f f g a>"
+ "0(<3!3 [3 <5 6>]>,8)" + "0(<3!3 [3 <5 6>]>,8)"
+ 12 + 12
) )
# "cpluck:3" # "cpluck:3"
# room 0.8 # room 0.8
# gain 0.65 # gain 0.85
# cut 11 # cut 11
d8 $ gM1 $ gF1 d8 $ gM1 $ gF1
$ midiOn "^92" (ply "1 <2 4 8> 2 <2 [4 8]>") $ midiOn "^92" (ply "1 <2 4 8> 2 <2 [4 8]>")
$ midiOff "^60" (mask (slow 4 "t(<2 4 [4 8 4] 8>,16)")) $ midiOff "^60" (mask (slow 4 "t(<2 4 [4 8 4] 8>,16)"))
-- $ slice 8 "<~!7 0> 1 <~!6 2 2> 3 <~!4 4!4> 5 <~ 6 ~ ~ 6 ~ 6 6> 7" -- $ slice 8 "<~!7 0> 1 <~!6 2 2> 3 <~!4 4!4> 5 <~ 6 ~ ~ 6 ~ 6 6> 7"
$ midiOn "^36" ((# n "8")) $ midiOn "^36" ((# n "18"))
$ midiOn "^56" ((# n "6")) $ midiOn "^56" ((# n "6"))
$ loopAt 2 $ chop 32 $ loopAt 2
$ chop 32
$ "jungle_breaks:1" $ "jungle_breaks:1"
# lpf 5000 -- # lpf 5000
# cut 8 # cut 8
# gain 0.9
live/midi/nova/dnb/alerte_verte.tidal
...@@ -5,102 +5,110 @@ resetCycles ...@@ -5,102 +5,110 @@ resetCycles
-- Alerte Verte -- Alerte Verte
do do
setcps (160/60/4) setcps (160/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw)) let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
let gM = (midiOn "^73" (mask "f*16")) d1 $ gF1 $ gMute2 -- KICK
d1 $ g1 $ gM -- KICK
$ midiOn "^74" (fast 2) $ midiOn "^74" (fast 2)
$ midiOn "^41" (<| "k k k <k [~ k] k k*2>") -- RUN! $ midiOn "^42" (<| "k k k <k [~ k] k k*2>") -- RUN!
$ midiOn "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT? $ midiOff "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT?
$ midiOff ("^41" + "^42") (<| "k*2") -- ST0P. -- $ midiOff ("^41" + "^42") (<| "k*2") -- ST0P.
$ fix (|* gain 0.9) "kick:5" -- $ fix ((# lpf 6000) . (|* gain 0.9)) "techno:0"
$ "[jazz,kick:5]" $ fix ((# lpf 800) . (|* gain 0.85)) "kick:4"
$ "[techno:0,kick:4]"
# release 0.8 # release 0.8
# midiG' "^78" 0 1.5 d2 $ gF1 $ gM1 -- Snare tchak!
d2 $ g1 $ gM -- Snare tchak!
$ midiOn "^43" (ply 2) $ midiOn "^43" (ply 2)
$ midiOn "^75" --BOUTON NASSIM $ whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush
( $ "~ s . ~ <~ ~ s ~ s!3 ~ s s ~ s s ~ s s ~ s s s>"
whenmod 8 7 (ply "1 . 2") . # "[snare:40,snare:22]"
slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") .
(loopAt 1) .
(# "breaks165") . (# cut 2)
. (|* gain 1.1)
)
$ midiOff "^75" ( -- NassOff
(<| "~ s . ~ <~ ~ s ~ s!3 ~ s s ~ s s ~ s s ~ s s s>")
. whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush
)
$ "[snare:40,snare:22]"
# pan 0.55 # pan 0.55
# note (range "-7" 7 "^51") # note (range "-7" 7 "^31")
# room 0.8 # dry 0.99 # sz 0.2 # room 0.8 # dry 0.99 # sz 0.2
# midiG' "^79" 0 1.2 -- # midiG' "^79" 0 1.2
d3 $ g1 $ gM -- Running Hats d3 $ gF1 $ gM1 -- Running Hats
$ g32Bridge $ g32Bridge
$ midiOn "^44" (slow 2) $ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2) $ midiOn "^76" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]" $ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8" -- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4)) |* gain (range 0.8 1.2 perlin)
# room (slow 8 $ range 0.2 0.45 saw) # room (slow 8 $ range 0.2 0.45 saw)
# sz (slow 8 $ range 0.8 0.2 saw) # sz (slow 8 $ range 0.8 0.2 saw)
# note (range "-12" 12 "^52") # note (range "-12" 12 "^52")
# dry (slow 4 $ range 0 2 perlin) # dry (slow 4 $ range 0 2 perlin)
# pan 0.6 # pan 0.6
# cut 344 # cut 344
d4 $ g2 -- Resolute Bass # gain 1.2
d4 $ gF2 $ gMute3 -- Resolute Bass
$ superimpose ((# octer 0.7) . (|* gain (0.9 * "^33")) . (# cut 41))
-- $ jux ((# cut 41) . (|+ crush (range 0.5 1 perlin))) -- $ jux ((# cut 41) . (|+ crush (range 0.5 1 perlin)))
$ midiOn "^89" ( -- Glitch vary end $ midiOn "^89" ( -- Glitch vary end
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]]>" 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]]>"
. (# legato "<1!7 [1@3 0.25]>")
) )
$ midiOn "^57" (rev . slice 8 "0 [1 0] 2 <3 0 3 3*4>") -- La morale à l'envers $ midiOn "^57" (rev . slice 8 "0 [1 0] 2 <3 0 3 3*4>") -- La morale à l'envers
$ loopAt 4 $ loopAt 4
$ chop 16 $ chop 16
$ "fbass:25" $ "fbass:25"
# pan 0.15 # pan 0.45
-- # room 0.125 # sz 0.1 # dry 1 # cut 4
# crushbus 41 (range 16 1.25 "^53") # crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 2 d5 $ gF3 $ gM3-- Guitar A/B - La surprise et l'attente
-- # cut 4 $ fix (
d6 -- Guitar A -- L'attente (18=0) TODO Rework? mask "<f!7 <t f>>"
$ g2 . ("0.175" ~>) -- Calage
$ mask "<f!3 t>" . (whenmod 4 2 (slice 8 "0"))
$ ("0.175" ~>) -- Calage . slice 5 4
$ whenmod 4 2 (slice 8 "0") -- . segment 16
$ slice 5 4 . (# "fguitar:24")
$ segment 16 ) "guitarA"
$ "fguitar:24" $ fix (
whenmod 4 3 (# silence)
. midiOn "^90" (# n "25")
. midiOn "^58" ( (# n 27))
. midiOff "^58" (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)
. (# leslie "^34")
. (# lsize (1 + (slow 16 perlin * 2)))
. (# crushbus 71 (range 10 2 "^54"))
. (# lrate 6.7)
-- . (# cut 61)
) "guitarB"
$ "[guitarA,guitarB]"
# pan 0.8 # pan 0.8
# crushbus 51 (range 10 3.5 "^54") # crushbus 51 (range 10 3.5 "^54")
# midiG' "^82" 0 (1 * (range 1.2 0.5 "^18")) # cut 5
# cut 6 d7 $ gF3 $ gMute3 -- Clave de l'été pitchable
d7 -- Guitar B -- Le run (18=127)
$ g2
$ whenmod 4 3 (# silence)
$ midiOn "^90" (# n "25")
$ midiOn "^58" (
(# n 27)
)
$ midiOff "^58" (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
# crushbus 71 (range 10 2 "^54")
# midiG' "^82" 0 (1 * (range 0 1.4 "^18"))
# leslie "^34"
# lsize (1 + (slow 8 perlin * 2))
# lrate 6.7
# cut 71
d8 $ g1 -- Clave de l'été pitchable
$ midiOn "^59" (fast 2) $ midiOn "^59" (fast 2)
$ midiOn ("^91" - "^59") (fast 2) $ midiOn ("^91" - "^59") (fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1") $ (|* gain "0.75 1 1 1 0.75 1 1 1")
$ "d ~ ~ d d ~ d <~!3 d>" $ "d ~ ~ d d ~ d <~!3 d>"
# "[<808lc!6 808hc!2>,<~!4 808mc!4>]" # "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
# speed (range 0 2 "^55") # speed (range 0 2 "^55")
# midiG' "^83" 0 1.8 # gain 1.7
d10 $ g2 -- Nappes crushées indépendantes d8 $ gF1 $ gM1 -- I WANT THEM DRUMS
$ midiOn "^92" --BOUTON NASSIM
(
chop 16 .
(loopAt 0.5) .
(# "breaks165")
-- . (# cut 2)
. (|* gain 1.1)
)
$ loopAt 2
$ midiOff "^60" (mask "t(4,8,1)")
$ chop 8
$ "jungle_breaks:45" # cut 8
# hpf 5000
d9 $ gF3 $ gM3 -- Nappes crushées indépendantes
$ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>") $ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>")
-- $ superimpose ((|- note 12) . (# cut 101)) -- $ superimpose ((|- note 12) . (# cut 101))
$ note (euclid "<5 3 6>" 6 $ note (euclid "<5 3 6>" 6
...@@ -109,24 +117,24 @@ d10 $ g2 -- Nappes crushées indépendantes ...@@ -109,24 +117,24 @@ d10 $ g2 -- Nappes crushées indépendantes
# cut 10 # cut 10
# rel 1 # rel 1
# pan 0.85 # pan 0.85
# crushbus 100 (range 16 0.35 "^36") # crushbus 100 (range 16 0.35 "^19")
# midiG' "^20" 0.2 1.5 # lpf 2000
d11 $ g2 -- Sirene indépendante -- # midiG' "^20" 0.2 1.5
d10 $ gF3 $ gM3 -- Sirene indépendante
$ note ("<e e c e>/4") $ note ("<e e c e>/4")
# octave 3 # octave 3
# legato 2 # legato 2
# "supersiren" # "supersiren"
# speed 0.2 # speed 0.2
# crushbus 110 (range 10 0.1 "^35") # crushbus 110 (range 10 0.1 "^29")
# ampbus 111 (range 0 0.8 "^19") # ampbus 111 (range 0 0.8 "^30")
# pan "<0.2!16 0.8!16>" # pan "<0.2!16 0.8!16>"
# midiG' "^19" 0 1
# room 0.4 # sz (slow 32 $ range 0.125 0.9 saw) # room 0.4 # sz (slow 32 $ range 0.125 0.9 saw)
# dry (slow 32 $ range 0 2 perlin) # dry (slow 32 $ range 0 2 perlin)
# cut 11 # cut 10
d9 $ g1 -- CLAPS! d6 $ gF1 $ gM1 -- CLAPS!
$ "~ c ~ <c!3 c*2>" # "cp" $ "~ c ~ <c!3 <c*2 [c c*2]>>" # "cp"
# midiG' "^84" 0 1.5 -- # midiG' "^84" 0 1.5
d6 $ "seawolf:0/4" d6 $ "seawolf:0/4"
......
live/midi/nova/dnb/bruler_franchement.tidal 0 → 100644
-- euphorie solitaire
-- FIXME NAMING: NOT EUPHORIE
do
-- resetCycles
setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 -- Kick premier`
$ gF1 $ gM2
-- $ midiOn "^42" (off "e" (# "jazz:0"))
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
-- $ fix ((# att 0.5) . (# legato 0.5) . (|- note 6 show )) ("tek_kick:3")
$ "[kick:4]"
# room 0.2 # sz 0.8 # dry 1.1
d2 $ gM1 $ gF1 -- Snare second
-- $ fix (# lpf 4000) "snare"
$ midiOff "^43" (mask "<t!16 f!16>")
$ fix ((|* gain 1.1) . (|- note 2)) ("ab:11")
$ "~ s ~ s*<1!3 2>"
# "[<ab:10!3 ab:11>]"
d3 $ gM1 $ gF1
$ midiOn "^76" (ply 2)
-- $ midiOn "^44" (mask "t([16 <16 [32 64]>],64)" . chop 16 . ply 4)
$ "dr*[8 [<8 <16 [16 <8 32> 16]>>]]"
# "dr" # "h2ogmhh:2"
# gain (fast 8 $ range 0.85 0.95 perlin)
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "8 <4 16>")
$ slice 8 "<7 6>"
$ "meth_bass:0"
# cut 4
# octersubbus 41 (range 0 2 "^33")
# crushbus 42 (range 16 0.85 "^53")
|- note 0.5
# gain 0.6
# room 0.3 # sz 0.5 # dry 0.9
d5 -- Melancolie solitaire
$ midiOn "^58" ( superimpose (
(+ note "12")
. stut 4 0.9 "<e!12 q!4>"
. (# pan 0.3)
. (|* gain 0.8)
. mask "t(1,8) t(1,8) t(1,8) t(1,8)")
)
$ slow 2
$ note (
-- Montee: "<a5 g5 f5 e5 f5 e5 d5 a4>"
-- Descente: "<d5 e5 f5 g5 d5 e5 g5 a5>"
(fast 4
"<a5 g5 f5 e5 f5 e5 d5 a4 a5 g5 f5 e5 f5 e5 d5 a4 d5 e5 f5 g5 d5 e5 g5 a5 d5 e5 f5 g5 d5 e5 g5 a5>" - 12
)
+| "0(3,8) 0(3,8,<0!7 1>) 0(3,8) <0(3,8) 0>")
# "FMRhodes1"
# pan 0.7
# modIndex (range 0 5 "^54")
# gain 1.2
d6 $ gF2 $ gM3
-- $ slice 4 "0 1 2 3"
$ whenmod 4 3 (|- note "0 <4 6>")
$ slice 4 "2 <3!1 <1 1>>"
$ "meth_bass:0"
# cut 6
# pan 0.8
|* gain "0.85 1.1"
# room 0.2
# gain 0.5
# octersubbus 61 (range 0 1 "^30")
-- TODO Make d7 the new d9 and another lead in d7
d7 $ gF3 $ gM3
$ note ("<d g f a>" + "[0,7]" - 12)
# "moogBass"
# pan 0.3
# room 0.2
d8 $ gF1 $ gM1 -- BREAK THAT SHIT
$ midiOn "^60" (slice 8 $ run 16)
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
$ chop 8
$ midiOn "^36" (loopAt 1 . (# "jungle_breaks:72")) -- Sables mouvants
$ midiOn "^56" (loopAt 1 . (# "jungle_breaks:19")) -- Break sable noir
$ loopAt 2
$ "jungle_breaks:22" -- Sable blanc
# lpf 4000
live/midi/nova/dnb/drums_I_presume.tidal 0 → 100644
do
-- resetCycles
setcps (74/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ fast 2
$ gF1 $ gM2
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k <k <[k k*2] [k*2 k]>>")
$ superimpose ((|* gain "^30") .(# "tek_kick:3"))
$ "[jazz,rampleA0:1]"
d2 $ gM1 $ gF1
$ "~ s ~ s*<1!3 2>"
# "snare:40"
# note "-4"
# lpf 3000
d3 $ gM1 $ gF1
$ "drum:2*[[24 <8 12 16 24> 32 16 32 16 32 8] 8]"
d4 $ gM3 $ gF2
$ midiOn "^89" (ply 2)
$ note ("<e3 <b2 fs3 a3 b3>>" + "0 . <5 -4>([3 <1 <3 5>>],8)")
# "bassWarsaw"
# crushbus 41 (range 16 5 "^53")
# cut 4 # gain 0.8
d5
$ midiOn "^58" (rev)
$ fast 2
$ note ("<b3 c4 cs4 c4>" )
# crushbus 51 (range 16 3.5 "^54")
# "FMRhodes2"
d8 $ gF1 $ gM1
$ loopAt 1
$ chop 8
$ midiOn "^56" (# n 52)
$ midiOff "^56" (slice 4 "<[0 1]!3 [0 1 2 3]>")
$ "jungle_breaks:65"
# gain 0.8
# lpf 4000
d9 $ gF3
$ fix (>| "bond:9") "d"
$ fix (>| "bond:8") "c"
$ fix ((# end "<0.5 1>") . (>| "bond:7")) "just_a_drink"
$ fix (>| "bond:6") "2martinis"
$ "<~ ~ ~ just_a_drink ~ ~ <2martinis d> ~>"
# cut 9
# gain 0.8
d10 $ gM3 $ gF3
$ slice 8 "<0!3 [2 3]>"
$ "bond:1"
# cut 9
d11 $ gF3 $ gM3
$ "bond:11"
# cut 11
# gain 1
live/midi/nova/dnb/force_motrice.tidal 0 → 100644
-- Atelier de force motrice
do
-- resetCycles
setcps (125/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 -- Kick premier`
$ gF1 $ gMute2
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k k")
$ superimpose ((|* gain "^30") .(# "tek_kick:3"))
$ "[kick:4]"
# lpf 5000
# gain 0.9
d2 $ gM1 $ gF1 -- Snare second
$ fix (# lpf 4000) "snare"
$ midiOff "^43" (mask "<t!16 f!16>")
$ "~ s ~ s*<1!3 2>"
# "[rampleM8:8,snare:45]"
# note "-2"
d3 $ gM1 $ gF1
-- $ midiOn "^44" (mask "t([16 <16 [32 64]>],64)" . chop 16 . ply 4)
$ "hh(3,8) hh(<3!3 5>,8)"
# "rampleM8:4"
# gain (fast 8 $ range 0.85 0.95 perlin)
d4 $ gMute3 $ gF2 $ chop 16 $ loopAt 4
$ midiOn "^89" (slice 4 "2*2 ")
$ "nujazz_bass125:1"
# cut 4
# octersub (slow 32 $ range 0 0.9 sine)
-- # room (slow 32 $ range 0.2 0.8 cosine)
-- # dry 1.3
# pan 0.3
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.94 "^33")
# gain 1.2
-- # sz (slow 8 $ range 0.7 0.1 sine)
d5 $ gM3 $ gF3
$ midiOn "^58" (off 0.125 id . rev)
$ note ("[g@2 ~!4 <f ~ as5 c6>]" - 12)
# crushbus 51 (range 16 5 "^54")
# modIndex (range 0 2 "^34")
# "FMRhodes1"
# gain 1.2
-- # room 0.2
-- # legato 0.25
d7 $ gM3 $ gF3
$ midiOn "^59" (struct "<t(3,8)!3 [t(3,8) t(<3!3 5>,8)]>")
$ note ("<c g <ef!3 as> f>"
-- - 12
)
# pan 0.9
# room 0.4
# "giorgio_syn:22"
# crushbus 71 (range 12 3.4 "^55")
# cut 7
# gain 0.7
d8 $ gM1 $ gF1
$ midiOn "^60" (ply "1 <2 4>")
$ midiOn "^92" (iter "1 <1 4>")
$ midiOn "^36" ((|* gain 0.9) . loopAt 2 . (# "jungle_breaks:16"))
$ midiOn "^56" ((|* gain 0.9) . loopAt 0.5 . (# "jungle_breaks:36"))
$ chop 16
$ loopAt 2
$ "break:2"
# gain 0.8
d10
$ slice 8 (slow 8 $ run 8)
$ loopAt 2
$ "risers:16"
-- # end 0.8
# att 0.04
# rel 4
# room 0.8
# cut 10
d9
$ n "<~ ~ 27 ~ ~ ~ ~ <29 21>>"
# "jungle_vocals"
# cut 9
# gain 0.6
# room 0.4
d11 $ gF3 $ gM3
$ whenmod 64 32 (superimpose (
(stut 4 0.65 "e")
. (# n 3)
. (|* gain 0.9)
. (# cut 110)))
$ note "<c5 <g4!8 ef5!8> <bf4 bf4 bf4 ds4> <ef4 ef4 ef4 d4>>"
# "cbow:2"
# cut 11
d6 $ gM3 $ gF2 $ note
(
"<g4 c4 ds4 <ds4 f4>>"
- 5 -- calage
+ 24
)
# "meth_bass:3"
# cut 6
# gain 0.5
live/midi/nova/dnb/golden_drum.tidal 0 → 100644
do
setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "[rampleA2:0]"
d2 $ gF1 $ gM1
$ midiOn "^43" (struct "~ t ~ <t <t*2 [~ t]>>")
$ midiOff "^43" (struct "~ ~ t ~")
-- $ fix (|+ note 2) "snare"
$ "[rampleA2:10]"
# lpf 2000
# rel 0.35
d3 $ gF1 $ gM1 -- Scintillement de claquements de doigts
$ whenmod 8 6 (superimpose ((# n "13") . (# room 0.4) . (|* gain 1.1)))
$ midiOn "^44" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
$ "~ <~!4 c!4> ~ c ~ <~!3 c ~ c!3> ~ <~!4 c!4>"
# "rampleC5:15"
# hpf 5000
# att 0.0
# rel 0.2
# dry 1
# room 0.2
d7 $ gF2 $ gM3 -- Piano magique guide eternel
$ midiOn "^91" (ply 8)
$ slice 8 (slow 4 $ run 4 + "<0!16 4!16>")
$ "suns_keys"
# n (slow 4 $ "<0 1 2 3>")
# crushbus 71 (range 16 3.3 "^55")
# lesliebus 72 (range 0 1 "^35") # lrate 0.92 # lsize 3.9
# pan 0.7
# cut 7
# gain 0.8
d5 $ gM3 $ gF3
$ midiOn "^58" (superimpose (
arp "<up!4 down!4>"
. someCyclesBy "<0.2!3 0.6 0.2!3 0.6 0.6!3 0.2 0.8!3 0.2>" (mask "t(3,8)")
. (|+ note "[17,24,12,0]"))
. (|* gain 0.7)
. (# pan 0.8)
)
$ note (
"<[fs3@2 gs3] <a3!1 ff3 a3 cs3>>"
+ (arp "up" "c'min'2")
)
# "FMRhodes1"
# modIndex (range 0 5 "^54")
# pan 0.4
# room 0.4
# dry 1.52
# sz 0.7
# gain 1.2
d6 $ gM3 $ gF2
$ midiOn "^89" (striate 2)
$ chop 8
$ "meth_bass:3"
# note ("<<a cs6> fs>"
+ "7" -- calage
- 12)
# cut 6
# gain 0.5
# room 0.3
# pan 0.35
d9 $ gM3 $ gF3
$ mask "t(<1!4 2!4 8!4 2 1 8 8 8 8 2 8 8 1 2 8 8!8>,8)"
$ swingBy "q" 4
$ superimpose ((|+| note ("[0 7 12 <0 0 7 <0 12>>]" + 12)) . (# cut 91))
$ note ("<c fs4 <a4 [a4@3 b4]> fs4>" - 12)
# "moogBass"
# cut 9
# lpf 3000
# chorus (range 0 1.8 "^20")
# room 0.4
# gain 0.5
d8 $ gF1 $ gM1 -- Drums of Love <3
$ chop 16
$ loopAt 2
$ midiOn "^92" (loopAt 0.5 . (# "breaks165")) -- BOUTON NASSIM <3
$ midiOn ("^36" - "^92") (loopAt 2 . (# "jungle_breaks:1"))
$ "jungle_breaks:6"
# gain 0.9
# cut 8
d10
$ someCyclesBy "<1>" (superimpose (
(|+ note 12)
. (0.5 ~>)
. (stut 4 1 0.25)
. (# cut 101) . (# att 0.8) . (# rel 2)
))
$ "suns_voice:2/4"
# crushbus 101 (slow 16 $ range 516 5.5 perlin)
# cut 10
fs gs a x3 fs gs c fs gs g
-- GRAVEYARD FROM STOLEN BITS OF SUNS OF GOOOOOLD
d11 $ gF3 -- Angels of deception
$ slow 2
-- $ mask "<[f f t] t!3>"
-- $ mask "<[f f t] t!3>"
$ struct "t(<3 5>,8) ~"
$ note ("[gs3 g3 fs3] ~" + 12 + "[0,<12!2 7!2>]")
-- $ note "<fs3>"
# "moogBass"
# legato 4
# modIndex (slow 16 $ range 0 5 perlin)
# room 0.4
# att 0.24
# rel 2
# gain 0.8
d12 $ gF2 $ gM3 -- Devils of delusion
$ someCyclesBy (slow 16 $ range 0 0.8 saw) (ply "1 2!6 <2 1>")
$ slow 2
$ struct "t(<3 5>,8) t(5,8)"
-- $ superimpose ((|+ note "<12!2 7!2>") . (# cut 121))
$ note ("[cs d fs] <~!4 [fs [d cs6] ~]!12>")
-- $ note "0"
# "moog:1"
# legato 0.8
# pan 0.8
# room 0.2
# crushbus 121 (slow 4 $ range 16 3.5 perlin)
# cut 12
# gain 0.9
d8 $ gF1 $ gM1
$ midiOn "^36" (loopAt 0.25 . iter "<1!8 [1 4]!4 4>" . (# "breaks165"))
$ midiOn "^56" (struct "t([<4 4 5 4> <4 5 5 8>],8,1)" . (>| n "44 45"))
$ midiOn "^60" (loopAt 0.5)
$ midiOn "^92" (ply "1 2 <1 2> <2 4>")
$ midiOn "^92" (# "breaks165") -- BOUTON NASSIM <3
$ chop 16
$ loopAt 4
$ "jungle_breaks:45"
d6
-- $ loopAt 8
$ chop "4 8"
$ note "<[fs,a,cs] [gs,c,ds] [g,b,d] [fs,a,cs]>"
# "giorgio_syn:43"
-- # cut 6
# pan 0.8
-- # crushbus 61 (range 16 4.5 "^31")
-- # hpfbus 62 (range 0 1500 "^31")
# gain 0.65
d7 $ gF3 $ gMute3 -- La guitare d'Icare
$ midiOn "^91"(ply 2)
$ midiOn "^59" (# n 1)
$ fix (|* gain 0.8) (n "1")
$ loopAt 2
$ superimpose ((# lpf 2500) . (# cut 71))
$ chop 8 $ "suns_guitar:0"
-- # n "<0!4 2!3 3 2!3 3 3!3 <2 3>>"
# n "<0 0 0 1 0 1 0 1 2 2 2 3 2 3 0 3>"
# crushbus 71 (range 16 8.5 "^55")
# lpfbus 72 (range 20000 5000 "^55")
-- # octerbus 73 (range 0 1 "^35")
# hpf 1200
# cut 7
# gain 0.9
d9 $ gF3 $ gMute3 -- VOICES OF SUNS
$ midiOn "^17" ((>| n "<2 ~>") . (|* gain 1.1))
$ whenmod 64 48 (# n 3)
$ slice 2 "<0 <0 1> <0 0 [1 0] 1> 1>/2"
$ "suns_voice:0"
# end "<0.1 0.3 1 1>"
# n "<0!8 1 [1 0] [1 0 0 1] 1 1 [0 1] [1 0 1 1] [1 1 0 1]>"
# hpfbus 91 (range 0 5500 "^19")
# crushbus 92 (range 16 4.5 "^18")
# roombus 93 (range 0.1 0.9 "^18") # sz 0.9
# cut 7
# pan (slow 32 $ sine)
d10 -- Decoration
$ fix (
(loopAt 4) . gMute . gMute2
. mask "<f!24 t!8>"
. (# gain 0.8)
. (# speed 0.5)
. (# cut 102)
) "risers" -- Riser occasionnel
$ fix (mask "<f!3 t f!4 f!3 t f!3 t t!3 f t!2 f f t f!3 t!4>"
. (# cut 101)
. (# gain 0.2)
. (# pan "<<0.2!3 [0.2|0.7]> <0.8!3 [0.8|0.3]>>")
. (# speed "<0!24 -1!8>")
) "suns_voice" -- Whisper
$ stack ["risers:19/2", "suns_voice:2"]
# room 0.2
live/midi/nova/dnb/nouveau_soleil.tidal
do do
setcps (110/60/4) setcps (110/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gMute2 = (midiOn "^74" (mask "f*16"))
d1 $ gF $ gMute let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k [<~ k?> k]>") $ midiOn "^42" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^42" (<| "k . ~ k ~ <~!7 k>") $ midiOff "^42" (<| "k . ~ k ~ <~!7 k>")
$ "[techno:0,808bd:2,909,kick:4]" $ "[techno:0,808bd:2,909,kick:4]"
-- $ "[jazz,kick:4]" # gain 0.9
# midiG' "^78" 0 1.2 d2 $ gF1 $ gM1 -- Snare FOU
d2 $ gF $ gM -- Snare FOU $ superimpose (# lpf 5300) -- Double bass
$ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>") $ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>")
$ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>") $ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^43"- "^75") (<| "~ s") $ midiOff ("^43"- "^75") (<| "~ s")
$ "[sn:25,gretsch:4]" $ "[sn:25,gretsch:4]"
# note (range "-4" 4 "^51") # note (range "-4" 4 "^51") show
# lpf 5300 # gain 0.7
# midiG' "^79" 0 1.2 d3 $ gF1 $ gM1
d3 $ gF $ gM
$ midiOn "^44" (ply "1 2 1 <2 <1 4>>") $ midiOn "^44" (ply "1 2 1 <2 <1 4>>")
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ ply "1 . 1 <<2 1> [<4 [4 2]> 1]>" $ ply "1 . 1 <<2 1> [<4 [4 2]> 1]>"
$ "dr:2*8" $ "dr:2*8"
# midiG' "^80" 0 1.2 # gain 0.8
-- # midiG' "^80" 0 1.2
# pan (0.3 - 0.2 * perlin) # pan (0.3 - 0.2 * perlin)
d4 $ gF2 $ gMask d4 $ gF2 $ gM3
$ midiOn "^89" (ply "<4!3 [4 8]>") $ midiOff "^57" (midiOn "^89" (ply "<4!3 [4 8]>"))
$ chop 16 -- $ midiOn "^57" (midiOn "^89" (slice 4 (run 8)) . chop 8)
-- $ midiOn ("^89" - "^57") (fast "2" . slice 16 ("[0 1 2 3]*<4 8>" + (slow 2 "<0 4 8 12>")))
-- $ midiOff "^57" (midiOn 1 (slice 16 (("[0 1 2 3]*<2!8 4!8>" + "<0 12 0 8>"))))
-- $ midiOff "^89" (chop 16)
$ chop 4
$ loopAt 4 $ loopAt 4
$ midiOn "^57" (# "bass_gameboy:5") $ midiOn "^57" (# "bass_gameboy:5") -- Sad truth pattern
$ "bass_gameboy" $ "bass_gameboy"
# cut 4 # cut 4
# midiG' "^81" 0 1.2 # gain 0.9
d5 $ gF3 $ gMask -- La pluie d'étoiles d5 $ gF3 $ gM3 -- La pluie d'étoiles
$ whenmod 64 32 (off "q" ((|+ note 12) . (# pan 0.8))) $ whenmod 64 32 (off "q" ((|+ note 12) . (# pan 0.8)))
$ whenmod 32 16 (off "e" ((|+ note 9) . (|+ pan 0.1))) $ whenmod 32 16 (off "e" ((|+ note 9) . (|+ pan 0.1)))
$ whenmod 16 8 (off "h" ((|+ note 12) . (# pan 0.8))) $ whenmod 16 8 (off "h" ((|+ note 12) . (# pan 0.8)))
...@@ -44,19 +52,26 @@ d5 $ gF3 $ gMask -- La pluie d'étoiles ...@@ -44,19 +52,26 @@ d5 $ gF3 $ gMask -- La pluie d'étoiles
$ "synth_gameboy:5" $ "synth_gameboy:5"
# pan 0.2 # pan 0.2
# hpfbus 51 (range 0 8000 "^34") # hpfbus 51 (range 0 8000 "^34")
# midiG' "^82" 0 0.9 # gain 0.9
d6 $ gF3 $ gMask -- La corne de l'espoir d6 $ gF3 $ gM3 -- La corne de l'espoir
$ whenmod 8 6 (juxBy 0.8 (rev . (# cut 61))) $ whenmod 8 6 (juxBy 0.8 (rev . (# cut 61)))
$ slice 8 ("<0 0 1 <[1 1] [2 <~ 2> 3 <~ 3>]>>") $ slice 8 ("<0 0 1 <[1 1] [2 <~ 2> 3 <~ 3>]>>")
$ loopAt 2 $ loopAt 2
$ "synth_atari:5" $ "synth_atari:5"
# cut 6 # cut 6
# gain 0.8 # gain 0.8
# midiG' "^83" 0 0.9 d7 $ gF2 $ gM3
d8 $ gF $ gMask $ superimpose (|+ note "[0,7]")
$ note "<fs3 b4 a4 cs5 fs4 e4 d4 cs5 fs3 b4 a4 cs5 fs4 b5 a5 cs6>"
# "moogBass"
# octer 0
# octerbus 72 (range 0 1 "^35")
# roombus 71 (range 0.3 1.2 "^55") # dry 1.8 # sz 0.7
# gain 0.8
d8 $ gF1 $ gM1
$ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11")) $ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38")) $ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
$ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41))) -- $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4) $ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<1 [2 <2 4>]>") $ midiOn "^92" (ply "<1 [2 <2 4>]>")
$ midiOn "^60" (ply 2) $ midiOn "^60" (ply 2)
...@@ -65,4 +80,4 @@ d8 $ gF $ gMask ...@@ -65,4 +80,4 @@ d8 $ gF $ gMask
$ "breaks165" $ "breaks165"
# cut 4 # cut 4
# pan 0.7 # pan 0.7
# midiG' "^84" 0 1.2 # gain 1.2
live/midi/nova/dnb/venons_ensemble.tidal
do do
setcps (85/60/4) setcps (85/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
d1 $ gF $ gMute2 -- Kick variable let gM3 = gMask . gMute3
$ midiOn "^75" (fast 2) d1 $ gF1 $ gMute2 -- Kick variable
$ midiOn "^76" (fast 2)
$ midiOn "^42" (struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK $ midiOn "^42" (struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente -- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (fast 2 . struct "t . ~ t ~ ~") $ midiOff "^42" (fast 2 . struct "t . ~ t ~ ~")
$ fix (|* gain 0.8) "kick:4" $ fix (|* gain 0.9) "kick:4"
$ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif! -- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
-- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable -- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
-- $ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb $ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb
# midiG' "^78" 0 1 # gain 1.3
d2 $ gF $ gMute $ fast 2 -- Snare dnb assorti d2 $ gF1 $ gMute $ fast 2 -- Snare dnb assorti
$ midiOn "^42" ( -- STAY FOR THE SNARE $ midiOn "^42" ( -- STAY FOR THE SNARE
(<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>") (<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>")
. (# "[snare:57,909:2]") . (# "[snare:57,909:2]")
...@@ -31,16 +33,14 @@ d2 $ gF $ gMute $ fast 2 -- Snare dnb assorti ...@@ -31,16 +33,14 @@ d2 $ gF $ gMute $ fast 2 -- Snare dnb assorti
# room 0 # room 0
# note "-2" # note "-2"
# legato 0.5 # legato 0.5
# midiG' "^79" 0 1.2 d3 $ gF1 $ gMute2
d3 $ gF $ gMute2
$ midiOn "^44" (ply "1 2") $ midiOn "^44" (ply "1 2")
$ midiOn "^76" (ply "<2 [2 4]>") $ midiOn "^76" (ply "<2 [2 4]>")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh" $ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]" $ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>" # n "0!3 <0!3 1>"
# pan 0.35 # pan 0.35
# midiG' "^80" 0 1 d4 $ gF2 $ gMute3 -- COME WITH THE BASS
d4 $ gF2 -- COME WITH THE BASS
$ superimpose (const $ gF2 $ superimpose (const $ gF2
$ whenmod 16 8 (rev . chop 4) $ whenmod 16 8 (rev . chop 4)
$ n "[19 <21!3 <20 22>>]" $ n "[19 <21!3 <20 22>>]"
...@@ -61,9 +61,9 @@ d4 $ gF2 -- COME WITH THE BASS ...@@ -61,9 +61,9 @@ d4 $ gF2 -- COME WITH THE BASS
# room 0 # room 0
# dry (slow 64 $ range 0.2 2.8 cosine) # dry (slow 64 $ range 0.2 2.8 cosine)
# sz 0.035 # sz 0.035
# octer 0.4
# pan 0.2 # pan 0.2
# midiG' "^81" 0 1 d5 $ gM3 $ gF3 -- Sky's guitar
d5 $ gM2 $ gF3 -- Sky's guitar
$ midiOn "^90" (ply "2 <2 <4 8>>") $ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (>| n "<3 ~ 3 ~>") $ midiOn "^58" (>| n "<3 ~ 3 ~>")
$ n ("<0!3 [0 1] 0!3 [0 1] 0!3 [0 1] 2!4>") $ n ("<0!3 [0 1] 0!3 [0 1] 0!3 [0 1] 2!4>")
...@@ -73,41 +73,37 @@ d5 $ gM2 $ gF3 -- Sky's guitar ...@@ -73,41 +73,37 @@ d5 $ gM2 $ gF3 -- Sky's guitar
-- # speed 1.25 -- # speed 1.25
# room 0.2 # sz 0.3 # dry 1.2 # room 0.2 # sz 0.3 # dry 1.2
# crushbus 51 (range 16 5.5 "^54") # crushbus 51 (range 16 5.5 "^54")
# midiG' "^82" 0 1.3 # gain 1.3
d6 $ gM2 $ gF3 -- Sky's companion d11 $ gM3 $ gF3 -- Sky's companion
$ midiOn "^58" (mask "f") $ midiOn "^58" (mask "f")
-- $ mask "<f!8 t!24>" -- $ mask "<f!8 t!24>"
$ slice 8 ("0 1*<1!3 8> 2*<1 2> 3*<1 1 4 16>" + "<0 4>") $ slice 8 ("0 1*<1!3 8> 2*<1 2> 3*<1 1 4 16>" + "<0 4>")
$ "come_guitar" $ "come_guitar"
# n "3" # n "3"
# cut 6 # cut 11
# pan 0.9 # pan 0.9
# midiG' ("^82" * "^34") 0 0.8
d7 $ gF3 -- together yeah! d7 $ gF3 -- together yeah!
$ midiOn "^91" (>| n "~ ~ ~ 11") $ midiOn "^91" (>| n "~ ~ ~ 11") -- Shew
$ someCyclesBy ("^35" - "^59") (>| n "<0 1 2 3 4 5 6 7>/2") $ someCyclesBy ("^35" - "^91") (>| n "<0 1 2 3 4 5 6 7>/2") -- Buildup
$ midiOn ("^59" - "^91") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- COME <3 $ midiOn ("^59" - "^91") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- Reponse: COME <3
$ midiOff ("^59" + "^91" + "^35")-- YEAH $ midiOff ("^59" + "^91" + "^35") -- Default: YEAH
(>| n "~ ~ ~ <~!3 <13 <14 17> <15 18> <16 19>>>") (>| n "~ ~ ~ <~!3 <13 <14 17> <15 18> <16 19>>>")
$ "come_voice" $ "come_voice"
# crushbus 71 (range 16 "<5 10>" "^55") # crushbus 71 (range 16 "<5 10>" "^55")
# hpfbus 72 (range 0 3500 "^55") # hpfbus 72 (range 0 3500 "^55")
# cut 7 # cut 7
# midiG' "^83" 0 0.8 d8 $ gM $ gF1 -- Angel Breaks
d8 $ gM $ gF -- Angel Breaks
$ midiOn "^92" (ply "<2 2 4 8>") $ midiOn "^92" (ply "<2 2 4 8>")
$ midiOn "^60" (mask "f <t t f t>") $ midiOn "^60" (mask "f <t t f t>")
$ chop 8 $ chop 8
$ someCyclesBy "^20" ((loopAt 1) . (# n 7)) -- $ someCyclesBy "^20" ((loopAt 1) . (# "break:15"))
$ someCyclesBy "^36" (# n 70) $ someCyclesBy "^36" ((loopAt 1) . (# n 30))
$ someCyclesBy "^56" (slice 8 "0 1 2 3 4 5 6 7" . (loopAt 0.5) . (# n 4)) $ someCyclesBy "^56" (slice 8 "0 1 2 3 4 5 6 7" . (loopAt 0.5) . (# n 4))
-- $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3")) -- $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:1" $ "jungle_breaks:1"
# cut 8 # cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4" # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1
d10 $ loopAt 2 $ fast 2 $ "<~!6 risers ~>" d10 $ loopAt 2 $ fast 2 $ "<~!6 risers ~>"
# cut 10 # cut 10
# midiG' "^13" 0 0.7
# lpf 5000 # lpf 5000
live/midi/nova/fusion/coworking.tidal 0 → 100644
do
setcps (100/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*<1 2>" )
$ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!6 3 3>)" )
$ "[jazz]"
d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ ~ ~ sn")
$ midiOn "^43" (<| "~ s ~ s")
$ "[snare:21]"
# gain 0.7
d3 $ gF1 $ gM1 $ "dr*[8 8 8 <4 4 8 16>]"
# "hh:7" # legato 0.25 # cut 3
|* gain (range 0.95 1.1 (fast 2 perlin))
d4
$ arp "up" $ note ("[e5 e5 <e5 f5 a5 c6>] <a4!7 a5>@3" + 3.6)
# "jungle_bass:4"
# begin 0.35
# lpf 5000
# cut 4
d5 $ gM3 $ gF3
-- $ someCyclesBy "0.2" (mask "t(3,8)")
-- $ arp "up"
$ note ("<[<a@3 [a c4]> [gs <a!3 ds> gs]] e>"
+ "[0,12]"
|+| "0 12 0 12*<1!3 2>"
)
# "marimba1"
# gain 1.2
# pan 0.6
# room 0.8 # sz (slow 16 $ range 0.8 0.2 saw)
# legato 0.5
# octerbus 51 (range 0 0.8 "^54")
-- # velocity 0.8
d8 $ gF3 $ gM1
$ chop 16
-- $ midiOn "60" (ply 2)
$ loopAt 2
$ "break:4"
# pan 0.2
# gain 0.8
a bf c ds e f gs
live/midi/nova/fusion/qui_sait.tidal 0 → 100644
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (struct "t t t <t!3 t*2 t t [~ t] t>")
$ "[techno:0,kick:4]"
d2 $ gF1 $ gM1 $ "~ h2ogmcp:1"
# room 0.2 # dry 1.1 # sz 0.1
d3 $ gF1 $ gM1
$ midiOn "^44" (fast 2)
$ "hh(<3!3 5>,8,<0!6 1 2>)"
d4 $ gF2 $ gM3 -- Basse Fantome
$ superimpose ((|- note 24) . (|* gain 0.8) . (# "bassWarsaw") . (# cut 41) . (# crush 16))
$ note ("<[a3@2 e4@3] [b3@2 d4@3] [c4@2 e4@3] [<b3 f4>@7 g3]>" + "12")
# "wobble"
# room 0.4 # sz 0.8
# pan 0.3
# gain 1.9
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 2 "^33")
d5 $ gF3 $ gM3 -- LASER SALVATEUR
$ midiOn "^90" (slice 4 (run "<4!3 8>. <4 8> <4 8 8 16>"))
$ chop 4
$ "synth_atari/4"
# n "<23!0 <24 25 24 23>!16>"
# n 23
# cut 4
# room 0.5
# dry 1.5
# sz 0.6
# pan 0.8
# octersubbus 51 (range 0 2 "^34")
# octersubsubbus 52 (range 0 1.2 "^34")
# crushbus 53 (range 16 2 "^54")
# att 0.2 # rel 3.2
d8 $ gF1 $ gM1
$ midiOn "^56" (loopAt 4)
-- $ midiOn "^92" (ply "2 <2 4 4 [16 . 8 4]>")
$ midiOn "^92" (ply "<2 4> <4 8>")
$ chop 8
$ loopAt 2
$ "jungle_breaks:45"
# gain 0.8
d9
$ chop 8
$ "90s_synatm:0/4"
# room (slow 16 $ range 0.2 0.8 sine) # sz 0.5
# crush (segment 8 $ range 14 5.2 (slow 8 perlin))
# att 2
# rel 10
# cut 9
d10
$ gF3 $ gM3
$ someCyclesBy "<0!32 1!32>" (>| note ("<c5 b4 a4 e4>" - "g"))
$ someCyclesBy "<1!32 0!32>" (>| note ("<c4(<1!8 <3!3 [3 <5 8>]>!24>,8) <d4!4 f4!4> e4 <c4 f4 c4 a4>>" - "g"))
$ "90s_synatm:5"
# cut 10
# room 0.4
live/midi/nova/grunge/le_bruit_des_bots.tidal 0 → 100644
once $ note ("c e g" + "24" - 6) # "jungbass:2" # cut 1
do
setcps (82/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 $ "jazz*4"
d2 $ gF1 $ gM1 $ "~ <sn cp> ~ <sn cp*<0 1 1 2>>"
d3 $ "hh*[8 16]"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^57" (superimpose (
struct "t(3,8) t(<1 3 5 <3 [5 8]>>,8)"
. arp "up" . (|+| note "c'minor'3")))
$ ("q" <~)
$ note (slow 2 $ "<bf5 d6> b5@3 d6 <fs5 g5 fs5 bf5>@3")
# "bassWarsaw" |- note 36
-- # "jungbass:2" |- note 6 -- TODO sound design
# cut 4
# pan 0.8
# squizbus 41 (range 0 8 "^53")
# octersubbus 42 (range 0 1 "^33")
# legato 2 # lpf 4000
# gain 1.4
d5 $ gF3 $ gM3
$ slice 4 ("<0!0 0(<3 [3 5]>,8)!8>")
$ note "<b fs b <g fs5>>"
-- |+ note "0 <4 0 3 2>"
# "90s_synatm:3"
# cut 5
d8 $ gF1 $ gM1 -- UNAVOIDABLE 90s BReak
$ loopAt 0.5
$ slice 4 "0 <1 <~!4 1!4>> 2*<1!4 2!4 2 2 4 4> <1!3 3>*<1!4 1 1 2 2>"
-- $ chop 8
$ "breaks165"
d9 $ gF3 -- Winds of change
$ note "<b fs b g>"
# "90s_synatm:0"
# room 0.2 # sz 0.8 # dry 0.5
# lpf 2000
# cut 9
live/midi/nova/lofi/lendemain_divin.tidal
once $ "bassWarsaw" # gain 2
-- Lendemain Divin -- Lendemain Divin
do do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
...@@ -8,23 +6,28 @@ let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) ...@@ -8,23 +6,28 @@ let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (95/60/4) setcps (95/60/4)
d1 $ gMute d1 $ gMute2 $ gF1
$ fix (|* gain 0.9) "kick:5" $ fix (|* gain 0.9) "kick:6"
$ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>") $ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>") $ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>")
$ "[jazz,808bd:3]" -- $ "[techno:0,808bd:2,909,kick:6]"
# midiG' "^78" 0 1.5 $ "[jazz,kick:4]"
d2 $ gMute2 $ gF1 # lpf 6000
# gain 1.5
d2 $ gMute $ gF1
$ midiOn "^43" (fast 2) $ midiOn "^43" (fast 2)
$ midiOn "^75" (# "cp") $ midiOn "^75" (# "cp")
$ "~ s*<1!3 2>" $ "~ s*<1!3 <2 4>>"
# "[snare:32,snare:40]" # "[snare:32]"
# lpf 2000 # note "-4"
# midiG' "^79" 0 1.4 -- # lpf 2000
d3 $ gF1 $ gMute2 # gain 1
d3 $ gF1 $ gMute
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ midiOn "^44" (struct "t*[16!3 <8 [8 <16 32>]>]") $ midiOn "^44" (struct "t*[16!3 <8 [8 <16 32>]>]")
-- $ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]") -- $ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
...@@ -36,9 +39,12 @@ d3 $ gF1 $ gMute2 ...@@ -36,9 +39,12 @@ d3 $ gF1 $ gMute2
# att (slow 16 $ range 0.001 0.04 cosine) # att (slow 16 $ range 0.001 0.04 cosine)
# rel 0.4 # rel 0.4
# room 0.2 # dry 0.9 # room 0.2 # dry 0.9
# midiG' "^80" 0 1.3 # gain 1.05
d4 $ gF2 -- Basse complainte d4 $ gF2 -- Basse complainte
$ midiOn "^89" ((ply "8 <16 [16 8]>") . (# room "0 0.4") . (# sz "1 1.2")) $ midiOn "^89" ((ply "8 <16 [16 8]>")
-- . (# room "0 0.4")
-- . (# sz "1 1.2")
. (# cut 4))
-- $ note "[c3,ef3,g3,as3,d4,f4]" -- $ note "[c3,ef3,g3,as3,d4,f4]"
-- Bassline habituelle -- Bassline habituelle
$ midiOff "^57" ( $ midiOff "^57" (
...@@ -51,67 +57,22 @@ d4 $ gF2 -- Basse complainte ...@@ -51,67 +57,22 @@ d4 $ gF2 -- Basse complainte
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
# room 0.2 # room 0.2
# cut "41 42 43 44" # cut "41 42 43 44"
# midiG' "^81" 0 1.42 # gain 1.42
d6 $ gF3 d7 $ gMute3 $ gF3
$ n "<0 0 <6 5> 0 1 1 2 7>" $ n "<0 0 <6 5> 0 1 1 2 7>"
# "come_guitar" # cut 6 # "come_guitar" # cut 6
# crushbus 61 (range 16 2.5 "^54") # crushbus 61 (range 16 2.5 "^55")
# midiG' "^82" 0 1 # lpfbus 62 (range 10000 7500 "^55")
d8 $ gM2 $ gF3 # room 0.3
d8 $ gM $ gF3
$ midiOn "^92" (ply "<4 4 8 16>") $ midiOn "^92" (ply "<4 4 8 16>")
$ midiOn "^20" (loopAt 4 . (# n 11)) -- Submarine break $ midiOn "^20" (loopAt 4 . (# n 11)) -- Submarine break
$ midiOn "^36" (# "jungle_breaks:45") -- House Orleanaise
$ midiOn "^56" (mask "t [t t <t f> <t!3 f>]" . loopAt 1 . (# n 16) . (# lpf 2500)) -- Jumper's break $ midiOn "^56" (mask "t [t t <t f> <t!3 f>]" . loopAt 1 . (# n 16) . (# lpf 2500)) -- Jumper's break
$ slice 8 "0 1 2 3*<1 2>" $ slice 8 "0 1 2 3*<1 2>"
$ loopAt 2 $ loopAt 2
-- $ midiOn "^36" (# n 1) -- $ midiOn "^36" (# n 1)
$ "jungle_breaks:13" $ "jungle_breaks:13"
# midiG' "^84" 0 1.2
# cut 8
d7 $ gF3
$ ("h" ~>)
$ slice 4 (ply 4 $ slow 4 $ "<0 1 2 3>")
$ "shiloh:14"
# cut 7
# gain 0.7
# midiG' "^83" 0 1.2
d7
$ slice 4 ("<<0 1 2 3>/4>")
$ fast 8
$ "shiloh:14/8"
# cut 7
# gain 0.8
# room "[0.5!3 <0.5 0.9>]" # dry 1.2 # sz 0.5
once $ "dr"
d1 $ gF $ gMute2 -- Kick variable
$ midiOn "^75" (fast 2)
$ midiOn "^42" (struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (fast 2 . struct "t . ~ t ~ ~")
$ fix (|* gain 0.8) "kick:4"
$ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
-- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
-- $ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb
# midiG' "^78" 0 1
d2 $ gF $ gMute $ fast 2 -- Snare dnb assorti
$ midiOn "^42" ( -- STAY FOR THE SNARE
(<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>")
. (# "[snare:57,909:2]")
)
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff ("^43"+"^42") (<| "~ <~!4 c ~!3> ~ c*<1!7 2>")
$ fix (|* gain 0.8) "snare"
$ "[snare:40,bssnare:3]"
# pan 0.6
# room 0 # room 0
# note "-2" # gain 1.2
# legato 0.5 # cut 8
live/midi/nova/lofi/pour_une_hypothese.tidal 0 → 100644
resetCycles
do
setcps(125/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let prog = "<c g f c>"
d1 $ gF1 $ gM2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ "[kick:5,tech:5,jazz]"
# gain 1
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
$ fix ((|* gain 0.8) . (# room 0)) "cp"
$ "[cp]" # room 0.4 # sz 0.5 # dry 1.2
# gain 0.7
-- # lpf 4650
d3 $ gF1 $ gM1 -- Highest hats
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "drum:2*[<6!3 12> <6 [8 <12 24>]>]"
# "h2ogmsn:12"
# cut 3
# legato (range 0.48 1 sine)
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.14 # sz 0.4 # dry 1
# pan "<0.7!16 0.3!16>"
-- # pan 0.8
d4 $ gM3 $ gF2
$ midiOn "^57" (superimpose ( -- Arp up!
struct "t*<4 8>" .
(|+| note (arp "down" "[0,<5 7>,9, 12]")) . (# cut 41))
)
$ midiOn "^89" (ply "2 <4 8>")
-- $ chop 8
$ loopAt 4
$ note (prog - 36 + "0(3,8) 0(<3 5>,8,<0!6 2!2>)")
# "bassWarsaw"
# cut 4
# legato 4
# pan 0.35
# room 0.3
# crushbus 41 (range 12 4.5 "^53")
d5 $ gM3 $ gF3
$ someCyclesBy (slow 8 $ range 0.1 1 saw) (degradeBy "0 1!6 0.5")
$ swingBy ("<1!3 <2 1>>"/3) 4
$ note (prog - 12 + arp "pinkyup" "c'min'4")
# "FMRhodes2"
# cut 4
# legato 4
# pan 0.35
# room 0.3
# modIndex (range 0 50 "^54")
d7 $ gF3 -- Anges du Minitel
$ midiOn "^91" (chop 8)
$ swingBy ("<1!3 2>"/3) 4
$ stut (slow 16 "<0 1 2 3>") 0.75 "e"
$ note ((slow 4 prog) + arp "up" "<c'min'3!3 c>@3 ~")
# pan 0.2
# room 0.4
# "moogBass"
# gain 0.8
d10 $ gF3 $ gM3 -- Anges du Minitel
$ note ((slow 4 prog) + arp "up" "c'min'3(<3 3 <5 3> 5>,8) ~")
# "moogBass"
d8 $ gM1 $ gF1
-- Transforms over samples
$ midiOn "^60" (iter "1 4") -- Split
$ midiOn "^92" (fast 2) -- Multi
$ chop 16
$ loopAt 2
-- Sample selection
$ midiOn "^36" (# n 33)
$ midiOn "^56" (loopAt 1 . (# "break:7"))
$ "jungle_breaks:20"
# cut 8
# pan "<0.3!16 0.7!16>"
# gain 0.78
d5 $ gM3 $ gF3
$ chop 8
$ loopAt 2
$ "nujazz_keys125" # n "<56 56 57 56 58!4 59 59 56 59>"
# cut 5
# pan 0.6
d7 $ gM3 $ gF3
$ chop 8
$ loopAt 2
$ "nujazz_keys125" # n "<66!4 67!4>"
# cut 7
# octerbus 71 (range 0 0.5 "^55")
# pan 0.1
d12 $ gM3 $ gF3
$ slice 4 "<<[0 1 2 3] [0 1 0 1 2 3 2 3]> [0 1 2 3]>"
$ chop 8
$ loopAt 2 $ "nujazz_keys125:44"
# cut 5
# gain 0.8
# pan 0.7
# room 0.2
d11 $ gM3 $ gF3
-- $ (0.5 <~)
$ loopAt 2
$ "nujazz_keys125"
# n "<4!3 5>"
# cut 5
# roombus 110 (slow 16 $ range 0 0.9 saw)
# lpfbus 112 (slow 32 $ range 12000 500 sine)
# att 0.02
# rel 7
# gain 0.9
d10 $ gM3 $ gF3
$ superimpose (
mask "<f!16 t!16>"
. arp "<up [up down]>"
. (|+ note "c'maj'4") . (|* gain 0.75))
$ note ("<c5 g4 <ef4!2 bf4!2> <c4 f4>>" + "0(3,8) 0(3,8)"
-- - 12
)
# "[FMRhodes1]"
# modIndex 1
# room 0.2
# pan 0.45
# gain 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