-- Broken down from LoFi's Pure Bliss Chord:
-- Amin11, D7, Fmaj7, Cmaj7
"<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"


resetCycles

do
setcps (90/60/4)
let gDJF1 = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.15 saw)))
let gDJF2 = (whenmod 64 32 (# djfbus 1 (slow 32 $ range 0.25 0.75 saw)))
let g = gDJF1 . gDJF2
d1 $ g $ "k ~ ~ <~ <k [~ k]>> . ~ <~ k> ~ ~" # "jazz" # gain 0.8
d2 $ g $ "~ sn:30" # gain 0.7
d3 $ g
  $ fast 4
  $ ply "<1!3 <2 [2|4]>>"
  $ "drum:2"
  # gain 0.5
d4 $ g
  $ whenmod 16 12 (ply "<2 2 4 4>")
  $ iter "1 8"
  $ mask (slow 4 "<t(1,4) t(2,4) t(3,4) t>")
  $ loopAt 2
  $ "break:3"
  # cut 4 # gain (slow 64 $ range 0.6 0.9 (saw + slow 4 perlin))
d5 $ g -- Low angels
  $ note (
    "<a fs f c>"
    |+| "<0!8 [0 12]!8>"
    - 12
  )
  # "moogBass"
  # gain 0.4
  # pan 0.2
  # room 0.3
d6 $ g -- High angels
  $ whenmod 32 58 (superimpose ( -- Higher arps!
    (|+ note 12) . arp "<up!3 <down downup>>")
  )
  $ note (
    "<[c6,e6, g6,b6] [a, c6, d6,fs6] [a, c6, e6,f6] [e, g,  b,e6]>"
    - 12
  )
  # "moogBass"
  # gain 0.4
  # pan 0.7
  # room 0.3
