setcps (120 / 60 / 4)

do
  solo 1
  solo 2
  solo 3
  solo 4
  unsolo 5

do
  d1
    -- TECHNO
    -- $ someCyclesBy "0!3 <0.5 1>" (stut 4 0.8 (1/16))
    -- $ fast "<4!8 2!8>"
    -- $ every' 8 7 (fast 2)
    --
    $ n "<0 ~ 0> <~ 0 0> . ~"
    # s "cpu"
    # gain 1
  d2 $ s "~ s" # s "snare:3" # gain 0.9
  d3 $ fast "8 <8!3 4 16!3 32>" $ s "dr" # gain (slow 32 $ range 0.5 0.9 sine)
  d4
    $ whenmod 8 6 (# silence)
    $ n "[0(3,8),~ 1, ~ ~ 4]" # s "[ho|ho|hc] [ho|hc|hc]"
    # gain (slow 32 $ range 0.8 0.75 sine)
    # cut 1
  d5
    $ note (scale "aeolian"
    "<c5'min <d5'maj f5'maj a5'maj d5'maj>>" - 36)
    # s "bassWarsaw"
    # gain 1
    # pan 0.8

d4
$ note (scale "aeolian" "<0 5>(<3 5 8>,8)"
- 24
) # s "moogBass"
# amp 0.4
# sus "[0.25, 0.5]"
# rel "<0.2 0.8 0.5 1 0.1 2>"

d5
$ superimpose (# s "superpiano") . (|- velocity 0.8)
$ note (
  scale "aeolian"
  "<c5'min <d5'maj f5'maj a5'maj d5'maj>>(<8!3 5>,8)" - "7"
)
# s "FMRhodes1"
-- # gain 0.8
# sustain 0.75
# gain 0.6