resetCycles do setcps (120/60/4) 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 d1 $ gM2 $ gF1 $ midiOn "^42" (<| "k k k k*<1!3 2>") $ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>") $ "kick:5" d2 $ gM1 $ gF1 $ fix (# lpf 2500) "h2ogmsn" $ midiOff "^43" (slow 2) $ "~ s ~ <s!3 s*[<4 4 2 4> <2!3 4>]>" # "[db:11,h2ogmsn:12]" # "[dr55:3]" d3 $ gM2 $ gF1 $ midiOn "^76" (ply "2 <2 4>") $ someCyclesBy "<0 0.4>" (jux $ swing 2) $ "<hh(<3!3 [3 5]>,8)!3 [hh(3,8) hh(<3!3 5>,8)]>" # "rampleA4:6" # gain 0.5 # room 0.2 # size 0.9 # dry 0.9 # pan (range 0.2 0.8 (slow 4 perlin)) d4 $ gM3 $ gF2 $ midiOn "^57" (>| note ("<d d <d g> <a d d a>>" - 2 - 12)) $ note ("d" - 2 - 12) # "90s_synatm:2" # crushbus 41 (range 12 1.4 "^53") # octerbus 42 (range 0 1.4 "^33") # cut 4 # room 0.4 # pan (slow 32 $ range 0.98 0.7 saw) # gain 0.7 d5 $ gM3 $ gF2 $ fix (|* gain 0.7) (n 10) $ note "<<d!16 g!16> <d!16 g!16> d g [a@3 <~ bf>]>" # n "<5!24 10!8>" # "cbow" # crushbus 51 (range 12 2.4 "^54") # cut 5 # gain 0.6 d7 $ gM3 $ gF3 -- Keys of Paradise $ midiOn "^91" (ply 2 . (# freeze 0.2)) $ slice 4 "<[0 1] [2 3*<1 4>] [0 1] [2 1(<1 3>,8)]>" $ "nujazz_keys120:25/2" # octersub (slow 32 $ range 0.2 1.2 (saw+perlin/2)) # cut 7 d8 $ gF1 $ gM1 -- Train break train wreck $ chop 16 $ midiOff "^36" (loopAt 2) $ midiOff "^56" (loopAt 2) $ midiOn "^60" (loopAt 0.5) $ midiOn "^92" (ply "2 1 4 <2 1>") $ chop 4 $ loopAt 4 $ "jungle_breaks:45" # cut 8 d10 $ gM3 $ gF3 $ note "<g3!3 a3>" # "90s_weird:1" # cut 10 # gain 0.8 # pan (slow 4 "<0.2 0.42 0.68 0.8>") d11 $ gF3 $ gM3 $ note ("0(3,8)" + "<g4!3 a4 g4!3 a4 d4!3 d4s d4!3 a4s>") # "90s_synatm:13" # cut 11 # gain 0.8 # pan (slow 4 (1-"<0.2 0.42 0.68 0.8>")) # att 0.1 # rel 2 d9 $ gF3 $ gM3 -- Submarine electric wave $ someCyclesBy "<0!6 0.5 1>" (# silence) $ note ("<g4!3 a4 g4!3 a4 d4!3 d4s d4!3 a4s>") # "90s_synatm:14" # cut 9 # gain 0.8 # crushbus 91 (slow 16 $ range 16 4.5 (perlin - (slow 8 saw))) # pan (slow 4 (1-"<0.2 0.42 0.68 0.8>"))