michael.tidal 1.83 KB
setcps (120/60/4)
resetCycles
-- Michael: lounge piano/brass tech/break
do
let gDJF = midiDJF "^49" 200 9800 0 1000
let g = gDJF
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"
d3
  $ g
  $ midiOn "^44" (slow 2)
  -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
  -- $ degradeBy ("0 0.95!7 0" - "^52")
  $ "~ 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" (# crush 6)
  $ fix (
    (# "fsynth:3")
    . (|- note 24)
    . (|+ pan 0.1)
    . (|* gain "^53")
  ) "a"
  $ fix (
    (# "fsynth:3")
    . (|- note 12)
    . whenmod 4 2 (often (ply 2))
    . (# pan (perlin))
    . (|* gain "^33")
  ) "b"
  $ fix (
    (# "fsynth:3")
    . slice 8 "0 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))
  ) "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" # gain 1.25
  # cut 5
  # crush (range 16 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")
  # crush (range 16 1.5 "^55")
d8 $ g
  $ loopAt 2
  $ degradeBy ("0 0.9!7 0" - "^36")
  $ scramble 2
  $ slice 8 (run 8)
  $ "fbreak120"
  # room 0.8
  # dry (1 + (slow 8 $ perlin * "^56"))
  # midiG' "^84" 0 1.5
  # cut 6