Skip to content

T
Tidal
Commit fbac1505 by PLN (Algolia)
Options

live: simon to weird

parent 72bacf52
Showing with 534 additions and 45 deletions
live/ambient/cascade.tidal 0 → 100644
do
setcps (80/60/4)
d1
$ "cpu"
# att 0.1
# rel 10
# gain 0.76
d2
$ fix (
(|* gain (slow 4 $ sine))
. (sometimesBy 0.75 (stutWith 4 "q" (
(|* gain 0.8)
. (|+ hpf 100)
. (|+ pan 0.05)
)))
) "auto:7"
$ "~ g"
# "[glitch:5,auto:7]"
# room 0.8
# pan 0.3
# legato 4
# gain 0.5
d3 -- Restructured break hats
$ someCyclesBy "<0!32 1!16 0!16>" (struct "t(<4 8 6 <8 [6 16]>>,8)")
$ whenmod 32 16 (slice 8 (run "<4 4 8 <8 12>>"))
$ "break:17/2"
# gain (slow 32 $ range 0.3 0.38 cosine)
# room 0.2
# pan 0.7
# dry (0.5 + perlin)
# cut 3
d4
$ every' 16 8 (# speed (range 0.5 0.1 saw))
$ whenmod 16 15 (ply "2 . 4 [4 8 4]")
$ slice "<16!12 32!3 16>" "0 1 2 3 4 5 6 7"
$ loopAt 2
$ "break:12"
# pan 0.1
# lpf 4500
# gain 0.6
d6 -- Rare night alarm
$ note "c4/8"
# "giorgio_syn:3"
# cut 6
# gain 0.34
d7 -- INFRA BASSLINE TODO Trop carré
$ note (scale "aeolian"
"<0!8 [0 . <2 0> 0 ~]!8> 4 <0!4 7 0 4 <7 0>> 3"
)
# "giorgio_syn:15"
# gain 0.6
# lpf 200
d9 -- Glitched background siren
$ someCycles (off 1 ((# crush 5) . (|* gain 0.8)))
$ "~ warp?/4"
# "giorgio_syn:22"
# room 0.9
# sz 0.9
# dry 0.1
# delay 0.72 # delayfb 0.5 # delaytime "e"
# panbus 92 (range 0.8 0.5 saw)
# lpfbus 91 (fast "<2 4 8>" $ range 5000 200 cosine)
# lpqbus 92 (fast "<0.25 0.5 1 2 4 8 16>" $ range 0 0.7 sine)
# speed (range 0.25 1 rand)
# gain 0.5
once $ "giorgio_syn:9" --bassline?
-- 12 muted
once $ "90s_synatm:5"
# cut 5
# gain 0.5
once $ "dr"
live/ambient/weird.tidal 0 → 100644
-- ça tombe bien, j'avais un sample appelé 90s_weird, c'est l'occasion de l'écouter !
once $ "90s_weird:9"
# room 0.5 # dry 0.8 # sz 0.8
# delay 1 # delayt 0.5 # delayfb 0.85
# gain 0.5
# cut 1
-- WEIRD <3
do
setcps (100/60/4)
let g = (# djf (range 0.15 0.85 (slow 16 $ cosine)))
let g = (# djf 0.99999999) -- FIXME MANUAL
d1 $ g-- Les boucles c'est rigolo
$ loopAt 4
$ "90s_weird:9"
# lpf 200
# cut 1
# pan 0.2
# sz 0.8 # dry 0.8
# delay 0
# room (slow 32 $ range 0 0.8 saw)
# gain 0.5
d2 -- Mais il nous faut un cl1ck
$ g
$ note ("0 [<2 ~ 2 2> <~ 2>] 0 2" - 36)
# "90s_weird"
# legato 0.03
# gain 1.3
# lpf 800
# room 0.8 # sz 0.8 # dry 1
# cut 2
d3 $ g -- V0us allez peut-être me trouver W3ird...
$ slice 16 (
stack [
"0 0 0 [0 <1 2>]",
"1(<5!4 3!3 <5 8>>,8)",
"3*<1 0> 3*2 3*[1|2|4] 3*2",
"[~ <10!3 11>]*4"
])
$ "90s_weird:9"
# legato 0.4
# gain 0.5
# pan (slow 32 $ range 0.9 0.5 sine)
# room 0.4 # dry 1.2 # sz 0.9
d4 $ g -- ...mais je trouve cette compagnie fort agréable
$ never (superimpose ((# cut 41)
. (|- note 24)
. (|* gain 2)
. (# legato 0.5)
. (# lpf (slow 16 $ range 200 2000 cosine))
))
$ g
$ slice 32 "10(<5!3 [5 <8 4>]>,8)"
$ "90s_weird:9"
# gain 0.75
# crushbus 41 (slow 16 $ range 8 3.9 saw)
# room 0.2 # dry 1 # sz 0.8
# pan 0.3
# cut 4
d10 $ g -- Heureusement, tout n'est pas weird
$ slice 8 "0 <1 ~> <2 2 ~ 2> 3 4 5 2*<1!3 2> 3*<1 2 1 <2 4 8>>"
$ loopAt 2
$ "break:16"
# room 0 # dry 1 # sz 0 # delay 0
# gain 0.85
-- WEEEEEIIIIIIIIRRRRRRDDDD
once $ "90s_weird"
# n 9
# gain 0.65
# cut 1
-- # lpf 1500
-- # room 0.5
-- # dry 1
-- # begin 0
-- # end 0.6
live/dnb/giorgio_s_drums.tidal 0 → 100644
do
-- resetCycles
d1
$ mask "<t f!7 t!24>"
$ fast 2
$ "<t!0 [t t t [<t ~> t]]!24>"
# "jazz"
# gain 0.8
d2
$ mask "<f!8 t!24 t!8 f!8 t!16>"
$ "~ [cp,snare:68]"
# lpf 2000
# room 0.3 # dry 1
# gain 0.87
d3 -- BACKGROUND WAVE
$ juxBy 0.5 (
(# cut 31)
. whenmod 32 0 (superimpose (
(|+ note (arp "down" "<c'min'4!3 [g'maj'4!3 <c'maj'4 c'min'4>]>"))
. (|* gain 0.8)
. (# cut 32)
))
. (|+ note 12)
. chop "8 8 <4!3 12>"
. (# room 0.8)
)
$ "giorgio_syn:37/2"
# room 0.4
# sz 0.7
# crushbus 31 (slow 8 $ range 16 4 saw)
# cut 3
# gain 0.45
d4 -- BREAK THAT DRUM
$ mask "<f!16 t!48>"
$ whenmod 64 32 (iter "1 4")
$ someCyclesBy "<1!32 0!32>" (slice 8 ("<0 [0 1] [0 1 2 3]> <4 [4 <5 7>]> <8 <[8 9] [8 9 10 11]>> <12 13 14 [12 13 14 15]>"))
$ loopAt 0.5
$ "breaks165"
# gain 0.76
live/dub/hello_dub.tidal
......@@ -50,14 +50,14 @@ d6 -- Distant guitar
$ mask "<<f t>!24 f!8 t!8 f!8 t!16>"
$ "g(<[1 5]!4 5 1 3 10>,16)"
# "rootsGuitar:2"
# note "<5 5 3 3>"s
# note "<5 5 3 3>"
# gain 0.49
# att 0
# rel 0.7
d10 -- Distant metal drums
$ breakLPFLight
$ sometimesBy "0 0.25!3 <0.3!3 0.9>" (ply 2)
$ "808sd*8"s
$ "808sd*8"
# n "[9|10]*16"
# pan 0.8
# gain (0.47 + 0.1 * perlin)
......
live/dub/steps.tidal
......@@ -37,7 +37,7 @@ d5
)
$ "~ p ~ p" # "superpiano"
# note (chords + "<c4'min a4'min>")
# room 0.3 # sz 0.6
# room 0.3 # sz 0.46
# velocity 0.7
# gain 0.75
d6 -- Skank Hammond
......
live/hip/lofi/808_lessons.tidal
......@@ -35,7 +35,7 @@ d4
$ note ("<<a3 e3> c4 g3 a3>" + 12)
# "bass1:3"
# voice 0.1
# gain 0.5
# gain 0.6
# cut 4
# pan 0.2
# room 0.4
......@@ -65,19 +65,18 @@ d6 -- Warsaw gone synth
# crushbus 60 (range 8 3 (slow 8 $ perlin))
# room 0.4
# pan 0.8
# gain (slow 64 $ range 0.24 0.55 (cosine + 0.2 * (slow 4 $ perlin)))
-- # voice 0.05
# gain (slow 64 $ range 0.4 0.75 (cosine + 0.2 * (slow 4 $ perlin)))
d9
$ fix (
slice 8 ("0 ~ <7(5,8) [7 0@0.6] 7(5,8) [7 <7 ~>]>")
) (n 1) -- La musique - c'est l'ordi
$ fix (
$ fix ( -- TODO SPARSER
-- splice 8 ("[0@1.2 1@1.1 ~@0.05 2@1.1 ~@0.9 <~!3 <3@1.1 4@1.1>>]")
splice 8 ("[0@1.2 1@1.1 ~@0.05 2@1.1 ~@0.9 <3 ~ 3 4>@1.1]")
. (|* gain 0.75) . (# squizbus 91 (segment 16 $ fast 4 $ range 0 "<1 2 4 6>" cosine))
) (n 2) -- Les circuits électroniques ont analysé un par un tous les sons
-- $ n "<<0 1!3 2!4 3!4> <~!8 2!4 3!4>!3>"
$ n "<[0@0.25 0] ~ ~ ~ 1 ~ 1 ~ 2!16>" -- SLICED STORY
-- $ n "2" -- Debug individual N
# "ircam"
# cut 9
# gain 0.8
......@@ -86,16 +85,3 @@ d9
# leslie 0.9
# lrate (slow 8 $ range 0.1 0.8 perlin)
# lsize (slow 32 $ range 0.2 2.4 sine)
once $ "ircam:0" # cut 9
once $ "ircam:0"
# cut 9
do
d1 $ "jazz*4" # gain 0.8
d2 $ "hh*16" # gain 0.4
once $ "dr"
live/hip/lofi/du_miel.tidal
do
-- resetCycles
resetCycles
setcps (82/60/4)
let modIndex = pF "modIndex"
let chords = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
......
live/hip/lofi/toujours_plus.tidal 0 → 100644
-- Toujours plus, Toujours
-- Les cours montent au firmament
-- Mais la tension scrute
do
resetCycles
let modIndex = pF "modIndex"
setcps (75/60/4)
-- # Amin11, D7, Fmaj7, Cmaj7 - Pure bliss
let chords = "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
let chordsN = "<[a,c6,e6,g6] [<fs f>,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>"
let g = (# djfbus 1 (slow 32 $ range 0.15 0.85 cosine))
d1 $ g $ "k . [<~ k ~ ~> <~ ~ k k>] <k!3 k*<2 4>>" # "jazz"
# gain 0.8
# att 0.1
# rel 10
d2 $ g
$ "~ cp"
# hpf 4000
# gain 0.5
d3 $ g
$ ply "8 <8 8 4 <8 [4 8]>> . 16 [32 <8 <16 32>>]"
$ "drum:2"
# cut 3
# gain 0.45
d4 $ g -- Base arps
$ whenmod 64 32 (superimpose (
struct "t t t t <~ t> <t t*2>"
. arp "converge"
. (# modIndex 2.8)
. (# hpf 2500)
. (|- note 12)
))
$ note (
chords - 24
)
# "FMRhodes1"
# att 1 # rel 2
# modIndex 0
# room 0.8
# dry 1
# sz 0.2
# gain 0.65
d5 $ g -- Bassline
$ ply 2
$ note (arp "<updown!3 <downup updown>>" $ chordsN - 36)
# "bassWarsaw"
# gain 0.5
# room 0.5
# dry 1
# sz 0.8
# pan 0.2
# cut 5
d6 $ g -- Angel in the Wire
$ mask "<f!3 t f!12 t!6 f t f!8 t!16>"
-- [a,c6,e6,g6] [<fs f>,a,c6,d6] [f,a,c6,e6] [c,e,g,b]
$ note ("<c <d!4 ~!2 d d> <g c g c ~ ~ g c> <a a4>>")
# "90s_synatm:2"
# cut 6
# pan 0.9
# room 0.5
# sz 0.5
# dry 0.8
# gain 0.35
d9
$ chop 8
$ loopAt 2
$ "break:20"
# gain (slow 16 $ range 0.3 0.55 saw)
d10 $ g
$ fix ( -- Trainwreck
(mask "<f!16 t!48>")
. (|* gain (slow 16 $ range 0.36 0.7 cosine))
) (n "7")
$ n (stack [
"2 . <~ 2> <~!4 2!4>*<1!8 2!8>", -- snarish part
"~ <~!7 3>", -- Whoosh hats
"[~ 7]*<4!3 8>",
""
]) # "auto"
# gain 0.5
live/midi/nova/ambient/contre_visite.tidal 0 → 100644
-- TODO: Add some spaceship fx
-- TODO: Reconsider if enough rythmic variations what about a DROP?
once $ "dr"
do
-- TRIGGER INTRO
resetCycles
once $ "90s_synatm:8" # gain 0.64 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
let g = (whenmod 64 32 (# djfbus 1 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01
let f = id
let f = (# djfbus 1 (range 0.05 0.95 "^49"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
setcps (90/60/4)
d1 $ f
-- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>"
$ maskLoops
$ someCyclesBy "<0!32 1!32>" (<| "k k(3,8,<0!3 <2 4>>)")
$ someCyclesBy "<1!32 0!32>" (<| "<k k ~ k> . ~ ~ ~ <~!3 k>")
$ "[reverbkick,808bd:6]"
# lpf 1000
# midiG' "^78" 0 1.2
d2 $ f
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops
$ midiOn "^43" (slice 4 (run 8))
$ midiOn "^75" (ply "2 <2!3 4>")
$ mask "<t [t!6 f t] t t t!4>" -- Degrade mid-loop!
$ iter "1 <1!4 4 4 4 2>"
$ loopAt 2
$ slice 8 (run 8)
$ "break:20"
# cut 2
# speed (range 0.05 1.95 "^51")
# midiG' "^79" 0 1.3
d3 $ f-- Sidekick, doubtful, yet hardworking hats
$ mask "<t(<1!3 3>,4)!4 t(2,8)!8 [<t!3 [t f]>]!52>" -- Intro / break/32
$ maskLoops
$ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s")
$ sometimesBy (0.1 * "[0 <0 0.5> 0 <1!3 2>]!4") (# silence)
$ ply "<1!8 <2 <2 [2 2 4 2]!7> <2!4 4!4> <4!2 [4 4 8 4] [4 8 <8 4> 4]!3 4>>>"
$ "hh*4"
# "h2ogmhh"
# pan 0.6
# room 0.2
# midiG' ("^80" + 0.08 * (slow 2 perlin)) 0 0.9
d4 $ f -- Atmospheric synth: aerial questions
$ "90s_synatm:8/4"
# cut 4
# panbus 41 (range 0.2 0.5 saw)
# room 0.4
# dry 1
# midiG' "^81" 0 1
d5 $ f -- Synth: ELECTRONIC ANSWERS
-- $ mask "<f!32 t!96>" -- Intro
$ midiOn "^90" (ply 8)
$ midiOn "^58" (chop 8)
$ "90s_synatm:14/4"
# cut 5
# room 0.65
# dry 1
# panbus 51 (range 0.8 0.5 saw)
# crushbus 52 (range 16 6.25 "^54")
# midiG' "^82" 0 0.8
d6 -- High lead: Winds of truth
$ whenmod 8 6 (swing "<4 2>")
$ whenmod 32 8 (superimpose ( -- Echos of doubts
(arp "<up!3 down>")
. (sometimesBy (range 0 "<0.25!3 <0.5 0.75>>" saw) (ply 2))
. (# pan 0.4)
. (+| note "[12,19,<21 21 17 18>]")
. (# cut 61)
. (|* gain 0.8)
))
$ note (scale "aeolian" "<0!3 [0@6 <4 -1>@2]> 2")
# "90s_synatm:18"
# pan 0.9
# room 0.4 # sz 0.8
# crushbus 62 (range 16 2.25 "^55")
# midiG' "^83" 0 0.58
# dry 0.1
# cut 6
d10 $ f -- RANDOM FOREST NOISES
$ fix (
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([3 <3!3 5>],8,<0!8 3!8>)"
. (# n "<3!3 [3 2]>")
. (# "amencutup")
. (# midiG "^15")
) "n3" -- amen excerpt
$ fix (
struct "<t!8 [~ t]*2!8>"
. (# "snare:34")
. (# midiG' "^14" 0 1.2)
) "n2" -- tchak reverb phantome
$ fix (
(# "90s_megafx:39") -- FIXME: REMOVED!
. (struct "t*3 ~ . t*<1!3 2> t*<1 3>")
. (# midiG "^16")
) "n4" -- FX1
$ "[n1,n2,n3,n4]"
# gain 0.8
live/midi/nova/ambient/drone_aveugle.tidal
......@@ -12,7 +12,7 @@ d2 $ g
$ fix (|* gain 0.58) ("sn")
$ fix (|* gain 0.8) ("snare")
$ "~!7 <~!3 sn:27> . [glitch:5,snare:28]"
# midiG' "^79" 0 1
# midiG' "^79" 0 1.4
d3 $ g
$ midiOn "^44" (fast "4!3 <8 [<4 8> <4!3 8>]>")
$ "hh(3,8)"
......
live/midi/nova/breaks/nova_bossa.tidal
......@@ -23,7 +23,7 @@ let m = mBreak
setcps (60/60/4)
d1 $ g1 $ m
-- $ "k(<3!3 5>,8)"
$ midiOn "^41" (fast 2) -- TODO: Comment to Cooldown :')
$ midiOn "^41" (fast 2) -- Cooldown :')
$ "k . <~ [k . <k k(<3 [5 3]>,8)>]>" # "[808bd:3,cpu2]"
-- $ fast 2 $ "k k k <k [<~ k> k]>" # "[909,jazz]" -- TECHNOOOO
# midiG' "^78" 0 1.4
......
live/midi/nova/breaks/solar.tidal
......@@ -36,6 +36,7 @@ d2 $ g1 $ m -- BREAK
$ slice 8 (run 8)
$ "break:11"
# hpf 500
# speed (range "0" 2 "^32")
# octerbus 20 (range 0 0.5 "^52")
# octersubbus 21 (range 0 1.2 "^52")
# octersubsubbus 22 (range 0 1.2 "^52")
......
live/midi/nova/dnb/break_the_loop.tidal 0 → 100644
do
setcps (165/60/4)
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
$ gF
$ midiOn "^42" (mask "t(1,4)")
-- $ mask "<f!4 t(1,2)!3 t!9>"
$ fix (|* gain 0.9) ("kick")
$ fix ((|* gain 0.75) . (# att 0.35) . (# rel 1)
) ("reverbkick")
$ midiOn "^41" (<| "k <k!4 ~ k!3> k <k [~ k] k [<k!4 ~!3 k> k]>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "jazz"
# midiG' "^78" 0 1.3
d2 $ gF $ gM
$ fix ((|* gain 0.9)) ("snare:40")
$ "~ s ~ <s!3 <s*2 s*<1 2>>>" # "[snare:31,snare:40]"
# midiG' "^79" 0 1.2
# pan 0.46
# room 0.74 # sz 0.2 # dry 1
d3 $ gF2 $ gM
$ midiOn "^76" (scramble (8 - 4 * "^44"))
$ midiOn "^44" (slice 16 (run "8 . <8 8 <8 16> <16!3 [32 <32 16>]>>"))
$ midiOff "^44" (slice 8 ("0 1 2 3 . 4 5 6 <7!3 6>"))
$ loopAt 2
$ "break:15"
# cut 2
# pan "^16"
# speed (range 0 2 "^52")
# midiG' "^80" 0 1.2
d4 -- BASSLINE BRULANTE
$ gF
$ midiOn "^57" (
-- superimpose
(
midiOn "^89" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>")
. (+| note (scale "aeolian" (arp "converge" $
"[0 <2!4 1!2 2!2> 0 <0!3 4>]"
-- "<5@3 [5 4@2]> <<2 0> [2 0]>"
)))
. (# cut 41)
. (|* gain 0.95)
))
$ slow 2 -- 5/2
$ note (scale "aeolian"
"<[<5@3 [5 4@2]> <<2 0> [2 0]>] <5 <0 [0 . 0 <0 7> 0]>>>"
)
# "90s_synatm:9"
# pan "^17"
# room 0.5 # dry 0.2 # sz 0.8
# crushbus 41 (range 10 1.9 "^53")
# midiG' "^81" 0 0.99
# cut 4
d5 $ gF2 $ gM
$ note (
"<[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.2
d6 $ gF2
$ swingBy 0.125 8
$ midiOn "^59" (superimpose (
(>| note (scale "aeolian" "<7 [7@3 <5 9>]>"))
. (# cut 61)
. (# legato 1.2)
. (|+ pan 0.1)
))
$ note (scale "aeolian" (arp "<up downup down updown>"
"<[2,7,2,<0!3 <7 14>>]!8 [1,5,2,7,<10!2 9 8 8 8 9 10>]!8>"
))
# "90s_matrix:3"
# cut 6 # gain 0.4
# squizbus 61 (range 0 4 "^55")
# room 0.2 # dry 1 # sz 0.8
# pan 0.6
# midiG' "^83" 0 1
live/midi/nova/dub.tidal
......@@ -4,7 +4,7 @@ setcps (80/60/4)
let gG a = (gain ("^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gFilter = (# djf "^49")
let gFilter = (# djfbus 1 (range 0.05 0.95 "^49"))
let gRVB = ((# room 0.125) . (# dry 0.99) . (# sz 0.8))
let gSize = (|* size (range 0 0.25 "^13"))
let g = (gFilter . gSize . gRVB)
......
live/midi/nova/dub/simon_arrive.tidal 0 → 100644
do
setcps (85/60/4)
d1 $ "reverbkick"
# lpf 400
# gain 0.5
d2
$ "~ snare:20"
# hpf 5000
# gain 0.8
d4
-- $ g2
$ note ("c2@4 c2 . <c2 c2 d2 d2>@2 <c2!3 d2> <d2!3 <d2 c2>>@2" + 12)
# "bassWarsaw"
# legato 2
# lfobus 50 (fast 4 sine)
# midiG' "^81" 0 1
# pan 0.2
-- # crushbus 51 (range 16 3.5 "^54")
-- # octerbus 52 (range 0 "<0.4 0.5 0.9 1.2>" (fast "<4!3 8>" sine))
-- # octersubbus 53 (range 0 8 ("^34" + 0.5 * (fast 16 cosine)))
# panbus 54 (range 0.6 0.8 saw)
# room 0.5 # sz 0.8
# cut 5
d5
$ note "~ c5 ~ <c5 <g5 f5>>"
# "superpiano"
# pan 0.7
# velocity 0.7
# gain 0.7
d10
$ "90s_glassatm:0/4"
# cut 10
# gain 0.4
live/midi/nova/dub/skunky.tidal
......@@ -9,11 +9,13 @@ let harmonic = pF "harmonic"
let gate = pF "gate"
d1
$ g1
$ midiOn "^41" q(fast 2) -- TODO: Comment to Cooldown :')
$ superimpose ((|* gain 0.5) . (# "kick:5"))
$ midiOn "^41" (fast 2) -- TODO: Comment to Cooldown :')
$ fix ((|* gain 0.5) . (# "kick:5")) ("c")
$ fix ((|* gain 0.37) . (# "cpu2")) ("b")
$ fix ((|* gain 0.8) . (# "jazz")) ("a")
$ midiOn "^42" (<| "k . k <k [~ k]>") -- Jump?
$ midiOn ("^43" - "^42") (<| "k k k <k [<[<~ k>]!16 ~!3 k ~!3 k k!3 ~ k!3 ~> k]>") -- RUN!
$ "jazz"
$ "[a,b,c]"
# legato 2
# lpf 4000
# room 0.85
......@@ -22,9 +24,9 @@ d1
# midiG' "^78" 0 1.5
d2 $ g1 -- Snare cloc fantome
$ whenmod 32 8 (fast 2)
-- $ fix ((# rel "<0.18!7 0.45>") . (|* gain "<0.7!7 0.5>")) ("glitch")
$ fix ((|* gain 0.8)) ("snare")
$ "~ sn" # "[808lc,cpu:8,tech:5,snare:5]" -- ,glitch:2
$ fix ((# rel "<0.18!7 0.45>") . (|* gain "<0.7!7 0.5>")) ("glitch")
$ fix ((# begin 0.02) . (|* gain 0.84)) ("snare")
$ "~ sn" # "[808lc,cpu:8,tech:5,snare:5,glitch:2]"
# room ("<0.25!3 0.5>" + (slow 4 $ range 0 0.25 perlin))
# dry 0.98
# sz 0.9
......@@ -34,16 +36,16 @@ d3 $ g2
$ midiOff "^44" (slow "<2!3 <1 2>>")
$ ply "2 <2!3 [2|4|8]*4>"
$ "h h h h*<1 2>"
# "hh"
# "h2ogmhh" # n "1 <2 [2 1]>"
# pan "<0.4 0.4 [0.4|0.6] <0.6 0.8>>"
# midiG' "^80" 0 (range 0 2 "^32")
# midiG' "^80" 0 (range 0 1.2 "^16")
d7 $ g2 -- BREAKBEAT <3
$ loopAt 2
$ midiOn "^76" (mask "t(<3<5 8>>,8) t(<1 2>, 4) t?" . iter 4 . splice 8 (run 32) . (|> "breaks165"))
$ midiOn "^44" (slice 8 (run 8))
$ midiOff "^44" (slice 8 (run 4))
$ "break" # n "<21!32 22!8>"
# midiG' "^80" 0 (range 0 2 "^16")
# midiG' "^80" 0 (range 0 1.4 "^32")
# speed (range 0 2 "^52")
d4 $ g2
$ note "[c3(<3!3 <1 5>>,8),[~!7 <<b3 ~> b3 b3 ~ ~ ~ b3>]] <c3 g3>"
......@@ -62,7 +64,7 @@ d5 $ g2
# "bassWarsaw"
# legato 2
# lfobus 50 (fast 4 sine)
# midiG' "^82" 0 1.5
# midiG' "^82" 0 1
# crushbus 51 (range 16 3.5 "^54")
# octerbus 52 (range 0 "<0.4 0.5 0.9 1.2>" (fast "<4!3 8>" sine))
# octersubbus 53 (range 0 8 ("^34" + 0.5 * (fast 16 cosine)))
......@@ -76,7 +78,7 @@ d6 $ g2 -- Skank organ
)
$ note ("~ 0*<2 2 1 2> ~ 0*<2!3 <1 2>>"
+ "<c5!2 [<f4!3 d5>, bf4]!2>*2"
+ "[0,12]"
-- + "[0,12]"
- 24
)
# "[<~!3 organTonewheel2>,organTonewheel3]"
......
study/chords/lofi.tidal
......@@ -21,17 +21,17 @@ let modIndex = pF "modIndex"
d1
-- $ slow 4 -- Helper: slow down
$ note (
midiOn "^43" (arp "up") -- Helper: arpegiate every other chord
-- midiOn "^43" (arp "up") -- Helper: arpegiate every other chord
-- [8 LoFi Chord Progs](https://blog.landr.com/lofi-chord-progressions/)
--
-- # Dmin11, Efmin11 - Two Sad train tracks
-- "<[d,f,a,c6,e6,g6] [ef, gf, bf, df6,f6,af6]>"
--
-- # Amin11, D7, Fmaj7, Cmaj7 - Pure bliss
-- "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
"<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
--
-- # Cmin11,Fmin9,Cmin11,G7#5 - Enthusiasm
"<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
-- "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
- 12)
-- TODO: Ebmaj9,Abmaj13 (3:34)
-- TODO: Gmaj7+ (4:16?)
......@@ -44,5 +44,5 @@ d1
# room 0.8
# dry 1
# sz 0.2
-- # midiG' "^79" 0 1.2
# gain 0.7
# midiG' "^79" 0 1.2
study/samples/90s.tidal
......@@ -38,7 +38,6 @@ once
-- 6: Resolu bass
-- CELTIC TECHNO
do
setcps (120/60/4)
......@@ -47,21 +46,21 @@ d1
$ g
$ mask "<t(1,4)!4 t(2,4)!3 t t!12 f!3 t(1,4) f!3 t(3,4,1) t!3 f>"
$ "k*4"
# "jazz" # gain 0.8
# "jazz" # gain 0.65
d3 $ g
$ mask "<f!3 [f t] f!3 [f t f t] t!24>"
$ fast "<1!7 2 1!4 2!4>"
$ "hh*[8 <8 [8 <[4 <8 4>]!3 16>]>]"
# gain 0.65
# gain 0.75
d4 $ g
$ whenmod 64 32 (>| n "<20!3 21 20!2 21 21 20 21 20 20 21 21 20 21>")
$ someCyclesBy "<0!32 1!32>" (>| n "4/2")
$ "celtic_guitar80"
# cut 4
# gain 0.47
# gain 0.67
d10 -- fx
$ "~ <~!7 90s_megafx:335>"
# gain 0.3
# gain 0.5
# room 0.8
# cut 10
......
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