noiseGliss (amp, cps) = fmap ares anoise
    where
        ramp = linseg [0, idur * 0.8, amp, idur * 0.2, 0]
        env1 = linen (sig amp) 0 idur 10
        anoise = randi ramp env1

        ares a =  reson (a * osc (sig cps)) 100 100 `withD` 2
noiseGliss (amp, cps) = fmap ares anoise
    where
        ramp = linseg [0, idur * 0.8, amp, idur * 0.2, 0]
        env1 = linen (sig amp) 0 idur 10
        anoise = randi ramp env1

        ares a =  reson (a * osc (sig cps)) 100 100 `withD` 2
noiseGliss (amp, cps) = fmap ares anoise
    where
        ramp = linseg [0, idur * 0.8, amp, idur * 0.2, 0]
        env1 = linen (sig amp) 0 idur 10
        anoise = randi ramp env1

        ares a =  reson (a * osc (sig cps)) 100 100 `withD` 2