FFF own folder, more funk, accel release

parent bed82f80
resetCycles
do
setcps (80/60/4)
unsolo 1 -- Break + BEAT
unsolo 2 -- Contresnares
unsolo 3 -- Drumroll
unsolo 4 -- Guitare aigue background
unsolo 5 -- Guitare med foreground
solo 6 -- Piano conclusif
unsolo 8 -- Nappes
d1 -- Beat sautillant 3-5
$ superimpose (const -- BREAKBEAT
$ whenmod 64 48 -- Part et revient
(|* gain "<0.9!4 0.8!4 0.7!4 0.5!2 0.8 1.1>")
$ whenmod 8 6 (mask "t(<3 1>,8,<0 5>)")
$ rarely (ply "1 [2|4]")
$ whenmod 16 12 (# lpf "<2000 1500 1000 500>")
$ loopAt 2
$ slice 4 ("0 1 <1!3 2> <1!4 3!4>")
$ "fbonus"
# n ("<0!12 1!4>")
# gain (slow 4 $ range 0.5 1.5 perlin)
# cut 8
)
$ whenmod 64 48 (mask "<f!31 t>")
$ whenmod 16 12 (# lpf "<1000 750 500 250>")
$ s ("k . k(<3!3 5 3!3 5 3!3 [5 3] 7 6 5 [3 5]>,8)")
# "[jazz,reverbkick]"
# lpf 2500 # release 0.5
# gain 1.2
# pan 0.45
d2 -- Contresnares
$ whenmod 64 32 (mask "<f!7 t>")
$ fast "<2!3 4 2!3 4 2!3 4 [4 8] 8 [8 4] 8>"
$ superimpose (# "sn:4")
$ s "~ s"
# "snare"
# n "<2 [2|3] 2 [2|3|3]>"
# gain 0.9
# pan 0.55
d3
$ whenmod 32 28 (degradeBy ("0 1!15" * (1)))
$ juxBy 0.75 (0.125 ~>)
$ fast (
"<1!8 2!6 4 [8 4]>" -- Accelera 16
* "1 <1 2 1 [2 1]>"
* "<4!28 2!3 [1 4]>" -- base 4 temps, ralentissement 32
) $ s "d" # "drum:8"
# gain 1
# pan 0.4
d4 -- Guitare aigue background
$ mask "<t!8 f!8 t!16>" -- Progressive guitar blending
$ slice 8 (cat [
"0 1 2 3", "0 1 2 3", "0 1 2 3*2",
"5 4 6 7",
"5 ~ 6 7", "4 5 6 7", "4 5 6 7",
"7 0 6 7"
])
$ loopAt 2
$ "fguitar:8"
# hpf (slow 24 $ range 0 6000 saw)
# cut 4
# pan 0.7
# gain 0.8
d5 -- Guitare grave background
$ mask "<f!8 t!8 t!16>" -- Progressive guitar blending
$ slice 4 (
whenmod 32 16 (|>| "<0!4 1!4 2!4 3!4>(<3 4 6 7>,8)") $
whenmod 16 8 (|> "<0 [0 1]> <1 [1 0]>")
"0 <<1 [1 0]> 1*2>"
)
$ loopAt 2
$ "fguitar:11"
# djf (slow 32 $ range 0.4 0.8 isaw)
# cut 5
# pan 0.35
# gain 1.2
d8 -- Nappes synthetiques
$ jux id
$ stut 2 "q" 0.95
$ off "<e!3 q>" (
|+ note (scale "major" "<4!6 -4!2>")
)
$ note (
"<0!3 -2 0!2 -2 0 12!3 10 12!3 [12 10 8 6]>"
-- "[12 10 8 <6 5>]" -- Nanana
+ "-12")
# s "moog:2"
# gain (0.5 * "<1!8 0.95 0.9 0.85 0.8>")
# legato "<0.8!7 0.4>" -- Nappage parfois parcimonieux
d6 -- Piano conclusif
$ whenmod 64 48 (mask "t(5,8)" . ply 4)
$ whenmod 64 32 (ply "<2!3 4>")
$ loopAt 2
$ slice 4 (cat [
"0 1 2 3", "0 1 2 3", "0 1 2 0", "0 1 2 3",
"0 1", "0 . 1 2", "0 1 0 3", "1 1 3 3"
])
$ "fpiano:10"
# gain (slow 128 $ range 0.4 1.2 saw) -- x2 64/128
# cut 6
# pan 0.6
...@@ -6,18 +6,18 @@ resetCycles ...@@ -6,18 +6,18 @@ resetCycles
-- region Part 1: setup accel vivant -- region Part 1: setup accel vivant
do do
solo 1 -- kick solo 1 -- kick
solo 2 -- snare unsolo 2 -- snare
solo 3 -- drumroll unsolo 3 -- drumroll
solo 4 -- bass solo 4 -- bass
unsolo 5 -- siren solo 5 -- siren
unsolo 6 -- clap solo 6 -- clap
unsolo 7 -- synth solo 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 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 gKick = 0.75 -- /128 On off semi-onon fadeout
let gSnare = 0.65 let gSnare = 0.65
let gHats = 0.85 let gHats = 0.7
let gDrums = 0.75 let gDrums = 0.75
let gBass = 0.65 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>" let gBass = 0.65 * "<1!24 <[1 0]*4 [0 1]*4>!8 1!4>"
let gSiren = 0.85 * "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>" let gSiren = 0.85 * "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>"
let gSynth = 0.65 let gSynth = 0.65
let gClap = 0.9 let gClap = 0.9
...@@ -80,7 +80,7 @@ do ...@@ -80,7 +80,7 @@ do
) - 36) ) - 36)
# s "supersiren" # s "supersiren"
# sustain 4 # sustain 4
# gain 0 # gain gSiren
d6 -- claps graduels sur 64 d6 -- claps graduels sur 64
-- $ whenmod 64 48 (>| n "~ 0*2 ~ 0*2") -- $ whenmod 64 48 (>| n "~ 0*2 ~ 0*2")
-- $ whenmod 64 40 (>| n "~ 0?*2 ~ 0?*2") -- $ whenmod 64 40 (>| n "~ 0?*2 ~ 0?*2")
...@@ -106,7 +106,7 @@ do ...@@ -106,7 +106,7 @@ do
# gain gSynth # gain gSynth
once $ s "abstract:1" # cut 1 # gain 0.6 once $ s "abstract:1" # cut 1 # gain 0.6
-- endregion -- endregion
-- region Part 2: Dry Melancholia -- region Part 2: Dry Melancholia
do do
...@@ -115,14 +115,15 @@ do ...@@ -115,14 +115,15 @@ do
solo 3 -- drumroll solo 3 -- drumroll
solo 4 -- bass solo 4 -- bass
solo 5 -- siren solo 5 -- siren
solo 6 -- clap unsolo 6 -- clap
solo 7 -- synth unsolo 7 -- No synth
let gKick = 0.7 -- /128 On off semi-onon fadeout let gKick = 0.75 -- /128 On off semi-onon fadeout
let gSnare = 0.65 let gSnare = 0.65
let gHats = 0.75 let gHats = 0.7
let gDrums = 0.75
let gBass = 0.6 let gBass = 0.6
let gSiren = 0.6 let gSiren = 0.65
let gSynth = 0.9 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" let gSynth = 0.65 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8 let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>" let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO setcps 0.5 -- TECHNOOO
...@@ -143,7 +144,7 @@ do ...@@ -143,7 +144,7 @@ do
$ s "dr*4" $ s "dr*4"
# s "ifdrums:1" # s "ifdrums:1"
# pan 0.4 # pan 0.4
# gain 0.9 # gain gDrums
# room (slow 16 $ range 0 0.15 saw) # room (slow 16 $ range 0 0.15 saw)
d4 -- Basse d4 -- Basse
$ superimpose ( -- Echo octave $ superimpose ( -- Echo octave
...@@ -171,24 +172,24 @@ do ...@@ -171,24 +172,24 @@ do
# sustain 4 # sustain 4
# gain gSiren # gain gSiren
# cut 5 # cut 5
-- endregion -- endregion
-- region Part 3: Folie -- region Part 3: Folie
do do
solo 1 -- kick unsolo 1 -- kick
unsolo 2 -- snare unsolo 2 -- snare
unsolo 3 -- drumroll unsolo 3 -- drumroll
solo 4 -- bass solo 4 -- bass
unsolo 5 -- siren unsolo 5 -- siren
solo 6 -- clap unsolo 6 -- clap
solo 7 -- synth unsolo 7 -- synth
let gKick = 0.6 -- /128 On off semi-onon fadeout let gKick = 0.75 -- /128 On off semi-onon fadeout
let gSnare = 0.65 let gSnare = 0.65
let gHats = 0.75 let gHats = 0.75
let gDrums = 0.75
let gBass = 0.6 let gBass = 0.6
let gSiren = 0.2 * "<0.7!32 0.6!32 0.5!32 0.4!32>" let gSiren = 0.2 * "<0.7!32 0.6!32 0.5!32 0.4!32>"
let gSynth = 1.3 -- * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" let gSynth = 0.6
let gClap = 0.8 let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>" let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO setcps 0.5 -- TECHNOOO
...@@ -209,7 +210,7 @@ do ...@@ -209,7 +210,7 @@ do
$ s "dr*4" $ s "dr*4"
# s "ifdrums:1" # s "ifdrums:1"
# pan 0.4 # pan 0.4
# gain 0.9 # gain gDrums
# room (slow 16 $ range 0 0.15 saw) # room (slow 16 $ range 0 0.15 saw)
d4 -- Basse d4 -- Basse
$ superimpose ( -- Echo octave $ superimpose ( -- Echo octave
...@@ -236,38 +237,36 @@ do ...@@ -236,38 +237,36 @@ do
# sustain 4 # sustain 4
# gain gSiren # gain gSiren
# cut 5 # cut 5
d7 -- synthe echos electrique
d7 -- synthe echos electrique $ superimpose (
$ superimpose ( (# s "supercomparator") .
(# s "supercomparator") . (# voice (slow 64 $ sine * 8)) . (|- note 12)
(# voice (slow 64 $ sine * 8)) . (|- note 12) )
) $ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs!
$ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs! $ n "0*12"
$ n "0*12" # voice "0.1"
# voice "0.1" # s "supersquare"
# s "supersquare" # note (scale "aeolian"
# note (scale "aeolian" "<0 0 0 0 2 2 4 -2>" + "[0 <1!3 3>]")
"<0 0 0 0 2 2 4 -2>" + "[0 <1!3 3>]") # gain gSynth
# gain gSynth
-- endregion -- endregion
-- region Part 4: Résolution -- region Part 4: Résolution
do do
unsolo 1 -- kick solo 1 -- kick
unsolo 2 -- snare solo 2 -- snare
solo 3 -- drumroll solo 3 -- drumroll
solo 4 -- bass unsolo 4 -- bass
unsolo 5 -- choeur -- FIXME
solo 6 -- clap solo 6 -- clap
solo 7 -- synth solo 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 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 * mKick -- /128 On off semi-onon fadeout let gKick = 0.75 -- /128 On off semi-onon fadeout
let gSnare = 0.6 let gSnare = 0.6
let gHats = 0.7 let gHats = 0.7
let gBass = 0.7 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>" let gBass = 0.7 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>"
let gSiren = "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>" let gSiren = "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>"
let gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>" let gSynth = 0.55
let gClap = 0.8 let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>" let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO setcps 0.5 -- TECHNOOO
...@@ -323,10 +322,16 @@ d7 -- synthe echos electrique ...@@ -323,10 +322,16 @@ d7 -- synthe echos electrique
$ superimpose ( $ superimpose (
(# s "supercomparator") . (# s "supercomparator") .
(# voice (slow 64 $ sine * 8)) . (|- note 12) (# voice (slow 64 $ sine * 8)) . (|- note 12)
. (# cut 71)
) )
$ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs! $ whenmod 16 8 (sometimes (juxBy 0.4 (
$ n "0*0" (|+ note 12)
# voice "0.1" . (# cut 72)
))) -- jux eclairs!
$ n "0*16" -- TODO 16 8 4 2
-- TODO # sustain 8 # release 4
# voice 0.1
# cut 7
# s "supersquare" # s "supersquare"
# note (scale "aeolian" # note (scale "aeolian"
"<0 0 0 0 2 2 4 -2>" "<0 0 0 0 2 2 4 -2>"
...@@ -339,11 +344,11 @@ do ...@@ -339,11 +344,11 @@ do
unsolo 1 -- kick unsolo 1 -- kick
unsolo 2 -- claps unsolo 2 -- claps
unsolo 3 -- drumroll unsolo 3 -- drumroll
unsolo 4 -- bass solo 4 -- bass
unsolo 5 -- Choeurs solo 5 -- Choeurs
unsolo 6 -- piano solo 6 -- piano
solo 7 -- synth unsolo 7 -- synth
solo 8 -- Pistolets unsolo 8 -- Pistolets
setcps 0.5 -- TECHNOOO setcps 0.5 -- TECHNOOO
d1 -- Kick d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent $ whenmod 16 14 (# silence) -- break frequent
......
once "dr*8"
-- 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: 9.5/10 -- Ready: 9.5/10
...@@ -5,20 +7,20 @@ resetCycles ...@@ -5,20 +7,20 @@ resetCycles
-- endregion -- endregion
do do
unsolo 1 -- Kick solo 1 -- Kick
unsolo 2 -- Snare roll/rush unsolo 2 -- Snare roll/rush
unsolo 3 -- Drumroll solo 3 -- Drumroll
solo 4 -- Bassline unsolo 4 -- Bassline
unsolo 5 -- Guitare intro/pompe solo 5 -- Guitare intro/pompe
unsolo 6 -- Epiano groovy solo 6 -- Epiano groovy
solo 7 -- Claps from grace unsolo 7 -- Claps from grace
let bpm = 80 -- Que tu crois! let bpm = 80 -- Que tu crois!
setcps (bpm/60/4) setcps (bpm/60/4)
solo 10 -- NOISES solo 10 -- NOISES
d10 $ funk_noise d10 $ funk_noise
d1 d1
$ every' 8 7 (# lpf 200) $ every' 8 7 (# lpf 200)
-- region Pauses Hip-hop -- region Paues Hip-hop
$ whenmod 8 6 (juxBy 0.5 rev) $ whenmod 8 6 (juxBy 0.5 rev)
$ "k . k(<3 <5 4>>,8)" -- Le simple $ "k . k(<3 <5 4>>,8)" -- Le simple
-- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité -- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité
...@@ -36,7 +38,7 @@ do ...@@ -36,7 +38,7 @@ do
-- $ whenmod 8 6 (# silence) -- $ whenmod 8 6 (# silence)
-- $ "k k k k k k k <k [~ k]>" -- $ "k k k k k k k <k [~ k]>"
# "jazz" # "jazz"
# gain 0.35 # gain 0.7
# pan 0.45 # pan 0.45
d2 d2
$ someCycles (hurry 2) $ someCycles (hurry 2)
...@@ -56,44 +58,44 @@ do ...@@ -56,44 +58,44 @@ do
d4 -- Bassline d4 -- Bassline
$ juxBy 0.5 id $ juxBy 0.5 id
$ slow 2 $ slow 2
$ whenmod 16 8 ( -- $ whenmod 16 8 (
-- region reverse cowgirl -- region reverse cowgirl
sometimesBy "0 1" rev) -- sometimesBy "0 1" rev)
$ slice 8 $ slice 8
( (
-- iter (slow 2 "<2 4>") $ -- iter (slow 2 "<2 4>") $
-- run 8 -- Classique: jumpy groovy -- run 8 -- Classique: jumpy groovy
"0*4 2 1 3 4 5 6 7"-- HAVE FUN -- "0*4 2 1 3 4 5 6 7"-- HAVE FUN
-- "<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.5 + "6 <5 4>") -- CRUSH THIS -- # crush (0.5 + "6 <5 4>") -- CRUSH THIS
# gain 0.4 # gain 0.5
# 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 pompe -- 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
...@@ -117,10 +119,10 @@ do ...@@ -117,10 +119,10 @@ do
) )
$ s "fepiano" $ s "fepiano"
# n (slow 8 "<24 25>") # n (slow 8 "<24 25>")
# gain 0.7 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37 # gain 0.75 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37
# cut 6 # cut 6
# pan 0.7 # pan 0.7
d7 $ fast 2 $ s "clap" d7 $ fast 2 $ s "clap"
# lpf 2000 # lpf 2000
# gain 0.65 # gain 0.85
# room 0.4 # room 0.4
do
-- let dGlob = id
-- let fxCrush = (# crush 16)
let fx32LPF = (whenmod 32 16 (# lpf (slow 16 $ range 5000 500 isaw)))
let dGlob = (fx32LPF)
setcps 0.5
unmute 1 -- Kick
unmute 2 -- Contre-claps
unmute 3 --
unmute 4 --
unmute 5 --
d1
$ dGlob
$ whenmod 64 32 (slow "<4!16 2!16>")
$ whenmod 32 24 (mask "t?(1,4)")
$ whenmod 16 10 (# lpf 200)
$ fast "<4!3 [4|2]>"
$ s "[jazz,cpu2]" # gain 0.7
d2
$ fast 2
$ dGlob
$ "~ . <c!3 c*2>" # "clap"
# lpf 2000
# room (slow 64 $ range 0 0.8 sine)
# sz (slow 16 $ range 0 0.7 saw)
# gain 0.8
d3
-- $ dGlob
$ degradeBy (range 0.2 0.8 perlin)
$ bite 8 "0 1 2 <3 5>(3,8)"
$ loopAt 2 $ "break"
# cut 3
# gain 0.5
d4 -- Moog lead
$ dGlob
$ jux rev
$ slice (slow 8 $ "<2 4 8 1>") "0*8 2*4"
$ note (scale "aeolian" (run 8))
# cut 4 # "moog:1"
# gain (slow 16 $ range 0.5 0.75 cosine)
d5
$ dGlob
$ slow "<4 2 1!30>"
$ often (stut "<2!4 2 4 8 1>" 0.9 "<q!32 e!32>")
$ "[g(<3!3 5>,8) | g(3,8) g?]"
# "supergong"
# legato 1.1
# note (slow 4 $ "<c'maj c'min>")
# octave (slow 8 $ "<4 5>")
# room 0.4 # sz 0.4
# gain 0.55
d6
$ dGlob
$ mask "t(<1!2 2!2 4!4 8!24>, 8)"
$ degradeBy "<0!10 0.2 0.4 0.6 0.8 [0.9 0] [0.1 0!3]>"
$ jux ((# note 2) . ("s" ~>))
$ fast "8 <8!6 16!2>" $ "hh"
# gain (slow 8 $ range 0.65 0.9 perlin)
# room (range 0.4 0.7 perlin)
-- region breakbeat
do
setcps (80/60/4)
d1
-- $ superimpose (const $ s "jazz(<4!3 5>,8)" # gain 0.75)
$ slice 8 ("0 1 2 3 4 5 <6 7> 7*<1 2 4>")
$ "break:1"
# gain (slow 8 $ range 0.5 0.6 saw)
# cut 1
d2
$ slice 4 (cat [
run 8,
"0 1 2 3 4!4",
run 8, run 8, run 8,
"<0!4 1!4 3!8>(5,8)"
])
$ "fbass"
# n "<42!14 41!2>"
# cut 2
# gain (slow 16 $ range 0.6 0.65 saw)
d4
$ whenmod 32 28 ((# note 12) . slow 4)
$ bite 4 "<0!8 1!8>*<4 8>"
$ "fepiano:26"
# gain 0.5
# cut 4
# room 0.4
do
setcps (0.5)
d1 $ fast 4 $ s "[jazz,techno]" # gain 0.75
d2
$ fast 2
$ whenmod 8 7 (off "e" id)
$ whenmod 4 3 (off "q" id)
$ "~ [snare:11,cp]"
# gain 0.7
# lpf 2000
d4
$ fast "<1!4 2!4 4!2 8!2 16!3 [1]>"
$ loopAt 2
$ "fclav"
# n (slow 4 "<0 1 2 3>")
# cut 21
# gain 1.1
d6 $ s "supersaw" # voice 0.1 # note (-24)
once $ arpeggiate $ note "c'maj" # "supersaw"
# voice 0.1
# gain 0.8
-- Couches de Funk -- Couches de Funk
-- Tags: Techno, bass, epiano , hypnotic -- Tags: Techno, bass, epiano , hypnotic
-- Ready: 4/10 (Répetitif, à équilibrer, à espacer, vocals?) -- Ready: 4/10 (Répetitif, à équilibrer, à espacer, vocals?)
resetCycles
do do
setcps 0.5 setcps 0.5
solo 1 -- Techno kick solo 1 -- Techno kick
solo 2 -- BreakBeat unsolo 2 -- BreakBeat
solo 3 -- Claps unsolo 3 -- Claps
solo 4 -- Bassline! solo 4 -- Bassline!
solo 6 -- Electromad piano unsolo 6 -- Electromad piano
d1 -- KICK d1 -- KICK
$ fast "<4!16 1 2 4 8 4!2>" $ fast "<4!16 1 2 4 8 4!2>"
$ whenmod 16 15 (juxBy 0.9 rev) $ whenmod 16 15 (juxBy 0.9 rev)
...@@ -62,7 +62,7 @@ do ...@@ -62,7 +62,7 @@ do
-- # n 23 -- # n 23
# n "<23!8 7!4>" # n "<23!8 7!4>"
# cut 3 # cut 3
# gain 1.95 # gain 1
d6 -- Electro-MAD piano d6 -- Electro-MAD piano
$ whenmod 16 12 ( $ whenmod 16 12 (
off "q" ( stut 4 0.5 "e" off "q" ( stut 4 0.5 "e"
......
resetCycles
do
let fxSlowDegrade = (# waveloss 10)
let fxPontHPF = (whenmod 64 48 (# djf (slow 16 $ range 0.2 0.8 cosine)))
let dGlob = (fxPontHPF . fxSlowDegrade)
-- let dGlob = (# djf 0.4)
let dGlob = (id)
let mMin = "<c'min!3 <f'min d'min>>"
let mMajSm = "<c'min'4 c'min'2 c'maj'4 c'maj'2>"
let mMajMd = "<c'min'3 f'min'3 c'maj'3 c'maj'3>"
let mMajLg = "<c'min'8 c'min'7 c'maj'8 c'maj'6>"
let melMin = [mMin, mMin, mMin, mMin]
let melMed = [mMajSm, mMajSm, mMajMd, mMajSm]
let melMaj = [mMajMd, mMajSm, mMajLg, mMajMd]
let melEnd = [mMajLg, mMajLg, mMajLg, mMajLg]
let melody = note (cat (melMin ++ melMed ++ melMaj ++ melEnd))
let bCharge = "<2!3 3>(3,8)" -- Charge !
let bAttente = "<0!4 1!4 2!4 3!4>" -- Attente
let bFull = "0 1 2 3" -- Fulltime
let bEnd = "0 1 0 <3 0>" -- End of file
let b1 = [bFull,bFull,bFull,bFull,bAttente,bAttente,bAttente,bAttente]
let b2 = [bAttente,bFull,bAttente,bFull,bAttente,bFull,bFull,bFull]
let b3 = [bCharge,bCharge,bCharge,bCharge,bFull,bEnd, bEnd, bEnd]
let bLine = b1 ++ b2 ++ b3
setcps 0.5
solo 1 -- KICK 4
solo 2 -- Claps
solo 3 -- Hypno-Hats
solo 4 -- LEAD BASSLINE
unsolo 6 -- Riffs
solo 9 -- Background hoover FIXME
solo 10 -- Noise
d1
-- $ mask "<f!8 t!20>"
$ whenmod 8 6 (# lpf "<2000 500>")
$ dGlob
$ superimpose (# "jazz:0")
$ "k k k <k!3 [<k? ~> k]>"
# "808bd"
# n "[1,3]" # legato 0.8
# gain 0.75
d2
-- $ mask "<f!4 t!26 f t>"
-- $ dGlob
$ fast 2
$ "~ <c!3 c*2>"
# note (slow 4 $ "<-5 -7>")
# djf 0.8
# legato "<0.4!3 0.8>"
# "cp"
# pan 0.3
# gain 0.8
d3
$ degradeBy "<0.9 [0 0.75!3]!3 0!20 [0 0.5!2 0]!8>"
$ whenmod 16 8 (juxBy 0.75 (degradeBy 0.25 . rev))
$ often (off "e" id)
$ dGlob
$ s "hh*4"
# room "<0.2!4 0.4!2 0.6 0.8>" # sz 0.5
# dry (range 0.2 4 perlin)
# pan (slow 8 $ sine)
# legato "<[q|e|s]!3 [h|q|e]>"
# cut 3
# gain (slow 2 $ range 0.65 0.8 perlin)
d4
$ whenmod 32 28 (fast 2) -- VIBRE
$ whenmod 32 24 (fast "2 4") -- reviens
$ whenmod 32 16 (slow 2) -- éclairci
$ dGlob
$ slice 4 (cat bLine)
$ "fbass:23"
# cut 4
# gain 0.9
d6
$ whenmod 8 6 ((# crush "<3 2.5>") . (|* gain 0.8))
$ bite 4 ("0*<2!2 <0 [0|0|2]> 1>")
$ "fguitar:23"
# cut 6
# gain (slow 4 $ range 0.8 1 tri)
d9
$ superimpose (
ply "<2!4 [2|4]!2 4!2>"
. arp "down <down up>"
)
$ melody
# octave 4
# slide ("<1!3 -1>")
# s "superhoover"
-- # decay ("<0!8 0.25!4 0.5!4 0.6 0.8 0.95 0.99>")
# gain 0.25
d10
$ superimpose (
const $ (1 ~>) $ note (slow 4 $ mMin) # "supersiren"
# octave 2
# sustain 4
# gain 0.45
)
$ "glitch(<4!3 5>,8,<0!8 4!8>)"
# n "2 <[2,3] 5>"
# gain 0.4
# pan "0.4 0.6"
d5 $ degradeBy "0 0.5 0.25 0"
$ fast "12" $ s "cpu:1" # gain (range 0.7 0.9 saw)
once $ s "fguitar:23" # cut 21
...@@ -413,8 +413,6 @@ endregion --> ...@@ -413,8 +413,6 @@ endregion -->
55 GuitarD_120G-04.wav 55 GuitarD_120G-04.wav
endregion endregion
region Guitar
endregion
region fepiano region fepiano
...@@ -475,3 +473,23 @@ region fpiano ...@@ -475,3 +473,23 @@ region fpiano
6 PianoA_120G-03.wav 6 PianoA_120G-03.wav
7 PianoA_120G-04.wav 7 PianoA_120G-04.wav
endregion 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
endregion
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