-- /home/pln/Downloads/PerfectSunriseLoop.gif

do
setcps (104/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
  $ midiOn "^42"  (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
  $ midiOff "^42" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
  $ stack [
  "kick" # lpf 10000 # cut 1,
  "rumble" |* gain 1.3
  # lpf 200
  # cut 11,
  ""
  ]
  # "[techno:1,jazz]"
  # gain 1.2
d2 $ gF1 $ gM2 
  $ "~ s ~ s" 
  # "gretsch:14"
  # begin 0.2
  # gain 1.4 
  # room 0.4 # dry 1.14 # sz 0.1
  # legato 0.25
  # lpf (range 20000 200 $ (fast 4 $ envL))
  # lpq 0
d3 $ gF1 $ gM2 
  $ "dr*[16 16 8 <16 8 64 [128 64]>]" 
  # gain 0.8
  # "gretsch:14"
  # begin 0.5
  # gain 1.7
d4 $ gF2 $ gM3 
  $ note ("<bf af ef@2>" - 24)
  # "bassWarsaw"
  # crushbus 41 (range 16 3.5 "^53")
  # room 0.4 # sz 0.5 # dry 1.4
d5 $ gF3 $ gM3
  $ mask "<f t f f>"
  $ "gfunk_lead:15" 
  # cut 5
  # gain 1.3

once $ arp"up" 
  $ "FMRhodes1" # note "[c4'min]" # gain 1.8
