tidal

20190127.tidal

do
    let s1 = 
            sometimes (degradeBy 0.9) $ 
            sound "sn sn ~ ~ sn*3, ~ ~ sn*3/3 ~ ~"
    let s2 = 
            rarely (jux (iter 4)) $
            sometimes rev $
            rarely (striate 3) $ 
            rarely (striate 40) $
            spread ($) [
                rev, 
                slow 10, 
                striate 30, 
                (# speed "0.8")
                ] $
            randcat [
                sound "~ bass:3 ~ ~", 
                sound "~ bass:2*3 ~ ~"
                ] 
            # speed rand / 10
    let s3s = 
             randcat [
                sound "bd sn sn sn*3", 
                sound "bd bd*20", 
                sound "bd sn sn sn*4",
                sound "bd sn*30 sn sn*7"
                ]
    let s3 = 
            sometimes (# lpq (randcat ["0.6", "0.3", "0.5", "0"])) $
            sometimes (# cutoff (randcat ["400", "900", "1500"])) $
            s3s |+| vowel "a i u"
            # pan rand 
            # speed rand
    let s4 = 
            randslice 3 $
            s3s 
            # pan (cosine * rand) 
            # speed cosine 
    let s5 = 
            n "2 3*10" |+| n "4 5 6" 
            # sound "drum"
    d1 $ stack [
        s1,
        s2, 
        s3,
        s4, 
        s5,
        sound ""
        ]