Skip to content

T
Tidal
Commit d6e264cb by PLN (Algolia)
Options

Update: until nass arrive

parent a382ef84
Showing with 435 additions and 32 deletions
live/chill/atm/hors_amsterdam.tidal 0 → 100644
resetCycles
do
setcps (70/60/4)
let prog = "<b3 d4 b3 <as3 g3>>"
let blocker = degradeBy "<0!128 0.5 0.75 0.8 0.9 1!124>"
d1
$ blocker
$ mask "<t!120 t t t f t t f [t f!3]>" -- Outro
$ mask "<f!8 t t f t t f t f t!48>" -- Intro partie
$ mask "<t!32 f!8 t!24>" -- Pont1
$ "k(<1!4 2 1 <3 <4 5>>>,8) . <~!16 k!16> <k!4 ~!3 k> <~!8 k!8> <~!2 [k k?]? k*2>"
# "[super808,jazz]"
# gain (0.5 + 0.15 * (slow 32 sine))
# room 0.5
# sz 0.7
# dry 0.9
d2
$ blocker
$ degradeBy "<[0 0.8!7] 0.5 0.25 0 0!28>" -- intro
$ mask "<t!32 f f [f t] t f f [f t] t t!24>" -- Pont1
$ n (stack [
"~ 0*<[2 <4 8 16 [16 8]>]>",
(fast ("4 8" * "1 <2 2 2 [2 1] 2 2 1 [2 4]>") "5"),
"9(<0!16 <5!3 [5 8]>!16>,8)",
""
])
# "amencutup"
# gain 0.5
d3 -- Bassline
$ blocker
$ someCyclesBy "<0!32 1!8 1!24>" (# hpf 1000) -- Pont1
$ mask -- Degradation sur 32 par 8: intro/full/degrade/outro
"<t!4 t f f t [f!3 t] t!7 [t f f t]!3 t [f t t f]!3 [f t] t!5 [t!3 f]>"
$ note prog
# crush "<10!30 8 5 10!16 8 7 6 5 5 5 5 4.5 5 6 7 8 5!4>"
# "bassWarsaw"
# gain 0.55
# pan 0.2
d4 -- Epiano ritournelle cut
$ blocker
$ mask "<f!4 [f t]!4 t!24>" -- Intro
$ mask "<t!123 f!5>" -- Outro
$ someCyclesBy "<0!32 1!8 1!24>" (# hpf 1000) -- Pont1
$ whenmod 128 64 (
# panbus 32 (slow 64 $ range 0.95 0.5 saw)
)
$ whenmod 64 32 (
# crushbus 31 (slow 32 $ range 16 4.5 saw)
)
$ slice 4 ("<0 [0 1] 1 0*[8 <1 16>]>" + (slow 16 "<0 2>"))
$ "fepiano:8"
# cut 3
# gain 0.45
# room 0.3
# pan 0.3
d5 -- Piano base gauche / glitchy monomaniaque droite
$ blocker
$ mask "<f!3 [t f] f!7 t t!24>" -- Intro
$ mask "<t!120 f!8>" -- Outro
$ mask "<t!64 f!16 t!48>" -- Off begin second part
$ someCyclesBy "<0!32 1!8 1!24>" (# hpf 1000) -- Pont1
$ superimpose (
whenmod 32 8 (sometimesBy (slow 32 $ range 0 0.5 saw) (ply 2) )
. (|+ note "12 24")
. struct "~ . t(<5!3 [5|8]>,8,<0 0 1 2>)"
)
$ note (prog
+ "<~!3 0> <0!3 [12 <~ 0 12 [12 0]>]>"
)
# "superpiano"
# velocity (slow 32 $ range 0.25 0.4 saw)
# pan 0.75
d6 -- Trombones de combat
$ blocker
$ mask "<t!125 f!3>" -- Outro
$ mask "<f!15 t f!15 t t!32>" -- Second half of each part
$ note (prog
+ "0(<3!3 [3 <1!3 5>]>,8) [12 . <12!4 ~> <~!4 12!4> <9 9 12 9> 12]"
+ "1" -- fix note base sample
)
# octave 6
# "rootsTromb:4"
# cut 6
# gain (slow 16 $ range 0.65 0.4 saw)
# pan "<[0.65 0.65 0.5 0.65]!3 0.35>"
d7
$ blocker
$ mask "<t!126 f!2>" -- Outro
$ mask "<f!128 t!128>" -- Second part
$ slice 4 "<0!3 1>"
$ "rootsTrump:5"
# cut 7
# gain 0.5
d10 -- Drumroll scred
$ blocker
$ someCyclesBy "<0!32 1!8 1!24>" (# hpf 1000) -- Pont1
$ jux rev
$ whenmod 8 4 (degradeBy (slow 32 $ range 0.5 0.05 cosine))
$ "amencutup:28*[<16!4 [<8!4 16!4> . <8 16>]!4> . 0 <16 [16 32] 16 32>]"
# dry 0.99
# pan (slow 4 $ range 0.25 0.75 saw)
# gain 0.45
live/dnb/nass_arrive.tidal 0 → 100644
do
-- resetCycles
setcps (140/60/4)
let modIndex = pF "modIndex"
let pTechno = "<0!64 1!64>"
let whenTechno = someCyclesBy pTechno
let whenDNB = someCyclesBy (1 - pTechno)
d1
$ mask "<f!16 t!4 f!8 t!36>"
$ whenTechno (<| "k*4")
$ whenDNB (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
$ "[jazz,kick:5]"
# gain 1.1
# room 0.1
d2 -- Snare contretemps DNB Techno-compatible
$ mask "<f!28 t!36>"
$ "~ s ~ [s <~ s? ~ s*<1 2>>]"
# "[cpu:2,snare:35,<snare:43!4 snare:40!4>]"
# gain 1.44
d3 -- DrumRoll
$ mask "<f!20 t!44>"
$ whenmod 4 2 (rarely (ply 2))
$ fast "8 <[8|8 4|8|16 8|16]!3 [16 <8 32>]>" $ "[drum:2,cpu2:3]"
# gain 0.96
d4 -- BASSLINE
$ mask "<f!8 t!12 t!44 t!64>"
$ whenTechno (chop "<8 8 4 <8 16>>")
$ superimpose ( -- Aigu complément
("e" ~>) . (# voice 100)
. (# pan 0.4)
)
$ superimpose (|+| note "~ 7(<3!3 5>,8)")
$ whenmod 32 24 (# note "<g f ef <c f>>")
$ note "<c c ds <c g>>"
# octave 3
# "supersaw"
# crushbus 4 (slow 16 $ range 16 4 saw)
# voice 0.1
# room 0.2
# pan 0.2
# gain 0.84
d5 -- Mad organ
$ whenTechno ((|* gain 1.3))
$ mask "<f!32 t!32>"
$ someCyclesBy "<f!6 t t>" (slice 4 "0 0 0 0*<1 2>") -- PRE-DROP
$ someCyclesBy "<t!12 f!4>" (mask "<t!3 f>")
$ "forgan:24"
# cut 5
# crushbus 5 (range 16 4 (slow 2 perlin))
# gain 1.28
# pan 0.9
# hpf (slow 32 $ range 0 2500 sine)
# room (slow 16 $ range 0 0.4 perlin)
d6 -- Rhodes arps <3
$ someCyclesBy "<t!4 f!60>" (struct "t(<<1 3> <2 4>>,4)")
$ mask "<t!20 f!8 t!36 t!20 f!8 t!32 f!4 f!128>"
$ whenTechno (struct "t(<10 12 8 4 10 12 8 16>,16)")
$ degradeBy ("0 0.5!15" - (slow 16 cosine))
$ whenmod 32 24 (sometimesBy "0 1" rev)
$ note ("<c c ds <c g>>"
+ (arp "up" "<[c'maj'4 c'maj'3]!12 [c'maj'4 c'maj'3]!4>")
+ "0 12"
- 24)
# "[FMRhodes2,FMRhodes1]"
# modIndex (slow 4 $ range 0 10 saw)
# crushbus 6 (slow 16 $ range 16 4 saw)
# pan 0.6
# room 0.4
# gain (1.2 * "<1!20 0.9!44>")
-- # gain (slow 16 "<0.5 0.75>" + (slow 16 $ range 0.125 0.5 saw))
d7 -- GLITCH NOISES
$ mask "<[f t]!8 f!8 t!48>"
$ fix (|* gain 0.6) (n 3)
$ fix (|* gain 0.5) (n 6)
$ n "[[~ <~!4 3!4> ~ 3],[6*<1 2 4 2>],7,8(<3 5 8>,8)]"
# "cosmicg"
# pan 0.8
# lpf 1200
# gain 0.78
d8 -- GLITCH DNB
$ mask "<f!16 t!48>"
$ n "12 11 . ~ 12 11 <~!3 <11 [~ 11]>>"
# note "-1 0 . -1 0"
# "cosmicg"
# pan 0.2
# room 0.5
# dry 1
# gain 0.8
d9 -- Claps occasionnels
$ mask "<f!24 t!4 f!36>"
-- $ "[~ cp]*<1 1 1 2 2 2 4 8>"
$ "[~ cp]*<1 1 2 4>"
# "cp"
# gain 1.1
# room 0.2
# lpf 2000
do
setcps (140/60/4)
d1 $ slow 8 $ note (scale "aeolian" (run 32))
# "arpy" # gain 1.4
live/funky_veranda.tidal 0 → 100644
resetCycles
do
setcps (60/60/4)
d1
$ mask "t <t!3 f>"
$ "k . <k!3 [~!<3!8 7!8> k]>"
# "[jazz,cpu2,reverbkick]"
# att 0
# rel 0.9
# lpf 1050
# gain 1
d2 -- Broken break!
$ mask "<t!16 f!8 t!8>"
$ whenmod 4 3 (mask "t <f!3 t>")
$ whenmod 16 10 (striate "2 <2 4>")
$ whenmod 8 6 (slice 8 "1!8")
$ loopAt 2
$ slice 8 (run "<8!3 16>")
$ "fbreak80:3"
# gain (slow 32 $ range 0.65 1.05 cosine)
# cut 2
d3 -- HiHat roll
$ fast "1 <2 <1 4>>"
$ "h*[8 16]" # "hh"
# note "<0!4 2!3 0>"
# gain ((slow 16 $ range 0.4 0.57 saw) + 0.1 * perlin)
# lrate 0.5
# leslie 6 # cut 21
d4 -- Rhodes nappes+arps
$ superimpose ( -- Laggy Arps
chop "<1!16 <1 2>!16>"
. struct "t(<3 3 3 [3 1] 5 5 5 [5 8] 8 8 5 8 16 [16 8] 5 [8 16]>,8)"
. arp "disconverge converge"
. off "h" (|+ note 12)
. (# pan 0.8)
. (|* gain 1.3)
. (# room 0.5)
. (# sz 0.9)
. (# cut 41)
. (# "FMRhodes2")
)
$ note ("ds'maj" -- BASELINE
+ "<<0!4 12 0!3> <5 8>>")
# "FMRhodes1"
# octave 3
# gain 1.1
# room 0.32
# dry 0.9
# pan 0.8
d5 -- Bassline + final arps
$ whenmod 32 24 (superimpose (
struct "t(5,8)"
. arp "down"
. (+| note "c'maj'5")
. (# cut 51)
. (|* gain 0.95)
. (# pan 0.3)
))
$ note (
"<ds3 [fs3@2 gs3 ds3@5] [fs3@7 [ds3 fs3]] gs3>"
)
# "bassWarsaw"
# cut 5
# pan 0.2
# gain 0.9
d6
$ mask "<f!16 t!16>"
$ superimpose (|+| note
"0*<1 1 2 1 2 2 1 1> <7!3 12>(<1 3 1 5>,8)"
)
$ note "<ds fs ds gs>"
# "cbow:2"
# cut 6
# pan 0.15
# gain 0.55
# room 0.3 # sz 0.8
d7
$ mask "<f!32 t!16 f!4 t!12>"
$ often (off "e" ((|+ note "[0|12]") . (|* gain 0.95)))
$ note ("<ds fs ds gs>" + (arp "up" "<c'maj'2!3 c'maj'4>"))
# "cbow:3"
# pan 0.85
# gain 0.65
# room 0.3 # sz 0.8
live/midi/nova/FM/heure_a_perdre.tidal
......@@ -46,6 +46,7 @@ let g = gDJF
-- Track
let prog = "<c'maj'4 d'maj'4 c'min'4 g'maj'4>"
let mel = (scale "aeolian" (slow (4 - (3 * "^57")) $ arp "updown" prog))
setcps (0.5)
d1 -- Kick 4/4
$ g
$ midiOn "^41" (<| "k <<k!8 ~ k!7> k!3 ~ k!3> k <k <k*2 [~ k]>>")
......@@ -70,7 +71,7 @@ d3 $ g -- Running Hats
# gain (1.7 * "^77" * "^56")
d5 $ g
$ off "h" id
$ midiOn "^42" (scramble 2 . often (chop "<2!3 4 2 [2 4] 2 4>"))
$ midiOn "^42" (scramble 4 . ply 2 . often (chop "<2!3 4 2 [2 4] 2 4>"))
$ midiOn "^43" (off "q" ((# room 0.2) . (|* gain 0.8)))
$ degradeBy ("<0 0.5> 1!7" * "^50")
$ midiOn "^44" (degradeBy "0 1!5 0.5 0.25")
......
live/midi/nova/breaks/solar.tidal 0 → 100644
do
setcps (110/60/4)
let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g = (gDJF)
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"
-- # release "<0.7!3 1>"
# midiG' "^78" 0 1.4
d3 $ g $ m -- Snare
$ fast "<1!4 2!10 4 [4 8]>"
$ s "~ sn"
# n "[14,20]"
# note "<0!7 -4>"
# midiG' "^79" 0 1.4
d2 $ g $ m -- BREAK
$ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate 4)
$ loopAt 2
$ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 (run 8)
$ "break:11"
-- # speed (range 0.5 1.5 "^52")
# midiG' "^80" 0 1.2
# cut 2
d4 $ g $ m
$ striate 2
$ loopAt 2
$ slice 8 (run 8)
$ "fbass:3"
# midiG' "^81" 0 1.2
# crushbus 4 (range 16 1.5 "^53")
# cut 4
# pan 0.2
d5 $ g
$ midiOn "^58" (superimpose (
often (ply "1 2")
. (|+| note (
arp "<up!8 converge!7 disconverge>"
"c'maj'8")
)))
$ struct "~ t"
$ slow 4
$ arpeggiate
$ note "e3'maj"
# "FMRhodes1"
# room "<0.4!3 0.7>"
# midiG' "^82" 0 1.2
d7 $ g -- Back bows
$ superimpose ((# cut 71)
. (# n 3)
. mask "t(<1 1 0 [3 <3 1>]>,8)"
)
$ someCyclesBy "<f!4 t!3 g>" rev
$ struct "t(<1 <3 5>>,8)"
$ arp "up"
$ note "<e'maj'4!3 b'maj'4!4 e'maj'4>"
# "cbow"
# n "0"
# midiG' "^83" 0 0.7
# room 0.3
# pan 0.7
# cut 7
d8 $ g
$ whenmod 8 4 (rarely (striate 2))
$ whenmod 16 8 (sometimesBy "0 1" rev)
$ midiOn "^60" (
slice 2 (run "<2 1 2 4 1 4 6 16>")
)
$ loopAt 2
$ "forgan:2"
# midiG' "^84" 0 1
# crushbus 8 (range 16 1.5 "^56")
# cut 8
# pan 0.8
once $ "cbow:3" # gain 0.57 # cut 21
-- TODO MOVE OR REMOVE
d7 $ g -- Hello PWM!
$ (|* gain "<1!15 0.8>")
$ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
$ midiOn "^89" (superimpose $ segment 16)
$ note (mel - 12)
# "superpwm"
# semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte
# accelerate "<0!7 <6 12>>"
# rate "<1!5 2 4 <1 4>>"
# resonance (slow 32 $ range 0.2 0.6 sine)
# crushbus 71 (range 10 3 "^53")
# midiG' "^81" 0 1.42
d6 $ g -- Nappes Rhodes
$ note (
prog
+ "0 12"
)
# "FMRhodes1"
# pan 0.2
# modIndex (range 0 100 "^54")
# crushbus 61 (range 16 5 "^34")
# midiG' "^82" 0 1.5
d9 $ g
$ 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
live/midi/nova/dnb/meurice.tidal
......@@ -4,7 +4,7 @@ import Sound.Tidal.ParVagues.Control
--
do
setcps (160/60/4)
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gFreqL = (# lpq (range 0 0.5 "^29"))
let gFreqH = (# hpq (range 0 0.5 "^30"))
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
......@@ -77,7 +77,7 @@ d7 -- Guitar B
$ segment "<0.5!2 1 <2 4 8 [8 16]>>"
$ "fguitar" # n "<25!3 [25 26] 25!2 27!2 27!8>"
# pan 0.65
# crush (range 10 2 "^54")
# crushbus 71 (range 10 2 "^54")
# midiG' "^82" 0 (1.2 * (range 0.5 1.4 "^18"))
# leslie "^34"
# lsize (1 + (slow 8 perlin * 2))
......
live/midi/nova/fusion/elephunk.tidal
......@@ -5,7 +5,7 @@ resetCycles
do
setcps (60/60/4)
let patFunk = "ds gf f <bf4!3 bf>"
let gDJF = (# djfbus 1 (range 0.5 0.15 "^49"))
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gPont = whenmod 64 32 (mask "<f!6 t!26>")
let g = gDJF
d1 $ g $ gPont
......@@ -17,6 +17,7 @@ d2 $ g $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]"
# midiG "^79"
d3 $ g $ gPont
$ midiOn "^76" (slice 8 (run 8) . (loopAt 0.5) . (>| "breaks165"))
-- $ mask "<f!8 t!24>"
$ (
mask "t . t t(2,4)"
......@@ -66,7 +67,7 @@ d8 $ g -- Organic madness
# lpf 1000
# midiG' "^83" 0 1.2
# cut 8
d10 -- F-U-N-K
d10 -- F-U-N-K -- TODO Variations FUCK / FUN
$ mask "<f!8 t!24>"
$ degradeBy "0 <0.5 0.45 0.35 0.3 0.25 0.2 0.15>!7 <1!3 0>"
$ whenmod 64 48 (swing "<6!8 [3 4]!8>")
......
live/midi/nova/instruments/AtomicRhodes.tidal
......@@ -8,9 +8,7 @@ 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 novaOn ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) pat
let gLPF = (# lpf (min 10000 ((range 200 20400 ("^13")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^13"))))))
let gDJF = (gLPF . gHPF)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^13"))
-- region Args FMRhodes
let rel = pF "rel" -- 1
let lfoSpeed = pF "lfoSpeed" -- 4.8
......
live/midi/nova/instruments/scratchomatic.tidal
......@@ -4,16 +4,14 @@ let gG a = (gain (gF * a)) -- gain Global
let gR l h a = (gain (range l h a)) -- gain Modulé noglob
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 gLPF = (# lpf (min 10000 ((range 200 20000 ("^29")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^29"))))))
let gDJF = (gLPF . gHPF)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^29"))
let novaOn ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) pat
let novaNo c1 c2 pat = someCyclesBy ((1 - c1 - c2)) pat
-- let gRythm = (novaOn "^41" (euclid 3 8)) . (novaOn "^42" (fast 4)) . (novaNo "^41" "^42" (fast 2))
let gCPS = (# cps ((range 60 124 "^13")/60/4))
let g = gCPS . gDJF
let gAcc = g . (novaOff "^41" (# silence)) . (|* gain "^84")
let gAcc = g . (novaOff "^41" (# silence)) . (|* gain (range 0 2 "^84"))
d10 $ gAcc -- Kick
$ "k(3,8) . <k k*2 [k . ~ k] <~ [~ k*4]>>" # "[jazz,hh:6]"
# att 0.3 # sus 0.3
......@@ -62,9 +60,8 @@ d11 $ gAcc
$ sometimesBy "0 0.75" (off "q" (|* gain 0.95))
$ slice 8 "<[0 1] [2 3] [0 3] [2 3]>"
$ "fbass:1"
# gain 1.4
# pan 0.7
# gain 1
# pan 0.5
# cut 11 -- Company funky
......
live/midi/nova/lofi/back_baby.tidal
import Sound.Tidal.ParVagues.Control
resetCycles
do
setcps (80/60/4)
......@@ -39,7 +40,7 @@ d10
# sz 0.8
# pan 0.24
# voice 0.03
# gain 0.25
# gain 0.45
d4 -- BASSLINE Résolue
$ g
$ mask "<f!4 [t f]!4 t!24>"
......
live/midi/nova/lofi/new_dust.tidal
import Sound.Tidal.ParVagues.Control
-- New Dust: LoFi howto dust to dust
do
setcps (60/60/4)
......@@ -90,7 +91,7 @@ d5 $ g -- Infectious Bassline
# crush (range 16 2.5 "^54")
# midiG' "^82" 0 1.3
# room 0.2
d7 -- TOYS
d7 -- TOYS TODO Rework classico louche
$ degradeBy (0.99 - "^55")
$ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1"))
$ slice 8 (stack [
......@@ -98,7 +99,7 @@ d7 -- TOYS
"<0!4 1 0 1 [0 1]>*<4!4 8 4 8 8>", -- Toy melod
""])
$ "toys"
# midiG' "^83" 0 0.75
# midiG' "^83" 0 0.7
d8 $ g -- Toy bogdan
$ fix (|* gain 0.75) "hh"
$ every' 16 15 (>| "~ ~ ~ bogdan:4")
......@@ -125,5 +126,5 @@ d9 $ g -- Toy Dusty
-- "0 1*2 2 ~ ~ ~ ~ ~"
])
$ "dusty"
# cut 9 # gain 0.65
# cut 9
# midiG' "^56" 0.3 1.1
live/midi/nova/lounge/blade_dreamer.tidal
......@@ -3,7 +3,7 @@ resetCycles
-- Blade Dreamer: For you I will use Vangelis' synth <3
do
let chord = "d4'min7'4"
let gF = midiDJF "^49" 200 9800 0 2000
let gF = (# djfbus 1 (range 0.1 0.9 "^49"))
-- let gDJF = (whenmod 32 28 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF
let chords = "<a4'min7 e'min7 f'maj7 g'sus4>"
......
live/midi/nova/lounge/hoover_sepia.tidal
......@@ -41,6 +41,7 @@ d4 $ g -- Hoover bassline
# crushbus 31 (range 16 1 "^53")
# ampb 32 (range 0 0.125 "^81")
# pan 0.2
# gain 0.8
# legato 1.05
d5 $ g -- Arp aigus Rhodes
$ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)")
......
live/midi/nova/lounge/invoque_ete.tidal
......@@ -71,7 +71,7 @@ d7 $ g
$ "fpiano:13"
# pan 0.45
# room 0.2
# gM' 0 1.3 "^83"
# gM' 0 1.4 "^83"
# cut 7
d8 $ g
$ midiOn "^92" (|+ note 12)
......@@ -85,9 +85,9 @@ d8 $ g
))
$ note "<a3'maj g3'maj a3'min d3'maj>"
# octave 4
# room 0.4
# room 0.24
# "moogBass"
# midiG' "^84" 0.3 1.4
# midiG' "^84" 0.3 0.9
d9 $ g
$ degradeBy (slow 16 $ range 0.8 0.2 saw)
$ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
......
live/midi/nova/lounge/michael.tidal
......@@ -3,7 +3,7 @@ resetCycles
-- Michael: lounge piano/brass tech/break
do
let gDJF = midiDJF "^49" 200 9800 0 1000
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
setcps (120/60/4)
d1 $ g
......@@ -17,6 +17,7 @@ d2 $ g
$ whenmod 8 6 (ply "2 <2 4>")
$ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20"
# midiG "^79"
# note (range "-12" 12 "^50")
d3
$ g
$ midiOn "^44" (slow 2)
......@@ -32,9 +33,11 @@ d4 $ g -- Synth brass choir
$ midiOn "^57" (# crush 6)
$ fix (
(# "fsynth:3")
. (|- note 24)
. slice 8 "0 1 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
. arp "pinkyup"
. (|+ pan 0.1)
. (|* gain "^53")
. (>| note ("c'maj'3" - 7))
. (|* gain ("^17" * 0.9))
) "a"
$ fix (
(# "fsynth:3")
......@@ -45,11 +48,9 @@ d4 $ g -- Synth brass choir
) "b"
$ fix (
(# "fsynth:3")
. slice 8 "0 1 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
. arp "pinkyup"
. (|- note 24)
. (|+ pan 0.1)
. (>| note ("c'maj'3" - 7))
. (|* gain ("^17" * 0.9))
. (|* gain "^53")
) "c"
$ slice 4 "<0 1 2 3>"
$ "[a,b,c]"
......
live/midi/nova/minneapolis.tidal
......@@ -6,12 +6,12 @@
-- >1C 2C 3C 4C 5C 6C 7C 8C
-- `49 50 51 52 53 54 55 56`
-- XXX XXX XXX XXX XXX pSust fSpd gunFreq
-- Dlay DFB XXX XXX crBass pRVel cpStut gunSpd
-- DJF XXX XXX panDr gmSiren pLVel cpSpd gGuns
-- G Kick Sn DrRoll Bass Piano CP Fire
-- X TCHN Stut Wait/Run TCHN XXX XXX XXX
do
-- region Nova Utils
let gF = 1.5 -- gain factor
......@@ -43,7 +43,7 @@ d2 $ g
$ every' 8 7 (mask "f t!3" . jux rev)
$ s "~ s ~ <~!4 s!4> ~ s*2 ~ s*2"
# s "snare:20"
# gM' 0 0.8 "^79"
# gM' 0 1.2 "^79"
# pan 0.3
d3 $ g -- Drumroll opposé hit roll / hh when TECHNO
$ novaOn "^41" ( -- TECHNO bells!
......
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