scrape.tidal

let 
    shift p = (1024 ~>) $ p
    shift' num p = (num ~>) $ p
    shiftBy = shift'
    shrand num = shiftBy num $ rand
    gtfo p = (const $ s "~") $ p 
    g = gtfo
    one p = off (0.0625) id $ p
    rip howOften p = every howOften (within (0.25, 0.75) (rev . stut 12 0.004 (0.0625/6))) $ p

let pat = "<4 2 4 2 1 1 1>"

d1 
    $ (|* gain 1.1)
    $ (# cps (pat * (discretise 1 $ range 0.4 1.25 $ shrand 3829) * (range 1 1 $ slow 3 tri)))
    $ someCyclesBy 0.4 (within (0.5,1) (const $ midinote "~ 3" # s "midi"))
    $ stack [
        g $ plyWith ((15/) $ pat) ((|* legato 0.97) . (# note "[-36]")) $ note "-24" # legato 1
        , plyWith ((15/) $ pat) (# gain 0.8) $ midinote "[2]"
        , plyWith ((15/) $ pat) (# midinote 10) $ midinote 11
        , (4 ~>) $ slow 4 $ midinote 1
    ]
    # s "midi"