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

do
setcps (104/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
  $ 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 $ gM1 
  $ "~ 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 $ gM1 
  $ "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
