Sourcetype t = {attack : float;decay : float;sustain : float;release : float;
} Sourceval percussive : attack:float -> decay:float -> t Sourceval level : t -> held:float -> float -> float Sourceval duration : t -> held:float -> float Sourcetype curve = | Linear| Exponential
Sourcetype stage = | Idle| Attack| Decay| Sustain| Release