resetCycles -- Michael: lounge piano/brass tech/break do let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let g = gDJF setcps (120/60/4) d1 $ g $ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>") $ midiOff "^41" (struct "t(<3!3 [3 <8 [5 8]>]>,8)") $ "jazz" # room 0.5 # sz 0.5 # dry 1 # midiG' "^78" 0 1.6 d2 $ g $ whenmod 8 6 (ply "2 <2 4>") $ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20" # midiG "^79" # note (range "-12" 12 "^50") d3 $ g $ midiOn "^44" (slow 2) -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]") -- $ degradeBy ("0 0.95!7 0" - "^52")z $ "~ h ~ h ~ h*2 ~ h" # "hh27:2" # note ( whenmod 4 3 (2 -) "0 . 2 0" ) # midiG' "^80" 0 1.6 d4 $ g -- Synth brass choir $ midiOn "^57" (# crushbus 4 6) $ fix ( (# "fsynth:3") . slice 8 "0 1*<1 2 2 1> 2*<<1 2> 1 2 1> 3*<<1 2> 4>" . arp "pinkyup" . (|+ pan 0.1) . (>| note ("c'maj'3" - 7)) . (|* gain ("^17" * 0.9)) ) "a" $ fix ( (# "fsynth:3") . (|- note 12) . whenmod 4 2 (often (ply 2)) . (# pan (perlin)) . (|* gain "^33") ) "b" $ fix ( (# "fsynth:3") . (|- note 24) . (|+ pan 0.1) . (|* gain "^53") ) "c" $ slice 4 "<0 1 2 3>" $ "[a,b,c]" # midiG' "^81" 0 1.5 # room 0.3 # sz 0.6 d5 $ g -- Jumpy Piano $ midiOff "^58" (struct "t(2,4)") $ degradeBy ("0 0.95!7 0" - "^34") $ juxBy 0.8 (rev . (# cut 51)) $ mask "f <f!8 t!8>!3 . t" $ slice 8 (run ("4 <4 8>" * "<1!3 2>")) $ "fpiano:3" # cut 5 # crush (range 12 3 "^54") # room 0.5 # sz 0.7 # midiG' "^82" 0 1.5 d7 $ g $ slice 8 (run ( "<2!3 4>" * "<1!4 2!4 [2 1]*4 [2 4]*4>" )) $ "forgan:17" # cut 7 # midiG' "^83" 0 (1.2 - 0.5 * "^55") # crushbus 7 (range 10 1.5 "^55") d8 $ g $ loopAt 2 $ degradeBy ("0 0.9!7 0" - "^56") $ scramble 2 $ slice 8 (run 8) $ "fbreak120" # room 0.8 # dry (1 + (slow 8 $ perlin * "^36")) # midiG' "^84" 0 1.5 # cut 6