Commit 1667a784 by PLN (Algolia)

Session: pitbull with Raph

parent 914eae52
......@@ -44,6 +44,10 @@ soir noir
[TODO PICKME <3]
- IT'S ABOUT TIME
- Quartier Latin
- Maudits Insectes
### Decembre en fanfare
- Pitbull Punk
### Novembre calme
- Module : Latin (Mal nomme)
......@@ -996,3 +1000,9 @@ Nass Revient
Nuit Agitee
Love First
Permanence?
### CCC ??!?
something about dnb
Blue Gold
It's About Time !!?!
......@@ -12,8 +12,10 @@ let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
-- Modified blues to add a seventh with bflat
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"]
let bluesM = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"]
-- let blues = bluesM
let gDJF = (# djfbus 1 (slow 32 $ range 0.2 0.8 saw))
let gDJF = id
d1 $ gF1 $ gM2
......@@ -74,7 +76,7 @@ d5 $ gF3 $ gM3
# "cpluck:2"
# pan 0.3
# cut 5
# gain 1.075
# gain 1.75
# lpf 300
d10 $ gF3 $ gM3
-- $ superimpose (|+| note "[0 0(<3!3 5>,8)]")
......
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>")
$ midiOff "^42" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~")
$ "[jazz,808bd:3,kick:4]"
-- $ "[808bd:4]"
# gain 1.5
d2 $ gF1 $ gM1
$ whenmod 64 32 (superimpose (# "cp"))
$ "<[~ s]!16 [~ s ~ <s <s*2 [s*2 ~ s?]>>]!16>"
# "rampleM1:10"
# gain 1.5
d3 $ gF1 $ gM1
$ midiOn "^44" (slow 4)
$ midiOn "^76" (ply 2)
$ "dr*[8 <8 16 24 [8 <4 8 16 <4 8>>]>]"
# gain 1.2
# "rampleS37:5"
d7 $ gF1 $ gM1
$ "~ h ~ h ~ h*<1 <2 4>> ~ h*<2 1>"
# gain 1.1
# "rampleD2:3"
# cut 7 # legato 0.6
# att 0.05 # room 0.3
# note "10"
d8 $ gF1 $ gM1 $ loopAt 2 $ chop 8
$ midiOn "^36" (loopAt 2 . (# n "23")) --
$ midiOn "^56" ((# n "19") . (|* gain 1.2)) -- Pure COMEON!
-- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ midiOff "^60" (mask "t(4,8)")
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 4 "[0 .. 3] . <[0 .. 3]!1 [0 1 . 3*2]>"
. loopAt 0.5 . (# "breaks165")
-- . (# octersub 2)
)
$ "jungle_breaks:100"
# gain 1.4
d10 $ "risers:4/8" # cut 10
......@@ -18,7 +18,7 @@ d2 $ gF2 $ gM1
d3 $ "hh*8"
d4 $ gF2 $ gM2
$ slice 8 ("<0 1 2 3 4 5 6 7>")
$ "trance_bass:2" show
$ "trance_bass:2"
# speed 0.85
# cut 4
# room 0.4 # dry 0.8
......
......@@ -51,7 +51,7 @@ d7 $ gF3 $ gM3
# room 0.4
# delay (slow 16 $ range 0.4 "<0!32 0.8!32>" saw)
# delayt 0.125 # delayfb 0.5
# gain 1.1
# gain 1.4
d8 $ gF1 $ gM1 $ chop 8
$ midiOff ("^60" + "^92") (mask "f(4,8)")
$ midiOn ("^56" - "^92") (chop 8 . loopAt 2 . (# "jungle_breaks:45"))
......@@ -90,7 +90,6 @@ d11
. (# begin 0.33)
. (# end 0.7)
)
-- $ "<~ ~ movie_ocean:1 ~>"
$ midiOn "^30"(
(stutWith 4 0.5 (# begin "0.53") . (ply "<2 4 4 8>"))
. (# "movie_cat:23")
......
......@@ -64,7 +64,7 @@ d10 $ gF3 -- Self-destruction riser
d6 $ gF1 $ gM1 $ "~ ~ ~ 808cy:1"
d9 $ gF3
$ mask "<<t!4 f!4> t t f>"
$ note ("<d4!12>" + 5)
$ note ("<d4/2!12>" + 5)
# "rhadamanthe_vocal:5"
# cut 9
# begin "<0!16 0!8 0.25!5 0.3!3>"
......@@ -139,7 +139,7 @@ d8 $ gF1 $ gM1
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# gain 1.2
# gain 1.4
d11 $ gF2 $ gM3 -- Synthetique violon
$ note (stack ["<b6!3 [b6 a6@7]>", -- Low basis
"~ <b7!3 [b7 [<d8 <[d8 ~ e8 f8 e8 <d8@2 a8@2>@2]@3>>]]>"
......
......@@ -74,3 +74,4 @@ d8 $ gF1 $ gM1
$ "jungle_breaks:1"
# cut 8
# pan "0.8 0.2 0.8 [0.2 0.8]*2"
# gain 1.2
do
-- resetCycles
setcps (112/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k k*<1!3 2>")
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
$ "[kick:4]"
# gain 1.2
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ "[snare:39]"
# gain 1.45
d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
# gain 1.2
-- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ superimpose ((|* gain "^33") . (# n 12)
-- . (# cut 41)
)
$ note ("d*<3 4 3 2> . ds ds df"
+ 2 -- Calage
)
# "vec1_acid:11"
# room 0.5 # sz 0.5
# crushbus 41 (range 16 3.5 "^53")
-- d5 $ gF3 $ gM3
d5 $ gF3 $ gM3
$ superimpose ((# hpf 500) . (ply "<1!3 <2 4>>")
. (# crushbus 51 (range 16 3.5 "^54"))
)
$ note ("a(3,8) . as*<1 2> af" + "<0!8 12!8>")
# "cpluck:1"
# room 0.3
# octerbus 52 (range 0 0.8 "^34")
# octersubbus 53 (range 0 0 "^34")
# octersubsubbus 54 (range 0 0 "^34")
d7 $ gF3 $ gM3
$ note ("0 12 0 12 0 <12 12 24 24> 0 12"
+ "a . as af"
+ "<0!8 12!8>" - 24)
# "moogBass"
# room 0.4
# sustain 2
# att (range 0.01 0.13 "^55")
# chorus 2
d8 $ gF1 $ gM1
$ loopAt 2
$ midiOff "^60" (mask "f(4,8)" . chop 8)
$ midiOn "^56" (# "jungle_breaks:7")
$ midiOn "^36" (# "jungle_breaks:37")
$ chop 16 $ "jungle_breaks:101"
# cut 8
d9 $ gF3 $ gM3 $ note "<a as <a a df5 df5> <d df>>"
# "moog"
# cut 9
# room 0.3 # dry 0.5
a as a d
a as a df
a as df4 df3
a as df4 c
once
$ "vec1_acid:11" |+ note 2
-- $ "superpiano"
# note ("c"
)
......@@ -42,7 +42,7 @@ d4 $ gF2 -- Meth == Crash
# room 0.2 # sz 0.3 # dry 1.1
# midiG' "^83" 0 1.2
d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot
$ midiOn "^57" (id) show
$ midiOn "^57" (id)
$ midiOff "^57" (slice 8 "0 0 <~!8 0!8> 0*<1!8 2!8>" )
$ loopAt 16
$ chop 8
......
do
-- TRIGGER INTRO :)
-- resetCycles
once $ "90s_synatm:8" # gain 0.5 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
-- once $ "90s_synatm:8" # gain 0.5 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
......@@ -72,13 +72,17 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS
$ midiOn "^58" (chop "<4 8 16 [32 64 . 128]>")
$ "90s_synatm:14/4"
# cut 5
# room 0.65
# room 0.85
# sz 0.8
# pan 0.43
# dry 1
# delayfb 0.25
# delayt 0.25
# delay 0.8
# panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 16 2.85 "^54")
# octersubbus 53 (range 0 1.85 "^34")
-- # midiG' "^82" 0 2
# gain 1.5
d7 $ f3 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>")
......@@ -107,7 +111,7 @@ d8 $ f1 $ gMute2 -- Breaks divins
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1.2
-- # midiG' "^84" 0 1.2
# pan 0.8
......
......@@ -39,8 +39,8 @@ d4 -- Basse convaincante
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
$ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^17") (struct "<t [t t]>")
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
$ someCyclesBy (1 - "^17") (struct "<t [t t]>") -- FIXME
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]") -- ???
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
# "bassWarsaw"
# room 0.2 # sz 0.1
......
......@@ -70,4 +70,5 @@ d8 $ gF1 $ gM1
# att 0.05
# rel 2
# gain 1.4
d9
......@@ -21,7 +21,7 @@ d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "[rampleM1:10]"
# gain 0.9
# gain 1.2
# pan 0.6
# room 0.84 # dry 0.95 # sz 0.1
# lpf 4650
......@@ -33,9 +33,9 @@ d3 $ gF1 $ gM1 -- Highest hats
# "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# gain (1.1 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4
d4 $ gF2 $ gM3 -- LOOP Bass Jazzy Electrique
$ loopAt 2
$ midiOn "^33" (chop 2)
$ midiOn "^89" (chop 8)
......@@ -45,16 +45,25 @@ d4
# crushbus 41 (range 16 4.5 "^53")
# room 0.3
# cut 4
# octer 0.9
# octersub 0.5
d5 $ n "<10 10 11 10 10 12 11 12 11 12 12 11 11 12 12 13>" # "nujazz_guitar120" # cut 5
# octerbus 42 (range 0 0.9 "^17")
-- # octersub 0.5
d5 $ gF1 $ gM1
$ n "<10 10 11 10 10 12 11 12 11 12 12 11 11 12 12 13>"
# "nujazz_guitar120" # cut 5
# crushbus 51 (range 16 4.5 "^54")
# hpfbus 51 (range 0 1500 "^54")
d7
$ slice 4 "0 [~ 1] 2 <2 3>"
$ chop 16
# hpfbus 51 (range 10 1500 "^54")
# att 0.05
# rel 2
d7 $ gF1-- Comeon!
-- $ slice 4 "0 [~ 1] 2 <2 3>"
$ slice 8 "<<7 7*2 7 [7*2 7]> ~> . ~" -- COMEON!
-- $ chop 16
$ loopAt 2
$ "jungle_breaks:19" # cut 7
$ "jungle_breaks:19"
# hpf 1000
# att 0.09
# rel 2
# cut 7 # gain 1.4
d8 $ gF1 $ gM1 -- BREAK THIS FLOOR
$ midiOn "^60" (slice 8 $ run 16)
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
......@@ -63,7 +72,7 @@ d8 $ gF1 $ gM1 -- BREAK THIS FLOOR
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45")) -- ORLEANAISE
$ loopAt 4
$ "nujazz_beats120:2"
# pan "0.2 0.8 0.2 0.8"
# pan "0.3 0.7 0.3 0.7"
-- FIXME GRAVEYARDDD
do
setcps (140/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ "k(<1 1 3 2> ,8) . ~ <~!8 k!24> ~ [~ <~ k*<1 2>>]"
-- # "[rampleM8:0,rampleM12:0]"
# "[kicklinn]" -- Doux
# gain 1.4
-- # room 0.1 # sz 0.5 # dry 0.9
d2 $ gF1 $ gM1 $ "~ sn ~ sn" # "snare:61"
d3 $ gF1 $ gM1
$ whenmod 64 16 (ply "1 <2 2 1 <2 [2 4]>>")
$ "dr*[8@3 <8!3 16>]"
# delay 0.2 # delayt "s" # delayfb 0.4
d5 $ gF3 $ gM3
$ midiOn "^90" (struct "t*8")
$ slow 2 $ slice 8 "<0 0 [1 2] 3 4!4 5!4 6 6 7 7>"
$ "latin"
# cut 5
d8 $ gF1 $ gM1
$ struct "t(<4 4 8 8 16 16 [16 32 16 8]!2>,32)"
$ chop 32 $ loopAt 2
$ "jungle_breaks:30" # cut 8
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 k [~ k*<1 2>]>")
$ midiOff "^42" (<| "k ~ . ~ k ~ ~")
$ "[jazz,808bd:3]"
-- $ "[808bd:4]"
# gain 1.4
d2 $ gF2 $ gM1
-- $ gF1 $ gM1
$ "~ s ~ s"
-- $ "~ s ~ [s*<1!3 2> ~]"
# "[snare:70,sn:24]"
-- # note "-4"
-- # gain 1.2
d3 $ gF1 $ gM1
$ "d(3,8) d(<3 3 <3 5 5 3> <[8 16] [16!7 12]>>,8)" -- Modified Drill
-- # "snare:49"
# "drum:2"
# gain 1.3
# cut 3
# delayt 0.125
# delay 0.15
# delayfb (slow 16 $ range 0.2 0.75 perlin)
d4 $ gF2 $ gM3 -- BASSE QUI DONNE DES AILES <3
$ midiOn "^57" (|- note 12)
$ midiOn "^89" (ply "1 . <8 <12!3 24>>")
$ whenmod 128 64 ( -- Echoes of triplets
off 0.5 (struct "~ t(3,8)" . (|+ note 12) . ( |* gain 0.93)))
$ whenmod 64 48 (>| note "<d4 f4 a3 g3 d4 a3 <g3!0 [g3@3 [g3 a3]]> d3>")
$ note "<d4 a3 g3 d3 g3 f3 [b2@3 [b2 f3]] d3>"
# "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53")
# gain 1.5
d5 $ gF3 $ gM3
$ someCyclesBy "<1!32 0!32>" (someCyclesBy (slow 16 $ range 0.99 0.1 saw) (degradeBy "~ 0 ~ <1!3 1?>")) -- La pluie
$ struct "~ t ~ t*<1!3 2 1 2 1 2>"
$ whenmod 32 24 (>| note "<d4 f4 a3 g3 d4 a3 <g3 [g3@2 [g3 a3]]> d3>")
$ note ("<d4 a3 g3 d3 g3 f3 [b2@3 [b2 f3]] d3>")
# "marimba1"
# octave 6
# bandf 200
# bandfrecv 10
# octerbus 51 (range 0 0.95 "^54") -- ETOILES
# octersubbus 52 (range 0 5 "^34") -- ETOILES
# gain 1.5
# room 0.5
# sz 0.8
-- d8 $ loopAt 2 $
d8 $ gF1 $ gM1
$ midiOn ("^60"- "^92") (slice 8 "~ 0 ~ <1 3(<1 3 3 5>,8) 5 7*<1!3 2>>")
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
-- . (# octersubsub 1.4)
. (# lpf 2500)
. (# room 0)
)
$ chop 8
$ loopAt 2
$ midiOn "^36" (ply "<1!3 [1!3 2]>" . loopAt 0.5 . (>| "breaks165"))
$ "jungle_breaks:107"
# cut 8
# gain 1.4
# room 0.4 # dry 0.8 # sz 0.9
do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k k <k k*2 k [<~!3 k*2> k*<1 2>]>"))
$ midiOff "^42" (<| "k ~ . ~ k ~ <~!3 <k k*2>>")
$ "[jazz,808bd:3]"
# gain 1.8
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ s ~ s ~ s ~ <s? s*2>")
$ midiOff "^43" (<| "<[~ s]!12 [~ s ~ [s*<1 2> ~]]!4>")
$ "snare:21" # gain 1.3
d3 $ gF1 $ gM1
$ "dr*[8 8 8 <4 12 12 [<12 32> 16]>]"
# gain 1.2
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ (|- note 24)
$ midiOn "^58" ((|> note "<d b a b>") . (|* gain 0.8))
$ note (
"<g e a d>"
+ "[0,7] . 12 0"
-- "<d b a d>"
)
# "bassWarsaw"
# bandf 200
# bandq 1
-- # octersub 0.5
-- # room 0.64
-- # sz 0.3 # dry 1.2
# gain 1.2
d5 $ gF3 $ gM3
$ midiOn "^58" ((|> note "<[f4, a4, c5, d5] [fs4, a4,d4]>"). (|* gain 0.8))
$ note (
(
-- arp "up" $
"<[g4, b4, d5] [g4, b4, d5, e5] [a5, c5, e5] [a5,c5,d5,fs5]>"
+ "0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0"
)
)
# "FMRhodes2"
# modIndex (range 0 32 "^54")
# legato 1
# room 0.2
# gain 1.1
d9 $ gF3 $ gM3
$ superimpose (arp "pinkyup" . slow 4 . struct "t*4")
$ midiOn "^58" (|> note "<[f4, a4, c5, d5] [fs4, a4,d4]>")
$ note ((
"<[g4, b4, d5] [g4, b4, d5, e5] [a5, c5, e5] [a5,c5,d5,fs5]>"
-- + "0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0"
))
# "moogBass"
# octave "<6!4 5!4 3!5 2!4>"
-- # "superpiano"
# legato 1
# room 0.2
# gain 1.1
d7 $ gF1 $ gM1 $ ply "1 <1 <2 [2 4]>>" $ "[~ hh]*8" # gain 1.4
d8 $ gF1 $ gM1 $ loopAt 1
$ midiOn ("^60"- "^92") (slice 8 "~ 0 ~ <1 3(<1 3 3 5>,8) 5 7*<1!3 2>>")
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
-- . (# octersubsub 1.4)
. (# lpf 2500)
. (# room 0)
)
$ whenmod 8 7 (slice 4 "0 1 2 3 0 1 2*2 3*2")
$ chop 8
$ "jungle_breaks" # n "<104!3 105>"
-- d4 $ gF2 $ gM3 -- BASSE QUI DONNE DES AILES <3
-- $ midiOn "^57" (|- note 12)
-- $ midiOn "^89" (ply "1 . <8 <12!3 24>>")
-- $ whenmod 128 64 ( -- Echoes of triplets
-- off 0.5 (struct "~ t(3,8)" . (|+ note 12) . ( |* gain 0.93)))
-- $ whenmod 64 48 (>| note "<d4 f4 a3 g3 d4 a3 <g3!0 [g3@3 [g3 a3]]> d3>")
-- $ note "<d4 a3 g3 d3 g3 f3 [b2@3 [b2 f3]] d3>"
-- # "bassWarsaw"
-- # crushbus 41 (range 16 3.5 "^53")
-- # gain 1.5
do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k <k!6 ~ ~> k*<<1!3 <0 1>> <2 [4 <4 2 2 4> 2 <4 [8 4]>]>>"))
$ midiOff "^42" (<| "k(<1 1 3 2> ,8) . ~ <~!8 k!24> ~ [~ <~ k*<1 2>>]")
$ "[rampleM8:0,jazz,808bd:3]"
# gain 1.4
# room 0.1 # sz 0.5 # dry 0.9
d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
# "[snare:70,sn:24]"
# note "-4"
# gain 1.2
d3 $ gF1 $ gM1
$ "d(3,8) d(<3 3 <3 5 5 3> <[8 16] [16!7 12]>>,8)" -- Modified Drill
# "snare:49" # gain 0.9 # cut 3
# delay 0.15
# delayt 0.125
# delayfb 0.5
d4 $ gF2 $ gM3
$ note ("c(3,8) c(<3!3 6>,8,<0!7 1>)"
|+ "[c f <ef [ef bf4]>]*2"
)
# "bass3"
|+ note "ds"
# gain 2
# crushbus 41 (range 16 3.5 "^53")
d5 $ gF3 $ gM3
$ note ("c!15 <cs ef f bf4>" + "[0,12]")
# "FMRhodes1"
# chorus 0.5
# modIndex (range 0 4 "^34")
# crushbus 51 (range 16 5 "^54")
# gain 1.4
# legato 0.125
# delay 0.8 # delayt (1/32) # delayfb (slow 16 $ range 0 0.7 saw)
d6 $ gF2 $ gM2
$ whenmod 8 6 (ply "2 <1 4>")
$ slice 4 "<0 1 2 3>"
$ "meth_bass:25"
# octerbus 61 ((slow 16 $ range 0 0.6 saw) + 0.2 * perlin)
# room 0.4 # sz 0.4 # dry 1.2
d7 $ gF3 $ gM3 -- PUNK TIMER
$ slice 4 "<[~ 0]!8 [0 ~ <0!3 1>]!8> . ~ [0 <1 2 2 3>@3]"
$ "punk:2"
|+ note 4
# cut 7
# legato 0.5
# gain 1.2
# octer 1
# octersub 2
# octersubsub 2
d8 $ gF1 $ gM1
$ whenmod 8 6 (mask "t([16 <16 8> . <8 4>],16)")
$ chop 16
$ midiOn "^56" (loopAt 1 . (>| "jungle_breaks:108"))
$ loopAt 1 $ "jungle_breaks:107"
# cut 8
once
aonce
$ off 3 id
$ off 2 id
$ "90s_weird:0"
......@@ -10,7 +10,7 @@ once
-- (.ParVagues ----- L1VE.)
-- T""""""""""""""""""""T
-- |.;....,..........;..|
-- |.;....,......a...;..|
-- |;;:: . . . |
-- l;;;:. : . .. ;
-- `;;:::.: . . .'
......@@ -41,19 +41,24 @@ once
-- (For 0rbit.l0ve <3)
-- """"""""""""""""""""""
do
-- resetCycles
setcps (110/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gMute2 $ gF1 -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^42" (<| "k k k <k k*2 k <k [<~ k> k]>>")
$ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[808bd:4,kick:4]" -- FIXME DESIGN THIS KICK BETTER <3
# gain 1.5
d2 $ gM $ gF -- Break "80s' Apocalypse in a Box"
d3 $ gM1 $ gF1 -- Break "80s' Apocalypse in a Box"
$ midiOn "^44" (fast "1 2")
$ midiOn "^76" -- L'Esprit de Nassim
(
......@@ -69,12 +74,12 @@ d2 $ gM $ gF -- Break "80s' Apocalypse in a Box"
# cut 2
-- # midiG' "^80" 0 1
# pan 0.4
d3 $ gF -- Un peu d'encouragement?
d2 $ gF1 $ gM1 -- Un peu d'encouragement?
$ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000))
$ "~ clap"
-- # midiG' "^79" 0 2
-- # gain 0.8
d4 $ gF2 -- BURN THE BASS WITCH
d4 $ gF2 $ gM3 -- BURN THE BASS WITCH
$ midiOn "^57" (superimpose ( -- chain of wicked thoughts
(|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>"))
. (|* gain "<1 1 1.05 1.1>")
......@@ -88,13 +93,13 @@ d4 $ gF2 -- BURN THE BASS WITCH
# dry 1
# cut 4
-- # midiG' "^81" 0 1.4
d5 $ gM $ gF2 -- Ghosts from an easier time
d5 $ gM3 $ gF3 -- Ghosts from an easier time
$ midiOn "^58" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge")
$ note ("c'maj'4" + "<c!3 g g g [g, [~ c]] c>" - 12)
# "90s_synatm:8/4" # cut 5
# crushbus 51 (range 16 2.5 "^54")
-- # midiG' "^82" 0 1.1
d7 $ gF3 -- Jump aboard the BASIC BUS
d7 $ gF3 $ gM3 -- Jump aboard the BASIC BUS
$ midiOn "^91" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)")
$ midiOff "^59" (loopAt 16)
$ midiOn "^59" (loopAt 8)
......@@ -106,9 +111,12 @@ d7 $ gF3 -- Jump aboard the BASIC BUS
# gain 1.4
# panbus 64 (range 0.13 0.87 (slow 16 saw))
# cut 7
d8
-- $ gM $ gF3 -- Breaks divins -- TODO Rework
$ midiOn "^92" (off "e" id)
d8 $ gM1 $ gF1 -- Breaks divins -- TODO Rework
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 8 "[0 .. 3] . <[0 .. 3]!1 [0 1 . 3*2]>"
. loopAt 0.5 . (# "breaks165")
-- . (# octersub 2)
)
$ midiOff "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21"))
$ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "jungle_breaks:40"))
......
......@@ -50,7 +50,7 @@ d4 $ gF2 $ gMute3
# cut 4
# crushbus 41 (range 8 0.81 "^53")
# octersubbus 42 (range 0 7 "^33")
-- # lesliebus 43 (range 0 2 "^29")
# lesliebus 43 (range 0 2 "^29")
# lsize 2.2
# lrate (slow 4 $ range 0.2 0.8 sine)
-- # distortbus 41 (range 0 5 "^53")
......@@ -89,7 +89,7 @@ d9 $ gF2 $ gM3 -- Essouflement amoureux
# "jungbass:1" # cut 9
# room 0.3 # dry 1.4 # sz 0.9
d10 $ gF3 -- Angels of constance
$ note (slow 2 $ ("<[a5, d6] [g5, <e6 <cs6 [cs6 a5]>>]>"))
$ note (slow 2 $ ("<[a5, d6] [g5, <e6 <cs6 [cs6 a5]>>]>" - "[12,24]"))
# "moogBass"
# room 0.2
# pan 0.7
......
......@@ -13,7 +13,7 @@ d1 -- Kick premier`
-- $ midiOn "^42" (off "e" (# "jazz:0"))
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
-- $ fix ((# att 0.5) . (# legato 0.5) . (|- note 6 show )) ("tek_kick:3")
-- $ fix ((# att 0.5) . (# legato 0.5) . (|- note 6)) ("tek_kick:3")
$ "[kick:4]"
# room 0.2 # sz 0.8 # dry 1.1
# gain 1.3
......
......@@ -68,7 +68,7 @@ d8 $ gM1 $ gF1
$ chop 16
$ loopAt 2
$ "break:2"
# gain 0.8
# gain 0.9
d10
$ mask "<f!2 t!2>"
-- $ loopAt 1
......
do
-- resetCycles
setcps (160/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
$ "[808bd:4,jazz]"
# gain 1.2
# gain 1.4
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ "[drumtraks:9]"
# gain 1.45
d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2"
# gain 0.8
-- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 2)
$ slow 2
$ note (
struct "t(3,8) t(3,8)" $
arp "converge" $
cat [
"[bf3, d4, f4, a4]", -- Bbmaj7
"[a3, c4, e4, g4]", -- Am7
"[d4, f4, a4, c5, <e5 e4>]", -- Dm9
"[g3, b4, d5, <f5 ~>]" -- <G7 G>
] - 12)
# "bassWarsaw"
# crushbus 41 (range 16 4 "^53")
# room 0.2
# legato 0.5
# gain 1.4
d5 $ gF2 $ gM3 $ slow 2 -- V2
-- $ superimpose ((arp "up") . (|+ note 12))
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ note (cat [
-- PARTITION ORIGINALE
"[bf3, d4, f4, a4]", -- Bbmaj7
"[a3, c4, e4, g4]", -- Am7
"[d4, f4, a4, c5, <e5 e4>]", -- Dm9
"[g3, b4, d5, <f5 ~>]" -- <G7 G>
]
- 12
)
# "FMRhodes2"
-- |- note 12
|+ note 2 -- Adjust to C
# modIndex (range 0 2 "^54")
# room 0.4
-- # midiG' "^81" 0 1.6
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "f(4,8)" . chop 8)
$ midiOn "^92" (ply 4)
$ midiOn "^36" (# "jungle_breaks:45")
$ midiOn "^56" (# "jungle_breaks:30")
$ iter "1 <1!4 4!4>"
$ chop 8
$ loopAt 2
$ "break:2"
-- # n 4
# cut 8
# gain 0.7
d9 -- Alright Paris <3 FIXME SLOWER LOOPS
$ mask "<f f t f>"
$ "movie_paris:14"
# begin "<0 0.2 0 0>"
# end "<0.2 0.6 0.6 0.45>" -- 0.2 - 0.35 - 0.4 - 0.6
# cut 9
once $ note "c5" # "superpiano"
......@@ -42,6 +42,7 @@ d3 $ gF1 $ gM1 -- Highest hats
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4 $ gF2 $ gM3
$ midiOn "^57" (mask "t(4,8)")
$ midiOn "^89" (off "e" (|+ note 12))
$ note ("e3 <b2!3 <ef3 g3>>" |+| "[0 ~ ~ 0 ~ ~ 0 ~] [0 ~ ~ 0 ~ <~ 0> 0 <~!3 0>]")
# crushbus 41 (range 16 3.4 "^53")
......
......@@ -93,7 +93,7 @@ d8 $ gM1 $ gF1
$ "jungle_breaks:20"
# cut 8
# pan "<0.3!16 0.7!16>"
# gain 0.78
-- # gain 0.89
d10 $ gM3 $ gF3
$ superimpose (
mask "<f!16 t!16>"
......
......@@ -126,7 +126,7 @@ d10 $ gF3 -- Pads
# gain 0.75
d9 $ gM3 $ gF3 -- La chorale du jugement
$ jux rev
$ note "<[a4@3 <c5 f5>] e5 [<d5!3 f5>] <a5!3 c6>>"
$ note ("<[a4@3 <c5 f5>] e5 [<d5!3 f5>] <a5!3 c6>>" + "<0!8 [0,12]!8>")
# "moogBass"
# chorus 0.2
# gain 0.5
......
do
setcps (105/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g1
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 2 (range 0.05 0.95 "^51"))
d1 $ gF1
$ midiOn "^42" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^42" (struct "t*2")
$ "[jazz,808bd]"
# midiG' "^78" 0 1.2
d2 $ g1
-- # midiG' "^78" 0 1.2
d2 $ gF1
$ midiOn "^43" (fast 2)
$ midiOn "^75" (plyWith "<2!3 [4!3 <2!3 4>]>" (|* gain 0.9))
$ "~ cp"
# note (-6)
# lpf 4000
# midiG' "^79" 0 1.2
d3 $ g1
# gain 1.2
d3 $ gF1
$ midiOn "^44" (struct "~ t ~ t*<1 1 2 1> ~ <t!3 ~> ~ t*2")
$ midiOff "^44" (struct "~ t ~ t ~ t ~ t")
$ "<ho:2!7 [ho:2!3 ho:0]>"
......@@ -22,8 +23,8 @@ d3 $ g1
# cut 3
# pan 0.78
# room 0.3 # dry 1
# midiG' "^80" 0 0.7
d4 $ g2 -- SynBase
-- # midiG' "^80" 0 0.7
d4 $ gF2 -- SynBase
$ someCyclesBy (slow 16 $ range 0.2 1 saw) (off 1 (
(# cut 41)
. (# crushbus 41 (slow 8 $ range 8 3.4 saw))
......@@ -38,8 +39,8 @@ d4 $ g2 -- SynBase
# lpf 5000
# crushbus 42 (range 16 4 "^53")
# room 0.3 # dry 0.9
# midiG' "^81" 0 1.2
d6 $ g2 -- MOTHERBASS
-- # midiG' "^81" 0 1.2
d6 $ gF2 -- MOTHERBASS
$ midiOn "^18" (mask "<t f!3>" . (# legato 4))
$ midiOn "^58" (ply 4)
$ note "f3"
......@@ -49,9 +50,9 @@ d6 $ g2 -- MOTHERBASS
# roombus 62 (range 0 0.4 "^54")
# dry 1.1
# cut 6
# midiG' "^82" 0 1.2
-- # midiG' "^82" 0 1.2
# pan 0.2
d9 $ g1
d9 $ gF1
$ midiOff "^60" (degradeBy ("0 1!7" - (slow 16 saw)))
$ superimpose (# crushbus 9 (range 10 3.4 (segment 4 rand)))
$ "crow(<1!16 <3!3 <5 [5 3]>>!16>,8)"
......@@ -59,14 +60,14 @@ d9 $ g1
# room 0.8
# sz 0.9
# dry 0.924
# midiG' ("^20" * "^84") 0 1.2
d10 $ g2 -- Insectes
-- # midiG' ("^20" * "^84") 0 1.2
d10 $ gF2 -- Insectes
$ midiOn "^92" (chop 8 . ply 2 . fast 4)
$ whenmod 8 4 (fix (|* gain "<0.85!4 0.9!4>") (note "f5")) -- Reviens doucement
$ fix (|* gain 0.8) (note "b6")
$ note (arp "up" "<f5!4 [b6@5 [b6,[f5?]]@3]!3 [f5,[b6@5 b6@3]]>")
# "90s_matrix:4"
# midiG' "^84" 0 1.2
-- # midiG' "^84" 0 1.2
# crushbus 61 (range 16 0.54 "^56") -- INTO N0ISE
# pan (slow 32 $ range 0.98 0.86 saw)
# room 0.4
......
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 $ "jazz*4" # gain 1.4 # lpf 300
d2 $ gF1 $ gM1 $ "~ rampleM9:6"
# note "<0!7 -2>"
-- # lpf 3000
d3 $ gF1 $ gM1 $ "dr*<8 <12 12 [12 6] [12 <8 16>]>>"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ superimpose (
(# crushbus 41 (range 16 3.6 "^53"))
. (|- note 12)
. (|* gain 1.2)
. (# hpf 500)
)
$ note "<gs3@3 [fs3 <ef3 b3>]>"
# "bassWarsaw"
# room 0.4 # sz 0.4 # dry 0.4
# delayt "e" # delay 0.5 # delayfb 0.3
# octersubbus 42 (range 0 0.8 "^33")
# octersubsubbus 43 (range 0 1.2 "^33")
d5 $ gF3 $ gM3
$ whenmod 32 16 (iter (slow 4 "<1 4 [1 4] [4 1]>"))
$ midiOn "^58" (striate 16)
$ "medieval:210"
# cut 4
# room 0.4 # sz 0.8 # dry 0.1
# gain 1.2
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "f(4,8)")
$ chop 16
$ loopAt 2 $ "jungle_breaks:45"
# cut 8
......@@ -20,19 +20,18 @@ do
let modIndex = pF "modIndex"
d1
-- $ slow 4 -- Helper: slow down
#
$ note (
-- midiOn "^43" (arp "up") -- Helper: arpegiate every other chord
-- [8 LoFi Chord Progs](https://blog.landr.com/lofi-chord-progressions/)
--
-- # Dmin11, Efmin11 - Two Sad train tracks
-- "<[d,f,a,c6,e6,g6] [ef, gf, bf, df6,f6,af6]>"
"<[d,f,a,c6,e6,g6] [ef, gf, bf, df6,f6,af6]>"
--
-- # Amin11, D7, Fmaj7, Cmaj7 - Pure bliss
-- "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
--
-- # Cmin11,Fmin9,Cmin11,G7#5 - Enthusiasm
"<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
-- "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
--
-- # Ebmaj9,Abmaj13 - ???(3:34) - Very uplfting
-- "<[f,gs,c,ef,g6,bf6] [ef,g,bf,d6,f6,as6]>"
......
d1 $ "dr*8" # gain 3
once $ loopAt 1 $ "break:3" # gain 0.64
# lpf 2000
d1 $ "bd*[8 16]" # gain 3
once
$ loopAt 1 $ "break:3"
# gain 1.64
# lpf 200
-- Check sclork synth: FMRhodes1
once $
-- "bassWarsaw"
"FMRhodes1"
......@@ -31,6 +35,16 @@ once $ "h2ogmhh"
-- MethLab BASS
once $ "meth_bass:4" # cut 4
-- RetroGaming
once $ "bass_nes:0"
once $ "synth_commodore:0"
once $ "fbass"
-- Jungle samples
once $ "jungle_vocals" # cut 1 # gain 0.8
once $ "jungle_breaks:45" # cut 1 # gain 0.8
d3
-- $ gF1 $ gM $ gDelay -- Contretemps
......
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