Skip to content

T
Tidal
Unverified Commit ca20b669 by PLN (Algolia)
Options

feat: Future Funk Fragments repet

parent 18e42099
Showing with 199 additions and 77 deletions
live/techno/funk/Noise.tidal 0 → 100644
module Funk where
funk_noise = superimpose (const -- Bris de vers spatial
$ degradeBy (slow 4 "<0.75 0.5 0.25 0.1>")
$ someCycles (# speed 0.5)
$ stut 4 0.9 "q"
$ stut' 2 "h" (|+ note (slow 4 "<[2|4] [0 -2]>"))
$ "coins"
# octave 2 -- 4=creepy
# gain (slow 16 $ range 0.25 0.45 saw)
)
$ superimpose (const -- Insectes
$ jux rev $ "insect(<1 3 4 5>,8)"
# n (slow 3 $ "<0 1 2 3>")
# gain (slow 2 $ range 0.4 0.6 perlin)
# pan 0.8
)
-- Fond diffus cosmologique
$ slow (slow 4 "<2 4 8>")
$ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
$ s "cosmicg:0"
# gain (slow 33 $ range 0.15 0.3 perlin)
# speed (range 0.125 0.95 perlin)
# pan (range 0.4 0.6 perlin)
d8 -- FIXME bourrasque occassionnelle?
$ jux rev
$ every 8 (# gain 0.7)
$ s "space:3"
# speed 0.25
# gain 0.35
d10
-- $ (* gain 0.75)
$ funk_noise
-- FIXME effects to add to noise?
# hpf (slow 6 $ range 0 1500 sine)
# lpf (slow 100 $ range 1500 20000 sine)
live/techno/funk/grace.tidal
-- region Touchés par la grace: techno-gospel -- region Touchés par la grace: techno-gospel
-- Tags: Techno, gospel, funk -- Tags: Techno, gospel, funk
-- Ready: 6/10 -- Ready: 8.5/10
resetCycles resetCycles
-- endregion -- endregion
do do
solo 1 -- Kick chaloupe unsolo 1 -- Kick regulier degradé
solo 3 -- AcceleRoll unsolo 2 -- Cymbales gravitantes
solo 4 -- HH unsolo 3 -- Drumroll
solo 4 -- Mad Bassline discrete
solo 5 -- Lead choir solo 5 -- Lead choir
solo 7 -- Claps solo 7 -- Claps
unsolo 8 -- Bourrasque FIXME REWORK
unsolo 9 -- Glitchs FIXME REWORK
setcps (120/60/4) setcps (120/60/4)
solo 10 -- NOISE
d10 $ funk_noise
d1 -- Kick regulier degradé d1 -- Kick regulier degradé
-- $ whenmod 16 12 (mask "t(1,4)") $ whenmod 16 12 (mask "t(1,4)") -- Respire
$ whenmod 16 8 ( -- Double degradé
sometimesBy "<0!2 0.25 [0.25 0.5]>" (fast 2 . degradeBy 0.2))
$ whenmod 8 6 (# lpf 200) $ whenmod 8 6 (# lpf 200)
-- $ sometimesBy "<0!2 0.25 [0.25 0.5]>" (fast 2 . degradeBy 0.2)
$ "k k k <k k*[1|2|3|4]>" $ "k k k <k k*[1|2|3|4]>"
# "[kick:5,house]" # "[kick:5,house]"
# note 2 # note 2
# gain 0.55 # gain 0.6
d7 d2 -- Cymbales gravitantes
$ jux (# lpf 2000) $ whenmod 16 8 (jux (rev . (hurry "<2!3 0.5>")))
$ note "<-4!3 -8>" # "clap"
# hpf 2000
# gain 0.9
d3
$ fast "<4!4 8!2 16 [32 4]>"
$ "drum:8"
# pan (slow 16 $ range 0.9 0.4 cosine)
# gain (slow 8 $ range 0.8 0.95 sine)
d4
$ jux (rev . (hurry "<2!3 0.5>"))
$ degradeBy "0 <0.5!6 0.25!2>!7" $ "ho:1*4 hc:3*4" $ degradeBy "0 <0.5!6 0.25!2>!7" $ "ho:1*4 hc:3*4"
# note ("<0!<3 2> -4 -8 <[-8 -4] -12>>") # note ("<0!<3 2> -4 -8 <[-8 -4] -12>>")
# room 0.2 # sz 0.4 # room 0.2 # sz 0.4
# pan (slow 16 $ range 0.8 0.4 sine) # pan (slow 16 $ range 0.8 0.4 sine)
# gain (slow 8 $ range 0.6 0.45 sine) # gain (slow 8 $ range 0.45 0.55 sine)
d3 -- Drumroll ma foi bien classique
$ fast "<4 8 [8 . 4 8] 8 <16 [16 4]>>"
$ "dr"
# pan (slow 16 $ range 0.9 0.4 cosine)
# gain (slow 8 $ range 0.65 0.8 sine)
d4 -- Bassline "maybe mad smirk smirk"
$ loopAt 2
$ slice 8 (
stack [
"0 1 2 3 4 5 6 7*<1 2 4 1>", -- TODO ','' then stack
"0(3,8)",
"0 0 0 0"
]
)
$ s "fbass:8"
# gain 0.9
# cut 6
d5 -- Chopped choir d5 -- Chopped choir
$ slice 16 "<2!4 1!4>" $ whenmod 32 16 (slow 4)
$ slice 16 (
whenmod 16 12 (|> "0*4") $
whenmod 16 8 (|> "0*8") $
"<2!4 <1 0>!4>"
)
-- $ chop "<2!16 4!4 8!8>" FIXME Better chop? -- $ 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"
...@@ -47,13 +61,12 @@ do ...@@ -47,13 +61,12 @@ do
# pan "0.3 0.7" # pan "0.3 0.7"
# gain 0.65 # gain 0.65
# begin "<0.1 0.5>" # begin "<0.1 0.5>"
d8 -- bourrasque d7 -- Claps répartis
$ jux rev $ jux (# lpf 2000)
$ every 8 (# gain 0.7) $ note "<-4!3 -8>" # "clap"
$ s "space:3" # hpf 2000
# speed 0.25 # gain (range 0.65 0.85 perlin)
# gain 0.35 # pan (range 0.3 0.7 perlin)
d9 -- Glitches space cowboy
$ juxBy 0.9 (# waveloss 25)
$ whenmod 8 4 (iter 4) once $ s "fbass:10" # gain 0.8
$ n "7 2*<1 2 4>" # "cosmicg" # gain 0.35
live/techno/funk/mad_fonk.tidal
-- region Mad Funk: joyeuse intro techno-funk, partant run 160bpm -- region Mad Funk: joyeuse intro techno-funk, partant run 160bpm
-- Tags: Techno, run, funk, crushade -- Tags: Techno, run, funk, crushade
-- Ready: 8/10 -- Ready: 9.5/10
-- Intro slow 2 beat
-- Outro masks
resetCycles resetCycles
-- endregion -- endregion
do do
solo 1 -- Kick solo 1 -- Kick
solo 2 -- Snare roll/rush solo 2 -- Snare roll/rush
unsolo 3 -- Drumroll solo 3 -- Drumroll
solo 4 -- Bassline solo 4 -- Bassline
unsolo 5 -- Guitare intro/pompe solo 5 -- Guitare intro/pompe
unsolo 6 -- Epiano groovy solo 6 -- Epiano groovy
setcps (80/60/4) solo 7 -- Claps from grace
let bpm = 80 -- Que tu crois!
setcps (bpm/60/4)
solo 10 -- NOISES
d10 $ funk_noise
d1 d1
-- $ mask "t(1,8)"
$ every' 8 7 (# lpf 200) $ every' 8 7 (# lpf 200)
-- region Pauses Hip-hop -- region Pauses Hip-hop
-- $ whenmod 8 6 (juxBy 0.5 rev) $ whenmod 8 6 (juxBy 0.5 rev)
-- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- $ "k . k(<3 <5 4>>,8)" -- Le simple
-- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité
-- region hardkick -- region hardkick
-- $ whenmod 16 0 ( -- HARDKICK! -- $ whenmod 32 16 (
-- superimpose ((# "hardkick:4")) . (|* gain 0.75) -- superimpose (
-- (# "hardkick:4")
-- . (sometimes (stut 2 0.8 "s"))
-- . (# legato 0.9)
-- . (|* gain 0.65)
-- )
-- ) -- )
-- 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]"
# gain 0.75 # gain 0.75
# pan 0.45 # pan 0.45
d2 d2
$ someCycles (hurry 2) $ someCycles (hurry 2)
$ jux rev $ juxBy 0.75 rev
-- region Manual snare rush -- region Manual snare rush
-- $ "~ s*4" -- $ "~ s*4"
$ "~ s*<1!4 2!4 4!2 8 2 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
# "snare:3" # "snare:3"
# note ("<0 -1 -2 -3>") # note ("<0 -1 -2 -3>")
# gain 0.65 # gain 0.65
# pan (slow 8 $ sine) # pan (slow 8 $ range 0.4 0.8 sine)
d3 -- Drumroll d3 -- Drumroll
-- $ slow 8 -- OUTRO -- $ slow 8 -- OUTRO
$ fast (slow 8 "<1 [2 [2|4]] 4 [4 8]>" ) $ fast (slow 8 "<1 [2 [2|4]] 4 [4 8]>" )
...@@ -55,29 +63,29 @@ do ...@@ -55,29 +63,29 @@ do
sometimesBy "0 1" rev) sometimesBy "0 1" rev)
$ slice 8 $ slice 8
( (
run 8 -- Classique: jumpy groovy -- iter (slow 4 "<1 4>")
-- iter (slow 4 "<1 4>") $ -- 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 (0 + "6 <5 4>") TODO CRUSH THIS # crush (1.5 + "6 <5 4>") -- TODO CRUSH THIS
# gain (slow 64 $ range 0.6 0.8 sine) # gain 0.85
# pan 0.6 # pan 0.6
d5 -- Guitare pompe d5 -- Guitare pompe
-- $ whenmod 64 32 ( $ whenmod 64 32 ( -- TODO Renverse
-- sometimesBy "<0.5!16 0.9!16>" rev someCyclesBy "<0.5!16 0.9!16>" rev
-- ) )
-- region Guitare pompe -- region Guitare pompela
$ 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 ~ 7", "0 7 4 7",
"0*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",
...@@ -88,22 +96,25 @@ do ...@@ -88,22 +96,25 @@ do
-- "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 "8 4" -- TODO CRUSH THIS! # crush 5 -- TODO CRUSH THIS! 12 - 4 - 5
# cut 8 # cut 8
# gain (slow 64 $ # gain (slow 64 $ range
range 0.7 0.9 cosine) -- 0.7 0.9
0.6 0.8
cosine)
# pan 0.3 # pan 0.3
d6 -- Epiano groovy d6 -- Epiano groovy
$ whenmod 32 16 (whenmod 4 2 rev) $ 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!5" -- repeat aigu "0 3 2 1 0 3 <2 6> 7" -- regulier
-- "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
) )
$ s "fepiano" $ s "fepiano"
# n (slow 4 "<24 25>") # n (slow 8 "<24 25>")
# gain 0.7 # gain 0.7
# cut 6 # cut 6
# pan 0.7 # pan 0.7
...@@ -114,3 +125,5 @@ do ...@@ -114,3 +125,5 @@ do
11 -- montee finale? 11 -- montee finale?
once $ s "fepiano:0" # gain 0.95 # cut 19 once $ s "fepiano:0" # gain 0.95 # cut 19
solo 10
live/techno/funk/pray.tidal
-- Pray the Funk: choeurs laudatifs -- Pray the Funk: choeurs laudatifs
-- Tags: Breakbeat, gospel, funk -- Tags: Breakbeat, gospel, funk
-- Ready: 6/10 -- Ready: 8.5/10
do do
solo 1 -- Kick chaloupe solo 1 -- Kick chaloupe
solo 2 -- Gretsch snares solo 2 -- Gretsch snares
solo 3 -- AcceleRoll solo 3 -- AcceleRoll
solo 4 -- Breakbeat solo 4 -- Breakbeat
unsolo 5 -- Lead choir solo 5 -- Lead choir
unsolo 6 -- Bassline FIXME Rework
unsolo 7 -- Claps unsolo 7 -- Claps
setcps (60/60/4) setcps (60/60/4)
solo 10 -- NOISE
d10 $ funk_noise
d1 d1
-- KICK -- KICK
$ fast 2 $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" $ fast "<2!6 4 2>"
$ "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
# "reverbkick" # "reverbkick"
# lpf 1500 # lpf 1500
# gain 0.65 # 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
-- run 8 -- Fulltime! "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>" -- Fulltime!
(fast "<4 8>" $ run 2) -- Repeat! TODO Transition grace
-- "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 5 6 7" -- "4*2 5 6(3,8) <[~ 7] 7?>" -- Laggy end
-- (fast "<4 8>" $ run 2) -- Repeat! TODO Transition grace
) )
$ loopAt 1 $ loopAt 1
$ "break:1" $ "break:1"
...@@ -45,11 +47,12 @@ do ...@@ -45,11 +47,12 @@ 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" $ "pray/4" -- TODO INTRO 2 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 # hpf 100
-- |* 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]>"))
...@@ -59,6 +62,14 @@ do ...@@ -59,6 +62,14 @@ do
# 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
d6 -- Transipiano
$ slice 4 (cat [
-- "2*4 3*2 . 0*2 1",
"0!2 ~ 3 0!2 ~ 3"
])
$ s "fpiano:6" # cut 6 # gain "<0.5 0.55 0.6 0.65>"
d6 -- Bassline (FIXME improve sonorite/variations) d6 -- Bassline (FIXME improve sonorite/variations)
$ superimpose ( $ superimpose (
arp "<up pinkyup>" . (# octave 6) arp "<up pinkyup>" . (# octave 6)
......
live/techno/funk/readme.md 0 → 100644
# FUTURE FUNK FRAGMENTS
> From the edges of the desert,
> lost broken tapes reveal data
## Pray
Intro waveloss + Break
Puis beat ;)
## Grace
- Transition solo/downtempo
- IN 4/5/7 bass/choir/claps
- OUT 1/5/7
- CPS 120->80
## Mad Fonk
> Prends ton temps
> profite des pauses hip-hopital
> crushe tranquillement
> Amuse toi avec les snares
> Varie basse et guitare
> Parcimonieux piano
> Kick
### Intro
-- Intro bass-drumroll-snare-BIM KICK
-- Guitare intro, puis pompe commentée
-- Guitare arrive
### CRUSH SCENE
d4 crushee progressivement
d1 qui se fait attendre
d2 qui build-up
d6 interdit
- Transition decrush solo, puis d6
### Mad Piano
### Outro: fepiano
output/Funk_DesertChoir3.png 0 → 100644
Method Not Allowed
\ No newline at end of file
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