
d8 $ every 5 (density 1.5) $ sound "bass3:2*2? [bass3:8 bass3:5 bass3:8]?"
   |+| gain "1.2"
   |+| shape "0.3"
   |+| speed (every 3 ((*2) &lt;$&gt;) $ every 2 ((/2) &lt;$&gt;) "1.44")

d10 $ every 3 rev $ slow 4 $ (spread' striate "16 32 12" $ sound "[pad:5]")
   |+| speed (superimpose ((*1.5) &lt;$&gt;) $ (superimpose ((*1.01) &lt;$&gt;)) $ ((+1) . (*0.01)) &lt;$&gt; sine1)

d1 $ (every 2 degrade $ stut 2 0.5 (1%3) $ sound "bd [bd bd*4?]")
   |+| speed "[1,1.01,2 3]/2"
   |+| accelerate "-1"

d2 $ slow 2 $ sound "[[bd bd?]*4, future*2]"
   |+| accelerate "2"
   |+| speed "1"
   |+| gain "1.4"
   |+| shape "0.9"

d3 $ jux (iter 4) $ every 2 (slow 2) $ slow 4 $ striate 16 $ sound "[breaks125 breaks165]"
   |+| gain "1.6"
   |+| speed "2"
   |+| accelerate (((*(-16))) &lt;$&gt; (slow 8 $ sine))

d4 $ superimpose (iter 8) $ sound "drum drum:1?"
   |+| shape "0.9"
   |+| gain "1.1"
   |+| accelerate "-1.5"
   |+| speed "1.1"

d6 $ every 3 rev $ slow 4 $ (striate 64 $ sound "atlast")
   |+| shape "0.97"
   |+| speed (superimpose ((*1.5) &lt;$&gt;) $ (superimpose ((*) &lt;$&gt; (((+1) . (* 0.01)) &lt;$&gt; (slow 4 $ saw1)) &lt;*&gt;)) $ ((+1) . (*0.01)) &lt;$&gt; (slow 3 sine1))
   |+| gain "0.75"

d7 $ every 3 rev $ slow 4 $ (striate 64 $ sound "[atlast:1 ! atlast:0 ! atlast:2 ! atlast:2 !]/8")
   |+| shape "0.97"
   |+| speed (superimpose ((*1.5) &lt;$&gt;) $ (superimpose ((*1.01) &lt;$&gt;)) $ ((+1) . (*0.01)) &lt;$&gt; sine1)
   |+| gain "0.9"

d9 $ jux (iter 8) $ striate 16 $ sound "breaks125"
   |+| gain "1.7"


At last

Enjoy the clipping.

Source code available here:
bit.ly/1OuYfpG

Image courtesy of hobvias sudoneighm
bit.ly/1MvGwwI

Progression 5 - Bad Haircut

Header image courtesy of Paxon Woelber
http://bit.ly/1iFyo0G

Icon image courtesy of Toby Charlton-Taylor
http://bit.ly/1QwkyJw

Progression 5 - Bad Haircut

Tidal Progressions

Related tracks