Skip to content

T
Tidal
Unverified Commit 0729faed by PLN (Algolia)
Options

bogdanniv to minitel revival

parent 00827035
Showing with 991 additions and 56 deletions
live/drone/hello_drones.tidal 0 → 100644
-- Drone in D
do
setcps (105/60/4)
let mel = ("<d'five'3!4 d'five'4!4 d'five'3!4>")
let maskB = mask "<t!12 [t f!3] f f [f!15 t]>"
d1
-- $ degradeBy "0 0.9!7"
$ maskB
$ loopAt 2
$ slice 8 (iter 4 $ run 8)
$ "fbreak100"
# gain (slow 8 $ range 0.45 0.8 saw)
# cut 1
d3
$ stut 4 0.85 0.25
$ mask "t f!7" $ note mel
# "supersquare"
# voice 1.4
# gain (slow 32 $ range 0.15 0.28 sine)
# crush (slow 64 $ range 16 3 isaw)
# legato 2
d2
-- $ maskB
$ off "e" (|+ note "7 <7 12>")
$ slow 2
$ arpeggiate $ note mel
# "superpiano"
# octave 3
# velocity 0.5
# crush 8
# lpf (slow 64 $ range 0 2000 saw)
# gain 0.85
# pan 0.6
d4
$ superimpose (chop 8 . (# octave 3) . (# gain 0.85)) -- BOURDON
$ arp "updown"
$ note ("<d3'maj d3'min>/2")
# "bassWarsaw"
# legato 2
# pan 0.4
# gain (slow 40 $ range 0.65 0.8 sine)
d8
$ juxBy 0.75 (|+ note 12)
$ mask "<f!32 t!32>"
$ note ("<[0,2] [0,2] [0,1,2] [0,2]>")
# "supergong"
# accelerate 0.1
# room 0.4
# octave 6
# legato 1
# gain 0.35
d9
$ superimpose ((|- note 12) . (# legato 2))
$ "g g(3,8,<3!3 0>)"
# "glitch:1"
# release 0.9
# room (slow 16 $ range 0.1 0.6 sine)
# sz (slow 32 $ range 0 1 saw)
# gain 0.8
live/exp/bogdanniv.tidal 0 → 100644
-- 2 Aight 'Aa'
-- 3 Hey bro ' b'
-- 4 Monney-ee 'ni'
-- 5 That's right
-- 56 Cheeky basterd
--
--
--
C C D C F E
C C D C G F
C C C A F E D
A# A# A F G F F
do
setcps (120/60/4)
d1 $ "k . <~!4 k!4 k(<3 3 5 3>,8)!4>"
# "reverbkick"
# gain 0.8 # djf 0.2
d3
$ fix (|* gain "<0!16 1.2!16>") ("bogdan")
$ fix ((# "superpiano")
. (# velocity 0.75)
) ("arpy")
$ (>| note (cat [
"c ~ [c d ] ~ c f e ~",
"c ~ [c d ] ~ c g f ~",
"c ~ [c a ] ~ f e d ~",
"as ~ [as a] ~ f g f ~"
]))
$ slice 6 "0 1 2 <~!3 1> 3 4 5"
$ "[arpy,bogdan:11]"
# gain (slow 16 $ range 0.65 1 saw)
-- BIRTHDAY DUST
do
resetCycles
setcps (90/60/4)
d1
$ sometimesBy "<1!8 0!240>" (mask "t f!7") -- TODO INTRO
$ whenmod 8 7 (mask "f!3 t")
$ s "h*<2 1 1 2> ~ . ~ h . ~ h . h <~!3 h*2>"
# lpf 2000
# legato 1
# "reverbkick"
# gain 0.7
d2 --DUSTY
$ mask "<f!8 t!240>" -- TODO INTRO
$ (0.02 ~>) -- Fix decalage?
$ loopAt 4
$ slice 4 "0 <1!3 0> 2 3"
$ "dusty:0"
# gain 0.8
# lpf 2000
# pan 0.35
# cut 2
d3
$ mask "<t(4,16)!4 t(3,8)!2 t(10,16) t t!240>" -- TODO INTRO
$ "d d d*<1 2> d*<4 [8 4 <8 8 4 8> <4 8>]>"
# "[drum:2,cpu:4]"
# pan (slow 4 $ sine)
# gain 0.65
d4
$ mask "<f!8 t!240>" -- TODO INTRO
$ fix (
(every' 2 1 $ ply 2)
) (n 5)
$ fix ("q" <~) (n 6)
$ n "~ ~ ~ <5!3 <6 3>>" -- Right cheeky right bro
# "bogdan"
# pan 0.9
# gain 0.8
# cut 4
once $ "bogdan:2" # end 0.2
once $ "bogdan:4" # begin 0.2 # end 0.4
once $ "bogdan:15" # begin 0.358 # end 0.362 # cut 1
live/fusion/morning/flowers.tidal
-- Morning breakbeat bassline funky :)
-- TODO too much when fulltime
-- MIDI Accompagnement: Grille Impro Jazz :)
resetCycles
do
setcps (90/60/4)
d1
d1 -- Kick chaloupé décalé
$ mask "<f!4 t f!3 t!8 t!16>"
$ s "k(3,8)" # "jazz"
d2
$ s "k(3,8,<0!3 3>)" # "jazz"
d2 -- Snare clappé
$ mask "<f!2 t!30 t!32>"
$ s "~ . <s!3 s*2> ~" # s "[snare,cp]" # gain 0.85
d3
d7 -- Drumroll énergisant
$ jux rev
$ fast "<4!3 <8 [8 16 8]>>"
$ "drum:2*[<2!3 4>]"
# gain 0.95
d3 -- Bass loop / découpe
$ mask "<t!4 f t!3 f!2 t!2 f!4 t!4 t!16>"
$ slice 4 (cat [
"0 1 2 3", "0 1 2 3", "0 1 2 3", "0 1 2 3",
......@@ -42,17 +46,16 @@ d4 -- break from Pray
$ loopAt 1
$ "break:1"
# cut 4
# gain 0.7
d5
# gain 0.85
d5 -- Guitare de l'espérance
$ mask "<f!8 t!16 f!4 t!4 f!4 t!28>"
$ every' 8 6 (fast 2)
$ "fguitar"
# cut 5
# n (slow 8 $ "<13 14 13 15>")
# gain 0.8
d6 -- Piano final
d6 -- Piano finaliste
$ mask "<f!32 t!32>"
$ slice 8 ("<0 4> 1 2 3 0 1 2 0") $ "fpiano:15"
# gain 0.7
# pan 0.9
# djf (slow 8 $ saw)
live/hip/instru/courant_alternatif.tidal
-- Courant alternatif: drum-instrumental-hop
-- [Released](https://soundcloud.com/parvagues/courant-alternatif)
resetCycles
do
......
live/hip/instru/minibreak.tidal 0 → 100644
-- MINI1: Filtré militaire bruité
do
resetCycles
setcps (90/60/4)
let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.1 0.9 sine)))
d1
$ gF
$ mask "t <t!8 f(<1 2 3>,4,1)!8>"
$ mask "t . <f t!7> f"
$ whenmod 32 16 (rarely (stut "[2|4]" 0.35 "s"))
$ "k . k(<<3 5> 3!3>,8,3)" # "reverbkick"
# gain (slow 16 $ range 0.8 1.1 saw)
d2
$ gF
$ whenmod 32 30 (fast "<2 4>")
$ whenmod 32 8 (fast 2)
$ fix (# legato (slow 4 $ sine)) ("glitch")
$ "~ . s ~"
# "[sn:1,snare:6,glitch:2]"
# note ("a4" + "0 <-2!3 1!3>")
# gain (slow 16 $ range 0.5 0.9 saw)
# room 0.4 # dry 0.95
# pan 0.35
d3 -- Drums excited!
$ gF
$ mask "t t t? t . t t? t"
$ ("<q!6 <q!6 e e> e>" ~>)
$ loopAt 2
$ slice 16 (run
$ whenmod 16 8 (iter 2)
$ slow 16 "<4 8 16 32>"
)
$ "break:3"
# gain (slow 32 $ range 0.4 0.8 saw)
# legato 1
# room 0.4 # dry 0.98 # sz 0.8
# cut 1
# pan (slow 32 $ range 0.5 0.8 saw)
d4
$ mask "<t <t!4 [t f] f [f t] t>>"
$ "h(<5!3 <8 [8 4]>>,8)"
# "h2ogmhh"
# n ("<0!8 4!8>" + run 16)
# gain 0.65
# release 0.9
# cut 4
-- Mini2: minimaliste breakbeat
do
setcps (80/60/4)
d1
$ "k . k(<3!3 <5 [5 3]>>,8)"
# "auto:5" # gain 0.6
d2
$ loopAt 2
$ "ade:8"
# cut 2
# gain (slow 32 $ range 0.4 0.6 saw)
-- Mini3: Dark low freq downtempo
do
setcps (60/60/4)
let gF = (whenmod 32 24 (# djf (slow 16 $ sine)))
d1
$ gF
$ "k k . k k(<1 3 5 <1 2>>,8,<0 0 0 2>)" -- Breakbeat
-- $ fast 2 $ "k k k <k k [~ k] k*2>" -- TECHNO
# "jazz" # gain 0.65
d2
$ gF
-- $ juxBy 0.8 ((|* gain 0.8) . rev)
$ fast ("<4!6 <4 [8 4] 8> 8>" * "4 <8 [8 4]>")
$ "[drum:2,cpu:4]" # gain 0.4
d3 -- OMINOUS rework
$ note (scale "majPent" (
-- often rev $
iter 2 $
run 4))
# "bass1"
# gain 0.4
# cut 3
do
setcps (70/60/4)
d1
$ "jazz"
# gain 0.65
# lpf (slow 10 $ range 2000 10000 perlin)
d2 -- Slowed break
$ loopAt 2
-- $ slow 2
$ slice 4 "0 1 <2 0 0 2> <3 3 1 1 1 1 1 3>" -- Double
-- $ slow 2 $ slice 8 ("0 1 <0 2> 3 4 5 6 7*<1 2>") -- Simple
$ "break:13"
# gain 0.65
# cut 2
"break:11" -- Cloches/hh
live/midi/ambient_space.tidal 0 → 100644
-- :'(
-- SPACE BEAT
do
setcps (120/60/4)
d1
-- $ fast 4
$ "[jazz,kick:9]"
# gain 0.75
# djf (slow 64 $ range 0.25 0.75 sine)
d2
$ every' 8 7 (ply 2) $ "~ cp" # note (-2) # lpf 2000
d4
$ slow 3
$ sometimesBy "0!7 [0.2 0]" (# "ho")
$ "hh*<8!3 <[8 16 8] 16 [16 8] [8 16 8 16]>>"
# gain 0.7
d3 $ "wind(<3 5>,8)" # note ("c3 g3") # cut 3 # gain 0.7
d5 -- bourrasque
$ every 2 (often ("h" ~>))
$ s "space:3"
# speed (0.25 + perlin/4)
# gain 0.8
# lpf (slow 16 $ range 0.45 0.55 perlin)
-- BREAK SPACIAL
do
setcps (100/60/4)
d2
$ whenmod 16 8 (degradeBy "0.1 <0.8 0.25> <0.2 0.8>")
$ scramble (slow 4 "<1 2 4>")
$ "fbreak100"
# gain (slow 8 $ range 0.85 0.5 saw) # cut 2
d3
$ fix (
(# djf (slow 64 $ sine)) .
superimpose ((# "reverbkick") . (# lpf 1000))
. (|* gain 0.85)
) (n 1)
$ fix (
(jux (rev . (|- gain 0.1))) .
(# room 0.75) . (# sz 0.15) . (# dry 0.98)
. (|* gain 0.65)
. (|+ pan 0.1)
) (n 0)
$ fix (|+ note "[0,<12!7 9>]") (n 6)
$ fix (
(fast "[0.25 <0.25 0.5>]!16 [<0.5!3 1> <1 [1 0.5 1]>]!16 1!32")
. (|* gain (slow 16 $ range 0.75 1.1 cosine))
) (n "[4,5,6]")
$ n (stack [
"1 ~ ~ <~!3 1> ~ 1 <~ 1?0.9> ~",
"0(<3!3 5>,8,<0!3 4>)",
"<[4 5]!7 6>*[8 <8!8 16!8> <8!12 16>]"
]
)
# "gretsch"
# gain 0.6
# pan (slow 16 $ range 0.2 0.8 sine)
d6
$ slow 4
$ ply "<2!3 8> <2 4>"
$ note (scramble 6 $ run 12)
# "superhex"
# octave 3
# rate (slow (slow 32 $ "<32 16 8 4>") $ range 0.05 50 sine)
# cut 2
# legato 4
# gain 0.45
live/midi/beats.tidal
-- Metronome
do
setcps (120/60/4)
d1 $ "m*4" # "drum:8" # gain 0.75
d2 $ "reverbkick"
# gain "<0.75 0.65!3>"
# hpf 1000
setcps (100/60/4)
d1 $ "m*4" # "gretsch:11" # gain 0.55
d2
$ every' 4 3 (off (1 - "e")
(|* gain 0.8)
. (# lpf 2000)
)
$ "[bd,gretsch:12]"
# release 1
# gain "<0.55 0.5!3>"
d1 $ slow 2 $ stitch "t . t(3,8)"
(n "0 .. 7" # sound "bd")
(sound "arpy")
# gain 0.7
-- TECHNO
do
setcps (120/60/4)
d1 $ "jazz*4"
d3 $ "hh*8"
d2 $ "~ cp"
let gG = (# gain 0.95)
d1 $ gG $ "jazz*4"
d3 $ gG
$ sometimesBy (slow 16 $ range 0.2 0.8saw) (off "s" id) $ "hh*8"
d2 $ gG $ "~ cp" # lpf 2000
-- Techno hh(13/16) PIANO prog+MIDI"note" degrade1
......@@ -32,30 +43,79 @@ d3
# velocity 0.7 # legato 4
-- BREAKS
do
d1 $ ""
-- BreakBeat
-- Lucy's Broken Diamond
do
let gD = (degradeBy 0.1)
setcps (80/60/4)
d1
$ superimpose (const
$ "k . <~!16 k!4 k(3,8)!4 k(3,8,3)!4>"
# "reverbkick"
# lpf 200
# gain 1.1
)
$ gD
$ slice 4 ("0 <0 1> <2 0> 3*<1 2 4 4>")
$ loopAt 1 $ "fbreak80:5" # cut 1
# gain (slow 32 $ range 0.85 1.25 sine)
d2
$ fast "<1!8 2!8>"
$ "~ cp"
# gain 0.8
# lpf 2000
d3
$ whenmod 64 32 (iter 4)
$ slice 2 ("<<0 1>!16 0!4 1!4 [0 1]!4 [0*2 1*2]!4>")
$ "fbass:8"
# cut 3
# gain (slow 16 $ range 0.85 1.2 sine)
-- rare 9
-- 1 4
-- 5 6 7 8
-- BreakBeat Echographie
do
let gD = degradeBy "0"
setcps (80/60/4)
d1
$ gD
$ sometimesBy "0 0" (swing 2)
$ "k . <~!4 k(<1 2 3 5>,8)!4>" # "[jazz,bd]"
# lpf 1500
-- # lpf 1500
d2
$ gD
$ jux (rev . (# cut 21))
$ whenmod 8 4 (ply "<1 <2 [2|4]>>")
$ slice (slow 4 "<2 4>") ("0 <0 1>")
$ "fbreak80:5" # cut 2 # gain 1
# lpf (slow 24 $ range 10000 200 sine)
d3 $ "~ ~ ~ cp/2" # djf (slow 16 cosine)
d3
$ gD
$ "~ ~ ~ cp/2" # djf (slow 16 cosine)
d10
$ fix (|* gain 0.75) (n 4)
-- $ often (fast "<[2|4] [4|8]>")
$ n (stack ([
"4(1,8)",
"<5 6>(<5 3>,8,<0!3 4>)"
]))
# "space"
# cut 10
# gain 0.8
-- setcps 0
-- TODO record with SEQ 6: jazz impro All the things you are left hand
-- Noisy Snake Hats
do
-- setcps 0.55
setcps 0.55
-- resetCycles
let dg = (degradeBy $ (1 - (range 0.25 1 "^1")))
let dg = id
d1
$ dg
$ someCyclesBy (slow 16 $ "<0 0.25>") (off "e" id)
......@@ -70,7 +130,7 @@ do
$ whenmod 16 8 (fast ("2 <4!8 <8!8 [4 . 8 [2|4]]!8>>"))
$ superimpose ((# "clap:2") . (|* gain 0.7))
$ "~ snare" # n "[1,2]"
-- # gain (slow 32 $ range 0.8 0.5 isaw)
# gain (slow 32 $ range 0.8 0.5 isaw)
# pan 0.3
# djf (slow 64 (cosine + perlin/4))
d3 -- Hats snake-ish
......@@ -107,3 +167,17 @@ d3
$ whenmod 16 8 (jux rev)
$ fast "<4 4 8 4>"
$ "drum:8" # gain (slow 16 $ range 0.6 0.85 saw)
-- Space techno beat
do
setcps (115/60/4)
d1 -- Kick techno
$ s "k*4" # "jazz" # gain 0.525
d2 -- Snare contretemps
$ mask "<f!2 t!30 t!32>"
$ s "~ . <s!3 s*2> ~" # s "[snare,cp]" # gain 0.5
d7 -- Drumroll énergisant
$ jux rev
$ fast "<4!3 <8 [8 16 8]>>"
$ "drum:2*[<2!3 4>]"
# gain 0.65
live/midi/dub.tidal 0 → 100644
-- Dark dub base reguliere
do
resetCycles
setcps (90/4/60)
let mel = ("<c!3 <as4 ds5>>")
let gF = (whenmod 32 16 (# lpf (slow 16 $ range 0 1 sine)))
d1
$ gF
$ whenmod 16 8 (off "s" id)
$ "[electro1:6,reverbkick]"
# lpf 2000 # gain 0.8
d2
$ gF
$ off "e" (|* gain 0.7)
$ fast "<4!3 [4 <[8 4] <8 16>>]>"
$ "h2ogmhh"
# gain 0.45
d3
$ ("0.25" ~>)
$ superimpose (
(|- pan 0.1)
. (# "bassWarsaw")
. (|- note 24)
. (|* gain 0.8)
. (# legato 1)
)
$ note ("c [c d] c ~ ~ ~ <b4!4 f b4!2 f>")
# "bass3:1"
# legato 0.95
# room 0.2
# pan 0.8
# gain 0.65
d4 -- Aigu contretemps
-- $ mask "<f!4 t!8 f!4 t!16 f!8 t!8>"
$ superimpose (
(# "superpiano")
. (|<| "p(<4!4 8!4 12!4 16!4>,8)")
. (# velocity 0.45)
)
$ fast 2
$ "~ p"
# note (mel)
# octave 7
# "pluck"
# gain 0.65
d5 -- Piano grave temps
-- $ mask "<f!8 t!16 f!4 t!4>"
$ off "e" id
$ fast 2
$ note mel
# "superpiano"
# octave 3
# room 4 # dry 0.99 # sz 0.9
# legato 2
# pan 0.25
# velocity (slow 64 $ range 0.35 0.55 sine)
d1 $ "hand:15" # cut 1
once $ "fbass" # note (-2)
once $ "electro1:6"
live/midi/dubmini.tidal 0 → 100644
-- Dub lancinante
do
setcps (60/60/4)
let gDeg = (degradeBy "0 1 0.8 1" . (|* gain 0.65))
let gLF = (whenmod 64 32 (# lpf (slow 32 $ range 200 10000 sine)))
let gHF = (whenmod 66 33 (# hpf (slow 33 $ range 0 2000 cosine)))
let gFx = (gLF . gHF . gDeg)
d1
$ gFx
$ fast 8
-- $ fast "<1!16 2!4 4!12 8!16>"
$ "h2ogmbd:3" # gain 1.2
d2
$ gFx
$ whenmod 64 48 (# lpf (slow 16 $ range 0 0.5 saw))
$ fast "<4!3 [4 8]>" $ "~ h2ogmcp" # gain 0.75
d3 -- Drums left
$ gFx
$ degradeBy (slow 64 $ range 0 0.8 saw)
$ "t(3,8) t(<1 5>,8)" # "h2ogmft:2" # gain 0.85
# pan (slow 16 $ range 0 0.65 cosine)
d4 -- Drums right
$ gFx
$ sometimesBy (slow 32 $ range 0 0.8 saw) (juxBy 0.75 rev)
$ "t(5,8,4) t(<1 3>,8,4)" # "h2ogmft:3" # gain 0.8
# pan (slow 16 $ range 0.35 1 sine)
d5 -- Bassline
$ superimpose gFx
$ whenmod 64 48 (degradeBy "0 <0.25!4 0.5!4 0.75!4 0.85!4>")
$ sometimesBy "<0.25!3 0.75> 0.8" (fast 2)
$ note ("fs2*2 [a2 b2] [~ <b2 <d3 fs2>>] ~")
# "supersaw"
# voice 0.1
# gain 0.6 -- Warning superimposed twice
d6 -- Crazy hats
$ gFx
$ "h2ogmhh(12,16,<0!3 3>)"
# n "[0|3|4]*16"
# gain (slow 12 $ range 0.65 0.75 saw)
# pan (slow 16 $ "<0.6 0.4>")
d7 -- Snare rush /32
$ gFx
$ mask "<f!24 t!8>"
$ "h2ogmsn:7*<4 [4 4 8] 8 [8 16] 16 [16 32 32] 32 [32 64]>" # gain 0.75
d8 -- Piano regulier folie swing
$ gFx
$ whenmod 128 64 (
swingBy "q" (slow 4 $ "<1!4 2 [1 2] [1 2 1 2]!2>")
)
$ fast 2
$ whenmod 32 16 (off "h" id)
$ superimpose (|+ note 12)
$ note ("~ fs*2 <b b b a b a b b b a b d b d a b> ~")
# "superpiano" # velocity 0.55 # legato 1.25
# room 0.4 # sz 0.7
# gain (slow 50 $ range 0.65 0.95 perlin)
# pan 0.7
d9 -- Trompettes lancinantes
$ gFx
$ note ("<fs!2 ef!2> <es!7 as4> . ~")
# "brass"
# gain (slow 64 $ range 0.45 0.65 perlin)
# legato 2
# room (slow 64 $ range 0.4 0.7 saw)
# sz (slow 32 $ range 0.4 0.8 saw)
# pan 0.7
# cut 9
live/midi/jazz.tidal 0 → 100644
resetCycles
do
setcps (80/60/4)
let gLpf = (whenmod 16 8 (# lpf (slow 8 $ range 0 0.5 saw)))
d1
$ gLpf
$ "jazz" # gain 0.7
d2
$ gLpf
$ "~ [jazz:4,cp]"
# gain (slow 16 $ range 1.2 0.8 isaw)
# hpf (range 0 10000 perlin)
d3 -- Snakes
$ juxBy (slow 8 $ range 0.1 0.9 sine) rev
$ fast 4
$ "s . s <s!3 ~> <~!3 s>"
# "hh*6"
# gain (slow 32 $ range 0.5 1 saw)
d4
$ superimpose (
ply "<2 4 [4 8] 8>" .
mask "t(1,4)" . arpeggiate . (# "supermandolin")
. (|* gain 0.8)
. (# pan 0.6)
)
$ note (cat [ -- grille du blues
"c3'maj", "f3'maj", "c3'maj", "c3'maj",
"f3'maj", "f3'maj", "c3'maj", "c3'maj",
"g3'maj", "f3'maj", "c3'maj", "c3'maj",
"g3'maj", "f3'maj", "c3'maj", "g3'maj"
]) # "bassWarsaw"
# pan 0.35
# crush (slow 64 $ range 16 4 isaw)
# voice 0.8 # gain 0.85
d4 $ note (cat [
"d3'min", "e3'maj", "c3'min", "c3'min"
]) # "bassWarsaw" # voice 0.8 # gain 0.8
once $ arp "up" $ note "d'min" # "superpiano" # velocity 0.38
-- region BACASABL
d4
$ note (cat [ -- FIXME dur a suivre!
"c3'min", "c3'maj", "c3'min", "c3'min",
"c3'maj", "c3'maj", "c3'min", "c3'min",
"d3'min", "d3'maj", "d3'min", "d3'min",
"d3'maj", "d3'min", "d3'maj", "d3'min",
"g3'min", "g3'maj", "g3'min", "g3'min",
"g3'maj", "g3'maj", "g3'min", "g3'maj"
]) # "bassWarsaw" # voice 0.8 # gain 0.92
live/mood/soothing/tone_down.tidal 0 → 100644
-- DIGITAL DREAMS OF MINITEL REVIVAL
-- Techno numérico-mélancolique résolvable
do
setcps (60/60/4)
let mel = "c <f d'min'2> <d <c'min d'maj>> <af <e'maj'2 e'min'2 af'maj'2>> <g!12 c5!4>@4"
d1 -- BEAT
$ slow 2-- TODO Resolve :)
$ whenmod 64 32 (# djf (slow 32 $ range 0.5 0 isaw))
$ fast 2 $ (<| "k k k <k <k k*2 k [~ k]>>") -- TECHNO <3
$ "jazz" # gain 0.5
d2 -- Drums résolus
$ slow 2 $ (|* gain 0.85) -- TODO Resolve :)
$ whenmod 4 2 (often (mask "t [<t t?>!7 t]"))
$ whenmod 64 32 (# djf (slow 32 $ range 0.5 1 saw))
$ superimpose (
(# "glitch:2")
. (# legato 1)
. (|* gain (slow 16 $ range 0.5 0.75 saw))
)
$ "[d ~!3 . d*<12!3 16>]"
# "[snare:20,glitch:0]"
# gain (slow 16 $ range 0.3 0.45 saw)
d4 -- Cymbales fantômes
$ ((|* gain 0.8) . (# room 0.4))-- TODO Resolve :)
$ rarely ((swing 2 . (|* gain 0.75)))
$ juxBy 0.9 ((|* gain 0.9) . (|+ room 0.4))
$ sometimesBy "<t!8 f!32 t!16>" (mask "<f!7 t>")
$ "~ ~ ~ [c <~ c> <~ c> <~ ~ c ~>]" # "h2ogmcy"
# gain 0.35
# n "<[<0 1 2 3 4>]!16 [<6 7 8 9 10>]!16>"
# room (slow 8 $ range 0.3 0.65 saw) # size 0.7
# legato 4
d5 -- Rhodes nappes
$ (|* gain 0.7)
$ whenmod 64 32 (|* gain (slow 32 $ range 1 0.5 isaw))
$ off 1 ( -- Lower
whenmod 64 32 (chop 4)
. (|+ pan 0.2)
. (|- note 12)
. (# room 0.5)
)
$ off 1 ( -- Mid
stut 4 0.9 "<e!6 s!2>"
. (|* gain 0.95)
. (|+ pan 0.2)
. (|- note 12)
)
$ note mel
# "FMRhodes1"
# gain 0.65
# room 0.2
# pan 0.4
# legato 2
d6 -- Rhodes lead folie minitel
$ degradeBy "0 0.95!7" . (|* gain 0.8)
$ sometimesBy "<t!8 f!56>" (degradeBy "t f [f t] f")
$ scramble 8
$ ply 4
$ note mel
# octave "<5 5 [5|6] 6>"
# "FMRhodes2"
# room (slow 32 $ range 0.1 0.4 perlin)
# size 0.2
# gain (slow 32 $ range 0.6 0.85 sine)
once $ note ("af") # "FMRhodes1" # gain 0.8 # room 0.2
once $ note ("d'min'2") # "FMRhodes1" # gain 0.95
once $ note ("c'maj'2") # "FMRhodes1" # gain 0.95
once $ note ("e'maj'2") # "FMRhodes1" # gain 0.95
once $ note ("c f d af g@2") # "FMRhodes1" # gain 0.95 # cut 1
live/techno/bailar.tidal
do
let gGlob = 1
setcps (126/60/4)
let gGlob = 1.5
setcps (128/60/4)
resetCycles
d1 -- Kick etouffable
$ mask "<f!8 t!56 f!16 t!48>" -- Pont!
$ fast "<4!16 1!4 2!4 4!8 1!4 8 1!3 4 1 1 2 4 4!8>"
$ "[jazz,techno]"
# djf (slow 64 $ sine)
# gain (gGlob * 0.8)
# gain (gGlob * 0.78)
d2 -- Drums reguliers
$ mask "<t!64 f!8 t!56>" -- Pont!
$ sometimesBy "0 0 0.25 0" (ply 2)
$ fast "<4!12 8!6 16 [8 4]>"
$ "drum:2"
# djf (slow 64 $ sine)
# gain (gGlob * 1)
# gain (gGlob * 0.9)
d3 -- Tambours marche
$ mask "<t!64 f!12 t!52>" -- Pont!
$ "cpu:2*<4!3 <8 [8 16] [8 16 8] [16 8 16] [16!3 8]>>"
......@@ -31,13 +31,13 @@ d4 -- Rita Orchestra
# cut 4
# room 0.2 # sz 0.8
# pan 0.7
# gain (gGlob * (slow 96 $ range 0.25 0.45 sine))
# gain (gGlob * (slow 96 $ range 0.35 0.45 sine))
d5 -- Wahwah
$ mask "<f!16 t!48 t!4 f!12 t!48>" -- Pont!
$ whenmod 8 6 (juxBy 0.8 (rev . chop 4))
$ iter 2
$ striate 4
$ "rita:2"
# gain (gGlob * (slow 4 "<1 0.9 0.8 0.7>") * 0.58)
# gain (gGlob * (slow 4 "<1 0.9 0.8 0.7>") * 0.6)
# pan 0.3
# cut 5
live/techno/funk/FFF/mad_fonk.tidal
......@@ -7,22 +7,22 @@ resetCycles
-- endregion
do
unsolo 1 -- Kick
solo 1 -- Kick
solo 2 -- Snare roll/rush
unsolo 3 -- Drumroll
unsolo 4 -- Bassline
unsolo 5 -- Guitare intro/pompeA
solo 6 -- Epiano groovy
solo 3 -- Drumroll
solo 4 -- Bassline
solo 5 -- Guitare intro/pompe
unsolo 6 -- Epiano groovy
solo 7 -- Claps from grace
let bpm = 80 -- Que tu crois!
setcps (bpm/60/4)
solo 10 -- NOISES
d10 $ funk_noise
d1
$ every' 8 7 (# lpf 200)
-- $ every' 8 7 (# lpf 200)
-- region Pauses Hip-hop
$ whenmod 8 6 (juxBy 0.5 rev)
$ "k . k(<3 <5 4>>,8)" -- Le simple
-- $ whenmod 8 6 (juxBy 0.5 rev)
-- $ "k . k(<3 <5 4>>,8)" -- Le simple
-- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité
-- region hardkick
-- $ whenmod 32 0 (
......@@ -37,9 +37,9 @@ do
-- region INTRO/Run
-- $ slow 2 -- intro
-- $ whenmod 8 6 (# silence)
-- $ "k k k k k k k <k [~ k]>"
$ "k k k k k k k <k [~ k]>"
# "[jazz,tech:6]"
# gain 1.4
# gain 1.1
# pan 0.45
d2
$ slow 2
......@@ -49,7 +49,7 @@ do
$ "~ s*<1 <2 <4 <8 [8 16]>>>>"
# "snare:3"
# note ("<0 -1 -2 -3>")
# gain 0.8
# gain 0.9
# pan (slow 8 $ range 0.4 0.8 sine)
d3 -- Drumroll
-- $ slow 8 -- TODO IN/OUTRO
......@@ -67,7 +67,7 @@ do
(
-- iter (slow 2 "<2 4>") $
-- run 8 -- Classique: jumpy groovy
"0*4 2 1 3 4 5 6 7"-- HAVE FUN
"0*4 <1 2 3> <2 3 1> <1 2 3> 4 5 6 7*2"-- HAVE FUN
-- "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>" -- Jumpy rappel
-- "<0 4 0 0*2> 4 <0 1 2 3> <0 4!2>" -- Attente
-- "<0!3 <1 2>>*8" -- COME ON CRUSH
......@@ -75,12 +75,9 @@ do
$ "fbass:8"
# legato 1
-- # crush (3.5 + "6 <5 4>") -- CRUSH THIS
# gain 0.8
# gain 1
# pan 0.6
d5 -- Guitare pompe
-- $ whenmod 64 32 ( -- TODO Renverse
-- someCyclesBy "<0.5!16 0.9!16>" rev
-- )
-- region Guitare pompe
$ slice 8 (cat [
"0*4",
......@@ -111,7 +108,7 @@ do
$ slow 2
-- $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS
$ slice 8 (
-- "0 3 2 1 4 5 6 7*<1 2>" -- regulier
"0 3 2 1 4 5 6 7*<1 2>" -- regulier
-- "0 3 2 1 0 3 <2 6> 7" -- variant
-- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE
-- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE
......@@ -119,14 +116,14 @@ do
-- "2*4 3*4 5(3,8)"
-- "0 3 2 1!5" -- repeat aigu
-- "5!7 7" -- END OF FILE
"4!5 5 6 7*<1 2>" -- repeat end
-- "4!5 5 6 7*<1 2>" -- repeat end
)
$ s "fepiano"
# n (slow 8 "<24 25>")
# gain 1.4 -- 0.99 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37
# gain 0.9 -- 0.99 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37
# cut 6
# pan 0.7
d7 $ fast 2 $ s "clap"
# lpf 2000
# gain (slow 16 $ range 0.8 1.2 saw)
# gain (slow 16 $ range 0.8 1.1 saw)
# room 0.4
live/techno/funk/naufrage.tidal
......@@ -6,11 +6,11 @@
do
-- resetCycles
solo 1 -- KICK!
unsolo 1 -- KICK!
solo 2 -- Hats rolling
solo 3 -- LEAD piano
solo 4 -- guitar riff
solo 5 -- Théorie du naufrage
unsolo 3 -- LEAD piano
unsolo 4 -- guitar riff
unsolo 5 -- Théorie du naufrage
solo 6 -- Glitches
setcps (110/60/4)
d1 -- KICK
......@@ -42,7 +42,7 @@ do
)
$ s "fpiano"
# n (slow 4 $ "<0 1>")
# gain (slow 32 $ range 0.7 0.8 saw)
# gain (slow 32 $ range 0.7 0.9 saw)
# legato 1
-- # room 0.5 # sz 0.8
# pan (slow 4 $ "<0.5 0.6>")
......
live/techno/kumai_nights.tidal 0 → 100644
-- Kumai nights Techno kawai nocturne
-- Accompagne piano Do re Mib Sol Lab Do re Mib
do
-- resetCycles
setcps (60/60/4)
let gF = (whenmod 32 16 (# djf (slow 16 $ range 0 0.5 saw)))
d1 -- Kick régulier
$ mask "<f!3 [t f!3]!2 [t f]!2 t!121>" -- Intro/128
$ gF
$ fast "8 <8!3 4 8 [8 4] 8 [8 4]>"
$ "jazz"
# gain 0.9
d2 -- Gretsch entrainée
$ gF
$ someCyclesBy "<t!16 f!112>" -- Intro/128
(mask "<f t!3> <t [f t] [t f] t>"
. degradeBy "<[0 <0.9 0.1> <0.9!3 [t f!3]!2 [t f]!2 t>]!8 0!120>"
)
$ fix
( -- HATS
whenmod 64 48 (fast "0.5 0.25")
. (|* gain (slow 16 $ range 0.55 1 sine))
. (# room 0.5)
. (# sz 0.5)
. (# legato
"<[1 <1!3 <0.5 0.375 0.25 0.125>>]!24 0.125!8>"
)
)
(n "[4,5]")
$ fix ( -- BD irrégulier
# lpf (slow 10 $ range 10000 200 perlin)
)
(n "[0,1]")
$ fix -- Cloches
(|* gain 0.85)
(n 6)
$ fix ( -- Cymbales
sometimesBy "f t" (swing 2) .
(<| "h(<8!6 <2!3 16> <2!3 16>>,12)")
. (|* gain (slow 4 $ range 0.65 0.45 (sine + perlin)))
. (# cut 27)
. (# pan 0.55)
) (n 7)
$ n (stack [
"[0,1](<3!3 [3 5]>,8,<0!8 3!8>)",
"[<5!2 4!2> <4!3 5!3>](<12!4 16 [16 12] [12 16] [16 12 16]>,16)",
"6*<1!4 2 [2 4] 4 <8 [8 1]>>",
"7"
]) # "gretsch" # gain 0.8
d3 -- Rhodes gamme
$ superimpose (
(|* gain 0.8)
. (|- note 12)
)
$ often (ply "<2!3 <4 8>>")
$ whenmod 64 16 (superimpose (
arp "<up [up down] down [down up]>"
. (|+ note "[0,7]")
. (# "FMRhodes2")
. (# gain 0.8)
))
$ slow 4
$ note (scale
"kumai"
(
run "<4!8 8!4 4!4>"
))
# "FMRhodes1"
# octave 4
# gain (slow 16 $ range 0.9 1 perlin)
# room 0.4
# sz 0.5
# voice 0.9
d10
$ juxBy 0.25 rev
$ arp "<up down> <down!6 pinkyup!2>"
$ note (scale
"kumai"
(
"c'maj'4 c'min'4 c'min'4 c'maj'4"
))
# "glitch2:9"
# room 0.25
# sz 0.5
# gain 0.5
live/transe/barrels.tidal 0 → 100644
-- Interesting techno-barrel needs a lead
do
setcps (120/60/4)
-- resetCycles
let gF = (whenmod 64 32 (# djf (slow 48 $ 0.5 + sine)))
d1
$ gF
$ mask "<f!11 t!117>"
$ "jazz*4" # gain 1
d2
$ gF
$ mask "<f!4 t!124>"
$ "hh(<16 <16!8 <16 8>!16> 16 [16 <12 8 4>]>,16)"
# gain (slow 8 $ range 0.6 0.9 cosine)
# pan (slow 16 $ range 0.2 0.4 perlin)
# cut 2
d3
$ gF
$ sometimesBy ("<1!8 0!120>") (
(slow "<8!2 4!2 2 2 [2 1] 1>")
. (ply 2)
. (|* gain (slow 8 $ range 0.75 1 saw))
)
$ slice 4 (run 8)
$ "bsbass"
# lpf 2000
# gain (slow 32 $ range 0.65 0.85 sine)
# cut 1
# pan 0.6
live/work/wake_the_funk.tidal
......@@ -6,7 +6,7 @@ do
setcps (110/60/4)
d1
$ whenmod 16 12 (mask "<f!3 [f!3 t]>")
$ fast 4 $ "jazz"
$ fast 4 $ "jazz" # gain 0.9
d2
$ whenmod 16 12 (mask "<f!3 [f t]>")
$ sometimesBy "0!4 0.5!3 0" ( -- Open hat
......
study/nova/chill_funk_new_disco.tidal 0 → 100644
-- Inspiré par [PV Nova](https://www.youtube.com/watch?v=EE-6l6g7YtA)
-- # Rythmique
-- Poum tchak poum tchak
-- Charley fretillants
-- Claps reverb
-- p t p t pp t p cc
-- h hhh h hh hhh h
-- # Melodie: accords magiques
-- Fa Sol Lam Mim
-- Grosse basse qui tache
-- Guitares elec legere cocotte bondissant de croche en croche
-- # Refrain
-- Piano: memes accords, plaqués
-- Guitare: aigus "a la neil rogers"? -- Lol non je code pas ça
-- Basse: nouvelle ligne!
-- Gimmick funky piano electrique
-- Synthé aérien "famille des pads"
-- Percus bonus: triangle/claves
do
resetCycles
setcps (105/60/4)
d1
$ fix (
(# "hh") . (# n "0 <0!3 <7 [7 8]>>")
. (sometimesBy "0 <0!3 <0 1>>" (ply "2 [2 1]"))
. (# cut 11)
. (# hpf 3000)
) "h"
$ fix (# "cpu:2") "sn"
$ fix (
(# "clap:1")
. (# room 0.1)
. (# sz 0.2)
. (# dry 0.9)
. (|* gain 0.65)
) "cp"
$ fix (
(# "[808bd:3,cpu2]")
) "bd"
$ stack [
"bd sn bd <[sn bd] cp*2>",
"h(<3!3 5>,8) h(<5 3>,8)"
]
# gain 0.7
d2 -- Piano altéré: FAM7 SOLsus4 LAm7 MIm7
$ mask "<f!8 t!56>"
$ someCyclesBy "<f!32 t!8 f!32 t!24>" (superimpose ( -- Accords aigus
swing "1 <1 2>"
. sometimesBy "<f!32 t!8 f!32 t!16 f!8>" (fast 2)
. scramble 4
. arp "<up!3 down>"
. (|+ note 12)
. (|* gain 0.9)
. (|+ pan 0.1)
))
$ note "<f'maj7 g'sus4 a4'min7 e'min7>"
# "<FMRhodes1!8 FMRhodes2!8>"
-- # "superpiano" # velocity 0.75 # hpf 2500
# octave 4
# pan 0.4
-- # gain 0.95
d3 -- Bassline
$ mask "<f!4 t!60>"
$ sometimesBy "<f!8 [f t] t!3 f [f t] t t>" (# lpf 200)
$ loopAt 2
$ slice 8 (
sometimesBy "<f!32 t!8 f!32 t!16 f!8>" ((>| "0 1 0 1 1 1 1*2 [1 0]"))
"0 0 1 1 0 1 [0 1] <~ [~ 1]>"
)
$ "fbass:3"
# cut 3
# pan 0.55
# gain (slow 16 $ range 0.65 0.85 sine)
d4 -- Cocotte
$ mask "<f!16 t!48>"
$ slice 4 "0(3,8) <4!3 3>"
$ "fguitar:48"
# gain (slow 64 $ range 0.45 0.75 sine)
# pan 0.8
# legato (slow 32 $ range 0.8 1.2 sine)
# cut 4
d5 -- EPiano groovy refrain
$ mask "<f!32 t!8 f!32 t!16 f!8>"
$ loopAt 2
$ "fepiano:19"
# gain (slow 64 $ range 0.5 0.75 (1 - sine))
# cut 5
# pan 0.25
d6 -- Percus bonus
$ mask "<f!16 t!48>"
$ fast "<16 <16!4 <16 [16 8 16]>!4> 16 [16 <8 [8 16]>]>"
$ "tech:8"
# pan (slow 32 $ range 0.7 0.85 sine)
# gain 0.8
# cut 6
d7 -- Roll bonus
$ mask "<f!4 t?!4 t!48>"
$ someCyclesBy (slow 32 $ sine) (# gain 0.95)
$ "gretsch:11(<12!3 [12 16]>,16)"
# hpf 2500
# gain 0
# pan (slow 32 $ range 0.3 0.45 sine)
# cut 7
d8 -- Synthé aerien pad-like
$ note "<a5'min g5'maj <a5'min f'maj7> <g5'maj e'min7>>"
# "supersaw"
# voice 0.1
# gain (slow 32 $ range 0 0.25 saw)
# room 0.1
study/patterns.pdf.tidal 0 → 100644
d1
$ superimpose rev
$ superimpose (fast 2)
-- $ chunk 4 (blend 0.5 "cpu:2" <$>)
$ superimpose rev
-- $ fast "1 5 3"
$ n (
iter 4
"0 1 2 3")
# "cpu" # gain 0.5
study/wiki/tones.tidal 0 → 100644
-- Kumai darling Techno kawai nocturne
-- Accompagne piano Do re Mib Sol Lab Do re Mib
do
setcps (60/60/4)
let gF = (whenmod 32 16 (# djf (slow 16 $ range 0 0.5 saw)))
d1 -- Kick régulier
$ gF
$ fast "8 <8!3 4 8 [8 4] 8 [8 4]>"
$ "jazz"
# gain 0.9
d3 -- Rhodes gamme
$ superimpose (
(|* gain 0.8)
. (|- note 12)
)
$ often (ply "<2!3 <4 8>>")
$ arp "<up [up down] down [down up]>"
$ slow 4 $ note (scale
"kumai"
(
run "<4!8 8!4 4!4>"
))
# "FMRhodes1"
# octave 4
# gain (slow 16 $ range 0.9 1 perlin)
# room 0.4
# sz 0.5
# voice 0.9
d2 -- Gretsch entrainée
$ gF
$ fix
( -- HATS
whenmod 64 48 (fast "0.5 0.25")
. (|* gain (slow 16 $ range 0.55 1.25 cosine))
. (# room 0.5)
. (# sz 0.5)
. (# legato
"<[1 <1!3 <0.5 0.375 0.25 0.125>>]!24 0.125!8>"
)
)
(n "[4,5]")
$ fix ( -- BD irrégulier
# lpf (slow 10 $ range 10000 200 perlin)
)
(n "[0,1]")
$ fix -- Cloches
(|* gain 0.85)
(n 6)
$ fix ( -- Cymbales
sometimesBy "f t" (swing 2) .
(<| "h(<8!6 <2!3 16> <2!3 16>>,12)")
. (|* gain (slow 4 $ range 0.65 0.45 (sine + perlin)))
. (# cut 27)
. (# pan 0.55)
) (n 7)
$ n (stack [
"[0,1](<3!3 [3 5]>,8,<0!8 3!8>)",
"[<5!2 4!2> <4!3 5!3>](<12!4 16 [16 12] [12 16] [16 12 16]>,16)",
"6*<1!4 2 [2 4] 4 <8 [8 1]>>",
"7"
]) # "gretsch" # gain 0.8
once $ "superreese"
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