Skip to content

T
Tidal
Commit 6d631a89 by PLN (Algolia)
Options

Live: Post LiveCodePlay

parent 7b697e8a
Showing with 527 additions and 139 deletions
live/boeuf/premier_tour.tidal 0 → 100644
once $ "breaks"
do
setcps (80/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let rDeg = degradeBy ("[0 1!7]*2" * (slow 32 $ range 0 0.75 saw))
let mDeg = degradeBy ("[0 1!7]*2" * range 0 0.9 "^13")
d1 $ g1 $ mDeg
$ (# midiG' "^78" 0 1.5)
-- $ superimpose (const $ "k . k(<1 3 1 5>, 8)" # "jazz" # gain 0.4)
-- $ midiOn "^42" (<| "k <~!16 k!16> . ~ k*2 k*<1!3 <2 4>>") -- BREAK
$ midiOn "^42" (<| "k . k(5,8)") -- BREAK
$ midiOff "^42" (<| "k k k <k k*2 k [~ k]>") -- 4F!
$ "[808bd:2]"
d2 $ g1 $ mDeg
$ whenmod 4 3 (off "<q e>" id)
$ midiOn "^43" (fast 2)
$ "~ a"
# note (-4)
# "[amencutup:5, snare:40]"
# midiG' "^79" 0 1
d3 $ g1 $ mDeg
$ "d d*<1!8 2!8> d*<1!8 2!8> d*<2 2 4 8>"
# "drum:2"
# pan (slow 8 $ range 0.4 0.6 isaw)
# midiG' "^80" 0 1.3
d5 $ g1 $ mDeg
$ midiOn "^57" (|* speed 2)
$ midiOn "^89" (ply "<2!3 4>")
$ slice 4 ("0 <~ 1> 2 <3!3 3*2>")
$ loopAt 1
$ "break:17"
# pan (slow 16 $ range 0.33 0.66 sine)
# pan 0.7
# midiG' "^81" 0 0.9
# crushbus 51 (range 16 3 "^53")
d6 $ g1 $ mDeg
$ midiOn "^60" (sometimesBy "0 1" rev)
$ midiOn "^92" (ply 2)
$ slice 32 ("[0 1*<0 1 2 3>] [1 0] 2*2 3*<1!3 2>")
$ loopAt 2
$ "break:19"
# midiG' "^84" 0 0.9
# cut 6
# pan 0.8
d7 $ g1 $ mDeg
$ midiOn "^59" (iter "1 2")
$ midiOn "^91" (superimpose ((|* speed 2)))
$ loopAt "<4!8 2!28>"
$ "breaks165"
# midiG' "^83" 0 0.9
# cut 7
# pan 0.8
-- PHASE 2: RESOLUMENT CARRE
do
setcps (80/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
d1
$ "k*4"
# "jazz"
# gain 0.5
d2
$ "~ c ~ c"
# "cp"
# lpf 400
# gain 0.9
d3
$ "[h*<1!4 2 1!2 2>] h*3 . h*<1!8 2!8> h*4"
# "hc:3"
# cut 3
# gain 0.4
# pan 0.7
d4
$ slice 8 (run "8 <8!3 4>")
$ "break:1"
# cut 4
# gain 0.48
live/chill/break/break_the_sunday.tidal 0 → 100644
once $ "dr"
setcps (75/60/4)
do
let g = whenmod 32 0 (# djfbus 1 (slow 8 $ range 0.45 0.1 saw))
let prog = "<c f g c4>"
d1 $ g
$ "808bd:5"
d2 $ g $ loopAt 2
$ whenmod 4 3 (ply "1 2")
$ "break"
# gain 1
# cut 1
d3 $ g $ "dr*8"
# gain 0.9
d4 $ g $ note ("c'maj'4" + prog)
# "FMRhodes1"
# gain 0.9
d5 $ g
$ whenmod 32 16 (
superimpose (
arp "updown"
. (|+ note "c'min'4"))
. (|* gain 0.85)
. (# pan 0.6)
)
$ note (prog - 24)
# "bassWarsaw"
# pan 0.2
# gain 1.2
live/dub/renfort_solaire.tidal 0 → 100644
do
-- resetCycles
-- once $ note "a3" # "bassWarsaw" # pan 0.35 # cut 6 # gain 0.4 # room 0.8 -- IntroBass Base
setcps (70/60/4)
let g = (# djfbus 1 (0.27))
d1 $ g -- Kick somewhat RubaDub
$ mask "<f!4 [t f]!4 t!54>" -- Intro
$ "k . ~ [~ k] <k ~ ~ k> <~ [<k ~> <~ k>]>"
# "[cpu2,jazz,808bd:3,808bd:7]"
# lpf 5000
# room 0 # sz 0
# orbit 1 -- Does this fix the weird first room ?!
# gain 1.2
d2 $ g -- Drums semi-clave pattern
$ "~ ~ ~ d ~ ~ d <~ d*<1 2 4>>"
# "[drum:2,auto:9]"
# gain 0.9
d3 $ g -- Clap snare: phantom agora
$ whenmod 4 3 (juxBy 0.4 (# lpf 4000)) -- Side time-travel echoes
$ "~ ~ <~ <[~ c]!3 ~>> ~ <~!2 [~ c] ~> c ~ ~"
# "clap:2"
# hpf 2000
# room "<0.64!7 1>"
# sz 0.3
# dry 0.98
# gain 0.65
d4 $ g -- Surprise, breakbeat!
$ rarely (juxBy 0.8 (ply "[2|2|<2 4>|<2!3 4>]"))
$ whenmod 64 48 (|* gain (slow 16 $ range 1 0.5 saw))
$ someCyclesBy "<0!16 1!16 0!32>" (|* gain (slow 16 $ range 0.65 1 saw))
$ mask "<f!16 t!48>"
$ slice 4 "0 1 <2!4 0!4> 3 0 <1!6 ~ ~> <2!6 ~ 2> <3!3 <2 [2 3]>>"
$ loopAt 0.5
$ "breaks165"
# pan 0.65
# gain 0.9
d5 $ g
$ (0.125 ~>) -- Bien calé!
$ mask "<f!16 t!48>" -- Intro/64
$ whenmod 4 3 (slow "<2 4>") -- Break-ish
$ mask "<t(1,4)!4 t(2,4)!4 t!8 t(<4!3 3>,4,<0!3 1>)!16>" -- Dégradé
$ chop 4
$ slice 4 "<0!3 1>"
$ loopAt 4
$ "rootsGuitar:7"
# room (slow 32 $ range 0.2 0.65 saw)
# dry 1
# sz 0.9
# pan (0.75 + 0.25 * (slow 8 perlin))
# gain (0.8 - 0.1 * perlin + 0.2 * (slow 16 $ saw))
# cut 5
d6 $ g -- Bass Base
$ whenmod 32 16 (superimpose ((# cut 61) -- Crushed cousin
. (# crushbus 61 (range 6.5 4.85 (fast 8 perlin)))
. (|+ pan 0.2)
. (|* gain (slow 32 $ range 0.5 1 saw))
))
$ note (
"<a af gf <af!3 e>>"
+ "0 0(<3!3 5>,8)"
|+ "0 . 0 <0!3 7> 0"
- 24
)
# "bassWarsaw"
# pan 0.35
# cut 6
# gain (slow 8 $ range 0.45 0.56 cosine)
# room 0.8
d7 -- Forks of love
$ mask "<f!32 t!96>"
$ superimpose (struct "t*[8 <8 <16 <[32 16] [16 32 16]>>>]" . arp "up")
$ note "<[cs,e,a5] [cs,e,af5] [cs,e,gf] <[cs,e,af5] [b4,cs,af5]>>"
-- $ note "<[b4,cs,af5]>"
# "superfork"
# gain (slow 64 $ range 0.24 0.73 saw)
# dry 1 # room 0.8 # sz 0.9
once
-- $ (arp "up pinkyup")
$ note "<[cs,e,a5] [cs,e,af5] [cs,e,gf] [cs,e,af5]>"
# "superfork"
-- # voice 8
# gain 0.85
-- # velocity 0.7
live/fusion/comete/my_other_car_is_a_storm.tidal 0 → 100644
do
setcps (80/60/4)
let modIndex = pF "modIndex"
let g = (someCyclesBy "<f!32 t!16 f!32>" (# djfbus 1 (slow 16 $ range 0.5 0.9 saw)))
d1 $ g $ "k k k <k!3 [<~ k> k]>"
# "jazz" # gain 0.9
d2
$ off "h" ((|* gain 0.8)
. (# cut 11)
. (|+ hpf 1500)
. (# pan 0.8)
)
$ slice 4 (
-- "<0!2 0*2 0 1!3 0 0 1 0*2 0 1!3 0 2!4 3(3,8)!4>" -- HARD SYNC
"<0!2 0*2 0 1!3 0>"
)
$ loopAt 4
$ "noir_radio"
# cut 1
# room 0.5
# sz 0.5
# gain 0.6
d3 $ g
$ off "<e!3 s>"
((ply "<1 <2 4>>")
. (|* gain 0.9)
. (# pan 0.6)
)
$ "g*4" # "gretsch:4"
# pan 0.4
# gain 0.8
d4 $ g
$ slow 2
$ note "<[gs@14 gs a] [f@15 g]>"
# octave 3
# "bassWarsaw"
# cut 4
# pan 0.7
# gain 0.7
d5 -- INCOMING BEAT
$ slice 4 ("0 1 <2 <0 [0 2]>> 3*<1!3 4>")
$ loopAt 2
$ "noir_beats:3"
# cut 5
# room 0.4
# gain (slow 32 $ range 0.25 "<0.65!32 0.85!32>" saw)
# pan (slow 32 $ range 0.89 0.6 (saw + 0.25 * perlin))
d6
$ superimpose (
ply "<1!3 <2 [2 4]>>"
. struct "t(<3 <5 8>>,8)"
. arp "up"
. (|+ note "[c'maj'4]")
. (# modIndex (slow 32 $ range 1 50 saw))
. ply 2)
$ note "<gs4!2 f4!2>"
# "FMRhodes1"
# modIndex 0
# gain 0.9
once
$ note (arp "downup" "g'min'4" -12)
# "superpiano"
# velocity 0.6
# gain 1.7
do
d1 $ "808bd:4"
d2 $ "drum:2*4"
live/fusion/latin/like_what.tidal 0 → 100644
do
setcps (80/60/4)
d1
$ "jazz"
# gain 1.1
d2
-- $ "d ~ ~ d d ~ d <~!3 d>"
$ "k*8"
# "drum:2"
# gain 0.9
d3
$ "~ g*8"
# "gretsch:3"
# gain 1.1
d4
$ fast 2
$ note "<f ef <cs!3 bf4> c>"
# octave 3
# "bassWarsaw"
# gain 1.2
live/hip/boombap/plage.tidal
......@@ -10,8 +10,8 @@ d1 $ g
d2 $ g
$ mask "<f!8 t!54>"
$ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>")
$ fast "<2 <2!8 [4!3 2]!8>>" $ "~ cp" # "[cp,sn:10]"
# gain 0.85
$ fast "<2 <2!8 [4!3 2]!8>>" $ "~ cp" # "[sn:45,sn:10]"
# gain 0.95
d3 $ g
$ mask "<f!4 t!28>"
$ fast "1 <1 <2 [<2 [4 8]> <4 [4 . 16 8]>]>>"
......@@ -32,10 +32,12 @@ d5 -- SUB accompagnateurs
$ g
$ mask "<f!8 f f t t t!50>"
$ note "d*<1!4 2!4> ~!3 . ~!3 <~ <f g>*<1!3 <4 [4 2]>>>"
# "808bd:1"
# "[808bd:1,wobble]"
# lpf 4000
# gain 1.1
# room 0.5
# sz 0.9
# dry 1
# pan 0.33
d6
$ whenmod 64 32 (
......
live/hip/lofi/poke_bone.tidal
......@@ -27,8 +27,5 @@ d6
$ slice 4 (run "4 <4!3 8 4 4 8 8>")
$ "break:0"
# cut 6
# gain 1.3
# gain 1
# pan 0.7
once $ loopAt 4 $ "breaks165"
# gain 2
live/jam/cbow.tidal
......@@ -14,25 +14,25 @@ let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF
setcps (100/60/4)
d1 $ gDJF $ g
$ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ midiOff "^42" (mask "<f f [t f] t t!28>")
$ midiOn "^42" (<| "k k k <k!3 k*2>")
$ midiOff "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ "[jazz,bd]"
# midiG' "^78" 0 1.1
d2 $ gDJF $ g -- Snare prog
$ "~ <s!3 [~ s]> ~ <s!2 [~ s]!2>"
# "h2ogmsn:6"
# midiG' "^79" 0 0.8
# midiG' "^79" 0 1.1
d5 $ g -- Breakbeat
$ midiOn "^76" (ply "<2!3 [4 <4 1>]>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ slice 4 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
# cut 5
# midiG' "^80" 0 1.2
# midiG' "^80" 0 1.5
d3 $ g -- Bass bows
$ gDJF
$ gLeslie
......@@ -49,6 +49,7 @@ d3 $ g -- Bass bows
# midiG' "^81" 0 0.86
# crushbus 31 (range 10 2 "^53")
d4 $ g -- Higher bows
$ midiOn "^90" (off "e" (|+ note "<7!3 12>"))
$ midiOn "^58" gLeslie
-- $ mask "<f!8 t!24>"
$ whenmod 8 7 (ply "1 4")
......@@ -64,7 +65,7 @@ d4 $ g -- Higher bows
# midiG' "^82" 0 1.05
d8 $ g -- Angels
$ midiOff "^59" (mask "<f!32 t!32>")
$ note "<[c . ~!3 <~ <d g4>>] a4>"
$ note "<[<c!4 d!2 c!2 g4!4> . ~!3 <~ <d g4>>] a4>"
# "cbow:3"
# cut 8
# crushbus 81 (range 10 2 "^55")
......@@ -72,8 +73,9 @@ d8 $ g -- Angels
d9
$ midiOn "^92" (ply "2 <1 <4 [4 8]>>")
$ midiOff "^60" (slow 2)
$ whenmod 32 16 (jux rev)
$ whenmod 32 16 (juxBy 0.5 rev)
$ "h2ogmcp(5,8,<0!3 [0 3]>)"
# midiG' "^84" 0 1.3
# midiG' "^84" 0 1.2
# pan 0.7
(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (
live/midi/nova/ambient/contre_visite.tidal
-- TODO: Add some spaceship fx
-- TODO: Reconsider if enough rythmic variations - what about a DROP?
once $ "kick:5" # crush 4
do
-- TODO TRIGGER INTRO :)
resetCycles
once $ "90s_synatm:8" # gain 0.94 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
-- DONE TRIGGER INTRO :)
-- resetCycles
-- once $ "90s_synatm:8" # gain 0.94 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
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 maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
let kCrush = midiOn "^74" ((# crush 2.5) . (# legato 0.25))
setcps (90/60/4)
d1 $ f1 -- TODO: Rework kick
$ midiOn ("^42" - "^41") (slow 4) -- PAUSE
d1 $ f1 -- FIXME: CRUSHED?
$ kCrush
$ midiOn ("^42") (slow 4) -- PAUSE
-- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>"
$ midiOff "^41" (maskLoops)
$ midiOff "^42" (maskLoops)
$ midiOn "^41" ((<| "k k k <k [<~ k> k]>") . (# legato 0.6))
$ midiOff "^41" (<| "<k k ~ k> . ~ ~ ~ <~!3 k>")
$ "[reverbkick,808bd:6]"
$ "[reverbkick,808bd:6,kick:8]"
# lpf 1000
# crush 16
# midiG' "^78" 0 1.3
d2 $ f1
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
......@@ -51,9 +56,10 @@ d4 $ f2 -- Atmospheric synth: aerial questions
# room 0.8
# legato 4
# dry 1
# pan "<0.3 0.25 0.2>"
# crushbus 42 (range 16 4.5 "^53")
# midiG' "^81" 0 1.4
# pan 0.45
# crushbus 42 (range 16 3.4 "^53")
# legato 2
# midiG' "^81" 0 1.7
d5 $ f2 -- Synth: ELECTRONIC ANSWERS
-- $ mask "<f!32 t!96>" -- Intro
$ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
......@@ -61,11 +67,13 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS
$ "90s_synatm:14/4"
# cut 5
# room 0.65
# pan 0.43
# dry 1
# panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 12 2.85 "^54")
# midiG' "^82" 0 1.6
d6 -- 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
(arp "<up!3 down>")
......@@ -80,25 +88,28 @@ d6 -- High lead: Winds of truth
# pan 0.9
# room 0.4 # sz 0.8
# crushbus 62 (range 16 2.25 "^55")
# midiG' "^83" 0 0.58
# midiG' "^83" 0 0.8
# dry 0.1
# pan "^19"
# cut 6
d10 $ f1 -- RANDOM FOREST NOISES
$ fix (
kCrush .
struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t"
. (# "[future:1]")
. (# midiG' "^13" 0 2)
) ("n1")
$ fix (
struct "<t!8 [~ t]*2!8>"
struct "[~ t]*2"
. (# "snare:34")
. (# midiG' "^14" 0 1.5)
. (# midiG' "^14" 0 1.8)
) "n2" -- tchak reverb phantome
$ fix (
whenmod 32 16 (someCyclesBy (slow 16 $ saw) (iter 4 . ply "2 [2|1]"))
. struct "t([3 <3!3 5>],8,<0!8 3!8>)"
. (# n "<3!3 [3 2]>")
. (# "amencutup")
. (# pan 0.88)
. (# midiG' "^15" 0 1.25)
) "n3" -- amen excerpt
$ fix (
......@@ -108,5 +119,13 @@ d10 $ f1 -- RANDOM FOREST NOISES
. (# pan (range 0.5 0.9 perlin))
. (# midiG' "^16" 0 1.4)
) "n4" -- FX1
$ "[n1,n2,n3,n4]" -- n4
$ fix (
(# "[dr,drum:2]")
. (slow "<1!24 2!8>")
. (struct "t*[16!3 <16!3 [32 16 32 16]>]")
-- . (# cut 105)
. (# pan (range 0.02 0.25 perlin))
. (# midiG' "^17" 0 0.9)
) "n5" -- Drumroll
$ "[n1,n2,n3,n4,n5]" -- n4
# gain 0.8
live/midi/nova/ambient/drone_aveugle.tidal
-- Le DR0NE AVEUGLE
-- Intro weird superchip: is this even music?
-- Pont superchip crushed+plyed
do
setcps (100/60/4)
let slide x = acceleratebus 01 (2**(x/12))
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g -- KICK
$ fix (|* gain 0.8) "kick"
$ midiOn "^41" (<| "k k k [<k [~ <~!3 k>]> <~ k>]") -- Cours toujours
$ midiOff "^41" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Attente Chaloupée
$ "[jazz,808bd:3,kick:5]"
$ fix (* gain 0.82) "wobble"
$ fix ((|* gain 0.8) . (|+ note "0 0 <1 2 4 -1> <0!3 <0 -2>>")) "wobble"
$ midiOn "^42" (<| "k k k [<k [~ <~!3 k>]> <~ k>]") -- Cours toujours
$ midiOff "^42" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Attente Chaloupée
$ "[jazz,808bd:3,wobble]"
# room 0 # dry 1 # sz 0 # crush 32
# midiG' "^78" 0 1.4
d2 $ g -- Snare minitel
-- $ midiOn "^43" (<| "~ s ~ s*<1!3 <[2 <2 2 4 4>] [4!3 16]>>")
-- $ fix (ply "1 <1!3 <2 4>>" . (|* gain 0.9) . (# legato "<0.4!6 0.5!2>")) "glitch"
$ fix ((|* gain 0.85) . (# "realclaps:2")) "cp"
$ fix (|* gain 0.8) "snare"
$ fix (|* gain 0.9) "glitch"
$ midiOn "^43" (fast 2)
$ "~ . [glitch:5,snare:11,<~!8 cp!24 cp!8 ~!8 cp!16>]"
$ (|* gain "1 . 1 ~ ~ 0.76")
$ "~ . s ~ ~ <~ s*<1!3 2>>"
# "[snare:27,<~!8 cp!24 cp!8 ~!8 cp!16>]"
# midiG' "^79" 0 1.4
d7 $ g -- Down Break
$ midiOn "^60" (chop 4)
$ midiOn "^60" (slice 4 "0 1 2 [2 1*<1 2>]")
$ midiOn "^92" (ply 4)
$ slice 4 "0 1 <2 [2|1]> <1 2 3 7*<1 <2 4>>>"
$ loopAt 2
$ "break:15"
# speed (range 0 2 "^56")
# midiG' "^84" 0 1.2
# midiG' "^84" 0 1.4
# cut 7
# pan 0.35
d3 $ g -- Fight hats -- FIXME Rework? Could be loved <3
$ midiOn "^44" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN
$ "h2ogmhh(3,8)" # n "<1 <2!3 1 2!2 1 1>>"
# midiG' "^80" 0 1
# midiG' "^80" 0 1.4
d4 -- Frequency-modulated hopes
$ g2
$ midiOn "^89" (chop 16)
......@@ -51,14 +52,16 @@ d4 -- Frequency-modulated hopes
# crushbus 41 (range 10 0.85 "^53") -- Harmonics of destruction
# midiG' "^81" 0 (1 - 0.2 * "^17")
d5 $ g2 -- BASSLINE
$ midiOn "^90" (ply "[2|4]")
$ midiOn "^58" (chop 4)
$ superimpose ((|- note 12) . (|* gain 0.8))
$ arp "up"
$ n (scale "aeolian"
"<0 <2 [<2 0> . ~ <~ 2> 4 2]>>" -- V1: Love the end Pattern
-- "<<[0] [0*4]> <[2 . ~!4 2] [2 2 4 2] 2 [<2 0> . ~ <~ 2> 4 2]>>" -- V1.1: Noisy :/
+ "<0!8 [0,12]!24>"
-- "<d'maj11'8!3 [d'maj11'i'6]>"
- 24)
- "24")
# s "superchip"
# voicebus 51 (range 0.7 0.05 "^34")
# crushbus 52 (range 16 2.9 "^54")
......@@ -76,10 +79,6 @@ d6 $ g2 -- Sirene apocalyptico-commerciale
- 36)
# "supersiren"
# crushbus 62 (range 10 2.5 "^55")
# midiG' "^83" 0 0.6
# midiG' "^83" 0 0.77
# panbus 63 (range 0.4 0.8
(sine - 2 * (fast "<2!3 4 4!3 0.25>" $ perlin)))
once
$ loopAt 2 $ "fbass:1"
# cut 5
live/midi/nova/ambient/empreinte_du_numerique.tidal
once $ "dr"
d1 $ "dr"
do
let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw)))
......@@ -11,8 +11,8 @@ let modIndex = pF "modIndex"
-- resetCycles
setcps (110/60/4)
d1 $ g
$ midiOn "^41" (<| "k k k <k k*2>")
$ midiOff "^41" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "jazz"
# midiG' "^78" 0 1.3
d2 $ g
......@@ -32,7 +32,7 @@ d4 -- Break bonus banane
$ midiOn "^60" ( -- Aerial mask
mask "t <f t> <f f t f> <t t f t> f <f t> <f!3 t> t"
)
$ sometimesBy ("0 1!7" * "^56") (iter 4)
$ sometimesBy ("0 1!7" * "^56") (iter "<4!3 8>")
$ chop 16
$ loopAt 2
$ "break:3"
......@@ -49,8 +49,10 @@ d5 $ g $ gPont2
# lsizebus 51 (range 0.8 4.8 "^17")
# lesliebus 52 "^33"
# crushbus 53 (range 10 1.61 "^53")
# midiG' "^81" 0 0.9
# midiG' "^81" 0 1.4
d7 $ g -- Back solar mandoline
$ midiOn "^59" (off "s" (|+ note "<7 9 5 <7 12>>"))
$ midiOn "^91" (off "e" (|+ note 12))
$ superimpose (|+| note "<[0 12 0]!3 [0 12 0 12]>")
$ note "<d <d a> <gf> c>"
# "supermandolin"
......
live/midi/nova/boombap/saloon.tidal 0 → 100644
once $ "scratch_long:4"
# gain 01.1
# cut 4
d1 $ "808bd:2"
do
setcps (80/60/4)
let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
d1 $ g1
$ fix (# cut 12) "wobble"
$ fix (# cut 11) "808bd"
$ "k ~ ~ k . ~ ~ k <~!4 ~ ~ k k*2>"
# "[808bd:1,wobble]"
# midiG' "^78" 0 1.4
d2 $ g1
$ fix (|- note 12) "sn"
$ "~ [s ~ ~ s] . [~ s] ~ s <~ s*<1!3 2>>"
-- # "[amencutup:8,sn:4]"
# "[snare:30]" # note "-4"
# midiG' "^79" 0 1.1
# room 0.8
# sz 0.8
# dry 0.98
d3
$ g1
$ ply "<1 1 <1 2> [4 <2!3 4>]>"
$ fast "<1!8 2!24>"
$ "s*6"
# "amencutup:4"
# gain 0.8
# pan 0.7
# midiG' "^80" 0 1
d4 $ g2 -- Broken Saloon
-- $ superimpose (
-- (|- pan 0.2)
-- . (|+ note 12)
-- . (# cut 51)
-- )
$ midiOn "^58" (iter 16)
$ sometimesBy "^54" (striate 4 . ply "1 <1 <2 [2 4]>>")
$ slice 8 (run "<4!2 2 <8 [8 4] [4 8] 4>>" + (slow 8 "<0 4>"))
$ loopAt 2
$ "fpiano:8"
# cut 5
# pan 0.65
# midiG' "^82" 0 0.9
d5 -- Desert bird angel
$ g2
-- $ mask "<f!32 t!32>" -- Economise
$ slice 2 ("<0 1 0 [0 0 1] 1 [1 1] [2*4] [1 3]>")
$ loopAt 1
$ "fmono:8"
# room 0.3
# pan 0.7
# sz "<0.3 0.5!2 <0.9 1.4>>"
# cut 6
# midiG' "^83" 0 0.9
-- d6 -- TODO: FIX SOME BASS <3
-- $ slice 8 "0 1 0 0"
-- $ "fbass:8"
-- # gain 1.3
-- # pan 0.3
-- # cut 6
live/midi/nova/breaks/lunar.tidal
......@@ -15,22 +15,23 @@ let m = mBreak
d1 $ g --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "jazz"
$ "[jazz,hh:5]"
-- # release "<0.7!3 1>"
# midiG' "^78" 0 1
# midiG' "^78" 0 1.3
d3 $ g $ m -- Clap contretemps stable
$ superimpose ((# lpf 2000) . (# "cp:0"))
$ "~ clap:1"
# room 0.8 # sz 0.6 # dry 0.9
# midiG' "^79" 0 1.4
# midiG' "^79" 0 1.0
d2 $ g $ m -- BREAK
$ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate 4)
$ midiOn "^76" (striate 2)
$ loopAt 2
$ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 (run 8)
$ "break" # n "<13!12 14!4 15!16>"
# midiG' "^80" 0 1.2
# speed (range 0 2 "^52")
# cut 2
d4 $ g $ m
$ midiOn "^57" (chop "8 1")
......@@ -59,7 +60,7 @@ d5 $ g $ m
- 12
)
# "FMRhodes1"
# midiG' "^82" 0 1.8
# midiG' "^82" 0 2
# modIndex (range 0.1 32 "^54")
# cut 5
# pan 0.8
live/midi/nova/breaks/solar.tidal
......@@ -8,7 +8,7 @@ once $ "dr" # gain 1
do
setcps (110/60/4)
let modIndex = pF "modIndex"
let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49"))
let gDJF1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (gDJF1)
......@@ -45,22 +45,12 @@ d2 $ g1 $ m -- BREAK
# octersubsubbus 22 (range 0 1.2 "^32")
# midiG' "^80" 0 1
# cut 2
d4 $ g1 $ m -- Drum/hh roll!
-- FIXME I'd rather be in bassland
$ midiOn "^57" (# "drum:2")
$ midiOn "^89" (fast "2 . <2!3 4>")
$ "d <d!3 d*2> d*<1 2> [d . <d ~> d]"
# "hh:8"
# room "^53"
# dry 0.99
# cut 4
# midiG' "^81" 0 1.8
d4
$ whenmod 4 3 (off "q" id)
$ midiOn "^58" ((
$ midiOn "^57" ((
(|+| note (
arp "<up!8 converge!7 diverge>"
"c'maj'8")
"c'maj'8" - "[0,12]")
)))
$ rev
$ struct "~ t"
......@@ -72,11 +62,11 @@ d4
# midiG' "^81" 0 1.5
# pan 0.2
d5 $ g2
$ midiOn "^58" (superimpose (
(|+| note (
arp "<up!8 converge!7 diverge>"
"c'maj'8" - 12)
)))
-- $ midiOn "^58" (superimpose (
-- (|+| note (
-- arp "<up!8 converge!7 diverge>"
-- "c'maj'8" - 12)
-- )))
$ struct "~ t"
$ slow 4
$ arpeggiate
......@@ -86,14 +76,15 @@ d5 $ g2
# pan 0.8
# modIndex (range 0 128 "^34")
# crushbus 51 (range 16 4.6 "^54")
# midiG' "^82" 0 1.5
# midiG' "^82" 0 2
# gain 0.8
d9 $ g1 $ m
$ midiOff "^60" (mask "<f!8 t!124>")
$ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
$ midiOff "^92" (<| "~ c")
$ "clap"
# speed (range 0.5 1.5 "^56")
# midiG' "^84" 0 1.7
# midiG' "^84" 0 1.0
-- REGION BACKYARD
......
live/midi/nova/dnb/alerte_verte.tidal
......@@ -3,10 +3,10 @@ import Sound.Tidal.ParVagues.Control
-- Alerte Verte
do
setcps (160/60/4)
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
d1 $ f1 -- KICK
d1 $ g1 -- KICK
$ midiOn "^41" (<| "k k k <k!3 k*2>") -- RUN!
$ midiOn "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT?
$ midiOff ("^41" + "^42") (<| "k*2") -- ST0P.
......@@ -14,7 +14,7 @@ d1 $ f1 -- KICK
$ "[jazz,kick:5]"
# release 0.8
# midiG' "^78" 0 1.5
d2 $ f1 -- Snare tchak!
d2 $ g1 -- Snare tchak!
$ midiOn "^75" (ply 2)
$ g32Bridge
$ whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush
......@@ -24,7 +24,7 @@ d2 $ f1 -- Snare tchak!
# note (range "-7" 7 "^51")
# room 0.8 # dry 0.99 # sz 0.2
# midiG' "^79" 0 1.2
d3 $ f1-- Running Hats
d3 $ g1-- Running Hats
$ g32Bridge
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
......@@ -37,7 +37,7 @@ d3 $ f1-- Running Hats
# dry (slow 4 $ range 0 2 perlin)
# pan 0.6
# cut 3
d4 $ f1 -- Resolute Bass
d4 $ g1 -- 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]]>"
......@@ -46,13 +46,13 @@ d4 $ f1 -- Resolute Bass
$ loopAt 4
$ chop 16
$ "fbass:25"
# pan 0.15
# pan 0.15
-- # room 0.125 # sz 0.1 # dry 1
# crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 1.5
# cut 4
d6 -- Guitar A -- L'attente (18=0) TODO Rework?
$ f2
$ g2
$ mask "<f!3 t>"
$ ("0.175" ~>) -- Calage
$ whenmod 4 2 (slice 8 "0")
......@@ -61,10 +61,10 @@ d6 -- Guitar A -- L'attente (18=0) TODO Rework?
$ "fguitar:24"
# pan 0.8
# crushbus 51 (range 10 3.5 "^54")
# midiG' "^82" 0 (1.2 * (range 1.4 0 "^18"))
# midiG' "^82" 0 (1.5 * (range 1.4 0 "^18"))
# cut 6
d7 -- Guitar B -- Le run (18=127)
$ f2
$ g2
$ whenmod 4 3 (# silence)
$ midiOn "^58" (
(# n 27)
......@@ -78,7 +78,7 @@ d7 -- Guitar B -- Le run (18=127)
# lsize (1 + (slow 8 perlin * 2))
# lrate 6.7
# cut 71
d8 $ f1 -- Clave de l'été pitchable
d8 $ g1 -- Clave de l'été pitchable
$ midiOn "^59" (fast 2)
$ midiOn ("^91" - "^59") (fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1")
......@@ -86,10 +86,7 @@ d8 $ f1 -- Clave de l'été pitchable
# "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
# speed (range 0.5 2 "^55")
# midiG' "^83" 0 1.5
d9 $ f1 -- CLAPS! -- FIXME Broken whenmod 4 3
$ "~ c ~ <c!3 c*2>" # "cp"
# midiG' "^84" 0 1.5
d10 $ f2 -- Nappes crushées indépendantes
d10 $ g2 -- Nappes crushées indépendantes
$ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>")
-- $ superimpose ((|- note 12) . (# cut 101))
$ note (euclid "<5 3 6>" 6
......@@ -100,7 +97,7 @@ d10 $ f2 -- Nappes crushées indépendantes
# pan 0.85
# crushbus 100 (range 16 0.35 "^36")
# midiG' "^20" 0.2 1.5
d11 $ f2 -- Sirene indépendante
d11 $ g2 -- Sirene indépendante
$ note ("<e e c e>/4")
# octave 3
# legato 2
......@@ -109,10 +106,13 @@ d11 $ f2 -- Sirene indépendante
# crushbus 110 (range 10 0.1 "^35")
# ampbus 111 (range 0 0.5 "^19")
# pan "<0.2!16 0.8!16>"
# midiG' "^19" 0 0.75
# midiG' "^19" 0 1.5
# room 0.4 # sz (slow 32 $ range 0.125 0.9 saw)
# dry (slow 32 $ range 0 2 perlin)
# cut 11
d9 $ g1 -- CLAPS! -- FIXME Broken whenmod 4 3
$ "~ c ~ <c!3 c*2>" # "cp"
# midiG' "^84" 0 1.5
d6 $ "seawolf:0/4"
......
live/midi/nova/dnb/break_the_loop.tidal
......@@ -7,7 +7,7 @@ let modIndex = pF "modIndex"
let gF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gM = (midiOn "^42" (mask "t <t!3 <[f t]!2 f [f t!3]>>"))
d1 -- TODO: Improve kick. Sound? Rhythm?
d1
$ gF
$ midiOn ("^42" - "^41") (mask "t(1,4)")
-- $ mask "<f!4 t(1,2)!3 t!9>"
......@@ -39,6 +39,12 @@ d3 $ gF $ gM -- Breaks du Marathon
# midiG' "^80" 0 1.5
d4 -- BASSLINE BRULANTE
$ gF
$ midiOn "^53" (-- Trigger: DATA BURN
superimpose (
(# cut 42) . (|* gain 0.85) .
(# squizbus 41 (range 200 0 "^53"))
)
)
$ midiOn "^57" ( -- Ritournelle
midiOn "^89" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>")
. (+| note (scale "aeolian" (arp "converge" $
......@@ -55,11 +61,11 @@ d4 -- BASSLINE BRULANTE
# "90s_synatm:9"
# pan 0.15
# room 0.5 # dry 0.2 # sz 0.8
# crushbus 41 (range 16 1.9 "^53")
# lesliebus 42 (range 0 2.2 "^33")
# lratebus 43 (range 6.7 0.6 "^17")
# lratebus 43 (range 0.6 6.7 "^33")
# lesliebus 42 (range "-1" 1 "^17")
# lsize (slow 8 $ range 2 6 saw)
# midiG' ("^81" - 0.3 * "^33") 0 1.5
# midiG' "^81" 0 (1.5 - 0.3 * "^17" - 0.25 * "^53")
# crushbus 41 (range 10 4.5 "^53")
# cut 4
d5 $ gF2 $ gM -- Ritournelle Rhodes
$ midiOn "^58" (off "q" (|+ note 12) . (|* gain 0.85))
......@@ -67,10 +73,9 @@ d5 $ gF2 $ gM -- Ritournelle Rhodes
"<[c ~ c d ~ d <ef!3 f> ~]!0 [f ~ f g ~ <g!3 f> <gs!3 f> ~]!8>"
- "<24!12 12!4>")
# "FMRhodes1"
# pan 0.7
# modIndex (range 0 100 "^54")
# crushbus 41 (range 10 4.5 "^34")
# midiG' "^82" 0 1.5
# crushbus 51 (range 10 4.5 "^34")
# midiG' "^82" 0 2
d6 $ gF2 -- Voices from the st0rm
$ midiOn "^91" ((# cut 6) . slow 8)
$ swingBy 0.125 8
......@@ -88,9 +93,12 @@ d6 $ gF2 -- Voices from the st0rm
# squizbus 61 (range 0 4 "^55")
# room 0.42 # dry 1 # sz 0.8
# pan 0.6
# midiG' "^83" 0 1
d8
# midiG' "^83" 0 2
d8 -- Ominous drumroll
$ fix (|* gain 0.9) "dr"
$ midiOn "^60" (slow 2)
$ midiOn "^92" (ply "[2 1]*8")
$ "dr*<4!3 2 4!3 8 <16!3 8>!16>"
$ "d*<4!3 2 4!3 8 <16!3 8>!16>" # "[dr,drum:2]"
# midiG' "^84" 0 1
# room 0.8 # dry 1
|- note 4
live/midi/nova/dnb/lucy_rode.tidal
......@@ -40,8 +40,8 @@ do
. (# dry (slow 64 $ range 0.5 1.5 perlin))
)
$ whenmod 4 3 (fast "<2 4 [4 8] 8>")
$ fast "4 8"
$ "drum:2"
$ fast "2 4"
$ "[drum:2,dr]"
# pan 0.7
# midiG' "^80" 0 1.8
d4 $ g -- Bassline pompée
......
live/midi/nova/lofi/sunny_march.tidal
......@@ -5,7 +5,7 @@ let lofiBlissEq = "<[a,c6,e6,g6,b6,d7] [fs,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,c7] [c
let lofiBlissMin = "<[a,c6,e6,g6] [fs,c6,d6,fs6] [f,a,c6,e6] [c,e,g6,b6]>"
setcps (86/60/4)
-- resetCycles
-- once $ (0.5 ~>) $ note (lofiBlissMin - 24) # "moogBass" # gain 0.4 # legato 1
once $ (0.5 ~>) $ note (lofiBlissMin - 24) # "moogBass" # gain 0.4 # legato 1
let mask86 = (whenmod 8 6 (mask "f"))
let mask86' = (whenmod 8 6 (mask "f . <f t>"))
let low86 = (whenmod 8 6 (|* gain 0.8))
......@@ -54,7 +54,7 @@ d4 $ g -- Wobble bassline
-- "a fs . <[f <c!3 c6>*<1 2>] [~ f c <~ <c [c f fs]>>]>" -- Descente
)
# "wobble"
# gain (slow 32 $ range 0.6 0.9 saw)
# gain (slow 32 $ range 0.75 1 saw)
# room 0.74
# pan 0.23
# sz 0.8
......
live/midi/nova/lounge/invoque_ete.tidal
......@@ -11,7 +11,7 @@ let gF = 1.5
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let m = mBreak
let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let f2 = (# djfbus 2 (range 0.1 0.9 "^29"))
let f2 = (# djfbus 2 (range 0.1 0.9 "^50"))
d1 $ f1 $ m
$ midiOn "^41" (slow 4)
$ midiOn "^42" (<| "k k k <k k k*2 [~ k]>")
......@@ -24,7 +24,7 @@ d2 $ f1 $ m -- Clave de l'été
$ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7))
$ "d ~ ~ d d ~ d <~!3 d>"
# "[snare:22,sn:4]"
# midiG' "^79" 0 1
# midiG' "^79" 0 1.9
# speed (range 0 2 "^51")
d4 $ f1 $ m -- Mecano Course
-- $ fast "<<4 2> 4!7 2!4 2 2 4 8>"
......@@ -48,7 +48,7 @@ d5 $ f1 $ m -- Bassline variable double piste
# pan 0.2
-- # room 0.2
# crushbus 51 (range 16 4.5 "^53")
# midiG' "^81" 0 1.2
# midiG' "^81" 0 1.4
# cut 4
d6 $ f2 $ m -- Douce guitare juxée
$ chop 16
......@@ -60,7 +60,7 @@ d6 $ f2 $ m -- Douce guitare juxée
# midiG' "^82" 0 1
# release (range 2 0.15 "^34")
# crushbus 61 (range 16 1.4 "^54")
# pan 0.85
# pan 0.8
# room 0.2 # dry 1
# cut 3
d7 $ f2 $ m
......
live/midi/nova/lounge/michael.tidal
......@@ -7,8 +7,8 @@ let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
setcps (120/60/4)
d1 $ g
$ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>")
$ midiOff "^41" (struct "t*<1!3 2> . t(3,8)")
$ midiOn "^42" (struct "t t t*<2 1 1 2> t*<1 2>")
$ midiOff "^42" (struct "t*<1!3 2> . t(3,8)")
$ "jazz"
# room 0.5 # sz 0.5
# dry 1
......@@ -25,9 +25,10 @@ d2 $ g
# midiG' "^79" 0 0.8
# note (range "-12" 12 "^51")
d3
$ sometimesBy "^52" (ply 2)
$ g
$ midiOn "^44" (slow 2)
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
$ "~ h ~ h ~ <h h*2> ~ h" # "hh27:2"
# note (
whenmod 4 3 (2 -)
"0 . 2 0"
......@@ -90,7 +91,7 @@ d8 $ g
$ midiOn "^60" (iter 4)
$ midiOn "^92" (ply 2)
$ loopAt 2
$ degradeBy ("0 0.9!7 0" - "^56")
$ degradeBy ("0 0.9!7 0" - "^36")
$ scramble 2
$ slice 8 (run 8)
$ "fbreak120"
......
live/midi/nova/lounge/top_hats.tidal
......@@ -23,6 +23,7 @@ d1 $ g
d2 $ g -- Breathing snare contretemps
$ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>")
$ "~ [snare:12,drum:2]"
# speed (range 0 4 "^51")
# midiG' "^79" 0.5 1.3
d3 -- Runny Maracas
$ g
......@@ -74,7 +75,7 @@ d4 -- Rhodes base + chords
# crushbus 41 (range 10 4 "^54")
# roombus 42 (range 0 0.8 "^54")
# szbus 43 (range 0.45 0.9 "^54")
# midiG' "^82" 0.3 1.9
# midiG' "^82" 0.3 1.3
d8 $ g -- Electrified laggy moog
$ midiOn "^92" (ply 2)
$ midiOn "^59" ((|- note 12))
......@@ -96,7 +97,7 @@ d5 $ g -- Choirs + arps
$ "moogBass"
# note (prog + "[0,24]")
# octave 3
# crushbus 51 (range 13 4.5 "^56")
# crushbus 51 (range 13 1.5 "^56")
# midiG' "^84" 0 1.2
# pan 0.2
# chorus 0.6
live/mood/tired/afternoon.tidal
......@@ -22,16 +22,19 @@ d1 $ g -- BEAT
# release "<0.7!3 1>"
# midiG' "^78" 0 1.7
d3 $ g -- Snare contretemps rushé
$ midiOn "^43" (fast 2)
$ mask "t(16,32)"
$ whenmod 4 3 (ply "2 4")
$ fast "<1!4 2!10 4 [4 8]>"
$ "~ snare"
# room 0.2
# dry 1
# speed (range 0.5 1.5 "^51")
# speed (range 0.5 1.5 "^52")
# n "[11,25]"
# midiG' "^79" 0 1.4
d2 $ g -- BREAK
$ midiOn "^44" (sometimesBy "0 1!7" rev)
$ midiOn "^76" (ply 4)
$ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8)
$ slice 8 (
fast "<8 [8 16] 8 [16 <8 4>]>"
......@@ -40,6 +43,7 @@ d2 $ g -- BREAK
)
$ loopAt 2
$ "break:3"
# speed (range 0 2 "^51")
# midiG' "^80" 0 1.5
# cut 2
d7 $ g -- Hello PWM!
......
live/techno/nightly_repair.tidal
......@@ -4,29 +4,36 @@ setcps (90/60/4)
let scale = getScale (scaleTable ++ [("blues",[0, 3, 5, 6, 7, 10])])
let modIndex = pF "modIndex"
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gLPQ = (# lpqbus 3 (range 0 0.95 "^13"))
let gHPQ = (# hpqbus 4 (range 0 0.95 "^14"))
let g1 = (gDJF1 . gLPQ . gHPQ)
let g2 = (gDJF2 . gLPQ . gHPQ)
d1 $ g1
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k")
$ "jazz"
$ midiOn "^42" (<| "k k*<1!3 2> k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ fix (# lpf 2500) "808bd"
$ fix ((# lpf 4000) . (|* gain 0.8)) "909"
$ "[jazz,909,808bd:4]"
# midiG' "^78" 0 1.6
d2
$ g1
$ superimpose (
(# "clap:1")
. (|* gain (slow 16 $ range 0.5 0.8 saw))
)
$ midiOn "^43" (fast 2)
$ "~ cp"
-- # lpf 1400
-- # lpq 0
# midiG' "^79" 0 1
# lpf 1500
# room 0.5
# dry 1.1
# midiG' "^79" 0 1.8
d3 $ g1
$ midiOn "^44" (fast "1 2")
$ sometimesBy "^52" (ply "1 2 1 2")
$ fix ((|* gain 0.86) . (# n "[4|5]")) "gretsch"
$ "~ h ~ h ~ h ~ h*<1 2>" # "[hh,gretsch]"
# midiG' "^80" 0 1
# midiG' "^80" 0 1.75
d9 $ g2 -- G0dz1ll4
$ midiOn "^60" (off 1 (
(|+ pan 0.3)
......@@ -38,13 +45,13 @@ d9 $ g2 -- G0dz1ll4
$ "90s_matrix:1/4"
# cut 9
# gain 0.55
# crushbus 9 (slow 16 $ range 2.6 2 perlin)
# crushbus 9 (slow 16 $ 16 * (1 - "^56") + (range 2.6 2 (perlin)))
# roombus 91 (slow 16 $ range 0 0.82 perlin)
# dry 2
# sz 0.9
# pan 0.7
# midiG' "^84" 0 0.9
# dry 2
d4 $ g2 -- BASSLINE
d4 $ g1 -- BASSLINE
$ midiOn "^57" ((|+ note 12) . (# legato 4))
$ note ("<bf g bf g bf g bf c c!4 g bf c6@2>" - 24)
-- $ note ("c6")
......@@ -58,7 +65,7 @@ d4 $ g2 -- BASSLINE
# lsizebus 42 (range 1.9 6.7 "^33")
# crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
# room 0.2
d5 $ g2
d5 $ g2 -- BLUES RUN
$ degradeBy (range 0.95 0.05 ("^18!15 1"))
$ slice 16 (run 16)
$ midiOn "^58" (striate 2)
......@@ -73,22 +80,20 @@ d5 $ g2
)
# "FMRhodes1"
# crushbus 5 (range 16 4.2 "^54")
# midiG' "^82" 0 1.5
# midiG' "^82" 0 1.85
-- # pan (slow 8 $ range 0.5 1 (saw - (slow 2 perlin)))
# pan 0.8
let scale = getScale (scaleTable ++ [("blues",["c", "ef", "f", "fs", "g", "bf"])])
-- REGION SANDBOX
once
$ note (fastcat )
# "FMRhodes1"
scaleList
once $ "90s_weird" # cut 4
once $ "90s_matrix:3" # cut 1
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