Practice: Divinites2

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