Skip to content

T
Tidal
Unverified Commit 08b79701 by PLN (Algolia)
Options

Sessions: Biarritz

parent 56690dd8
Showing with 1155 additions and 199 deletions
live/ambient/before.tidal
......@@ -5,24 +5,25 @@ 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 gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1
let gM1 = (midiOn "^73" (mask "f*16"))
let gM2 = (midiOn "^74" (mask "f*16"))
let gM = gMask
d1 $ gM2 $ gF
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "t")
$ "[808bd:13,cpu]" -- 4 6
# midiG' "^78" 0 1.2
d2 $ gF -- Slow clap
d2 $ gM1 $ gF -- Slow clap
$ midiOn "^41" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
$ midiOn ("^43" - "^42") ((whenmod 8 4 (fast "<1 2 1 4> <2 2 4 4>")) . (struct "~ t ~ t"))
$ midiOff ("^43" + "^42") (struct "~ t")
$ midiOff ("^43" + "^41" + "^42") (struct "~ t")
$ "clap"
# hpqbus 22 (range 0 (1 - "^41") "^31")
# hpfbus 21 (range 0 5000 "^51")
# midiG' "^79" 0 1.2
d3 $ gM $ gF -- Broken drummer
d3 $ gM1 $ gMask $ gF -- Broken drummer
$ sometimesBy (1 - "^52") (mask "t(3,8)")
$ sometimesBy "0!4 1 0!3" (mask "t(4,16)")
$ sometimesBy "0!7 1" (ply 2)
......@@ -31,13 +32,14 @@ d3 $ gM $ gF -- Broken drummer
-- $ chop 32 $ loopAt 1 $ "fbreak80" -- V1: Existing
# midiG' "^80" 0 1.2
# cut 3
d6 $ gMute
d6 $ gM1 -- Drumroll fou
$ midiOn "^91" (fast "2 <2!3 <4 [4 8]>>")
$ "dr*[<16 [16 32 16]> 16 <32 [32 16 32]> <16 [8 16]>]"
# "drum:2"
# midiG' "^83" 0 1.1
d7 $ gM $ gF -- Final cymbal
d7 $ gM1 $ gMask $ gF -- Final cymbal
$ mask "<f!16 t!7 f t t f t t f t t>"
$ "808cy:4" # gain 0.8
$ "808cy:4" # midiG 0.8
# room 0.5 # dry (slow 8 $ range 0 0.8 saw)
# lpf 3400
d4 $ gF2 "atmos/4" # "90s_synatm:0" # cut 4
......
live/boeuf/algorythm/fdlm2022/toxic.tidal
......@@ -50,4 +50,4 @@ d8 $ gDJF -- CUE Toxic Theme
# rel 2
# sz 0.5
# pan 0.9
# midiG' "^83" 0 1.5
# midiG' "^83" 0 1.1
live/boeuf/algorythm/fix_you.tidal
......@@ -23,7 +23,12 @@ d3 $ gF
# midiG' "^80" 0 1.2
-- d4
once $ "supergong" # note "e6"
# room 1.2
# orbit 1
# gain 0.8
once $ "ikedaBass" # note "e6"
-- # room 1.2
-- # orbit 1
# gain 0.5
once
$ note "b'min'3" # "organDonor"
# gain 0.99
live/boeuf/algorythm/fly_me_to_the_moon.tidal
......@@ -6,7 +6,7 @@ let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k*4")
$ midiOn "^74" (<| "k lk k <k k*2>")
$ midiOn "^42" (<| "k k")
$ midiOff "^42" (<| "k")
-- $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
......@@ -21,3 +21,9 @@ d3 $ gF
$ midiOff "^44" (<| "h*4")
$ drumFrom "rolandtr808" "[hh:1]"
# midiG' "^80" 0 1.2
d8 $ gF
$ midiOn "^92" (ply 8)
$ chop 4
$ loopAt 4
$ "jungle_breaks:40"
# midiG' "^84" 0 1.2
live/boeuf/algorythm/lonely_day.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 gM = gMask . gMute
let gM2 = gMask . gMute2
setcps (160/60/4)
d1 $ gMute
-- $ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
-- $ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>")
$ "k ~ <~ [~ k]>" # "[bd,808bd:3]"
# midiG' "^78" 0 1.2
d2 $ gMute2 $ gF1
$ ((|* gain "1 <1!3 [1 0.9 1]>") . (whenmod 4 3 (fix (# "snare:30") "snare:29")))
$ "~ <s!3 [s [~ s] ~]>"
# "[snare:29,snare:4]"
# lpf 5000
# midiG' "^79" 0 1
d3 $ gF1 $ gMute2
$ "h h h h <h!3 ~> h*<1!7 2>" |* gain "0.8 1 1.1 1 1 1.1"
-- # drumFrom "sakatadpm48" "[hh,oh]"
# "hh"
-- # n "0!3 <0!3 1>"
# lpf 4500
# midiG' "^80" 0 1
d8 $ gF1 $ gMute2
$ loopAt 2
$ slice 8 "~ 0 ~ 2 ~ 4 ~ 6"
$ "break:10"
-- $ loopAt 2 $ chop 4
-- $ "jungle_breaks:44"
# cut 8
# midiG' "^84" 0 1.2
live/boeuf/algorythm/love23/killing_me_softer.tidal 0 → 100644
-- Softer version via Roberta Flack
k 1/8
hh 8/8
resetCycles
do
setcps (72/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
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ <~!7 t>")
-- $ struct ("t <t!3 [~ t]> t <t!6 ~!2>") -- RUN!
$ "cpu"
# midiG' "^78" 0 1.2
# pan 0.8
d2 $ gF1 $ gM2 -- Snare
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^43" (struct "~ . t")
$ "808sd:6" -- "snare:5"
# release 0.4
# att 0.02
# midiG' "^79" 0 1.5
d3 $ gF1 $ gMute -- Hats complément
$ midiOn "^44" (fast 2)
$ midiOn "^76" (ply "<2 4>")
-- $ "~ h ~ <h!3 ~> ~ <~!8 h!8> ~ h"
$ "h h h h" # "cpu:4"
-- # "snare:51"
# att 0.0125 # rel 2 # hpf 3000
# pan 0.7
# midiG' "^80" 0 1
d8 $ gF3
$ midiOn "^92" (ply 8)
$ midiOn "^60" (>| "break:22")
$ loopAt 2 $ chop 4 $ "break:21"
# midiG' "^84" 0 1
# cut 8
d4 $ gF2
$ midiOn "^57" (struct "t(3,8)" . arpeggiate . (# legato 2) . (# room 0.2) . (# size 0.8))
-- $ note (slow 2 "<[c4, e4, a4] [g3, b4, d4]>")
-- TODO: Try with just the fundamentals:
-- "e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3" -- 12 Chorus
-- "e3 ~" -- Bridge x2 -- OR SILENT?
-- "a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2" -- 12 Verse
-- Pasted: Chorus/Bridge/Verse/Chorus/Bridge2/Verse/Chorus/Bridge8
$ midiOn "^89" (chop 8)
-- $ note ("<e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2 e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2 e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ e3 ~ e3 ~ e3 ~>")
-- TODO: Move along new fundamentals
-- Mapping to: F G Ab Bb C Db Eb
-- Map from: E Ff G A B C D
-- FIXME: Remove/replace intro sync
-- let introSync = "bf4 ef4 af4*[4 8]"
$ note ("<bf4 ef4 af4*[4 8] f3 bf3 ef3 af3 f3 bf3 ef3 df3 af2 df3 gf3 f3@2>")
# "bassWarsaw"
# legato 1
-- # cut 4
# midiG' "^81" 0 1
-- TODO: Add the bass gimmick on 7/8th bars
resetCycles
-- Chorus 12
-- Bridge 2
-- Verse 12
-- Chorus 12
-- Bridge 2
-- Verse 12
-- Chorus 12
-- Bridge 8
-- Chorus 12
-- # cut 4
do
-- Chorus
-- Alternate 2xMain 2xAlt chords for 8 bars
let chorusMainArp = "[a c e g]"
let chorusMainChord = "[c4, e4, a4]"
let chorusAltArp = "[g fs a c]"
let chorusAltChord = "[g3, b4, d4]"
once $ note chorusMainChord
# "bassWarsaw" # gain 0.7
g c f f
let
fs
a
g
b
d
g
--
-- FIXME: Adapt or remove former copy-pasted content
do
setcps (92/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
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 gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ ~")
-- $ struct ("t <t!3 [~ t]> t <t!6 ~!2>") -- RUN!
$ fix (|* gain 0.7) "jazz"
$ fix ((|* gain 0.7) . (# "jazz") . (# n "<4 4 <3 3 4 4> 3>")) "sub"
$ "[808bd,<808bd:4!2 808bd:3!2>,jazz]"
# midiG' "^78" 0 1.2
# pan 0.8
d2 $ gF1 $ gMask -- Snare
$ midiOff "^43" (struct "~ ~ ~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ "808sd:6"-- "snare:5"
# release 0.4
# att 0.02
# midiG' "^79" 0 1.5
d3 $ gF1 $ gMute -- Hats complément
$ midiOn "^76" (ply "<2 4>")
$ "~ h ~ <h!3 ~> ~ <~!8 h!8> ~ h"
# "snare:51"
# att 0.0125 # rel 2 # hpf 3000
# pan 0.7
# midiG' "^80" 0 1
d4 $ gF2 $ gMute -- Hats pirouette
$ mask "<[t f] t>"
$ "~ . [s [~ s] s ~ . ~]"
# note "0 . [[0 [2 0] 0] . 0]"
# "snare:51"
# midiG' "^80" 0 0.8
# pan 0.65
d5 $ gM $ gF2 -- BASSLINE!
$ midiOn "^58" (|- note 24)
$ mask "<t!3 t(<1 8>,8)>"
$ midiOn "^90" ( -- FIRELINE
off 0.5 (
-- (# crush 6) .
(|- note 12)
. (# cut 51)
. (# pan 0.8)
. (# room 0)
. (|* gain 0.9)
))
$ note ("<e a4 d <g4 [c ~]>>"
+ "0 . [-2 0@3]" -- Algoritmic addition
- 0) -- Scholar :nerd:
-- $ note ("<e e e c>@6 d@2" - 24) -- Nice but is that it?
# "FMRhodes1"
# cut 5
# legato 2
# room 0.64 # sz 0.5 # dry 1
# pan 0.2
# midiG' "^82" 0 1.6
# modIndex (range 0 2 "^54")
d6 $ gM $ gF1
$ fix (|* gain 0.7) "cpu"
-- $ sometimesBy "0 0.25" (mask "t . t(<3 5 8 1>,8)")
$ "[hh,cpu:1]*8"
# rel 0.5
# att 0.5
# lpf 6000
# room 0 # dry 0
# midiG' "^83" 0 1.6
d7
$ midiOff "^91" (mask "f")
$ note ("c" -7)
# release 2
# att 1
# "pad:2"
# midiG' "^83" 0 1
# cut 7
once $ "organDonor" # cut 7 # gain 1.4
once $ "ikedaBass" # gain 2
d8 $ gM $ gF1
$ midiOn "^92" (ply "<2!3 [<4 1> 1]>")
$ chop 8
$ loopAt 1
$ "break:4/2"
# cut 8
# midiG' "^84" 0 1
-- Graveyard: other break
d8 $ struct "t([5 <<5 5 3 5> <10 5 10 16>>], 16)" $ chop 16 $ "break:1" # cut 2
# pan 0.28
# gain 0.3
-- t d t d t db t d
scaleList
once $ note (scale "marva" (run 8) + 12)
# "pluck"
# cut 12 # gain 0.8
live/boeuf/algorythm/love23/killing_me_softly.tidal
......@@ -40,7 +40,7 @@ d4 $ gF2 $ gMute -- Hats pirouette
# midiG' "^80" 0 0.8
# pan 0.65
d5 $ gM $ gF2 -- BASSLINE!
$ midiOn "^58" (|- note 12)
$ midiOn "^58" (|- note 24)
$ mask "<t!3 t(<1 8>,8)>"
$ midiOn "^90" ( -- FIRELINE
off 0.5 (
......@@ -60,7 +60,7 @@ d5 $ gM $ gF2 -- BASSLINE!
# legato 2
# room 0.64 # sz 0.5 # dry 1
# pan 0.2
# midiG' "^82" 0 0 -- FIXME: DISABLED FOR CONCERT ;) 1.6
# midiG' "^82" 0 1.6
# modIndex (range 0 2 "^54")
d6 $ gM $ gF1
$ fix (|* gain 0.7) "cpu"
......@@ -103,3 +103,9 @@ d8 $ struct "t([5 <<5 5 3 5> <10 5 10 16>>], 16)" $ chop 16 $ "break:1" # cut 2
# gain 0.3
-- t d t d t db t d
scaleList
once $ note (scale "marva" (run 8) + 12)
# "pluck"
# cut 12 # gain 0.8
live/boeuf/biarritz/blue_tuesday.tidal 0 → 100644
do
setcps (90/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 gM = gMask . gMute
let gM2 = gMask . gMute2
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 chorus = pF "chorus"
let lagamount = pF "lagamount"
let dec = pF "dec"
let sus = pF "sus"
let cutoff = pF "cutoff"
let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f", "c", "g"]
d1 $ gF $ gMute
-- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>"
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8)")
$ "k"
# "[cpu,jazz,808bd:3,808bd:2]"
# midiG' "^78" 0 1.9
d2 $ gF $ gMute
$ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare"
# 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
$ 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
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 (
cat blues
- 24
)
# "bassWarsaw"
# pan 0.3
# room 0.1
# voice 0.8
# crushbus 41 (range 16 3 "^53")
# midiG' "^81" 0 1.3
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
# pan 0.33
# 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
# midiG' "^20" 0 1.6
# legato 2
# pan 0.64
# cut 10
bf g bf <bf a>
live/chip/ataright.tidal
......@@ -29,7 +29,8 @@
do
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 "^50")
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g3 = (# 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 gM = gMask . gMute
......@@ -93,8 +94,10 @@ d5 $ g2 $ gMask -- THE RAIN
# pan 0.8
# orbit 4
# midiG' "^82" 0 1.9
d8 $ g1 $ gM -- THE UNAVOIDABLE BREAKS
d8 $ g3 $ gM -- THE UNAVOIDABLE BREAKS
$ mask "t(16,64)"
$ midiOn "^36" (# n 6) -- Double light
$ midiOn "^56" (# n 4) -- DOUBLE HEAVY
$ midiOn "^60" (ply 2)
$ midiOn "^92" (fast 2)
$ slice 8 ("<0!3 ~> <1!3 3> <2 2 [2 6][ 2 6 6 6]> <3!3 7>*<1 2>")
......
live/collab/raph/meshuggah.tidal 0 → 100644
do
setcps (120/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
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 $ gM $ gF1 $ mask "<t f!3 t!28>"
$ midiOn "^42" (struct "t*<4!3 [4 4 4 <12 6>]>")
$ fix (|* gain 0.8) "kick"
$ "[jazz,808bd:4,kick:4]"
# midiG' "^78" 0 1.2
d2 $ gM $ gF1 $ "~ ~ cp ~" # "snare:40"
# midiG' "^79" 0 1.2
d3 $ gM $ gF1 $ "drum:2*<[8 4] 8 8 [8 16]>" -- [8 8 8 8] 32
# midiG' "^80" 0 1.4
-- d4 $ note (slow 5 $ "b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2")
-- # "superpiano"
-- # gain 0.8
d4 $ slow 4
$ contrast
(gF2 . (# midiG' "^81" 0 2) . (# crush 16)) -- Graves
(gF3 . (# midiG' "^82" 0 1.4) . (midiOn "^58" rev) . (# pan 0.8) . (fix (|+| note (arp "<up <up down> down>" "<c'maj'2!3 c'maj'4>")) "FMRhodes1")
. (# sustain "e e e e e e q") . (|+ note 12) . (# "[FMRhodes1,FMRhodes2]")) -- Aigus
(note (scale "aeolian" "[0,1,2,3,4,5,6,7]" - 28))
-- $ fix (# pan 0.8) (note (scale "aeolian" "[0,1,2,3,4,5,6,7]" + 7 - 28))
$ note (scale "aeolian" (
"{[[0 <~!8 1!8> 2 <~!8 3!4 ~ ~ 3> 4 <~ 5> 6 <~!3 5>]*4],[8 9 10 9 8 9 10 8 9 10 9 8 10 11 8 9 10 9 8 11 12 <8 10> 9 10 9 8 13 14 14 13 12 11]}"
) - 28)
# "bassWarsaw"
# pan 0.2
# crushbus 41 (range 16 2.5 "^53")
d8 $ gM $ gF1
$ midiOn "^92" (ply "2")
$ midiOn "^60" (ply "1 2 . <2!3 4>")
$ chop 16
$ loopAt 2
$ "jungle_breaks:6"
# midiG' "^84" 0 1.4
d1 $ "d@6 d@4 d@4 d@2"
# note "c3 ef3 g3" # "superpiano"
7 7 7 7 4
32
live/collab/raph/ragga_la_hierarchie.tidal
......@@ -50,7 +50,7 @@ d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot
# crushbus 51 (range 16 1.5 "^53")
# pan 0.4
# room 0.2 # sz 0.2 # dry 2
# midiG' "^81" 0 1.3
# midiG' "^81" 0 1.53
# cut 5
d8 $ gF $ gM
$ midiOn "^20" (# n "48")
......
live/fusion/sel_marin.tidal 0 → 100644
-- Sel Marin
-- Le grand air du large
-- Ses crabes mécaniques
-- Ses baleines mélancoliques
do
setcps (120/60/4)
let width = pF "width"
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 $ gF1 $ gM -- Kick "Underwater Rave"
$ midiOn "^42" (<| "k k <k!7 ~> <k k*<2 2 2 4 2 4 [4 8] [4 8 16]>>")
$ midiOff "^42" (<| "k*<1!8 2 1!7> . k(<<3 1> [3 <1 5> 3]>,8)")
$ "[jazz,clubkick:1]"
# midiG' "^78" 0 0.8
d2 $ gF1 $ gM2 -- Clap sonar intraitable
$ fast "<1!4 2 1 2 1 2 2 2 [4!3 [8 4]] 2 2 2 [4@3 8]>"
-- FIXME Better snare rush progresssion
$ "~ cp"
# lpf 4000
# midiG' "^79" 0 0.8
# room 0.8 # sz 0.4 # dry 0.985
d3 $ gM $ gF1 -- Drumroll de Sebastien
$ midiOn "^76" (ply 4)
$ "drum:2*[4 <4 4 <8 [8 16]>>]"
# midiG' "^80" 0 0.6
# pan 0.77
d4 $ gF2 -- Baleine sur la défensive
$ midiOn "^89" (chop (slow 2 "<[8 16 8 8 . 16 8] 1>"))
$ fix ((# width 0.5) . (# cut 12)) "bassWarsaw"
$ fix ((# voice 0.1) . (# cut 11) . (# lfo 0) . (|* gain 0.8)) "supersaw"
$ note "<<d3 d3(<3 [3 5]>,8)> <a2 a2(<3 [5 3]>,8)>>"
-- TODO: seconde voix
# "[bassWarsaw,supersaw]"
# midiG' "^81" 0 0.8
# crushbus 41 (range 16 3.5 "^53")
# room 0.3 # sz 0.4 # dry 1.1
# pan 0.4
# cut 1
d5 $ gF3 -- Accusation juste
$ note "d . <[~ <~ ~ ~ d ~ d d*2 d*4> ~ a4] [~ e f <e [e|a]>]>"
# "cpluck:7"
# midiG' "^82" 0 0.8
# pan 0.8
# cut 5
d6 $ gM $ gM2 -- Sirènes lointaines
$ whenmod 8 0 (>| note "<a c6 d6 e6> <g a5 c6 d6> <f g a5 c6> . ~ ~ <e f g e6> <d e f f6>")
$ note "a g f . ~ ~ e <d!3 f>"
# "superfork"
# pan "0.8@3 0.2"
# midiG' "^83" 0 0.8
d7 $ gF2 -- La certitude du verre brisé
$ note "<d <e g> d [a ~ ~ g ~ f e ~ ~]>" -- TODO: Variations sur la fin
# "90s_glassatm:0"
# cut 7
# midiG' "^18" 0 0.8
d8 $ gF2 -- Crystal de sel
$ "90s_synatm:2"
# note "<0 0 -5 -5>"
# midiG' "^19" 0 (range 0.23 0.45 perlin)
# room 0.4 # sz (range 0 0.6 perlin)
# delay 0.5
# delayt 0.125
# delayfb 0.9
# cut 8
d9 $ gF1 $ gM $ gM2 -- Break clap your hands sous-marin
$ midiOn "^92" (ply "[1 <2 4 [4 8 4] [8 8 4 8]>]")
$ chop 16
$ loopAt 2
$ "break:82"
# midiG' "^84" 0 0.8
# cut 9
d10 $ gF1 -- Marche rapide des crabes mécaniques
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ loopAt 4
$ "drums_commodore:0"
# midiG' "^20" 0 0.4
# pan 0.3
# cut 10
live/hip/darkside/clameur.tidal
......@@ -12,8 +12,8 @@ setcps (93/60/4)
d1 $ f1 $ gMute
$ midiOn "^42" (<| "<k k k*2 k> ~ . ~ ~ <~!2 k <~ k*2>> <~ k>")
$ midiOff "^42" (<| "<k ~> . ~ ~ ~ <k k ~ k>")
$ "jazz"
# midiG' "^78" 0 1.3
$ "[jazz,kick:5]"
# midiG' "^78" 0 1.2
d2 $ gMute
$ juxBy 0.85 (whenmod 8 7 rev)
$ f1
......@@ -60,7 +60,7 @@ d4 -- BASSES
) "infra"
$ "[matrix,infra]"
# cut 4
# midiG' "^81" 0 1.2
# midiG' "^81" 0 1.5
d6 $ f2 -- VOICES
$ fix ( -- Morohai Morshiyum Morohai Naroz
(# "voices_celtic:32")
......@@ -71,7 +71,7 @@ d6 $ f2 -- VOICES
. (# hpf 2500)
. (# room "<0.5 0.8 0.8 <0.8 0.1>>")
. (# squizbus 61 (range 0 4 "^55"))
. (|* gain 1.1)
. (|* gain 0.9)
) "morohai"
$ fix (
(# "voices_persian:10")
......
live/hip/lofi/slow_mo.tidal
-- Algolia DevCon23 - LiveCoding demo
setcps (120/60/4)
-- Lent mouvement
-- you can control short samples
once $ "jazz bd cpu kick:5" # gain 1.3
-- or longer ones
once $ "scratch_short:30" # cut 4
-- Or synthetizers
once $ arpeggiate $ note "c'majPent'3" # "moog"
# cut 1
# room "0@3 0.8"
# crush "10@3 7.5"
-- Then loops
d1 $ "jazz <cp [dr*<8 [8 16]>]>" # gain 1.2
-- Then songs...
-- SlowMo: Lent mouvement
do
-- resetCycles
resetCycles
setcps (60/60/4)
let rMask = (mask "t!6 <t!4 t?!3 f> <t t t <t? f>>")
let rLPF = (someCyclesBy "<0!32 1!8 0!16 1!8>" (# lpf (slow 8 $ range 5000 200 saw)))
......@@ -16,14 +34,14 @@ d1 $ g $ gR
$ "k ~ ~ k . ~" # "[reverbkick,tech:6]"
# legato 1.25
# lpf 1000
# gain 0.75
# gain 0.7
d2 $ g $ gR
$ mask "<f!8 t!24>"
$ "[~ cp]*2"
# note "-4"
# "snare"
# n "[1,2,12]"
# gain 0.5
# gain 0.65
d3 $ g $ gR
$ mask "<f!3 t f!4 t!7 [t f]>"
$ fix (|* gain 0.5) "snare"
......@@ -42,10 +60,10 @@ d4 $ gB -- Bassline
"[7, [~!3 9]] . [4, [~!3 <[8 9] <[11 9] [10 9]>>]]" -- Simplified laggy theme
))
# "bassWarsaw"
# octave 2
# octave "<2!16 3!16>"
# lpf 1200
# room 0.3
# gain 0.65
# room 0.13
# gain (slow 32 $ range 0.9 0.65 saw)
# pan 0.2
d5 $ g -- Rhodes base
$ mask "<f!6 t f t!24>"
......@@ -54,16 +72,18 @@ d5 $ g -- Rhodes base
"[0 <7!16 7(<2 2 3 3>,4)!16>]*4"
+ 7)))
. (# "[FMRhodes1,FMRhodes2]")
. (|* gain (slow 8 $ range 0.5 0.6 saw))
. (|* gain (slow 8 $ range 0.85 0.96 saw))
. (|+ pan 0.1)
. (whenmod 16 6 (# crushbus 5 (range 10 6.5 perlin)))
. (whenmod 16 6 (# crushbus 5 (slow 64 (range 10 6.5 saw))))
))
$ note (scale "aeolian" ( -- Organically grown main theme
"[7, ~!7 <~!3 3 ~ 3 ~ 3>] . [4, ~!3 <~ <[~ 8] [8 9] [~ . 8 9] [~ . 9 8]>>]"
))
# "FMRhodes1"
# pan 0.6
# gain (slow 32 $ range 0.68 0.85 saw)
# octave 2
# modIndex 0
# room 0.3
d8 $ g -- Runny Maracas
$ mask "<f!6 t f t!8 f!4 t!4 t!8>"
......@@ -74,4 +94,37 @@ d8 $ g -- Runny Maracas
$ "hh27*[8 . 16 8]"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# pan 0.8
# gain (slow 32 $ range 0.4 0.6 (saw + perlin / 10))
# gain (slow 32 $ range 0.5 0.7 (saw + perlin / 10))
d11 -- FX gratos
$ "fx_commodore/2"
# n "<0 .. 24>"
# gain 0.35
# pan "<0.2 0.8>"
# hpf (slow 32 $ range 6000 0 saw)
# room (range 0.1 0.53 perlin)
# sz (range 0.2 0.8 perlin)
# cut 11
d9 -- Nappe de fond
$ mask "<t!24 f!8>"
$ mask "<t!6 f f>"
$ "90s_megafx:194"
# gain (slow 32 $ range 0.5 0.3 saw)
# room 0.8
-- # delay 0.9
# delayfb 0.85
# delayt 0.25
# sz 0.8
# cut 9
d10
$ mask "<f!8 t!24 f!16 t!16>"
$ n "<18!2 [18@3 19] [19 18 19]>"
# "jungle_vocals"
# gain (slow 64 $ range 0.3 0.5 saw)
# pan 0.2
# room 0.2
# cut 10
-- once $ "fx_commodore:1"
-- # gain 0.6
-- # cut 11
live/midi/nova/ambient/contre_visite.tidal
......@@ -9,9 +9,11 @@ let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMute = (midiOn "^73" (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]>")
setcps (90/60/4)
d1 $ f1
d1 $ f1 $ gMute2
-- $ kCrush
$ 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>")
......@@ -20,7 +22,7 @@ d1 $ f1
$ "[jazz,kick:5]"
# room 0
# midiG' "^78" 0 1.3
d2 $ f1
d2 $ f1 $ gMute
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops
$ midiOn "^75" (ply "2 <2!3 4>")
......@@ -30,10 +32,11 @@ d2 $ f1
$ loopAt 2
$ slice 8 (run 8)
$ "break:20"
# pan 0.4
# cut 2
# speed (range 0.05 1.95 "^51")
# speed (range "-0.25" 2.25 "^51")
# midiG' "^79" 0 1.3
d3 $ f1 -- Sidekick, doubtful, yet hardworking hats
d3 $ f1 $ gMute -- Sidekick, doubtful, yet hardworking hats
$ 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
$ maskLoops
......@@ -67,7 +70,7 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS
# panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 16 2.85 "^54")
# midiG' "^82" 0 2
d6 $ f1 -- High lead: Winds of truth
d6 $ f2 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>")
$ whenmod 32 8 (superimpose ( -- Echos of doubts
......@@ -92,6 +95,20 @@ d7 $ f1 -- Snare <3 chak reverb phantome
$ "[snare:34,cp]"
# lpf 2000
# midiG' "^14" 0 1.8
d8 $ f1 -- 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.2
# pan 0.8
d10 $ f1 -- RANDOM FOREST NOISES
$ fix (
......
live/midi/nova/breaks/break_dynasty.tidal
......@@ -15,7 +15,7 @@ d1
slow 2 . (<| "k k k k"))
$ midiOff "^42" (<| "k . ~ k ~ ~") -- L'attente
$ "[meth_1902:2,kick:8]" # note "-2"
# midiG' "^78" 0 1.5
# midiG' "^78" 0 1.3
d2 $ gF $ gM -- Snare glitch high
$ midiOn "^75" (ply "<2 [2 <4 <2 4>>]>")
$ fix ((|* gain 0.9)) ("snare:40")
......@@ -47,7 +47,7 @@ d5 $ gF2
# legato 2
# cut 5
# crushbus 51 (range 16 2 "^53")
# midiG' "^81" 0 2.5
# midiG' "^81" 0 1.5
# room 0.2 # sz 0.2
d4 $ gF3
$ midiOn "^58" (
......
live/midi/nova/breaks/green_land.tidal
......@@ -20,10 +20,10 @@ d1 $ gLPF $ gF $ gMute $ midiOn "^75" (fast 2)
# midiG' "^78" 0 1.3
# room 0.2 # sz 0.2
# dry 0.99
d2 $ gLPF $ gF $ mask "<f!8 t!24>"
$ midiOn "^75" (struct "[~ t]*8")
d2 $ gLPF $ gF
$ midiOn "^75" (struct "[~ t]*[4 <4 8>]")
$ midiOn ("^43" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t"))
$ midiOff ("^43" - "^75") (struct "~ t")
$ midiOff ("^43" + "^75") (struct "~ t")
$ "[bssnare:0,bssnare:3]"
# midiG' "^79" 0 1.2
d3 $ gLPF $ gF $ gM2
......@@ -69,7 +69,7 @@ d5 $ gF2 $ gM2 -- BASS BONES
# crushbus 51 (range 16 2 "^56")
# octerbus 52 (range 0 0.63 "^36")
# octersubbus 53 (range 0 0.58 "^36")
# midiG' "^84" 0 1
# midiG' "^84" 0 1.8
d6 $ gF3 $ gM2 -- High pitched guitar
$ whenmod 4 3 (someCyclesBy (slow 32 $ range 0.5 0.95 saw)
$ ply "<2 [2 4] 4 8>")
......@@ -79,7 +79,7 @@ d6 $ gF3 $ gM2 -- High pitched guitar
$ "celtic_guitar80:4"
# pan 0.2
# midiG' "^82" 0 0.8
d7 $ gF3
d7 $ gF3 -- Divine
$ midiOn "^91" (ply "2 <4 <2 8>>")
$ chop 4
$ "voices_celtic"
......
live/midi/nova/breaks/its_about_time.tidal
......@@ -113,7 +113,7 @@ d6 $ gF3 -- Jump aboard the BASIC BUS
# cut 6
d8 $ gM $ gF3 -- Breaks divins -- TODO Rework?
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
$ midiOff "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21"))
$ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2
......
live/midi/nova/breaks/lourd.tidal
......@@ -61,7 +61,7 @@ d5 $ gF2 -- BASS Melody
# room 0.3 # dry 0.9
# cut 5
# pan 0.2
# midiG' "^81" 0 1.2
# midiG' "^81" 0 1.2
d6 -- Choeurs
$ gF
-- $ mask "<[f!7 t]!32 t!32>"
......@@ -101,69 +101,3 @@ d8 -- Lointains vaisseaux
# sz (slow 8 sine)
# speed ("[0.25,0.5,0.75,1,1.25]")
# midiG' "^20" 0 0.8
d10 -- Ready playerm two
$ mask "<f!3 t f!3 t f!3 t t!4>"
$ slice 8 "0 <0!3 1>"
$ loopAt 4
$ "fx_gameboy:5"
# crushbus 101 (slow 32 $ range 1.8 0.61 saw)
# midiG' "^20" 0 0.85
d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™"
$ midiOn "^44" (fast "1 2")
$ midiOn "^76" -- L'Esprit de Nassim
(
whenmod 8 7 (ply "1 . 2") .
slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") .
(loopAt "q") .
(# "breaks165") . (# cut 2)
. (|* gain 1.1)
)
$ chop 8
$ loopAt 4
$ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]"
# cut 2
# midiG' "^80" 0 0.9
# pan 0.4
d3 $ gF -- Un peu d'encouragement?
$ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000))
$ "~ clap"
# midiG' "^79" 0 2
-- # gain 0.8
d4 $ gF2 -- BURN THE BASS WITCH
$ midiOn "^57" (superimpose ( -- chain of wicked thoughts
(|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>"))
. (|* gain "<1 1 1.05 1.1>")
. (chop "8 . <8!3 16>") . (# cut 41)))
$ midiOn "^89" (chop (slow 4 $ "[16 32 64 128]"))
$ "synth/4"
# "90s_synatm:9"
# crushbus 41 (range 10 2.5 "^53")
# room 0.3
# sz "<0.4!7 0.8>"
# dry 1
# cut 4
# midiG' "^81" 0 1.6
d5 $ gM $ gF2 -- Ghosts from an easier time
$ midiOn "^58" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge")
$ note ("c'maj'4" + "<c!3 g g g [g, [~ c]] c>" - 12)
# "90s_synatm:8/4" # cut 5
# crushbus 51 (range 16 2.5 "^54")
# midiG' "^82" 0 1.1
d7 $ gM -- Break from the past
$ (# speed (range (-0.25) 0.625 "^56"))
$ midiOn "^60" (often (ply 2))
$ midiOn "^92" (slice 8 "0 ~ ~ 3 . 4 <~ 5> 6 <~ 7*<1 2>>" . loopAt 2)
$ chop 16
$ loopAt 4
$ "fbreak100" # n "<0!3 [0 4]>"
# cut 7
# pan 0.8
# room 0.3
# dry 1
# midiG' "^84" 0 1.8
live/midi/nova/disco/friends_in_blue.tidal 0 → 100644
-- You got a friend in blue
-- You've got a frienemy
-- When the road is a barricade
-- And you're miles and miles from keeping a cool head
-- You just remember what an old cop said
-- Bro, you got a friend in blue
do
setcps (60/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
d1 $ gF1 $ gMute2
$ fast 2 -- 120BPM!!!
$ fix (
(# att 0.001) . (# rel 0.05) .
(# lpf 1500)) "909"
$ "k k k k*<2 <4 [4 2]>>"
# "[909,808bd:3,kick:6]"
# midiG' "^78" 0 0.9
d2 $ gF1 $ gMute
$ fast 2
$ midiOn "^43" (<| "~ cp ~ <cp!3 cp*<2 [2 4]>>")
$ midiOff "^43" (<| "~ . cp ~ ~ <~!7 cp>")
$ "cp:1"
# n "<3!7 [3 4]>"
# room 0
# midiG "^79"
d3 $ gMute $ gF1 -- charley double croche
$ midiOn "^76" (ply 2)
$ s "hh*16"
# note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
# n 8
# gain 0.8
# pan 0.6
# midiG "^80"
d4 $ gF2
$ midiOn "^89" (ply "8")
$ midiOn "^57" (slice 4 ("<0!8 2!8> 0 0 <1!3 3>"))
$ chop 8
$ midiOn "^33" (# n 39) -- BassC_120E
$ "fbass:37" -- BassC_120D
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# room 0
# pan 0.2
# midiG' "^81" 0 0.8
d5 $ gF3
$ midiOn "^90" (ply "<8!4 8 16 [16 32] [32 64]>")
$ midiOn "^58" (slice 4 ("0"))
$ chop 16
$ n "<39!4 37!3 [37 39]>"
# "fguitar"
-- 39: La base
-- 37: high or not?
-- 38: Rif hesitation
# cut 5
# gain 0.8
# crushbus 51 (range 16 2.5 "^53")
# midiG' "^82" 0 0.8
d8 -- TODO: Validate or replace ;)
$ midiOn "^92" (ply 4)
$ loopAt 1
$ chop 16
$ "fbreak80:10"
# midiG' "^84" 0 0.8
once $"fx_:9"# gain 0.8
once
$ "fguitar:39"
# gain 0.7 # cut 5 # pan 0.9
d9 -- Nappe de fond??
$ "90s_megafx:189"
# gain "^20"
# room 0.8
-- # delay 0.9
# delayfb 0.85
# delayt 0.25
# sz 0.8
# cut 9
once $ "tek_kick:4"
# room 0
live/midi/nova/dnb/alerte_verte.tidal
......@@ -50,7 +50,7 @@ d3 $ g1 $ gM -- Running Hats
# dry (slow 4 $ range 0 2 perlin)
# pan 0.6
# cut 344
d4 $ g1 -- Resolute Bass
d4 $ g2 -- Resolute Bass
-- $ jux ((# cut 41) . (|+ crush (range 0.5 1 perlin)))
$ 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]]>"
......@@ -62,8 +62,8 @@ d4 $ g1 -- Resolute Bass
# pan 0.15
-- # room 0.125 # sz 0.1 # dry 1
# crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 1.6
# cut 4
# midiG' "^81" 0 2
-- # cut 4
d6 -- Guitar A -- L'attente (18=0) TODO Rework?
$ g2
$ mask "<f!3 t>"
......
live/midi/nova/dnb/nouveau_soleil.tidal
......@@ -2,14 +2,15 @@ do
setcps (110/60/4)
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 "^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 gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gMute
$ midiOn "^42" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^42" (<| "k . ~ k ~ <~!7 k>")
$ "[jazz,kick:4]"
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "[jazz,kick:4]"
# midiG' "^78" 0 1.2
d2 $ gF $ gM -- Snare FOU
$ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>")
......@@ -33,8 +34,8 @@ d4 $ gF2 $ gMask
$ midiOn "^57" (# "bass_gameboy:5")
$ "bass_gameboy"
# cut 4
# midiG' "^81" 0 1
d5 $ gF2 $ gMask
# midiG' "^81" 0 1.2
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)))
$ whenmod 16 8 (off "h" ((|+ note 12) . (# pan 0.8)))
......@@ -44,23 +45,24 @@ d5 $ gF2 $ gMask
# pan 0.2
# hpfbus 51 (range 0 8000 "^34")
# midiG' "^82" 0 0.9
d6 $ gF2 $ gMask
-- $ juxBy 0.8 (rev . (# cut 61))
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
d8 $ gF2 $ gMask
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 "<2 [4 <4 8>]>")
$ 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.4
# midiG' "^84" 0 1.2
live/midi/nova/dnb/venons_ensemble.tidal
......@@ -31,7 +31,7 @@ d2 $ gF $ gMute $ fast 2 -- Snare dnb assorti
# room 0
# note "-2"
# legato 0.5
# midiG' "^79" 0 0.7
# midiG' "^79" 0 1.2
d3 $ gF $ gMute2
$ midiOn "^44" (ply "1 2")
$ midiOn "^76" (ply "<2 [2 4]>")
......@@ -41,8 +41,8 @@ d3 $ gF $ gMute2
# pan 0.35
# midiG' "^80" 0 1
d4 $ gF2 -- COME WITH THE BASS
$ superimpose (const $ gF2
-- $ n "<8 8 [8 <8 9>] [<9 [9 9]>]>"
$ superimpose (const $ gF2
$ whenmod 16 8 (rev . chop 4)
$ n "[19 <21!3 <20 22>>]"
# "meth_bass"
# cut 41
......
live/midi/nova/lofi/lendemain_divin.tidal 0 → 100644
once $ "bassWarsaw" # gain 2
-- Lendemain Divin
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 gM = gMask . gMute
let gM2 = gMask . gMute2
setcps (95/60/4)
d1 $ gMute
$ fix (|* gain 0.9) "kick:5"
$ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>")
$ "[jazz,808bd:3]"
# 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
# midiG' "^79" 0 1.4
d3 $ gF1 $ gMute2
$ midiOn "^76" (ply 2)
$ 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>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
-- $ midiOff ("^44" + "^76") (<| "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" )
$ drumFrom "[rolandtr808,rolandtr606]" "[hh]"
# n "0!3 <0!3 1>"
# lpf 4500
# att (slow 16 $ range 0.001 0.04 cosine)
# rel 0.4
# 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"))
-- $ note "[c3,ef3,g3,as3,d4,f4]"
-- Bassline habituelle
$ midiOff "^57" (
>| note "<<d4!6 [d4@7 <f4 g4>]!2> <a3!4 [a3@7 <c4 c3>]!4> [<g3 [g3@7 f3]>] d3>"
)
$ midiOn "^57" (
>| note "<[d3@6 c3@2] <as3 as3*2> <[f4@6 f4 g4] [f4@5 g4 f4 c4]> d4>"
)
$ "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# room 0.2
# cut "41 42 43 44"
# midiG' "^81" 0 1.42
d6 $ gF3
$ n "<0 0 <6 5> 0 1 1 2 7>"
# "come_guitar" # cut 6
# crushbus 61 (range 16 2.5 "^54")
# midiG' "^82" 0 1
d8 $ gM2 $ gF3
$ midiOn "^92" (ply "<4 4 8 16>")
$ midiOn "^20" (loopAt 4 . (# n 11)) -- Submarine 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>"
$ loopAt 2
-- $ midiOn "^36" (# n 1)
$ "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
# note "-2"
# legato 0.5
live/midi/nova/lofi/premier_mai.tidal
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
......@@ -16,21 +17,23 @@ d2 $ gF
$ midiOff "^43" (<| "~ c")
$ "cp" # lpf 2000 # gain 0.8
# midiG' "^79" 0 1.2
d3 $ gF $ gMute
d3 $ gF3 $ gMute
$ midiOn "^76" (ply 4)
$ midiOn "^44" (struct "t*[8 8 <8 16> <8!3 16>]")
$ midiOff "^44" (<| "h . h([2 <4!3 5>],8)")
$ drumFrom "yamaharm50" "hh"
# midiG' "^80" 0 1.2
d4 $ gF2
$ midiOn "^89" (ply "1 . <2 1> <1 <2 4>>")
$ midiOn "^57" (|+ note 12)
$ note (stack ["[bf3 ~] bf3@7",
"[~!3 <~!4 bf3!4> . bf3 ~ cs4 <ds4!3 f4>]"
])
# "bassWarsaw"
# crushbus 51 (range 16 3.8 "^53") -- BURN ME I'M FAMOUS
# crushbus 51 (range 16 3.4 "^53") -- BURN ME I'M FAMOUS
# roombus 52 (range 0 0.8 "^53") -- REVERB AND DINE BEFORE THO
# midiG' "^81" 0 1.2
d6 $ gF2
d6 $ gF3
$ note (
"<bf5 c6 cs6 <ef6 f6>>"
-- |+| "0 ~ [0 0] ~ ~ 0*2 ~ >"
......@@ -38,8 +41,9 @@ d6 $ gF2
)
# "cpluck:2"
# cut 6
# crushbus 61 (range 16 2.8 "^54") -- BURN ME I'M FAMOUS
# midiG' "^82" 0 1.2
d7 $ gF3 -- SHILOOOOOH
d7 $ gF3 -- SHILOOOOOH FIXME: Marche plus avec la nouvelle basse
$ midiOff "^59" ((# room 0.2) . (# legato 0.5))
-- $ (# hpfbus 71 (range 200 8800 ("^19")))
-- $ (# lpfbus 71 (range 8800 200 ("^35")))
......@@ -55,9 +59,10 @@ d7 $ gF3 -- SHILOOOOOH
# legato 2
# cut 7
# midiG' "^83" 0 1.2
d8 $ gF $ gM
$ midiOn "^20" (# n "20")
$ midiOn "^36" (# n "10")
d8 $ gF3 $ gM -- SIDE DRUMS TO THE RESCUE!
$ midiOn "^20" (# n "20") -- SLOW DOWN
$ midiOn "^36" (# n "10") -- HAT TRICK
$ midiOn "^56" ((# n "11")) -- RESOLUTE
$ midiOn "^60" (slow "2 <4 8>")
$ midiOn "^92" (ply "2 <4 8>")
$ loopAt 4
......
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 2
# midiG' "^78" 0 1.42
-- # room 0.2 # sz 0.2
-- # dry 0.99
d2 $ gF $ gM -- Snare clockwork
......@@ -22,11 +22,11 @@ d2 $ gF $ gM -- Snare clockwork
midiOn "^43" (struct "~ t(<3 [3 <1 5>]>,8)")
. midiOff "^43" (struct "<[~ t]!32 [~ t ~ t]!32>")
)
$ "[snare:20,clap]"
$ "[snare:40]"
# midiG' "^79" 0 1.2
d3 $ gF $ gM
$ midiOff "^44" (slow 2)
$ midiOn "^76" (ply 2)
$ midiOn "^76" (ply "2 4")
$ drumFrom "yamaharm50" "hh*<8!3 [8 . 16 <8 16 [24 8] 32>]>"
# n "<0 1 2 3>"
# midiG' "^80" 0 1.2
......@@ -44,7 +44,8 @@ d8 $ gF $ gM
# cut 3
# pan (slow 8 $ range "<0.2!8 0.8!8>" 0.5 cosine)
# midiG' "^84" 0 1.3
d4 $ gF3
d4 $ gF3 -- LoFi Girl at the piano!
$ midiOn "^90" (ply 2)
$ midiOn "^58" (
-- (often (off 0.5 (slow "1 " . mask "f t" . (|+ note 12) . (|* gain 0.9))))
-- . (off ("h" + "s") id . arp "up")
......@@ -56,8 +57,8 @@ d4 $ gF3
# "FMRhodes2"
# modIndex (range 0 16 "^54")
# pan 0.8
# midiG' "^82" 0 1.3
d5 $ gF2
# midiG' "^82" 0 1.5
d5 $ gF2 -- Bassline langoureuse
$ midiOn "^89" (chop 8)
$ note (
-- "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>"
......@@ -65,10 +66,10 @@ d5 $ gF2
- 24)
# "bassWarsaw"
# crushbus 51 (range 16 2 "^53")
# midiG' "^81" 0 2
# midiG' "^81" 0 1.52
# room 0.2 # sz 0.2
d7 $ gF3
$ midiOff "^59" (mask "<f!64 t!64>")
-- $ midiOff "^59" (mask "<f!64 t!64>")
$ slice 4 "~ <~ [0 1]>"
$ chop 4
$ loopAt 4
......
live/midi/nova/lounge/invoque_ete.tidal
resetCycles
-- Invoque l'été
-- Il ne viendra pas tout seul ;)
do
......@@ -12,6 +11,7 @@ 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)
$ midiOn "^42" (<| "k k k <k k k*2 [~ k]>")
......@@ -25,13 +25,13 @@ d2 $ f1 $ m $ mMute -- Clave de l'été
$ "d ~ ~ d d ~ d <~!3 d>"
-- $ "d"
# "[snare:22,sn:4]"
# midiG' "^79" 0 1
# midiG' "^79" 0 0.71
# speed (range 0 2 "^51")
d8 $ f1 $ m -- Mecano Course
-- $ 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) . (|* speed 2) . (>| "breaks165"))
$ 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>"
......@@ -41,21 +41,21 @@ d8 $ f1 $ m -- Mecano Course
# midiG' "^80" 0 1.3
-- # speed (range 0 2 "^16")
# 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 $ f1 $ m -- Bassline variable double piste
-- 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)
......@@ -65,20 +65,21 @@ d4 $ f1 $ m -- Bassline variable double piste
# crushbus 51 (range 16 4.5 "^53")
# midiG' "^81" 0 1.4
# cut 4
d6 $ f2 $ m -- Douce guitare juxée
d6 $ f3 $ m -- Douce guitare juxée
$ chop 16
$ midiOn "^58" (juxBy 0.85 ((# cut 31) . rev . (|* gain 0.93)))
$ midiOn "^18" (juxBy 0.85 ((# cut 31) . rev . (|* gain 0.93)))
$ whenmod 16 12 (rev)
$ whenmod 8 4 (chop 4)
$ loopAt 4
$ "fguitar" # n "<12!16 13!16>"
$ midiOn "^58" (# n 13)
$ "fguitar:12"
# 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
d7 $ f2 $ m
d7 $ f3 $ m
$ loopAt 4
$ mask "t(<4 8 12 16>,16)"
$ slice 16 (run 16)
......@@ -86,8 +87,8 @@ d7 $ f2 $ m
# pan 0.45
# midiG' "^83" 0 1.4
# cut 7
d12 $ f2 $ m -- Angels of moogland
$ midiOn "^92" (|+ note 24)
d12 $ f3 $ m -- Angels of moogland
$ midiOn "^92" ((|* gain 0.85) .(|+ note 24))
$ midiOn "^60" (
superimpose (
struct "t(5,8)"
......
live/midi/nova/party/blues_machine.tidal
......@@ -13,4 +13,5 @@ d4
once $ "blues_elmore:6" # gain 0.8 # cut 4
once $ "break"
once $ slice 8 0 $ "break"
# cut 1 # gain 1.3
live/midi/nova/party/electro_blues.tidal
......@@ -34,7 +34,7 @@ d3 $ f1 -- Snakes
d4 $ f2
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
ply "<2 4 [4 8] 8>" .
arp "pinkyup"
. (often (ply 2))
-- . (|* gain 0.8)
......@@ -42,6 +42,7 @@ d4 $ f2
-- . (# crush 16)
-- . (|+ note 12)
))
$ superimpose (|+ note "[0,7]")
$ note (
cat blues
- 24
......@@ -68,7 +69,7 @@ d5 $ f2 -- Choeurs
# "moogBass"
# octave 3
# midiG' "^82" 0 1.4
# room 0.4
# room 0.4²
# size 0.7 # dry 1.05
d9 $ f1
$ loopAt (2 + (2 * "^92"))
......
live/midi/nova/techno/ete_a_mauerpark.tidal
-- L'Ete a MauerPark
-- Exercice en progression(s)
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
......@@ -19,22 +18,25 @@ let sus = pF "sus"
let cutoff = pF "cutoff"
d1 $ gF $ gMute
-- $ midiOn "^74" (fast 2)
$ fix (|* gain 0.9)"kick:4"
$ midiOn "^42" (struct "t t t t") -- Le Run
$ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
-- $ midiOff "^42" (struct "t . ~ t ~ ~")
$ "[techno:0,808bd:2,909,kick:4]"
# att 0.015
# rel 0.125
# room 0
# lpf 4000
# midiG' "^78" 0 1.3
# midiG' "^78" 0 1.9
d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ c")
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "0.8 1") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# midiG' "^79" 0 1.3
d7 $ gF3 $ gM2 -- High Dauphin
# midiG' "^79" 0 1.9
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 ~]>"
)
......@@ -43,7 +45,7 @@ d7 $ gF3 $ gM2 -- High Dauphin
# room 0.2
# pan 0.9
# crushbus 71 (range 16 2.5 "^55")
# midiG' "^83" 0 1
# 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>]>]")
......@@ -51,10 +53,10 @@ d3 $ gF $ gMute2
$ "~ 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 Baleine
d4 $ gF2 $ slow 2 -- Basse Germanique
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
$ (0.125 <~) -- Calage :)
$ someCyclesBy "^17" (
$ 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))
......@@ -67,7 +69,7 @@ d4 $ gF2 $ slow 2 -- Basse Baleine
# room 0.2
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1.3
# midiG' "^81" 0 1.6
d6 $ gF3 $ gMute2 -- Leads reponse
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
......@@ -87,10 +89,10 @@ d6 $ gF3 $ gMute2 -- Leads reponse
)
# "FMRhodes1"
# room 0.2
# pan 0.8
# pan 0.33
# modIndex (range 0 16 "^34")
# crushbus 61 (range 16 2.5 "^54")
# midiG' "^82" 0 1.3
# midiG' "^82" 0 1.5
d8 $ gM $ gF3 -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
......@@ -101,7 +103,7 @@ d8 $ gM $ gF3 -- Breaks divins
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1.8
# midiG' "^84" 0 1.4
d10 $ gF3 -- Pads angéliques
$ sometimesBy "^19" (superimpose (
(# cut 101)
......@@ -116,8 +118,8 @@ d10 $ gF3 -- Pads angéliques
slow 2 "<bf4 d5 <bf4 ef> [bf4 a4@3]>"
+ "[0,[0*<1 1 2 <2 1>> . 0 12*<1 2>]]"
)
# chorus (range 0 2 "^36")
# "moogBass"
# chorus (range 0 2 "^35")
# "moogBass" -- FIXME: Other synth?
# dec 0.2
# sus 1
# att (range 0.001 2 "^16")
......
live/midi/nova/techno/panda_rouge.tidal 0 → 100644
"""
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$**$$$$$$$$$**$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$" ^$$$$$$F *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$ z$$$$$$L ^$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$ e$$$$$$$$$e J$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$eee$$$$$$$$$$$$$e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$b$$$$$$$$$$$$$$$$$$*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$)$$$$P"e^$$$F$r*$$$$F"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$d$$$$ "z$$$$" $$$$% $3$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$*"""*$$$ .$$$$$$ z$$$* ^$e*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$" *$$ee$$$$$$$$$$*" $$$C$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$. "***$$"*"$$"" $$$$e*$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$b "$b.$$" $$$$$b"$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$c. """ $$$$$$$^$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$e.. $$$$$$$$^$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$eeee.. J$$$$$$$$b"$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$r z$$$$$$$$$$r$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" z$$$$$**$$$$$^$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$*" z$$$P" ^*$$$ $$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$*" .d$$$$ $$$ $$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$" .e$$$$$F 3$$ $$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$. .d$$$$$$$ $PJ$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$eeeeeeed$*""""**"" $\$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $d$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$. $$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$e. d$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$eeeeeee$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$AsciiArt$by$Gilo94$$$
do
setcps (120/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>] t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF $ gM2
-- $ midiOn "^75" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") -- 4F
-- $ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ midiOff "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
-- $ midiOn "^42" (struct "t t t <t [t <~ t*<2 1>> t*<1!3 2>]>")
$ fix (|* gain 0.9) "jazz"
$ fix (
(# att 0.05). (# rel 1) . (# lpf 200)) "kick"
$ "[kick:3,jazz]"
# midiG "^78"
d2 $ gF $ gM
$ whenmod 8 7 (off "e" ((|* gain 0.8) . (# hpf 5000)))
$ midiOn "^42" (<| "~ s ~ <s [s s*<1 2>]>")
$ midiOn ("^43" - "^42") (<| "~ ~ s*<1 1 1 2 2 2 1 2> <~ [~ s*<1 2>]>")
$ midiOff ("^43" + "^42") (<| "~ <~ s>")
$ "[snare:42,snare:11]"
# hpf 500
# room 0.2 # dry 1 # sz 0.7
# delay 0.5
# delayt "s"
# delayfb 0.05
# midiG' "^79" 0 0.7
# pan 0.8
d3 $ gF2 $ gM
$ midiOn "^76" (ply "[2 1 2] <[4 8 4]!3 [8 16 8]>")
$ midiOn "^44" (ply "2 1 2 <1 <2 4>>")
$ "dr*<8!3 [16@3 8]>"
# midiG' "^80" 0 1.1
d4 $ gF2 $ gMask -- Basic bass
$ note (scale "aeolian" (fast 2
"<0!3 <-1 [-2 -3@3] <2 [-1@2 -1 2]> <[4@6 4 5] [5@3 5 4@2 4 6]>>>") - 24)
# "bassWarsaw"
# pan 0.2
# att 0.1
# legato 2 # cut 4
# rel 10
# crushbus 41 (range 16 3.5 "^53")
# roombus 42 (range 0.2 0.5 "^53") # sz 0.9 # dry 1
# midiG' "^81" 0 1.2
d5 $ gF3 -- Burning birds
$ fix (mask "t f") "juno:0"
$ fix (mask "t(<2 [2 6]>,8,1)") "juno:3"
$ fix ((# hpf 5000) . (|+ pan 0.2)
. (# delay 0.4) . (# delayfb 0.4)
) "juno:4"
$ (0.5 ~>)
$ note (scale "aeolian" ("[0 <1!7 2 -1!7 2> . ~@2 2 <4 6>]"))
# "[juno:0,juno:4,juno:3]"
# pan 0.8
# midiG' "^82" 0 1
d6 $ gF3 -- guitar dub contretemps
$ note (scale "aeolian" (
"[~ <1!3 <3 <-1 [-1 0]> 4 <7 [6 7]>>>]*2"
+ 7))
# "pluck"
# end 0.5
# cut 6
# pan 0.3
# midiG' "^83" 0 1
d10 -- JUNGLE PEOPLE
$ n (stack [
"<~!7 <10!3 12>>", -- SICK
"~ <~!14 21 21>", -- Drop!
-- "<~!16 <45!3 [45 46]>!16>" -- Cool
""
])
# "jungle_vocals"
# cut 10
# midiG' "^20" 0 0.8
# pan 0.14
d7
$ note ("<0 0 1 -2>/4")
# "90s_synatm"
# cut 7
# crushbus 71 (slow 32 $ range 16 3 sine)
# room 0.2 # dry 1.3 # sz 0.7
# midiG "^19"
d8 $ gF $ gM
$ midiOff "^60" (mask "t . t(<1 3 5 <3 8>>,8)")
$ midiOn "^92" (ply 2)
$ loopAt 2
$ chop 16
$ midiOn "^36" (# n "48")
$ n "<40!3 [40 42]>"
# "jungle_breaks"
# cut 8
# midiG' "^84" 0 0.8
d11 $ gF3 -- bogdan grime
$ fix (midiOff "^42" $ mask "f") (n "1")
$ n (stack [
"<[<~!2 <~ <0 [0] [0 2]>> ~>]>", -- Me Love outsourcing
"<~!32 [<1!3 ~>]!16 ~!16>", -- From Cardiff!
"<~!16 [<~!11 3 ~!3>]!16 ~!32>", -- I'll do pints
"<[<<0!3 2> ~>]!8 ~!24>", -- Me Love Critical Thinking!
""
])
# "bogdan_grime"
# cut 11
# pan 0.8
# room 0.4 # sz 0.3
# dry "<1!6 1.5 2>"
# midiG' "^18" 0 1.4
live/mood/fight/grimpe.tidal
......@@ -2,7 +2,7 @@
do
setcps (90/60/4)
let gDJF1 = (# djfbus 1 (range 0.05 0.9 "^49"))
let gDJF2 = (# djfbus 2 (range 0.01 0.99 "^29"))
let gDJF2 = (# djfbus 2 (range 0.01 0.99 "^50"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let mBreakManual = (midiOn "^73" (mask "f*16"))
let g1 = (gDJF1)
......@@ -20,7 +20,7 @@ d2 $ g1 $ m
d3 $ g2 $ m
$ whenmod 8 6 (fast "<2 [4 . 2 1]>")
$ "drum:2*[8!3 <16!3 [32 16]>]"
# midiG' "^51" 0 0.65
# midiG' "^51" 0 0.9
# pan 0.8
d4 $ g2 $ m
$ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^52"))
......@@ -35,8 +35,8 @@ d5 $ g2 $ m
# cut 5
# pan 0.2
# crushbus 50 (range 10 2.1 "^53")
# midiG' "^81" 0 1
d6 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>"))
# midiG' "^81" 0 1.4
d6 $ g2 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>"))
# "pluck:5"
# cut 6
# att 0
......@@ -44,7 +44,7 @@ d6 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>"))
# crushbus 60 (range 10 1.9 "^54")
# pan 0.8
# room 0.4
# midiG' "^82" 0 0.6
# midiG' "^82" 0 0.8
d7 $ g2
$ midiOff "^59" (mask "t f!7 . t f!3 t f!3")
$ note (scale "aeolian" (
......@@ -56,4 +56,4 @@ d7 $ g2
# room 0.4
# sz 0.8
-- TODO: Add cool effect (crush doesn't work well)
# midiG' "^83" 0 1.3
# midiG' "^83" 0 1.7
live/mood/soothing/breathe.tidal
do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
......@@ -16,7 +15,7 @@ d2 $ g -- Snare contretemps
$ whenmod 4 3 (off (-1/16) (|- note 3)) -- Double shot
$ "~ c"
# "snare:42"
# midiG' "^79" 0 1.8
# midiG' "^79" 0 1.3
d3 $ g -- Drumroll
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
......@@ -38,7 +37,8 @@ d4 $ g2
d5 $ g2 -- Programmatic bass robot
$ midiOn "^57" (mask "t f!6 t?") -- Take a break my dear
$ whenmod 64 32 (sometimesBy "0 1" rev) -- Run in circles
$ swing 8
-- $ swing "8"
$ struct "t([16 8 <16 8 <4 32>>],16)"
$ arp "<up!8 downup!8 updown!8 thumbupdown!8>"
$ superimpose ((|+ note 12) . (# cut 51))
$ note (
......
live/techno/noir/burn_this_book.tidal
......@@ -88,7 +88,7 @@ do
# sz 0.5
# pan 0.7
# midiG' "^82" 0 1.65
d7 $ loopAt 8 -- L'auteur
d7 $ loopAt 8 -- L'auteur TODO: Rework? Replace? Remix?
$ "90s_synatm:16"
# cut 7
# octerbus 71 (range 0 2.4 ("^55"))
......@@ -102,6 +102,6 @@ do
# cut 8
# note (-4)
-- # n (4 + "<1 1 [2|3|4] <1 4>>")
# midiG' "^77" 0 1
-- # room 0.2 # dry 1
-- # pan "<0.3!3 <0.7 0.3>>"
# midiG' "^20" 0 1
# room 0.2 # dry 1
# pan "<0.3!3 <0.7 0.3>>"
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