Skip to content

T
Tidal
Commit d833a65a by PLN (Algolia)
Options

Session: Before Amsterdam <3

parent efafcd5c
Showing with 346 additions and 365 deletions
BootTidal.hs
......@@ -101,6 +101,10 @@ let modIndex = pF "modIndex"
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
-- 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> "
......
copycat/bad_guy.tidal
......@@ -78,7 +78,7 @@ d3 -- Bassline: melodie cut sur la fin du verse
])
# "bass3"
# cut 3
# gain 1.2
# gain 2
d7 -- Claps
$ 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
......@@ -186,7 +186,7 @@ d4 -- Brass voice
# "brass" # "moogBass" -- FIXME RESTORE BRASS SAMPLES!
# legato "<0.75!7 1>"
# room 0.2
# gain 0.8
# gain 0.6
d6 -- synth Chorus
$ note (cat [
"","","","","","","","", -- Intro
......
lib-parvagues/src/Sound/Tidal/ParVagues/Control.tidal
......@@ -10,7 +10,8 @@
midiDJF ch lMin lMax hMin hMax = (_LPF lMin lMax ch) . (_HPF hMin hMax ch)
-- FIXME: Seems to cut some lows when lMin != 0
-- Midi gain control (faders)
midiGGlobal = "^77" * 1.9
midiGGlobal = "^77" * 1.3
_gainG ch = (gain (midiGGlobal * ch)) -- gain Global
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
live/boeuf/biarritz/blue_tuesday.tidal
once $ "dr"
do
setcps (90/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
......@@ -22,34 +24,32 @@ d1 $ gF $ gMute
$ midiOff "^42" (<| "k . k(<3!3 5>,8)")
$ "k"
# "[cpu,jazz,808bd:3,808bd:2]"
# midiG' "^78" 0 1.9
-- # midiG' "^78" 0 1.9
# gain 1.8
d2 $ gF $ gMute
$ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare"
# midiG' "^79" 0 1.3
-- # midiG' "^79" 0 1.3
d3 $ gF $ gMute2
$ midiOn "^76" (ply 2)
$ rarely (ply 2)
$ "drum:2*[8 <8 16>]" # gain 0.5
# midiG' "^80" 0 1.9
d9 $ gF
d8 $ gF
$ midiOn "^36" ((# "break:18") . loopAt 2)
$ midiOn "^60" (mask "f . f(3,8)" . chop 8)
$ midiOn "^92" (ply 2)
$ loopAt 2
$ slice 4 "0 <1!2 ~ 1> <2 ~> 3*<1!3 2>"
$ "break:9"
# cut 9
# midiG' "^84" 0 1.9
# cut 8
# gain 1.5
-- # midiG' "^84" 0 1.9
d4 $ gF2
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
arp "pinkyup"
. (often (ply 2))
-- . (|* gain 0.8)
-- . (# pan 0.6)
-- . (# crush 16)
-- . (|+ note 12)
))
$ superimpose (|+ note "[0,7]")
$ note (
......@@ -60,8 +60,32 @@ d4 $ gF2
# pan 0.3
# room 0.1
# voice 0.8
# crushbus 41 (range 16 3 "^53")
# midiG' "^81" 0 1.3
# crushbus 41 (range 16 1.3 "^53")
# crushbus 42 (range 16 1.3 "^53")
# gain 1.3
d9 $ note ("0(3,8)" + (cat blues) + 12)
# "FMRhodes1"
d10 $ gF3 $ note ("c'maj'4" - 12 + cat blues) # "moogBass"
# pan 0.8
# room 0.2
# chorus (range 0 2 "^29")
# sz 0.6 # dry 2
# room 0.3 # dry 0.9
d11 -- DEBUG CUE Voice
$ ("0.125" <~)
$ off "h" ((|* gain 0.95) . (# pan 0.8))
$ "numbers"
# n "<1 2 3 4 5 6 7 8>"
# pan 0.3
-- # midiG' "^83" 0 0.8
d8
$ chop 8
$ loopAt 2
$ "jungle_breaks:32"
# pan 0.9
# gain 0.7
......
live/midi/nova/beatober/oct_16_haunted_house.tidal
......@@ -42,12 +42,12 @@ d4 -- Basse convaincante
$ 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>"
# "bassWarsaw"
# room 0.32 # sz 0.1
# room 0.2 # sz 0.1
# crushbus 42 (range 16 4 "^53")
# relbus 43 (range 2 0.02 "^33") # att 0.22
-- # midiG' "^81" 0 1.5
# 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
$ midiOn "^58" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
......@@ -65,16 +65,16 @@ d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
# delayfb 0.25
# pan 0.7
-- # midiG' "^82" 0 1.5
d8
$ gF1
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)")
$ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
-- # midiG' "^84" 0 1.5
d6 $ gF1 -- HAWKS
d6 $ gF1 $ gM1 -- HAWKS
-- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s <~!3 s>]"
# "armora:1"
......@@ -88,7 +88,7 @@ d6 $ gF1 -- HAWKS
-- # room 0
-- # midiG' "^31" 0 1.5
d7
$ gM2 $ gF3 -- High carillon!
$ gM3 $ gF3 -- High carillon!
$ midiOn "^59" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
)
......
live/midi/nova/beatober/oct_29_can_i_code_it.tidal
......@@ -11,11 +11,12 @@ let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
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)")
$ "[jazz, kick:5,808bd:2]"
# gain 0.8
d2 $ gM $ gF1
$ midiOff "^43" (mask "f t")
$ fix (# lpf 200) "snare:15"
$ "~ s [~!3 <~!3 s ~ s ~ s>] s*<1!7 2>"
# note "0 0 -2 0"
......@@ -26,9 +27,10 @@ d3 $ gM $ gF1
$ midiOn "^76" (mask "t(<24 32 32 24>,32)" . ply "1 2 1 2")
$ midiOn "^44" (ply 2)
$ "d*8"
# note 3
# drumFrom "mpc1000" "sd:4"
# note "8"
# drumFrom "mpc1000" "[sd:4,sd:5]"
# pan 0.2
# gain 0.9
|* gain (fast 2 $ segment 16 $ range 0.85 1.1 perlin)
d4 $ gMute3 $ gF2 -- Can I?
$ slow 2
......@@ -72,7 +74,7 @@ d5 $ gF3 $ gM3 -- BURNING IT
d8 $ gM $ gF3
$ (# pan "0.13@3 0.87")
$ 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>>"))
-- $ slice 16 (run 16)
$ loopAt 4
......@@ -81,14 +83,22 @@ d8 $ gM $ gF3
# rel 2
# cut 8
# orbit 7
d7 $ gM $ gF1
$ loopAt 4
$ chop 8
$ n "<0!4 5!4>!3 <0 4>"
# "drums_gameboy"
d7 $ gF2 -- Mono Maniaque
$ midiOn "^91" (stut 4 0.9 0.125)
$ midiOn "^59" (off 0.5 id)
$ note (
-- "[~. a4 [b4 <e5 e4>] ~ ~ ]"
"[~ . d4@2 e4 <a4 <a3 b3>> <~!3 a3> ~ ~ ~ ]"
-4 -- Calage
)
# "fmono:3"
# cut 7
# pan 0.2
# end 0.05
# 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"
# "90s_megafx:64"
# cut 9
......
live/midi/nova/beatober/oct_4.tidal deleted 100644 → 0
-- Octobre Jaune
resetCycles
do
setcps (117/60/4)
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 gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gM2 $ gF1 -- KICK SOUTENANT
$ midiOn "^42" (<| "k k k <k!3 [<~ k> k]>")
$ fix ((# lpf 4000) . (# drumFrom "rolandtr909" "bd:4")) "909bd"
$ "[jazz,909bd]"
# midiG' "^78" 0 1.9
d2 $ gF1
$ 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"
$ whenmod 32 0 (superimpose ((# "clap")))
$ "~ glitch"
# begin 0.02
# end 0.35
# pan 0.8
# midiG' "^79" 0 1.9
d3 $ gF1 -- Hats reguliers mais varies
$ midiOn "^44" (ply 2)
$ midiOn "^76" (struct "t(3,8). t(5,8)")
$ someCyclesBy "<1!8 0!56>" (mask "f . t f")
$ "~ h ~ h ~ h*<1!7 2> ~ h"
# drumFrom "rolandtr909" "hh:2"
# hpf 5000
# midiG' "^80" 0 1.9
|* gain (range 0.85 1 (fast 4 sine + (slow 2 perlin)))
d8
$ gF1
$ "~ rampleS0"
# n "<6!6 7 7>"
# pan 0.8
# midiG' "^79" 0 0.9
d4 $ gF2 -- MATRIX BASS
$ slow 2
$ midiOn "^57" (# freeze 0.1)
$ midiOn "^89" (slice 8 "0*[8 16]")
$ note "<[f@3 <cs!3 [cs ds]>] c>"
# "90s_matrix:0"
# cut 4
# tremoloratebus 41 (range 0 (slow 4 "<2 4 8 16>") "^53")
# tremolodepthbus 42 (range 0 0.9 "^53")
# combbus 43 (range 0 0.5 "^17")
# ampbus 44 (range 1 1.25 "^17")
# distortbus 45 (range 0 0.5 "^33")
# pan "<0.8!32 0.2!32>"
# midiG' "^81" 0 2.4
d5 $ gF2 -- ACID bassline
-- $ note "f@2 f e@2 e ef2"
$ midiOn "^58" (# freezebus 51 0.1)
$ note (
"f@2 f <gs!2 gf!2>@2 <gs!2 g!2> <g!2 gs <gs gs5>>@2"
- 12
)
# distortbus 51 (range 0 2.5 "^54")
# "90s_matrix:4"
# pan "<0.2!32 0.8!32>"
-- # octave 3
# cut 5
# midiG' "^82" 0 1.9
d7 $ gF3 $ note (
"0([3 <3!3 5>],8) . c(<3!7 [3 5]>,8)"
)
# "superfork"
# room (slow 16 $ range 0 0.2 saw)
# delay (slow 32 $ range 0 0.5 saw)
# octersubbus 71 (range 0 2 "^55")
# octersubsubbus 72 (range 0 2 "^55")
# pan (slow 16 $ (saw + 0.2 * perlin))
# midiG' "^83" 0 1.9
-- c bf g
d10 -- RISE!
$ fix (
loopAt 4
. (# "risers:4")
. (# pan 0.2)
. (# room 0.4)
-- . (# gain 0)
. (# cut 81)) "r1"
$ fix (-- laser rise
loopAt 8
. (# "risers:11")
. (|* gain 0.9)
. (# pan 0.9)
. (# room 0.4)
. (# drybus 82 (slow 4 $ range 0.5 1.2 saw))
. (# sz 0.8)
. (# cut 82)) "r2"
$ "[<~ ~ ~ <r1!3 ~>>,<~!24 ~!8 r2 ~!7>]"
# midiG' "^20" 0 1.3
-- risers:3 annonce
-- risers:4
once $ "risers:11"
# gain 0.7
# end 0.85
# cut 9
once $ "rampleS0:6" # cut 4
once
$ fix (# drumFrom "rolandtr909" "cp:1") "cp"
$ "[psr:1,cp]" # gain 0.8
ef-f. f-e e-es.. es-e-es-f......
once $ drumFrom "rolandtr808" "bd:4"
live/midi/nova/beatober/oct_glitchs_sauvages.tidal
......@@ -18,9 +18,11 @@ d1 $ gM2 $ gF1 -- KICK SOUTENANT
$ fix ((# lpf 4000) . (# drumFrom "rolandtr909" "bd:4")) "909bd"
$ "[jazz,909bd]"
d2 $ gM1 $ gF1 -- Snare glitch+perc
$ 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 ((# n 2) . (# pan 0.2) . (# note "-24")) "glitch"
$ "~ glitch"
$ "glitch"
# begin 0.02
# end 0.35
# pan 0.8
......@@ -39,8 +41,9 @@ d6 $ gM1 $ gF1
d8 $ gM1 $ gF1
$ midiOn "^92" (ply 2)
$ whenmod 4 3 (ply 2)
$ chop 8
$ midiOn "^56" (# n 43)
$ chop 16
$ midiOn "^36" (loopAt 2 . (# n 40))
$ midiOn "^56" (loopAt 1 . (# n 40))
$ loopAt 2
$ "jungle_breaks:18"
# cut 8
......@@ -58,8 +61,11 @@ d4 $ gM3 $ gF2 -- MATRIX BASS
# distortbus 45 (range 0 0.5 "^33")
# pan "<0.8!32 0.2!32>"
# gain 0.8
d5$ gM3 $ gF2 -- ACID bassline
-- $ note "f@2 f e@2 e ef2"
d5 $ gM3 $ gF2 -- ACID bassline
$ 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)))
$ midiOn "^58" (# freezebus 51 0.1)
$ note ( "f@2 f <gs!2 gf!2>@2 <gs!2 g!2> <g!2 gs <gs gs5>>@2"
- 12
......@@ -68,10 +74,12 @@ d5$ gM3 $ gF2 -- ACID bassline
# "90s_matrix:4"
# pan "<0.2!32 0.8!32>"
-- # octave 3
# cut 5
-- # cut 5
-- # midiG' "^82" 0 1.9
d7 $ gF3 $ note (
"0([3 <3!3 5>],8) . c(<3!7 [3 5]>,8)"
d7 $ gF3 $ gM3
$ 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"
# room (slow 16 $ range 0 0.2 saw)
......
live/midi/nova/breaks/acid_rain.tidal
......@@ -2,15 +2,20 @@ do
setcps (100/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
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^42" (<| "k k k <k!3 k*2 k k ~ [~ k]>")
let gM2 = gMask . gMute2
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?
$ "[kick:5,808bd:4,kick:4]"
# gain 1.2
d2
d2 $ gM
$ gF
$ midiOn "^43" (<| "~ c ~ c*[1 <1 <4 <1 4>>>]" )
$ midiOff "^43" (<| "~ <c!7 ~>" )
......@@ -19,45 +24,45 @@ d2
# note "-2"
# room (slow 8 $ range 0.2 0.6 saw) # dry 1
# gain 1.3
d3 $ gF $ gMute
d3 $ gF $ gM
$ midiOn "^76" (ply "2 4")
$ midiOn "^44" (off (0.5- 0.125) id)
$ "~ h ~ h ~ h*<1 <1!4 2!4> 1 2> ~ h*<1!6 2 <2 4>>"
# "hh"
# panbus 31 ((range 0.3 0.7 (whenmod 8 6 rev $ saw)))
# midiG' "^80" 0 1.4
# gain 1.4
# room 0.3
# dry 1.1
d4 $ gF2 -- Piano solo lover sunset
$ midiOn "^57" (-- Sunset echoes
off 0.5 ((sometimes (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 ("^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)
d4 $ gM3 $ gF2 -- Malediction acide
$ someCyclesBy (1 - "^17") (mask "t(3, 8)" . chop 8)
$ midiOn "^89" (chop "<8!3 16>")
$ midiOn "^57" (jux ((# cut 41) . rev))
$ midiOff "^41" (
whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93)))
)
$ chop 32
$ chop 8
$ loopAt 8
$ "synth_commodore" # n "1"
# crushbus 61 (range 16 2.25 "^54")
# roombus 63 (range 0 0.5 "^34")
# cut 5
# crushbus 41 (range 16 2.25 "^53")
# roombus 43 (range 0 0.5 "^33")
# cut 4
# gain 1.2
# panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw))
-- # 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
$ slice 8 "[5(3,8) <6 6 3 <2 7>>]"
$ loopAt 2
......@@ -67,7 +72,7 @@ d7 $ gF2 -- Nice organs you got there
# gain 1.4
# pan (slow 16 $ range 0.5 0.2 saw)
d8 $ gF $ gM
$ midiOn "^60" (loopAt 4 . (# "drums_nes:7"))
$ midiOn "^60" (loopAt 4 . (|* gain 0.9) . (# "drums_nes:7"))
$ 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]>"
$ striate "1 <1 <2 [0 1]>>"
......
live/midi/nova/breaks/bain_bouillant.tidal
......@@ -3,41 +3,42 @@ setcps (128/60/4)
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 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 gMute = (midiOn "^73" (mask "f*16"))
let gMute1 = (midiOn "^73" (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 gDJF1 = someCyclesBy "<0!30 2!2>" (# djfbus 4 (slow 2 $ range 0.5 0.1 saw))
-- let gDJF2 = someCyclesBy "<1!8 0!24>" (# djfbus 4 (slow 8 $ range 0.1 0.5 saw))
-- let gDJF = gDJF1 . gDJF2
let gM3 = gMask . gMute3
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
$ 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" (
(<| "<k!24 ~!8> ~ ~ <~!3 k> . ~ <~!7 k> ~ ~")
-- (<| "<k!24 ~!8> ~ ~ <~!3 k> . ~ <~!7 k> ~ ~")
(<| "k . ~ k ~ <~ k>")
)
$ fix ((|* gain 0.9) . (# lpf 5000)) "rampleA0"
$ "[rampleA0:3,jazz]"
$ "[jazz,kick:4]"
-- $ "[rampleA0:3,jazz]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM
$ "~ s ~ s"
# "[rampleA0:11,rampleA2:11]" -- Basic snare
# gain 1.2
d3 $ gF1 $ gM $ gDelay -- Contretemps
-- $ midiOn "^76" (slow 2)
-- $ midiOff "^44" (slow 2)
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ s ~ s*<1 1 2 <1 4>>")
$ midiOff "^43" (<| "~ s ~ s*<1 2 <1 2> 1>")
$ "[rampleA0:11,rampleA2:11]" -- Basic snare
# note "-2"
# gain 0.9
d3 $ gF1 $ gM1 -- Contretemps
$ midiOn "^76" (slow 2)
$ midiOff "^44" (slow 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>]>>"
# "[snare:38]"
# room 0
# gain 1.2
d4 $ gO $ gF2 -- SUBSUB INFRABASS
# gain 0.9
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 (
-- (# crushbus 41 (slow 16 $ range 12 2.5 saw))
-- . (# lpfbus 41 (slow 16 $ range 10000 2000 saw))
......@@ -46,17 +47,18 @@ d4 $ gO $ gF2 -- SUBSUB INFRABASS
# "jungbass:3"
# lpf 2000
# cut 4
# crushbus 41 (range 16 2 "^53")
# pan 0.8
# gain 2
d5 $ gO $ gF2 -- Basse appel important
# crushbus 41 (range 12 2 "^53")
-- # octersubsubbus 42 (range 0 1.2 "^33")
# pan 0.65
# 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>]>"
# "giorgio_syn:0"
-- # midiG' "^81" 0 1.5
# pan 0.32
# pan 0.35
# lpfbus 52 (range 400 4000 "^34")
# distortbus 51 (range 0 1.2 "^54")
# cut 7
# gain 1.5
# gain 0.85
d7 $ gO $ gF3 -- guitare salvatrice
-- $ 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>]"
......@@ -64,17 +66,18 @@ d7 $ gO $ gF3 -- guitare salvatrice
$ loopAt 2
$ "fguitar:55"
# cut 7
# gain 1.2
d6 $ gO $ gM $ gF1 -- Rim drums
# gain 0.9
d6 $ gO $ gM1 $ gF1 -- Rim drums
$ fix ((|* gain (1.2 + 0.1 * perlin))) (n 18)
$ n (stack [
"~ ~ ~ <~!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"
|* gain (range 0.8 1 perlin)
# 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")
$ whenmod 8 7 (slice 4 "0 3 2*<1 2> 1*<1 2 4 4>")
$ midiOn "^36" ((# n "19")) -- Pure COMEON!
......@@ -84,23 +87,18 @@ d8 $ gM2 $ gF1 -- BOOM BOOM THE BREAKS
$ "jungle_breaks:24"
# gain 1.2
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
-- # midiG' "^19" 0 1
d10 $ gF1 -- NOISES
$ fix (|* gain (slow 32 $ range 1 0.3 saw)) "giorgio_syn"
# gain 0.8
# lpf 5000
d10 $ gF1 -- CONSTRUCTION NOISES
-- $ fix (|* gain (slow 32 $ range 1 0.3 saw)) "giorgio_syn"
$ (stack [
"<~!16 giorgio_syn:52!16>/2"
"<~!0 giorgio_syn:52!16>/2"
])
# note (slow 2 "<0 <-4.5 -7>>")
# cut 10
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
# gain 0.6
live/midi/nova/breaks/break_the_rentree.tidal
......@@ -61,7 +61,7 @@ d6 $ gF2 -- Programmatic bass
# cut 6
# gain 0.6
# room 0.4
# midiG' "^81" 0 0.8
# midiG' "^81" 0 1.3
# crushbus 61 (range 16 4 "^53")
# room "<0.35!3 0.7>"
d5 $ gF2 -- Le rythme de la rentree
......
live/midi/nova/breaks/its_about_time.tidal
......@@ -6,6 +6,8 @@ once
# gain 0.9 # cut 13 -- Spooky intro!
-- # gain 0
once $ "dr"
-- (.ParVagues ----- L1VE.)
-- T""""""""""""""""""""T
-- |.;....,..........;..|
......@@ -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?
$ "[kick:5,808bd:4,kick:4]"
# 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 "^76" -- L'Esprit de Nassim
(
......@@ -111,7 +113,8 @@ d6 $ gF3 -- Jump aboard the BASIC BUS
# midiG' "^83" 0 1.4
# panbus 64 (range 0.13 0.87 (slow 16 saw))
# cut 6
d8 $ gM $ gF3 -- Breaks divins -- TODO Rework?
d8
-- $ gM $ gF3 -- Breaks divins -- TODO Rework?
$ midiOn "^92" (off "e" id)
$ midiOff "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21"))
......
live/midi/nova/breaks/nuit_agitee.tidal
......@@ -25,13 +25,16 @@ d1 $ gM2 $ gF1
$ "[jazz,kick:4]"
d2 $ gM1 $ gF1
$ "~ <~!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
$ 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>")
# "amencutup"
# cut 3
# panbus 31 "^52"
|* gain (fast 8 $ range 0.9 1.1 perlin)
d6 $ gF1 $ gM1
$ someCyclesBy "<f!3 t f f t t>" (superimpose ((|- note 1) . (|* gain 0.9) . (0.125 <~)))
$ "<~ cp>"
......@@ -39,7 +42,7 @@ d6 $ gF1 $ gM1
# room 0.4 # dry 1.1 # sz 0.5
# lpf 2000
# gain 1.1
d4 $ gF2
d4 $ gF2 $ gM3
$ 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 "^17" (mask "t(4,16)")
......@@ -56,10 +59,11 @@ d4 $ gF2
# gain (0.8 - 0.1 * "^33" - 0.1 * "^29")
# room "<0.3!12 0.35 0.4 0.48 0.6>"
d5 $ gF3 $ gM3
$ someCyclesBy "^34" ((|- note 12) . (stut 4 0.5 "e"))
$ midiOn "^58" (superimpose (
(|- 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" (
"<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>>"
......@@ -71,16 +75,21 @@ d5 $ gF3 $ gM3
# modIndex 0.3
# legato 2
# gain 1.5
d9 $ gF2 $ arp "up"
d9 $ gF2 $ gM3 $ arp "up"
$ note (
"<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 g5> ~ <~!24 d6!7 d5> <a a g g> ~ <~!12 d6!4> <a a g g> <~!16 d6!16>"
"<a a g5 e5> ~ <~!0 d6!3 d5> <a a g5 cs6> ~ ~ ~ ~"
-- "c8'maj'4"
+ 4
+ 12
-- - 2.5 -- "calage"
)
# att 0.05
# rel 2
# "jungbass:1" # cut 9
# room 0.8 # 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"
# room 0.2
# pan 0.7
......
live/midi/nova/dnb/force_motrice.tidal
......@@ -9,22 +9,25 @@ let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1
d1 -- Kick premier`
$ gF1 $ gM2
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k k")
$ superimpose ((|* gain "^30") .(# "tek_kick:3"))
$ "[kick:4]"
d2 $ gM1 $ gF1
d2 $ gM1 $ gF1 -- Snare second
$ fix (# lpf 4000) "snare"
$ midiOff "^43" (mask "<t!16 f!16>")
$ "~ s ~ s*<1!3 2>"
# "rampleM8:8" # note "-4"
# "[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 $ gM2 $ gF2 $ loopAt 4
$ midiOn "^89" (slice 4 "2*2 ")
$ "nujazz_bass125:1"
# cut 4
# octersub (slow 32 $ range 0 0.9 sine)
......@@ -34,9 +37,12 @@ d4 $ gM2 $ gF2 $ loopAt 4
# sz (slow 8 $ range 0.7 0.1 sine)
d5 $ gM3 $ gF2
$ midiOn "^58" (off 0.125 id . rev)
$ note ("[g@2 ~!4 <f ~ as5 c6>]" - 12)
$ note ("[g@2 ~!4 <f ~ as5 c6>]" - 24)
# crushbus 51 (range 16 2.5 "^54")
# modIndex "^34"
# "FMRhodes1"
-- # 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>"
......@@ -49,6 +55,7 @@ d7 $ gM3 $ gF3
# 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"))
......@@ -57,9 +64,18 @@ d8 $ gM1 $ gF1
$ "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 10
# cut 9
# gain 0.48
# room 0.4
d11 $ gF3 $ gM3
......
live/midi/nova/dnb/nouveau_soleil.tidal
......@@ -5,13 +5,17 @@ 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]"
-- $ "[jazz,kick:4]"
# midiG' "^78" 0 1.2
# gain 0.9
d2 $ gF $ gM -- Snare FOU
$ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>")
$ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
......@@ -19,22 +23,32 @@ d2 $ gF $ gM -- Snare FOU
$ "[sn:25,gretsch:4]"
# note (range "-4" 4 "^51")
# lpf 5300
# midiG' "^79" 0 1.2
-- # midiG' "^79" 0 1.2
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"
# midiG' "^80" 0 1.2
# gain 0.8
-- # midiG' "^80" 0 1.2
# pan (0.3 - 0.2 * perlin)
d4 $ gF2 $ gMask
$ midiOn "^89" (ply "<4!3 [4 8]>")
$ chop 16
-- $ midiOn "^89" (ply "<4!3 [4 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")
$ midiOn "^57" ( -- Sad truth pattern
(# "bass_gameboy:5")
. (midiOn "^89" (
midiOn "^89" (slice 16 ("[0 1 2 3]*4" + (slow 2 "<0 4 8 12>")))
))
)
$ "bass_gameboy"
# cut 4
# midiG' "^81" 0 1.2
-- # midiG' "^81" 0 1.27
# gain 1
d5 $ gF3 $ gMask -- La pluie d'étoiles
$ whenmod 64 32 (off "q" ((|+ note 12) . (# pan 0.8)))
$ whenmod 32 16 (off "e" ((|+ note 9) . (|+ pan 0.1)))
......
live/midi/nova/dnb/venons_ensemble.tidal
do
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 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
d1 $ gF $ gMute2 -- Kick variable
let gM3 = gMask . gMute3
d1 $ gF1 $ 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
......@@ -17,8 +19,8 @@ d1 $ gF $ gMute2 -- Kick variable
$ "[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
-- # midiG' "^78" 0 1
d2 $ gF1 $ 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]")
......@@ -31,16 +33,14 @@ d2 $ gF $ gMute $ fast 2 -- Snare dnb assorti
# room 0
# note "-2"
# legato 0.5
# midiG' "^79" 0 1.2
d3 $ gF $ gMute2
d3 $ gF1 $ gMute2
$ midiOn "^44" (ply "1 2")
$ midiOn "^76" (ply "<2 [2 4]>")
$ 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>"
# pan 0.35
# midiG' "^80" 0 1
d4 $ gF2 -- COME WITH THE BASS
d4 $ gF2 $ gMute3 -- COME WITH THE BASS
$ superimpose (const $ gF2
$ whenmod 16 8 (rev . chop 4)
$ n "[19 <21!3 <20 22>>]"
......@@ -62,8 +62,7 @@ d4 $ gF2 -- COME WITH THE BASS
# dry (slow 64 $ range 0.2 2.8 cosine)
# sz 0.035
# pan 0.2
# midiG' "^81" 0 1
d5 $ gM2 $ gF3 -- Sky's guitar
d5 $ gM3 $ gF3 -- Sky's guitar
$ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (>| n "<3 ~ 3 ~>")
$ n ("<0!3 [0 1] 0!3 [0 1] 0!3 [0 1] 2!4>")
......@@ -73,8 +72,8 @@ d5 $ gM2 $ gF3 -- Sky's guitar
-- # speed 1.25
# room 0.2 # sz 0.3 # dry 1.2
# crushbus 51 (range 16 5.5 "^54")
# midiG' "^82" 0 1.3
d6 $ gM2 $ gF3 -- Sky's companion
# gain 1.3
d6 $ gM3 $ gF3 -- Sky's companion
$ midiOn "^58" (mask "f")
-- $ mask "<f!8 t!24>"
$ slice 8 ("0 1*<1!3 8> 2*<1 2> 3*<1 1 4 16>" + "<0 4>")
......@@ -82,7 +81,7 @@ d6 $ gM2 $ gF3 -- Sky's companion
# n "3"
# cut 6
# pan 0.9
# midiG' ("^82" * "^34") 0 0.8
# gain (range 0 1.3 "^34")
d7 $ gF3 -- together yeah!
$ midiOn "^91" (>| n "~ ~ ~ 11")
$ someCyclesBy ("^35" - "^59") (>| n "<0 1 2 3 4 5 6 7>/2")
......@@ -93,21 +92,18 @@ d7 $ gF3 -- together yeah!
# crushbus 71 (range 16 "<5 10>" "^55")
# hpfbus 72 (range 0 3500 "^55")
# cut 7
# midiG' "^83" 0 0.8
d8 $ gM $ gF -- Angel Breaks
d8 $ gM $ gF1 -- Angel Breaks
$ midiOn "^92" (ply "<2 2 4 8>")
$ midiOn "^60" (mask "f <t t f t>")
$ chop 8
$ someCyclesBy "^20" ((loopAt 1) . (# n 7))
$ someCyclesBy "^36" (# n 70)
-- $ someCyclesBy "^20" ((loopAt 1) . (# "break:15"))
$ 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" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1
d10 $ loopAt 2 $ fast 2 $ "<~!6 risers ~>"
# cut 10
# midiG' "^13" 0 0.7
# lpf 5000
live/midi/nova/lofi/lendemain_divin.tidal
once $ "bassWarsaw" # gain 2
once
-- $ "bassWarsaw"
$ "[kick:6]"
# gain 2
-- Lendemain Divin
do
......@@ -12,17 +15,19 @@ let gM = gMask . gMute
let gM2 = gMask . gMute2
setcps (95/60/4)
d1 $ gMute
$ 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>")
$ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>")
$ "[jazz,808bd:3]"
$ "[techno:0,808bd:2,909,kick:6]"
# lpf 6000
# midiG' "^78" 0 1.5
d2 $ gMute2 $ gF1
$ midiOn "^43" (fast 2)
$ midiOn "^75" (# "cp")
$ "~ s*<1!3 2>"
# "[snare:32,snare:40]"
# lpf 2000
# "[snare:32,snare:40,bssnare]"
# note "-4"
-- # lpf 2000
# midiG' "^79" 0 1.4
d3 $ gF1 $ gMute2
$ midiOn "^76" (ply 2)
......@@ -38,7 +43,10 @@ d3 $ gF1 $ gMute2
# room 0.2 # dry 0.9
# midiG' "^80" 0 1.3
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]"
-- Bassline habituelle
$ midiOff "^57" (
......@@ -56,6 +64,8 @@ d6 $ gF3
$ n "<0 0 <6 5> 0 1 1 2 7>"
# "come_guitar" # cut 6
# crushbus 61 (range 16 2.5 "^54")
# lpfbus 62 (range 10000 7500 "^54")
# room 0.3
# midiG' "^82" 0 1
d8 $ gM2 $ gF3
$ midiOn "^92" (ply "<4 4 8 16>")
......@@ -65,10 +75,18 @@ d8 $ gM2 $ gF3
$ loopAt 2
-- $ midiOn "^36" (# n 1)
$ "jungle_breaks:13"
# room 0
# midiG' "^84" 0 1.2
# cut 8
once $
d2
-- $ gF1 $ gM
-- $ midiOn "^43" (fast "<2!4 2 [2 4]!2 [2 . 4 8]>")
$ "~ s ~ s" -- Snare présent
# "[rampleA0:11,rampleA2:11]" -- Basic snare
# midiG' "^79" 0 1.5
......
live/midi/nova/lofi/premiere_grillade.tidal
......@@ -12,7 +12,7 @@ d1 $ gF $ gMute
$ midiOn "^42" (struct "t t t <t!3 <t*2 t*[4 2]>>")
$ midiOff "^42" (struct "t*[<1!4 [8 <8 4>]!4> . 2] . ~ ~ ~ <~!3 t>")
$ "[808bd:13,jazz]" -- 11
# midiG' "^78" 0 1.42
-- # midiG' "^78" 0 1.42
-- # room 0.2 # sz 0.2
-- # dry 0.99
d2 $ gF $ gM -- Snare clockwork
......@@ -59,7 +59,7 @@ d4 $ gF3 -- LoFi Girl at the piano!
# pan 0.8
# midiG' "^82" 0 1.5
d5 $ gF2 -- Bassline langoureuse
$ midiOn "^89" (chop 8)
$ midiOn "^89" (mask "t(4,8) t(<4 8>,8)" . chop 8)
$ note (
-- "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>"
"<[c,c(3,8)] [g,[~ f6],g*4] [bf,bf(3,8)] c4>" + "0"
......
live/midi/nova/lofi/reboot.tidal
......@@ -17,14 +17,13 @@ d1 $ g -- Kick
$ midiOn "^41" (<| "k*4 . [k k] <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)")
$ "[reverbkick,jazz]"
# midiG' "^78" 0 1.1
d2 $ g -- Contretemps snare
$ whenBrkLPF
$ "~ s ~ <~!4 s!12>"
# "snare" # n "[40,52]"
# note (-4)
# midiG' "^79" 0 1.1
d3 $ g -- Drumroll fantôme
# gain 0.8
d3 $ g -- Drumroll fantome
$ whenBrk (slow "<2 2 4 4 8 8 16 16>")
$ midiOn "^44" (fast "4 2")
$ "d*<4 4 8 [4 . <4 16> 16]>" # "[drum:2,cpu:2]"
......@@ -35,17 +34,17 @@ d4 $ g -- A slice of bass
$ slice 4 "<0 0 [0 1] 3 0*2 [0 1] [3 2] [3*2 3*<2 4>]>"
-- $ slice 4 "<0!8 1!8 2!8 3!8>*<1!4 2 1 2 4>"
$ "fbass:8"
# midiG' "^81" 0 1.4
# gain 0.7
# crushbus 41 (range 8 2.9 "^53")
# room 0.2
# pan 0.2
# cut 4
d5 $ g -- Climbing guitar
$ superimpose (
$ whenmod 64 32 (superimpose (
slice 4 "0*<1 2 1 <2 4>>" .
(# cut 51) . (|+ note 12)
. (|* gain (range 0.5 1.5 "^34"))
)
))
$ slice 4 (
(whenmod 8 4 (fast 4)) $
"<0 1 2 3>"
......@@ -53,7 +52,7 @@ d5 $ g -- Climbing guitar
$ "fguitar:11"
# cut 5
# pan 0.4
# midiG' "^82" 0 1
# gain 0.5
# crushbus 51 (range 8 1.9 "^54")
d6 $ g -- Glitchy piano!
$ whenmod 8 4 (someCyclesBy "0 1 . <0 0.25 0.5 1>" rev)
......@@ -62,15 +61,20 @@ d6 $ g -- Glitchy piano!
$ "fpiano:11"
# cut 6
# pan 0.4
# midiG' "^83" 0 1
-- # midiG' "^83" 0 1
d7 $ g -- Sirene
$ note (
slow 8
$ arpeggiate
$ "d3'min'4" + "<0!8 12!8>"
$ "d2'min'4" + "<0!8 12!8>"
)
# "supersiren"
# room 0.3 # sz 0.6
# midiG' "^84" 0 0.7
# gain 0.5
# crushbus 71 (range 8 0.9 "^56")
# cut 7
d8 $ loopAt 2
$ "break:12"
# gain 0.8
"11" -- Hello :)ô --
live/midi/nova/lounge/invoque_ete.tidal
......@@ -5,69 +5,58 @@ resetCycles
-- Il ne viendra pas tout seul ;)
do
setcps (115/60/4)
let gF = 1.5
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let mMute = (midiOn "^73" (mask "f*16"))
let m = mBreak
let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let f2 = (# djfbus 2 (range 0.1 0.9 "^50"))
let f3 = (# djfbus 3 (range 0.1 0.9 "^29"))
d1 $ f1 $ m $ mMute
$ midiOn "^41" (slow 4)
let f3 = (# djfbus 3 (range 0.1 0.9 "^51"))
d1 $ f1 $ mMute
$ midiOn "^42" (<| "k k k <k k k*2 [~ k]>")
$ midiOff "^42" (<| "k*2")
$ "[jazz,kick:5]"
# midiG' "^78" 0 1.2
d2 $ f1 $ m $ mMute -- Clave de l'été
$ midiOn "^43" (fast 2)
$ midiOn ("^75"-"^43") (fast 2)
$ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7))
$ (|* gain ("0.75 1 1 1 0.75 1 1 1"))
$ "d ~ ~ d d ~ d <~!3 d>"
-- $ "d"
# "[snare:22,sn:4]"
# midiG' "^79" 0 0.71
# speed (range 0 2 "^51")
d8 $ f1 $ m -- Mecano Course
# speed (range 0 2 "^31")
# gain 0.8
d3 $ gF1 -- L'inoubliable drumroll
$ fix (
mask "<f!24 t!3 f t t [t f] t>"
. (|* gain (slow 16 $ range 0.6 1.2 sine))
. someCyclesBy "0 0.2 0.4 0.4 0.2 0" (|* gain 0.8)
. struct "t(3,8) t(3,8)"
)
"electro1"
$ "dr*[[8 8 <8 <16 [16 32]>> 8] <8!3 [16 <16 32 [16 8] [16 32]>]>]"
# "[drum:2,electro1:2]"
# gain 0.8
d8 $ f1 $ m -- Mecano Course Break
-- $ fast "<<4 2> 4!7 2!4 2 2 4 8>"
$ sometimesBy "0 ^32!7" (ply 4)
$ someCyclesBy "^52" (iter 4)
$ midiOn "^76" (slice 8 (run 8) . chop 16 . (|* speed 2) . (>| "breaks165"))
$ midiOn "^44" (slice 16 ("0*<1 2> 1 2 3*<2 1>"))
-- $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
-- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>"
-- $ chop 8
$ midiOn "^36" (|> "jungle_breaks:42")
$ midiOn "^60" (slice 16 ("0*<1 2> 1 2 3*<2 1>"))
$ midiOn "^92" (slice 8 (run 8) . chop 16 . (|* speed 2) . (>| "breaks165"))
$ loopAt 2
$ "breaks125:3"
# midiG' "^80" 0 1.3
-- # speed (range 0 2 "^16")
# gain 0.8
# cut 8
-- d8 $ f1
-- $ midiOn "^76" --BOUTON NASSIM
-- (
-- -- whenmod 8 7 (ply "1 . 2") .
-- -- slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") .
-- (loopAt 1) .
-- (# "breaks165") . (# cut 2)
-- . (|* gain 1.1)
-- )
-- $ midiOn ("^44") (ply 2)
-- $ m
-- $ "h(3,8) . h(5,8)"
-- # "hh" -- TODO CHOOSE OR REMOVE
-- # midiG' "^80" 0 1.4
d4 $ f2 $ m -- Bassline variable double piste
$ loopAt 2
$ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
$ midiOn ("^57" + "^89") (# n 14)
$ "fbass:13"
# pan 0.2
-- # room 0.2
# crushbus 51 (range 16 4.5 "^53")
# midiG' "^81" 0 1.4
# roombus 52 (range 0 0.8 "^33") # sz 0.5
# gain 1
# cut 4
d6 $ f3 $ m -- Douce guitare juxée
d5 $ f3 $ m -- Douce guitare juxée
$ chop 16
$ midiOn "^18" (juxBy 0.85 ((# cut 31) . rev . (|* gain 0.93)))
$ whenmod 32 16 (juxBy 0.85 ((# cut 31) . rev . (|* gain 0.93)))
$ whenmod 16 12 (rev)
$ whenmod 8 4 (chop 4)
$ loopAt 4
......@@ -76,18 +65,18 @@ d6 $ f3 $ m -- Douce guitare juxée
# release (range 2 0.15 "^34")
# crushbus 61 (range 16 1.4 "^54")
# pan 0.8
# midiG' "^82" 0 1.2
# room 0.2 # dry 1
# cut 3
# gain 0.55
d7 $ f3 $ m
$ loopAt 4
$ mask "t(<4 8 12 16>,16)"
$ slice 16 (run 16)
$ midiOn "^59" (slice 16 (run "<16!8 32!4 [32 <8 [8 32]>]!4>"))
$ midiOff "^59" (slice 16 (run 16))
$ "fpiano:13"
# pan 0.45
# midiG' "^83" 0 1.4
# cut 7
d12 $ f3 $ m -- Angels of moogland
d9 $ f3 $ m -- Angels of moogland
$ midiOn "^92" ((|* gain 0.85) .(|+ note 24))
$ midiOn "^60" (
superimpose (
......@@ -101,10 +90,11 @@ d12 $ f3 $ m -- Angels of moogland
# room 0.24
# "moogBass"
# pan 0.4
# crushbus 81 (range 16 1.4 "^56") -- Even an angel can fall in love
# midiG' "^84" 0 1.3
-- d12 $ "808mc(5,8)" # note "g3"
-- # gain 1.2
# crushbus 91 (range 16 1.4 "^19") -- Even an angel can fall in love
# roombus 92 (range 0 1.4 "^18") -- Love can expand faraway
-- # octersubbus 93 (range 0 2 "^17") -- Love can expand faraway
# fshift "<0!4 1!4>"
# fshiftnote "-5"
-- Sandbox
......
live/midi/nova/nujazz/cafe_chaud.tidal
......@@ -59,13 +59,13 @@ d5 $ gF3 $ gM3
d6 $ gF1 -- UN GLITCH DANS MON CAFE!!?!
-- $ striate 16
-- $ chop 16
$ loopAt 4
$ loopAt 0.25
$ slice 4 "0 <0!3 1> <0!3 2> 3"
$ "meth_bass:4"
$ "meth_bass" # n "<10!3 [<10 11> 11] 9!24>"
# cut 6
# crush 8
# lpf (slow 16 $ range 4000 400 sine)
# gain 0.4
# lpf (slow 32 $ range 4000 400 sine)
# gain 0.6
d8 $ gF1 $ gM1 -- Break populaire
$ midiOn "^92" (ply 2)
$ chop 8
......
live/midi/nova/nujazz/cafe_glace.tidal
once $ "nujazz_beats120"
-- It's a nuday
-- It's a new sample
do
resetCyclesm
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"))
......
live/midi/nova/techno/around_the_bass.tidal
......@@ -16,12 +16,12 @@ let lineAround2 = "~ ~ ~ ~ e5 ~ ~ ~ e5 ~ ~ ~ e5 ~ ~ ~"
let lineAround3 = "fs5 ~ e5 ~ d5 ~ c5 ~ b4 ~ a4 ~ g4@3 a4"
d1 $ gF1 $ gM2
$ "[techno,jazz,kick:5]*4"
# midiG' "^78" 0 1.5
# gain 0.75
d2 $ gF1 $ gM
$ whenmod 32 24 (fast "<2!3 [<2 4> 4]>")
$ "~ [cp,snare:24]"
# pan 0.7
# midiG' "^79" 0 1.4
# gain 0.7
d3 $ gF1 $ gM
$ sometimesBy (slow 16 $ range 0 0.5 saw) (mask "t(3,8) t(5,8)")
$ "hh*[16 16 16 <8!2 16 12>]"
......@@ -37,15 +37,16 @@ d4 $ gF2 $ gM
# octave 4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# room 0.4
-- # delayfb 0.8 # delayt 0.25
# midiG' "^81" 0 1.4
# gain 0.7
# pan 0.3
d5
$ midiOn "^90" (sometimesBy "0 1" rev)
$ midiOn "^58" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup")
$ note ("<[a4,c4,e4] [c4,e4,g4] [e4,g4,b4] [d4,fs4,g4]>")
# "moogBass"
# midiG' "^82" 0 1.6
# "FMRhodes1" # modIndex 2.85
# pan 0.7
d8 $ gF3
$ midiOn "^20" (# n "20")
$ midiOn "^92" ((# pan 0.4) . (# n "19"))
......@@ -54,4 +55,4 @@ d8 $ gF3
$ loopAt 2 $ chop 8
$ n "24" # "jungle_breaks"
# pan 0.55
# midiG' "^84" 0 1.8
# gain 0.9
live/midi/nova/techno/ete_a_mauerpark.tidal
......@@ -51,6 +51,7 @@ d7 $ gF3 $ gM3 -- High Cello Dauphin
# pan 0.9
# crushbus 71 (range 16 2.5 "^55")
-- # midiG' "^83" 0 1.2
# gain 0.7
d3 $ gF $ gMute
$ midiOff "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
......@@ -81,7 +82,6 @@ d5 $ gF3 $ gMute2 -- Leads reponse
$ 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)
-- ) --
......@@ -92,14 +92,15 @@ d5 $ gF3 $ gMute2 -- Leads reponse
- 12
)
# "FMRhodes1"
# legato 2
# room 0.2
# pan 0.33
# modIndex (range 0.1 16 "^34")
# crushbus 51 (range 16 2.5 "^54")
# crushbus 51 (range 16 3.5 "^54")
-- # midiG' "^82" 0 1.5
d8 $ gM $ gF -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
$ midiOff "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 2
. mask "t(16,16,0)"
. chop 16
......@@ -125,14 +126,14 @@ d9 $ gF3 -- Nano-angels chorus of machines
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"
# 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")
# room 0.2
# lesliebus 102 (range 0 2 "^18")
# chorus (range 0 2 "^19")
# sz 0.6 # dry 2
# legato 2
# pan 0.64
......
live/midi/nova/techno/panda_rouge.tidal
......@@ -125,6 +125,7 @@ d8 $ gF $ gM
$ loopAt 2
$ chop 16
$ midiOn "^36" (# n "48")
$ midiOn "^56" (# n "28")
$ n "<40!3 [40 42]>"
# "jungle_breaks"
# cut 8
......
live/midi/nova/techno/the_good_bass.tidal
......@@ -13,12 +13,11 @@ let gM2 = gMask . gMute2
let lineGoodLife = "b3 ~ ~ b3 ~ ~ b3 ~ ~ fs3 ~ ~ fs3 ~ ~ a3 ~ a3 ~ a3 ~ ~ e3 ~ ~ e3 ~ e3 b3 ~ b3 ~"
d1 $ gF1
$ "[techno,jazz,kick:5]*4"
# midiG' "^78" 0 1.5
d2 $ gF1
$ whenmod 32 24 (fast "<2!3 [<2 4> 4]>")
$ "~ [cp,snare:24]"
# pan 0.7
# midiG' "^79" 0 1.4
# gain 0.7
d3 $ gF1
$ sometimesBy (slow 16 $ range 0 0.5 saw) (mask "t(3,8) t(5,8)")
$ "hh*[16 16 16 <8!2 16 12>]"
......@@ -27,20 +26,19 @@ d3 $ gF1
# pan (0.4 + 0.2 * (slow 4 perlin))
d4 $ gF2
$ midiOn "^89" (|+ note "c'minPent'2")
-- $ midiOn "^57" (<| note lineAround3)
$ note (slow 2 $ lineGoodLife) # "bassWarsaw"
# octave 4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
-- # delayfb 0.8 # delayt 0.25
# midiG' "^81" 0 1.8
# gain 0.9
# pan 0.3
d5
d5 -- FIXME WORKS WITH AROUND NOT GOOD
$ midiOn "^90" (sometimesBy "0 1" rev)
$ midiOn "^58" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup")
$ note ("<[a4,c4,e4] [c4,e4,g4] [e4,g4,b4] [d4,fs4,g4]>")
# "moogBass"
# midiG' "^82" 0 1.6
-- # midiG' "^82" 0 1.6
d8 $ gF3
$ midiOn "^92" ((# pan 0.4) . (# n "19"))
$ sometimesBy "^56" (slice 4 ("0 <1 <1*2 ~> ~ 1> <2 ~> 3*<1 <2 4>>"))
......@@ -48,4 +46,3 @@ d8 $ gF3
$ loopAt 2 $ chop 8
$ n "20" # "jungle_breaks"
# pan 0.55
# midiG' "^84" 0 1.8
live/techno/noir/lavabo_noir.tidal
resetCycles
-- DARK TECHNO LAVABO
......
releases/glitchs_and_friends.md
# GLITCHS AND FRIENDS
> Name in progress
Oct4 - Glitchs sauvages
Oct4 - **Glitchs sauvages**
Contre Visite
**Nuit agitee** [trop fort]
Bain bouillant
......
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