resetCycles

do
setcps (60/60/4)
let maskR = mask "<t!6 f [f t]>"
    modIndex = pF "modIndex"
    g = (# lpf (slow 64 $ range 2000 500 saw))
d1 $ g
  $ "k k k <k k k ~ k k ~ ~ k k ~ k k k k*2 k> k k k <k*2!3 [~ k]>"
  # "[jazz,808bd:2,909]"
  # gain 1.3
d3 -- Bassline baseline
  $ "tripBassLines:0"
  # lpf 400
  # crush 3.5
  # cut 3
  # room 0.3
  # gain 1.2
d2 $ g
  $ superimpose (const $ maskR -- Snare!
    $ whenmod 4 3 (fast 2)
    $ "~ s"
    # "snare:20"
    # lpf (slow 32 $ range 2000 5000 saw))
  $ maskR
  $ slice 4 ("0 1 <2 2 3 <~ 3>> <2!3 3*<1 2>>")
  $ "break:13"
  # pan (segment 4 $ range 0.2 0.6 perlin)
  # cut 2
  # gain (slow 32 $ range 0.53 0.8 saw)
d4 $ g
  -- $ mask "<t!6 f [f t f t]>"
  -- $ degradeBy 0.05
  $ sometimesBy 0.1 (ply 2)
  -- $ fix (mask "<f!16 t!16>" . (|* gain (slow 8 $ range 0.35 0.48 saw)) . (# cut 41)) "ho"
  $ "~ d d*<1 2 8 <4 [4 <8 16>]>> d*<8!3 <16 [16 4]>>"
  # "[drum:2,ho:1]"
  # room 0.4 # dry 0.9 # sz 0.3
  # gain 0.9
  # pan 0.8
d5
  $ mask "<f!32 t!32>"
  $ off 0.75 ((# crush 6.2) . (|* gain 0.9). (# cut 51))
  $ note "<a b g <d a5>>"
  # "moog"
  # legato 2
  # room 0.6
  # sz 0.8
  # gain (slow 4 $ "<0.65 0.7 0.75 0.8>" * 1.0)
  # pan 0.7
  # cut 5
d6 -- Solar flares
  $ mask "<f!8 t(4,8)!8 t!16>"
  $ superimpose (
    (off 0.5 (|* gain "<0 1 1 0>")) .
    arp "<updown up up downup>"
    . (|+ note "c'major'2"))
  $ note "<a5 g5 f5 <c5 a4>>@3 e" # "FMRhodes2"
  |- note "<24!16 12!8 0!8>"
  # modIndex (slow 32 $ range 0 32 (saw + (slow 32 "<0 0.3>") * perlin))
  # gain (slow 64 $ range 0.9 0.5 saw)
  # room 0.5
  # dry 1
  # sz 0.4
  # pan 0.2