Commit 27d46b9b by PLN (Algolia)

Sessions: Baba/nass/CCC

parent 888df62e
setcps (120/60/4)
-- BASSES
-- Sequences
-- once $ "moog"
-- once $ "bassWarsaw" |- note 24 # lpf 900
-- once $ "jungle_bass:23"
-- once $ "bass3:4" # note "-1"
-- once $ "giorgio_syn:0" |- note 24 # lpf 600 # cut 4
-- once $ "giorgio_syn:1" |- note 0 # cut 4 # gain 0.9
-- Samples
-- once $ "fbass:10" -- Plein
-- once $ "come_bass"
-- once $ "jungle_bass:4"
-- once $ "nujazz_bass120"
-- once $ "nujazz_bass120:8"
-- once $ loopAt 4 $ "nujazz_bass125:6" -- et 7
-- once $ "nujazz_bassp120:2"
-- once $ "rootsBass:3"
-- once $ "trance_bass"
once $ "trance_bass:2" # speed 0.85
-- once $ "trance_bass:13" # lpfbus 41 (range 20 2000 (fast 4 sine))
-- # speed 0.5
# cut 4
-- |+| note "g fs f g"
-- $ note ("<[g, d] [fs, d] [f, d] [ef, bf]>" - 12)
-- |+| note (struct "t(5,8)" $ arp "up" "ds'min'4")
-- LEADS
once $ "nujazz_guitar120:2"
-- once $ "nujazz_keys120"
-- once $ "nujazz_wahwah125"
-- once $ "nujazz_fx120:6"
# cut 5
# gain 1.2
-- AMBIANCE
-- once $ "nujazz_fx120"
-- once $ "90s_synatm:2"
-- once $ "90s_weird:1" # gain 0.8
-- once $ "90s_weird:2" # gain 0.8
-- once $ "90s_weird:5" # gain 0.8
-- once $ "90s_weird:6" # gain 0.8
-- once $ "90s_weird:9" # gain 0.8
-- once $ "90s_weird:10" # gain 0.8
-- once $ "90s_weird:11" # gain 0.8
-- once $ "90s_glassatm:1" # gain 0.8
-- once $ "90s_glassatm:3" # gain 0.8
-- once $ "90s_matrix:4" # note "g4"# gain 1.1 -- 1 2 3 4
# cut 9
# room 0.4
-- BREAKS
-- once $ "break"
-- once $ "jungle_breaks:45"
-- once $ "jungle_breaks:45"
once $ loopAt 1 $ ply 2 $ "org_jungle_breaks:2"
# cut 8 # gain 0.8
Progressif
Profondeur
Entrainant, dansant plus que ambiant
Melancolie
once
$ note ("[g, c, e5, f5]")
# "superpiano"
# velocity 0.5 # gain 1.8
prog1
g bf d
fs bf d
f bs b
ef g bs
bf d f
a d f
g ef g
fs ef fs
Pas commencer avec piano trop aigu, trop Filtered
basse bienvenue plus tot?
do
-- resetCycles
setcps (80/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
$ mask "<t!7 f>" -- Orchestration
$ "k . k([<3!3 5> <1 <3 5>>],8)"
# "[jazz]"
-- # octer 0.3
-- # octersub 1
-- # lpf 1400
# room 0.4 # sz 0.8
# dry 1.1
# gain 1.4
-- # att 0.034
d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired
$ mask "<f!7 [f t] t!7 [t f]>"
$ "~ s ~ [s*<1 2> <~ [~ s] ~ [~ s] ~!3 [~ s]>]"
# "[snare:42]" --42
# att 0.01
# rel 4
-- # lpf 4000
-- # octersub 2
# cut 2
# gain 1.3
d3 $ gF1 $ gF1
$ mask "<t!7 f>" -- Orchestration
$ midiOn "^76" (ply 2)
$ fix (|* gain 0.9) (n 10)
$ "~ h(3,8)"
# "808oh:1" # "rampleS15" # n "<9!3 [9 . 9 10]>"
-- # att 0.03
-- # rel 1
-- # hpf 1500
|* gain (fast 4 $ range 0.85 1 perlin)
-- # room 0.4 # dry 0.8 # sz 0.2
# pan (range 1 0.6 saw)
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 2)
$ superimpose (
(# crushbus 41 (range 16 2.5 "^53")) . (# hpf 500)
)
$ note ("<[g4, d5] [fs4, d5] [f4, d5] [ef4, bf4]>" - 12)
# "bassWarsaw" |- note 0
# octersub 1
# room 0.8 # sz 0.4 # dry 0.3
d5 $ gF3 $ gM3
-- $ superimpose (struct "t([5 <8 5>],8)" . arpeggiate) -- FIXME DEBUG REMOVE
$ someCyclesBy "<1!32 0!32>" -- Prog Couplet
(|+ note "<[g, bf, d] [fs, bf, d] [f, bf, d] [ef, g, bf]>")
$ someCyclesBy "<0!0 1!32>" -- Prog Refrain
-- (|+ note "<[bf4, d5, f5] [a4, d5, fs5] [g4, c5, ef5] [fs4, ef5, fs5]>") -- Original
(|+ note "<[bf4, d5, f5] [a4, d5, fs5] [g4, <as4!3 c5>, d5] [fs4, ef5, <fs5!3 c5>]>") -- Mix variation
$ note (
- 12)
# "FMRhodes1"
# modIndex (range 0 3 "^54")
# gain 1.1
# legato 4
# lpf 4000
# delay 0.2 # delayfb 0.5 # delayt 0.125
# room 0.2 # dry 0.9 # sz 0.4
d7 $ gF3 $ gM3 -- Rhodes arpege pour couplet
$ mask "<t!32 f!32>"
$ note (
"<[bf g d5 bf g d5 bf [g ~]] [bf fs d5 bf fs d5 bf [fs ~]] [bf f d5 bf f d5 bf [f ~]] [g ef bf5 g ef bf5 g [ef ~]]>" -- Le rhytme arpeggie vers le bas qu'on veut
-- "<0!4 [0 0]!4 [0 0(<3!3 2>,8)]!8>"
- 12
+ "<0!12 12!12 [0 12]!8>"
)
# "FMRhodes2"
# modIndex (slow 32 $ range 0 3 saw)
# gain 1.1
# legato 1
# lpf 4000
# delay 0.2 # delayfb 0.5 # delayt 0.125
# room 0.2 # dry 0.9 # sz 0.4
d8 $ gF1 $ gM1
$ mask "<t!7 [f . t f]>" -- Orchestration
$ midiOn "^92" (ply 2)
$ slice 4 ("0 1 2*<1 2> 3*<1!3 2>")
$ loopAt 2
$ chop 8
$ midiOn "^56" (# "break:9")
$ "break:13"
# room 0.3 # dry 0.9 # sz 0.4
d9 $ gF3 $ gM3
$ note ("<<g4 d5> <fs4 d5> <f4 d5> <ef4 bf4>> ~" - 12)
# "moogBass"
# room 0.4
# sz 0.9
# octersubsubbus 91 0.8
d10 $ gF3
-- Orchestration
$ "<~!7 h2ogmcy:15>"
# lpf 4000
...@@ -49,7 +49,10 @@ d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable ...@@ -49,7 +49,10 @@ d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable
"" ""
] ]
# "rhadamanthe_melo:1" # "rhadamanthe_melo:1"
d6 # crushbus 51 (range 16 2.7 "^54")
# room 0.4
d6 $ gF1 $ gM1 $ chop 8
$ loopAt 1 $ loopAt 1
$ "breaks165" $ "breaks165"
# cut 6 # cut 6
......
-- TOXIQUE
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 $ gM2 $ gF1
$ midiOn "^42" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
$ midiOff "^42 " (<| "<k ~>")
$ "[jazz,techno:1]"
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "<~ <~ sn>>")
$ "snare:39"
d3 $ gF1 $ gM1
$ "h h h h h h h h*<1 <2 0 [4 2] [0 2]>>"
# "h2ogmhh:2"
# lpf 5000 # cut 3
|* gain (slow 16 $ range 0.75 0.9 saw)
# room 0.3 # sz 0.01
d4 $ gF2 $ gM3
$ superimpose ((# crushbus 41 (range 16 3 "^53")) . (# cut 41))
$ midiOn "^89" (slice 2 1)
$ midiOn ("^57" - "^89") (ply "<1 1 2 1 2 1 4 2 4 2 1 4 2 4 8 <4 8>>" . slice 2 "<0!4 1!4>")
$ midiOff ("^57" + "^89") (slice 2 "<0 1>")
$ "nujazz_bass120:16"
# room 0
# cut 4
d8 $ gF1 $ gM1
$ chop 8
$ loopAt 2
$ midiOn "^56" ((# "jungle_breaks:30") . (# lpf 4000))
$ midiOn "^36" (# "jungle_breaks:13")
$ "jungle_breaks:3"
d11 $ gF3 $ gM3
$ midiOn "^89" (>| note "cs5@2 gs4 cs5@3 gs4@2")
$ note "<d5 cs5>@2 <a4 gs4> <d5 cs5>@3 [<[<a4 gs4> <~ <d5 cs5>>]>]@2"
# "superfork"
# pan 0.8
""
re-la <> do#-sol#
-- SPACIAL
do
setcps (110/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 $ gM2 $ gF1
$ "k ~ ~ k ~ ~ k k*<2 1 2 2>"
# "[jazz,techno:1]"
# gain 1.2
d2 $ gF2 $ gM1
$ "~ . cp*<1!3 2> ~"
# lpf 2000
d3 $ "hh*8"
d4 $ gF2 $ gM2
$ slice 8 ("<0 1 2 3 4 5 6 7>")
$ "trance_bass:2" show
# speed 0.85
# cut 4
# room 0.4 # dry 0.8
d8 $ loopAt 2 $ chop 8 $ "jungle_breaks:45"
d5 $ gF3 $ gM3
$ note "cs5"
# "superfork" -- TODO On voulait une panflute...
# room 0.2
# orbit 4
...@@ -15,17 +15,22 @@ d1 $ gF1 $ gMute2 ...@@ -15,17 +15,22 @@ d1 $ gF1 $ gMute2
. (# octer 0.5) . (# octer 0.5)
-- . (# smear 0.2) -- . (# smear 0.2)
) )
$ fix (# lpf 150) "jazz"
$ "k . ~ k ~ <k k*[4 2]>" $ "k . ~ k ~ <k k*[4 2]>"
# "[808bd:6]" -- Doux # "[808bd:6,jazz]" -- Doux
# gain 1.2 # gain 1.2
d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]" d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
# "[snare:70,sn:24]" # "[snare:70,sn:24]"
# gain 1.4 # gain 1.4
-- d3 $ gF1 $ gM1 $ "d(3,8) d(3,8)" # "h2ogmsn" # gain 2 # cut 3 -- Drill that Baby # lpf 4000
d3 $ gF1 $ gM1 $ "d(3,8) d(3,8)"
# "drum:2" # gain 2 # cut 3 -- Drill that Baby
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ midiOn "^90" (ply "<4 2 1 2> <2 [1 8]>") $ midiOn "^90" (ply "<4 2 1 2> <2 [1 8]>")
$ midiOn "^58" (slice 4 "<0 1 2 <3 <2 1>>>*4") $ midiOn "^58" (slice 4 "<0 1 2 <3 <2 1>>>*4")
$ gF2 $ gM2 $ n "<0!8 1!3 0 1!3 1*4>" $ gF2 $ gM2
$ n "<0!8 1!3 0 1!3 1*4>" -- FIXME: I'd like to let her develop more
-- $ n "<0 ~>"
# "jane_wang" # "jane_wang"
# cut 5 # cut 5
# pan (slow 16 $ range 0.6 0.45 saw) # pan (slow 16 $ range 0.6 0.45 saw)
...@@ -62,13 +67,24 @@ d7 $ gF1 $ gM1 -- SCRATCH ...@@ -62,13 +67,24 @@ d7 $ gF1 $ gM1 -- SCRATCH
# pan (slow 16 $ range 0.9 0.6 saw) # pan (slow 16 $ range 0.9 0.6 saw)
# gain 1.2 # gain 1.2
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ someCyclesBy "<0 1 0 <1 1>>" (slice 8 "0 2 4 <6 ~>")
$ midiOn "^92" (ply 4) $ midiOn "^92" (ply 4)
$ loopAt 2 $ loopAt 2
$ chop 8 $ chop 16
$ midiOn "^56" (>| "jungle_breaks:10") $ midiOn "^56" (>| "jungle_breaks:10")
$ "jungle_breaks:11" $ "jungle_breaks:11"
# cut 8 # cut 8
# room 0.4 # dry 1.1 -- # room 0.4 # dry 1.1
# gain 1.4
d9 $ gF3 $ gM3
$ note ("<cs fs>"
+ "<0!3 ~> <~ 0>"
)
# "rampleM6:7" |+ note 4
# gain 1.2
# bandf 300
# end 0.8
# cut 9
d10 $ gM3 $ gF3 d10 $ gM3 $ gF3
$ fix (# begin 0.25) "movie_statue:36" $ fix (# begin 0.25) "movie_statue:36"
$ stack [ $ stack [
......
...@@ -135,7 +135,7 @@ d12 $ gM3 $ gF3 -- Falling angel guitar ...@@ -135,7 +135,7 @@ d12 $ gM3 $ gF3 -- Falling angel guitar
# sz 0.5 # sz 0.5
# hpf 1500 # hpf 1500
# dry 1.2 # dry 1.2
# gain 1.3 # gain 1.8
# legato 1.2 # legato 1.2
once once
......
-- Bass First
do
-- resetCycles
setcps (140/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
$ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>"
-- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
# "[reverbkick]"
# att 0.01
# rel 0.5
# lpf 400
# note "-8"
-- # cut 1
# gain 1.5
d2 $ gF1 $ gM1 $ "~ ~ ~ <~!3 s> . s"
# "cp"
# bandf 2000
# room 0.5 # sz 0.8 # dry 1.1
# gain 1.7
d3 $ gF1 $ gM1 $ "dr:2*8" # "hh27:3" # cut 3 # gain 1.8
d4 $ gF2 $ gM3
-- $ superimpose (# cut 41)
$ "jungle_bass:15"
# cut 4
# octersub 1.42
-- # room 0.3
# gain 2
d5 $ gF3 $ gM3
$ chop "<4 4 8 4>"
-- $ loopAt 4
$ "vec1_acid"
# n "<<31!12 32!12> 33!4>"
# cut 5
# room "<0!4 0.2!3 0>"
-- # delay "<0!16 0.5!16>"
d8 $ gF1 $ gM1
$ loopAt 2
$ midiOff "^60" (mask "f(8,16)")
$ chop 16
$ "jungle_breaks:24"
d9 $ gF3 $ gM3 $ note "c4/4"
-- # hpf (slow 16 $ range 30 1200 perlin)
-- # lpf (slow 24 $ range 8000 120 perlin)
# "moog:2"
# cut 9
# delay 0.75
# delayt 0.25 # delayfb 0.8
# crushbus 91 (range 16 2.5 "^19")
-- Love First
do
-- resetCycles
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
-- $ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>"
-- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
$ midiOn "^42" (<| "k k k k*<2 4>")
$ midiOff "^42" (<|"k . ~ k ~ ~")
$ "[clubkick,jazz]"
# att 0.02
# rel 0.5
# lpf 4000
-- # note "-8"
# gain 1.3
d2 $ gF1 $ gM1 $ "~ s ~ s*<1 2>"
# "snare:42"
-- # lpf 2000
-- # room 0.5 # sz 0.8 # dry 1.1
# gain 1.2
d3 $ gF1 $ gM1 $ "dr:2*8" # "hh27:3" # cut 3 # gain 1.8
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>" - 24)
# "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# room 0.4
# gain 1.5
d5 $ gF3 $ gM3
$ midiOff "^58" (mask "t f")
$ loopAt 2
$ midiOn "^58" (# n 14)
$ "nujazz_keys120:13"
# room 0.5
# crushbus 51 (range 10 1.8 "^54")
# sz 0.8 # dry 1.2
d7 $ gF3 $ gM3
$ midiOn "^91" (ply "2 <2 4 4 8>")
$ midiOn "^59" (# n 4)
$ mask "<t f f f t f t t>"
$ "nujazz_guitar120:3"
# cut 7
# room 0.4
# delay (slow 16 $ range 0.4 "<0!32 0.8!32>" saw)
# delayt 0.125 # delayfb 0.5
# gain 1.1
d8 $ gF1 $ gM1 $ chop 8
$ midiOff ("^60" + "^92") (mask "f(4,8)")
$ midiOn ("^56" - "^92") (chop 8 . loopAt 2 . (# "jungle_breaks:45"))
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 8 "[0 .. 3] . <[0 .. 3]!1 [0 1 . 3*2]>"
. loopAt 1 . (# "breaks165")
-- . (# octersub 2)
)
$ loopAt 1
$ "jungle_breaks:2"
# cut 8
# octersub 2
# octersubsub 2
# gain 1.2
d9 $ gF3 $ gM3
$ slice 4 "~ <0 1 2 3>"
$ "nujazz_keys120:15"
# room 0.4
# lpf 4000
# sz 0.8 # dry 1.2
-- # delay 0.75 # delayfb 0.5
-- # delayt 1
# cut 9
# gain 1.4
d10
$ chop 16
$ mask "<f!24 t!8>"
$ loopAt 8
$ "risers:10"
# cut 10
# hpf 2000
# octer 0.5
d11
$ whenmod 64 48 (
(>| n "26/2")
. (# 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")
. (# begin "0.4")
. (# end 0.6)
)
$ someCyclesBy "<1!4 0!28>" ((# "<movie_cat:23 ~ ~ ~>") . (# begin 0.15) . (# end 0.6))
$ n "<<1!3 9 [1 9]!3 26 26 26 27> ~>" # "movie_cat"
# cut 11
# room 0.4
d12 $ gF3 $ gM3
$ midiOn "^89" (ply 8)
$ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>"
|+| "0 . <0 <0(3,8) [0 12 0 12]>>"
+ "0 <0!4 12!4>"
)
# "moogBass"
# legato "<0!12 0.5!12>"
# crushbus 41 (range 16 2.5 "^53")
# room 0.4
# gain 1.5
d4 $ gF2 $ gM3
$ "jungle_bass:15"
# cut 4
# octersub 1.2
# room 0.3
-- DOUX
do
resetCycles
setcps (70/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
let endSong = (someCyclesBy "<0!48 1!999>" (# silence))
d1 $ gF1 $ gM2 $ endSong
$ "k . k(<<3 4> 3 3 [3 <5 8>]>,8)"
# "kicklinn"
# gain 1.2
# lpf 5000
d2 $ gM1 $ gF1 $ endSong -- Snare le fantome de la plage
$ "~ s ~ <s [s*2 <~ s*4>]>"
# "hh:11"
# att 0.3
# octersub 2
# rel 2
# gain 1.5
d3 $ gF1 $ gM1 $ endSong
$ midiOn "^76" (ply 2)
$ whenmod 8 6 (juxBy 0.8 rev)
$ "hh*[8 <[8!7 16] [8!3 16] 8 [16 32 16]>]"
# "drum:2"
# delay 0.5
# delayt 0.15
d4 $ gF2 $ gM3 -- Dubesque bass
$ superimpose ((# crushbus 41 (range 16 5 "^53")) . (# lpf 500))
$ note ("g2 <g2 [<g2 a2> <a2 g2>]>") -- Melodie
+ "0(<3 3 5 3>,8) 0(<3!3 <1 [2 1] 5 8>>,8)" -- Structure
# "bassWarsaw"
# gain 1.1
# squizbus 42 (range 0 8 "^33")
# room 0.3 # sz 0.8 # dry 1.1
# pan 0.4
d5 $ gF3 $ gM3 -- Marimba bulles de savon dans l'espace
$ slow 2
$ superimpose
(
(|+| note ("0(3,8,1) [0(3,8),<7(<0 <1 3>>,8)>]"))
. (# "marimba1")
. (# octave 8)
. (|+ pan 0.1))
$ note ("[g2@3 d3 . e3@3 <d3!2 g3!2>]")
# "FMRhodes1"
# pan 0.6
# room 0.4
d8 $ gF1 $ gM1 $ endSong -- Unconditional loving breaks
$ midiOn "^92" (slice 8 "0 <1 [~ 1*2]> <2 [3 2]> <3 [2 3]> [4 5]*<2 2 4 8> [4 5]*2 6 7*<4 <8 [16 8]>>")
$ whenmod 4 3 (struct "t([4 4 8 4],8,<0 1>)" . chop 8) -- STUTTER
$ chop 8
$ midiOn ("^36" - "^56") (loopAt 1 . (# "jungle_breaks:45"))
$ midiOn ("^56" - "^36") (loopAt "<1!3 <0.5 [0.5 . 0.25 1]>>" . (# "jungle_breaks:24"))
$ loopAt 2
$ "break:0"
# cut 8
# room 0.5 # dry 1.1
# sz 0.8
d9 $ gF3 $ gM3 $ endSong-- Background Keys
$ someCyclesBy
"<0!15 1!9 0!24>" -- Real orchestration
-- "<0!7 1!9>" -- DEBUG orchestrationm
((>| note "<[d4,g4,b4] ~>") -- COLOR SCHEME: SUMMUM GLOIRE GLOIRE
. (# legato 4)
. (# rel 8) . (# sus 8)
. (|* gain 0.9))
$ note "<[g3,b3,d4] <[a3,c4,e4] [e3,g3,b3]>>" -- LOVE YOUR OWN COLOR SCHEME <3
# rel 4
# att 0.3
# sus 4
# stack [
"organTonewheel2" # lpf (slow 4 $ range 10000 200 sine),
"organTonewheel3" # hpf (slow 4 $ range 0 800 sine)
]
# room 0.4 # sz 0.5
# pan 0.6
# gain 0.9
d10 $ endSong
$ mask "<f!12 t!4 f!4 t!4 f!8>"
$ slice 4 "<0 0 0 1>"
$ "risers:12"
# cut 8
# room 0.2
once $ "movie_dance:1"
# cut 1 # end 0.16
# gain 1.3
# speed 0.9
do do
-- resetCycles -- resetCycles
setcps (120/60/4) setcps (135/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16")) let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
...@@ -33,7 +33,7 @@ d1 $ gMute2 $ gF1 -- Kick solide ...@@ -33,7 +33,7 @@ d1 $ gMute2 $ gF1 -- Kick solide
] ]
# "[kick:4]" # "[kick:4]"
# delay 0 # delay 0
-- # gain 0.2 # gain 1
-- # cut 1 -- # cut 1
d2 $ gF1 $ gM1 -- Basic clap ma gueule d2 $ gF1 $ gM1 -- Basic clap ma gueule
$ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" ) $ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
...@@ -41,6 +41,7 @@ d2 $ gF1 $ gM1 -- Basic clap ma gueule ...@@ -41,6 +41,7 @@ d2 $ gF1 $ gM1 -- Basic clap ma gueule
$ "cp" $ "cp"
# note "0!3 -1" # note "0!3 -1"
# lpf 4000 # lpf 4000
# room 0.4 # sz 0.8 # dry 1.1
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
-- $ jux (rev) -- $ jux (rev)
-- $ whenmod 8 6 (mask "f t" . rev) -- $ whenmod 8 6 (mask "f t" . rev)
...@@ -49,31 +50,6 @@ d3 $ gF1 $ gM1 ...@@ -49,31 +50,6 @@ d3 $ gF1 $ gM1
# delay 0.5 # delayt 0.25 # delayfb 0.2 # delay 0.5 # delayt 0.25 # delayfb 0.2
# pan 0.7 # cut 3 # pan 0.7 # cut 3
# legato (range 0.2 0.8 "^52") # legato (range 0.2 0.8 "^52")
-- # gain 0.8
d4 $ gF2 $ gM3 -- FROZEN ACID BASS
$ midiOn "^57" (# freeze 0.2)
$ midiOn "^89" (ply 2 . chop 8 . (# legato 0.5))
$ slow 8 $ slice 8 (run 8)
-- $ superimpose
-- ((# cut 41)
-- . (# crushbus 41 (range 8 2.5 "^53"))
-- . (# hpf 500)
-- . (# gain (slow 32 $ range 0.5 1.2 (saw + "^53")))
-- -- . (# legato 4)
-- . (# lpf 10000))
$ stack ["",
"s" -- Base Synth
]
# "synth_commodore"
# squizbus 42 (range 0 1.8 "^33")
# lpf 2000
# gain 0.9
# room 0.3
# dry 0.9
# octer 0.25
# octersub 1.25
# sz 0.2
# cut 4
d10 $ gF3 -- Self-destruction riser d10 $ gF3 -- Self-destruction riser
$ (stack [ $ (stack [
n "<<55!8 ~!54> ~!3>" n "<<55!8 ~!54> ~!3>"
...@@ -85,7 +61,8 @@ d10 $ gF3 -- Self-destruction riser ...@@ -85,7 +61,8 @@ d10 $ gF3 -- Self-destruction riser
"" ""
]) ])
# "rhadamanthe_vocal" # "rhadamanthe_vocal"
d9 $ gF3 d6 $ gF1 $ gM1 $ "~ ~ ~ 808cy:1"
d9 $ gF3
$ mask "<<t!4 f!4> t t f>" $ mask "<<t!4 f!4> t t f>"
$ note ("<d4!12>" + 5) $ note ("<d4!12>" + 5)
# "rhadamanthe_vocal:5" # "rhadamanthe_vocal:5"
...@@ -93,23 +70,21 @@ d9 $ gF3 ...@@ -93,23 +70,21 @@ d9 $ gF3
# begin "<0!16 0!8 0.25!5 0.3!3>" # begin "<0!16 0!8 0.25!5 0.3!3>"
# octersub 0.5 # octersub 0.5
# octersubsub 0.5 # octersubsub 0.5
# bandf 400
# gain 1.3 # gain 1.3
d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme" d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
-- TODO SOUND DESIGN MOI CES ACID BASS
$ midiOff "^57" ( $ midiOff "^57" (
-- (|+ note "<0 12>") . -- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>") mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
$ stack [ $ stack [
-- n (slow 8 "<31 37>") # "vec1_acid" # pan 0.3, -- Grave n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^53" + "^33")),
"vec1_acid" # gain (slow 16 $ range 0.1 1.2 saw) # pan 0.6, -- Electrique
-- "vec1_acid:31",
n "<30!7 31>" # "vec2_synth_acid" # gain (range 1.1 0.6 "^53"),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^53"), "vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^53"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^33"), -- TODO BONUS ACID
-- # octer 1.1 -- # octer 1.1
-- # crushbus 41 (range 16 1 "^53")
-- , -- ,
"" ""
] ]
# crushbus 41 (range 16 1 "^53")
# legato (range 0.39 0.7 (1 - "^17")) # legato (range 0.39 0.7 (1 - "^17"))
>| note ("[b d6 b cs6 d6 b cs6 b]*2" >| note ("[b d6 b cs6 d6 b cs6 b]*2"
- "<0!32 12!32>" -- Alternance - "<0!32 12!32>" -- Alternance
...@@ -134,7 +109,7 @@ d5 $ gF3 $ gM3 -- Piano lead acidule ...@@ -134,7 +109,7 @@ d5 $ gF3 $ gM3 -- Piano lead acidule
# tremdp 4 # tremr 1.8 -- Bouncy droplet # tremdp 4 # tremr 1.8 -- Bouncy droplet
-- # bandf 50 # bandq 0 -- # bandf 50 # bandq 0
-- # crushbus 51 (range 16 4.5 "^54") -- # crushbus 51 (range 16 4.5 "^54")
# gain 1.5 # gain 1.8
d7 $ gF2 $ gMute3 -- Caring bass d7 $ gF2 $ gMute3 -- Caring bass
$ midiOn "^59" (|+ note "[0,12]") $ midiOn "^59" (|+ note "[0,12]")
$ midiOn "^91" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5)) $ midiOn "^91" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
...@@ -164,7 +139,7 @@ d8 $ gF1 $ gM1 ...@@ -164,7 +139,7 @@ d8 $ gF1 $ gM1
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:45" $ "jungle_breaks:45"
# cut 8 # cut 8
# gain 1.42 # gain 1.2
d11 $ gF2 $ gM3 -- Synthetique violon d11 $ gF2 $ gM3 -- Synthetique violon
$ note (stack ["<b6!3 [b6 a6@7]>", -- Low basis $ note (stack ["<b6!3 [b6 a6@7]>", -- Low basis
"~ <b7!3 [b7 [<d8 <[d8 ~ e8 f8 e8 <d8@2 a8@2>@2]@3>>]]>" "~ <b7!3 [b7 [<d8 <[d8 ~ e8 f8 e8 <d8@2 a8@2>@2]@3>>]]>"
......
...@@ -57,7 +57,7 @@ d8 $ gF1 $ gM1 -- Come on breaks! ...@@ -57,7 +57,7 @@ d8 $ gF1 $ gM1 -- Come on breaks!
# cut 8 # cut 8
# gain 0.9 # gain 0.9
d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
$ midiOn "^81" ((# tremdp 1) . (# tremrbus 43 "<[8 4] [<4 8> <2 16>]>")) $ midiOn "^57" ((# tremdp 1) . (# tremrbus 43 "<[8 4] [<4 8> <2 16>]>"))
$ slow 2 $ note ( $ slow 2 $ note (
-- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>" -- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>"
"<<fs <[fs@15 e] [fs@14 cs e]>> b4>" "<<fs <[fs@15 e] [fs@14 cs e]>> b4>"
...@@ -73,7 +73,7 @@ d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique ...@@ -73,7 +73,7 @@ d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
# octersubsub 0 # octersubsub 0
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^53")
# octersubsubbus 42 (range 0 2 "^33") # octersubsubbus 42 (range 0 2 "^33")
# gain 0.7 # gain 1.7
d5 $ gM3 $ gF3 -- Marimba fondamental d5 $ gM3 $ gF3 -- Marimba fondamental
$ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)") $ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
$ juxBy 0.4 rev $ juxBy 0.4 rev
...@@ -86,7 +86,7 @@ d5 $ gM3 $ gF3 -- Marimba fondamental ...@@ -86,7 +86,7 @@ d5 $ gM3 $ gF3 -- Marimba fondamental
# pan 0.9 # pan 0.9
# gain 3 # gain 3
# room 0.3 # room 0.3
d10 $ gF2 $ gM3 -- Menace d10 $ gF3 $ gM3 -- Menace
$ someCyclesBy "<1!16 1!32 0!16>" (>| note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>") $ someCyclesBy "<1!16 1!32 0!16>" (>| note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>")
-- Variante Adrianesque -- Variante Adrianesque
$ someCyclesBy "<0!16 1!32 0!16>" (>| note "<b3 ~ ~ [ c4@2 ~ . ef4 fs4 c4]>") $ someCyclesBy "<0!16 1!32 0!16>" (>| note "<b3 ~ ~ [ c4@2 ~ . ef4 fs4 c4]>")
...@@ -96,7 +96,7 @@ d10 $ gF2 $ gM3 -- Menace ...@@ -96,7 +96,7 @@ d10 $ gF2 $ gM3 -- Menace
$ someCyclesBy "<0!16 1!32 0!12 1!4>" (>| note "<[b3 ~] [as3 bs3 g3 cs4 ~ d4] [~ gs4 ~ ~] [~ ~ [as4 as4] ~]>") $ someCyclesBy "<0!16 1!32 0!12 1!4>" (>| note "<[b3 ~] [as3 bs3 g3 cs4 ~ d4] [~ gs4 ~ ~] [~ ~ [as4 as4] ~]>")
$ "90s_synatm:10" $ "90s_synatm:10"
# room 0.3 # sz 0.8 # room 0.3 # sz 0.8
# gain 1 # gain 2
# att 0.10 # att 0.10
# rel 10 # rel 10
# crushbus 101 (range 16 3.5 "^14") # crushbus 101 (range 16 3.5 "^14")
......
...@@ -15,6 +15,7 @@ ...@@ -15,6 +15,7 @@
-- Cale le top de ton master mix à 6Db max, pour avoir la place de travailler ensuite -- Cale le top de ton master mix à 6Db max, pour avoir la place de travailler ensuite
-- -> Ton but final est que ça tape à 0, avec un LUFS qui tape min -5 -- -> Ton but final est que ça tape à 0, avec un LUFS qui tape min -5
-> PLN NOTES: Pro master loud=-7LUFS, voire -9, parties calmes -14
-- REFS -- REFS
-- Theorie musicale https://www.youtube.com/watch?v=MrW2tO7wBHc -- Theorie musicale https://www.youtube.com/watch?v=MrW2tO7wBHc
......
do
-- resetCycles
setcps (140/60/4)
let modIndex = pF "modIndex"
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
-- d3 $ gF1 $ gM1 -- Drumroll fantome
-- $ mask "<f!16 f!11 [f t] t!4>"
-- $ whenmod 32 24 (juxBy 0.4 rev)
-- $ "~ h ~ h ~ h*<1!3 2> ~ h*<1!7 [4 <4 <2 8>>]>"
-- # drumFrom "rolandtr808" "oh"
-- # cut 3
-- # room 0.3 # dry 1.9
-- # sz 0.8
-- # pan 0.7
d1 $ gF1 $ gM2
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
-- $ superimpose ((# "hardkick_rha:3") . (# lpfbus 12 80))
$ stack [
"[techno:0,jazz]"
]
# gain 1.7
-- # room 0.2
d2 $ gM1 $ gF1 -- Snare contretemps DNB Techno-compatible
$ fix ( (# gain "<0!32 0!28 2!4>") . (ply "<1!7 2>") .(# speed 1.7) . (# lpf 2000)) "nass"
$ "~ <~!16 s!48> ~ s"
# "[snare:35,<snare:43!4 snare:40!4>,nass:0]"
-- # note "<0!6 -1 -2>"
# gain 1.44
d3 $ gM1 $ gF1-- DrumRoll
-- $ mask "<f!20 t!44>"
$ whenmod 8 "<7!4 6!3 4>" (juxBy 0.93 rev)
$ whenmod 4 2 (rarely (ply 2))
$ fast "8 <[8|8 4|8|16 8|16]!3 [16 <8 32>]>"
$ "[drum:2,cpu2:3]"
# gain 0.96
d4 $ gF2 $ gM3-- BASSLINE
-- $ mask "<f!8 t!12 t!44 t!64>"
$ superimpose (
(# crushbus 4 (range 16 4 "^53"))
. (# hpf 200) . (|* gain 1.4)
)
$ midiOn "^57" (chop "<8 8 4 <8 16>>")
$ whenmod 64 16 (superimpose ( -- Aigu complément
("e" ~>) . (# voice 100)
. (# pan 0.4)
. (|* gain (slow 8 $ range 0.7 1.1 saw))
))
$ superimpose (|+| note "~ 7(<3!3 5>,8)")
$ whenmod 32 24 (# note "<g f ef <c f>>")
$ note "<c c ds <c g>>"
# octave 3
# "supersaw"
# voice 0.1
# room 0.2
# pan 0.2
# gain 0.84
d7 $ gF2 $ gM3 -- SYNTH BASS FRIEND
$ whenmod 32 24 (# note "<g f ef <c f>>")
$ note "<c c ds <f g>>"
# "giorgio_syn:9" # n "<9!3 10>"
# cut 7
# gain 1.3
# crushbus 71 (range 16 4 "^55")
# room 0.3 # bandf 400
d10 $ gF3 $ gM3 -- Mad organ
$ mask "<f!4 t!10 f!2>"
-- $ mask "<f!32 t!32>"
$ someCyclesBy "<f!6 t t>" (slice 4 "0 0 0 0*<1 2>") -- PRE-DROP
$ someCyclesBy "<t!12 f!4>" (mask "<t!3 f>")
$ "forgan:24"
# cut 5
# crushbus 5 (range 16 4 (slow 2 perlin))
# gain 1
-- # pan 0.9
-- # hpf (slow 32 $ range 0 2500 sine)
-- # room (slow 16 $ range 0 0.4 perlin)
d8 $ gF1 $ gM1
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:45")) -- Clochettes?
$ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!7 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165") . (# octersub 2)
)
$ chop 16
$ loopAt 2
$ "jungle_breaks:74"
# room 0
# gain 1.2
d5 $ gF3 $ gM3 -- Rhodes arps <3
-- $ someCyclesBy "<t!4 f!60>" (struct "t(<<1 3> <2 4>>,4)")
-- $ mask "<t!20 f!8 t!36 t!20 f!8 t!32 f!4 f!128>"
$ midiOn "^51" (struct "t(<10 12 8 4 10 12 8 16>,16)")
$ someCyclesBy (slow 16 $ range 0 0.2 saw) (degradeBy "0 0.5!15")
$ whenmod 32 24 (sometimesBy "0 1" rev)
$ note ("<c c ds <c g>>"
+ (arp "up" "<[c'maj'4 c'maj'3]!12 [c'maj'4 c'maj'3]!4>")
+ "0 12"
- 24)
# "[FMRhodes2,FMRhodes1]"
# modIndex (range 0 2 "^34")
# crushbus 6 (slow 16 $ range 16 4 saw)
# pan 0.6
# room 0.4
# gain 1.2
-- # gain (slow 16 "<0.5 0.75>" + (slow 16 $ range 0.125 0.5 saw))
d11 $ gF3 $ gM3 -- GLITCH NOISES
-- $ mask "<[f t]!8 f!8 t!48>"
$ fix (|* gain "<0.2!4 0.36!4>") (n 3)
$ fix (|* gain 0.35) (n 6)
$ n "[[~ <~!4 3!4> ~ 3],[6*<1 2 4 2>],7,8(<3 5 8>,8)]"
# "cosmicg"
# pan 0.8
# lpf 1200
# gain 0.78
# room 0.3
d12 $ gF3 $ gM3 -- GLITCH DNB
-- $ mask "<f!16 t!48>"
$ n "12 11 . ~ 12 11 <~!3 <11 [~ 11]>>"
# note "-1 0 . -1 0"
# "cosmicg"
# pan 0.2
# room 0.5
# note "-7"
# dry 1
# gain 0.8
d6 $ gF1 $ gM1-- Claps occasionnels
$ mask "<f!24 t!4 f!36>"
$ "[~ cp]*<1 1 <1 2> <[2 <1 4>]>>"
# "cp"
# gain 1.1
# room 0.2
# lpf 800
d9 $ gF3 $ gM3 -- I WANT TO GO TO MARS NIGHTS AND VALLEYS
$ someCyclesBy "<0 0 <0 0 1 1> 0>" (off 1.5 (
(|* gain 0.9)
. (|+ pan 0.1)
. (|+ begin 0.02)
. (|+ room 0.1)
))
$ "<~ ~ m ~>"
# n 10
# "movie_vitality:10"
-- # begin "<0!4 0.1 0.08 0.1 0.08 0.18 0.3!8>"
-- # end "<0.1 0.1 0.1 0.18 0.3 0.4!8>"
# begin (slow 4 "<0 0 0.1 0.18 0.32 0.5 0.5 0.5 0.5>")
# end (slow 4 "<0.1 0.18 0.18 0.32 0.56 0.7 0.7 0.7 0.7>")
-- # begin 0.42 # end 0.46
# room (slow 16 $ range 0.04 0.24 saw)
# sz 0.4
# gain 1.8
...@@ -29,8 +29,8 @@ let gMask = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> <f!4 ...@@ -29,8 +29,8 @@ let gMask = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> <f!4
let gMaskB = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> t]" let gMaskB = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> t]"
let g = (gLPF . gMask) let g = (gLPF . gMask)
let gB = (gLPF . gMaskB) let gB = (gLPF . gMaskB)
d1 $ g $ gR d1 $ g $ gR
$ juxBy 0.1 id $ juxBy 0.1 id
$ "k ~ ~ k . ~" # "[reverbkick,tech:6]" $ "k ~ ~ k . ~" # "[reverbkick,tech:6]"
# legato 1.25 # legato 1.25
# lpf 1000 # lpf 1000
......
do do
-- TRIGGER INTRO :) -- TRIGGER INTRO :)
-- resetCycles -- 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 g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01 let gF = 1.01
let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
...@@ -63,7 +63,7 @@ d4 $ f3 -- Atmospheric synth: aerial questions ...@@ -63,7 +63,7 @@ d4 $ f3 -- Atmospheric synth: aerial questions
# legato 4 # legato 4
# dry 1 # dry 1
# pan 0.45 # pan 0.45
# crushbus 42 (range 16 3.4 "^53") -- # crushbus 42 (range 16 3.4 "^53")
# legato 2 # legato 2
-- # midiG' "^81" 0 1.5 -- # midiG' "^81" 0 1.5
d5 $ f2 -- Synth: ELECTRONIC ANSWERS d5 $ f2 -- Synth: ELECTRONIC ANSWERS
...@@ -78,7 +78,7 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS ...@@ -78,7 +78,7 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS
# panbus 51 (range 0.8 0.65 saw) # panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 16 2.85 "^54") # crushbus 52 (range 16 2.85 "^54")
# octersubbus 53 (range 0 1.85 "^34") # octersubbus 53 (range 0 1.85 "^34")
# midiG' "^82" 0 2 -- # midiG' "^82" 0 2
d7 $ f3 -- High lead: Winds of truth d7 $ f3 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3 $ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>") $ whenmod 8 6 (swing "<4 2>")
......
-- Released as: La Fin de l'Insouciance
do do
-- resetCycles -- resetCycles
setcps (120/60/4) setcps (120/60/4)
......
...@@ -18,11 +18,11 @@ d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]" ...@@ -18,11 +18,11 @@ d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
# "[snare:70,sn:24]" # "[snare:70,sn:24]"
# gain 1.4 # gain 1.4
d3 $ gF1 $ gM1 $ "d(3,8) d(3,8)" # "h2ogmsn" # gain 2 # cut 3 -- Drill that Baby d3 $ gF1 $ gM1 $ "d(3,8) d(3,8)" # "h2ogmsn" # gain 2 # cut 3 -- Drill that Baby
d4 $ gF2 $ gM2 -- Basse languinante d'un vieux violoncelle d4 $ gF2 $ gM3 -- Basse languinante d'un vieux violoncelle
$ midiOn "^89" (off "0.25" id) $ midiOn "^89" (off "0.25" id)
$ superimpose ((# crushbus 41 (range 16 2.5 "^53")) $ superimpose ((# crushbus 41 (range 16 2.5 "^53"))
. (|* gain 0.8) . (|* gain 0.8)
-- . (# hpf 500) . (# lpf 5000)2 . (# hpf 500) . (# lpf 10000)
) )
-- $ note ("<[g2 . <bf2 [bf2@3 ds3]>] <d3 [d3@2 a2*2 bf2]>>") -- $ note ("<[g2 . <bf2 [bf2@3 ds3]>] <d3 [d3@2 a2*2 bf2]>>")
$ note ("<[g2@7 <f2 <d2 bf2>>] [<ef2!3 d2>]>" $ note ("<[g2@7 <f2 <d2 bf2>>] [<ef2!3 d2>]>"
...@@ -35,13 +35,15 @@ d4 $ gF2 $ gM2 -- Basse languinante d'un vieux violoncelle ...@@ -35,13 +35,15 @@ d4 $ gF2 $ gM2 -- Basse languinante d'un vieux violoncelle
-- # bandf "<100!3 <150 200>>" -- # bandf "<100!3 <150 200>>"
# bandq 1 # bandq 1
# gain 1.2 # gain 1.2
# tremdpbus 42 (range 0 2 "^33") # lpf 500
# octersubbus 42 (range 0 1 "^33")
# tremr 1.4 # tremr 1.4
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ midiOn "^92" ( $ midiOn "^92" (
-- slice 4 "<[0 1 2 3 0 1 2 3]!3 [0 .. 16]>" . ply "<<1 [1!3 2]> <2 4>>" .
loopAt 0.5 slice 4 ("[0 1 2 3] 3 <3 [2 3 1] [0 1 ~ 2] 3> 3 0 <1 [~ 1]> 0*2 0*4")
. (# lpf 5000) . (# "breaks165"). (# octersub 2.8) -- loopAt 0.5
-- . (# lpf 5000) . (# "breaks165"). (# octersub 2.8)
) )
$ midiOff ("^60" + "^92") (mask "t(4,8,1)" . chop 8) $ midiOff ("^60" + "^92") (mask "t(4,8,1)" . chop 8)
$ chop 8 $ chop 8
...@@ -55,8 +57,7 @@ d8 $ gF1 $ gM1 ...@@ -55,8 +57,7 @@ d8 $ gF1 $ gM1
d6 $ gF3 $ gM3 $ loopAt 4 $ "meth_bass:4" # gain 1.3 d6 $ gF3 $ gM3 $ loopAt 4 $ "meth_bass:4" # gain 1.3
d7 $ gF3 -- Choeurs des temps passés d7 $ gF3 -- Choeurs des temps passés
$ midiOn "^59" ((# pan "[0.4 0.6]*8") $ midiOn "^59" ((# pan "[0.4 0.6]*8")
. slice 4 (run 4) . chop "<16!3 32>" . (# rel 0.85)
. (# att 0.01) . (# rel 0.85)
) -- Pan the chops! ) -- Pan the chops!
$ midiOn "^91" (ply "4 <4!3 <8 16>>") $ midiOn "^91" (ply "4 <4!3 <8 16>>")
$ midiOn "^19" (# freeze "<0.1 0.2 0.4 0.8>") $ midiOn "^19" (# freeze "<0.1 0.2 0.4 0.8>")
......
do
-- resetCycles
setcps (92/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
$ mask "<f!8 t!56>"
$ fix (# lpf 400) "gtkick"
$ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
# "[jazz,gtkick]"
-- # att 0.01
-- # rel 0.5
# cut 1
# gain 1.4
d2 $ gF1 $ gM1 -- snare clair sable mouvant inspired
$ mask "<f!7 [f t] t!8>"
$ "~ s ~ [s*<1 2> <~ [~ s] ~ [~ s] ~!3 [~ s]>]"
# "snare"
# n "<47!16 48!16>" -- CHANGEMENT DE SNARE ?!? QUELLE AUDACE
# cut 2
# gain 1.4
d3 $ gF1 $ gM1 -- Drumroll fantome
$ mask "<f!16 f!11 [f t] t!4 t!32>"
$ whenmod 32 24 (juxBy 0.4 rev)
$ "~ h ~ h ~ h*<1!3 2> ~ h*<1!7 [4 <4 <2 8>>]>"
# drumFrom "rolandtr808" "oh"
# cut 3
# room 0.3 # dry 1.9
# sz 0.8
# pan 0.7
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "4 2")
$ superimpose (
(# crushbus 41 (range 16 2.8 ("^53" + 0.25 * perlin)))
. (# hpf 200)
. (# lpf 10000)
. (|* gain 1))
$ note ("[fs3@7 <g3 <bf2 e3>>]"
|+| "<0!32 [0 <<7!4 -7 7!3> <12 -5>>]!32>" -- Richer echoes
)
# "bassWarsaw"
# lpf 300
# delay 0.8 # delayfb 0.4 # delayt 0.5
# gain (1 + (0.2 * perlin))
-- # legato "<0!32 [<0!3 0.2>]!32>"
# att 0.2 # rel 4
# room 0.2 # sz 0.4 # dry 0.9
d5 $ gF3 $ gM3
$ whenmod 128 64 (# n "1")
$ whenmod 68 48 (# begin 0.5)
$ "jane_wang:0"
-- # begin 0.79
# att 0.15 # rel 4
# begin "<0!4 0.2!4 0.4 0.2!2 0.79!2>"
# cut 5
# gain 1.2
d8 $ gF1 $ gM1
$ midiOn "^60" (mask "f(<4!3 [2 8]>,8)")
$ chop 16
$ loopAt 1
$ midiOn "^56" ((>| "jungle_breaks:109") . (|* gain 0.95))
$ "jungle_breaks:110"
# cut 8
# hpf 400
# att 0.05
# rel 2
# gain 1.4
d9
do
-- resetCycles
setcps (92/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
$ mask "<f!8 t!56>"
$ fix (# lpf 400) "gtkick"
$ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
# "[gtkick:1,jazz]"
# att 0.01
# rel 0.5
# cut 1
# gain 1.3
d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired
-- $ mask "<f!7 [f t] t!8>"
$ "~ s ~ [s*<1 2> <~ [~ s] ~ [~ s] ~!3 [~ s]>]"
# "snare:36"
# att 0.03
# rel 4
# lpf 4000
# octersub 2
# cut 2
# gain 1.6
d3 $ gF1 $ gM1 -- Drumroll fantome
$ mask "<f!16 f!11 [f t] t!4>"
$ whenmod 32 24 (juxBy 0.4 rev)
$ "~ h ~ h ~ h*<1!3 2> ~ h*<1!7 [4 <4 <2 8>>]>"
# drumFrom "rolandtr808" "oh"
# cut 3
# room 0.3 # dry 1.9
# sz 0.8
# pan 0.7
d4 $ gF2 $ gM3 -- MEDIEVAL DARK BASSLINE <3
$ superimpose (
(|+| note (
"<0 [0 <12 [12 0]>]>" +
"0(3,8) 0(3,8)" +"0 0 0 <7>"
+ 12
)) . (# cut 41) . (|* ampbus 43 "^33")
)
$ midiOn "^89" (ply "<4 <8 [8 . 16 <32 64>]>>" . (# cut 41))
$ superimpose ((# crushbus 41 (range 16 2.8 "^53"))
. (# hpf 300)
. (# lpf 10000)
. (|* gain 1.5))
$ note "<f cs>/2"
# "moog" # n "[0]"
# room 0.5 # dry 1.4 # sz 0.8
# cut 4
# lpf 500
d5 $ gF3 $ gM3 -- Le barde du Temps
$ whenmod 64 8 (slice 4 "<0 0 <0!16 1!16> <[<0 1>]!8 [<2 [2 3]>]!8>>")
$ loopAt 4
$ "medieval:38"
# cut 5
-- # room 0.2 # dry 1.1
d8 $ gF1 $ gM1 -- MEDIEVAL BREAK EMULATION
$ stack [
-- LOST SOUL BREAKBEAT
midiOn "^60" (mask "t(4,8,1)") $
midiOn "^92" (ply "2 <2 4>") $
chop 8
-- $ mask "<f!8 t!56>"
$ midiOff "^36" (slice 2 "<0 0 1 1 [0 <1 ~>]!3 <1 [0 . 0 1*[2 4]]>>")
$ midiOn "^36" (loopAt 1 . (# n 23))
$ loopAt 2
$ midiOn "^56" (# n 45)
$ "jungle_breaks:42"
# pan "0.4 . 0.6!3 0.4",
-- La quincaillerie:
mask "<f!16 t!16>" $ "~!5 h ~ <~!7 h>" # n "<12!3 11>"
# gain 0.8
# "medieval" # legato "<1!3 [1|0.2]>",
-- La forge nouvelle:
(0.125 ~>)
$ "medieval:16" # pan 0.8
# gain (slow 16 $ range 0.5 0.8 saw)
# room 0.4 # dry 0.6
# sz (range 0.2 0.8 perlin)
# cut 81,
""]
# cut 8
d9 -- Choeur Medieval
$ slow 2
$ note ("<<gs4!4 gs4 ef4 gs4> <f4!7 b4>>"
-- + "0 <0!12 -7!4>"
)
# "medieval:216" |- note ("8")
-- # "moogBass"
# cut 9
# rel 4
# room 0.4
# gain 1.3
d10 $ gF3 $ gM3 -- Des visiteurs venus d'ailleurs
$ mask "<t f!3 t f!3 t f!3 t t f t t!16>"
$ n (cat [0,"<~ 1>"
-- "visiteurs:2/4"
])
# "visiteurs"
# lpf 2500
# cut 10
d6 $ gF2 $ gM3 $ "meth_bass:3"
# note "-9"
# crushbus 61 (range 16 2.5 "^30")
# cut 6 # gain 1.4
-- once $ "visiteurs:9" # end 0.56 # rel 1.3 # cut 4
once $ "visiteurs:1" # cut 4
once $
-- Bain Electrique, ex Bain Bouillant -- Bain Electrique, ex Bain Bouillant
do do
-- resetCycles resetCycles
setcps (128/60/4) setcps (128/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
......
...@@ -48,18 +48,11 @@ let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) ...@@ -48,18 +48,11 @@ 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 gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
d10 -- Ready playerm two
$ mask "<f!3 t f!3 t f!3 t t!4>"
$ slice 8 "0 <0!3 1>"
$ loopAt 4
$ "fx_gameboy:5"
# crushbus 101 (slow 32 $ range 1.8 0.61 saw)
# midiG' "^20" 0 0.85
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^42" (<| "k k k <k k*2 k <k [<~ k> k]>>") $ 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? $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[kick:5,808bd:4,kick:4]" $ "[808bd:4,kick:4]" -- FIXME DESIGN THIS KICK BETTER <3
# midiG' "^78" 0 1.5 # gain 1.5
d2 $ gM $ gF -- Break "80s' Apocalypse in a Box" d2 $ gM $ gF -- Break "80s' Apocalypse in a Box"
$ midiOn "^44" (fast "1 2") $ midiOn "^44" (fast "1 2")
$ midiOn "^76" -- L'Esprit de Nassim $ midiOn "^76" -- L'Esprit de Nassim
...@@ -74,19 +67,19 @@ d2 $ gM $ gF -- Break "80s' Apocalypse in a Box" ...@@ -74,19 +67,19 @@ d2 $ gM $ gF -- Break "80s' Apocalypse in a Box"
$ loopAt 4 $ loopAt 4
$ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]" $ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]"
# cut 2 # cut 2
# midiG' "^80" 0 1 -- # midiG' "^80" 0 1
# pan 0.4 # pan 0.4
d3 $ gF -- Un peu d'encouragement? d3 $ gF -- Un peu d'encouragement?
$ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000)) $ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000))
$ "~ clap" $ "~ clap"
# midiG' "^79" 0 2 -- # midiG' "^79" 0 2
-- # gain 0.8 -- # gain 0.8
d4 $ gF2 -- BURN THE BASS WITCH d4 $ gF2 -- BURN THE BASS WITCH
$ midiOn "^57" (superimpose ( -- chain of wicked thoughts $ midiOn "^57" (superimpose ( -- chain of wicked thoughts
(|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>")) (|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>"))
. (|* gain "<1 1 1.05 1.1>") . (|* gain "<1 1 1.05 1.1>")
. (chop "8 . <8!3 16>") . (# cut 41))) . (chop "8 . <8!3 16>") . (# cut 41)))
$ midiOn "^89" (chop (slow 4 $ "[16 32 64 128]")) $ midiOn "^89" ((0.125 ~>) . chop (slow 4 $ "[16 32 64 128]"))
$ "synth/4" $ "synth/4"
# "90s_synatm:9" # "90s_synatm:9"
# crushbus 41 (range 10 2.5 "^53") # crushbus 41 (range 10 2.5 "^53")
...@@ -94,14 +87,14 @@ d4 $ gF2 -- BURN THE BASS WITCH ...@@ -94,14 +87,14 @@ d4 $ gF2 -- BURN THE BASS WITCH
# sz "<0.4!7 0.8>" # sz "<0.4!7 0.8>"
# dry 1 # dry 1
# cut 4 # cut 4
# midiG' "^81" 0 1.4 -- # midiG' "^81" 0 1.4
d5 $ gM $ gF2 -- Ghosts from an easier time d5 $ gM $ gF2 -- Ghosts from an easier time
$ midiOn "^58" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge") $ 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) $ note ("c'maj'4" + "<c!3 g g g [g, [~ c]] c>" - 12)
# "90s_synatm:8/4" # cut 5 # "90s_synatm:8/4" # cut 5
# crushbus 51 (range 16 2.5 "^54") # crushbus 51 (range 16 2.5 "^54")
# midiG' "^82" 0 1.1 -- # midiG' "^82" 0 1.1
d6 $ gF3 -- Jump aboard the BASIC BUS d7 $ gF3 -- Jump aboard the BASIC BUS
$ midiOn "^91" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)") $ midiOn "^91" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)")
$ midiOff "^59" (loopAt 16) $ midiOff "^59" (loopAt 16)
$ midiOn "^59" (loopAt 8) $ midiOn "^59" (loopAt 8)
...@@ -110,21 +103,28 @@ d6 $ gF3 -- Jump aboard the BASIC BUS ...@@ -110,21 +103,28 @@ d6 $ gF3 -- Jump aboard the BASIC BUS
# crushbus 61 (range 20 2.25 "^55") # crushbus 61 (range 20 2.25 "^55")
# squizbus 62 (range 0 1.5 "^35") # squizbus 62 (range 0 1.5 "^35")
# roombus 63 (range 0 0.5 "^19") # roombus 63 (range 0 0.5 "^19")
# midiG' "^83" 0 1.4 # gain 1.4
# panbus 64 (range 0.13 0.87 (slow 16 saw)) # panbus 64 (range 0.13 0.87 (slow 16 saw))
# cut 6 # cut 7
d8 d8
-- $ gM $ gF3 -- Breaks divins -- TODO Rework? -- $ gM $ gF3 -- Breaks divins -- TODO Rework
$ midiOn "^92" (off "e" id) $ midiOn "^92" (off "e" id)
$ midiOff "^60" (mask "[f t]") $ midiOff "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21")) $ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21"))
$ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3")) $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "jungle_breaks:40"))
$ loopAt 2 $ loopAt 2
$ chop 8 $ chop 8
$ "jungle_breaks:1" $ "jungle_breaks:1"
# cut 8 # cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4" # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1.8 -- # midiG' "^84" 0 1.8
d10 -- Ready playerm two
$ mask "<f!3 t f!3 t f!3 t t!4>"
$ slice 8 "0 <0!3 1>"
$ loopAt 4
$ "fx_gameboy:5"
# crushbus 101 (slow 32 $ range 1.8 0.61 saw)
-- # midiG' "^20" 0 0.85
......
-- NUIT AGITEEE -- NUIT AGITEEE
-- d f Arc -- d f Arc
resetCycles
do do
-- resetCycles
setcps (160/60/4) setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
...@@ -54,7 +54,7 @@ d4 $ gF2 $ gMute3 ...@@ -54,7 +54,7 @@ d4 $ gF2 $ gMute3
# lsize 2.2 # lsize 2.2
# lrate (slow 4 $ range 0.2 0.8 sine) # lrate (slow 4 $ range 0.2 0.8 sine)
-- # distortbus 41 (range 0 5 "^53") -- # distortbus 41 (range 0 5 "^53")
# gain (0.8 - 0.1 * "^33" - 0.1 * "^29") # gain (1.1 - 0.1 * "^33" - 0.1 * "^29")
# room "<0.3!12 0.35 0.4 0.48 0.6>" # room "<0.3!12 0.35 0.4 0.48 0.6>"
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ someCyclesBy "^34" ((|- note 12) . (stut 4 0.5 "e")) $ someCyclesBy "^34" ((|- note 12) . (stut 4 0.5 "e"))
...@@ -104,7 +104,7 @@ d11 $ gF3 $ gMute3 ...@@ -104,7 +104,7 @@ d11 $ gF3 $ gMute3
# cut 11 # cut 11
d8 $ gM1 $ gF1 d8 $ gM1 $ gF1
$ midiOn "^92" (ply "1 <2 4 8> 2 <2 [4 8]>") $ midiOn "^92" (ply "1 <2 4 8> 2 <2 [4 8]>")
$ midiOff "^60" (mask (slow 4 "t(<2 4 [4 8 4] 8>,16)")) $ midiOff "^60" (mask "t(4,8,1)")
-- $ slice 8 "<~!7 0> 1 <~!6 2 2> 3 <~!4 4!4> 5 <~ 6 ~ ~ 6 ~ 6 6> 7" -- $ slice 8 "<~!7 0> 1 <~!6 2 2> 3 <~!4 4!4> 5 <~ 6 ~ ~ 6 ~ 6 6> 7"
$ midiOn "^36" ((# n "18")) $ midiOn "^36" ((# n "18"))
$ midiOn "^56" ((# n "6")) $ midiOn "^56" ((# n "6"))
......
...@@ -51,8 +51,8 @@ d3 $ gF1 $ gM1 -- Running Hats ...@@ -51,8 +51,8 @@ d3 $ gF1 $ gM1 -- Running Hats
|* gain (range 0.8 1.2 perlin) |* gain (range 0.8 1.2 perlin)
# room (slow 8 $ range 0.2 0.45 saw) # room (slow 8 $ range 0.2 0.45 saw)
# sz (slow 8 $ range 0.8 0.2 saw) # sz (slow 8 $ range 0.8 0.2 saw)
# dry (slow 4 $ range 0.8 1.2 perlin)
# note (range "-12" 12 "^52") # note (range "-12" 12 "^52")
# dry (slow 4 $ range 0 2 perlin)
# pan 0.6 # pan 0.6
# cut 344 # cut 344
# gain 1.6 # gain 1.6
...@@ -129,7 +129,7 @@ d9 $ gF3 $ gM3 -- Nappes crushées indépendantes ...@@ -129,7 +129,7 @@ d9 $ gF3 $ gM3 -- Nappes crushées indépendantes
-- . (# delay 0.5) . (# delayt 0.125) . (# delayfb 0) -- . (# delay 0.5) . (# delayt 0.125) . (# delayfb 0)
. (|* gain 0.5) . (|* gain 0.5)
) )
$ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>") -- $ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>")
-- $ superimpose ((|- note 12) . (# cut 101)) -- $ superimpose ((|- note 12) . (# cut 101))
$ note (euclid "<5 3 6>" 6 $ note (euclid "<5 3 6>" 6
$ "<e e <c c g> <e b>>") $ "<e e <c c g> <e b>>")
...@@ -168,8 +168,10 @@ d11 ...@@ -168,8 +168,10 @@ d11
$ ("~!2 rhadamanthe_vocal:45" # gain 1.1 $ ("~!2 rhadamanthe_vocal:45" # gain 1.1
# begin "<0!2 0.44!2>" # end "<0.435!2 1!2>" # pan 0.1) # cut 110, # begin "<0!2 0.44!2>" # end "<0.435!2 1!2>" # pan 0.1) # cut 110,
-- SYSTEM OVERLOAD -- SYSTEM OVERLOAD
mask "<t!8 f!56>" $
"<~!7 [~ rhadamanthe_vocal:46]>" # cut 111, "<~!7 [~ rhadamanthe_vocal:46]>" # cut 111,
-- Cigarette Luck -- Cigarette Luck
mask "<f!24 t!8>" $
n "<<14!3 6> ~ ~ <12 23>>" # "movie_wolf" # end "<0.55!8 1!8>" n "<<14!3 6> ~ ~ <12 23>>" # "movie_wolf" # end "<0.55!8 1!8>"
# gain 0.7 # gain 0.7
# cut 112 # cut 112
......
-- euphorie solitaire
-- FIXME NAMING: NOT EUPHORIE
do do
-- resetCycles -- resetCycles
setcps (140/60/4) setcps (140/60/4)
...@@ -19,28 +16,33 @@ d1 -- Kick premier` ...@@ -19,28 +16,33 @@ d1 -- Kick premier`
-- $ fix ((# att 0.5) . (# legato 0.5) . (|- note 6 show )) ("tek_kick:3") -- $ fix ((# att 0.5) . (# legato 0.5) . (|- note 6 show )) ("tek_kick:3")
$ "[kick:4]" $ "[kick:4]"
# room 0.2 # sz 0.8 # dry 1.1 # room 0.2 # sz 0.8 # dry 1.1
# gain 0.93 # gain 1.3
d2 $ gM1 $ gF1 -- Snare second d2 $ gM1 $ gF1 -- Snare second
-- $ fix (# lpf 4000) "snare" -- $ fix (# lpf 4000) "snare"
$ midiOff "^43" (mask "<t!16 f!16>") $ midiOff "^43" (mask "<t!16 f!16>")
$ fix ((|* gain 1.1) . (|- note 2)) ("ab:11") $ fix ((|* gain 1.1) . (|- note 2)) ("ab:11")
$ "~ s ~ s*<1!3 2>" $ "~ s ~ s*<1!3 2>"
# "[<ab:10!3 ab:11>]" # "[<ab:10!3 ab:11>]" -- FIXME kick plus "on ne vit qu'une fois"
# gain 1.4
d3 $ gM1 $ gF1 d3 $ gM1 $ gF1
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
-- $ midiOn "^44" (mask "t([16 <16 [32 64]>],64)" . chop 16 . ply 4) -- $ midiOn "^44" (mask "t([16 <16 [32 64]>],64)" . chop 16 . ply 4)
$ "dr*[8 [<8 <16 [16 <8 32> 16]>>]]" $ "dr*[8 [<8 <16 [16 <8 32> 16]>>]]"
# "dr" # "h2ogmhh:2" # "dr" # "h2ogmhh:2"
# gain (fast 8 $ range 0.85 0.95 perlin) # gain ((fast 8 $ range 0.85 0.95 perlin) + 0.4)
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ superimpose (
(# crushbus 42 (range 16 0.85 "^53")) . (# cut 41)
. (# hpf 500) . (# lpf 10000) -- Crush the high freqs only
)
$ midiOn "^89" (ply "8 <4 16>") $ midiOn "^89" (ply "8 <4 16>")
$ slice 8 "<7 6>" $ slice 8 "<7 6>"
$ "meth_bass:0" $ "meth_bass:0"
# cut 4 # cut 4
# lpf 500 -- Keep the low freq from crush
# octersubbus 41 (range 0 2 "^33") # octersubbus 41 (range 0 2 "^33")
# crushbus 42 (range 16 0.85 "^53")
|- note 0.5 |- note 0.5
# gain 0.6 # gain 1.1
# room 0.3 # sz 0.5 # dry 0.9 # room 0.3 # sz 0.5 # dry 0.9
d5 -- Melancolie solitaire d5 -- Melancolie solitaire
$ midiOn "^58" ( superimpose ( $ midiOn "^58" ( superimpose (
...@@ -64,7 +66,7 @@ d5 -- Melancolie solitaire ...@@ -64,7 +66,7 @@ d5 -- Melancolie solitaire
# tremrbus 51 (range 0 20 "^34") # tremrbus 51 (range 0 20 "^34")
# tremdp 2 # tremdp 2
# modIndex (range 0 5 "^54") # modIndex (range 0 5 "^54")
# gain 1.2 # gain 1.4
d6 $ gF2 $ gM3 d6 $ gF2 $ gM3
-- $ slice 4 "0 1 2 3" -- $ slice 4 "0 1 2 3"
$ whenmod 4 3 (|- note "0 <4 6>") $ whenmod 4 3 (|- note "0 <4 6>")
...@@ -74,7 +76,7 @@ d6 $ gF2 $ gM3 ...@@ -74,7 +76,7 @@ d6 $ gF2 $ gM3
# pan 0.8 # pan 0.8
|* gain "0.85 1.1" |* gain "0.85 1.1"
# room 0.2 # room 0.2
# gain 0.5 # gain 0.9
# octersubbus 61 (range 0 1 "^30") # octersubbus 61 (range 0 1 "^30")
-- TODO Make d7 the new d9 and another lead in d7 -- TODO Make d7 the new d9 and another lead in d7
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
...@@ -92,3 +94,4 @@ d8 $ gF1 $ gM1 -- BREAK THAT SHIT ...@@ -92,3 +94,4 @@ d8 $ gF1 $ gM1 -- BREAK THAT SHIT
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:22" -- Sable blanc $ "jungle_breaks:22" -- Sable blanc
# lpf 4000 # lpf 4000
# gain 1.4
...@@ -14,9 +14,9 @@ d1 -- Kick premier` ...@@ -14,9 +14,9 @@ d1 -- Kick premier`
$ midiOff "^42" (<| "k . ~ k ~ ~ ") $ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k k") $ midiOn "^42" (<| "k k k k")
$ superimpose ((# hpf 500) . (# delay "<0!2 <0 0.2> 0.2>") . (# delayt 0.25)) $ superimpose ((# hpf 500) . (# delay "<0!2 <0 0.2> 0.2>") . (# delayt 0.25))
$ "[kick:4]" $ "[kick:4,jazz]"
# lpf 5000 # lpf 5000
# gain 0.9 # gain 0.93
d2 $ gM1 $ gF1 -- Snare second d2 $ gM1 $ gF1 -- Snare second
$ fix (# lpf 4000) "snare" $ fix (# lpf 4000) "snare"
$ midiOff "^43" (mask "<t!16 f!16>") $ midiOff "^43" (mask "<t!16 f!16>")
...@@ -100,8 +100,4 @@ d6 $ gM3 $ gF2 $ note ...@@ -100,8 +100,4 @@ d6 $ gM3 $ gF2 $ note
) )
# "meth_bass:3" # "meth_bass:3"
# cut 6 # cut 6
# gain 0.5 # gain 0.7
once $ "risers:6" # cut 10 # orbit 9
# begin 0.5
-- # note "-4"
resetCycles resetCycles
do do
setcps (93/60/4) setcps (93/60/4)
...@@ -34,7 +34,7 @@ d4 $ gF2 $ gM3 ...@@ -34,7 +34,7 @@ d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t([<8 16> <16 [16 32]>],8)") $ midiOn "^89" (struct "t([<8 16> <16 [16 32]>],8)")
$ note ("[0,7(<3 5 [5 3] <3 [3 5]>>,8,1)]" + "<d b4 g4 fs4>" - 24) $ note ("[0,7(<3 5 [5 3] <3 [3 5]>>,8,1)]" + "<d b4 g4 fs4>" - 24)
# "bassWarsaw" # "bassWarsaw"
# gain 0.8 # gain 1.3
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33") # octersubbus 42 (range 0 2.5 "^33")
# room 0.3 # room 0.3
......
resetCycles -- resetCycles
do do
setcps(120/60/4) setcps(120/60/4)
...@@ -16,7 +16,7 @@ d1 $ gF1 $ gM2 ...@@ -16,7 +16,7 @@ d1 $ gF1 $ gM2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5" $ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
-- $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>") -- $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>") $ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| " show k . ~ k ~ ~") $ midiOff "^42" (<| "k . ~ k ~ ~")
-- $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]") -- $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
-- $ fix (|* gain 0.85) "rampleS57" -- $ fix (|* gain 0.85) "rampleS57"
$ "[house:0,kick:5]" -- TODO: Meilleur kick? $ "[house:0,kick:5]" -- TODO: Meilleur kick?
...@@ -28,10 +28,10 @@ d2 $ gF1 $ gM1 ...@@ -28,10 +28,10 @@ d2 $ gF1 $ gM1
$ "[snare:40,rampleM1:10]" $ "[snare:40,rampleM1:10]"
# gain 1.3 # gain 1.3
# pan 0.6 # pan 0.6
# room 0.84 # dry 0.95 # sz 0.1 # room 0.4 # dry 0.95 # sz 0.1
# lpf 4650 # lpf 4650
d3 $ gF1 $ gM1 -- Highest hats d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2) $ midiOff "^44" (slow "<2!7 [4 2] 4!7 [2 4]>")
$ arp "up" $ arp "up"
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :) $ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
...@@ -49,6 +49,7 @@ d4 $ gF2 $ gM3 -- TODO: Varier basse? ...@@ -49,6 +49,7 @@ d4 $ gF2 $ gM3 -- TODO: Varier basse?
$ "nujazz_bass120:4" $ "nujazz_bass120:4"
# cut 4 # cut 4
# crushbus 41 (range 16 4 "^53") # crushbus 41 (range 16 4 "^53")
# gain 1.4
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ midiOn "^58" ((# freeze 0.2)) $ midiOn "^58" ((# freeze 0.2))
$ midiOn "^90" (chop "4 <2 4 4 8>") $ midiOn "^90" (chop "4 <2 4 4 8>")
...@@ -77,9 +78,8 @@ d8 $ gF1 $ gM1 -- Break populaire ...@@ -77,9 +78,8 @@ d8 $ gF1 $ gM1 -- Break populaire
$ midiOn "^36" (loopAt "1 <1 0.5>" . (# "jungle_breaks:6")) $ midiOn "^36" (loopAt "1 <1 0.5>" . (# "jungle_breaks:6"))
$ midiOn "^56" (# "jungle_breaks:24") $ midiOn "^56" (# "jungle_breaks:24")
$ "jungle_breaks:53" $ "jungle_breaks:53"
# gain 0.85
# pan "0.68 0.42 0.42 0.68" # pan "0.68 0.42 0.42 0.68"
# gain 1.2 # gain 1
d7 $ gF1 $ gM1 -- SECOND BREAK!!?! d7 $ gF1 $ gM1 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2) $ midiOn "^91" (ply 2)
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19")) $ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
...@@ -88,3 +88,4 @@ d7 $ gF1 $ gM1 -- SECOND BREAK!!?! ...@@ -88,3 +88,4 @@ d7 $ gF1 $ gM1 -- SECOND BREAK!!?!
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:22" $ "jungle_breaks:22"
# pan "0.8 0.2" # pan "0.8 0.2"
# gain 1.2
...@@ -35,7 +35,7 @@ d3 $ gF1 $ gM1 -- Highest hats ...@@ -35,7 +35,7 @@ d3 $ gF1 $ gM1 -- Highest hats
# "h2ogmsn:12" # "h2ogmsn:12"
# cut 3 # cut 3
# legato (range 0.48 1 sine) # legato (range 0.48 1 sine)
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin))) # gain (0.9 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.14 # sz 0.4 # dry 1 # room 0.14 # sz 0.4 # dry 1
-- # pan "<0.7!16 0.3!16>" -- # pan "<0.7!16 0.3!16>"
-- # pan 0.8 -- # pan 0.8
...@@ -48,6 +48,7 @@ d4 $ gM3 $ gF2 ...@@ -48,6 +48,7 @@ d4 $ gM3 $ gF2
# pan 0.55 # pan 0.55
# room 0.3 # room 0.3
# crushbus 41 (range 12 4.5 "^53") # crushbus 41 (range 12 4.5 "^53")
# gain 1.4
d5 $ gM3 $ gF3 d5 $ gM3 $ gF3
$ chop 8 $ chop 8
$ loopAt 2 $ loopAt 2
......
...@@ -17,7 +17,7 @@ let gM3 = gMask . gMute3 ...@@ -17,7 +17,7 @@ let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2 d1 $ gF1 $ gMute2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5" $ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>") $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]") $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
...@@ -42,7 +42,7 @@ d3 $ gF1 $ gM1 -- Highest hats ...@@ -42,7 +42,7 @@ d3 $ gF1 $ gM1 -- Highest hats
# "h2ogmsn:14" # "h2ogmsn:14"
# cut 3 # cut 3
# legato (range 0.28 1 sine) # legato (range 0.28 1 sine)
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin))) # gain (1.1 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.14 # sz 0.4 # dry 1 # room 0.14 # sz 0.4 # dry 1
# pan 0.8 # pan 0.8
d6 $ gF1 $ gM1 -- Highest hats d6 $ gF1 $ gM1 -- Highest hats
......
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