morning_glory.tidal 1.12 KB
do
setcps (80/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 gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF
  $ midiOn "^42" (<| "k k k k")
  $ "jazz"
  # midiG' "^78" 0 1.9
d3 $ gF
  $ midiOn "^42" (<| "~ k ~ k*<1 2>")
  $ midiOff "^42" (<| "~ k")
  $ "hh"
  # midiG' "^79" 0 1.9
d5 $ gF2 $ mask "<t t t f>"
  $ "90s_synatm:8"
  # room 0.4
  # cut 5
  # midiG' "^81" 0 1
  # crushbus 51 (range 16 2.5 "^53")
  # pan 0.35
  # room (range 0.2 0.8 (slow 8 saw))
d6 $ gF3
  $ note (scale "aeolian" "<0!8 -2 -2 -2 -3>")
  # "FMRhodes1"
  # midiG' "^82" 0 1.9
d7 $ gF3
  $ superimpose (struct "t . t(3,8)" . (arp "thumbup") .
    (|+ note "<c'maj'4!3 c'min'4>")
  )
  $ note (scale "aeolian" "<0!8 -2 -2 -2 -3>")
  # "FMRhodes2"
  # midiG' "^83" 0 1.9
d8 $ gF $ chop 8
  $ midiOn "^60" (loopAt 1)
  $ midiOff "^60" (loopAt 2)
  -- $ loopAt 2
  $ "fbreak80"
  # midiG' "^84" 0 1.9
  # cut 8