-- | Multiplies the volume of the audio by a scalar.
vol :: Double -> Audio r c -> Audio r c
vol v (Audio x) = Audio $ Concatenate [(v, x)]
vol :: Double -> Audio r c -> Audio r c
vol v (Audio x) = Audio $ Concatenate [(v, x)]
vol v (Audio x) = Audio $ Concatenate [(v, x)]