Practice: Divinites2

parent fb2bcc3a
......@@ -20,7 +20,7 @@ d3 $ gF $ n (stack [
])
# "amencutup"
# midiG' "^80" 0 1.2
d4 $ gF
d4 $ gF2
$ midiOn "^57" (mask "t(<4!4 8!4 12!4 16!4>,16)")
$ chop 16
$ whenmod 32 24 (iter "1 4")
......@@ -31,7 +31,7 @@ d4 $ gF
$ "bass_commodore:6" # cut 4
# midiG' "^81" 0 1.2
# crushbus 41 (range 16 1.2 "^53")
d7 -- ACID BUS
d7 $ gF2 -- ACID BUS
$ midiOn "^58" (slice 32 ("<0 0 0 0 0 1 1 1 0 1 2 2 0 2 2 3>*4"))
$ midiOff "^58" (slice 8 "<0 1 2 3>")
$ loopAt 8 $ "synth_commodore:0"
......
do
setcps (120/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 gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus"
let lagamount = pF "lagamount"
let dec = pF "dec"
let sus = pF "sus"
let cutoff = pF "cutoff"
d1 $ gF $ gMute
$ someCyclesBy "^30" (ply "2 <2!3 4>")
$ midiOn "^74" (# "[kick:5,kick:4]")
$ midiOn "^42" (<| "k k k <k [<k ~> k]>")
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (struct "t . ~ t ~ ~")
$ "[kick:5,kick:4,808bd:8]"
# att 0.015
# rel 0.125
# lpf 2000
# midiG' "^78" 0 1.3
d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ c")
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# midiG' "^79" 0 1.3
d3 $ gF $ gMute2
$ midiOn "^44" (mask "t([8 . 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
# midiG' "^80" 0 1.6
d4 $ gF2
$ midiOn "57" (slice 8 "0 <1 3>" . chop 4)
$ loopAt 2
$ chop 2
$ "fbass:4"
# cut 4
# pan 0.1
# crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1.4
d6 $ gF3
$ midiOn "^91" (ply "4 <4 8>")
$ midiOn "^59" (slice 8 ("0 <0 [0 <0 1 2 3>]>") . chop 8)
$ midiOff "^59" (slice 4 ("<0 1 2 3>"))
$ loopAt 16
$ "shiloh:7"
# pan 0.8
# room 0.2 # sz 0.8 # dry 1
# crushbus 81 (range 16 2.5 "^55")
# midiG' "^83" 0 1.2
# cut 6
once $ "synth_gameboy"
# cut 8
once $ "meth_bass" # cut 6
once $ "[kick:5,kick:4,808bd:8]"
# lpf 200
# gain 0.8
d7 $ gF3 $ gM2 -- High Dauphin
$ struct "t@2 t*<1 2 1 <4 1>> t*<1 2 4 8>"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
)
# "[cbow:3]"
# cut 7
# room 0.2
# pan 0.9
# crushbus 71 (range 16 2.5 "^55")
# midiG' "^83" 0 1
d3 $ gF $ gMute2
$ midiOn "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
# midiG' "^80" 0 1.6
d4 $ gF2 $ slow 2 -- Basse Baleine
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
$ (0.125 <~) -- Calage :)
$ someCyclesBy "^17" (
(mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
) --
$ fix ((midiOff "^57" (# silence)) . (|* gain 0.8) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
"bass2"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
- 24
)
# "[bass2:1,bassWarsaw]" -- TODO: Autre basse moins venere?
# room 0.2
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1.3
d6 $ gF3 $ gMute2 -- Leads reponse
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
$ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
$ someCyclesBy "<f!3 t>" (mask "t f!15". (# legato 2))
-- $ (0.125 <~) -- Calage :)
-- $ someCyclesBy "^17" (
-- (mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
-- ) --
$ whenmod 32 24 (ply "2 <2!4 4!4>")
$ swing (1/3)
$ note (
"<ef4 g4 <ef g> d>"
+ "<0!0 [0 12]!0 [0(2,8), <12!3 -12>([<1 3> 3],8,3)]!32>"
+ "[0,<7 12 12 7>]"
- 12
)
# "FMRhodes1"
# room 0.2
# pan 0.8
# modIndex (range 0 16 "^34")
# crushbus 61 (range 16 2.5 "^54")
# midiG' "^82" 0 1.3
d8 $ gM $ gF3 -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
$ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2
$ chop 8
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1.8
d10 $ gF3 -- Pads angéliques
$ midiOff "^58" (mask "t([0 2],4)")
$ note (
slow 2 "<bf4 d5 <bf4 ef> [bf4 a4@3]>"
+ "[0,[0*<1 1 2 <2 1>> . 0 12*<1 2>]]"
)
# chorus 2
# "moogBass"
# att (range 0.001 2 "^16")
# dec (range 0.2 10 "^17")
# sus "^18"
# rel (range 0.2 10 "^19")
# room 0.5 # sz 0.6 # dry 2
# midiG' "^20" 0 1
# legato 2
# cut 10
bf g bf <bf a>
......@@ -17,7 +17,7 @@ d2
$ "<clap!3 clap:2>"
# lpf 2000
# note "-2"
# room (slow 8 $ range 0.2 0.6 saw)
# room (slow 8 $ range 0.2 0.6 saw) # dry 1
# midiG' "^79" 0 1.7
d3 $ gF $ gMute
$ midiOn "^76" (ply "4 8")
......@@ -37,20 +37,17 @@ d5 $ gF2 -- Nice organs you got there
# midiG' "^82" 0 1.8
# pan (slow 16 $ range 0.5 0.2 saw)
d6 $ gF2 -- Jump aboard the BASIC BUS
$ sometimesBy (1 - "^19") ((# room 0.5) . (# sz 0.8) . mask "t(1, 8)")
-- $ sometimesBy (1 - "^19") (mask "t(1, 8)")
$ midiOn "^91" (chop "<8!3 16>")
$ midiOn "^59" (jux rev)
$ midiOff "^41" (
whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93)))
)
$ chop 32
-- $ midiOff "^59" (loopAt 16)
-- $ midiOn "^59" (loopAt 8)
$ loopAt 8
$ "synth_commodore/2" # n "0"
$ "synth_commodore" # n "1"
# crushbus 61 (range 16 2.25 "^55")
# roombus 63 (range 0 0.5 "^19")
# room 0.3
# roombus 63 (range 0 0.5 "^35")
# midiG' "^83" 0 1.2
-- # panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw))
# pan 0.8
......@@ -82,6 +79,8 @@ d8 $ gF $ gM
# pan 0.3
d9 $ never (# silence)
$ slow 4 $ n "~ <8 10 14 8>"
# "fx_commodore"
......
......@@ -11,8 +11,8 @@ let prog = "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>"
d1
$ gF $ gMute
$ midiOn "^74" (fast 2)
$ midiOn "^42" (-- Run & stumble
slow 2 . (<| "k <k!4 ~ k!3> k <k [~ k] k [<k!4 ~!3 k> k]>"))
$ midiOn "^42" (-- Run
slow 2 . (<| "k k k k"))
$ midiOff "^42" (<| "k . ~ k ~ ~") -- L'attente
$ "[meth_1902:2,kick:8]" # note "-2"
# midiG' "^78" 0 1.5
......@@ -95,4 +95,3 @@ d8 $ gF $ gM
# cut 8
# pan (slow 8 $ range "<0.2!8 0.8!8>" 0.5 cosine)
# midiG' "^84" 0 1.3
once $ "dr"
......@@ -10,7 +10,7 @@ let gM = gMask . gMute
let gM2 = gMask . gMute2
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
d1 $ gLPF $ gF $ gMute
d1 $ gLPF $ gF $ gMute $ midiOn "^75" (fast 2)
$ fix (|* gain 0.8) "kick"
$ fix (|* gain 0.8) "bskick"
$ midiOn "^41" (<| "k k k k k k k*<1!7 2> [<k <~ k>> k]")
......@@ -37,6 +37,12 @@ d3 $ gLPF $ gF $ gM2
# pan 0.6
# midiG' "^80" 0 1.2
# lpf 4000
d8 $ gF3
$ (|* gain (slow 32 $ range 0.3 0.8 saw))
$ "~ 808cy:5*<1!7 2>"
# room (slow 32 $ range 0 0.5 saw)
# sz 0.2 # dry 1.13
# midiG' "^80" 0 1
d4 $ gLPFSoft $ gF2 -- Guitar sample turned bassline
$ midiOn "^57" ( -- ELECTRIC
whenmod 4 3 ((# crushbus 41 (range 5 3.5 saw)))
......@@ -82,9 +88,3 @@ d7 $ gF3
# pan 0.8
# crushbus 71 (range 16 3 "^55")
# midiG' "^83" 0 0.8
d8 $ gF3
$ (|* gain (slow 32 $ range 0.3 0.8 saw))
$ "~ 808cy:5*<1!7 2>"
# room (slow 32 $ range 0 0.5 saw)
# sz 0.2 # dry 1.13
# midiG' "^80" 0 1
......@@ -42,6 +42,7 @@ do
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
......@@ -56,7 +57,7 @@ d1 $ gMute $ gF -- 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?
$ "[kick:5,808bd:4,kick:4]"
# midiG' "^78" 0 1.7
# midiG' "^78" 0 1.5
d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™"
$ midiOn "^44" (fast "1 2")
$ midiOn "^76" -- L'Esprit de Nassim
......@@ -65,13 +66,13 @@ d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™"
slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") .
(loopAt "q") .
(# "breaks165") . (# cut 2)
. (|* gain 1.1)
. (|* gain 1.4)
)
$ chop 8
$ loopAt 4
$ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]"
# cut 2
# midiG' "^80" 0 0.9
# midiG' "^80" 0 1
# pan 0.4
d3 $ gF -- Un peu d'encouragement?
$ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000))
......@@ -91,28 +92,46 @@ d4 $ gF2 -- BURN THE BASS WITCH
# sz "<0.4!7 0.8>"
# dry 1
# cut 4
# midiG' "^81" 0 1.6
# midiG' "^81" 0 1.4
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")
$ 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
d6 $ gF2 -- Jump aboard the BASIC BUS
d6 $ gF3 -- 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)
$ chop 8
$ "synth_commodore" # n "1"
$ "synth_commodore" # n "0"
# crushbus 61 (range 20 2.25 "^55")
# squizbus 62 (range 0 1.5 "^35")
# roombus 63 (range 0 0.5 "^19")
# midiG' "^83" 0 1.45
# midiG' "^83" 0 1.4
# panbus 64 (range 0.13 0.87 (slow 16 saw))
# cut 6
d8 $ gM $ gF3 -- Breaks divins -- TODO Rework?
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21"))
$ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2
$ chop 8
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1.8
--
-- SANDBOX
--
d7 $ gM -- Break from the past
$ (# speed (range (-0.25) 0.625 "^56"))
$ (# speed (range (-0.25) 2.25 "^56"))
$ midiOn "^60" (often (ply 2))
$ midiOn "^92" (slice 8 "0 ~ ~ 3 . 4 <~ 5> 6 <~ 7*<1 2>>" . loopAt 2)
$ chop 16
......
......@@ -40,7 +40,6 @@ d3 $ gF $ gM -- Broken Jungle Snake
# n "<13!3 [13 14 13] 13!3 [13 14] 13!4 14!3 [13 <13 [14 13 14]>]>"
# cut 3
# pan 0.6
# gain 0.9
# midiG' "^80" 0 1.2
d4 $ gF2 $ gM -- GENIE OF INFRABASS
$ midiOn "^89" (juxBy 0.8 (rev . (# cut 41)))
......@@ -51,14 +50,15 @@ d4 $ gF2 $ gM -- GENIE OF INFRABASS
# octersubsubbus 42 (range 0 0.6 "^53")
# midiG' "^81" 0 1.2
d7 $ gF3
$ midiOff "^58" (mask "<f!32 t!32>")
$ whenmod 16 12 (juxBy 0.7 (rev . (# cut 71)))
$ slice 4 "0 <1!3 2*2>"
$ midiOn "^58" (juxBy 0.7 (rev . (# cut 71)))
$ mask "t <f t>" $ chop 16
$ slice 4 "0 <1!3 2>"
$ loopAt 2
$ "fepiano:24"
# midiG' "^82" 0 1
# cut 7
d6 $ gF3 -- HIGH HOPES
# midiG' "^82" 0 1
d8 $ gF3 -- HIGH HOPES
$ midiOn "^91" (|-| note "[0,12]")
$ midiOn "^59" (
|+| note (arpeggiate "[0 12 <0!8 7!8>]([4 5 <1 4 1 <5 8>>],8)")
)
......@@ -70,7 +70,7 @@ d6 $ gF3 -- HIGH HOPES
# room 0.2 # sz 0.4 # dry 1.1
# legato 2
# crushbus 61 (range 16 3.5 "^55")
# midiG' "^83" 0 1
# midiG' "^83" 0 1.5
d9 $ gF3 -- Pluie bienfaisante
$ whenmod 64 32 (superimpose (
chop 4 . (# n "2") . (# cut 91)
......
......@@ -32,9 +32,6 @@ d4 $ gF2 $ gMask
$ loopAt 4
$ midiOn "^57" (# "bass_gameboy:5")
$ "bass_gameboy"
# room (slow 8 $ range 0.2 0.8 sine)
# sz 0.8
# drybus 41 (range (-2) 2 "^33")
# cut 4
# midiG' "^81" 0 1
d5 $ gF2 $ gMask
......@@ -46,8 +43,7 @@ d5 $ gF2 $ gMask
$ "synth_gameboy:5"
# pan 0.2
# hpfbus 51 (range 0 8000 "^34")
# crushbus 52 (range 16 2.5 "^54")
# midiG' "^82" 0 1.2
# midiG' "^82" 0 0.9
d6 $ gF2 $ gMask
-- $ juxBy 0.8 (rev . (# cut 61))
$ slice 8 ("<0 0 1 <[1 1] [2 <~ 2> 3 <~ 3>]>>")
......@@ -57,6 +53,7 @@ d6 $ gF2 $ gMask
# gain 0.8
# midiG' "^83" 0 0.9
d8 $ gF2 $ gMask
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
$ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<2 [4 <4 8>]>")
......
......@@ -10,7 +10,7 @@ let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF $ gMute2 -- Kick variable
$ midiOn "^75" (fast 2)
$ midiOn "^42" (struct "t t t <t!3 t*2 t [~ t] t t*2>") -- COME FOR THE KICK
$ midiOn "^42" (struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (fast 2 . struct "t . ~ t ~ ~")
$ fix (|* gain 0.8) "kick:4"
......@@ -41,13 +41,16 @@ d3 $ gF $ gMute2
# pan 0.35
# midiG' "^80" 0 1
d4 $ gF2 -- COME WITH THE BASS
$ midiOn "^33" (superimpose (const $ gF2
$ "meth_bass" # n "<8 8 <8 9> <9 [9 9]>>"
$ superimpose (const $ gF2
-- $ n "<8 8 [8 <8 9>] [<9 [9 9]>]>"
$ n "[19 <21!3 <20 22>>]"
# "meth_bass"
# cut 41
# midiG' "^17" 0 0.8
# room 0.2
# pan 0.8
# midiG' "^33" 0 0.8
# room 0.3
# lpf 5000
))
)
$ slow 2
$ midiOn "^89" (ply "1 <4 2>")
$ midiOn "^57" (ply 2 . chop "8 . <8!3 16> <8 16>")
......@@ -58,6 +61,7 @@ d4 $ gF2 -- COME WITH THE BASS
# room 0
# dry (slow 64 $ range 0.2 2.8 cosine)
# sz 0.035
# pan 0.2
# midiG' "^81" 0 1
d5 $ gM2 $ gF3 -- Sky's guitar
$ midiOn "^90" (ply "2 <2 <4 8>>")
......@@ -79,10 +83,10 @@ d6 $ gM2 $ gF3 -- Sky's companion
# cut 6
# pan 0.9
# midiG' ("^82" * "^34") 0 0.8
d7 $ gF3 -- Come together yeah!
d7 $ gF3 -- together yeah!
$ midiOn "^91" (>| n "~ ~ ~ 11")
$ someCyclesBy ("^35" - "^59") (>| n "<0 1 2 3 4 5 6 7>/2")
$ midiOn ("^59" - "^91") (>| n "<[8 ~ ~ 9] [~ ~ ~ 10]>") -- COME
$ midiOn ("^59" - "^91") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- COME <3
$ midiOff ("^59" + "^91" + "^35")-- YEAH
(>| n "~ ~ ~ <~!3 <13 <14 17> <15 18> <16 19>>>")
$ "come_voice"
......
......@@ -28,7 +28,7 @@ d4 $ gF2
])
# "bassWarsaw"
# crushbus 51 (range 16 3.8 "^53") -- BURN ME I'M FAMOUS
# roombus 52 (range 0 0.8 "^53") -- BURN ME I'M FAMOUS
# roombus 52 (range 0 0.8 "^53") -- REVERB AND DINE BEFORE THO
# midiG' "^81" 0 1.2
d6 $ gF2
$ note (
......
......@@ -51,13 +51,13 @@ d3 $ gF $ gMute2
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
# midiG' "^80" 0 1.6
d4 $ gF2 $ gM2 $ slow 2 -- Basse Baleine
d4 $ gF2 $ slow 2 -- Basse Baleine
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
$ (0.125 <~) -- Calage :)
$ someCyclesBy "^17" (
(mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
) --
$ fix ((midiOff "^57" (# silence)) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
$ fix ((midiOff "^57" (# silence)) . (|* gain 0.8) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
"bass2"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
......@@ -69,10 +69,10 @@ d4 $ gF2 $ gM2 $ slow 2 -- Basse Baleine
# crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1.3
d6 $ gF3 $ gMute2 -- Leads reponse
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
$ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
$ someCyclesBy "<f!3 t>" (mask "t f!15". (# legato 2))
-- $ midiOn "^89" (struct "t*<16 32>") -- Basse folle
-- $ (0.125 <~) -- Calage :)
-- $ someCyclesBy "^17" (
-- (mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
......@@ -91,7 +91,7 @@ d6 $ gF3 $ gMute2 -- Leads reponse
# modIndex (range 0 16 "^34")
# crushbus 61 (range 16 2.5 "^54")
# midiG' "^82" 0 1.3
d8 $ gM $ gF3 -- MARINE BREAKS
d8 $ gM $ gF3 -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
......@@ -103,20 +103,31 @@ d8 $ gM $ gF3 -- MARINE BREAKS
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1.8
d10 $ gF3 -- Pads angéliques
$ sometimesBy "^19" (superimpose (
(# cut 101)
. (arp "up")
. (|+ note (
"<[0,0] [0,7] [0,9] [0,7,9,12]>"
))
. (|+ pan 0.1)
))
$ midiOff "^58" (mask "t([0 2],4)")
$ note (
slow 2 "<bf4 d5 <bf4 ef> [bf4 a4@3]>"
+ "[0,[0*<1 1 2 <2 1>> . 0 12*<1 2>]]"
)
# chorus 2
# chorus (range 0 2 "^36")
# "moogBass"
# dec 0.2
# sus 1
# att (range 0.001 2 "^16")
# dec (range 0.2 10 "^17")
# sus "^18"
# rel (range 0.2 10 "^19")
# room 0.5 # sz 0.6 # dry 2
# midiG' "^20" 0 1
# rel (range 0.2 10 "^17")
# roombus 101 (range 0 0.5 "^18")
# lesliebus 102 (range 0 2 "^19")
# sz 0.6 # dry 2
# midiG' "^20" 0 1.6
# legato 2
# pan 0.64
# cut 10
bf g bf <bf a>
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