Skip to content

T
Tidal
Unverified Commit 18e42099 by PLN (Algolia)
Options

Prepare for Future FUNK

parent cded2e36
Showing with 302 additions and 124 deletions
live/bdmania.tidal
once $ s "bd"
d1 -- kick
......@@ -14,10 +15,6 @@ $ s "bd(5,8)"
# note "<50 <55 <60 65>>>"
d3 -- vibration montante!
$ every' 16 12 (# gain 0)
$ every' 16 13 (# gain 0)
$ every' 16 14 (# gain 0)
$ every' 16 15 (# gain (0.5 + saw / 2))
$ sometimesBy 0.01 (# crush 4)
$ every 4 (rev)
$ sound "bd"
......@@ -26,7 +23,7 @@ $ sound "bd"
segment 100
$ range 1 3 saw
)
# gain 0.5
# gain 0.65
d8 -- helico
$ every' 4 3 (off 0.125 id)
......
live/techno/accel.tidal
......@@ -9,9 +9,9 @@ do
solo 2 -- snare
solo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
solo 6 -- clap
solo 7 -- synth
unsolo 5 -- siren
unsolo 6 -- clap
unsolo 7 -- synth
-- let mKick = "<1!32 0!15 [0 1] 1!64 0.9!4 0.8!4 0.7!4 0.6!4>"
let gKick = 0.75 -- /128 On off semi-onon fadeout
let gSnare = 0.65
......
live/techno/funk/funk_n_bass.tidal 0 → 100644
resetCycles
do
-- let fGlob = 0.3 -- TODO: Filtre global FIXME: if defined?
let mKick = "<f!8 t!8 f!7 t>"
let mKick = "t"
let mDrum = "<f!4 t!4>"
let mRoll = "<f!8 t!8>"
let mBass = "t"
let mPiano = "t f"
solo 1 -- Kick DNB/TECHNO
solo 2 -- Drums DNB-compatibles
solo 3 -- Drumroll masqué
solo 4 -- Basse électrique
unsolo 5 -- Piano FIXME Too noisy
unsolo 6 -- Comete
unsolo 8 -- Un bon sandwich
setcps (174/60/4)
d1 -- Kick
$ mask mKick
-- region TECHNOOO
-- $ fast 2
$ whenmod 16 12 (slow 2)
$ "k k k <k!5 k*2 ~ [~ k]>"
# "[kick:5,house]"
-- region DNB
-- $ "k ~ ~ ~ ~ k ~ ~"
-- # "kick" # note "-6"
# gain 0.75
-- # djf fGlob
d2
$ mask mDrum
$ "~ s*<1!6 2 [4 2]> . ~ s*<1!3 2 1!2 2!2 3 2 4>"
# "snare"
# n "[11,12]" # note (
"<0 0 -2!2 -4 -6 -7 -12>" -- snare aggrave
)
# gain 0.7
-- # djf fGlob
d3 -- Drumroll masqué
$ mask mRoll
$ fast "8 . <8 8 4 16>"
$ "drum:8"
# gain (slow 8 $ range 0.8 0.95 saw)
-- # djf fGlob
d4 -- Bass electrisée
$ mask mBass
$ whenmod 64 32 (slow 2)
$ off "q" (|+ note 12)
$ whenmod 32 16 rev
$ slice 8 (
run 8 -- classique
-- (fast 2 $ run 4) -- loop begin
-- "0*2 1*2"
)
$ "fbass:10"
# gain (slow 16 $ range 0.9 0.8 sine)
-- # crush (slow 16 $ range 9 4 sine) -- TODO Crush
# cut 4
-- # djf fGlob
d8 -- Sandwich
$ slice 6 (
"2*<0 <2 1>>"
)
$ "macron:7"
# waveloss 25
# cut 5
# gain 0.7
# room 0.6
-- # djf fGlob
d5
$ whenmod 16 8 (slow 2)
$ slice 8 (
cat [
run 8,
"[0,2*8]", -- attente noisée
7 - run 8, -- rev
""
]
)
$ "fpiano:12"
# pan 1
# cut 5
-- # djf fGlob
# gain 0.85
d6 -- Comete
$ slice 8 "1!7 4"
$ s "methbass:3" # cut 6
# gain 0.55
-- # djf fGlob
-- region Nass n Bassline
d1 $ "jazz*2" # gain 0.8
d3
$ chop 8
$ note ("<c6'maj!3 c6'min>")
# s "trump" # speed (1/12)
live/techno/funk/grace.tidal 0 → 100644
-- region Touchés par la grace: techno-gospel
-- Tags: Techno, gospel, funk
-- Ready: 6/10
resetCycles
-- endregion
do
solo 1 -- Kick chaloupe
solo 3 -- AcceleRoll
solo 4 -- HH
solo 5 -- Lead choir
solo 7 -- Claps
unsolo 8 -- Bourrasque FIXME REWORK
unsolo 9 -- Glitchs FIXME REWORK
setcps (120/60/4)
d1 -- Kick regulier degradé
-- $ whenmod 16 12 (mask "t(1,4)")
$ 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]>"
# "[kick:5,house]"
# note 2
# gain 0.55
d7
$ jux (# lpf 2000)
$ 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"
# note ("<0!<3 2> -4 -8 <[-8 -4] -12>>")
# room 0.2 # sz 0.4
# pan (slow 16 $ range 0.8 0.4 sine)
# gain (slow 8 $ range 0.6 0.45 sine)
d5 -- Chopped choir
$ slice 16 "<2!4 1!4>"
-- $ chop "<2!16 4!4 8!8>" FIXME Better chop?
$ every' 4 3 (superimpose (# n 1) . (# begin 0))
$ "pray"
# cut 3
# pan "0.3 0.7"
# gain 0.65
# begin "<0.1 0.5>"
d8 -- bourrasque
$ jux rev
$ every 8 (# gain 0.7)
$ s "space:3"
# speed 0.25
# gain 0.35
d9 -- Glitches space cowboy
$ juxBy 0.9 (# waveloss 25)
$ whenmod 8 4 (iter 4)
$ n "7 2*<1 2 4>" # "cosmicg" # gain 0.35
live/techno/funk/mad_fonk.tidal
-- Mad Funk: joyeuse intro techno-funk, partant run 160bpm
-- Tags: Techno, run, funk
-- Ready: 6/10
-- region Mad Funk: joyeuse intro techno-funk, partant run 160bpm
-- Tags: Techno, run, funk, crushade
-- Ready: 8/10
-- Intro slow 2 beat
-- Outro masks
resetCycles
-- endregion
do
unsolo 1 -- Kick
unsolo 2 -- Snare roll/rush
solo 1 -- Kick
solo 2 -- Snare roll/rush
unsolo 3 -- Drumroll
unsolo 4 -- Bassline
solo 5 -- Guitare intro/pompe
solo 4 -- Bassline
unsolo 5 -- Guitare intro/pompe
unsolo 6 -- Epiano groovy
setcps (80/60/4)
d1
-- $ mask "t(1,8)"
$ every' 8 7 (# lpf 200)
-- Pauses Hip-hop
$ whenmod 8 6 (juxBy 0.5 rev)
$ "k*2 . k(<3!3 <5 8>>,8)"
-- INTRO/Run
-- $ slow 2 -- intro
-- $ whenmod 8 6 (# silence)
-- $ whenmod 16 8 ( -- HARDKICK!
-- superimpose ((# "hardkick:4") . (|* gain 0.75))
-- region Pauses Hip-hop
-- $ whenmod 8 6 (juxBy 0.5 rev)
-- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)"
-- region hardkick
-- $ whenmod 16 0 ( -- HARDKICK!
-- superimpose ((# "hardkick:4")) . (|* gain 0.75)
-- )
-- $ "k k k k k k k? <k [~ k] k*2>"
-- region INTRO/Run
-- $ slow 2 -- intro
$ whenmod 8 6 (# silence)
$ "k k k k k k k? <k [~ k] k*2>"
# "[<reverbkick!3 ~>,kick:5]"
# gain 0.75
# pan 0.45
d2
$ someCycles (hurry 2)
$ jux rev
-- region Manual snare rush
-- $ "~ s*4"
$ "~ s*<1!4 2!4 4!2 8 2 4!4 16 2!3 [4 8] [16 32]>" -- TODO Rework
$ "~ s*<1!4 2!4 4!2 8 2 4!4 16 2!3 [4 8] [16 32]>" -- FIXME Rework
# "snare:3"
# note ("<0 -1 -2 -3>")
# gain 0.65
# pan (slow 8 $ sine)
d3
d3 -- Drumroll
-- $ slow 8 -- OUTRO
$ fast (slow 8 "<1 [2 [2|4]] 4 [4 8]>" )
$ ply "2 <4 8>" $ "drum:8"
# gain 0.9
# gain (slow 4 $ range 0.65 0.95 saw)
# pan (slow 8 $ range 0.2 0.6 cosine)
d4 -- Bassline
$ juxBy 0.5 id
......@@ -52,55 +55,62 @@ do
sometimesBy "0 1" rev)
$ slice 8
(
-- run 8
run 8 -- Classique: jumpy groovy
-- iter (slow 4 "<1 4>") $
-- "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>"
"<0 4 0 0*2> 4 <0 1 2 3> <0 4!2>"
-- "<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
)
$ "fbass:8"
# legato 1
-- # crush "6 <5 4>"
# gain (slow 64 $
range 0.75 0.95 sine)
-- # crush (0 + "6 <5 4>") TODO CRUSH THIS
# gain (slow 64 $ range 0.6 0.8 sine)
# pan 0.6
d5 -- Guitare pompe
$ whenmod 64 32 (
sometimesBy "<0.5!16 0.9!16>" rev
)
-- $ whenmod 64 32 (
-- sometimesBy "<0.5!16 0.9!16>" rev
-- )
-- region Guitare pompe
$ slice 8 (cat [
"0*4",
"0 1 2 3",
"0*4 1 3(3,8) 5",
"4 5 6 7"
"4 5 6 7",
"0 7 ~ 7",
"0*4",
"7 <7 6> <3 5> <7 4>",
"4*4 . 4*<8 16>",
"7 0 7 0",
"0*4"
]) $ n 9
-- region INTRO-guitar
-- $ slice 8 ( -- Intro
-- "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
-- ) $ n 11
# "fguitar"
-- # crush "6 5" -- TODO CRUSH THIS!
-- # crush "8 4" -- TODO CRUSH THIS!
# cut 8
# gain (slow 64 $
range 0.7 0.9 cosine)
# pan 0.3
d6 -- Epiano groovy
$ whenmod 32 16 (whenmod 4 2 rev)
$ slow 2
$ mask "f(1,2,1)" -- TODO INTRO MASK THIS
-- $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS
$ slice 8 (
-- "0 3 2 1!5" -- repeat aigu
"0 3 2 1 4 5 6 7*<1 2>" -- regulier
-- "4!5 5 6 7*<1 2>" -- regulier
-- "0 3 2 1 4 5 6 7*<1 2>" -- regulier
"0 3 2 1!5" -- repeat aigu
-- "4!5 5 6 7*<1 2>" -- repeat end
)
$ s "fepiano"
# n (slow 4 "<24 25>")
# gain 0.75
# gain 0.7
# cut 6
# pan 0.7
9 -- ritournelle
10 -- pause fin
11 -- montee finale?
once $ s "fepiano:24" # gain 0.95 # cut 19
once $ s "fepiano:0" # gain 0.95 # cut 19
live/techno/funk/pray.tidal
-- Pray the Funk: choeurs laudatifs
-- Tags: Breakbeat, gospel, funk
-- Ready: 6/10
do
solo 1 -- Kick chaloupe
solo 2 -- Gretsch snares
solo 3 -- AcceleRoll
solo 4 -- Breakbeat
solo 5 -- Lead choir
solo 6 -- Bassline FIXME Rework
solo 7 -- Claps
setcps (60/60/4)
d1
-- KICK
$ fast 2 $ "k*<1!4 2!4> . k(<1 3 5 5>,8,<0!3 2>)" # "reverbkick"
# gain (slow 16 $ range 0.6 0.8 isaw)
d4
$ slice 8 (
-- (fast "<4 8>" $ run 2) -- Repeat!
-- run 8 -- Fulltime!
-- "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)"
"4 5 6 7"
)
$ loopAt 1
$ "break:1"
# gain (slow 16 $ range 0.65 0.9 saw)
# cut 4
d2 -- Snares gretscha
$ someCycles (
(whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw)))
. hurry 2
. (|* gain 0.9)
)
$ fast 2
$ n ("6(<4 <3 5>>,8)")
# "gretsch" # gain (slow 16 $ range 0.6 0.8 saw)
d3
$ someCycles (fast "1 . 2 4")
$ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]" # gain 0.75
d5 -- Lead choir
$ "pray/4"
# n "<0!4 1!8>"
# gain (slow 8 $ range 0.5 0.9 sine)
# cut 5
# hpf 100
d7
$ fast 2
$ whenmod 4 3 (ply "<2 3 [2 4] [3 2]>")
$ every' 4 0 (off "-0.125" id)
$ s "clap"
# gain 0.85
# djf (slow 32 $ sine)
# room 0.5 # size 0.4 # dry 0.95
d6 -- Bassline (FIXME improve sonorite/variations)
$ superimpose (
arp "<up pinkyup>" . (# octave 6)
solo 1 -- Kick chaloupe
solo 2 -- Gretsch snares
solo 3 -- AcceleRoll
solo 4 -- Breakbeat
unsolo 5 -- Lead choir
unsolo 6 -- Bassline FIXME Rework
unsolo 7 -- Claps
setcps (60/60/4)
d1
-- KICK
$ fast 2 $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)"
# "reverbkick"
# lpf 1500
# gain 0.65
d4 -- BREAKBEAT
$ slice 8 (
-- "0 4" -- Intro
-- "0 2 4 <4 <2 6>>" -- Intro
-- run 8 -- Fulltime!
(fast "<4 8>" $ run 2) -- Repeat! TODO Transition grace
-- "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)" -- Laggy
-- "4 5 6 7"
)
$ loopAt 1
$ "break:1"
# gain (slow 16 $ range 0.65 0.85 saw)
# cut 4
d2 -- Snares gretscha
$ someCycles (
(whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw)))
. hurry 2
. (|* gain 0.9)
)
$ note (
("[a2 <g2 <b2 e3>>]!2") + "[0,4,7]"
)
# "bassWarsaw"
# pan 0.4
# gain 0.9
$ fast 2
$ n ("6(<4 <3 5>>,8)")
# "gretsch" # gain (slow 16 $ range 0.6 0.8 saw)
d3
$ someCycles (fast "1 . 2 4")
$ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]"
# note ("<-2 -4 -2 0>")
# gain 0.75
d5 -- Lead choir
$ "pray/4"
# n "<0!4 1!8>"
# gain (slow 8 $ range 0.5 0.9 sine)
# cut 5
# hpf 100
d7
$ fast 2
$ whenmod 32 16 (whenmod 4 3 (ply "<2 3 [2 4] [3 2]>"))
$ whenmod 16 8 (every' 4 0 (off "-0.125" id))
$ s "clap"
# gain 0.85
# djf (slow 32 $ range 0.5 0.85 sine)
# room 0.5 # size 0.4 # dry 0.95
d6 -- Bassline (FIXME improve sonorite/variations)
$ superimpose (
arp "<up pinkyup>" . (# octave 6)
. (|* gain 0.9)
)
$ note (
("[a2 <g2 <b2 e3>>]!2") + "[0,4,7]"
)
# "bassWarsaw"
# pan 0.4
# gain 0.9
notes.md
......@@ -266,6 +266,28 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
<!-- region Funk samples listing
<!-- region Bass
8 BassA_80D-01.wav
9 BassA_80D-02.wav
10 BassA_80D-03.wav
11 BassA_80D-04.wav
40 BassC_80C-01.wav
41 BassC_80C-02.wav
42 BassC_80C-03.wav
43 BassC_80C-04.wav
56 BassD_80C-01.wav
57 BassD_80C-02.wav
58 BassD_80C-03.wav
59 BassD_80C-04.wav
24 BassB_80E-01.wav
25 BassB_80E-02.wav
26 BassB_80E-03.wav
27 BassB_80E-04.wav
60 BassD_90A-01.wav
61 BassD_90A-02.wav
62 BassD_90A-03.wav
63 BassD_90A-04.wav
0 BassA_110E-01.wav
1 BassA_110E-02.wav
2 BassA_110E-03.wav
......@@ -287,10 +309,7 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
5 BassA_120G-02.wav
6 BassA_120G-03.wav
7 BassA_120G-04.wav
8 BassA_80D-01.wav
9 BassA_80D-02.wav
10 BassA_80D-03.wav
11 BassA_80D-04.wav
12 BassA_90C-01.wav
13 BassA_90C-02.wav
14 BassA_90C-03.wav
......@@ -299,10 +318,6 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
21 BassB_120A-02.wav
22 BassB_120A-03.wav
23 BassB_120A-04.wav
24 BassB_80E-01.wav
25 BassB_80E-02.wav
26 BassB_80E-03.wav
27 BassB_80E-04.wav
28 BassB_90B-01.wav
29 BassB_90B-02.wav
30 BassB_90B-03.wav
......@@ -311,10 +326,7 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
37 BassC_120E-02.wav
38 BassC_120E-03.wav
39 BassC_120E-04.wav
40 BassC_80C-01.wav
41 BassC_80C-02.wav
42 BassC_80C-03.wav
43 BassC_80C-04.wav
44 BassC_90D-01.wav
45 BassC_90D-02.wav
46 BassC_90D-03.wav
......@@ -323,14 +335,6 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
53 BassD_120G-02.wav
54 BassD_120G-03.wav
55 BassD_120G-04.wav
56 BassD_80C-01.wav
57 BassD_80C-02.wav
58 BassD_80C-03.wav
59 BassD_80C-04.wav
60 BassD_90A-01.wav
61 BassD_90A-02.wav
62 BassD_90A-03.wav
63 BassD_90A-04.wav
endregion -->
<!-- region Guitar
......
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