Commit a776c49e by PLN (Algolia)

stage: Save up to may...

parent 7b67c9c1
do
-- resetCycles
setcps (105/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t")
$ midiOff "^42" (struct "t ~ t ~")
$ "[jazz,kick:4]"
# gain 1.3
d2 $ gMute1 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[snare:24,cp]"
# pan 0.65
# gain 1.6
d3 $ gM1 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
# gain 1.5
d4 $ gF2 $ gMute3
$ midiOn "^89" (ply "4 8")
$ midiOff "^89" (superimpose (struct "t(5,8)"))
$ note (
"<a3 d3 c3 <a3!3 e3>>"
-- + "[0,0(3,8)]"
)
# "bassWarsaw"
# gain 1.4
# room 0.4
# crushbus 41 (range 16 3.5 "^53")
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" ((# n "22")) -- Raise COMEON!
$ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# gain 1.5
d6 $ gF1 $ gM1 -- HAWKS
-- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]"
# "armora:1"
# legato "<0.5>"
# note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
# pan 0.9
# hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw)
# room 1.0
# sz 0.01
# dry 1.025
# gain 1.5
d7
$ gM3 $ gF3 -- High carillon!
$ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^59" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
)
$ (0.125 ~>)
$ note ("<c!4 ef!2 f g> <c!4 ef!2 f g> <c!4 ef!2 f g> <ef!4 f f g c6>"
- 7 -- Calage
)
# "808hc:2"
# pan 0.85
# octerbus 71 (range 0 0.5 "^55")
# octersubbus 72 (range 0 1.4 "^55")
# room 0.2 # dry 1.08 # sz 0.3
# gain 1.4
d9 $ gF3 -- Pads atmospheriques
$ off 0.25 ((# pan 0.8) . (# cut 91))
$ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>"
-9 -- calage
)
# "trance_pads:7"
# cut 9 # legato 2
-- # midiG' "^20" 0 1.4
# pan 0.4
# gain 1.4
# room 0.4
d10
$ mask "<f!16 t!16 t!96>"
$ gF1 $ "<~!12 <risers:2!3 ~> ~ ~ ~>"
# end 0.85
# cut 10
-- # midiG' "^13" 0 1.3
-- # gain (1.3 * "^77")
# gain 1
d11
$ mask "<f!24 t!8>"
$ note ("~ <c5!4 ef5 ef5 f5 g5>" + 4)
# "~ cy"
# "808cy:8"
-- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw))
# gain (1.1 * (slow 8 $ range 0.75 1 saw))
once $ arp "up" $ note ("c4'maj'4")
# "808cy:8"
# gain 1
d11 -- What is the effect?
$ fix ((# "weird_dialogs:39") . (# begin 0.81)) "answer"
$ fix ((# "weird_dialogs:39") . (# begin 0.45). (# end 0.81)) "variations"
$ fix ((# "weird_dialogs:39") . (# begin 0.2). (# end 0.45)) "almost"
$ fix ((# "weird_dialogs:39") . (# end 0.2)) "effects"
$ whenmod 32 28 (# "~ <answer!3 [variations answer]>")
$ "~ <<effects!4 almost!4> <almost variations>>"
-- $ "~ <variations>"
# midiG' "^20" 0 1.4
# cut 11
# speed 1
once $ "weird_dialogs:39"
# begin 0.45
# end 1
# cut 11
d2
$ "~ cp"
do
-- resetCycles
setcps (118/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
d1 $ gF1 $ gM2
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . ~!3 <~ 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"
$ midiOff "^43" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^43" (<| "~ s")
-- $ "[snare:35,<snare:43!4 snare:40!4>,nass:0]"
$ "[snare:45]"
-- # note "<0!6 -1 -2>"
# gain 1.44
d3 $ gM1 $ gF1-- DrumRoll Drill
-- $ mask "<f!20 t!44>"
$ "d(3,8) d(<3!3 5>,8)"
# "[drum:2,cpu2:3]"
# gain 0.96
d4 $ gF2 $ gM3
-- $ slow 2
$ note ("<[b,e,g] [b,ds,g] [b,d,g] [b,cs,e,g] [b,c,e,g] [a,c,e,g] [bf,c,e,g] [a,b,d,f]>" - 12)
# "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
d5 $ gM3 $ gF3
$ ("1/8" ~>)
$ loopAt 4
$ "un_cat"
# cut 5
d8 $ gF1 $ gM1
$ loopAt 1
$ chop 8
$ "jungle_breaks:52" # cut 8
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>>" |+| "0([1 3], 8)")
# "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
do
setcps (98/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . k(3,8)")
$ "kick:5"
d2 $ gF1 $ gM1
-- $ midiOn "^78"
$ "~ s ~ s" # "sn:32"
d3 $ gM1 $ gM1
-- $ midiOn "^6"
-- $
$ "~ d ~ d ~ d ~ d*<2 [1 2]>"
# "h2ogmhh"
d8 $ gF1 $ gM1
$ chop 8
$ loopAt 2
$ "jungle_breaks:45"
# gain 1.1
...@@ -22,9 +22,9 @@ d1 $ gF1 $ gM2 ...@@ -22,9 +22,9 @@ d1 $ gF1 $ gM2
# "[techno:1,jazz]" # "[techno:1,jazz]"
# cps ((range 60 180 "^29")/60/4) # cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
$ midiOn "^43" (<|"~ s ~ s") $ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s") $ midiOff "^43" (<| "~ s")
$ "[rampleM9:6]" $ "[snare:22]"
-- # note "-2" -- # note "-2"
# gain 1.4 # gain 1.4
d3 $ gF1 $ gM1 -- Cymbales sol d3 $ gF1 $ gM1 -- Cymbales sol
...@@ -79,3 +79,4 @@ d11 $ gM3 $ gF3-- Intro doux piano ...@@ -79,3 +79,4 @@ d11 $ gM3 $ gF3-- Intro doux piano
$ chop 8 $ chop 8
$ "nujazz_keys120:35/4" $ "nujazz_keys120:35/4"
# cut 11 # cut 11
# gain 1.3
do do
-- resetCycles 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 gMute1 = (midiOn "^73" (mask "f*16")) let gMute1 = (midiOn "^73" (mask "f*16"))
...@@ -34,7 +34,7 @@ d3 $ gM1 $ gF1 ...@@ -34,7 +34,7 @@ d3 $ gM1 $ gF1
-- # midiG' "^80" 0 1.5 -- # midiG' "^80" 0 1.5
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" ((# "jungle_breaks:22")) -- Raise COMEON! $ midiOn "^36" (loopAt 2 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON! $ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3 $ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>" slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
...@@ -58,7 +58,7 @@ d4 $ gF2 $ gM3 -- BASSLINE ...@@ -58,7 +58,7 @@ d4 $ gF2 $ gM3 -- BASSLINE
# room 0.7 # room 0.7
# dry 1 # sz 0.8 # dry 1 # sz 0.8
d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH
$ midiOff "^59" ( $ slow 2 $ midiOff "^59" (
-- (|+ 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 [
......
...@@ -91,6 +91,7 @@ d8 $ gF1 $ gM1 ...@@ -91,6 +91,7 @@ d8 $ gF1 $ gM1
. (# room 0) . (# room 0)
) )
$ midiOff ("^60" + "^92") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO $ midiOff ("^60" + "^92") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ midiOn "^36" ((loopAt 1) . (# "jungle_breaks:19")) -- Clochettes?
$ midiOn "^56" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes? $ midiOn "^56" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ chop 16 $ chop 16
$ loopAt 2 $ loopAt 2
......
do do
-- resetCycles resetCycles
setcps (142/60/4) setcps (142/60/4)
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
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>>"))
......
do
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" )
$ "kick:4"
d2 $ gF1 $ gM1 $ "~ cp ~ cp" # note "-4"
d3 $ gF1 $ gM1 $ "~ s ~ s ~ s ~ s*2"
# "vec1_snare:27"
# gain 1.4
d4 $ gF2 $ note (
"<a4 c5 a4 b4>" + "[0(3,8) <0!4 7!3 12>(3,8)]"
)
# "vec1_acid:26"
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 1.95 "^33")
# octersubsubbus 43 (range 0 1.95 "^33")
d5 $ gF3
$ note (
"<a5 c6 a5 b5>*2" + "0(5,8)" - 12
)
# "vec1_acid:34"
# room 0.2 # dry 0.1
# delay "<0!3 0.5>" # delayt 0.25 # delayfb 0.67
d9 $ gF2
$ note (
"<a c5 a b>" + "0(5,8)"
-12
)
# "moogBass"
# "vec1_acid:34" |+ note 12
# room 0.3
d8 $ gF1
$ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "t(4,8,1)")
$ loopAt 1 $ chop 8
$ "jungle_breaks:77"
# pan "0.2 0.8 0.2 0.8 0.2 0.8 <0.8 0.2> 0.2"
-- Released as "l'ACID d'abord" -- Released as "l'ACID d'abord"
do do
-- resetCycles resetCycles
setcps (135/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"))
......
...@@ -93,17 +93,6 @@ once $ "c c " "phazer" ...@@ -93,17 +93,6 @@ once $ "c c " "phazer"
d6 $ gM2 $ gF3 d6 $ gM2 $ gF3
$ chop 4 $ chop 4
-- $ slice 4 "<0 1 2 3>" -- $ slice 4 "<0 1 2 3>"
......
...@@ -30,7 +30,9 @@ d2 $ gF1 $ gM1 ...@@ -30,7 +30,9 @@ d2 $ gF1 $ gM1
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
-- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)" -- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
$ "h(3,8) h(3,8)" # pan "0.2 0.8" $ "h(3,8) h(3,8)" # pan "0.2 0.8"
# drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^32") # drumFrom "rolandtr909" "hh" # cut 3
# gain 1.2
# legato (range 0.05 0.9 "^32")
d9 -- Bogdan the Grime sample provider d9 -- Bogdan the Grime sample provider
$ whenmod 16 12 ( -- I'm from Cardiff! $ whenmod 16 12 ( -- I'm from Cardiff!
(# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>") (# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
...@@ -47,6 +49,7 @@ d9 -- Bogdan the Grime sample provider ...@@ -47,6 +49,7 @@ d9 -- Bogdan the Grime sample provider
# gain 1.2 # gain 1.2
d8 $ gF1 $ gM1 -- Come on breaks! d8 $ gF1 $ gM1 -- Come on breaks!
$ chop 8 $ chop 8
$ midiOn "^60" (mask "t(4,8,1)" . chop 4)
$ midiOn "^92" (ply 4) $ midiOn "^92" (ply 4)
$ midiOn "^36" (loopAt 2 . (# n "<61>")) -- $ midiOn "^36" (loopAt 2 . (# n "<61>")) --
$ midiOn "^56" ((# n "19") . (|* gain 1.2)) -- Pure COMEON! $ midiOn "^56" ((# n "19") . (|* gain 1.2)) -- Pure COMEON!
...@@ -114,7 +117,7 @@ d7 $ gM2 $ gF2 ...@@ -114,7 +117,7 @@ d7 $ gM2 $ gF2
-- # octerbus 71 (range 0 1.7 "^55") -- # octerbus 71 (range 0 1.7 "^55")
# crushbus 71 (range 16 1.7 "^55") # crushbus 71 (range 16 1.7 "^55")
# panbus 72 (range 0.2 0.8 (fast "<2!4 4!4>" sine)) # panbus 72 (range 0.2 0.8 (fast "<2!4 4!4>" sine))
# gain 1.3
once $ "bogdan_grime:1" # cut 9 once $ "bogdan_grime:1" # cut 9
......
...@@ -50,7 +50,6 @@ d2 $ gF1 $ gM1 ...@@ -50,7 +50,6 @@ d2 $ gF1 $ gM1
# "[snare:40,snare:421,bssnare:2]" # "[snare:40,snare:421,bssnare:2]"
# gain "1 1 0.93 1" # gain "1 1 0.93 1"
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ whenmod 8 15 (mask "t t t f") $ whenmod 8 15 (mask "t t t f")
$ "hh*[8 <16!6 8!2> <8!7 16>]" $ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1") # "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
......
do do
resetCycles -- resetCycles
setcps (170/60/4) setcps (170/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"))
...@@ -21,7 +21,7 @@ d1 $ gF1 $ gM2 -- Kick ...@@ -21,7 +21,7 @@ d1 $ gF1 $ gM2 -- Kick
d2 $ gF1 $ gM1 -- Snare melancolie fromagere d2 $ gF1 $ gM1 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>") $ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>") $ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ "[hardkick_rha:1]" $ "[snare:39]"
# gain 1.45 # gain 1.45
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2) $ midiOn "^44" (ply 2)
...@@ -75,6 +75,12 @@ d6 ...@@ -75,6 +75,12 @@ d6
-- # chorus 2 -- # chorus 2
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ loopAt 2 $ loopAt 2
$ midiOn "^92" ( -- Bouton Nassim <3
loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ midiOff "^60" (mask "f(8,16)" . chop 16) $ midiOff "^60" (mask "f(8,16)" . chop 16)
$ midiOn "^56" (# "jungle_breaks:7") $ midiOn "^56" (# "jungle_breaks:7")
$ midiOn "^36" (# "jungle_breaks:37") $ midiOn "^36" (# "jungle_breaks:37")
......
...@@ -47,7 +47,7 @@ d2 $ gF1 $ gM1 ...@@ -47,7 +47,7 @@ d2 $ gF1 $ gM1
-- $ midiOn "^42" (# "[cp]") -- Un bon vieux clap -- $ midiOn "^42" (# "[cp]") -- Un bon vieux clap
-- $ midiOn "^42" (# "[vec1_snare:33]") -- Un snare vener' -- $ midiOn "^42" (# "[vec1_snare:33]") -- Un snare vener'
$ midiOn "^42" (<| "~ s ~ s") $ midiOn "^42" (<| "~ s ~ s")
$ midiOn "^42" ((|* gain 0.8) . (# "[kick:4]")) -- Le snare s'est fait... kick?! -- $ midiOn "^42" ((|* gain 0.8) . (# "[kick:4]")) -- Le snare s'est fait... kick?!
$ midiOff "^42" (<| "~ s [~!3 <~!3 s>] s*<1 2>") $ midiOff "^42" (<| "~ s [~!3 <~!3 s>] s*<1 2>")
-- # lpf 5000 -- # lpf 5000
$ "[snare:40,snare:421,bssnare:2]" $ "[snare:40,snare:421,bssnare:2]"
......
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 $ gM2 $ gF1
$ whenmod 8 6 (mask "f")
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k ~ ~ <~ [~ k]>" )
$ "[808bd:1,jazz,kick:4]"
# gain (1.45 * "1!7 0.9")
d2 $ gM1 $ gF1 $ "~ s <[~ <~!4 s!12>]> s*<1!3 2>"
# "snare:2"
# gain 1.5
# note "0 0 -2 0"
# room 0.2 # dry 1.1
# sz 0.8
d3 $ gM1 $ gF1
$ "<~ h> h ~ h ~ h*<1 2 2 <1 [4 2]>> ~ h"
# "h2ogmhh:4" # gain 1.5
d4 $ gM3 $ gF2
$ midiOn "^89" (ply "<2!3 [2 4]>")
$ midiOn "^57" (slice 4 "0 [1 2] 0 3*<1 2 [2 1] 4>")
$ midiOn "^33" (slow 2)
$ n "<10 <10!3 8> <10!3 6> <8!3 5>>"
# "blues_guitar_hoochie_60"
# cut 4
# room (slow 32 $ range 0 0.6 saw)
# sz 0.8
# dry 1.3
# crushbus 41 (range 16 3.5 "^53")
# gain 1.4
# octersub 0.5
d5 $ gM3 $ gF3
-- $ midiOn "^89" (ply "<2!3 [2 4]>")
-- $ midiOn "^57" (slice 4 "0 [1 2] 0 3*<1 2 [2 1] 4>")
-- $ midiOn "^33" (slow 2)
-- $ n "<10 <10!3 8> <10!3 6> <8!3 5>>"
-- tension resolve: ggggg f... fed
$ n "~ <~ <16 <16!3 14> <16!3 13> <14!3 <22 5>>>>"
# "blues_guitar_riff_120"
# cut 4
-- # room (slow 32 $ range 0 0.6 saw)
-- # sz 0.8
-- # dry 1.3
-- # crushbus 41 (range 16 3.5 "^53")
# gain 1.1
-- # octersub 0.5
-- d5 $ gM3 $ gF3
d8 $ gM1 $ gF2
$ chop 8
$ midiOn "^60" (mask "t(4,8,1)" . chop 8)
$ midiOn "^36" (loopAt 1 . (# "jungle_breaks:23"))
$ midiOn "^56" (loopAt 1 . (# "break:14"))
$ midiOn "^92" (loopAt 1 . (# "jungle_breaks:19"))
$ whenmod 8 6 (-- ALIEN JUMPS
midiOff ("^92" + "^56") (-- Except when other effects
(# speed "<1!3 [1 0.5 2 0.5]>")
. (# n 2)
. (|* gain 0.8)
))
$ loopAt 2
$ "trance_loops:3"
# gain 2
d9 $ gF2 $ gM2
$ note "<g4!3 <c5 bf4>>"
# "moog:1"
# octerbus 91 (range 0 0.8 "^18")
# octersubbus 92 (range 0 2.8 "^19")
# gain 1.7
# cut 9
# delaybus 93 (range 0 1.5 "^17")
# delayt 0.25
# delayfb 0.4
...@@ -30,8 +30,10 @@ d1 $ gF1 $ gM2 ...@@ -30,8 +30,10 @@ d1 $ gF1 $ gM2
-- # room 0.2 -- # room 0.2
d2 $ gM1 $ gF1 -- Snare contretemps DNB Techno-compatible 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" $ fix ( (# gain "<0!32 0!28 2!4>") . (ply "<1!7 2>") .(# speed 1.7) . (# lpf 2000)) "nass"
$ "~ <~!16 s!48> ~ s" $ midiOff "^43" (<| "~ s ~ s*<1 <2 4>>")
# "[snare:35,<snare:43!4 snare:40!4>,nass:0]" $ midiOn "^43" (<| "~ s")
-- $ "[snare:35,<snare:43!4 snare:40!4>,nass:0]"
$ "[snare:45]"
-- # note "<0!6 -1 -2>" -- # note "<0!6 -1 -2>"
# gain 1.44 # gain 1.44
d3 $ gM1 $ gF1-- DrumRoll d3 $ gM1 $ gF1-- DrumRoll
...@@ -64,7 +66,7 @@ d4 $ gF2 $ gM3-- BASSLINE ...@@ -64,7 +66,7 @@ d4 $ gF2 $ gM3-- BASSLINE
# gain 0.84 # gain 0.84
d7 $ gF2 $ gM3 -- SYNTH BASS FRIEND d7 $ gF2 $ gM3 -- SYNTH BASS FRIEND
$ whenmod 32 24 (# note "<g f ef <c f>>") $ whenmod 32 24 (# note "<g f ef <c f>>")
$ note "<c c ds <f g>>" $ note ("<c c ds <f g>>" |+| "0([1 3], 8)")
# "giorgio_syn:9" # n "<9!3 10>" # "giorgio_syn:9" # n "<9!3 10>"
# cut 7 # cut 7
# gain 1.3 # gain 1.3
......
do
-- resetCycles
setcps (135/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k*<1 1 2 1> k*<2!3 [4 2]>")
$ midiOff "^42" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
# gain 1.6
d2 $ gF1 $ gM1 -- Basic clap ma gueule
$ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^43" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ "vec1_claps:42"
-- # note "0!3 -1"
-- # lpf 4000
# cut 2
-- # room 0.4 # sz 0.4 # dry 1.1
d6 $ "~ cp [~ <~!3 [cp*<1 2>]>] cp*<1!3 2>" # "vec1_claps:52" # lpf 4000
# att 0.01 # rel 1
-- # room 0.3 # dry 1.1
d3 $ gF1 $ gM1 -- Elaborate offbeat drums
$ "~ h ~ h ~ h*<1!12 2!4> ~ h*<1!6 2 2>"
# "h2ogmhh"
# n "<0!7 3> <3!3 0>"
# pan (slow 16 $ range 0.4 0.6 sine)
# room 0.2 # dry 1.5
# gain 1.4
d5 $ gM3 $ gF2 -- ACID LEAD
$ ply 2
$ midiOn "^90" (mask "t([16 <8 8 [16 8] [32!3 8]>],32)" . ply 2)
$ fix (|* gain (range 1 0.2 "^54")) ("vec1_acid:30")
$ superimpose ((# "vec1_acid:32") . (|* gain (range 0 1.5 "^54")))
$ note ("0 7 0*<1 1 2 2> 7*<1 2>"
+ "<a3 cs4 fs4 <cs4 e4>>/2"
+ "[12]"
)
# "vec1_acid:30"
-- # cut 6
# octerbus 51 (range 0 0.82 "^34")
-- # room 0.3 # sz 0.1
# pan (slow 16 $ range 0.8 0.5 sine)
-- # octersubsub 1.4
# gain 2
d7 $ gM3 $ gF2 -- ACID BASS
$ mask "[t <f!8 t!24>] <f!16 t!16> <f!32 t!32> [<f!4 t!12> <f!8 t!3 <f t>>]"
$ note ("0(<1 3 1 3 3 5 5 4>,8) 0(<3 5>,8)"
+ "[0 7 0 12 0]"
+ "<a3 cs4 fs4 <cs4 e4>>/2" + 3)
# "vec1_acid:0"
# pan (slow 16 $ range 0.2 0.5 sine)
# cut 9
# gain 1.3
d9 $ gM3 $ gF3
$ mask "<<t!4 f!4> t t f>"
$ note ("<a3 cs4 fs4 <cs4 e4>>/2" +5 )
# "rhadamanthe_vocal:5"
# cut 9
-- # begin "<0!16 0!8 0.25!5 0.3!3>"
# octersub 0.5
# octersubsub 0.5
# bandf 400
# gain 1.3
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "<2 <2 4 4 8>>")
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:29"))
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:4"))
$ slice 8 ("0 1*<1 2>" + "<0 2 4 6>")
$ loopAt 4
$ "rhadamanthe_drum:1"
# cut 8
# gain 1.4
d4 $ gF2 $ gM3
$ note (slow 2 $ ply 2 $
"<fs4 d4 e4 cs4 fs4 d4 e4 cs4 fs4 d4 e4 cs4 cs4 b3 a3 fs3>"
)
# "moog:1"
# cut 4
# crushbus 41 (range 16 3 "^53")
# gain 1.8
# room 0.4
d10 $ gF1
$ "rhadamanthe_divers:21/8"
# cut 10
# room 0.8
# squizbus 101 (0.8 + 0.5 * perlin)
# gain 0.8
# lpfbus 101 (6000 - 1000 * (slow 4 perlin))
d11 $ mask "<f f f t>"
$ "rhadamanthe_divers:79"
# note "<0 12 24 36>"
-- Prog: fs d e cs cs b a fs3
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
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k . ~ k ~ ~")
-- $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
-- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
# gain 1.4
d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ cp")
$ midiOn "^43" (<| "~ cp ~ cp*<1!3 <2 [4 2]>>")
$ "vec1_snare:9"
# lpf 2800
# gain 1.4
d3 $ gF1 $ gM1
$ "~ h ~ h ~ h*<1 2 1 <1 [4 2]>> ~ h*<1!7 <2 4>>"
# "h2ogmhh:3" # room 0.2
d4 $ gF2 $ gM3
$ someCyclesBy "^17" (degradeBy (1 - "1 0 1 <0!4 1!4> 1 0 1 <0 1 1 <1 0>>"))
$ midiOn "^57" (sometimesBy 0.5 ((|- note 12) . (# cut 41)))
$ midiOn "^89" (ply 2)
-- $ note ("d3" + scale "mixolydian" ("[<0!12 3!4> <4!12 6!4>]*4")) -- ORIGINAL
$ note ("d3" + scale "mixolydian" ( -- NICE VARIATIONS
"[0 4 0 4 <0!3 2> 4 <0 2> 4]" + "<0!3 [4 6]*2!1>")
)
# "bassWarsaw"
# octersubbus 41 (range 0 2.5 "^33")
# crushbus 42 (range 16 2.5 "^53")
# roombus 43 (range 0 0.5 "^33")
# gain 1.4
# cut 4
d5 $ gF3 $ gM3
$ midiOn "^90" (ply 2)
$ slow 16 $ chop 16
$ "airports" # cut 5
# pan 0.3
# delaybus 51 (range 0 0.8 "^54")
# delaytime "^34"
# room 0.4 # sz 0.8 # dry 1.1
-- # crushbus 51 (range 16 3.5 "^54")
d7 $ gF3 $ gM3
$ midiOn "^91" (ply "<2 4 8>")
$ slow 4
$ slice 16 (run 6)
$ chop 16
$ "airports" # cut 5 # speed 0.5
# gain 1.2
# pan 0.8
d8 $ gF1 $ gM1
$ loopAt 2 $ chop 16
$ midiOn "^92" (ply 2)
$ midiOn "^60" ( -- Broken Beat!
whenmod 8 "<7 7 7 3>" rev
. splice 8 "0 3 2 7 . [1 5]*<1!3 2> [4 6]*<1 2>")
$ midiOn "^36" (# n "29")
$ midiOn "^56" (# n "25")
$ "jungle_breaks:24"
d11 $ gM3 $ gF3 $ slice 4 (slow 4 $ run 4) $ "airports:1"
# cut 11
# pan (slow 16 $ range 0 0.4 saw)
# lpf ("<6000 4500 3000 2000>")
d12 $ gM3 $ gF3 $ slice 16 (slow 8 $ run 16)
$ "airports:2"
# cut 12
# pan (slow 16 $ range 1 0.6 saw)
d10 -- FIXME Other RISER
$ chop 4
$ mask "<f!24 t!8>"
$ loopAt 4
$ "risers:8"
# cut 10
# hpf 2000
-- # octer 0.5
...@@ -22,7 +22,7 @@ d1 ...@@ -22,7 +22,7 @@ d1
$ "[jazz,kick:5]" $ "[jazz,kick:5]"
-- # room 0 -- # room 0
# gain 1.3 # gain 1.3
d2 $ f1 $ gMute d2 $ f1 $ gMute2
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32 $ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops $ midiOff "^75" maskLoops
$ midiOn "^75" (ply "2 <2!3 4>") $ midiOn "^75" (ply "2 <2!3 4>")
......
...@@ -21,7 +21,7 @@ d2 $ gF1 ...@@ -21,7 +21,7 @@ d2 $ gF1
$ midiOff "^43" (<| "~ <~ c>") $ midiOff "^43" (<| "~ <~ c>")
$ "snare:40" $ "snare:40"
# note "-4" # note "-4"
# midiG' "^79" 0 1.8 -- # midiG' "^79" 0 1.8
d3 $ gF1 $ gM d3 $ gF1 $ gM
$ midiOn "^76" (loopAt 2 . (>| "jungle_breaks:35")) $ midiOn "^76" (loopAt 2 . (>| "jungle_breaks:35"))
$ midiOn "^44" (off 0.5 (ply "<1!3 2>")) $ midiOn "^44" (off 0.5 (ply "<1!3 2>"))
...@@ -29,7 +29,7 @@ d3 $ gF1 $ gM ...@@ -29,7 +29,7 @@ d3 $ gF1 $ gM
$ midiOff "^76" (slice 8 "<0 1 2 3 [0 1] [1 2] [1 2] [1 2]>") $ midiOff "^76" (slice 8 "<0 1 2 3 [0 1] [1 2] [1 2] [1 2]>")
$ loopAt 2 $ loopAt 2
$ "break:20" $ "break:20"
# midiG' "^80" 0 1.4 -- # midiG' "^80" 0 1.4
d4 $ gF2 $ gM2 $ note "<[a2@2 ~ ~ a2 b2 ~ <~!1 <b2 e2>>] <e2 g2>>" d4 $ gF2 $ gM2 $ note "<[a2@2 ~ ~ a2 b2 ~ <~!1 <b2 e2>>] <e2 g2>>"
# "FMRhodes1" # cut 4 # "FMRhodes1" # cut 4
# modIndex 5 # modIndex 5
...@@ -38,7 +38,7 @@ d4 $ gF2 $ gM2 $ note "<[a2@2 ~ ~ a2 b2 ~ <~!1 <b2 e2>>] <e2 g2>>" ...@@ -38,7 +38,7 @@ d4 $ gF2 $ gM2 $ note "<[a2@2 ~ ~ a2 b2 ~ <~!1 <b2 e2>>] <e2 g2>>"
# delayfb "<0.1!3 0.65>" # delayfb "<0.1!3 0.65>"
# delayt 0.125 # delayt 0.125
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1.6 -- # midiG' "^81" 0 1.6
d6 $ gF3 $ gM2 d6 $ gF3 $ gM2
-- $ mask "<f!12 t!4>" -- $ mask "<f!12 t!4>"
$ note praxis $ note praxis
...@@ -52,7 +52,7 @@ d7 $ gF3 $ gM2 ...@@ -52,7 +52,7 @@ d7 $ gF3 $ gM2
$ note (praxis + 36) $ note (praxis + 36)
# "prophet5pwmStrings" # "prophet5pwmStrings"
# pan 0.9 # pan 0.9
# midiG' "^18" 0 1.4 -- # midiG' "^18" 0 1.4
d8 $ gF3 $ gM2 d8 $ gF3 $ gM2
-- $ mask "<f(10,16)!8 t(10,16)!8>" -- $ mask "<f(10,16)!8 t(10,16)!8>"
$ juxBy 0.3 (mask "t(3,8) . t(12,16)" . (|+ note 12)) $ juxBy 0.3 (mask "t(3,8) . t(12,16)" . (|+ note 12))
...@@ -60,7 +60,7 @@ d8 $ gF3 $ gM2 ...@@ -60,7 +60,7 @@ d8 $ gF3 $ gM2
# "moogBass" # "moogBass"
# modIndex 5 # modIndex 5
# pan 0.9 # pan 0.9
# midiG' "^19" 0 1 -- # midiG' "^19" 0 1
d9 $ gF2 d9 $ gF2
$ n "14 <13 14 14 13>" $ n "14 <13 14 14 13>"
# note ( # note (
...@@ -69,10 +69,10 @@ d9 $ gF2 ...@@ -69,10 +69,10 @@ d9 $ gF2
) )
# "meth_bass" # "meth_bass"
# crushbus 91 (range 16 2.5 "^55") # crushbus 91 (range 16 2.5 "^55")
# midiG' "^83" 0 1 -- # midiG' "^83" 0 1
# cut 9 # cut 9
d10 d10
$ mask "<f!14 t f>" $ mask "<f!14 t f>"
$ "jungle_pads:4@2" $ "jungle_pads:4@2"
# cut 10 # cut 10
# midiG' "^13" 0 1 -- # midiG' "^13" 0 1
...@@ -27,8 +27,7 @@ d2$ gMute1 $ gF1 -- snare contretemps variable ...@@ -27,8 +27,7 @@ d2$ gMute1 $ gF1 -- snare contretemps variable
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]") $ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:24]" $ "[cp,snare:24]"
# pan 0.65 # pan 0.65
# legato 0.22 -- # legato 0.22
-- # midiG' "^79" 0 1.6
d3 $ gM1 $ gF1 d3 $ gM1 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>" $ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34" # "snare:34"
...@@ -36,16 +35,17 @@ d3 $ gM1 $ gF1 ...@@ -36,16 +35,17 @@ d3 $ gM1 $ gF1
-- # midiG' "^80" 0 1.5 -- # midiG' "^80" 0 1.5
d4 -- Basse convaincante d4 -- Basse convaincante
$ gM3 $ gF2 $ gM3 $ gF2
$ superimpose ((# hpf 500) .
(# crushbus 42 (range 16 4 "^53")))
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw)) $ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
$ midiOn "^89" (ply "<[4@5 2 4 2] 1>") $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>") $ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^17") (struct "<t [t t]>") -- FIXME $ someCyclesBy (1 - "^33") (struct "<t [t t]>") -- FIXME
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]") -- ??? $ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]") -- ???
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>" $ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
# "bassWarsaw" # "bassWarsaw"
# room 0.2 # sz 0.1 # room 0.2 # sz 0.1
# crushbus 42 (range 16 4 "^53") # relbus 43 (range 2 0.02 "^17") # att 0.22
# relbus 43 (range 2 0.02 "^33") # att 0.22
-- # midiG' "^81" 0 1.d -- # midiG' "^81" 0 1.d
# gain 1.4 # gain 1.4
# pan 0.4 # pan 0.4
...@@ -79,7 +79,7 @@ d8 $ gF1 $ gM1 ...@@ -79,7 +79,7 @@ d8 $ gF1 $ gM1
# gain 1.5 # gain 1.5
d6 $ gF1 $ gM1 -- HAWKS d6 $ gF1 $ gM1 -- HAWKS
-- $ mask "<f!16 t!16>" -- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s <~!3 s>]" $ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]"
# "armora:1" # "armora:1"
# legato "<0.5>" # legato "<0.5>"
# note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>" # note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
......
do do
setcps (80/60/4) setcps (80/60/4)
-- resetCycles resetCycles
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 gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
......
...@@ -31,6 +31,7 @@ d3 $ gF1 $ gM1 ...@@ -31,6 +31,7 @@ d3 $ gF1 $ gM1
$ "d d d <d [<d ~> d]>" # "drum:2" $ "d d d <d [<d ~> d]>" # "drum:2"
# gain 0.8 # gain 0.8
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ note "<f3 c3 cs3 f3>" $ note "<f3 c3 cs3 f3>"
# crushbus 41 (range 16 3 "^53") # crushbus 41 (range 16 3 "^53")
# octerbus 42 (range 0 0.93 "^33") # octerbus 42 (range 0 0.93 "^33")
......
...@@ -108,7 +108,7 @@ d10 $ gF3 $ gM3 -- Des visiteurs venus d'ailleurs ...@@ -108,7 +108,7 @@ d10 $ gF3 $ gM3 -- Des visiteurs venus d'ailleurs
d6 $ gF2 $ gM3 $ "meth_bass:3" d6 $ gF2 $ gM3 $ "meth_bass:3"
# note "-9" # note "-9"
# crushbus 61 (range 16 2.5 "^30") # crushbus 61 (range 16 2.5 "^30")
# cut 6 # gain 1.4 # cut 6 # gain 1
-- once $ "visiteurs:9" # end 0.56 # rel 1.3 # cut 4 -- once $ "visiteurs:9" # end 0.56 # rel 1.3 # cut 4
......
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
$ "[jazz,kick:4]*4"
d2 $ gF1 $ gM1 $ "~ cp ~ cp*<1!3 2>" # "snare:24" # gain 1.4
d3 $ gF1 $ gM1 $ "hh([12 <12 16 12 6>],16)" # "h2ogmhh"
d4 $ gF2 $ gM3
$ midiOn "^57" (mask "t(<4!3 <6 8>>,8,1)")
$ fast 2
$ note "<[e3 b3 g3 b3] [e3 a3 cs4 a3]>"
# "bassWarsaw"
# octersubbus 41 (range 0 2 "^53")
# crushbus 42 (range 16 2 "^33")
# cut 4
# room 0.4 # sz 0.8
d5 $ gF3 $ gM3 $ note "<e!3 cs>@7 [d]" # "FMRhodes1"
d7 $ gF3 $ gM3 $ note "<e3!3 cs2>@7 [d]" # "FMRhodes2"
d8 $ gF1 $ gM1 $ loopAt 2 $ chop 8
$ "jungle_breaks:45"
...@@ -41,7 +41,7 @@ aonce ...@@ -41,7 +41,7 @@ aonce
-- (For 0rbit.l0ve <3) -- (For 0rbit.l0ve <3)
-- """""""""""""""""""""" -- """"""""""""""""""""""
do do
-- resetCycles resetCycles
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"))
...@@ -104,7 +104,7 @@ d7 $ gF3 $ gM3 -- Jump aboard the BASIC BUS ...@@ -104,7 +104,7 @@ d7 $ gF3 $ gM3 -- Jump aboard the BASIC BUS
$ midiOff "^59" (loopAt 16) $ midiOff "^59" (loopAt 16)
$ midiOn "^59" (loopAt 8) $ midiOn "^59" (loopAt 8)
$ chop 8 $ chop 8
$ "synth_commodore" # n "0" $ "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")
...@@ -132,7 +132,7 @@ d10 -- Ready playerm two ...@@ -132,7 +132,7 @@ d10 -- Ready playerm two
$ loopAt 4 $ loopAt 4
$ "fx_gameboy:5" $ "fx_gameboy:5"
# crushbus 101 (slow 32 $ range 1.8 0.61 saw) # crushbus 101 (slow 32 $ range 1.8 0.61 saw)
-- # midiG' "^20" 0 0.85 # gain 0.8
......
-- 1. Choeurs
-- 2. 10 + d3
-- 3. Beat1
-- 4. Snare
-- 5. Drop your number
-- 6. Drop the breaks
-- 7. Mask the breaks!
-- 8. Drop the bass
-- 9. Enjoy the vibe
-- 10. Drop second kick
-- 11. AirDrop the choir
-- 12. Bring back breaks
-- 13. Bring back bass!
-- 14. Drop d7 scatman
-- 15. Hide him as choir leave
-- 16. Drop d11 and d12 scatters
-- 17. Enjoy the vibe
-- 18. Drop the bass friends
-- 19. Slice the Number
-- 20. Combine that with Drums funsies
-- 21. Mask the Number until next choir
-- 22. Hold choir
-- 22. kill scats
-- 23. Fade out on choir
do
resetCycles
setcps (99/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
$ midiOn "^42" (<| "k*<1!12 2 1 1 2> <~!4 [~ k]!4> . ~ k ~ <~ k>")
$ midiOn "^42" (<| "k k k k*<1 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "[808bd:4,808bd:2]"
# gain 1.51
# lpf 2000
-- # cps ((range (99 - 20) (99 + 20) "^29") / 60/ 4) -- TODO CPS MAGIC??
d2 $ gF1 $ gM1
$ whenmod 8 15 (# silence)
$ midiOn "^42" (# "vec1_snare:21")
$ "~ s [~!3 <~ s>] s*<1!7 2>"
# lpf 5000
# octersub 0.6
# "[snare:40,snare:421,bssnare:2]"
# gain "1 1 0.93 1"
d3 $ gF1 $ gM1
$ whenmod 8 15 (mask "t t t f")
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1 * "1 1 0.9 1 0.9 0.85 0.9 1")
# pan "^18"
d4 $ gF2 $ gM3
$ whenmod 64 48 ((2/8) <~) -- Calage chants TODO KEEPSYNC1
$ midiOn "^34" ((2/8) <~) -- Calage chants
$ midiOn "^89" (struct "t(12,16)"
-- . (# legato 0.4)
)
$ midiOn "^57" (off "e" -- Coeur battant extrait de la basse
(
(|+| note "0 [12 7 12] 0 <[12 0 12]!3 12>")
-- . (# crush 16)
. (# pan 0.7)
. (|* gain 0.85)
. (# cut 41)
))
$ note "[<df4!2 cs4 g4>@2 <b3 e4!2 fs4>@2 <a3!2 fs4 e4>@5]/2"
-- TODO Continue :)
# "moog:1"
# "bassWarsaw" |- note 12
# cut 4
# att 0.08
# rel 2
# gain 1.6
# pan 0.4
# crushbus 41 (range 16 5 "^53")
# octersubbus 42 (range 0 0.8 "^33")
d5 $ gF1 $ gM3 -- Donne moi ton Private Number <3
$ fix ((# rel 2) . (# legato 1)) (n 2)
$ midiOn "^34" (# n 2) -- Force chants
$ midiOn "^73" (# lpfbus 55 1200) -- Mask drums in sample
$ someCyclesBy "^90" (off "e" (mask "<t!6 f f>"))
$ someCyclesBy ("^58" - "^34") (mask "t(<4 [<4!3 [4 8]> 8]>,8)" . fix (chop 4) (n "[0,1]"))
$ chop 8
$ fix (0.375 <~) (n 0)
-- $ whenmod 8 6 (|* gain (slow 2 $ range 0.9 0.6 saw))
$ "private_number/2"
# n "<0!32 1!16 2!16>" -- TODO KEEPSYNC1
# cut 5
# sz 0.8
# room 0.4
# sz 0.65
# legato "<0.9!7 0.5>"
# gain 1.3
d7 $ gF3 $ gM3
$ stack [
n "<<~ 22> ~ <21 24 24 33> ~>"
# "vocalScatAr", -- Happy Bro
-- "<vocalScatAr:22>", -- Happy Bro
""
]
# pan 0.4
# room 0.3
# gain 1.2
d8 $ gF1 $ gM1
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ midiOff ("^60" + "^92") (mask "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ chop 16
$ midiOn "^56" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) --
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# att 0.04
# rel 2
# gain 1.2
# hpf 1200
d9 $ gF3 $ gM3 -- Choeurs amoureux
$ (0.25 <~)
$ slow 2
$ "[<vocalOoh1:0!3 <vocalOoh2:16 vocalOoh2:18>> vocalOoh1:6@7]"
-- # "vocalOoh1"
# cut 9
# note 1
# room 0.3
# legato 4
# lpfbus 91 (range 800 20 "^82") -- Mute with Number
# gain (1 - "^82")
d11 $ gF3 $ gM3 -- Monsieur scat
$ n "<10 9 10 9 9!4>"
# "vocalScatAr"
# cut 11
# pan 0.8
# end "<0!7 0.4>"
# room 0.5 # gain 1.3
d12 $ gF3 $ gM3 -- Madame Scat
$ fix (|* gain 1.1) (n 85)
$ n "~ <~!3 <89 89 [<~ 85> 85*<1 2>]!2>>"
# "vocalScatJ"
# cut 11
# pan 0.2
# room 0.3
-- # delay 0.5 # delayfb 0.8 # delayt 0.125
# gain 1
d10 $ gMask -- Cymbal "Riser"
-- $ "<~ [~!7 c*2] [~ <~ c@3>] ~>"
$ "<~ ~ [~!7 c*2] [~ c@7]>"
# "rampleS13:6"
# room 0.4 # delay 0.5 # delayt 0.25 # delayfb 0.8
# gain 0.5
# cut 10
...@@ -46,7 +46,7 @@ d3 $ gF1 $ gM1 -- Running Hats ...@@ -46,7 +46,7 @@ d3 $ gF1 $ gM1 -- Running Hats
$ midiOn "^76" (mask "t(32,64)" . ply 2) $ midiOn "^76" (mask "t(32,64)" . ply 2)
$ "~ h ~ h ~ h ~ h ~ h ~ h ~ h*<1 <0 1>> ~ h*<1 <2!3 0>>" $ "~ h ~ h ~ h ~ h ~ h ~ h ~ h*<1 <0 1>> ~ h*<1 <2!3 0>>"
# "h2ogmhh:3" # "h2ogmhh:3"
# legato (0.5 + 0.1 * perlin) -- # legato (0.5 + 0.1 * perlin)
-- # n "[0|0|0|0|1|1|3|3]*8" -- # n "[0|0|0|0|1|1|3|3]*8"
|* 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)
......
...@@ -65,8 +65,9 @@ d5 -- Melancolie solitaire ...@@ -65,8 +65,9 @@ d5 -- Melancolie solitaire
# pan 0.7 # pan 0.7
# tremrbus 51 (range 0 20 "^34") # tremrbus 51 (range 0 20 "^34")
# tremdp 2 # tremdp 2
# modIndex (range 0 5 "^54") # modIndex (range 0 8 "^54")
# gain 1.4 # gain 1.4
# room 0.2 # sz 0.3
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>")
...@@ -83,7 +84,7 @@ d7 $ gF3 $ gM3 ...@@ -83,7 +84,7 @@ d7 $ gF3 $ gM3
$ note ("<d g f a>" + "[0,7]" - 12) $ note ("<d g f a>" + "[0,7]" - 12)
# "moogBass" # "moogBass"
# pan 0.3 # pan 0.3
# gain 0.6 # gain 0.9
# room 0.2 # room 0.2
d8 $ gF1 $ gM1 -- BREAK THAT SHIT d8 $ gF1 $ gM1 -- BREAK THAT SHIT
$ midiOn "^60" (slice 8 $ run 16) $ midiOn "^60" (slice 8 $ run 16)
...@@ -95,3 +96,5 @@ d8 $ gF1 $ gM1 -- BREAK THAT SHIT ...@@ -95,3 +96,5 @@ d8 $ gF1 $ gM1 -- BREAK THAT SHIT
$ "jungle_breaks:22" -- Sable blanc $ "jungle_breaks:22" -- Sable blanc
# lpf 4000 # lpf 4000
# gain 1.4 # gain 1.4
d9 $ note "<d4 e4 f4 <g4 a5>>" # "moog:1"
# cut 9
...@@ -13,7 +13,7 @@ d1 -- Kick premier` ...@@ -13,7 +13,7 @@ d1 -- Kick premier`
$ gF1 $ gMute2 $ gF1 $ gMute2
$ 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,jazz]" $ "[kick:4,jazz]"
# lpf 5000 # lpf 5000
# gain 0.93 # gain 0.93
...@@ -28,8 +28,9 @@ d3 $ gM1 $ gF1 ...@@ -28,8 +28,9 @@ d3 $ gM1 $ gF1
$ "hh(3,8) hh(<3!3 5>,8)" $ "hh(3,8) hh(<3!3 5>,8)"
# "rampleM8:4" # "rampleM8:4"
# gain (fast 8 $ range 0.85 0.95 perlin) # gain (fast 8 $ range 0.85 0.95 perlin)
d4 $ gMute3 $ gF2 $ chop 16 $ loopAt 4 d4 $ gMute3 $ gF2
$ midiOn "^89" (slice 4 "2*2 ") $ midiOff "^89" (slice 4 "1 2*<1 2> 3*<1 4> 4") -- ON OFF
$ chop 16 $ loopAt 4
$ "nujazz_bass125:1" $ "nujazz_bass125:1"
# cut 4 # cut 4
# octersub (slow 32 $ range 0 0.9 sine) # octersub (slow 32 $ range 0 0.9 sine)
...@@ -38,7 +39,7 @@ d4 $ gMute3 $ gF2 $ chop 16 $ loopAt 4 ...@@ -38,7 +39,7 @@ d4 $ gMute3 $ gF2 $ chop 16 $ loopAt 4
# pan 0.3 # pan 0.3
# crushbus 41 (range 16 4 "^53") # crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.94 "^33") # octerbus 42 (range 0 0.94 "^33")
# gain 1.2 # gain 1.3
-- # sz (slow 8 $ range 0.7 0.1 sine) -- # sz (slow 8 $ range 0.7 0.1 sine)
d5 $ gM3 $ gF3 d5 $ gM3 $ gF3
$ midiOn "^58" (off 0.125 id . rev) $ midiOn "^58" (off 0.125 id . rev)
...@@ -59,7 +60,7 @@ d7 $ gM3 $ gF3 ...@@ -59,7 +60,7 @@ d7 $ gM3 $ gF3
# "giorgio_syn:22" # "giorgio_syn:22"
# crushbus 71 (range 12 3.4 "^55") # crushbus 71 (range 12 3.4 "^55")
# cut 7 # cut 7
# gain 0.7 # gain 1.2
d8 $ gM1 $ gF1 d8 $ gM1 $ gF1
$ midiOn "^60" (ply "1 <2 4>") $ midiOn "^60" (ply "1 <2 4>")
$ midiOn "^92" (iter "1 <1 4>") $ midiOn "^92" (iter "1 <1 4>")
...@@ -68,7 +69,7 @@ d8 $ gM1 $ gF1 ...@@ -68,7 +69,7 @@ d8 $ gM1 $ gF1
$ chop 16 $ chop 16
$ loopAt 2 $ loopAt 2
$ "break:2" $ "break:2"
# gain 0.9 # gain 1.5
d10 d10
$ mask "<f!2 t!2>" $ mask "<f!2 t!2>"
-- $ loopAt 1 -- $ loopAt 1
...@@ -81,7 +82,7 @@ d9 ...@@ -81,7 +82,7 @@ d9
$ n "<~ ~ 27 ~ ~ ~ ~ <29 21>>" $ n "<~ ~ 27 ~ ~ ~ ~ <29 21>>"
# "jungle_vocals" # "jungle_vocals"
# cut 9 # cut 9
# gain 0.6 # gain 1
# room 0.4 # room 0.4
d11 $ gF3 $ gM3 d11 $ gF3 $ gM3
$ whenmod 64 32 (superimpose ( $ whenmod 64 32 (superimpose (
......
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ midiOn "^42" ((<| "k*4") . (# legato 0.5))
$ midiOff "^42" ((<| "<k ~> . ~ [~ k ~] ~ <~!3 k>") . (# legato 0.5))
$ "[808bd:1,808bd:2,jazz]"
d2 $ gM1 $ gF1
$ midiOn "^43" ((<| "~ s ~ s"))
$ midiOff "^43" ((<| "~ . <~ s*<<1 2 4>>> ~"))
$ "snare:41"
d3 $ gMute1 $ gF1
$ midiOff "^44" (mask "t(2,8,1)")
$ "~ h ~ h ~ <h!6 ~!2> ~ h*<1!4 2!3 <2 <1 4>>>"
# "ho" # n "<0!6 1 1>"
# cut 3
d4 $ gM3 $ gF2 -- DARK CURSE BASSLINE
$ midiOn "^89" (ply 2)
$ note (
"[bf4 a4] <g4!3 bf4> <g4 <[g4 g4*2] [g4@2 a4 <g4!3 g5>]>>"
+ 2)
# "vec1_acid:30"
# crushbus 41 (range 14 3.5 "^53")
# octerbus 42 (range 0 0.95 "^33")
# octersubbus 43 (range 0 0.95 "^17")
# room 0.3 # sz 0.8 # dry 1.5
# cut 4
# legato 0.9
d5 $ gF3 $ gM3 -- Blue Birdies as lead <3
$ midiOn "^90" (ply "<2!3 4>")
$ slice 4 "<[0 1] [2 3]>"
-- Sequence: A!4 C!3 A A!6 CS ~
$ n "<0!4 3!3 0 0!6 4 <~ 0>>"
-- $ n "0"
# crushbus 51 (range 14 3.5 "^54")
# "blues_guitar_birdy_120"
# cut 5
# panbus 52 (range 0.95 0.05 sine)
# gain 0.8
# room 0.4
# sz 0.3
# cut 5
d7 $ gM3 $ gF3 -- Blue Birdies as lead <3
-- Sequence: A!4 C!3 A A!6 CS ~
$ midiOn "^92" (ply "<1!3 2 2!3 4>")
$ midiOn "^59" (ply "<1!3 2 2!3 4>")
$ n "<~ <0!4 3!3 0 0!6 4 ~>>"
-- $ n "0"
# "blues_guitar_riff_120"
# cut 7
d11 $ gM3 $ gF3 -- Bluesky additions
-- Sequence: A!4 C!3 A A!6 CS ~
$ n "<~!4 <0!4 3!3 0 0!6 4 ~> ~!3>"
# "blues_guitar_bluesky_60"
# cut 11
# gain 0.8
d8 $ gM1 $ gF1 -- BREAKS WITH RULES <3
$ midiOn "^60" (mask "t(4,8,1)" . chop 8)
$ midiOn "^92" (mask "t(4,8,1)" . chop 8)
$ chop 8
$ loopAt 4
$ midiOff ("^56" + "^36") (|* gain 1.3)
$ midiOn "^36" (mask "t [t t <t f> f]" . chop 4 . loopAt 0.25 . (|> "jungle_breaks"))
$ midiOn "^56" (loopAt 0.25 . (|> "breaks165"))
$ "trance_loops:2"
# cut 8
d10 -- Slow low Riser
$ mask "<f!12 t f f f>"
$ "risers:7"
# speed 1.7
# begin 0.25
# room 0.4
# cut 10
# gain 0.8
# lpf 4000
do
-- resetCycles
setcps (124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^30" ((# "hardkick_rha:25") . (|- note 1) . (|* gain 0.8))
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 <k ~>>")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2 $ gMute1 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp [~!3 <~!3 cp>] cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:22]"
# pan 0.65
-- # legato 0.22
d3 $ gM1 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
-- # midiG' "^80" 0 1.5
d4 $ gF2 $ gM3
$ superimpose (-- LASER CRUSH BASS
(|* gain "^53") . (# room 0.2) . (# lpf 2400) . (# n "29") . (|- note 12) . (# cut 41))
$ note "<[e4@3 e4@2 fs4 e4] b3 [b3@3 b3@2 b3 d3] e4>"
# "vec2_synth_acid:28"
# cut 4
d5 $ gF3 $ gM3
$ midiOn "^90" (ply 8)
-- $ slow 4
$ slice 4 "<0*[4 1] 1 2 3>"
-- $ whenmod 16 12 (>| "<~ ~ foule_keys:5 ~>")
$ fix (0.28 <~) (n "[0,2]")
$ midiOn "^58" (# n "<2 3>")
$ n "<0!4 1!4>"
-- $ n "<2 3>"
# "foule_keys"
# cut 5
# room 0.2 # sz 0.2
d9 $ gF2 $ gM3 $ note "<e4 a4 g4 b4>/4" # "moog" # cut 9
d7 $ gF3 $ gM3
$ midiOn "^59" (("<0.2 0>" <~) . (# n "<<8 9> ~!3>"))
$ n "<0 1 2 3 4 5 6 7>/2"
# "foule_vox"
# cut 7
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" ((# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ chop 16
$ "breaks165"
# cut 8
# octersub 0.5
# gain 1.2
...@@ -35,8 +35,8 @@ d4 $ gF2 $ gM3 ...@@ -35,8 +35,8 @@ d4 $ gF2 $ gM3
$ midiOn "^89" (ply 2) $ midiOn "^89" (ply 2)
$ slow 2 $ slow 2
$ note ( $ note (
struct "t(3,8) t(3,8)" $ struct "[t,[t(5,8) t(3,8)]]" $
arp "converge" $ arp "up" $
cat [ cat [
"[bf3, d4, f4, a4]", -- Bbmaj7 "[bf3, d4, f4, a4]", -- Bbmaj7
"[a3, c4, e4, g4]", -- Am7 "[a3, c4, e4, g4]", -- Am7
...@@ -44,10 +44,11 @@ d4 $ gF2 $ gM3 ...@@ -44,10 +44,11 @@ d4 $ gF2 $ gM3
"[g3, b4, d5, <f5 ~>]" -- <G7 G> "[g3, b4, d5, <f5 ~>]" -- <G7 G>
] - 12) ] - 12)
# "bassWarsaw" # "bassWarsaw"
# crushbus 41 (range 16 4 "^53") # octersubbus 41 (range 0 2 "^33")
# room 0.2 # crushbus 42 (range 16 4.5 "^53")
# legato 0.5 -- # room 0.2
# gain 1.4 -- # legato 0.5
# gain 1.3
d7 $ gF2 $ gM3 d7 $ gF2 $ gM3
$ midiOn "^89" (ply 2) $ midiOn "^89" (ply 2)
$ slow 2 $ slow 2
...@@ -67,7 +68,8 @@ d7 $ gF2 $ gM3 ...@@ -67,7 +68,8 @@ d7 $ gF2 $ gM3
# delay 0.7 # delay 0.7
# delayt 0.125 # delayt 0.125
# delayfb 0.5 # delayfb 0.5
d5 $ gF2 $ gM3 $ slow 2 -- V2 # gain 1.2
d5 $ gF2 $ gM3 $ slow 2 -- V2 -- TODO : Feedback: reverb? un peu creux?
-- $ superimpose ((arp "up") . (|+ note 12)) -- $ superimpose ((arp "up") . (|+ note 12))
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0))) $ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ note (cat [ $ note (cat [
...@@ -84,7 +86,7 @@ d5 $ gF2 $ gM3 $ slow 2 -- V2 ...@@ -84,7 +86,7 @@ d5 $ gF2 $ gM3 $ slow 2 -- V2
|+ note 2 -- Adjust to C |+ note 2 -- Adjust to C
# modIndex (range 0 2 "^54") # modIndex (range 0 2 "^54")
# room 0.4 # room 0.4
-- # midiG' "^81" 0 1.6 # gain 1.1
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ midiOff "^60" (mask "f(4,8)" . chop 8) $ midiOff "^60" (mask "f(4,8)" . chop 8)
$ midiOn "^92" (ply 4) $ midiOn "^92" (ply 4)
...@@ -96,13 +98,16 @@ d8 $ gF1 $ gM1 ...@@ -96,13 +98,16 @@ d8 $ gF1 $ gM1
$ "break:2" $ "break:2"
-- # n 4 -- # n 4
# cut 8 # cut 8
# gain 0.7 # gain 1
d9 -- Alright Paris <3 FIXME SLOWER LOOPS d9 -- Alright Paris <3
$ mask "<f f t f>" $ begin ("<<0.0 0.08> <~ <0.2!3 0.4 0.4!4>>>")
$ "movie_paris:14" # end ("<0.2!3 <0.4!2 0.64!2>>") -- 0.2 - 0.35 - 0.4 - 0.6
# begin "<0 0.2 0 0>" # "movie_paris:14"
# end "<0.2 0.6 0.6 0.45>" -- 0.2 - 0.35 - 0.4 - 0.6
# cut 9 # cut 9
# gain 1.3
d10
$ mask"<f!7 t>"
$ "h2ogmcy:3"
once $ note "c5" # "superpiano" once $ note "c5" # "superpiano"
do do
setcps (85/60/4) setcps (85/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
...@@ -7,19 +8,19 @@ let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) ...@@ -7,19 +8,19 @@ 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 gMute2 = (midiOn "^74" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16")) let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM1 = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick variable d1 $ gF1 $ gMute2 -- Kick variable
$ midiOn "^76" (fast 2) -- $ midiOn "^76" (fast /2)
$ midiOn "^42" (struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK $ midiOn "^42" (fast 2 . 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.9) "kick:4" $ fix (|* gain 0.9) "kick:4"
-- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif! -- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
-- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable -- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
$ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb $ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb
# gain 1.3 # gain 1
d2 $ gF1 $ gMute $ fast 2 -- Snare dnb assorti d2 $ gF1 $ gMute $ fast 2 -- Snare dnb assorti
$ midiOn "^42" ( -- STAY FOR THE SNARE $ midiOn "^42" ( -- STAY FOR THE SNARE
(<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>") (<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>")
...@@ -41,16 +42,16 @@ d3 $ gF1 $ gMute2 ...@@ -41,16 +42,16 @@ d3 $ gF1 $ gMute2
# n "0!3 <0!3 1>" # n "0!3 <0!3 1>"
# pan 0.35 # pan 0.35
d4 $ gF2 $ gMute3 -- COME WITH THE BASS d4 $ gF2 $ gMute3 -- COME WITH THE BASS
$ superimpose (const $ gF2 -- $ superimpose (const $ gF2
$ whenmod 16 8 (rev . chop 4) -- $ whenmod 16 8 (rev . chop 4)
$ n "[19 <21!3 <20 22>>]" -- $ n "[19 <21!3 <20 22>>]"
# "meth_bass" -- # "meth_bass"
# cut 41 -- # cut 41
# pan 0.8 -- # pan 0.8
# midiG' "^33" 0 0.8 -- # midiG' "^33" 0 1.2
# room 0.3 -- # 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>")
...@@ -63,6 +64,7 @@ d4 $ gF2 $ gMute3 -- COME WITH THE BASS ...@@ -63,6 +64,7 @@ d4 $ gF2 $ gMute3 -- COME WITH THE BASS
# sz 0.035 # sz 0.035
# octer 0.4 # octer 0.4
# pan 0.2 # pan 0.2
# gain 1.2
d5 $ gM3 $ gF3 -- Sky's guitar d5 $ gM3 $ gF3 -- Sky's guitar
$ midiOn "^90" (ply "2 <2 <4 8>>") $ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (>| n "<3 ~ 3 ~>") $ midiOn "^58" (>| n "<3 ~ 3 ~>")
...@@ -92,7 +94,7 @@ d7 $ gF3 -- together yeah! ...@@ -92,7 +94,7 @@ d7 $ gF3 -- together yeah!
# crushbus 71 (range 16 "<5 10>" "^55") # crushbus 71 (range 16 "<5 10>" "^55")
# hpfbus 72 (range 0 3500 "^55") # hpfbus 72 (range 0 3500 "^55")
# cut 7 # cut 7
d8 $ gM $ gF1 -- Angel Breaks d8 $ gM1 $ gF1 -- Angel Breaks
$ midiOn "^92" (ply "<2 2 4 8>") $ midiOn "^92" (ply "<2 2 4 8>")
$ midiOn "^60" (mask "f <t t f t>") $ midiOn "^60" (mask "f <t t f t>")
$ chop 8 $ chop 8
......
do
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 gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- resetCycles
d1 $ gM2 $ gF1
-- $ mask "<f!8 t!24 f!16 t!16>"
-- $ "k*<1!8 2!8> ~!3 . ~ k ~ <k!3 <~!3 k*4>>"
$ "k k k k . k*<1!3 2> k*<1!3 2> k*<1!3 2> k*<1 <2 4>>"
# "jazz"
d2 $ gM1 $ gF1
$ "~ s ~ [s*<1 2> ~]"
# "snare:32" # lpf 800
# gain 1
d3 $ gM1 $ gF1
-- $ mask "t . <t!3 f>"
-- $ someCyclesBy "<1!4 0!28>" (ply 2)
$ midiOn "^44" (ply 2)
-- $ mask "<t!4 t(4,8,1)!8 t!4>"
$ "h*8"
# "hh"
-- # gain (slow 16 $ range 0.9 1.3 saw)
-- # room 0.14
# rel 0.4
# att 0.4
d4 $ gM3 $ gF2
$ midiOn "^89" (chop "4 <[4 8] [8 <16 32>]>")
$ superimpose ((# hpf 500) . (# crushbus 41 (range 16 2.5 "^53")))
$ note ("<d4 a3 c3 g3>")
# "bassWarsaw"
# octersub 0.9
# room 0.4 # sz 0.8
# bandf 500
# gain 0.7
d5 $ gM3 $ gF3
$ someCyclesBy "<1!8 0!24>" (|* gain (slow 8 $ range 0.5 1 saw))
$ note (cat [
"[d4@3 c4 b3@2 a3@2 . g3 a3 b3 g3]", -- deck 1a
"[a3 b3 c4 a3 b3@2 ~ a3 . g3 gf3 g3@2]", -- deck 1b
"[d4@3 c4 b3@2 a3@2 . g3 a3 b3 g3]", -- deck 2a (same)
"[a3 b3 c4 a3 b3@2 ~ a3 . g3 gf3 g3@2]", -- deck 2b (same)
"a3@3 b3 c4@2 a3@2 . b3 c4 d4 a3", -- deck 3a
"[b3 cs4] d4 [e4 fs4] g4 . fs4 e4 d4@2", -- deck 3b
"[d4@3 c4 b3@2 a3@2 . g3 a3 b3 g3]", -- deck 1a
"[e4 e4 e4 e4 d4@2 ~ c4 . b3 <a3 gf3 a3 a4> <g3!3 g4>@2]" -- deck 1b
])
-- # "FMRhodes1" # lpf 4000
# "superfork" # octave 6 |* gain (range 0.87 1 perlin)
# att (range 0.2 0.4 perlin) # rel 1
# gain 0.93
d7 $ gM3 $ gF3 -- CHOIR
-- $ mask "t(4,16)"
$ note (cat [
"[d4@3 c4 b3@2 a3@2 . g3 a3 b3 g3]", -- deck 1a
"[a3 b3 c4 a3 b3@2 ~ a3 . g3 gf3 g3@2]", -- deck 1b
"[d4@3 c4 b3@2 a3@2 . g3 a3 b3 g3]", -- deck 2a (same)
"[a3 b3 c4 a3 b3@2 ~ a3 . g3 gf3 g3@2]", -- deck 2b (same)
"a3@3 b3 c4@2 a3@2 . b3 c4 d4 a3", -- deck 3a
"[b3 cs4] d4 [e4 fs4] g4 . fs4 e4 d4@2", -- deck 3b
"[d4@3 c4 b3@2 a3@2 . g3 a3 b3 g3]", -- deck 1a
"[e4 e4 e4 e4 d4@2 ~ c4 . b3 <a3 gf3 a3 a4> <g3!3 g4>@2]" -- deck 1b
])
# "moogBass"
# modIndex 0
# legato 4
# rel 4
# att 0.01
# gain (slow 32 $ range 0.5 0.8 saw)
# crushbus 71 (range 14 2.4 "^55")
# pan 0.38
# room 0.4
# dry 1
d8 $ gM1 $ gF1
-- $ mask "t . <t!3 f>"
-- $ mask "<f!6 t f t!24>"
$ loopAt 2
$ chop 8
$ "jungle_breaks:44"
# gain 0.57
# room 0.3 # dry 1
...@@ -45,3 +45,4 @@ d9 $ gF3 -- Winds of change ...@@ -45,3 +45,4 @@ d9 $ gF3 -- Winds of change
# room 0.2 # sz 0.8 # dry 0.5 # room 0.2 # sz 0.8 # dry 0.5
# lpf 2000 # lpf 2000
# cut 9 # cut 9
3 gqin é
-- Jamuary 25 #04
-- Using "giorgio_syn:7" and medieval mostly :P
-- Ce Qu'on Ignore
-- Du danger, c'est ce qu'on tient pour certain
-- qui ne l'est pas
-- MARK TWAIN
do
-- resetCycles
setcps (108/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
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
d2 $ gF1 $ gM1 $ "~ sn <~ [~ sn]> sn"
# note "0 0 -1 0" # legato "1 1 0.75 1"
-- # "[snare:5,snare:19]" -- BIT
# "<rampleM9:6!6 rampleM9:7 rampleM9:8>" |* gain "<1.3!6 1.7!2>"
# room 0.4 # sz 0.6 # dry (slow 8 $ range 1 1.24 saw)
# gain 1.5
d3 $ gF1 $ gM1 -- Hats ouverts legers
$ midiOn "^76" (ply 2)
$ midiOff "^44" (mask "t(4,8,1)")
$ "ho:0*8"
# att 0.25
# rel 0.05
# gain (1.5 * "1 0.9 1 0.8 <0.9!3 1.05> 1")
d4 $ gF2 $ gM3
-- $ superimpose ((# "ikedaBass")
-- . (|- note 12) . (|* gain 1.4)
-- )
$ note ("gs3 [gs3@2 b3]@2 0@2"
-- + 12
+ "0 0@2 <gs3 ef3 gs3 ef3 gs3 ef3 gs3 ef3 gs3 cs4 ef4 e4 gs3 cs4 ef4 e4>@2")
# "bassWarsaw"
-- # room 0.4 # sz 0.8
# dry 1.4
# chorus 0.4
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# octersubsubbus 43 (range 0 1.5 "^33")
d5 $ gF3 $ gM3
$ midiOn "^90" (slice 4 "1*[4 <4 8>]")
$ midiOn "^58" (ply "4 4 <4!3 8> <2 <8!3 16>>")
$ midiOff "^90" (slice 8 ("<0 1 0 1 0 1 2 3>"))
$ "medieval:210"
# cut 5
# room 0.1 # sz 0.9
# freezebus 51 "^18"
# crushbus 52 (range 16 2.5 "^54")
d8 $ gF1 $ gM1
$ midiOn "^92" (loopAt "0.5 0.5 <0.5!7 0.25> <0.5!3 0.25>" . (# "breaks165"))
$ midiOn ("^60" - "^92") (mask "t(4,8,1)" . chop 8)
$ loopAt 2
$ chop 8
$ "jungle_breaks:45"
# cut 8
d10 -- Violoncelle metronomique
$ note "<~!8 gs5 ~ ef5 ~ gs5 ~ <ef5 [ef6(3,8)]> [[e6 fs6](3,8)]>"
# "cbow" # n "<0!8 1!8>"
# cut 10
# room 0.4 # sz 0.8
# gain 0.6
do
-- resetCycles
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let width = pF "width"
let lagTime = pF "lagTime"
let filterRange = pF "filterRange"
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
-- $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[kick:4,jazz]"
# gain 1.3
d2 $ gF1 $ gM
$ "~ sn <~ [~ sn]> sn*<1!3 2>"
-- # note "0 0 -1 0"
-- # legato "1 1 0.75 1"
# "[cp]"
# note "4" # legato 0.5 # att 0.01 # rel 1
-- # octersub 2 # lpf 5000
# gain 1.4
d3 $ gF1 $ gM -- Hats closed legers
-- $ midiOff "^44" (mask "t(4,8,1)")
$ "~ h ~ h*<1!3 2> ~ h ~ <h h*2>"
# "amencutup:5"
# legato 0.5
# hpf 2400
# note "3"
|* gain 1.5 * ("~ 1 ~ 0.9 ~ 1 ~ 0.8")
d6 $ gF1 $ gM -- Hats closed legers
$ midiOff "^44" (mask "t(4,8,1)")
$ "h2ogmhh:5*8"
# legato 0.5
# note "<2!2 -1!2>"
# room 0.3 # sz 0.13 # dry 1.1
# gain 1.2 * ("1 0.9 1 0.8 <0.9!3 1.05> 1")
d4 $ gF2 $ gMute3
$ midiOn "^57" (chop 4)
$ midiOn "^89" (mask "t(8,16)" . ply "<2!3 [2 4]>")
$ superimpose (
(# crushbus 41 (range 16 3.5 "^53"))
. (# lpf 2500) . (# room 0.2)
)
$ note "<[fs4@7 <~ a4>] <d4!3 <g4 [g4@5 a4 g4 e4]>>>"
-- # "moog:1"
# "bassWarsaw" |- note 12
# cut 4
# gain 1.3
# att 0.02 # rel 4
# room 0.3 # sz 0.5
# octerbus 42 (range 0 0.95 "^33")
d7 $ gF3 $ gMute3
-- $ note "<[fs4@7 <~ a4>] <d4!3 <g4 [g4@5 a4 g4 e4]>>>"
$ note ("fs fs a <~!8 fs!8> <~!8 fs!8> <a!3 <b cs>>")
-- # "moog:1"
# "vec2_synth_acid:31"
# cut 4
# gain 1.3
# room 0.2 # sz 0.1
# delay "<0!24 0.25!4 0.5!4>"
# delayt "h" # delayfb 0
# octersubbus 42 (range 0 0.95 "^35")
d5 $ gF1 $ gM3
$ fix (
stutWith "<[2 1] <2!3 4 2 2 4 [4 8]>>" "e" (|+ note 12)
. (|- note 12)
. (ply 2)
. (# pan 0.8)
. (# modIndex (range 0 3 "^54"))
. (|* gain 1.1)
. (# cut 51)) ("FMRhodes1")
$ fix ((|* gain (range 1 0.3 "^34")) . (# cut 52)) "90s_synatm"
$ note ("<cs5 <a4 <d5 [d5@5 cs5 d5 cs5]>>>" + 12)
# "[FMRhodes1,90s_synatm:3]/4"
# cut 5
# room 0.4
# pan 0.3
# lpf 5000
d10
$ struct "<~!4 <~ t> ~ ~ ~>"
$ loopAt 4
$ "risers:8"
# room 0.4 # sz 0.9
# cut 10
d8 $ gF1 $ gM
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 2) . (# hpf 1500) . (# "jungle_breaks:45")) -- ORL RPZ
$ midiOn ("^56" - "^92") ((loopAt 2) . (|* gain 1.1) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!7 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165") . (# octersub 2)
. (|* gain 1.28)
)
$ chop 16
$ loopAt 1
-- $ loopAt 2
$ "jungle_breaks:28" -- BREAKS LOVER <3
# room 0
# gain 1
d9 $ gF3
$ gMute3
$ stack [
"vocalMix:8/2", -- Basse question
mask "<f!8 t!24>" $ "<~ vocalMix:6>", -- Basse reponse
"<~ <~!3 vocalMix:4>>", -- Tension
""
]
# cut 9
# att 0.02
# rel 8
# room 0.2
# gain 1.3
d10 $ gF3 $ "vocalMix" # n "<29!4 31!4>"
...@@ -28,7 +28,7 @@ d2 $ gF1 $ gM1 ...@@ -28,7 +28,7 @@ d2 $ gF1 $ gM1
# rel 0.35 # rel 0.35
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ midiOn "^76" (off "e" id) $ midiOn "^76" (off "e" id)
$ "hh(3,8) hh(<3!3 <[5] [3 5]>>,8)" # "hh:8" -- Christmas bath $ "hh(3,8) hh(<3!3 <[5] [3 5]>>,8)" # "hh:8" -- Chunglristmas bath
# gain 1.4 # gain 1.4
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t([<8 16> <16 [16 32]>],8)") $ midiOn "^89" (struct "t([<8 16> <16 [16 32]>],8)")
......
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
$ fix (# lpf 2000) "kick"
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" ((<| "k . ~ k ~ <~!3 k>") . fix (# silence) "kick")
$ "[808bd:4,808bd:2,kick:4]"
# gain 1.51
# lpf 2000
-- # cps ((range (99 - 20) (99 + 20) "^29") / 60/ 4) -- TODO CPS MAGIC??
d2 $ gF1 $ gM1
$ whenmod 8 15 (# silence)
$ midiOn "^42" (# "vec1_snare:21")
$ "~ s [~!3 <~ s>] s*<1!7 2>"
# lpf 5000
# octersub 0.6
# "[snare:42]"
# gain "1 1 0.93 1"
d3 $ gF1 $ gM1
$ whenmod 8 15 (mask "t t t f")
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*[8 <8!3 16>]")
-- $ off 0.5 id
-- $ midiOn "^"
$ loopAt 4 $ chop 8
$ "sunny_bass" # n "<3!16 4!16 5!16 6!16> <3!16 4!16 5!16 6!16> <3!16 4!16 5!16 6!16> <3!15 4!16 5!16 6!16 3>"
# cut 4
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# gain 1.5
-- # gain 1.3
-- d5 $ gF3 $ gM3 $ chop 4
-- $ midiOn "^90" (ply "4 <4 8>") -- That's all folks!
-- $ midiOn "^58" (# n "<1!3 2>") -- That's all folks!
-- $ "rob_cross_riff" # n "<0!8 <3 3 3 <[3 4] 4>>!8 >"
-- -- # n "<0!7 1>"
-- # cut 5
-- # crushbus 51 (range 16 3.5 "^54")
d7 $ gF1 $ gM1
-- $ jux rev
$ note ("0(<<1!4 3!12> <1!8 <3!3 5>!8> 3 1>,8) 0(<1 3 1 5>,8)"
+ "<f gs bf g>"
+ 2
)
# "tabla2"
-- # gain (slow 32 $ range 0.45 0.8 saw)
# room 0.4
# sz 0.6
d9 $ gF2 $ gM3
$ note ("<f gs bf <g!0 [g@5 bf af <g bf>]>>"
+ "[0,<~!8 0!24>]")
# "moog"
# crushbus 91 (range 16 4.5 "^19")
# octersubbus 92 (range 0 2 "^18")
# bandfbus 93 (range 0 10000 "^17")
# cut 9
d8 $ gF1 $ gM1
$ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
$ chop 8
$ midiOn "^36" (loopAt 0.5 . (|> "jungle_breaks:40"))
$ midiOn "^56" (loopAt 0.5 . (|> "jungle_breaks:20"))
$ loopAt 2
$ "jungle_breaks:45"
do
-- resetCycles
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let width = pF "width"
let lagTime = pF "lagTime"
let filterRange = pF "filterRange"
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
-- $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[kick:4,jazz]"
-- $ "[jazz]"
-- $ "[kick:4]"
-- $ "[808bd:2,808bd:4]"
# lpf 5000
# gain 1
d2 $ gF1 $ gM
$ "~ sn <~ [~ sn]> sn*<1!3 2>"
-- # note "0 0 -1 0"
-- # legato "1 1 0.75 1"
-- # "rampleA4:4"
# "[jungle:11,snare:24]"
-- # octersub 2 # lpf 5000
# gain 1.4
-- # room 0.4 # sz 0.1 # dry 1.1
d3 $ gF1 $ gM -- Hats closed legers
-- $ midiOff "^44" (mask "t(4,8,1)")
$ "~ h ~ h*<1!3 2> ~ h ~ <h h*2>"
# "h2ogmhh:3"
-- # note "<2!2 -1!2>"
-- # room 0.3 # sz 0.13 # dry 1.1
|* gain 1.5 * ("~ 1 ~ 0.9 ~ 1 ~ 0.8")
d6 $ gF1 $ gM -- Hats closed legers
$ midiOff "^44" (mask "t(4,8)")
$ "h2ogmhh:5*8"
# legato 0.5
# note "<2!2 -1!2>"
# room 0.3 # sz 0.13 # dry 1.1
# gain 1.2 * ("1 0.9 1 0.8 <0.9!3 1.05> 1")
d4 $ gF2 $ gMute3 $ chop 8 -- La super sunny bass on the other side of the sunny street
$ midiOn "^89" (mask "t(8,16)" . ply "<2!3 [2 4]>")
$ midiOff "^57" (mask "t(<4 [4 <2!3 [2 8]>]>,8)")
$ superimpose (
(# crushbus 41 (range 16 3.5 "^53"))
. (# lpf 2500) . (# room 0.2)
)
$ n "<0 0 0 0 1 1 1 <0 1 2 <2!3 [2 2 3 2]>>>"
# "sunny_bass"
# cut 4
# att 0.03
# rel 2
# gain 1.4
# room 0.3 # sz 0.5
# delay "<0!3 [0 0.8]>"
# delayt 0.25 # delayfb 0
# pan 0.4
# octersubbus 42 (range 0 2.5 "^33")
# octersubsubbus 43 (range 0 2.5 "^33")
d5 $ gF3 $ gM3 -- On the Sunny side of the sample
$ midiOn "^90" (chop 8) -- FIXME NOT SPLITTING?
$ midiOn "^34" (slice 4 "2 2 2 3")
$ midiOn "^18" (>| n (slow 4 $ "<3 4 5 6>"))
-- $ someCyclesBy "<1!8 0!24>" (>| n "<0 0 1 0>") -- Hey Sunny
-- $ n "0" < <!12 <2 ~ ~ ~>!0>" -- Hey Sunny
$ mask "<t f <f t> f>" -- Mask deploy sample
$ n (slow 4 $ "<0!4 1!4 0!4 1!4 2!16>")
# "sunny_brass"
# cut 4
# gain 1
# room 0.3 # sz 0.5
# delay "<0!3 [0 0.8]>"
# delayt 0.25 # delayfb 0
# pan 0.6
# cut 5
# gain 1.2
d10
$ struct "<~!4 <~ t> ~ ~ ~>"
$ loopAt 4
$ "risers:8"
# room 0.4 # sz 0.9
# cut 10
-- d11 $ gMute3
-- d7 $ gF3 $ gM3 $ note (
d7 $ gM3 $ gF2
$ midiOn "^91" (mask "t(16,32)" . ply 2)
$ arp "up"
$ note (
-- "[0*4]*<2!2 <2 4> [2 4]>" -- Mechanic rhytm
"0(3,8) 0(<3!3 5>,8)"
+ "f gs c g"
+ 12
-- + 1 -- Calage
)
-- # "vec1_acid:21" |+ note 1 -- Option 1: Samples ACIDES
# "acidOto3092" |- note 36
# width (range 0.5 0.98 "^35")
# crushbus 71 (range 16 3.5 "^55")
-- # filterRange 4
# room 0.3
# pan 0.3
# sz 0.5
# gain 1.3
d8 $ gF1 $ gM
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 2) . (# hpf 1500) . (# "jungle_breaks:45")) -- ORL RPZ
$ midiOn ("^56" - "^92") ((loopAt 2) . (|* gain 1.1) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!7 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165") . (# octersub 2)
. (|* gain 1.28)
)
$ chop 16
$ loopAt 1
-- $ loopAt 2
$ "jungle_breaks:28" -- BREAKS LOVER <3
# room 0
# gain 1
...@@ -18,7 +18,7 @@ d1 $ gF1 $ gM2 ...@@ -18,7 +18,7 @@ d1 $ gF1 $ gM2
$ 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" (<| "k ~ ~ [~ <~ k>]") -- $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
-- $ fix (|* gain 0.85) "rampleS57" -- $ fix (|* gain 0.85) "rampleS57"
$ "house:0" -- TODO: Meilleur kick? $ "[house:0,kick:5]" -- TODO: Meilleur kick?
-- # cut 1 -- # cut 1
# gain 1.1 # gain 1.1
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
...@@ -55,7 +55,7 @@ d5 $ gF3 $ gM3 -- Piano guide premier ...@@ -55,7 +55,7 @@ d5 $ gF3 $ gM3 -- Piano guide premier
$ "nujazz_keys120" $ "nujazz_keys120"
# n "<61!24 60!8>" # n "<61!24 60!8>"
# pan 0.8 # pan 0.8
# roombus 51 (range 0.1 0.94 "^54") # roombus 51 (range 0 0.4 "^54") # sz 0.14
# lpfbus 52 (range 10000 400 "^54") # lpfbus 52 (range 10000 400 "^54")
# cut 5 # cut 5
# gain 1.3 # gain 1.3
......
-- resetCycles resetCycles
do do
setcps(120/60/4) setcps(120/60/4)
...@@ -14,7 +14,7 @@ let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) ...@@ -14,7 +14,7 @@ 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 $ 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 sk <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" (<| "k . ~ k ~ ~") $ midiOff "^42" (<| "k . ~ k ~ ~")
-- $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]") -- $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
...@@ -50,7 +50,7 @@ d4 $ gF2 $ gM3 -- TODO: Varier basse? ...@@ -50,7 +50,7 @@ d4 $ gF2 $ gM3 -- TODO: Varier basse?
# cut 4 # cut 4
# crushbus 41 (range 16 4 "^53") # crushbus 41 (range 16 4 "^53")
# gain 1.4 # gain 1.4
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3 -- NuJazz Keys
$ 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>")
$ chop 8 $ chop 8
...@@ -70,7 +70,7 @@ d6 $ gF1 -- UN GLITCH DANS MON CAFE!!?! ...@@ -70,7 +70,7 @@ d6 $ gF1 -- UN GLITCH DANS MON CAFE!!?!
# cut 6 # cut 6
# crush 8 # crush 8
# lpf (slow 32 $ range 4000 400 sine) # lpf (slow 32 $ range 4000 400 sine)
# gain 0.86 # gain 1.26
d8 $ gF1 $ gM1 -- Break populaire d8 $ gF1 $ gM1 -- Break populaire
$ midiOn "^92" (ply 2) $ midiOn "^92" (ply 2)
$ chop 8 $ chop 8
......
...@@ -27,6 +27,7 @@ d2 $ gF1 $ gM1 ...@@ -27,6 +27,7 @@ d2 $ gF1 $ gM1
# att 0 # att 0
# rel 0.0385 # rel 0.0385
# gain 1.4 # gain 1.4
# pan 0.5
-- # lpf 4650 -- # lpf 4650
d3 $ gF1 $ gM1 -- Highest hats d3 $ gF1 $ gM1 -- Highest hats
$ midiOn "^44" (ply 2) $ midiOn "^44" (ply 2)
...@@ -55,6 +56,7 @@ d5 $ gM3 $ gF3 ...@@ -55,6 +56,7 @@ d5 $ gM3 $ gF3
$ "nujazz_keys125" # n "<56 56 57 56 58!4 59 59 56 59>" $ "nujazz_keys125" # n "<56 56 57 56 58!4 59 59 56 59>"
# cut 5 # cut 5
# pan 0.6 # pan 0.6
# gain 1.4
d7 $ gM3 $ gF3 d7 $ gM3 $ gF3
$ chop 8 $ chop 8
$ loopAt 2 $ loopAt 2
...@@ -62,6 +64,7 @@ d7 $ gM3 $ gF3 ...@@ -62,6 +64,7 @@ d7 $ gM3 $ gF3
# cut 7 # cut 7
# octerbus 71 (range 0 0.5 "^55") # octerbus 71 (range 0 0.5 "^55")
# pan 0.1 # pan 0.1
# gain 1.4
d11 $ gM3 $ gF3 d11 $ gM3 $ gF3
-- $ (0.5 <~) -- $ (0.5 <~)
$ loopAt 2 $ loopAt 2
...@@ -72,7 +75,7 @@ d11 $ gM3 $ gF3 ...@@ -72,7 +75,7 @@ d11 $ gM3 $ gF3
# lpfbus 112 (slow 32 $ range 12000 500 sine) # lpfbus 112 (slow 32 $ range 12000 500 sine)
# att 0.02 # att 0.02
# rel 7 # rel 7
# gain 1.1 # gain 1.3
d12 $ gM3 $ gF3 d12 $ gM3 $ gF3
$ slice 4 "<<[0 1 2 3] [0 1 0 1 2 3 2 3]> [0 1 2 3]>" $ slice 4 "<<[0 1 2 3] [0 1 0 1 2 3 2 3]> [0 1 2 3]>"
$ chop 8 $ chop 8
......
...@@ -90,64 +90,3 @@ d11 $ gM3 $ gF3 ...@@ -90,64 +90,3 @@ d11 $ gM3 $ gF3
-- # gain 0.5 -- # gain 0.5
# room 0.9 # sz 0.8 # dry 0.4 # room 0.9 # sz 0.8 # dry 0.4
# pan (slow 4 $ range 0.95 0.66 saw) # pan (slow 4 $ range 0.95 0.66 saw)
d3 $ "hh*8"
-- TODO KILL GRAVEYARD
d4 $ gF2 $ gM3
$ note ("e3 <b2!3 <ef3 g3>>" |+| "[0 ~ ~ 0 ~ ~ 0 ~] [0 ~ ~ 0 ~ <~ 0> 0 <~!3 0>]")
# crushbus 41 (range 16 3.4 "^53")
# roombus 42 (range 0 0.4 "^33")
# "bassWarsaw"
d5 $ gF3 $ gM3 -- Piano guide premier
$ "nujazz_keys120"
# n "<61!24 60!8>"
# pan 0.8
# roombus 51 (range 0.1 0.94 "^54")
# lpfbus 52 (range 10000 400 "^54")
# cut 5
# gain 0.9
d11 $ gF2 $ gM3 -- Plucked doubts
$ chop 16
$ loopAt 2
$ "nujazz_bass120"
# n "<33!64 34!64>"
# pan 0.3
# cut 4
# att 0.06 # rel 2
# crushbus 41 (range 16 3 (slow 16 $ perlin))
d10 $ gF3 $ gM3
$ someCyclesBy "<1!32 0!32>" (|+ note "<e g bf b>")
$ someCyclesBy "<0!32 1!32>" (|+ note "<e b bf g>")
$ note (
"[0 12 0(<1!3 <3 [3 1]>>,5)]"
+ "[0,12]"
- 12
)
# cut 10
# "cpluck:4"
d7 $ gF1 $ gM1 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
$ chop 8
$ loopAt 2
$ "jungle_breaks:22"
# pan "0.8 0.2"
d8 $ gF1 $ gM1 -- Le Beat, Nu
$ midiOn "^60" (slice 8 $ run 16)
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
$ chop 16
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:6"))
$ midiOn "^56" (# "jungle_breaks:24")
$ loopAt 4
$ n "<10!8 11!8 12!8 10!8>"
# pan "0.2 0.8 0.2 0.8"
# "nujazz_beats120"
-- # pan 0.26
-- # gain 0.9
-- # octersub 1.2
-- # octersubsub 2
# cut 8
# gain 0.9
...@@ -32,7 +32,7 @@ d2 $ gF1 $ gM1 ...@@ -32,7 +32,7 @@ d2 $ gF1 $ gM1
d3 $ gF1 $ gM1 -- Highest hats d3 $ gF1 $ gM1 -- Highest hats
$ midiOn "^44" (ply 2) $ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
-- $ (0.125 ~>) -- decalage -- $ (0.125 ~>) - - decalage
-- $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2)) -- $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
-- $ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>") -- $ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>")
-- $ "d*<8 [8 [16 <8 16> 16 <8 4 <16 32>>]]>" -- $ "d*<8 [8 [16 <8 16> 16 <8 4 <16 32>>]]>"
...@@ -87,7 +87,7 @@ d5 $ gF3 $ gM3 -- Piano guide premier ...@@ -87,7 +87,7 @@ d5 $ gF3 $ gM3 -- Piano guide premier
# pan 0.8 # pan 0.8
# freezebus 51 (range 0 0.7 "^34") # freezebus 51 (range 0 0.7 "^34")
# cut 5 # cut 5
# gain 0.9 # gain 1.3
d7 $ gF2 $ gM3 -- Guitare egaree d7 $ gF2 $ gM3 -- Guitare egaree
$ midiOn "^59" (ply 2) $ midiOn "^59" (ply 2)
$ midiOn "^91" (ply 2) $ midiOn "^91" (ply 2)
...@@ -110,7 +110,7 @@ d8 $ gF1 $ gM1 -- JazzyBelle JazzyBreak ...@@ -110,7 +110,7 @@ d8 $ gF1 $ gM1 -- JazzyBelle JazzyBreak
$ n "<0!4 1!3 0 2!4 3!3 <2 3>>" $ n "<0!4 1!3 0 2!4 3!3 <2 3>>"
# "nujazz_beats120" # "nujazz_beats120"
# pan 0.26 # pan 0.26
# gain 0.7 # gain 0.9
# octersub 1.2 # octersub 1.2
# octersubsub 2 # octersubsub 2
# cut 8 # cut 8
...@@ -129,7 +129,7 @@ d9 $ gM3 $ gF3 -- La chorale du jugement ...@@ -129,7 +129,7 @@ d9 $ gM3 $ gF3 -- La chorale du jugement
$ note ("<[a4@3 <c5 f5>] e5 [<d5!3 f5>] <a5!3 c6>>" + "<0!8 [0,12]!8>") $ note ("<[a4@3 <c5 f5>] e5 [<d5!3 f5>] <a5!3 c6>>" + "<0!8 [0,12]!8>")
# "moogBass" # "moogBass"
# chorus 0.2 # chorus 0.2
# gain 0.5 # gain 0.8
# att 0.3 # att 0.3
# rel 2 # rel 2
# room 0.8 # room 0.8
......
-- once $ "bassWarsaw"
--
do
-- resetCycles
setcps (110/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
d2 $ gF1 $ gM
$ "~ sn <~ [~ sn]> sn"
# note "0 0 -1 0"
# legato "1 1 0.75 1"
# "[snare:40,snare:29]"
# lpf 4000
# room 0.4 # sz 0.1 # dry 1.1
d3 $ gF1 $ gM
$ midiOn "^76" (ply 2)
$ midiOff "^44" (mask "t(4,8,1)")
$ "[<~ <~ d> <~!3 d> d> d d <d!3 <d!3 ~>>]*4" # "dr" # "h2ogmhh:3"
# cut 3
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "0(3,8) 0(3,8)")
-- -- $ midiOn "^57" ((|+ note 12) . (# freeze 0.8))
-- $ sometimesBy (1 -120_Rhodes_RiffChords_E_1 "^17") (mask "[t@6 <f!3 t> <f t>]")
$ fix ( -- ANGEL BASS INCOMING
(# cut 41)
. (mask "<f!32 t!32>")
. (|* gain (slow 32 $ range 0 0.92 saw))
. (# panbus 44 (slow 16 $ range 0.8 0.4 saw))
. (swing 3)
) "vec1_acid:28"
$ midiOn "^57" (fix (
-- fast "<1 1 [2 1] [4 1] 2!12 4!16 4!3 2 4!3 1 4 2 4 1 4 1 4 2>"
fast "<4!3 [4 <4 4 2 4>]>"
) "vec1_acid:27")
$ note "[cs3 b3 <gs3!3 cs4> b3]"
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# octersubsubbus 43 (range 0 5 "^33")
# roombus 45 (range 0 0.5 "^17")
# "bassWarsaw" -- Classique
# "[vec1_acid:27,vec1_acid:28]" |+ note 12
# gain (slow 32 $ range 0.8 1.2 saw)
d10
$ struct "<~!12 t ~ ~ ~>"
$ loopAt 4
$ "risers:8"
# room 0.4 # sz 0.9
# cut 10
# gain 0.8
d5 $ gF3 $ gM3 -- Keys angeliques
$ superimpose (const
$ midiOn "^58" (off 0.5 id)
$ midiOn "^90" (striate 8)
$ gF3 $ gM3
$ slow 2
$ n "<42!16 <44 ~>!16>"
# "nujazz_keys120"
# cut 51
# gain "^18")
$ note "<[b3, gs4] ~ [cs3, b4] [cs4, gs5]>(<1!3 2>,3,1)"
# modIndex 2
# "FMRhodes1"
# room 0.4 # sz 0.8
# delay 0.75
# delayt 0.25
# gain (1 - "^18")
d11 $ gF3 $ gM3 -- CBOW COEUR
$ slow 2 $ note "<[b4@3 ef5] cs5>"
# modIndex 2
# "cbow:1"
# cut 1
# room 0.4 # sz 0.8
# delay 0.75
# delayt 0.25
# gain 0.9
d12 $ gF3 $ gM3 -- Cpluck Tete
$ slow 2
$ note ("<[b4@3 ef5] <cs5!2 e5 cs5>>" + "0(3,8,1) 0(3,8,1)")
# modIndex 2
# "cpluck:4"
# cut 1
# room 0.4 # sz 0.8
# delay 0.75
# delayt 0.25
d9 -- b ef
$ note "<[b4, gs5] ~ [cs4, b5] ~>"
# "moogBass"
# legato 2
d7 $ gF2 $ gM3
$ midiOff "^59" (chop 8 . (struct "t*8"))
$ midiOff "^91" (mask "t(3,8) t(3,8)")
$ note (
"<e4 b3 cs4 cs4>" + "0(<3!3 5>,8) [0 <0 <7!3 <5 7>>> 0](5,8)"
)
# "giorgio_syn:7"
-- # lpf 500
-- # orbit 6
# octersubbus 72 (range 0 2 "^55")
# squizbus 73 (range 0 8 "^35")
# attbus 74 (range 0.05 0.2 "^35")
# rel 2
# gain 1.3
# room 0.4
# room 0.5
d8 $ gF1 $ gM
$ 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 0.9
...@@ -26,14 +26,13 @@ d1 $ gF $ gMute2 ...@@ -26,14 +26,13 @@ d1 $ gF $ gMute2
# rel 0.5 # rel 0.5
# att 0.015 # att 0.015
# lpf 4000 # lpf 4000
# gain 1.1 # gain 1.2
-- # midiG' "^78" 0 1.9
d2 $ gF $ gMute -- Clap timer d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c")) $ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>")) $ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp" $ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000 # lpf 2000
-- # midiG' "^79" 0 1.9 # gain 1.2
d7 $ gF3 $ gM3 -- High Cello Dauphin d7 $ gF3 $ gM3 -- High Cello Dauphin
$ midiOn "^91" (ply 2) $ midiOn "^91" (ply 2)
$ midiOn (1 - "^35") (struct "t . f") $ midiOn (1 - "^35") (struct "t . f")
......
-- See https://www.composernotes.com/sheet_music/Bach-Prelude-Cmajor-BWV846-Harmonic-Analysis.pdf
do
setcps (110/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
d2 $ gF1 $ gM $ "~ sn <~ [~ sn]> 0" # note "0 0 -1 0" # legato "1 1 0.75 1"
# "[vec1_snare:28]" # note ("~ 0 <~ [~ -2]> 0" -2) # gain 1.2
# room 0.4 # sz 0.1 # dry 1.1 # lpf 4000
d3 $ gF1 $ gM -- Hats ouverts legers
$ midiOn "^76" (ply 2)
$ midiOff "^44" (mask "t(4,8,1)")
$ "ho:0*8"
# att (0.25 - (0.1 * perlin))
# rel 0.05
# gain (1.4 * "1 0.9 1 0.8 <0.9!3 1.05> 1")
d4 $ gF2 $ gM2
$ superimpose ((# "vec1_acid:44")
. (|* gain (range 0 1.2 "^17"))
. (|+ note 24))
$ midiOn "^89" (ply "1 2")
$ midiOn "^57" (off 0.5 id)
-- Progression 8 premieres Measures
$ note ("<c3!4 b2!2 c3!2 c3!4 b2!4> <e3!2 d3!4 e3!2 e3!2 d3!4 c3!2>@7")
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 0.9 "^33")
# "bassWarsaw"
# gain 1.3
# room 0.4
d5
$ midiOn (1-"^19") (mask "t f")
$ slow 2 $ note (
cat [
"[~ ~ g4 c5 e5 g4 c5 e5]*4", -- I
"[~ ~ a4 d5 f5 a4 d5 f5]*4", -- ii7
"[~ ~ g4 d5 f5 g4 d5 f5]*4", --
"[~ ~ g4 c5 e5 g4 c5 e5]*4",
"[~ ~ a5 e5 a6 a5 e5 a6]*4",
"[~ ~ fs5 a5 d6 fs5 a5 d6]*4",
"[~ ~ g5 d5 g6 g5 d5 g6]*4",
"[~ ~ e5 g5 c6 e5 g5 c6]*4"
]
)
-- # "cs80leadMH"
# "FMRhodes1"
# modIndex (range 0 14 "^34")
-- # cut 5
# legato 0.4
# room 0.7
d9 $ gF2 $ gM3
$ slow 2
$ note (
cat [
"g4*3 e5", -- I
"a4*3 f5", -- ii7
"g4*3 e5", --
"g4*3 e5",
"a5*3 a6",
"fs5*3 d6",
"g5*3 g6",
"e5*3 c6"
]
)
-- # "cs80leadMH"
# "moog:1"
# room 0.7
# octersub 0.4
# gain 1.3
# pan 0.6
# cut 9
d8 $ gF1 $ gM
$ 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
...@@ -30,7 +30,7 @@ d1 $ g ...@@ -30,7 +30,7 @@ d1 $ g
$ novaOff "^42" (<|"k . ~ k ~ ~") $ novaOff "^42" (<|"k . ~ k ~ ~")
$ novaOn "^42" (<| "k k k <k!3 k*2>") $ novaOn "^42" (<| "k k k <k!3 k*2>")
$ "[jazz,cpu2,kick:5]" $ "[jazz,cpu2,kick:5]"
# gM' 0 1.2 "^78" -- # gM' 0 1.2 "^78"
d2 $ g d2 $ g
$ whenmod 16 8 (-- clap $ whenmod 16 8 (-- clap
superimpose ((# "clap") . (# lpf 200) . (# note "-0") superimpose ((# "clap") . (# lpf 200) . (# note "-0")
...@@ -40,7 +40,7 @@ d2 $ g ...@@ -40,7 +40,7 @@ d2 $ g
$ novaOff "^42" (<| "~ s ~ s") $ novaOff "^42" (<| "~ s ~ s")
$ "sn:20" $ "sn:20"
# lpf 2000 # lpf 2000
# gM' 0.2 0.9 "^79" -- # gM' 0.2 0.9 "^79"
d3 $ g d3 $ g
$ novaOn ("^76") --BOUTON NASSIM $ novaOn ("^76") --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1) (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
...@@ -50,14 +50,14 @@ d3 $ g ...@@ -50,14 +50,14 @@ d3 $ g
$ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw)) $ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw))
$ "d d d d d d d*2 d" $ "d d d d d d d*2 d"
# "[drum:2,amencutup:5]" # "[drum:2,amencutup:5]"
# gM' 0 1.25 "^80" -- # gM' 0 1.25 "^80"
# pan (slow 16 $ range 0.1 0.9 sine) # pan (slow 16 $ range 0.1 0.9 sine)
# room 0.2 # dry 0.99 # room 0.2 # dry 0.99
d4 $ g $ gP -- Gauche d4 $ g $ gP -- Gauche
$ mask "<f!4 t!12 f!8 t!8>" $ mask "<f!4 t!12 f!8 t!8>"
$ note "<c3!3 as3> . ~ [gs3 g3]" $ note "<c3!3 as3> . ~ [gs3 g3]"
# keyboard # keyboard
# gM' 0 1.5 "^81" -- # gM' 0 1.5 "^81"
# pan 0.45 # pan 0.45
d5 $ g $ gP -- Droite 2/3 d5 $ g $ gP -- Droite 2/3
$ whenmod 16 10 (superimpose (const $ whenmod 16 10 (superimpose (const
...@@ -74,7 +74,7 @@ d5 $ g $ gP -- Droite 2/3 ...@@ -74,7 +74,7 @@ d5 $ g $ gP -- Droite 2/3
) )
# keyboard # keyboard
# pan 0.55 # pan 0.55
# gM' 0 0.9 "^81" -- # gM' 0 0.9 "^81"
d6 $ g -- Horloge d6 $ g -- Horloge
$ fast 8 $ fast 8
$ note "<0 -2>" $ note "<0 -2>"
...@@ -82,7 +82,7 @@ d6 $ g -- Horloge ...@@ -82,7 +82,7 @@ d6 $ g -- Horloge
# hpf 5000 # hpf 5000
# hpq 0.3 # hpq 0.3
# room 0.1 # dry 0.98 # room 0.1 # dry 0.98
# gain ("^80" * 0.45) -- # gain ("^80" * 0.45)
d7 $ g d7 $ g
$ mask "<f!8 t!8>" $ mask "<f!8 t!8>"
$ note "[gs5 g5 gs5 ~] [g5 ~ . <gs5 as5>] . <~ ~ [<g5 ~> ~ . <gs5 ~>] [~ as5]> ~" $ note "[gs5 g5 gs5 ~] [g5 ~ . <gs5 as5>] . <~ ~ [<g5 ~> ~ . <gs5 ~>] [~ as5]> ~"
...@@ -90,7 +90,7 @@ d7 $ g ...@@ -90,7 +90,7 @@ d7 $ g
# sawHarmonic 1.9 # sawHarmonic 1.9
# pan 0.1 # pan 0.1
# mix 0.8 # mix 0.8
# gM' 0 1.1 "^83" -- # gM' 0 1.1 "^83"
# room 0.2 # room 0.2
d8 $ g d8 $ g
$ novaOn "^90" (superimpose (chop 16)) $ novaOn "^90" (superimpose (chop 16))
...@@ -99,7 +99,7 @@ d8 $ g ...@@ -99,7 +99,7 @@ d8 $ g
# "bassWarsaw" # "bassWarsaw"
# voice (range 0.1 2 "^34") # voice (range 0.1 2 "^34")
# room 0.6 # sz 0.2 # room 0.6 # sz 0.2
# gM' 0.4 1 "^82" -- # gM' 0.4 1 "^82"
# crush (range 12 3.6 "^54") # crush (range 12 3.6 "^54")
......
...@@ -21,19 +21,19 @@ d1 $ g ...@@ -21,19 +21,19 @@ d1 $ g
$ midiOn "^41" (<| "k k k [<k!3 ~> <~ k>]") $ midiOn "^41" (<| "k k k [<k!3 ~> <~ k>]")
$ midiOff "^41" (<| "k . k(<3!3 5>,8)") $ midiOff "^41" (<| "k . k(<3!3 5>,8)")
$ "[jazz,cpu2]" $ "[jazz,cpu2]"
# gM' 0 1.2 "^78" -- # gM' 0 1.2 "^78"
d2 $ g d2 $ g
$ midiOn "^43" (fast 2) $ midiOn "^43" (fast 2)
$ "h*8" $ "h*8"
# "hh" # "hh"
# gM' 0 1.5 "^79" -- # gM' 0 1.5 "^79"
d3 $ g d3 $ g
$ midiOff "^41" (slow 2) $ midiOff "^41" (slow 2)
$ midiOn "^44" (slow 2) $ midiOn "^44" (slow 2)
$ midiOn "^76" (loopAt 0.5) $ midiOn "^76" (loopAt 0.5)
$ slice 8 "[0 <0 1> <0 0 2 2> <0!4 3!4>]*4" $ slice 8 "[0 <0 1> <0 0 2 2> <0!4 3!4>]*4"
$ "breaks165" $ "breaks165"
# gM' 0 1 "^80" -- # gM' 0 1 "^80"
d4 $ g d4 $ g
$ note ("a e . a ~ ~ <c6 e6 c6 e6 e6 e6 e6 c6>" $ note ("a e . a ~ ~ <c6 e6 c6 e6 e6 e6 e6 c6>"
- 24) - 24)
......
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