WIP drone piece

drones-wip.tidal.hs

do
    let pat =  n "1 _ _ 1 _ _ _ 1 _" |+ n "<f3>"
    let chain = delayfeedbackbus 21 (cF 0.0 "15") # delaytime 0.667 # delaybus 20 (cF 0.0 "16") # crushbus 1 (range 0.1 16.0 $ cF 1.0 "5") # roombus 2 (range 0.0 4.0 $ cF 0.0 "6")
    let env = attack (range 0.0 2.0 $ cF 0.4 "7") # release (range 0.0 4.0 $ cF 0.5 "8")
    let veu = s "superfm" # legato 1 # amp1 1 # amp2 0 # amp3 0 # amp4 0 # amp5 0 # amp6 0 # feedback 1
    d4
        $ degradeBy (cF 0.0 "1")
        $ slow 2
        $ pat
        # veu
        # mod12 0.5
        # ratio2bus 9 (2 + (range 0 0.5 $ cF 0.0 "9"))
        # env
        # chain
    d5
        $ degradeBy (cF 0.0 "1")
        $ sometimesBy (cF 0.0 "4") (stutter 4 (1/8))
        $ palindrome
        $ slow 1
        $ pat |+ n 12
        # veu
        # mod12bus 100 (slow 4 $ range 0.5 1.5 $ segment 256 $ sine)
        # ratio2bus 10 (2 + (range 0 0.5 $ cF 0.0 "10"))
        # env
        # chain
    d6
        $ degradeBy (cF 0.0 "1")
        $ sometimesBy (cF 0.0 "2") (stutter 4 (1/4))
        $ sometimesBy (cF 0.0 "3") (fast 2)
        $ slow 2
        $ pat |+ n 24
        # veu
        # mod12 0.5
        # mod11 0.6
        # feedback 1
        # ratio2bus 11 (3 + (range 0 0.5 $ cF 0.0 "11"))
        # env
        # chain