do setcps (110/60/4) 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 "^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 d1 $ gF $ gMute $ midiOn "^42" (<| "k k k <k [<~ k?> k]>") $ midiOff "^42" (<| "k . ~ k ~ <~!7 k>") $ "[jazz,kick:4]" # midiG' "^78" 0 1.2 d2 $ gF $ gM -- Snare FOU $ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>") $ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>") $ midiOff ("^43"- "^75") (<| "~ s") $ "[sn:25,gretsch:4]" # note (range "-4" 4 "^51") # lpf 5300 # midiG' "^79" 0 1.2 d3 $ gF $ gM $ midiOn "^44" (ply "1 2 1 <2 <1 4>>") $ midiOn "^76" (ply 2) $ ply "1 . 1 <<2 1> [<4 [4 2]> 1]>" $ "dr:2*8" # midiG' "^80" 0 1.2 # pan (0.3 - 0.2 * perlin) d4 $ gF2 $ gMask $ midiOn "^89" (ply "<4!3 [4 8]>") $ chop 16 $ loopAt 4 $ midiOn "^57" (# "bass_gameboy:5") $ "bass_gameboy" # room (slow 8 $ range 0.2 0.8 sine) # sz 0.8 # drybus 41 (range (-2) 2 "^33") # cut 4 # midiG' "^81" 0 1 d5 $ gF2 $ gMask $ whenmod 64 32 (off "q" ((|+ note 12) . (# pan 0.8))) $ whenmod 32 16 (off "e" ((|+ note 9) . (|+ pan 0.1))) $ whenmod 16 8 (off "h" ((|+ note 12) . (# pan 0.8))) $ chop 8 $ loopAt 4 $ "synth_gameboy:5" # pan 0.2 # hpfbus 51 (range 0 8000 "^34") # crushbus 52 (range 16 2.5 "^54") # midiG' "^82" 0 1.2 d6 $ gF2 $ gMask -- $ juxBy 0.8 (rev . (# cut 61)) $ slice 8 ("<0 0 1 <[1 1] [2 <~ 2> 3 <~ 3>]>>") $ loopAt 2 $ "synth_atari:5" # cut 6 # gain 0.8 # midiG' "^83" 0 0.9 d8 $ gF2 $ gMask $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41))) $ sometimesBy "^56" (iter 4) $ midiOn "^92" (ply "<2 [4 <4 8>]>") $ midiOn "^60" (ply 2) $ chop 8 $ loopAt 1 $ "breaks165" # cut 4 # pan 0.7 # midiG' "^84" 0 1.4