live: minneapolis

parent 113fdba7
-- region First jam: Techno modulée
do
setcps 0.5
d1
$ whenmod 16 12 (# silence)
$ s "k(3,8)" # s "jazz"
# gain 0.4
-- # lpf (slow 10 $ range 20 2000 sine)
d2
$ juxBy 0.5 (rev)
$ often ((# s "hc:2") . (|* gain 0.8))
$ s "h(5,8)"
# pan (slow 8 $ sine)
# s "ho:[1|2|3]"
# cut 2
# gain 0.45
d3
$ fast "4 <8!3 16>"
$ s "ifdrums:1"
# gain 0.8
d5 -- Random pistolets
$ fast 2 $ degradeBy 0.5
-- $ whenmod 64 0 (sometimes (# gain 0.9))
$ often (ply 2)
$ (|+ note "[-12|+6]")
$ s "~ s(<3!3 5>,8,3)"
# s "snare:57"
# pan 0.6
# gain 0.6
-- endregion
-- region Second jam: Electric jazz fever
do
unsolo 1
unsolo 2
unsolo 3
unsolo 4
unsolo 7
setcps 1.03
d1 -- Breakbeat
$ superimpose ( -- BEAT
const $ fast 2 $ s "kick:8" # hpf 100 # gain 0.55
)
$ loopAt 4 -- Break
$ slice 8 (
every 4 (|> "0 7!7")
"0 <1 6> 2*2 3 <4 5> <5 2> <6 1> 7"
)
$ s "break" # gain 0.8
d2
$ someCycles (often $ ply 2)
$ every 4 (jux (0.125 ~>))
$ s "~ sn:12" # gain 0.6
d3 $ fast "<[8 4] 8!5 4!2>" $ s "dr" # gain 0
d1 -- KICK!
-- $ slow 2
$ whenmod 32 24 (# n (slow 4 "<0 ~ ~ 0>"))
$ note "0 <0!3 0*2>" # s "jazz"
# lpf (slow 100 $ range 75 200 saw)
# gain 0.6
d3 -- bass
$ whenmod 32 16 (slice 4 "0 1!3")
$ jux id
$ often (off 0.125 (|+ note "[0,7?]"))
$ slow 2
$ note (
scale "major" (
cat [
-- " 1 1 ~ . ~ [~ 0]",
-- "<0!3 5> [<0!4 12!4> <1!3 -2>] ~ ~ . ~ "
"1 <1!3 3!2> ~ . 1 <1 3!6 5> ~"
]
+ "[0,7]" -- gamme
)
)
# s "bass3"
# pan 0.4
# gain 0.34
d2 -- hit roll
$ superimpose (
fast "2 <1!3 2>"
. (# s "ifdrums:1")
. (# gain 0.8)
)
$ s "<h*4 h*4 h*4 [d*4 ~]>"
# s "hh"
# release 0.5
# pan (range 0.2 0.8 perlin)
# gain (slow 40 $ range 0.8 1.1 perlin)
d4
$ someCyclesBy 0.75 (juxBy 0.2 rev)
$ sometimes (hurry 2)
$ sometimes (off (1/8) id)
$ s "d*4"
# s "electro1" # n "[3 . [2|3]]"
# gain 0.0
d7 -- claps
$ whenmod 4 3 (# room 0.5)
$ s "<[~ cp]!3 [~ cp . cp ~]>"
# gain (slow 128 $ range 0.5 0.8 saw)
# room (slow 10 $ range 0.2 0.5 sine)
# size (slow 20 $ range 0.2 0.5 sine) # dry 0.65
d5
$ someCycles (fast 2)
-- $ whenmod 32 16 (# silence)
$ whenmod 32 4 (# gain 0.8)
$ every 4 (# silence)
$ s "reverbkick*2"
# gain 0.7
once $ s "macron:7" # gain 0.9 # cut 5
-- endregion
-- region Third round: Planant qui resonne
do
setcps 0.5
d1 -- Kick Irregulo-correct juxroomé
-- $ juxBy 0.2 ((# room 0.2) . (|* gain 0.8))
$ s "jazz(4,8)" # gain (range 0.55 0.6 perlin)
d2
$ sometimesBy "0 0.5" (fast 2)
$ fast ("<1 1 [2 1] 2>" * "<4!3 8>")
$ s "ifdrums:1"
# gain (slow 16 $ range 0.4 0.65 sine)
# room 0.11
# sz 0.6
d3 -- hats suivis reverb
$ almostAlways (jux (# dry 1.1))
$ s "hh([<6!2 12!2> <12!3 8>],16)"
# gain 0.75
# room 0.4
# size (slow 64 $ range 0.2 0.85 cosine)
# dry (slow 8 $ range 0.5 2 sine)
d7 -- macron gabber guerre
-- $ superimpose (
-- (# octersub 8) . (# octersubsub 2)
-- )
-- $ every 2 (choose [0,0.125] ~>)
$ n "0*2"
# s "macron:0" # begin 0.65
# gain 0.6
d8 -- pivert
$ often (stut 5 0.9 0.05)
$ s "birds3:6(<1 1 3 1> ,8)"
# gain 0.9
d9 -- jambon fromage
$ slow 4
$ whenmod 8 6 (
(# s "~ macron:11")
. (# cut 19)
)
$ often (superimpose ((# squiz 2) . (|* gain 0.9)))
$ slice 4 ("0 <0!3 1>")
$ s "macron:7"
# gain 0.8
# room 0.5
# size 0.2
# speed (range 0.8 0.95 perlin)
# cut 9
d4 $ silence
once $ s "macron:8" # gain 0.8
......@@ -3,7 +3,7 @@ unmute 6
do
setcps 0.3
d1 $ s "k . ~ [<~ k> <~ k?>]" # s "reverbkick" # gain 0.7 # lpf 400
d1 $ s "k . ~ [<~ k> <~ k?>]" # s "reverbkick" # gain 0.35 # lpf 400
d2 $ s "~ snare:1" # gain 0.5 # delay 0.5
d3 $ often (stut 4 0.76 0.125) $ fast 4 $ s "~ . drum:8" # gain 0.5
d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]" # cut 4 # gain "0.5 0.6"
......@@ -13,15 +13,16 @@ do
)
$ off 0.25 (slow 2 . arp "updown")
$ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
# s "superpiano" # velocity 0.4
# s "superpiano"
# velocity (slow 100 $ range 0.2 0.34 sine)
# pan 0.7
d6
$ note ("d3"
-- + "[0,3(3,8,2)]"
+ "[0,3(3,8,2)]"
)
# s "supersaw" # voice 0.1
# release "2 0.8!7"
# gain 0.5
# gain (slow 88 $ range 0.25 0.5 cosine)
d7 $ s "hh(<1 3 5>,8)" # cut 7 # gain 0.6 # pan 0.2
......@@ -38,7 +39,7 @@ do
)
$ off 0.25 (slow 2 . arp "updown")
$ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
# s "superpiano" # velocity 0.4
# s "superpiano" # velocity 0.45
d6
$ note ("<d3'maj <d3'maj d4'maj> d3'min d3'maj>"
+ "[0,3(3,8,2)]")
......
......@@ -10,21 +10,22 @@ do
solo 8 -- Maracas
do
unsolo 1 -- Break/kick
solo 1 -- Break/kick
unsolo 3 -- Basse
unsolo 4 -- Piano Aigu
solo 4 -- Piano Aigu
unsolo 5 -- Piano Grave
unsolo 6 -- Clap
unsolo 8 -- Maracas
solo 8 -- Maracas
do
setcps 0.4
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
let gKick = 0.6
let gBreak = 0.7
let gBreak = 0.47
let gBass = 0.7
let gClap = 0.7
let gMaracas = 0.8
let vPianoMin = 0.35
let gMaracas = 1
let vPianoMin = 0.2
let vPianoGauche = 0.4
let vPiano = 0.5
d1
......@@ -42,7 +43,7 @@ do
"0 1*2 2 3 4*[1|2|4] 5 <6!3 7> 7"
)
$ s "break"
# gain gBreak
# gain 0.5
d3 -- Bassline
$ note (scale "blues"
("0. 2(3,8)")
......@@ -94,7 +95,7 @@ do
do
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
let gKick = 0.65
let gBreak = 0.85
let gBreak = 0.45
let gBass = 0.5
let gClap = 0.7
let gMaracas = 0.8
......
......@@ -3,7 +3,7 @@ do
setcps (60/60/2)
d1 -- Kick techno (mask 4) / trance (mask 12)
-- TODO: at 12, not really transe yet
$ mask "t(1,12)"
$ mask "t(11,12)"
$ whenmod 64 32 (|> n "[0 0 <0 ~>]*4")
$ s "k!3 . k <k ~> k . k!3 . k k <k!4 ~ ~ k k ~ k>"
# s "jazz"
......
-- DNB Joyeuse mineure 8-bit
-- surprise techno-tribe!
do
setcps (165/4/60)
solo 1
solo 2
unsolo 3
unsolo 4
solo 5
d1 -- Kick regulier, pause de temps en temps
-- section Kick DNB
-- $ mask "<t!12 [t f]!2>"
-- $ fast 4
-- $ s "<k [~ k]> . ~"
-- section Kick TECHNO
$ slow "<1!8 2!8>"
$ fast "<1!6 2 4>"
$ s "k k k <k!3 [~ k]>"
# "kick:5"
# crush 5
# gain 0.3
d2 -- Snares contretemps
$ fast "2"
$ sometimesBy "<0 0.5>" ((# lpf 1000) . (|* gain 1.2))
$ s "~ . <s!3 s*2>" # note (-12)
# s "snare:2"
# gain 0.65
d3 -- Drumroll
$ fast ("<1!3 2>" * 4)
$ s "drum:8" # gain 0.9
d4 -- COMETE
$ mask "<f!8 t!8 [f t]!8>"
$ s "m(<3!3 <5 1>>,8)"
# s "methbass:3"
# lpf (slow 16 $ range 200 5000 isaw)
# begin (slow 8 $ "<0 0.25 0.75>")
# end 0.85
# cut 1
# gain 0.6
d5
$ superimpose (
(arp "up") . (|+ note 24)
. (# gain 0.5)
. (# crush (slow 16 $ range 0.75 8 sine))
)
$ s "t(<4!2 5!2>,<4!2 8!2>)"
# note ("<c3'min c3'maj c3'min7 c3'maj>" - 12)
# s "supersaw"
# voice 0.01 # gain 0.4
d9 -- jambon fromage
$ degradeBy 1
$ slow 4
$ whenmod 8 6 (
(# s "~ macron:11")
. (# cut 19)
)
$ often (superimpose ((# squiz 2) . (|* gain 0.9)))
$ slice 4 ("0 <0!3 1>")
$ s "macron:7"
# room 0.5
# size 0.2
# squiz 1.2
# speed (range 0.8 0.95 perlin)
# cut 9
once
$ note (scale "major" 1 - (run 4))
# s "kaamelott:1"
# end 0.04 # cut 1
# gain 0.8
......@@ -2,6 +2,8 @@ setcps 0.5
once $ s "methbass" # n 6
d1 $ fast 4 $ s "kick:5" # lpf 200 # gain 0.8
do
let chordC = "[0, 12, 16, 19]"
let chordG = "[-5, 11, 14, 19]"
......
-- Je repensais aux phrases que Simon Leys avait sur Robinson Crusoé :
-- les vrais idéalistes sont des grands pragmatiques.
-- Robinson Crusoé, il ne part pas avec des grands principes,
-- il va dans la cale chercher ce qui va lui permettre de survivre.
-- Du fromage. Du jambon. Des choses très concrètes.
-- Pour pouvoir ensuite inventer quelque chose et créer.
-- Robinson, quand le naufrage est là, il ne se prend pas les mains dans la tête en essayant de faire une grande théorie du naufrage. Il prend d'abord du jambon, du fromage, mais il a en lui cette capacité à réinventer une histoire unique.
--
d1 $ slice 8 "0 1 2 3 4 5 6 7" # s "break" # cut 1
once
$ s "macron:11"
# begin 0.62
# gain 1.3
# cut 0
do
solo 1
solo 2
solo 3
solo 4
solo 5
solo 8
let bpm = 165
let gDrums = 0.6
let gKick = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps (bpm/60/4) -- HARDCORE tranquilou
d1
$ whenmod 32 16 (slow 2)
$ every 4 (superimpose (
(# note "<0!3 <2 4>>") . (# s "hardkick:2") . (|- gain 0.1)))
$ sometimesBy 0.95 (# crush 6)
$ s "k k <k!3 [~ k]> k" # s "jazz"
# gain gKick
d2 -- Hats qui courent!
$ whenmod 32 28 (ply 2)
$ whenmod 8 4 rev
$ fast 4 $ s "[ho hc:1]"
# cut 2 # gain 0.5
# room 0.5
# size 0.2
d4 -- Basse electrique sale
$ off 0.125 (|- note "[0,5]")
$ mask "t(2,3,1)"
$ superimpose ( -- Echo octave
(|+ note 12)
. (|- gain 0.2)
. (# room 0.5)
)
$ note (scale "aeolian"
(
whenmod 16 8 (iter 6)
"0 [4 5] 0"
+ melody
) - 24)
# s "supersaw"
# voice (slow 64 $ range 0.01 0.75 sine)
# crush 4
# gain 0.7
d8
$ whenmod 8 7 (# gain 0.6)
$ slice 2 "<1!3 0> . ~"
$ sound "macron:11" # cut 1
# gain 0
# room 0.4
-- Part 1: technotravail
d2 -- BassLINE
$ juxBy 0.1 (# crush 3)
$ note (scale "aeolian" "0*<1!3 4> 2(<1 3>,8) <~ 4> 5")
# s "bass3:2" # gain 0.8
d3 $ juxBy 0.5 rev
$ fast "<4!3> <8 16>"
$ s "drum:8" # gain gDrums
# room 0.2
d4
$ superimpose (# crush 5)
$ every 3 rev
$ slow 4 $ chop 4
$ s "bsguitar:4"
# cut 4
# gain 0.6
d5
$ note ("0(<1 3>,<4!2 8!2>,3)" + "<4 <8 5>>" - 24)
# s "supersaw" # voice 0.1 # gain 0.4
# sustain "1 0.75 0.5 0.25"
d6
$ someCycles (often (fast 2))
$ every' 4 3 (jux rev)
$ s "hh(8,<8!3 12>)"
# gain (slow 32 $ range 0.6 0.8 sine)
# size 0.5 # room 0.2
d8
$ whenmod 16 8 (# gain 0.6)
$ slice 2 "<1!3 0> . ~"
$ sound "macron:11" # cut 1
# gain 0
# room 0.4
do
setcps 0.5
d1 -- KICK filtre grave
$ s "jazz(<3!3 5>,11)"
# gain 0.9
# lpf 100
d2 -- SNARE contretemps
$ whenmod 4 3 (fast "2 4")
$ s "~ snare:2"
|- note (slow 8 $ range 0 8 sine)
# room 0.2 # size 0.4 # dry 1
# gain 0.9
d3 -- Drumroll (metronome)
$ s "d*4" # s "drum:8"
# gain 0.9
d5
-- $ TODO guitare
-- superimpose (swing 2 . (|+ note 36))
$ note ("0" + "c5(<3 <5 4>>,8)") # s "bass3:5"
# gain 0.8
do
unmute 2 -- snare
unmute 3 -- Drumroll
unmute 6
unmute 1
setcps 0.3
d1 -- Breakbeat
$ superimpose (const -- BEAT
$ rarely (0.125 ~>)
$ "k . k(<3!3 5>,8)"
# s "kick:5" # lpf 200
# gain 0.8
)
$ whenmod 32 16 ( -- pont!
mask "t(6,8)" -- cut progressif
)
$ whenmod 8 6 ( -- pont!
mask "t(5,8,2)" -- cut progressif
)
$ loopAt 2 -- Etire le break
$ slice 8 ( -- Decoupage
"0*2 1 [0|2] [0|3] <0 4> <0!4 5!4> <0 6> <0 7>"
)
$ s "break" -- Notre break
# gain 0.8 -- Volume
d2 -- Snare accelere sur la fin
$ rarely (fast 2)
$ whenmod 4 3 (ply "2 4")
$ s "~ sn:1" # gain 0.9 # note (-4)
d3 -- Piano main gauche base accords
$ superimpose ( -- chhoeurs!
(# s "moogBass")
. (|- note 12)
. (# gain 0.9)
. (# sustain 3.5)
)
$ note ("<c4'maj c4'min d4'maj c4'maj>")
# s "superpiano"
# velocity (0.65 + (perlin * 0.2))
# sustain 1
d4 -- Bassline
$ mask "t(<1!4 4 2!3 3 4!7>,4)"
$ off (1/24) (|- gain 0.1)
$ note (scale "minor" -- gamme mineure
"<0!2 6!2> ~ [5 4] <0 5>"
)
# s "bass3:4"
-- # lpf 2000
# speed 0.6
# gain 1.1
d6 -- Drumroll
$ sometimes (juxBy 0.5 degrade)
$ fast "8 <8!3 16 8!3 16!5 [32 16]!2 [32 . 32 16]!2 [32 . 32 8]!2 [16 32]!4>"
$ s "drum:8"
# gain 0.7
d7 -- Cymbales
$ slow 2
$ sometimesBy "0 0.5" (# n "1")
$ stut 4 0.9 0.125
$ note ("<0 -4>" + "0(3,3)")
# s "808cy"
# gain (slow 10 $ range 0.5 0.7 saw)
d8 -- bourrasque space
$ whenmod 16 10 (
(swing 2) . (chop 2)
)
$ s "space:3"
# speed 0.4
# gain 0.5
# room 0.8
d10 -- Random pistolets
$ sometimesBy "<0 0.25>" (# gain "0!30 0.6 0.9")
$ s "~!30 s s"
# s "[snare:57,808cy:0]"
# pan 0.6
# gain 0
-- Cymbal 7/8
once $ s "space:2" # gain 0.8
"space:0" -- zip soucoupe
"space:1" -- respirateur
"space:2" -- respirateur court
"space:3" -- vent spacial
d5
$ splice 8 "[0*2, [~ 2]*2]"
$ s "bsguitar:4" # gain 0.9
-- Pause techno
do
d1
$ whenmod 16 14 (fast 2)
$ whenmod 16 10 (slow 2)
$ s "jazz(4,8)"
# hpf (slow 4 $ range 50 400 perlin)
d3 $ sometimes (ply 2)
$ s "ho*8" # n (irand 7) # gain 0.4
d2
$ whenmod 4 3 (fast 2)
$ s "~ cp:1"
# room 0.7 # sz 0.4
# dry 1.1
d4
$ superimpose ( -- basse grave
(|- note 12)
. slow 8
. (|- gain 0.05)
. (# room 0.5)
. (# size 0.5)
)
$ every 4 rev
$ note (scale "aeolian" (run 8) - 24)
# s "supersaw" # voice 0.1
# gain 0.6
d5 $ note (scale "minor" $ snowball 4 (+) (slow 2) $ (run 3))
# sound "gtr"
# gain 0.7
-- Battle de pianos!
resetCycles
d3 $ s "dr*4"
do
setcps 0.5
d1 -- Kick basique
$ whenmod 32 24 ( -- Break silence
mask "t(1,2)"
)
$ whenmod 4 3 (
(>| n "0(3,8) . ~")
. (|+ gain "0 0.05 0.1 0.15")
)
$ n "0"
# s "jazz" # gain 0.7
# cut 1
d2 -- Snare contretemps
$ whenmod 32 24 ( -- Break silence
fast "<0!4 1 2 4 8>"
)
$ s "~ snare:48"
# gain 0.8
# note (slow 2 "<0 1>" - 6)
d3 -- Metrono-roll
$ whenmod 32 24 ( -- Break silence
slow "<2!6 [0.5 0.25] 0.25>"
)
$ someCyclesBy "<0!3 <0.25!3 0.75>>" (fast "2 [2|4]")
$ s "dr*4" # gain 0.8 # pan 0.3
d4 -- Toms TODO variations sur rounds
$ juxBy 0.7 rev
$ s "[808lt(5,8),808mt:1(<3!3 5!3>,8,[0|3])]" # gain 0.5 -- todo toms?
d5 -- Piano J1
$ swingBy (slow 32 "<0!2 1/3 0.5>") 8
$ mask (slow 32 $ "<f t>") -- Rounds
$ note (
"0!6 [~ 0] <-2!3 3 -2!2 3!3 7 9 7 5 3 -2!2>" -- rythme+melody 16
+ "d4")
# sustain (1/4)
# s "superpiano"
# velocity (0.75 - (perlin * 0.15))
# gain 0.8
# room 0.5 # sz 0.5 --TODO fine-tune reverb
d6 -- Piano J2 accords fous !
$ sometimesBy "0 0.25" ("[1|2]/8" ~>)
$ mask (slow 32 $ "<f f t t>") -- Rounds
$ note (
"[<0!15 0?> <0!7 ~> <~!3 0> 0]*4" -- rythme fou
+ "<d6'maj f6'maj c6'min d6'maj>")
# sustain (1/4)
# s "superpiano"
# velocity (0.6 + (perlin * 0.15))
# gain 0.8
# room 0.2 # sz 0.2 --TODO fine-tune reverb
d7 $ silence -- TODO BASS
once $ s "industrial:6" # gain 0.8
......@@ -97,4 +97,4 @@ once
$ note (scale "major" 1 - (run 4))
# s "kaamelott:1"
# end 0.04 # cut 1
# gain 0.9
# gain 0.8
-- Good Morning Minneapolis
do
let melody = "<d4'min d4'min <a3'min g4'min e4'min> d4'min>"
let melodyFirst = "<d3 d3 <a3 g3 e3> d3>"
setcps 0.5
unsolo 1 -- Kick
unsolo 2 -- Snare
unsolo 3 -- Drumroll
solo 4 -- Piano
unsolo 5 -- Basse/Sirene
unsolo 6 -- Hit roll
unsolo 7 -- Claps fantomes
unsolo 8 -- Guns + Fire
d1
$ mask "t(1,4)"
$ sometimesBy "<0 0.1>" (# hpf 200)
$ s "k . k(<1 <3 5>>,8)" -- Hip beat
-- $ whenmod 16 10 (slow "<4!4 2>") $ s "k k <k!2 ~ k> <k!3 k*2>" -- TECHNO
# "reverbkick" # lpf (slow 64 $ range 500 2500 sine)
# gain 0.65
d2
$ every' 8 7 (mask "f t!3" . jux rev)
$ s "~ s(<1!3 3>,8)" # s "snare:20"
# gain (slow 32 $ range 0.5 0.7 saw)
# pan 0.3
d3 -- Drumroll opposé hit roll
-- $ fast "<4!3 <2 [2 <8 [8 16]>]>>" -- Waiting roll
$ fast "<16!3 [16 8]> [8 <8!3 16>]" -- Running roll
$ s "drum:8"
# gain (slow 40 $ range 0.5 0.75 sine)
d6 -- Hit roll opposé drumroll
$ every' 4 3 ( -- acceleration + cymbale
fast "2 1" . (# n "0!3 1")
. (|* gain "1!3 <0.65 0.8>")
)
$ s "hh(<3!4 5!4>,8)"
# gain (slow 40 $ range 0.55 0.9 cosine)
# pan 0.7
d4
$ degradeBy "0 0.9!8" -- OUTRO
$ mask "t(<1 2!2 4>,4)"
$ superimpose (
often (off 0.125 (|+ note "<0!3 12>"))
. arp (slow 8 $ "<up down updown downup>")
. (|+ note 36)
. (# sustain 0.5)
. (# velocity 0.4)
. (# room 0.2)
. (# sz 0.8)
. (|+ pan 0.15)
)
$ note (melody)
# s "superpiano"
# velocity 0.3
# sustain 1
# room 0.4 # size 0.2
# pan 0.5
d5 -- Basse + Sirene
$ whenmod 64 32 (
superimpose (
slow 4
. (# s "supersiren")
. (|- note 12)
. (|* gain 1.1)
. (# room 0.5)
))
-- $ chop 4 $ often (ply 4) $ (# crush 4) -- TECHNOPHILE
$ note (melodyFirst)
# s "supersaw" # voice 0.02
# gain 0.45
# pan (slow 10 $ range 0.6 0.8 sine)
d7 -- Claps fantomes
$ s "~ cp"
# room (range 0.5 0.95 perlin)
# sz (range 0.2 0.9 perlin)
# dry 1.2
# gain 0.65
# pan (slow 8 $ range 0.45 0.65 saw)
d8 -- Gunfire
$ sometimes (
superimpose (const -- pistolets
$ sometimes ( -- réplique
off 0.5 (|+ gain 0.1)
. (# room 0.25))
$ often (stut 4 0.9 (1/16)) -- échos
$ s "~ ~ ~ snare:57"
# speed (range 0.4 1.1 perlin)
# gain (range 0.45 0.6 rand)
# cut 80
# pan (range 0.2 0.8 perlin)
)
)
$ s "fire"
# begin (slow 4 "<0 0.2 0.5>")
# cut 8
# room 0.6 # size 0.4
# speed (range 0.8 1 perlin)
# gain 0.7
......@@ -38,7 +38,7 @@ $ sometimes (off 1 (|- gain 0.2)) -- copie mesure suivante
$ sometimes (1 ~>) -- decalage mesure suivante
$ degradeBy (slow 64 $ sine * 0.8 + 0.2)
$ s "birds" # n (irand 10)
# gain 0.7
# gain 0.6
d7 -- moineau roll
$ sometimesBy (slow 16 $ sine * 0.95) (off (1/16) id)
......@@ -47,10 +47,10 @@ $ s "birds3(<[3|6] 8>,8)"
d9 -- scratched birds
$ fast 2
$ s "~ [b b?]]"
$ s "~ [b b?]"
# s "birds3"
# n (wchoose [(9,13),(1,14)])
# gain (slow 64 $ cosine * 0.5 + 0.3)
# gain (slow 64 $ cosine * 0.5 + 0.2)
# room (slow 64 $ cosine * 0.8 + 0.05)
# size (slow 64 $ cosine * 0.8 + 0.05)
# dry 0
......@@ -67,7 +67,7 @@ $ note "<0 <3 [3 3]> <0 [3 0]>>"
# hpf (slow 64 $ cosine * 900 + 100)
# room (slow 64 $ 1 - cosine * 0.9)
|- note 24
# gain 0.75
# gain 0.85
d11 -- cymbale
$ whenmod 64 32 (always (# n 3)) -- prolonge
......
......@@ -4,21 +4,22 @@
-- region Part 1: setup accel vivant
do
unsolo 1 -- kick
solo 1 -- kick
unsolo 2 -- snare
solo 3 -- drumroll
unsolo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
unsolo 5 -- siren
unsolo 6 -- clap
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 gKick = 0.8 * mKick -- /128 On off semi-onon fadeout
let gSnare = 0.65
-- 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.5 -- /128 On off semi-onon fadeout
let gSnare = 0.6
let gHats = 0.7
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 gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8
let gDrums = 0.5
let gBass = 0.5 * "<1!16 <[1 0]*4 [0 1]*4>!8 1!8>"
let gSiren = 0.85 * "<0!64 0.7!32 0.6!32 0.5!32 0.4!32>"
let gSynth = 0.5 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.6
let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO
d1 -- Kick
......@@ -53,7 +54,7 @@ do
$ s "dr*8"
# s "ifdrums:1"
# pan 0.4
# gain 0.9
# gain gDrums
d4 -- Basse
$ superimpose ( -- Echo octave
(|+ note 12)
......@@ -80,10 +81,10 @@ do
# sustain 4
# gain 0
d6 -- claps graduels sur 64
$ whenmod 64 48 (>| n "~ 0*2 ~ 0*2")
$ whenmod 64 40 (>| n "~ 0?*2 ~ 0?*2")
$ whenmod 64 32 (>| n "~ 0 ~ 0*2")
$ whenmod 64 0 (>| n "~")
-- $ whenmod 64 48 (>| n "~ 0*2 ~ 0*2")
-- $ whenmod 64 40 (>| n "~ 0?*2 ~ 0?*2")
-- $ whenmod 64 32 (>| n "~ 0 ~ 0*2")
-- $ whenmod 64 0 (>| n "~")
$ whenmod 16 13 (# note "<2 4 6>")
$ n "~ ~ ~ 0"
# s "clap:1"
......@@ -103,71 +104,72 @@ do
"<0 0 0 0 2 2 4 -2>")
# gain gSynth
-- endregion
once $ s "abstract:1" # cut 1 # gain 0.6
-- endregion
-- region Part 2: Dry Melancholia
do
solo 1 -- kick
solo 2 -- snare
solo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
solo 6 -- clap
solo 7 -- synth
let gKick = 0.8 -- /128 On off semi-onon fadeout
let gSnare = 0.65
let gHats = 0.7
let gBass = 0.7
let gSiren = 0.6
let gSynth = 0.55 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO
d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0"
# s "kick:5"
# gain gKick
# lpf (slow 16 $ range 500 200 isaw)
d2 -- Snares + hats
$ n "~ <3*2 3(<1 3>,8) 3 [3 ~ 3 2]> ~ [2 <~ 3?>]"
# s "sn"
# pan (slow 8 $ range 0.3 0.6 sine)
# dry 1
# gain gSnare
d3 -- Drum metronome chuchoté parfois fou
$ someCyclesBy "<0 0.5!2 0.75>" (fast "<2 2 2 [2|4]>")
$ s "dr*4"
# s "ifdrums:1"
# pan 0.4
# gain 0.9
# room (slow 16 $ range 0 0.15 saw)
d4 -- Basse
$ superimpose ( -- Echo octave
(|+ note 12)
. (|- gain 0.2)
. (# room 0.5)
)
$ note (scale "aeolian"
(
"0(2,8) [5 4]*<1!3 2> <0!4 2 5>"
+ melody
) - 36)
# s "supersaw"
# voice 0.1
# gain gBass
d5 -- Siren choppee
$ mask "t(1,4,3)"
$ segment 4
$ slow 2
$ note (scale "aeolian"
(
melody
) - 36)
# s "supersiren"
# sustain 4
# gain gSiren
# cut 5
solo 1 -- kick
solo 2 -- snare
solo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
solo 6 -- clap
solo 7 -- synth
let gKick = 0.6 -- /128 On off semi-onon fadeout
let gSnare = 0.65
let gHats = 0.75
let gBass = 0.6
let gSiren = 0.6
let gSynth = 1 * "<0!16 <[1 0]*4 [1? 1]*4>!16 1!32>"
let gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO
d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0"
# s "kick:5"
# gain gKick
# lpf (slow 16 $ range 500 200 isaw)
d2 -- Snares + hats
$ n "~ <3*2 3(<1 3>,8) 3 [3 ~ 3 2]> ~ [2 <~ 3?>]"
# s "sn"
# pan (slow 8 $ range 0.3 0.6 sine)
# dry 1
# gain gSnare
d3 -- Drum metronome chuchoté parfois fou
$ someCyclesBy "<0 0.5!2 0.75>" (fast "<2 2 2 [2|4]>")
$ s "dr*4"
# s "ifdrums:1"
# pan 0.4
# gain 0.9
# room (slow 16 $ range 0 0.15 saw)
d4 -- Basse
$ superimpose ( -- Echo octave
(|+ note 12)
. (|- gain 0.2)
. (# room 0.5)
)
$ note (scale "aeolian"
(
"0(2,8) [5 4]*<1!3 2> <0!4 2 5>"
+ melody
) - 36)
# s "supersaw"
# voice 0.1
# gain gBass
d5 -- Siren choppee
$ mask "t(1,4,3)"
$ segment 4
$ slow 2
$ note (scale "aeolian"
(
melody
) - 36)
# s "supersiren"
# sustain 4
# gain gSiren
# cut 5
-- endregion
......@@ -176,16 +178,16 @@ do
solo 1 -- kick
solo 2 -- snare
unsolo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
unsolo 4 -- bass
unsolo 5 -- siren
solo 6 -- clap
solo 7 -- synth
let gKick = 0.8 -- /128 On off semi-onon fadeout
let gKick = 0.6 -- /128 On off semi-onon fadeout
let gSnare = 0.65
let gHats = 0.7
let gBass = 0.7
let gSiren = "<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 gHats = 0.75
let gBass = 0.6
let gSiren = 0.3 * "<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 gClap = 0.8
let melody = "<0 0 0 0 2 2 4 -2>"
setcps 0.5 -- TECHNOOO
......@@ -252,15 +254,15 @@ $ n "0*12"
-- region Part 4: Résolution
do
solo 1 -- kick
solo 2 -- snare
solo 3 -- drumroll
solo 4 -- bass
solo 5 -- siren
unsolo 2 -- snare
unsolo 3 -- drumroll
unsolo 4 -- bass
unsolo 5 -- choeur
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 * mKick -- /128 On off semi-onon fadeout
let gSnare = 0.65
let gSnare = 0.6
let gHats = 0.7
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>"
......@@ -300,7 +302,7 @@ d3 -- Drumroll chuchoté
$ s "dr*8"
# s "ifdrums:1"
# pan 0.4
# gain 0.9
# gain 0.7
d4 -- Basse
$ superimpose ( -- Echo octave
(|+ note 12)
......@@ -330,3 +332,125 @@ d7 -- synthe echos electrique
)
# gain gSynth
-- endregion
-- region Part 5: Restart minimal
do
unsolo 1 -- kick
unsolo 2 -- claps
unsolo 3 -- drumroll
solo 4 -- bass
unsolo 5 -- Choeurs
unsolo 6 -- piano
unsolo 7 -- synth
unsolo 8 -- Pistolets
setcps 0.5 -- TECHNOOO
d1 -- Kick
$ whenmod 16 14 (# silence) -- break frequent
$ n "0 0 <0!3 0?> 0" # s "reverbkick"
# lpf 500 # gain 0.9
d2
$ whenmod 4 3 (sometimesBy "0 0.75" (ply 2))
$ fast 2 $ s "~ cp" # gain 0.8
d3
$ whenmod 32 28 (# gain 0)
$ whenmod 16 8 (fast 2)
$ fast "1 <1!3 2>"
$ s "ifdrums:1*4"
-- # gain 0.9
d4 -- Basse nappes + arp aigues
$ superimpose (
fast 4 .
arp "<pinkyup>"
. (|+ gain 0.0)
. (|+ note 12)
. (|+ note 12)
)
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>/4")
# s "supersaw"
# voice 0.01
# gain (slow 64 $ range 0.35 0.4 sine)
d5 -- Choeurs
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>/4")
# s "moogBass"
# gain (slow 100 $ range 0.65 0.9 cosine)
d6
$ mask "t([1|2|2|4|8],8)"
$ often (off 0.25 rev)
$ off (0.125) (|+ note
(slow 4 $ "<12 7>")
)
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>")
# s "superpiano" # velocity 0.5
d8 -- Random pistolets fin boucle 64
$ whenmod 64 48 (sometimes (# gain 0.8))
$ every' 4 3 ((sometimes $ jux rev) . (fast 2))
$ sometimesBy "0 0.5" ((ply 2) . (|+ note "[-12|+6]"))
$ s "~ s(<3!3 5>,8,3)"
# s "snare:57"
# pan 0.6
# gain 0
-- endregion
-- region Part 6: Finish breakbeat
do
solo 1 -- kick
solo 2 -- claps
solo 3 -- drumroll
unsolo 4 -- bass
solo 5 -- Choeurs
unsolo 6 -- piano
unsolo 7 -- synth
solo 8 -- Pistolets
setcps 0.5 -- TECHNOOO
d1
$ whenmod 4 3 (iter 4)
-- $ fast 4
$ loopAt 2
$ slice 8 "[0(3,8) 1]" -- finish [1]
$ s "break"
# gain 0.8
d2
$ whenmod 4 3 (sometimesBy "0 0.75" (ply 2))
-- $ fast 2
$ s "~ cp"
# lpf (slow 32 $ range 20 20000 saw)
# hpf (slow 64 $ range 200 1000 isaw)
# gain 0.8
d3
$ whenmod 32 28 (# gain 0)
$ whenmod 16 8 (fast 2)
$ fast "1 <1!3 2>"
$ s "ifdrums:1*4"
# gain 0.7
d4 -- Basse nappes + arp aigues
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>/4")
# s "supersaw"
# voice 0.01
# gain 0
d5 -- Choeurs
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>/4")
# s "moogBass"
# gain 0.8
d6
$ never (off 0.25 rev)
$ rarely (off (0.125) (|+ note
(slow 4 $ "<12 7>")
))
$ note (scale "lydian"
"<c4'maj e4'maj c4'maj e4'min>")
# s "superpiano" # velocity 0.65
d8 -- Random pistolets fin boucle 64
$ whenmod 64 48 (sometimes (# gain 0.8))
$ every' 4 3 ((sometimes $ jux rev) . (fast 2))
$ sometimesBy "0 0.5" ((ply 2) . (|+ note "[-12|+6]"))
$ s "~ s(<3!3 5>,8,3)"
# s "snare:57"
# pan 0.6
# gain 0
-- endregion
do
d1
$ sometimesBy "0 0.01!3 0 0.05!3" (0.125 ~>)
$ whenmod 8 6 (degradeBy "0 . 0.9 1")
$ ply 4 $ s "kick:5"
# gain 0.5
# release 0.6
# lpf (slow 2 $ range 20 5000 perlin)
d2 -- Snares noise etire
$ whenmod 8 7 rev
$ fast 2
$ s "~ s*<1!3 <2 [2 4]>>" # s "glitch:7"
# speed (range 0.5 1 perlin)
# lpf 4000
# gain 0.7 # pan (slow 4 $ "<0.3 0.25> <0.3 0.35>")
d3
$ every 5 (sometimes degrade)
$ every 4 (often (fast 2))
$ every 3 (sometimes (ply 2))
$ sometimesBy "0 0.5" ((# s "hc:1") . (|- gain 0.1))
$ s "hh*8"
# gain 0.75
# cut 3
d4 -- MULTIBASSE
$ superimpose ( -- bassline
(+| note ("[0 7](<3!3 4>,8)" - 24)) .
(|* gain 1.3) .
(|- pan 0.1) .
(# voice 0.1)
-- (# crush (slow 8 $ range 5 8 perlin))
)
$ superimpose ( -- folie aigue electrique
-- (stut 8 0.5 (1/16)) .
ply "<2 4!2 8!2 16!4 32!8>" .
(|+ note "<c6'maj f6'min c6'min f6'maj>") .
(|* gain 0.5)
)
$ note ("<0 2 0 5 8 5 2 0>/4")
|- note 12
# s "supersquare"
# voice (slow 16 $ range 0.05 2 perlin)
# gain 0.45
# pan 0.6
......@@ -127,7 +127,7 @@ $ n "[~ <1 ~ ~> <~ 1 ~> <~ ~ 1>]/2"
every 8 (1 -) -- non, à droite!
rand / 4 -- plutot à gauche...
)
# gain (slow 32 $ sine * 0.2 + 0.7)
# gain (slow 32 $ range 0.2 0.9 sine)
d9 -- glitches!
$ every 4 (sometimesBy 0.75 (jux rev))
......
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