Skip to content

T
Tidal
Unverified Commit 65bc9ffb by PLN (Algolia)
Options

FFF: Ready for repeat

parent ca20b669
Showing with 69 additions and 60 deletions
live/techno/funk/Noise.tidal
...@@ -2,38 +2,40 @@ module Funk where ...@@ -2,38 +2,40 @@ module Funk where
funk_noise = superimpose (const -- Bris de vers spatial funk_noise = superimpose (const -- Bris de vers spatial
$ degradeBy (slow 4 "<0.75 0.5 0.25 0.1>") $ degradeBy (slow 4 "<0.75 0.5 0.25 0.1>")
$ someCycles (# speed 0.5) $ someCycles (# speed 0.5)
$ stut 4 0.9 "q" $ stut "[4|2]" 0.9 "[q|h]"
$ stut' 2 "h" (|+ note (slow 4 "<[2|4] [0 -2]>")) $ stut' 2 "h" (|+ note (slow 4 "<[2|4] [0 -2]>"))
$ "coins" $ "coins"
# octave 2 -- 4=creepy # octave 2 -- 4=creepy
# gain (slow 16 $ range 0.25 0.45 saw) # gain (slow 16 $ range 0.25 0.45 saw)
) )
$ superimpose (const -- Insectes $ superimpose (const -- Insectes
$ slow 4
$ jux rev $ "insect(<1 3 4 5>,8)" $ jux rev $ "insect(<1 3 4 5>,8)"
# n (slow 3 $ "<0 1 2 3>") # n (slow 3 $ "<0 1 2 3>")
# gain (slow 2 $ range 0.4 0.6 perlin) # gain (slow 2 $ range 0.3 0.45 perlin)
# pan 0.8 # pan 0.8
) )
-- Fond diffus cosmologique $ superimpose (const -- Fond diffus cosmologique
$ slow (slow 4 "<2 4 8>") $ slow (slow 4 "<2 4 8>")
$ stut' 4 "e" (|+ note (scale "major" "[2|5]")) $ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
$ s "cosmicg:0" $ s "cosmicg:0"
# gain (slow 33 $ range 0.15 0.3 perlin) # gain (slow 33 $ range 0.15 0.25 perlin)
# speed (range 0.125 0.95 perlin) # speed (range 0.125 0.95 perlin)
# pan (range 0.4 0.6 perlin) # pan (range 0.4 0.6 perlin)
)
d8 -- FIXME bourrasque occassionnelle? -- bourrasque occassionnelle
$ jux rev $ rarely (# gain 0.25)
$ every 8 (# gain 0.7) $ jux (rev . segment 2)
$ s "space:3" $ s "space:3"
# speed 0.25 # speed (slow 2 $ range 0.15 0.5 perlin)
# gain 0.35 # pan (slow 4 $ range 0.45 0.55 perlin)
# gain 0
d10 d10
-- $ (* gain 0.75) -- $ (* gain 0.75)
$ funk_noise $ funk_noise
-- FIXME effects to add to noise? -- effects to add to noise?
# hpf (slow 6 $ range 0 1500 sine) -- # hpf (slow 6 $ range 0 1500 sine)
# lpf (slow 100 $ range 1500 20000 sine) -- # lpf (slow 100 $ range 1500 20000 sine)
live/techno/funk/grace.tidal
...@@ -8,7 +8,7 @@ do ...@@ -8,7 +8,7 @@ do
unsolo 1 -- Kick regulier degradé unsolo 1 -- Kick regulier degradé
unsolo 2 -- Cymbales gravitantes unsolo 2 -- Cymbales gravitantes
unsolo 3 -- Drumroll unsolo 3 -- Drumroll
solo 4 -- Mad Bassline discrete unsolo 4 -- Mad Bassline discrete
solo 5 -- Lead choir solo 5 -- Lead choir
solo 7 -- Claps solo 7 -- Claps
setcps (120/60/4) setcps (120/60/4)
...@@ -16,8 +16,8 @@ do ...@@ -16,8 +16,8 @@ do
d10 $ funk_noise d10 $ funk_noise
d1 -- Kick regulier degradé d1 -- Kick regulier degradé
$ whenmod 16 12 (mask "t(1,4)") -- Respire $ whenmod 16 12 (mask "t(1,4)") -- Respire
$ whenmod 16 8 ( -- Double degradé -- $ whenmod 16 8 ( -- Double degradé
sometimesBy "<0!2 0.25 [0.25 0.5]>" (fast 2 . degradeBy 0.2)) -- sometimesBy "<0!2 0.25 [0.25 0.5]>" (fast 2 . degradeBy 0.2))
$ whenmod 8 6 (# lpf 200) $ whenmod 8 6 (# lpf 200)
$ "k k k <k k*[1|2|3|4]>" $ "k k k <k k*[1|2|3|4]>"
# "[kick:5,house]" # "[kick:5,house]"
...@@ -39,9 +39,9 @@ do ...@@ -39,9 +39,9 @@ do
$ loopAt 2 $ loopAt 2
$ slice 8 ( $ slice 8 (
stack [ stack [
"0 1 2 3 4 5 6 7*<1 2 4 1>", -- TODO ','' then stack "0 1 2 3 4 5 6 7*<1 2 4 1>" -- TODO ','' then stack
"0(3,8)", -- "0(3,8)",
"0 0 0 0" -- "0 0 0 0"
] ]
) )
$ s "fbass:8" $ s "fbass:8"
...@@ -54,7 +54,6 @@ do ...@@ -54,7 +54,6 @@ do
whenmod 16 8 (|> "0*8") $ whenmod 16 8 (|> "0*8") $
"<2!4 <1 0>!4>" "<2!4 <1 0>!4>"
) )
-- $ chop "<2!16 4!4 8!8>" FIXME Better chop?
$ every' 4 3 (superimpose (# n 1) . (# begin 0)) $ every' 4 3 (superimpose (# n 1) . (# begin 0))
$ "pray" $ "pray"
# cut 3 # cut 3
......
live/techno/funk/mad_fonk.tidal
...@@ -32,7 +32,7 @@ do ...@@ -32,7 +32,7 @@ do
-- ) -- )
-- ) -- )
-- region INTRO/Run -- region INTRO/Run
-- $ slow 2 -- intro $ slow 2 -- intro
-- $ whenmod 8 6 (# silence) -- $ whenmod 8 6 (# silence)
$ "k k k k k k k <k [~ k] k*2>" $ "k k k k k k k <k [~ k] k*2>"
# "[<reverbkick!3 ~>,kick:5]" # "[<reverbkick!3 ~>,kick:5]"
...@@ -44,13 +44,13 @@ do ...@@ -44,13 +44,13 @@ do
-- region Manual snare rush -- region Manual snare rush
-- $ "~ s*4" -- $ "~ s*4"
-- $ "~ s*<1!4 2!4 4!2 8 4!4 16 2!3 [4 8] [16 32]>" -- FIXME Rework -- $ "~ s*<1!4 2!4 4!2 8 4!4 16 2!3 [4 8] [16 32]>" -- FIXME Rework
$ "~ s*<1 2 4 8 4 2 1 4 8 8 4 8 1 2 8 4>" -- FIXME Rework $ "~ s*<1 2 4 8 4 2 1 4 8 8 4 8 1 2 8 4>"
# "snare:3" # "snare:3"
# note ("<0 -1 -2 -3>") # note ("<0 -1 -2 -3>")
# gain 0.65 # gain 0.65
# pan (slow 8 $ range 0.4 0.8 sine) # pan (slow 8 $ range 0.4 0.8 sine)
d3 -- Drumroll d3 -- Drumroll
-- $ slow 8 -- OUTRO $ slow 8 -- TODO IN/OUTRO
$ fast (slow 8 "<1 [2 [2|4]] 4 [4 8]>" ) $ fast (slow 8 "<1 [2 [2|4]] 4 [4 8]>" )
$ ply "2 <4 8>" $ "drum:8" $ ply "2 <4 8>" $ "drum:8"
# gain (slow 4 $ range 0.65 0.95 saw) # gain (slow 4 $ range 0.65 0.95 saw)
...@@ -64,39 +64,39 @@ do ...@@ -64,39 +64,39 @@ do
$ slice 8 $ slice 8
( (
-- iter (slow 4 "<1 4>") -- iter (slow 4 "<1 4>")
-- run 8 -- Classique: jumpy groovy run 8 -- Classique: jumpy groovy
"<0!3 1>*2 3*2 <0 1> 4*<2 4 8>" -- Jumpy rappel -- "<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 4 0 0*2> 4 <0 1 2 3> <0 4!2>" -- Attente
-- "<0!3 <1 2>>*8" -- COME ON CRUSH -- "<0!3 <1 2>>*8" -- COME ON CRUSH
) )
$ "fbass:8" $ "fbass:8"
# legato 1 # legato 1
# crush (1.5 + "6 <5 4>") -- TODO CRUSH THIS -- # crush (1.5 + "6 <5 4>") -- TODO CRUSH THIS
# gain 0.85 # gain 0.85
# pan 0.6 # pan 0.6
d5 -- Guitare pompe d5 -- Guitare pompe
$ whenmod 64 32 ( -- TODO Renverse -- $ whenmod 64 32 ( -- TODO Renverse
someCyclesBy "<0.5!16 0.9!16>" rev -- someCyclesBy "<0.5!16 0.9!16>" rev
) -- )
-- region Guitare pompela -- region Guitare pompe
$ slice 8 (cat [ -- $ slice 8 (cat [
"0*4", -- "0*4",
"0 1 2 3", -- "0 1 2 3",
"0*4 1 3(3,8) 5", -- "0*4 1 3(3,8) 5",
"4 5 6 7", -- "4 5 6 7",
"0 7 4 7", -- "0 7 4 7",
"[0 4]*4", -- "[0 4]*4",
"7 <7 6> <3 5> <7 4>", -- "7 <7 6> <3 5> <7 4>",
"4*4 . 4*<8 16>", -- "4*4 . 4*<8 16>",
"7 0 7 0", -- "7 0 7 0",
"0*4" -- "0*4"
]) $ n 9 -- ]) $ n 9
-- region INTRO-guitar -- region INTRO-guitar
-- $ slice 8 ( -- Intro $ slice 8 ( -- Intro
-- "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]" "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
-- ) $ n 11 ) $ n 11
# "fguitar" # "fguitar"
# crush 5 -- TODO CRUSH THIS! 12 - 4 - 5 -- # crush 5 -- TODO CRUSH THIS! 12 - 4 - 5
# cut 8 # cut 8
# gain (slow 64 $ range # gain (slow 64 $ range
-- 0.7 0.9 -- 0.7 0.9
...@@ -104,12 +104,12 @@ do ...@@ -104,12 +104,12 @@ do
cosine) cosine)
# pan 0.3 # pan 0.3
d6 -- Epiano groovy d6 -- Epiano groovy
$ whenmod 32 16 (whenmod 4 2 (jux rev)) -- TODO variations once introduced -- $ whenmod 32 16 (whenmod 4 2 (jux rev)) -- TODO variations once introduced
$ slow 2 $ slow 2
-- $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS
$ slice 8 ( $ 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" -- regulier -- "0 3 2 1 0 3 <2 6> 7" -- variant
-- "0 3 2 1!5" -- repeat aigu -- "0 3 2 1!5" -- repeat aigu
-- "4!5 5 6 7*<1 2>" -- repeat end -- "4!5 5 6 7*<1 2>" -- repeat end
) )
......
live/techno/funk/pray.tidal
...@@ -6,14 +6,14 @@ do ...@@ -6,14 +6,14 @@ do
solo 2 -- Gretsch snares solo 2 -- Gretsch snares
solo 3 -- AcceleRoll solo 3 -- AcceleRoll
solo 4 -- Breakbeat solo 4 -- Breakbeat
solo 5 -- Lead choir unsolo 5 -- Lead choir
unsolo 7 -- Claps unsolo 7 -- Claps
setcps (60/60/4) setcps (60/60/4)
solo 10 -- NOISE solo 10 -- NOISE
d10 $ funk_noise d10 $ funk_noise
d1 d1
-- KICK -- KICK
$ fast "<2!6 4 2>" -- $ mask "t(11,12)" . fast "<2!6 4 2>" -- Folie
$ "k . k(<3 <5 4>>,8)" -- Le classique $ "k . k(<3 <5 4>>,8)" -- Le classique
-- $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" -- L'annonce -- $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" -- L'annonce
# "reverbkick" # "reverbkick"
...@@ -21,9 +21,9 @@ do ...@@ -21,9 +21,9 @@ do
# gain 0.75 # gain 0.75
d4 -- BREAKBEAT d4 -- BREAKBEAT
$ slice 8 ( $ slice 8 (
-- "0 4" -- Intro "0 4" -- Intro
-- "0 2 4 <4 <2 6>>" -- Intro -- "0 2 4 <4 <2 6>>" -- Intro
"0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>" -- Fulltime! -- "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>" -- Fulltime!
-- "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)" -- Laggy -- "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)" -- Laggy
-- "4*2 5 6(3,8) <[~ 7] 7?>" -- Laggy end -- "4*2 5 6(3,8) <[~ 7] 7?>" -- Laggy end
-- (fast "<4 8>" $ run 2) -- Repeat! TODO Transition grace -- (fast "<4 8>" $ run 2) -- Repeat! TODO Transition grace
...@@ -47,21 +47,29 @@ do ...@@ -47,21 +47,29 @@ do
# note ("<-2 -4 -2 0>") # note ("<-2 -4 -2 0>")
# gain 0.75 # gain 0.75
d5 -- Lead choir d5 -- Lead choir
$ "pray/4" -- TODO INTRO 2 then 4 $ "pray" -- TODO INTRO then /4
# n "<0!4 1!8>" -- # n "<0!4 1!8>"
# gain (slow 8 $ range 0.5 0.9 sine) # gain (slow 8 $ range 0.5 0.9 sine)
# cut 5 # cut 5
# hpf 100 -- |> gain 0.65 # lpf 2000 # waveloss 12.5 -- TODO INTRO WAVELOSS 65 50 40
-- |* gain 0.9 # lpf 15000 # waveloss 40 # pan "<0.75 0.25>" -- TODO INTRO WAVELOSS 65 50 40
d7 d7
$ fast 2 $ fast 2
$ whenmod 32 16 (whenmod 4 3 (ply "<2 3 [2 4] [3 2]>")) $ whenmod 32 16 (whenmod 4 3 (ply "<2 3 [2 4] [3 2]>"))
$ whenmod 16 8 (every' 4 0 (off "-0.125" id)) $ whenmod 16 8 (every' 4 0 (off "-0.125" id))
$ s "clap" $ s "clap"
# gain 0.85 # gain 0.75
# djf (slow 32 $ range 0.5 0.85 sine) # djf (slow 32 $ range 0.5 0.85 sine)
# room 0.5 # size 0.4 # dry 0.95 # room 0.5 # size 0.4 # dry 0.95
resetCycles
-- SANDBOX
d6 -- Transipiano d6 -- Transipiano
$ slice 4 (cat [ $ slice 4 (cat [
......
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