Commit fa4ab3d0 by PLN (Algolia)

live: played drops and numb

parent d7577ca3
...@@ -4,7 +4,7 @@ do ...@@ -4,7 +4,7 @@ do
setcps (60/60/4) setcps (60/60/4)
-- resetCycles -- resetCycles
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>")) let gMask = (midiOn "^41" (mask "t f t <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"))
...@@ -12,13 +12,13 @@ let dMask = (whenmod 8 7 (mask "t t <t [f t]> f")) ...@@ -12,13 +12,13 @@ let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute let gM1 = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" ((|> "808bd:4") . fast "<2!6 4 8>" . (<|"k k k k")) $ midiOn "^42" ((|> "808bd:4") . fast "<2!6 4 8>" . (<|"k k k k"))
$ midiOff "^42" ((|> "808bd:4") . (<|"k . k(<3 [3 5] [5 3] [8 <8 16>]>,8)")) $ midiOff "^42" ((|> "808bd:4") . (<|"k . k(<3 [3 5] [5 3] [8 <8 16>]>,8)"))
-- $ fast 2 -- $ fast 2
$ "808bd:4" $ "808bd:4"
# gain 1.4 # gain 1.4
d2 $ gF2 $ gM2 d2 $ gF2 $ gM1
$ fast "<1!8 4!24>" $ "~ s*<1!7 [4 <2 4>]>" $ fast "<1!8 4!24>" $ "~ s*<1!7 [4 <2 4>]>"
# "snare:32" # "snare:32"
# gain 1.3 # legato 0.35 # gain 1.3 # legato 0.35
...@@ -27,7 +27,7 @@ d3 $ gF1 $ gM1 ...@@ -27,7 +27,7 @@ d3 $ gF1 $ gM1
$ midiOn "^44" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh")) $ midiOn "^44" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]") $ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr" $ "dr"
d4 $ gF2 $ gM2 d4 $ gF2 $ gM3
$ midiOn "^57" ( $ midiOn "^57" (
(|+| note ("0 . [<0 2 0 0> <7 7 8 7>](<3!3 5>,8)")) (|+| note ("0 . [<0 2 0 0> <7 7 8 7>](<3!3 5>,8)"))
) )
......
...@@ -76,7 +76,6 @@ d7 -- CHOEUR GENERATIF ALONG THE BASS ...@@ -76,7 +76,6 @@ d7 -- CHOEUR GENERATIF ALONG THE BASS
. (|* gain (range 0.2 1.5 "^55")) . (|* gain (range 0.2 1.5 "^55"))
. (|+ note 12) . (|+ note 12)
) )
) )
$ note ("<ef3 ef3 <fs3 fs3 cs3 bf3> ef3>" + "c6'maj'4") $ note ("<ef3 ef3 <fs3 fs3 cs3 bf3> ef3>" + "c6'maj'4")
# "moogBass" # "moogBass"
......
...@@ -118,8 +118,8 @@ d7 $ gF3 $ gM3 -- Voices ...@@ -118,8 +118,8 @@ d7 $ gF3 $ gM3 -- Voices
$ n (cat [ $ n (cat [
-- "<0 ~ 1 ~ 2 ~ 3 ~>" -- Riders 1 -- "<0 ~ 1 ~ 2 ~ 3 ~>" -- Riders 1
-- "<0 ~ ~ ~ 1 ~ ~ ~ 4 ~ ~ 4 5 ~ ~ ~>" -- Riders 2 -- "<0 ~ ~ ~ 1 ~ ~ ~ 4 ~ ~ 4 5 ~ ~ ~>" -- Riders 2
-- "<<0 6> ~ ~ ~>" -- Road Killer "<<0 6> ~ ~ ~>" -- Road Killer
"<~ ~ <0 1 7 ~> ~>" -- Squirming Brain -- "<~ ~ <0 1 7 ~> ~>" -- Squirming Brain
-- "<8 8 9 8>" -- Children Holiday -- "<8 8 9 8>" -- Children Holiday
-- "<11!6 12 <~ 13>>" -- Love -- "<11!6 12 <~ 13>>" -- Love
-- "11" -- Love -- "11" -- Love
......
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