Commit bf4a3a5f by PLN (Algolia)

Bogdan: Trust issues

parent ca6dbd73
resetCycles
do
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 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 gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (140/60/4)
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k*4")
$ midiOn "^42" (<| "k k k <k [~ k]>")
$ midiOff "^42" (<| "<<k!3 k(<3 6 12>,8)> [~ !7 <~ k>]>")
$ "[jazz,kick:5,808bd:5]"
d2 $ gF1 $ gM1
$ "[kick:5,808bd:5]"
d2 $ gF1 $ gM1 -- Snare complice
$ fix (|* gain 0.8) "sn"
$ midiOn "^43" (<| "<~ [s*<1!3 3> ~]>")
$ midiOff "^43" (<| "~ s ~ s*<1!6 3 3>")
$ midiOn "^43" (<| "~ s ~ s*<1!6 3 3>")
$ midiOff "^43" (<| "<~ [s*<1!3 3> ~]>")
$ "[snare:13,sn:2]"
d3 $ gF1 $ gM1 -- My grimest hat
# pan 0.3
d3 $ gF1 $ gM1 $ gMaskEnd16 -- My grimest hat
$ midiOn "^76" (fast "[2]")
$ "h(3,8) h([<3 5 5 3> <3 5>],8)"
# drumFrom "rolandtr909" "hh"
# cut 3
|* gain "[0.75 1.1]*8"
d5 $ gF3 $ gM3
$ chop 8
$ loopAt 8
$ "synth_commodore:3"
# cut 5
# pan 0.7
# pan 0.8
# gain 0.8
|* gain "[0.75 1.1]*8"
d5 $ gF3 $ gM3 -- Burning butterflies FIXME TROP NUMERIQUE
-- $ midiOn "^57" (>| note ("<ef bf fs gs>"))
-- $ midiOff "^57" (>| note ("[ef, <~ [~!15 e] [~!15 cs] [~!7 [e*2 cs]]>]"))
$ superimpose (arp "down" . (|+ note 12))
$ note ("[0(3,8,1), [12(<1 3 1 5>,8) 12(3,8,1)]]"
+ "<bf gs <bf!3 e> <g!3 <ef [cs ef]>>>"
- 24
)
-- # "giorgio_syn:20"
# "supersquare"
-- # cut 5
# modIndex 2
# crushbus 51 (range 16 5 "^54")
# pan 0.45
# gain (0.5 + (range 0 0.2 (slow 2 perlin)))
# room 0.2
# dry 0.9 # sz 0.5
d7 $ gF2 $ gM3
$ chop 4
$ loopAt 4
$ "meth_bass:17"
-- # octer 1
# octersubbus 63 (range 0 1.5 "^19")
# squizbus 62 (range 0 1.5 "^35")
# crushbus 61 (range 16 2.5 "^55")
# octersubbus 62 (range 0 1.5 "^35")
# crushbus 61 (range 10 2.5 "^55")
# octersub 0
# octersubsub 0
# gain 0.9
d4 $ gM3 $ gF3
d4 $ gM3 $ gF2 -- giorgio's massive tribal bass
$ midiOn "^91" (ply "2 <4 8>" . chop 8)
$ slow 2
$ midiOn "^57" (>| note ("<ef bf fs gs>"))
......@@ -55,21 +70,28 @@ d4 $ gM3 $ gF3
# octersubbus 43 (range 0 5 "^17")
# squizbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.5 "^53")
d8 $ gF1 $ gM1
# gain 0.6
d8 $ gF1 $ gM1 $ gMaskEnd16 -- Come on breaks!
$ chop 8
$ midiOn "^36" (loopAt 2 . (# n "<60!3 61>"))
$ midiOn "^56" (loopAt 2 . (# n "<60!3 61>"))
$ midiOn "^92" (ply 4)
$ midiOff "^60" (mask "t(4,8)")
$ loopAt 2
$ "jungle_breaks:26"
# cut 8
d9 $ gF3
$ "<~!7 bogdan_grime>"
# n (slow 8 "<3!3 <2 0>>")
# gain 0.7
d9
$ midiOn "^42" ((<| "<~ b>")
. (# begin "<0!8 0.4!8>")
. (# end "<0.4!8 1!8>")
)
$ midiOff "^42" (<| "<~!7 b>")
$ "bogdan_grime"
# end (slow 8 "<0.4!3 1>")
# n 2
# lpf (slow 8 $ "<4000!12 400 800>")
# crushbus 91 (range 4 8 perlin * 4)
# lpf 4000
# gain (0.7 + "<0.1!3 0>")
-- $ midiOn "^91" (ply "2 <4 8>" . chop 8)
-- d10
-- $ "~ ~ ~ s"
-- # "glitch:2"
......@@ -85,8 +107,18 @@ d11 $ gF3
# "90s_megafx"
# gain 0.8
# lpf 5000
d10 $ gF3 $ gM3
$ chop 8
d11 -- Cut Cymbals
$ gM1 $ gF1
$ mask "<f!10 t!6>"
$ "h(3,8) h(<3 <5 8>>,8)"
# "hh:7"
# gain (slow 8 $ range 0.4 0.8 saw)
# cut 11
# pan 0.2
# legato "<0.5!6 1 1>"
# lpf 5000
d10 $ gF3
$ chop 16
$ loopAt 4
$ "jungle_riffs:21"
# cut 4
......
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