Up: stupefaction+friends

parent dcb892fb
# Coop
-- Stupefaction
# Work in progress
## Worksheet
......@@ -15,6 +19,10 @@ Beats.tidal: various background beats, hip/techno
-- Kumai nights: Techno kawai nocturne
### Nova
- Funk angel frappe: techno dark frappe?
## ARDOUR
- HarpsiDub: minidub + harpsichord
- BAILAR: Marcia danse pour moi! Accompagne Clavinet bass ou lead
......@@ -30,10 +38,13 @@ Beats.tidal: various background beats, hip/techno
## Prod
<!-- region TODO: Record! -->
Invoque ete
Epilog!
<!-- endregion -->
- Tired Funk: Nice
- Solitude hivernale: cool melancolic hip
- Break britafuninnique: boucle hip hop breatbeat piano attend un lead
......@@ -64,7 +75,7 @@ La voix de l'Ordre: Monotonal drone <> breakbeat
-- Danse des Sirenes [minibeat]
-- ElectricFunk: Electric feel + funk epiano/clavinet
-- ElectricFunk: Electric feel + funk epiano/clavinet
### Techno 4 Temps, 4 Stems:
......@@ -86,6 +97,7 @@ La voix de l'Ordre: Monotonal drone <> breakbeat
## Remix
- Kanye Fly: nombreuses tentatives
- Stup: ptits bouts d'trucs
# Somewhat complete
......
......@@ -32,7 +32,7 @@ setcps (135/4/60)
-- TODO: Voice split pan, lead stronger than side, fix aigus chorus2
-- TODO: Claps: could be more "spread manual single-time clap" FIXME check masks
do
resetCycles -- FIXME: Not looping, bass out of sync
-- resetCycles -- FIXME: Not looping, bass out of sync
let bass1 = "5 ~ ~ 5 8 5 ~ 5"
let bass2 = "~ 5 ~ 5 8 5 3 ~"
let bass5 = "8 ~ ~ 8 11 8 ~ 8"
......@@ -78,7 +78,7 @@ d3 -- Bassline: melodie cut sur la fin du verse
])
# "bass3"
# cut 3
# gain 0.75
# gain 0.7
d7 -- Claps
$ mask "t!3 <t!3 f>"
$ mask "<f!15 t t!24 f!4 t!6 t!24 f!4 t!6 f!4 t!6>" -- Orchestration
......@@ -225,7 +225,7 @@ d6 -- synth Chorus
]) # "moogBass"
# release 0.8
# legato 1.5
# gain 0.75
# gain 0.7
once $ note ("d") # "kurt:7" # gain 0.8
......
resetCycles
setcps (90/60/4)
do
let chorus = pF "chorus"
d1
$ (off "e" (mask "<t f>" . (# "hh27") . ( # n "[8,16]") . (# cut 12)))
$ superimpose (
(# "reverbkick")
. (|* gain 0.75)
. (# lpf 4000)
. (# cut 11)
)
$ "<k [k <~ k> ~ k]> ~"
# "808bd:1" # gain 1.2
# release "[0.7 2] ~"
# cut 1
d2
$ "~ . s <~ s [~ s*2] s*[4 [<4 2> 4]]>"
# "snare"
# n "[2,3]"
# gain 0.8
d3
$ whenmod 8 6 (fast "<2 [2 4]>")
$ "dr*8" # gain 0.6
d4
$ superimpose ((|- note 12) . (# cut 41))
-- $ degradeBy ("0 1!7" * (slow 32 $ range 1 0.8 sine))
$ mask "t <f t f> [t|f]"
$ note (4 + -- offset en mi
scale "major" ( -- gamme choisie
"[0 1 2 3] [2 3]" -- arpège
+ "<0 1 2 [3 4]>" -- progression montée
)
) # "moogBass"
# cutoff 1000
# chorus 0.25
# pan 0.9
# legato 2
# room 0.5 # sz 0.6
# cut 4
# gain (slow 16 "<0.55 0.7>")
d5
$ superimpose (# crush 6)
$ note (4 + -- offset en mi
scale "major" ( -- gamme choisie
"<0 0(<3 5>,8)> [~ [1 2] [2] <~ 2>]" -- arpège
+ "0 <0!3 2>" -- spread
+ "<0 1 2 [3 [0,4]]>" -- progression
)
) # "[bassWarsaw]"
# voice 0.1
# octave 3
# gain 0.7
# pan 0.2
# room 0.8 # sz 0.9 # dry 1
d9
$ whenmod 8 4 (juxBy 0.5 rev)
$ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
$ "hh:3"
# speed (segment 16 $ fast 2 $ range 0.25 1.2 (perlin + (slow 8 $ sine)))
# gain (slow 8 $ range 0.6 1.2 saw)
-- breaks
-- bourrasque
$ every 16 (jux rev) -- echo
$ every 8 (# gain 0.9)
$ s "space:3"
# speed 0.25
# gain 0.7
resetCycles
once $ "daft:1"
do
setcps (120/60/4)
let gHPF = (# hpf (max 0 (slow 128 $ range 100 "-100" cosine)) )
......@@ -66,7 +68,7 @@ d5 $ g -- Choir
# pan 0.6
# gain 0.48
d6 $ g -- Bassline arps
$ mask "<f!24 t!8 f!12 t!3 f t!16>"
$ mask "<f!24 t!8 f!12 t!3 f t!16>" -- TODO: Rework structure, too short first time
$ note (
"<[<cs5!3 e5> b4@3] [e4 cs5 d5]>"
+ (arp "up" "c'maj'4*4")
......
do
let gG a = (gain ("^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
......@@ -7,7 +8,6 @@ let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
let novaOn ch pat = (sometimesBy ch pat)
let novaOff ch pat = sometimesBy (1 - ch) (pat)
let gSync = ("0.18" <~)
let g = gDJF
setcps (115/60/4)
d1 $ g
......@@ -16,6 +16,7 @@ d1 $ g
$ "[jazz,808bd:1]"
# gM' 0 1.2 "^78"
d2
$ novaOn "^75" (fast 2)
$ (|* gain
"0.75 1 1 1 0.75 1 1 1" )
$ "d ~ ~ d d ~ d <~!3 d>"
......@@ -77,3 +78,13 @@ d8
# room 0.4
# "moogBass"
# gM' 0 1 "^84"
d9 $ g
-- $ whenmod 8 4 (juxBy 0.5 rev)
$ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
$ novaOn "^59" (# speed (range 0.25 2 ("^55" + perlin)))
$ novaOff "^59" (# speed
(segment 16 $ fast 2 $ range 0.25 1.2 (perlin + (slow 8 $ sine)))
)
$ "hh:3"
# lpq (range 0 0.2 "^35")
# gM' 0 2 "^19"
-- FUNKY ANGEL FRAPPE
do
d1
-- region Nova Utils
let gFactor = 1.2
let gG a = (gain (gFactor * "^77" * a)) -- gain Global
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 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
let gRes = (# hpq "^29") . (# lpq "^30")
let novaOn ch pat = (someCyclesBy ch pat)
let novaOff ch pat = someCyclesBy (1 - ch) pat
-- endregion Nova Utils
let g = (gDJF . gRes)
setcps 0.5
d1 $ g
$ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>"
$ "k k k <k [k k] k [~ k]>"
# "[jazz,cpu]"
# room 0.8 # sz 0.8 # dry 1
# gain 1.4
d2
$ mask "<f!4 t!12 f!8 t!8>"
# gM' 0 1.5 "^78"
d2 $ g -- Clap
$ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2"))
$ novaOff "^80" (# silence)
$ "~ [clap,cp]"
# lpf 2500 # gain 1.2 # room 0.7
# dry 0.99
d3 -- Break 4/4
# lpf 2500
# room 0.7 # dry 0.99
# gM' 0 1.3 "^84"
d3 $ g -- Break 4/4
-- $ sometimes (off "e" id)
$ fix (|* gain 0.8) (n 2)
$ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>"
# "amencutup"
# gain 1.2
# gM' 0 1.2 "^79"
# pan 0.4
d8 $ g -- Hats
$ fix (|* gain 0.9) ("hh27")
$ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]"
# "[drum:2,hh27:4]"
# pan (slow 16 $ range 0.4 0.6 saw)
# gM' 0 1.35 "^80"
d4 -- RESONANT BASSLINE
$ (# lpq (range 0 0.8 "^53"))
$ (# lpf (slow 32 $ min 10000 (range 500 15000 sine)))
$ g
$ novaOn "^81" (slow "2 . 2 <1!3 0.5>")
$ whenmod 16 12 (
degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
. (# legato 2)
......@@ -26,29 +53,23 @@ d4 -- RESONANT BASSLINE
-- $ juxBy 0.8 (# crush (slow 16 $ range 16 5 isaw))
$ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
# accelerate ("<0!60 -0.1 -0.1 -0.2 -0.2>")
# gain 0.85
# lpf (slow 32 $ range 500 10000 sine)
# lpq (slow 4 $ range 0 0.8 perlin)
# gM' 0 1 "^81"
# crush (range 10 3 "^33")
# room 0.5 # sz 0.8
d5
$ mask "<f!8 t!8 t!4 f!4 t!6 f [f t]>"
d5 $ g -- Synth voices
$ novaOff "^58" (# silence)
$ whenmod 8 4 (juxBy 0.25 (rev . (# cut 51)))
$ loopAt 2
$ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>")
$ "fsynth:47"
# gain (slow 16 $ range 0.95 1.1 sine)
# gM' 0 1 "^82"
# cut 5
d8
$ fix (|* gain 0.9) ("hh27")
$ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]"
# "[drum:2,hh27:4]"
# pan (slow 16 $ range 0.4 0.6 saw)
# gain 1.25
d7
d7 $ g -- Fill drums
$ (|* gain (slow 10 $ range 0.9 1.2 perlin))
-- $ loopAt 2
$ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>"
-- $ mask "<f!3 t>"
$ "ffills:7"
# cut 7
# pan 0.6
# gain (slow 10 $ range 0.9 1.2 perlin)
# gM' 0 0.9 "^80"
......@@ -135,6 +135,8 @@ do
-- delay / delaytime / delayfeedback / cutoff / resonance / room / size
-- endregion
-- region Fly again [spleeter]
do
setcps (100/60/4)
......
once $ ptits
do
resetCycles
......
......@@ -495,24 +495,126 @@ endregion
region FClav
0 ClavB_110C-01.wav
1 ClavB_110C-02.wav
2 ClavB_110C-03.wav
3 ClavB_110C-04.wav
4 ClavB_120A-01.wav
5 ClavB_120A-02.wav
6 ClavB_120A-03.wav
7 ClavB_120A-04.wav
8 ClavB_80E-01.wav
9 ClavB_80E-02.wav
10 ClavB_80E-03.wav
11 ClavB_80E-04.wav
12 ClavB_90B-01.wav
13 ClavB_90B-02.wav
14 ClavB_90B-03.wav
15 ClavB_90B-04.wav
0 ClavB_110C-01.wav
1 ClavB_110C-02.wav
2 ClavB_110C-03.wav
3 ClavB_110C-04.wav
4 ClavB_120A-01.wav
5 ClavB_120A-02.wav
6 ClavB_120A-03.wav
7 ClavB_120A-04.wav
endregion
region FOrgan
24 OrganC_80C-01.wav
25 OrganC_80C-02.wav
26 OrganC_80C-03.wav
27 OrganC_80C-04.wav
8 OrganA_80D-01.wav
9 OrganA_80D-02.wav
10 OrganA_80D-03.wav
11 OrganA_80D-04.wav
12 OrganA_90C-01.wav
13 OrganA_90C-02.wav
14 OrganA_90C-03.wav
15 OrganA_90C-04.wav
28 OrganC_90D-01.wav
29 OrganC_90D-02.wav
30 OrganC_90D-03.wav
31 OrganC_90D-04.wav
0 OrganA_110E-01.wav
1 OrganA_110E-02.wav
2 OrganA_110E-03.wav
3 OrganA_110E-04.wav
16 OrganC_110A-01.wav
17 OrganC_110A-02.wav
18 OrganC_110A-03.wav
19 OrganC_110A-04.wav
4 OrganA_120G-01.wav
5 OrganA_120G-02.wav
6 OrganA_120G-03.wav
7 OrganA_120G-04.wav
20 OrganC_120E-01.wav
21 OrganC_120E-02.wav
22 OrganC_120E-03.wav
23 OrganC_120E-04.wav
endregion FOrgan
region FSynths
40 MonoD_80C-01.wav
41 MonoD_80C-02.wav
42 MonoD_80C-03.wav
43 MonoD_80C-04.wav
8 MonoA_80D-01.wav
9 MonoA_80D-02.wav
10 MonoA_80D-03.wav
11 MonoA_80D-04.wav
24 MonoB_80E-01.wav
25 MonoB_80E-02.wav
26 MonoB_80E-03.wav
27 MonoB_80E-04.wav
44 MonoD_90A-01.wav
45 MonoD_90A-02.wav
46 MonoD_90A-03.wav
47 MonoD_90A-04.wav
28 MonoB_90B-01.wav
29 MonoB_90B-02.wav
30 MonoB_90B-03.wav
31 MonoB_90B-04.wav
12 MonoA_90C-01.wav
13 MonoA_90C-02.wav
14 MonoA_90C-03.wav
15 MonoA_90C-04.wav
0 MonoA_110E-01.wav
1 MonoA_110E-02.wav
2 MonoA_110E-03.wav
3 MonoA_110E-04.wav
16 MonoB_110C-01.wav
17 MonoB_110C-02.wav
18 MonoB_110C-03.wav
19 MonoB_110C-04.wav
20 MonoB_120A-01.wav
21 MonoB_120A-02.wav
22 MonoB_120A-03.wav
23 MonoB_120A-04.wav
4 MonoA_120G-01.wav
5 MonoA_120G-02.wav
6 MonoA_120G-03.wav
7 MonoA_120G-04.wav
36 MonoD_120G-01.wav
37 MonoD_120G-02.wav
38 MonoD_120G-03.wav
39 MonoD_120G-04.wav
endregion FSynths
region FFills
0 Fill01.wav
1 Fill02.wav
2 Fill03.wav
3 Fill04.wav
4 Fill05.wav
5 Fill06.wav
6 Fill07.wav
7 Fill08.wav
endregion FFills
region BonusBreak
0 01(80BPM).wav
1 02(80BPM).wav
......
# From the #share channel
## region Chill estuary jam
> https://youtu.be/jzH4uTx_s9A
- Dorian scale
- **cutoff**
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