do setcps (100/60/4) let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF3 = (# djfbus 3 (range 0.05 0.95 "^51")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16")) let gMute3 = (midiOn "^75" (mask "f*16")) let gM = gMask . gMute let gM2 = gMask . gMute2 let gM3 = gMask . gMute3 d1 $ gM2 $ gF -- Tradition never disappoints: 4 on the fl00r... $ midiOn "^42" (<| "k k k <k <k*2 [k*2 k]>>") $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not? $ "[kick:5,808bd:4,kick:4]" # gain 1.2 d2 $ gM $ gF $ midiOn "^43" (<| "~ c ~ c*[1 <1 <4 <1 4>>>]" ) $ midiOff "^43" (<| "~ <c!7 ~>" ) $ "clap:2" # lpf 2000 # note "-2" # room (slow 8 $ range 0.2 0.6 saw) # dry 1 # gain 1.3 d3 $ gF $ gM $ midiOn "^76" (ply "2 4") $ midiOn "^44" (off (0.5- 0.125) id) $ "~ h ~ h ~ h*<1 <1!4 2!4> 1 2> ~ h*<1!6 2 <2 4>>" # "hh" # panbus 31 ((range 0.3 0.7 (whenmod 8 6 rev $ saw))) # gain 1.4 # room 0.3 # dry 1.1 d4 $ gM3 $ gF2 -- Malediction acide $ someCyclesBy (1 - "^17") (mask "t(3, 8)" . chop 8) $ midiOn "^89" (chop "<8!3 16>") $ midiOn "^57" (jux ((# cut 41) . rev)) $ midiOff "^41" ( whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93))) ) $ chop 8 $ loopAt 8 $ "synth_commodore" # n "1" # crushbus 41 (range 16 2.25 "^53") # roombus 43 (range 0 0.5 "^33") # cut 4 # gain 1.2 # panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw)) -- # pan 0.8 d5 $ gF3 -- Piano solo lover sunset $ midiOn "^58" (-- Sunset echoes off 0.5 ((someCyclesBy 0.1 (juxBy 0.8 (off "[0.125,0.25]" (|+ note 12) . (|* gain 0.6)))) . mask "<t [f t]> t(3,8)" ) . (|+ note 12) . (|+ pan 0.1) . (|* gain 0.8)) $ midiOff ("^58" + "^90") (mask "t f") $ note (arp "up" ("<g <g6 df6>>" + "{0,[0 7]([3 5],8)}") + "[0,12]" - 36) # "FMRhodes1" # crushbus 41 (range 16 2.25 "^54") # modIndex (range 0 16 "^34") # room 0.4 d7 $ gF2 -- Nice organs you got there $ slice 8 "[5(3,8) <6 6 3 <2 7>>]" $ loopAt 2 $ "forgan:28" # cut 7 # hpfbus 51 (slow 32 $ range 5000 0 saw) # gain 1.4 # pan (slow 16 $ range 0.5 0.2 saw) d8 $ gF $ gM $ midiOn "^60" (loopAt 4 . (|* gain 0.9) . (# "drums_nes:7")) $ midiOn "^92" (ply 2) $ slice 4 "0 1 2 3 0*<1 1 2 1> 1 2 3*<1!4 2 2 2 [4 1]>" $ striate "1 <1 <2 [0 1]>>" $ loopAt 1 $ chop 8 $ "breaks165" -- # midiG' "^84" 0 1.8 # gain 1.6 # pan 0.3 d9 $ never (# silence) $ slow 4 $ n "~ <8 10 14 8>" # "fx_commodore" # gain (slow 64 $ range 0.4 (0.8 * "^20") sine) # room (slow 32 $ range 0.3 0.8 saw) # dry (range 0.5 1.5 rand) # pan 0.9 # sz 0.3 d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™" $ midiOn "^44" (fast "1 2") $ midiOn "^76" -- L'Esprit de Nassim ( whenmod 8 7 (ply "1 . 2") . slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") . (loopAt "q") . (# "breaks165") . (# cut 2) . (|* gain 1.1) ) $ chop 8 $ loopAt 4 $ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]" # cut 2 # midiG' "^80" 0 0.9 # pan 0.4 d3 $ gF -- Un peu d'encouragement? $ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000)) $ "~ clap" # midiG' "^79" 0 2 -- # gain 0.8 d4 $ gF2 -- BURN THE BASS WITCH $ midiOn "^57" (superimpose ( -- chain of wicked thoughts (|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>")) . (|* gain "<1 1 1.05 1.1>") . (chop "8 . <8!3 16>") . (# cut 41))) $ midiOn "^89" (chop (slow 4 $ "[16 32 64 128]")) $ "synth/4" # "90s_synatm:9" # crushbus 41 (range 10 2.5 "^53") # room 0.3 # sz "<0.4!7 0.8>" # dry 1 # cut 4 # midiG' "^81" 0 1.6 d5 $ gM $ gF2 -- Ghosts from an easier time $ midiOn "^58" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge") $ note ("c'maj'4" + "<c!3 g g g [g, [~ c]] c>" - 12) # "90s_synatm:8/4" # cut 5 # crushbus 51 (range 16 2.5 "^54") # midiG' "^82" 0 1.1 d10 -- Ready playerm two $ mask "<f!3 t f!3 t f!3 t t!4>" $ slice 8 "0 <0!3 1>" $ loopAt 4 $ "fx_gameboy:5" # crushbus 101 (slow 32 $ range 1.8 0.61 saw) # midiG' "^20" 0 0.85