do setcps (80/60/4) let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gM = gMask . gMute let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw)) let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw)) d1 $ gF $ gMute $ fast 2 $ midiOn "^42" (struct "t t t t*<1!3 [2 <2 4>]>") $ midiOff "^42" (struct "t . ~ t ~ ~") $ "[808bd:13,jazz]" -- 11 # midiG' "^78" 0 1.3 # room 0.2 # sz 0.2 # dry 0.99 d2 $ gF $ gM -- $ mask "<f!8 t!24>" $ midiOn "^75" (struct "[~ t]*8") -- $ midiOn ("^43" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t")) -- $ midiOff ("^43" - "^75") (struct "~ t") $ whenmod 64 32 (whenmod 8 6 (mask "t . <t f> <f [f t]>")) $ midiOn "^43" (struct "~ t ~ <t!3 ~> ~ t ~ <t [<t ~> t]>") $ midiOff "^43" (struct "~ t ~ [t*<1!7 2> ~]") -- $ "[bssnare:0,bssnare:3]" $ "[snare:24,<meth_snare:1!32 meth_snare:2!32>]" # lpf 5000 # pan 0.4 # room 0.2 # dry 0.9 # sz 0.4 # midiG' "^79" 0 1.2 d3 $ gF $ gM -- Broken Jungle Snake $ sometimesBy (1 - "^32") (mask "t(<1!3 [1 4]>,4) . t(<3 5>,8,<0!3 3>)") $ (|* speed (range 0.5 1.5 "^52")) $ gF $ loopAt 1 $ chop 8 $ midiOn "^44" (# n "14") $ midiOn "^76" (ply 2) $ "jungle_breaks" -- Progressive jungle :D # n "<13!3 [13 14 13] 13!3 [13 14] 13!4 14!3 [13 <13 [14 13 14]>]>" # cut 3 # pan 0.6 # midiG' "^80" 0 1.2 d4 $ gF2 $ gM -- GENIE OF INFRABASS $ midiOn "^89" (juxBy 0.8 (rev . (# cut 41))) $ chop (4 + (4 * "^57")) $ "m . m*<1 <2 4>>" # "meth_genie:0" # cut 4 # octersubbus 41 (range 0 0.81 "^53") # octersubsubbus 42 (range 0 0.6 "^53") # midiG' "^81" 0 1.2 d7 $ gF3 $ midiOn "^58" (juxBy 0.7 (rev . (# cut 71))) $ mask "t <f t>" $ chop 16 $ slice 4 "0 <1!3 2>" $ loopAt 2 $ "fepiano:24" # cut 7 # midiG' "^82" 0 1 d8 $ gF3 -- HIGH HOPES $ midiOn "^91" (|-| note "[0,12]") $ midiOn "^59" ( |+| note (arpeggiate "[0 12 <0!8 7!8>]([4 5 <1 4 1 <5 8>>],8)") ) $ note ("<af5 <f5!4 c5!3 cs5>>" - 12 ) # "bassWarsaw" # pan 0.8 # room 0.2 # sz 0.4 # dry 1.1 # legato 2 # crushbus 61 (range 16 3.5 "^55") # midiG' "^83" 0 1.5 d9 $ gF3 -- Pluie bienfaisante $ whenmod 64 32 (superimpose ( chop 4 . (# n "2") . (# cut 91) . (|* gain 1.185) . (|+ note (3 - 12 + "<0!16 7!16>")) . (# crush 16) )) $ "90s_synatm/4" # cut 9 # hpfbus 92 (range 0 5000 "^36") # squizbus 93 (range 0 1.5 "^56") # room 0.2 # midiG' "^84" 0 1.2 once $ "" d1 $ "jazz" # gain 0.9